Could someone please test my script hope this is the right area to post.
Script is:
SCAR Code:
//Major Cred to iron_man_ftw, Narcle
program MyPowerMine;
{.Include SRL\SRL.SCAR}
var
x, y : integer;
const
RockColor1 = 2437977;
RockColor2 = 2306390;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Booleans[0] := True;//True for equipped Pickaxe. False for in Inv
end;
{ ____
NO /____\ Entrance
<><><><><><><><><><><><><><>|Master|<><><><><><><><><><><><><><><><>
|______| }
Procedure AntiRandoms;
begin
If(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp('Mining');
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case Random(30) of
1: RandomRClick;
2: HoverSkill('Woodcutting', False);
3: RandomMovement;
4: BoredHuman;
5: DoEmote(400 +Random(90));
end;
end;
procedure RockMining;
begin
repeat //move repeat up here
if not LoggedIn then //place failsafe inside repeat
Exit;
if FindObjTPA(x, y, RockColor, 20, 2, 20, 20, 10, ['ine', 'Min', 'Mine']) then //just this one is needed
begin//added a begin
case Random(2) of
0: begin
Mouse(x, y, 4, 4,false);
ChooseOption('ine');
end;
1:Mouse(x, y, 4, 4, True);
end;
Wait(2000+random(1000));//wait for it to be mined
end;//added a end
until (InvFull)
end;
procedure DropOres;
var
i: integer;
begin
if (InvFull) then
case Players[CurrentPlayer].Booleans[0] of
True: DropAll;
False: begin
for i := 2 to 28 do
DropItem(i);
end;
end;
Wait(500 + random(1501));
end;
Procedure Signature;
begin
Writeln(' ___ ___ ___ __ __ ___ ___ ');
wait(50)
Writeln(' | \ / | | | | \ | | |/ / ');
wait(50)
Writeln(' | \/ | | | | \ | | / ');
wait(50)
Writeln(' | |\/| | | | | \| | \ ');
wait(50)
Writeln(' | | | | | | | |\ | \ ');
wait(50)
Writeln(' |___| |___| |___| |__| \___|___/\___\ ');
end;
begin
SetupSRL;
Signature;
ActivateClient;
repeat
RockMining;
AntiBan;
DropOres;
AntiBan;
until (False)
end.