SRL Archive - Help

hey guys, someone mind testing this for me, it should just log in, click spell book, then click humidify, but for somereason on logon it does nothing ;/

program New;
{$DEFINE SMART}
{$i srl/srl.simba}

Procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
end;


procedure MagicBookOpen;
var x, y: integer;
begin
     if FindObj(x, y, 'agi', 2519723, 20) then
 begin
     Mouse(x, y, 5, 5, false);
     ChooseOption('agi');
end;
End;

Procedure ClickSpell;
   var x, y: integer;
 Begin
   If FindObj(X, Y, 'ast', 7754782, 20) then
   Begin
      Mouse(X, Y, 5, 5, false);
      ChooseOption('ast');
   End

End;


begin
  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  MagicBookOpen;
  ClickSpell;
end.                             

Thanks

Maybe this sounds dump but you said it wont log in have you put in your account details?

From: Imanoobbot
Maybe this sounds dump but you said it wont log in have you put in your account details?

I think he meant after it logs in.

Also, you need to have a repeating loop, maybe that's the problem. Put

repeat
MagicBookOpen;
ClickSpell;
until (AllPlayersInactive);

Try this as your MagicBookOpen procedure:

procedure MagicBookOpen;
var
  x, y: integer;
begin
  if FindObj(x, y, 'agi', 2519723, 20) then
  begin
     Mouse(x, y, 5, 5, False);
     WaitOption('agi', 3000);
  end else
    Writeln('Couldn''t open Magic Book');
end;

If it writes in 'Couldn't open Magic Book' then you need to update your colours.