SCAR Code:
{.include srl/srl.scar}
var
TheChatText:STring;
Mark1:Integer;
Mark2:Integer;
Count:LongInt;
Average:Integer;
procedure Player;
begin
setarraylength(Players,1)
CurrentPlayer:=0
Players[0].Name:='Name';
end;
Function ChatBoxRespond(TheText,FromText,SayText:String):Boolean;
var GetName:String;
begin
if(TheText='')then
Exit;
if(pos(lowerCase(FromText),LowerCase(Trim(TheText)))<>0)then
begin
GetName:=Trim(GetTextAtEx(20,415,45,SmallChars,False,False,0,2,0,40,True,tr_NormalChars));
if(pos(LowerCase(Players[Currentplayer].Name),LowerCase(GetName))<>0)then
Exit;
Result:=True;
wait(500+random(2000))
TypeSend(SayText)
writeln('| - - - - RESPOND - - - - -')
Writeln('|'+GetName+': '+FromText)
Writeln('|'+Players[CurrentPlayer].Name+': '+SayText)
writeln('| - - - - - - - - - - - - -')
Wait(500+random(1000))
end;
end;
procedure AutoRespond;
begin
if(IsTextInAreaEx(40,415,130,415,x,y,':',0,smallchars,False,True,0,0,0))then //SRL: GetLastChatText
TheChatText:=Trim(GetTextAtEx(x+8,415,0,SmallChars,False,False,0,1,16711680,40,False,tr_allChars))
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
ChatBoxRespond(TheChatText,'Hi','Hello!')
ChatBoxRespond(TheChatText,'Wazzup','Nothing much!')
ChatBoxRespond(TheChatText,'Idiot','Ye, you are!')
ChatBoxRespond(TheChatText,'Bye','See you!')
ChatBoxRespond(TheChatText,'Noob','Yes, im a noob!')
//And so on...
end;
begin
SetUpSRL;
Player;
activateclient;
wait(2000)
MarkTime(Mark2)
repeat
wait(700)
MarkTime(Mark1)
Count:=Count+1
AutoRespond;
Average:=(Average+TimeFromMark(Mark2))/Count-700
writeln('')
Writeln(inttostr(Count)+'. Time: '+inttostr(TimeFromMark(Mark1))+'ms!')
Writeln(inttostr(Count)+'. Average Time: '+inttostr(Average)+'ms!')
until(False)
end.