I think I know how to do a good amount of stuff in SCAR, but I can't seem to be able to get my AutoResponder to work...
I see nothing wrong with it, but it's not working
No matter what I do, I can't get it to ignore the current player's messages.
SCAR Code:program New;
{.include SRL/SRL.scar}
procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(1);
CurrentPlayer:=0;
Players[0].Name :='Username';
Players[0].Pass :='***********';
Players[0].Nick :='ubypk';
Players[0].Active:=True;
end;
procedure AutoResponder;
begin
Wait(2000 + Random(2000));
if(InChat(Players[CurrentPlayer].Name))then
begin
Exit;
end
if(InChat('hi')) or (InChat('hey')) or (InChat('hello'))then
begin
Wait(1000 + Random(2000));
case Random(3) of
0: TypeSend('hey');
1: TypeSend('sup');
2: TypeSend('what''s up?');
end;
end;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
AutoResponder;
until(false)
end.








Reply With Quote











*inside joke*
