BS с переплавкой
Posted: 24.02.2012 16:37
Уважаемые скриптеры. Есть скрипт на блексмит с переплавкой и в нем функция переплавки организована таким вот образом. Пожалуйста помогите добавить в процедуру проверку на количество изготовленных вещей (допустим 100 штук), одевание молотка по айди (+к бс) и плюсовых вещей, потом собственно переплавка плейтов и снятие вещей. Хочу сделать так, потому что он при большом скиле бса он переплавляет гораздо лучше, но если ковать в вещах, то не растет(
заранее благодарен за помощь.
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;