smell

Program TestBS;

const

Forge = $40602C20;
Ore = $19B9;

WaitTime = 500;
WaitLagTime = 10000;

procedure SmellOre;
begin
if FindTypeEx(Ore,$FFFF,Backpack,False)>0 then begin
UseObject(FindItem);
WaitForTarget(WaitTime);
if TargetPresent then begin
TargetToObject(Forge);
Wait(WaitTime);
end;

end;

begin
SmellOre;
end.