Moderator: MacroQuest Developers
Code: Select all
#turbo 50
#chat tell
Sub Main
:Loop
/doevents
/goto :Loop
/return
Sub Event_Chat
/if "@Param0"=="TELL" {
/beep
/echo Tell from @Param1 said @Param2
}
/returnCode: Select all
VOID CheckChatForEvent(PCHAR szMsg)
{
if ((gMacroBlock) && (!gMacroPause) && (!gbUnload) && (!gZoning)/* && (!gDelayZoning)*/) {
CHAR Arg1[MAX_STRING] = {0};
CHAR Arg2[MAX_STRING] = {0};
CHAR Arg3[MAX_STRING] = {0};
if ((strstr(szMsg," tells the guild, '")) && (CHATEVENT(CHAT_GUILD))) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," tells the guild, '")-szMsg));
strcpy(Arg2,strstr(szMsg," tells the guild, '")+19);
Arg2[strlen(Arg2)-1]=0;
AddEvent(EVENT_CHAT,"guild",Arg1,Arg2,NULL);
} else if ((strstr(szMsg," tells the group, '")) && (CHATEVENT(CHAT_GROUP))) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," tells the group, '")-szMsg));
strcpy(Arg2,strstr(szMsg," tells the group, '")+19);
Arg2[strlen(Arg2)-1]=0;
AddEvent(EVENT_CHAT,"group",Arg1,Arg2,NULL);
} else if ((strstr(szMsg," tells you, '")) && (CHATEVENT(CHAT_TELL))) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," tells you, '")-szMsg));
strcpy(Arg2,strstr(szMsg," tells you, '")+13);
Arg2[strlen(Arg2)-1]=0;
AddEvent(EVENT_CHAT,"tell",Arg1,Arg2,NULL);
} else if ((strstr(szMsg," says out of character, '")) && (CHATEVENT(CHAT_OOC))) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," says out of character, '")-szMsg));
strcpy(Arg2,strstr(szMsg," says out of character, '")+25);
Arg2[strlen(Arg2)-1]=0;
AddEvent(EVENT_CHAT,"ooc",Arg1,Arg2,NULL);
} else if ((strstr(szMsg," shouts, '")) && (CHATEVENT(CHAT_SHOUT))) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," shouts, '")-szMsg));
strcpy(Arg2,strstr(szMsg," shouts, '")+10);
Arg2[strlen(Arg2)-1]=0;
AddEvent(EVENT_CHAT,"shout",Arg1,Arg2,NULL);
} else if ((strstr(szMsg," auctions, '")) && (CHATEVENT(CHAT_AUC))) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," auctions, '")-szMsg));
strcpy(Arg2,strstr(szMsg," auctions, '")+12);
Arg2[strlen(Arg2)-1]=0;
AddEvent(EVENT_CHAT,"auc",Arg1,Arg2,NULL);
} else if ((strstr(szMsg," says '")) && (CHATEVENT(CHAT_SAY))) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," says '")-szMsg));
strcpy(Arg2,strstr(szMsg," says '")+7);
Arg2[strlen(Arg2)-1]=0;
AddEvent(EVENT_CHAT,"say",Arg1,Arg2,NULL);
} else if ((strstr(szMsg," says, '")) && (CHATEVENT(CHAT_SAY))) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," says, '")-szMsg));
strcpy(Arg2,strstr(szMsg," says, '")+8);
Arg2[strlen(Arg2)-1]=0;
AddEvent(EVENT_CHAT,"say",Arg1,Arg2,NULL);
} else if ( (strstr(szMsg," tells ")) && (strstr(szMsg,":")) && (strstr(szMsg,", '")) && (CHATEVENT(CHAT_CHAT)) ) {
strncpy(Arg1,szMsg,(DWORD)(strstr(szMsg," tells ")-szMsg));
strcpy(Arg3,strstr(szMsg," tells ")+7);
Arg3[strlen(Arg3)-1]=0;
strcpy(Arg2,strstr(Arg3,", '")+3);
Arg3[strstr(Arg3,":")-Arg3]=0;
AddEvent(EVENT_CHAT,Arg3,Arg1,Arg2,NULL);
} else {
PEVENTLIST pEvent = pEventList;
while (pEvent) {
if (strstr(szMsg,pEvent->szMatch)) {
AddCustomEvent(pEvent,szMsg);
}
pEvent = pEvent->pNext;
}
}
}
}So, I'm giving in...after the incesant beep, beep, beep, beep, I'm ready for some Excedrin.[Mon Mar 15 17:02:45 2004] Logging to 'eqlog.txt' is now *ON*.
[Mon Mar 15 17:03:51 2004] Smokemup -> misti: hey =)
[Mon Mar 15 17:03:52 2004] Misti -> smokemup: AFK Message: brb