Yoko http://forum.yoko.com.ua/ |
|
помощь по розкладке изделий в мешки http://forum.yoko.com.ua/viewtopic.php?f=17&t=17619 |
Page 1 of 1 |
Author: | 7ice_k7 [ 2015-08-11 22:48:32 ] |
Post subject: | помощь по розкладке изделий в мешки |
что и где нужно вставить чтобы чар набывал полность мешок (255 штук изделий) а не брал новый мешок после каждого добора ингов помогите плиз sub Blacksmithy() VAR Sunduk1 = '0x4027B817' ; Сериал сундука с пустыми мешками VAR Sunduk2 = '0x40074B86' ; Сериал пустого сундука VAR Meshok = '0x0E76' ; Тип мешка VAR Logi = '0x1BF5' ; Тип ингов VAR Rubanok = '0x13E3' ; Тип инструмента блексмита VAR Udochka = '0x1414' ; Тип делаемого VAR Kolvo = 1000 ; Брать ингов (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","Armor") uo.automenu ('Colored Armor & Weapons', 'Silver Armor') uo.automenu ('Silver Armor', 'Silver Plate Armor & Shields') uo.automenu ('Silver Plate Armor', 'Silver Platemail Gauntlets') uo.waittargettype(Logi) UO.UseType( Rubanok ) 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 |
Author: | Mirage [ 2015-08-12 23:22:20 ] |
Post subject: | Re: помощь по розкладке изделий в мешки |
там же написано Code: UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1 этот участок выше While TRUE подними |
Author: | 7ice_k7 [ 2015-08-15 01:12:00 ] |
Post subject: | Re: помощь по розкладке изделий в мешки |
Mirage wrote: там же написано Code: UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1 этот участок выше While TRUE подними sub Blacksmithy() VAR Sunduk1 = '0x4027B817' ; Сериал сундука с пустыми мешками VAR Sunduk2 = '0x40074B86' ; Сериал пустого сундука VAR Meshok = '0x0E76' ; Тип мешка VAR Logi = '0x1BEF' ; Тип ингов VAR Rubanok = '0x13E3' ; Тип инструмента блексмита VAR Udochka = '0x1414' ; Тип делаемого VAR Kolvo = 1000 ; Брать ингов (3 инга = 1 ножик) VAR MeshSer, j, k UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1 MeshSer = UO.GetSerial( 'finditem' ) UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак wait( 2000 ) 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.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","Armor") uo.automenu ('Colored Armor & Weapons', 'Bronze Plate Armor') uo.automenu ('Bronze Armor & Shields', 'Bronze Armor & Shields') uo.automenu ('Bronze Armor & Shields', 'Bronze Platemail Gaunt uo.waittargettype(Logi) UO.UseType( Rubanok ) 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 вот переставил, но теперь пишет ошибка в 35 строке |
Page 1 of 1 | All times are UTC+02:00 |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |