zonfire
2010-07-07 06:58:36
Procedure PickupTar;
var
Item : TGroundItem;
ItemPos : TPoint;
begin
WriteLn('at');
if(FindGroundItem(Item,231,30))then
WriteLn('Found');
begin
ItemPos := TileToMs(Item.Tile, Random(5));
Mouse(ItemPos.x, ItemPos.y,2,2,false);
wait(500+random(400));
R_ChooseOption('ake Sn');
Randyoms;
wait(200+random(50));
R_Flag
wait(200+random(100));
end;
end;
Should Find the tiem but instead moves mouse to world map any help please :)
var
Item : TGroundItem;
ItemPos : TPoint;
begin
WriteLn('at');
if(FindGroundItem(Item,231,30))then
WriteLn('Found');
begin
ItemPos := TileToMs(Item.Tile, Random(5));
Mouse(ItemPos.x, ItemPos.y,2,2,false);
wait(500+random(400));
R_ChooseOption('ake Sn');
Randyoms;
wait(200+random(50));
R_Flag
wait(200+random(100));
end;
end;
Should Find the tiem but instead moves mouse to world map any help please :)