SRL Archive - OSR Help

Ive been watching YoHoJo's tutorial videos. Im on the 2nd one and when i try to compile my script it highlights declareplayers and it says: [Error] (19:1): Semicolon (';') expected at line 18
Compiling failed.


Ive tried copying and pasting the declareplayers part from another script thinking mabey i mistyped something when i typed it.

This is what my script looks like right now:


program PowerChoper;

{$DEFINE SMART}
{$i SRL\SRL.simba}




Const
SRLSTATS_USERNAME = ''; // SRL Stats Username.
SRLSTATS_PASSWORD = ''; // SRL Stats Password.
BreakEvery= 120; // How many minutes to break after.
BreakFor= '5'; // How long to break for.
NumbOfPlayers= 1; // How many players are you using?
StartPlayer= 0; // Player to start autoing with.
Version= '1.0' // NO TOUCHY!

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Player Username
Pass := ''; // Player Password
Pin := ''; //Pin for bank
Active := true;
end;
end;


Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguiese(wat);
End;

Function CheckAndClick(UpText:String; X,Y:Integer; Stronger:Boolean):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 5000) Then
Begin
GetMousePos(x, y);
If Stronger Then
Begin
Mouse(X, Y, 0, 0, False);
Result:=WaitOption('tta', 3000)
End Else
Begin
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;
End;


Procedure Antiban;
Begin
Case Random(250) Of
0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcut', False) GameTab(28) End;
1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
End;
End;

Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;

Function ChopDown;
Var
x, x:Integer;
Begin
//FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5;
If FindObjCustom(x, y, ['Chop', 'down', 'p d'], [725522, 988951, 2043700, 1384222], 30) Then
WriteLn('FK YEA..IMA CHOP YU DOWN TREE');
End











begin
SetupSRL:
DeclarePlayers;
Repeat
ChopDown
Until(false);
end.



Please comment with any ideas on what im doing wrong.





Thank you tehq, I will do that.






After doing what tehq suggested, its still saying the same thing when I try to compile it.
My declareplayers now looks like this:

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := ''; // Player Username
Pass := ''; // Player Password
Pin := ''; //Pin for bank
Active := true;
Smart_Members := False;
Smart_Server := 0;
Smart_Signed := True;
Smart_SuperDetail := False;
end;
end;

add

Smart_Members := False;
  Smart_Server := 0;
  Smart_Signed := True;
  Smart_SuperDetail := False;

before SetupSRL and

LoginPlayer;

after DeclarePlayers

Try to post in the correct section.

Version= '1.0' // NO TOUCHY!
you are missing a semicolon
Version= '1.0'; // NO TOUCHY!
should fix that part

From: bolshak25
Version= '1.0' // NO TOUCHY!
you are missing a semicolon
Version= '1.0'; // NO TOUCHY!
should fix that part

Thanks you very much! that worked!