Currently working on a Draynor TreeCutter but my script won't accept 'bank' as a valid input for FindSymbol. Actually it won't accept any inputs at all since they will all create the same error:
** Warning in GetSymbolColorIn: bank is not a valid name.**
My script:
pascal Code:
program New;
{.include SRL/SRL.Scar}
{.include SRL/SRL/Misc/Users.Scar}
{.include SRL/SRL/Skill/Woodcutting.Scar}
const
RepeatPlayers = True;
var
TheFS: Integer;
Loads: Integer;
Active: Boolean;
procedure W(WaitTime: Integer);
begin
Wait(WaitTime + Random(1000));
end;
function FS(Times: Integer): Boolean;
begin
if (TheFS >= Times) then
begin
TheFS := 0;
Result := True;
end;
Inc(TheFS);
end;
procedure Setup;
begin
SetupSRL;
SRLPlayerForm(True, ['Bank Logs'], ['Loads each turn', 'MaxLoads'], [], []);
Active := RepeatPlayers;
end;
procedure Prepare;
begin
SetRun(True);
SetAngle(True);
MakeCompass('n');
if (Players[CurrentPlayer].Integers[0] > Players[CurrentPlayer].Integers[1]) or not(FindAxe) then
begin
Active := False;
Logout;
end;
end;
procedure NextMan;
begin
if LoggedIn then
Exit;
NextPlayer(Active);
Active := RepeatPlayers;
Prepare;
end;
procedure CheckLocation;
var
x, y: Integer;
begin
if FindSymbol(x, y, 'bank') then
begin
while not FindBank('db') do
begin
if FS(10) then
Break;
Mouse(x, y, 5, 5, True);
FFlag(5);
end;
Writeln('We have opened the bank');
end;
end;
begin
Setup;
repeat
NextMan;
CheckLocation;
//if AtBank then
//WalkToTrees;
//Chop;
//WalkToBank;
//BankLogs;
until AllPlayersInactive;
end.