hai guys,
my problem is that if the power miner still mines after the inventory is full.
and that it doesn't drop ores at all.
Code:function DropOres: Boolean; begin if InvFull then begin Writeln('Inventory is full!'); if Players[CurrentPlayer].Booleans[0] then DropAll else DropAllExcept([1]); end; Result := True; Inc(Loads); end;any help?Code:function MineRockType: Boolean; var PlayerRock: TRock; T: Integer; begin PlayerRock := GetRockType; x := MSCX; y := MSCY; SetAngle(True); repeat Amount := InvCount; if FindColorSpiralTolerance(x, y, PlayerRock.Color, MSX1, MSY1, MSX2, MSY2, 5) then begin MMouse(x, y, 2, 2); if WaitUptext(PlayerRock.Uptext, 200) then begin Writeln('Found ' +PlayerRock.Name+ ' rock!'); GetMousePos(x, y); Wait(500 + Random(150)); Mouse(x, y, 0, 0, True); MarkTime(T); while (TimeFromMark(T) < 3000 + Random(500)) do begin Wait(500); if ((InvCount <> Amount) or (InvFull)) then Break; end; if InvCount <> Amount then begin AntiBan; Writeln('Mined a ' +PlayerRock.Name+ ' ore(maybe a gem)!'); Inc(Ore); Result := True; end else begin Writeln('We did not mine a ' +PlayerRock.Name+ ' ore or gem.'); Writeln('Inventory could be full!'); Result := True; Exit; end; end else begin Writeln('Did not found uptext of the: ' +PlayerRock.Name+ ' rock.'); LogOut; TerminateScript; end; end else begin Writeln('Did not found: ' +PlayerRock.Name+ ' rock.'); LogOut; TerminateScript; end; until(InvFull) or (Result); end;



Reply With Quote



