SCAR Code:
Procedure MineOre;
label
Loads1;
label
Loads2;
label
SkipMine;
var
Loads, SafeOre, x, y: Integer;
begin
Loads1:
MultiStuff;
Loads2:
repeat
if IsFKeyDown(4) then
begin
ProgressReport;
end;
if AllPlayersInactive then
begin
Logout;
TerminateScript;
end;
wait(180 +random(320));
Inc(SafeOre);
if FindColorSpiralTolerance(x, y, RockColor, 0, 0, 514, 336, 10) then
begin
Status('Clicking Ore');
MMouse(x, y, 8, 8);
wait(120 +random(80));
if IsUpText('ock') then
begin
SafeOre := 0;
GetMousePos(x, y);
case random(20) of
1: begin
Mouse(x, y, 0, 0, false);
wait(85+random(165));
ChooseOption('ine');
goto SkipMine;
end;
end;
Mouse(x, y, 0, 0, true);
SkipMine:
Status('Mining Ore');
AntiRandoms;
WaitWhileMine;
end;
AntiRandoms;
end;
until (InvFull) or (SafeOre > 25);
wait(120 +random(80));
if InvFull then
begin
SafeOre := 0;
DropOre;
Inc(Loads);
end;
if (SafeOre > 25) then
begin
Loads := 0;
LogOut;
NextPlayer(false);
end;
if (Loads >= LoadsToDo) then
begin
Loads := 0;
LogOut;
ClearDebug;
ProgressReport;
NextPlayer(true);
goto Loads1;
end;
if not AllPlayersInactive then
begin
goto Loads2;
end;
WriteLn('All players are inactive.');
TerminateScript;
end;
Getting invalid jump, Halp?