Well I am coming up with the error:
Line 69: [Error] {15097:16) Identifier expected in script
I've tried going through it a few times to see what was wrong and I haven't been able to put my finger on it.
I've searched on the forums and haven't had any luck yet.
So here is my script so far, its simple and it uses the basics with a bit more I've picked up from other scripts. It's not really anything special but I am trying.
-----------------------------------------------------------------------------
//************************************************** *************************//
//****************Set your desktop to True 32 bit high color*****************//
//****************Set your game to the highest brightness low detail*********//
program New;
{.include SRL/SRL.scar}
var
TreeColor: array[0..1] of integer;
const
LoadsPerPlayer = 10; //Numer of backpacks full of logs before the next player
WaitPerTree = 5000; //the time to wait while we are chopping trees
TreeColor0= 2182984;
TreeColor1= 2705214;
MySRLID = ''; //enter your SRLID here
MySRLPasssword = ''; //enter your SRL Password here
VersionNumber = '0.01';
Debanme = 10;
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:= True;
//Copy and past the above Players array and replace the [0] with the
//the next number the player is..I.E Players[1] .Name :='';
end;
procedure ChopTree;
var
x, y, MyMark : integer;
begin
if not Loggedin then Exit;
MarkTime(MyMark);
repeat
if FindObj(x, y, 'ree', TreeColor0, 30) then
begin
Mouse(x, y, 0, 0, False);
if ChooseOption('ree') then
begin
//increase 1 to the total tree chop - if we had one
Wait(WaitPerTree);
Exit; //We clicked chop, now we can exit this procedure.
end;
end;
if TimeFromMark(MyMark) > (2 * 60 * 100) then
begin
Logout;
Exit;
end;
until false
end;
procedure Randoms;
begin
Findnormalrandoms;
end;
procedure Antibanactions;
begin
//this is where the problem is at
Antibanactions := Random(10)
Case Antibanactions of
0: RandomRClickEvery(2+Random(13));
1: HoverSkill9'Mining',False);
2: RandomChatEvery(10+Random(5));
3: RotateEvery(20+Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'Attack');
6: PickUpMouse;
7: BoredEvery(9 + Random(24));
8: DragItem(1, 1 + Random(18));
9: GameTab(1 + Random(12));
10: RotateEvery(7 + random(4));
end;
Procedure ProgressReport;
begin
writeln(' ');
WriteLn('<============-'+VersionNumber+'- Progress Report ==============>');
writeln('Worked for '+ TimeRunning);
PlayerStats;
SRLRandomsReport;
SendSRLReport;
end;
begin
SetupSRL;
SRLID := MySRLID;
SRLPassword := MySRLPassword;
DeclarePlayers;
Randoms;
Findnormalrandoms;
Debanme;
if Loggedin then Logout;
LoginPlayer;
repeat
ChopTree;
if InvFull then
begin
DropTopPosition(2, 28);
Inc(Players[CurrentPlayer].Banked);
if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
if not Loggedin then NextPlayer(False);
until false;
end.


Reply With Quote










