I am currently having a weird problem. The problem is that when it doesn't find a rock for I think about like 10 seconds, it thinks that the inventory is full and starts to walk to the bank when the inventory isn't full.
Can someone Please help?
Thanks
~BoBO
ALL help would be repped
This is the part of the script:
SCAR Code:
function FindOres(var tx, ty: Integer):boolean; //Made by Me :)...
var
i: integer;
IronPoints: TPointArray;
Iron2D : T2DPointArray;
IronPoint : TPoint;
begin
if not LoggedIn then exit;
x:= MSCX;
y:= MSCY;
begin
FindColorsSpiralTolerance(tx,ty,IronPoints,2832993,MSX1,MSY1,MSX2,MSY2,7);
Iron2D:= TPAtoATPAEx(IronPoints,3,3);
for i:= 0 to length(Iron2D)-1 do
begin
if not LoggedIn then exit;
Ironpoint:= MiddleTPA(Iron2D[i]);
tx:= IronPoint.X;
ty:= IronPoint.Y;
MMouse(tx,ty,2,2);
wait(90+random(50));
if isuptext('ine')then
begin
GetMousePos(tx,ty);
result:= true;
Exit;
end else Continue;
end;
end;
end;
procedure MinedaRock;
var
i, MiningTime : Integer;
Blacktext : string;
begin
MakeCompass('N');
SetAngle(True);
SetRun(True);
if Pickaxeuse ='rune' then
begin
WaitPerRock :=(3000+ random(500));
end;
if Pickaxeuse ='addy' then
begin
WaitPerRock :=(4000+ random(500));
end;
if Pickaxeuse ='mith'then
begin
WaitPerRock :=(6000+ random(500));
end;
if Pickaxeuse ='steel'then
begin
Writeln('Try to use a better pickaxe');
WaitPerRock :=(8000+ random(500));
end;
if Pickaxeuse ='iron'then
begin
Writeln('Are you serious? an Iron pickaxe, come back with at least a steel pickaxe');
Logout;
NextPlayer(false);
exit;
end;
if Pickaxeuse='bronze'then
begin
Logout;
Writeln('LOL, noob get at LEAST a steel pickaxe');
Nextplayer(false);
exit;
end;
for i := 0 to 2 do
repeat
if Not(LoggedIn) then exit;
Myrandom;
FindGas;
if not FindOres(x, y) then
begin
Trys:= 0;
repeat
Trys := Trys + 1;
wait(50+ random(20));
if Trys > 30 then exit;
until FindOres(x, y);
end else
Mouse(x,y,2,2,True);
MarkTime(MiningTime);
Wait(1500+ random(250));
Myrandom;
FindGas;
repeat
BlackText := GetBlackChatMessage;
if (getcolor(486, 384) = 0) then
Wait(250+Random(300));
until (Pos('anage', BlackText) <> 0) or (Pos('vailable', BlackText) <> 0) or (TimeFromMark(MiningTime) > (WaitperRock +random(250))); // this is not an endless loop because it has mark time used..
until (InvFull);
if not(InvFull) then
begin
MinedaRock;
end else
begin
writeln( 'Inventory Full walking to bank.' );
end;
end;
Note: I tried to fix the problem as you can see by putting "if not InvFull" but that didn't work so can someone give me a solution?