Simba Code:
program ArdongueIronPowerMiner;
//{$DEFINE SMART}
{$i SRL\SRL.scar}
{$i SRL\SRL\Misc\Debug.SCAR}
{$i SRL\SRL\Misc\Stats.simba}
Const
SRLStats_Username = ''; // Your SRL Stats Username
SRLStats_Password = ''; // Your SRL Stats Password
BreakEvery = 120; // How many minutes you want to break after
BreakFor = 5; // How long to break for
Version= '1.00'; // Dont need to change
NumbOfPlayers= 1; // How many players you are botting
StartPlayer= 0; //Player to start autoing with (0 means 1st player)
procedure DeclarePlayers;
var i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
Players[i].BoxRewards := ['oins', 'XP'];
with Players[0] do
begin
Name := ''; //Player username.
Pass := ''; //Player password.
Nick := ''; //Player nickname - 3-4 letters of Player username.
Active := True;
Integers[1] := 4; //Seconds to try mining rock before clicking another.
end;
end;
Procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
Procedure Antiban;
Begin
Case Random (140) of
0: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
1: Begin StatsGuise('Antiban') GameTab(Tab_Stats) HoverSkill('Mining', False) GameTab(28); End;
End;
End;
Procedure FailSafe(Reason:String);
Begin
Players[CurrentPlayer].Loc := Reason;
Logout;
Stats_Commit;
//ProgressReport;
TerminateScript;
End;
Function MineIronOre:Boolean
;Var
X, Y: Integer;
Begin
//FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5);
If FindObjCustom(x, y, ['ine', 'ocks', 'e R'], [2569562, 3029076, 2766945], 15) Then
WriteLn ('Found ore')
End;
Begin
SetupSRL;
DeclarePlayers;
Repeat
MineIronOre;
Until(false);
End
still get this error even after changing the position of the colon after the boolean
[Hint] (68:10): Variable 'Result' never used at line 67
[Error] (1:1): period ('.') expected at line 0
Compiling failed.