He is using pixelshift already. But yeah, an animation difference of 30 pixels in 750 ms is very low. I'm pretty sure that you get a pixelshift of 30 pixels when doing nothing already. So definately increase that amount. To get the right number you can use a code like this
Simba Code:
begin
repeat
Wait(100 + Random(200));
WriteLn(''+IntToStr(PixelShift(IntToBox(220, 100, 290, 135), 1000))+'');
until(PixelShift(IntToBox(220, 100, 290, 135), 1000)<900)
end;
This will look for animations in the box 220, 100, 290, 135 for 1000 ms aka 1 second until the pixelshift has passed 900. You can simply replace those numbers with the box you defined. Just keep testing it and look at the numbers it returns so you know what number to put in. Eventually you can replace the loop with a simple repeat, wait, until pixelshift loop.
Also, for the InvFull part
Simba Code:
if GetCurrentTab = not(tab_Inv) then
FTab(tab_Inv);
Put that somewhere in your script because it relies on the inventory. If your inventory isn't visible the script can't determine if it's full. You can also use a failsafe by reading the chatbox text.
The problem with that is that once you dropped all the ores, the chatbox text will still be visible. But you can put something after the repeat until loop like. If FindChatBoxText('full', 8, clBlack) then MarkTime(t).
Then in your repeat until you can put or TimeFromMark(t)>60000. Then after the repeat until you can put it TimeFromMark(t)>60000 then if FindChatboxtext(blablabla) then t:=0; next procedure.
Simba Code:
program Test;
{$i srl/srl.simba}
function FindRock:Boolean;
begin
WriteLn('Found a rock');
Result:=True;
end;
procedure Antiban;
begin
WriteLn('Antiban');
end;
procedure MineRock;
var
x, y, t : Integer;
Box : TBox;
begin
if not(LoggedIn) then Exit;
MakeCompass('N');
MarkTime(t);
Box := IntToBox(MSCX - 10, MSCY - 25, MSCX + 15, MSCY + 15);
repeat
if not(FindNormalRandoms) then
begin
if FindRock then
begin
Wait(RandomRange(150, 250));
Mouse(x, y, 2, 2, mouse_Left);
repeat
Wait(50 + Random(100));
AntiBan;
WriteLn(''+IntToStr(PixelShift(Box, 750))+'');
until(PixelShift(Box, 750)<900)
Wait(RandomRange(50, 150));
end else
Exit;
end;
until(InvFull) or ((TimeFromMark(t)>60000) and (FindChatBoxText('full', 8, clBlack)));
if TimeFromMark(t)>60000 then
t:=0;
end;
begin
ActivateClient;
MineRock;
end.
Should compile.