ub3r |<1||3r*1337*
2006-05-28 11:38:49
This procedure will GREATLY reduce bans. It will talk back to other players if it finds the chat. works well with miners and woodcutters. I hope this is great use to your script
procedure commontalk;
begin
if ( findchattext('lvl?')) then ///finds the exact words of the chat
begin
typesend(inttostr(lvel)) ///responds by giving the level
break; ///ends the procedure
end else
if ( findchattext(Players[Currentplayer].Name)) then ///find your name in the chat
begin
typesend('What? I Dont want to talk') ///responds to the chat
break; ///ends the procedure
end else
if ( findchattext('o away')) then ///finds specified chat
begin
typesend('make me') ///responds
break; ///ends procedure
end else
if ( findchattext('reporting you')) then
begin
typesend('Im not autoing')
break;
end else
if ( findchattext('reported')) then
begin
typesend('that wasnt neccesary')
break;
end else
if ( findchattext(Players[Currentplayer].Name+' is autoing')) then
begin
typesend('im not autoing')
break;
end else
if ( findchattext('logs')) then
begin
typesend(inttostr(logs))
break;
end;
{to add more chats, just copy this and paste more( without these symbols) --->}
{if (findchattext('')) then
begin
typesend('')
break;
end;}
end; you can edit it and somehow make it into an array. i was too lazy to put every single common chat :D