Da`Bazz

Таак а теперь реально работающий скрипт от Misharik с моими изменениями. Теперь крафтит болты. ###################################################################### sub Bowcraft() var Kolvo=1 # Вот изменение, задаем переменныю на количество шафтов спола while uo.count("0x1BD1") > 0 uo.findtype("0x1BD4", -1, "ground") UO.Grab( Str( Kolvo ), 'finditem' ) # Далее когда грабим вводим нашу переменную, иначе он берет # Все сразу repeat wait(250) until uo.count("0x1BD4") > 0 uo.waitmenu("What", "Bolt") uo.waittargettype("0x1BD1") uo.usetype("shaft") uo.deletejournal() repeat wait(250) until uo.injournal("You create") or uo.injournal("You destroy") if uo.injournal("Hangry") or uo.injournal("hurts") then # Проверка журнала на предмет голодности чара repeat # Проблемма в том что на мидле пишет что чар # проголодался по русски. По этому здесь еще # надо подумать uo.usetype("food") wait(500) until uo.injournal("You are full, and") endif wend end sub

Вот нашел скриптик на BowCraft но возникли небольшие трудности: ##################################################################### ; Bowcraft2. v.1.01b © Edred ; ; Чар берет из сундука шафты и перья, крафтит из них стрелы и ; складывает эти стрелы в этот же сундук. ; Если шафты или перья закончились - выход. ; sub bowcraft2() VAR Sunduk = '0x404CFAA3' ; Сериал сундука VAR Shafts = '0x1BD4' ; Тип шафтов VAR Feather = '0x1BD1' ; Тип перьев VAR Arrows = '0x0F3F' ; Тип стрел VAR Kolvo = 1 ; Брать шафтов для одного крафта VAR k = 0, j UO.CancelMenu() UO.AutoMenu ('Select arrow type', 'arrow' ) While TRUE If UO.Count( Shafts ) == 0 Then UO.FindType( Shafts, -1, Sunduk ) If UO.FindCount() == 0 Then UO.Print("Shafts not found, script terminated") return Endif UO.Grab( Str( Kolvo ), 'finditem' ) wait(500) while UO.Count( Shafts ) < Kolvo wait(100) wend CheckLag() Endif If UO.Count( Feather ) == 0 Then UO.FindType( Feather, -1, Sunduk ) If UO.FindCount() == 0 Then UO.Print("Feather not found, script terminated") return Endif UO.Grab( Str( Kolvo ), 'finditem' ) wait(500) while UO.Count( Feather ) < Kolvo wait(100) wend CheckLag() Endif UO.DeleteJournal() UO.UseType( Shafts ) k = 0 while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) k = k + 1 wait(300) wend If UO.Count( Arrows ) > 0 then UO.FindType( Arrows, -1, -1 ) UO.MoveItem( 'finditem', 0, Sunduk ) wait(500) while UO.Count( Arrows ) > 0 wait(100) wend UO.Print( 'Arrows moved' ) Endif Wend end sub Непрнятно где брать сериал сундука или как его адаптировать под минл?