Errm, on line 35, when i run this script, it never saves the furnace minimap icon color... to x,y, thus not allowing me to click the x,y, any ideas?
program AlKharidDefultSmither;
var x, y: Integer;
const
IronOreColour= 1515834;
CoalOreColour= 1780523;
FurnaceMiniMap= 1245183;
FurnaceColor= 1572863;
procedure ClickOre;
begin
if (IronOreColour=1515834) then
begin
ClickMouse (724+random(2), 331-random(2), False);
Wait(200+random(200))
ClickMouse (730, 384, True);
end;
end;
procedure ClickCoal;
begin
if (CoalOreColour= 1780523) then
begin
ClickMouse (771+random(3), 331-random(2), False);
Wait(200+random(200))
ClickMouse (764+random(3), 436-random(2), True);
end;
end;
procedure MoveToFurnace;
begin
ClickMouse (1815,43, True);
Wait(9000+random(500))
if (FindColor(x,y,FurnaceMiniMap,0,0,1800,760)) then <<<-------HERE
begin
Wait(500)
ClickMouse(x,y,True);
end;
end;
Procedure Smelt;
Begin
ClickMouse(260, 707, False);
ClickMouse(262, 756, True);
End;
begin
ClickOre;
Wait(600+random(300))
ClickCoal;
Wait(300+random(300))
MoveToFurnace;
Smelt;
end.


Reply With Quote



