I need help fixing errors in the first part of my fishing script its still under development and this is not the whole script
SCAR Code:
program LobbyFishNBank;
{.Include SRL\SRL.SCAR}
var
x, y, DTM, LoadsDone, BankDTM, LobsterDTM:Integer; //Dont Touch unless you know what your doing
procedure DeclarePlayers;
begin
SRLID:= ''; //Your SRL ID here if you dont have one register
SRLPassword:= ''; //Your SRL Password here
HowManyPlayers := 5; //How many players to bot with
CurrentPlayer := 0; //Player to start on
NumberOfPlayers(HowManyPlayers); //Dont Touch this
Players[0].Name :=''; //Username
Players[0].Pass :=''; //Password
Players[0].Nick :=''; //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
Players[0].Active:=True; //Is this player going to bot? (True=yes, False=no)?
Players[1].Name :=''; //Username
Players[1].Pass :=''; //Password
Players[1].Nick :=''; //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
Players[1].Active:=True; //Is this player going to bot? (True=yes, False=no)?
Players[2].Name :=''; //Username
Players[2].Pass :=''; //Password
Players[2].Nick :=''; //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
Players[2].Active:=True; //Is this player going to bot (True=yes, False=no)?
Players[3].Name :=''; //Username
Players[3].Pass :=''; //Password
Players[3].Nick :=''; //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
Players[3].Active:=True; //Is this player going to bot (True=yes, False=no)?
Players[4].Name :=''; //Username
Players[4].Pass :=''; //Password
Players[4].Nick :=''; //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
Players[4].Active:=True; //Is this player going to bot (True=yes, False=no)?
end;
procedure LoadDTMS(TheDTM:String); //Holds The DTMS
begin
Case LowerCase(TheDTM) of
'lobster' : LobsterDTM := DTMFromString('78DA6334676060D0644001196622609A11CA6' +
'7B40212320C688011558D2B909027A0C616489813506300248C08' +
'A851031206F8D50000A7D5030A');
'bank' : BankDTM := DTMFromString('78DA6354656060D06640011F9FE9806946289' +
'F511D4888A1AAF9F74F18558D2990904357C387AA4617482832A0' +
'01465435DAD8CC41B34B0348C8E3B70B0034FD0C01');
end;
procedure AntiRandoms; //Handles Randoms Error here
var
i : Integer;
begin
Status('Doing AntiRandoms');
for i := 0 to 3 do
FindNormalRandoms;
FindFightEx;
FindNonInventoryRandoms;
wait(1);
end;
procedure AntiBan; //Lots of antiban :D Error here to
if not LoggedIn then Exit;
case Random(9) of
0:
begin
HoverSkill('Fishing', False)
end;
1:
begin
GameTab(1 + Random(13));
wait(800 + Random(700));
Gametab(4);
end;
2:
begin
BoredHuman;
end;
3:
begin
AlmostLogout;
end;
4:
begin
PickUpMouse
end;
5:
begin
RandomRClick;
end;
end;
end;
begin
SetUpSRL;
LoginPlayer;
AntiRandoms;
AntiBan;
end.
Line 62: [Error] (12669:1): Identifier expected in script