error is at the bottom, still learning to code with simba.
program powerchopper;
{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$1 \SRL\SRL\Misc\Stats.simba}
Const
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
BreakEvery = 120; //how many minute to break after
Breakfor = 5; //how long to break for
numberofplayers =1; //how many players are you using
startplayer =0; //starting player
Version= '1.0';
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Active := True;
Integers[1] := 4; //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
Integers[2] := 4; //Seconds to try mining rock before clicking another.
end;
end;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
Begin
MMouse(x, y, 5, 5);
If WaitUptext(UpText, 5000) Then
Begin
Result:=True;
GetMousePos(x, y);
Case RClick Of
'R':
Begin
Mouse(x, y, 0, 0, False);
WaitOption('ine', 2000);
FFlag(0);
End;
'L':
Begin
Mouse(x, y, 0, 0,True);
Wait(100+Random(50));
FFlag(0);
End;
End;
End;
End;
Procedure Antiban;
Begin
Case Random(5000) Of
0:
Begin
PaintReport;
HoverSkill('woodcutting', False);
PaintReport;
GameTab(Tab_Inv);
PaintReport;
End;
1:
Begin
PaintReport;
PickUpMouse;
SleepAndMoveMouse(3000 + Random(500));
PaintReport;
PickUpMouse;
End;
2: ExamineInv;
3:
Begin
PaintReport;
RandomAngle(SRL_ANGLE_HIGH);
PaintReport;
SetAngle(SRL_ANGLE_HIGH);
PaintReport;
End;
4:
Begin
PaintReport;
GameTab(Tab_Stats);
PaintReport;
Wait(3000 + Random(500));
PaintReport;
GameTab(Tab_Inv);
End;
5:
Begin
PaintReport;
HoverSkill('random', False);
PaintReport;
GameTab(Tab_Inv);
End;
End;
End;
function chopdown:Boolean;
var
x,y:integer;
begin
if FindObjCustom(x,y,['chop','down'],[1585986,1585986,1388091],30)then
writeln('horray, we found it');
end;
begin
setupSRL;
DeclarePlayers;
repeat
chopdown;
until(false);
end.
Exception in Script: Unknown compiler directives at 5:3


Reply With Quote


