Code: sub Blacksmithy() VAR Sunduk1 = '0x4027B817' ; Сериал сундука с пустыми мешками VAR Sunduk2 = '0x40074B86' ; Сериал пустого сундука VAR Meshok = '0x0E76' ; Тип мешка VAR Logi = '0x1BEF' ; Тип ингов VAR Rubanok = '0x13E3' ; Тип инструмента блексмита VAR Udochka = '0x1413' ; Тип делаемого VAR Kolvo = 500 ; Брать ингов (3 инга = 1 ножик) VAR MeshSer, j, k While TRUE UO.FindType( Logi, -1, Sunduk2 ) ; Ищем инги в сундуке 2 UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем инги в пак wait( 2000 ) If UO.FindCount() == 0 Then UO.Print("Logs not found, script terminated") return Endif UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1 MeshSer = UO.GetSerial( 'finditem' ) UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак wait( 2000 ) UO.MoveItem( MeshSer, 0, Sunduk2 ) wait( 2000 ) While UO.Count( Logi ) > 12 ; Пока в паке есть инги UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' ingov' ) UO.DeleteJournal() UO.CancelMenu() UO.automenu('Blacksmithing','Colored Armor & Weapons') uo.automenu ('Colored Armor & Weapons', 'Rusty Armor') uo.automenu ('Rusty Armor', 'Rusry Plate Armor & Shields') uo.automenu ('Rusry Plate Armor & Shields', 'Rusty Platemail Gorget') uo.UseType(Rubanok) uo.waittargettype(Logi) k = 0 while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) k = k + 1 wait(500) wend ; Wait( 14000 ) ; Скрафтили даггер ; Сразу переложим ее в мешок if UO.Count( Udochka ) > 0 then UO.FindType( Udochka, -1, 'backpack' ) UO.MoveItem( 'finditem', 0, MeshSer ) wait( 2000 ) UO.Print( 'dagger perelozhen' ) end if Wend Wend end sub меню было под даггеры из айрона, я вот пытаюсь переделать под изготовление из цветных ингов. меню менял сам, все какбы норм, берет инги, мешок начинает работать меню блексмита и тут все- пишет "вайт таргет канселед???"(только по английски ) и чар просто стоит. помогите плиз разобратся что и где я напутал
|