I got this error in the Walking procedure.
SCAR Code:
program AutoChop;
{.include srl/srl.scar}
//var integer : string;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := 'Ida Frigate';
Players[0].Pass := 'starbridge';
Players[0].Nick := 'frig';
Players[0].strings[0] := 'Oak'; //Tree type to chop. Valid Entries: Oak, Tree, Willow. //First letter must be uppercase.
Players[0].strings[1] := 'Bank'; // Location. Valid Entries: EastBank, Willows, Bank.
Players[0].Active := True;
end;
Procedure Walking;
begin
If Players[CurrentPlayer].strings[0]:= 'Oak' then
begin
If Players[CurrentPlayer].strings[1]:= 'Oak' then exit
end else
begin
//OakWalk;
end;
If Players[CurrentPlayer].strings[0]:= 'Tree' then
begin
If Players[CurrentPlayer].strings[1]:= 'Tree' then exit
end else
begin
//TreeWalk;
end;
If Players[CurrentPlayer].strings[0]:= 'Willow' then
begin
If Players[CurrentPlayer].strings[1]:= 'Willow' then exit
end else
begin
// WillowWalk;
end;
end;
begin
setupsrl;
activateclient;
declareplayers;
Walking;
end.