hey there i tried including that wait string that you suggested but now it waits 5 seconds before starting and then waits 5 seconds after clicking. Then for some reason it click the empty vein that it has just mined again. Could you take a look at this code, maybe run it and advise me what to do? thanks (:
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'], [2766942,3162219], 10) Then
Begin
StatsGuise('Found ore')
Wait(4000 + RandomRange(500, 2000));
GetMousePos(x, y);
Case Random(2) Of
0: Mouse(x, y, 5, 5, True);
1: Begin
Mouse(x, y, 5, 5, False);
WaitOption('Mine', 500);
End;
End;
End;
End;
Begin
SetupSRL;
DeclarePlayers;
Repeat
MineIronOre;
Until(false);
End.