AutoResponder... Yet another attempt.

[Jason2gs]

Yes. Another attempt at my AutoResponder...

I want it to Exit; the procedure if it finds my nick InChat.

It doesn't seem to be working, though.

Please help,

Mike.

program New;
{.include SRL/SRL.scar}

   procedure DeclarePlayers;
    begin

     HowManyPlayers:=1;
     NumberOfPlayers(1);
     CurrentPlayer:=0;

     Players[0].Name :='Nubypkerdude';
     Players[0].Pass :='password';
     Players[0].Nick :='ubypkerdude';
     Players[0].Active:=True;

     NickNameBMP:=CreateBitMapmaskfromtext(Players[CurrentPlayer].Nick,UpChars)
    end;

   procedure AutoResponder;
    begin
    
      Wait(2000 + Random(2000));
    
     if(InChat(Players[CurrentPlayer].nick))then
      Exit;
     
     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.

[Smartzkid]

Left ya'h pass in there...
Check your PMs for what I changed it to.

you shouldn't need 'NickNameBMP:=CreateBitMapmaskfromtext(Players[CurrentPlayer].Nick,UpChars)' in DeclarePlayers - SRL should do that for you. You only need to make the nickname bitmap yourself if you're not going to use DeclarePlayers.

[Jason2gs]

Lol, guess I should probably change that

Thanks, man =)