Another thing:
SCAR Code:
if(not(LoggedIn))then
begin
LoginPlayer;
end;
Im not 100% sure, but I think it may be just:
SCAR Code:
if(not(LoggedIn))then LoginPlayer;
Then it will look like this:
SCAR Code:
program New;
{.include srl/srl.scar}
Var
x,y : Integer;
Procedure DeclarePlayers;
Begin
CurrentPlayer := 0;
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := '####'; // Username
Players[0].Pass := '####'; // Password
Players[0].Nick := '####'; // Nickname, 3 - 4 letters of username
Players[0].Active := True; // Active?
end;
begin
SetupSRL;
DeclarePlayers;
ActivateClient;
Mouse(264, 209,0,0, true);
if(not(LoggedIn))then LoginPlayer;
SetRun(true);
wait(500)
MakeCompass('n');
wait(1000);
mouse(594, 145, 1, 1, true);
if (FindSymbol(x, y, 'Short cut')) then
begin
Mouse(x, y, 5, 5, True);
Writeln('Found the crumbling wall');
end else
Writeln('Could not find crumbling wall');
end.
Correct me if I'm wrong