Forum o botach do gry "Tibia"
Narazie responder jest ubogi, ale jest i odpowiada na PM
FUNKCJE:
powitanie
odpowiedź na czity
odpowiedź na skille
pożegnanie
Narazie CHYBA tyle, chyba, że o czymś zapomniałem
procedure event_message(channel:integer;Name,Text: String); begin if channel = 4 then begin if Pos(AnsiLowerCase('hello'),AnsiLowerCase(Text)) <> 0 then begin sleep(5000); self.privatemessage(Name,'hiho'); exit; end; if Pos(AnsiLowerCase('yo'),AnsiLowerCase(Text)) <> 0 then begin sleep(5000); self.privatemessage(Name,'hiho'); exit; end; if Pos(AnsiLowerCase('hi'),AnsiLowerCase(Text)) <> 0 then begin sleep(5000); self.privatemessage(Name,'hiho'); exit; end; if Pos(AnsiLowerCase('hiho'),AnsiLowerCase(Text)) <> 0 then begin sleep(5000); self.privatemessage(Name,'hiho'); exit; end; if Pos(AnsiLowerCase('how long'),AnsiLowerCase(Text)) <> 0 then begin sleep(5000); self.privatemessage(Name,'for about 4 hours i suppose'); // change to anything you'd like exit; end; if Pos(AnsiLowerCase('bye'),AnsiLowerCase(Text)) <> 0 then begin sleep(2500); self.privatemessage(Name,'yeah bye :)'); exit; end; if Pos(AnsiLowerCase('bb'),AnsiLowerCase(Text)) <> 0 then begin sleep(2500); self.privatemessage(Name,'cya'); exit; end; if Pos(AnsiLowerCase('message msg done finish'),AnsiLowerCase(Text)) <> 0 then begin sleep(2500); self.privatemessage(Name,'ok sure'); exit; end; if Pos(AnsiLowerCase('next'),AnsiLowerCase(Text)) <> 0 then begin sleep(2500); self.privatemessage(Name,'ok sure'); exit; end; if Pos(AnsiLowerCase('bot'),AnsiLowerCase(Text)) <> 0 then begin sleep(2500); self.privatemessage(Name,'lol no?'); exit; end; if Pos(AnsiLowerCase('auto responder'),AnsiLowerCase(Text)) <> 0 then begin sleep(2500); self.privatemessage(Name,'no lol'); exit; end; if Pos(AnsiLowerCase('cya'),AnsiLowerCase(Text)) <> 0 then begin sleep(2500); self.privatemessage(Name,'yeah bye'); exit; end; if Pos(AnsiLowerCase('cheater'),AnsiLowerCase(Text)) <> 0 then begin sleep(2500); self.privatemessage(Name,'i dont cheat rofl!'); exit; end; end; end; While not terminated do begin UpdateWorld; ProcessEvents; sleep(100); end;
Offline