BS с переплавкой

[soulen]

Уважаемые скриптеры. Есть скрипт на блексмит с переплавкой и в нем функция переплавки организована таким вот образом. Пожалуйста помогите добавить в процедуру проверку на количество изготовленных вещей (допустим 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;

заранее благодарен за помощь.

[Alex]

вот тут перечислены функции для одевания\снятия вещей http://stealth.od.ua/wiki/doku.php?id=% ... 0%BE%D0%B8

[soulen]

уважаемый алекс, я не шарю в скриптинге совсем ничего... так подправить скрипт немного и все. Не могли бы хоть приблизительно дописать в процедуру проверку на кол-во и одевание по айди веще. Очень помогли бы )

функцию андрес перед ковкой я еще допишу коекак) а вот остальное не смогу(

[Lietman]

возможно смогу помочь, в аську напиши

[soulen]

Спасибо лейтману за помощь!