BobboHobbo
2009-06-24 11:18:50
Well im making a reflection mining script and to find my ores i use this:
But it takes 9438MS to find the ore, bit to much yea?
Well what can i do to speed it up?
function ClickOre(UID: integer): Boolean;
var
Tile1, Tile2, OREMS: TPoint;
x, y, d, e: integer;
begin
MarkTime(D);
if not FindObject(Tile1, UID) then Exit;
OreMS := TileToMS(Tile1, Random(5));
case Random(2) of
0: Mouse(OreMS.x, OreMS.y, 0, 0, R_IsUpText('ine R'));
1:
begin
Mouse(OreMS.x, OreMS.y, 0, 0, R_IsUpText('ine R'));
wait(200 + random(500));
R_ChooseOption('ine R');
end;
end;
Result := True;
E := GetSystemTime - D;
Writeln(IntToStr(E));
end;
But it takes 9438MS to find the ore, bit to much yea?
Well what can i do to speed it up?