Code: Select all
procedure Resmelt;
begin
armslore;
findtype(ItemType,backpack);
while FindCount() > 0 do
begin
Clearjournal();
checksave;
CheckTargetError(2,2);
if targetpresent then canceltarget;
k:=0;
TimeStart:=Now;
Item:=FindType(ItemType,Backpack);
WaitTargetObject(Item)
repeat
UseObject(FindType(TongsType,Backpack));
k := k + 1;
wait(2000);
until (InJournalBetweenTimes('What do you wish to smelt into ingots?|has to be', TimeStart, Now)<>-1) or (k > 7);
WaitTargetObject(ForgeObj);
repeat
wait(100);
k := k + 1;
until (InJournalBetweenTimes('You turned|ailed|That cannot be melted down!', TimeStart, Now)<>-1) or (k > 300);
findtype(ItemType,backpack);
clearjournal;
end;
findtype(ItemType,backpack);
end;