[MemoryError] Simple light animica miner.

Next to Tirannwn lodestone there is a mining spot. Probably somewhere else aswell. This script mines until ore box is full.

Requirements:
Plugin. https://villavu.com/forum/showthread.php?t=116686
Pic.
Elder rune ore box.

Simba Code:

program Test;
{$loadlib MemoryError}
var
count1,count2,varB,Timer1:Int32;


Function CheckTimer():Boolean;
begin
if (Round(GetTickCount()/1000)-Timer1>40+Random(40)) then
begin
Timer1 := Round(GetTickCount()/1000);
Result:=True;
end;
end;

begin
SetupRSReading(True," ");
Timer1 := Round(GetTickCount()/1000);
repeat
wait(240+random(4500));

//watch for serenspirits
if (FindNPCs1([26022,27228],2,20,0,0,[0,0],0,0,'Capture')) then
begin
Beep1();
wait(240+random(2500));
end;
//light 8324, dark 8325, rune 8318, luminite 8316
varB:=ReadPSettings(8324)-1638400;
Writeln('Amount in box:'+tostring(varB));

//To stop infinite loops!
if (not CheckInvOpen())then begin Writeln('Inventory not open!');TerminateScript(); end;
if ((varB>140) or (varB<0))then begin Writeln('OverLimit1');TerminateScript(); end;
if (count1>25)then begin Writeln('OverLimit2');TerminateScript(); end;
if (count2>5)then begin Writeln('OverLimit3');TerminateScript(); end;
//if (varB=140)then begin Writeln('Full');TerminateScript(); end;

if (not InvFull) then
begin
if (random(1000)>970)then begin writeln('P');PlayerIdle(); end;
if (not CheckPAnim(155) or CheckTimer()) then
begin
//dark [113022,113021,113021]
//light [113017,113018,113019]
//luminite [113116,113117,113118]
//runite [112963,112964, 112964]
if (FindAobj([113017,113018,113019],3,6,[0,0],[0,0],False,0,'Mine')) then
begin
count2:=0;
count1:=count1+1;
wait(2111);
end;
end;
end else
begin
if(varB<140)then
begin
Writeln('Elderruneorebox fill');
count1:=0;
count2:=count2+1;
if ClickInv(44797,99) then
begin
wait(1800);
end;
end;
end;
until(false)
end.