Hi lols. I am creating a powerchopper. But when compiling at middle getting this error.
[Error] (1:1): Unexpected end of file at line 0
Compiling failed.
Simba Code:
Program PowerChopper;
{$DEFINE SMART}
{$i srl/srl.simba}
Const
SRLStats_Username = '';
SRLStats_Password = '';
BreakEvery = '';
BreakFor = '';
Version = '1.0';
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
With Players[0] do
begin
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
With Players[1] do
begin
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active:=True;
end;
End;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Function CheckAndClick(Uptext, Option:String; X,Y:Integer; RClick:Boolean) :Boolean;
begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 1500+Random(500)) Then
Begin
Result:=True;
GetMousePos(x, y);
If RClick Then
Begin
Mouse(x, y, 0, 0, False);
Result:= WaitOption(Option, 2000);
If Result Then FFlag(0);
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('Woodcutting', False)GameTab(20) End;
1: Begin StatsGuise('AntiBan')SleepAndMoveMouse(7000 + Random(500)); End;
2: Begin StatsGuise('AntiBan')GameTab(tab_Inv) ExamineInv; GameTab(20); End;
3: Begin StatsGuise('AntiBan')RandomAngle(1);End;
End;
End;
Procedure Failsafe(Reason:String);
Begin
Players[CurrentPlayer].Loc:=Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
Function ChopTree:Boolean;
Var
X, Y: Integer;
Begin
//FindObjCustom(x, y, ['', '']
If findObjCustom(X,Y, ['Chop','down', 'p d'], [1058866, 3493208, 3098710, 1450018], 30) Then
WriteLn('Ureka, We found a tree');
begin
SetUpSrl;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Repeat
ChopTree;
Until(false);
end;
Please help me.