Yoko http://forum.yoko.com.ua/ |
|
Помогите разобраться в проблеме(скрипт на тинкеринг) http://forum.yoko.com.ua/viewtopic.php?f=3&t=17642 |
Page 1 of 1 |
Author: | Borodulka [ 2015-09-30 14:37:27 ] |
Post subject: | Помогите разобраться в проблеме(скрипт на тинкеринг) |
Скрипт стандарт, брал от сюда же, но есть проблемы, непонятные мне. VAR Cont1 = '0x417071BD' ;ðåñóðñû è ïóñòûå ìåøêè VAR Cont2 = '0x416AEF86' ;ñóíäóê äå áóäóò ëåæàòü ïîëíûå ìåøêè VAR Count = 30 ;êàêîå êîëè÷åñòâî ðåñóñðîâ á¸ðåì var Tools = '0x1EBC' ;èíñòðóìåíò, ïðè êîòîðîì ïîÿâëÿåòñÿ var Creat = '0x1085' ;òèï ñîçäàííîé âåùè(óäî÷êà, äàããåð è ò.ä.) VAR Food = '0x0C77' ;òèï åäû, êòîðóþ áóäåì êóøàòü var Bag = '0x0E76' ;òèï ìåøî÷êîâ var Source = '0x1BF2' var BagSer, i=0, fizl=0, control=5, time, z sub tinkIron() UO.CancelMenu() UO.AutoMenu('Tinkering','Jewelry') UO.AutoMenu('Jewelry','necklace') if UO.Count(Tools) > 0 then UO.FindType(Tools,'-1','backpack') UO.AddObject('objTools','finditem') main() end if UO.CancelMenu() end sub sub main() var CountSource = 1 ;êîë-âî ðàçíûõ òèïîâ ñûðüÿ, êîòîðûå ìû âîçüìåì èç ñóíäóêà Open('backpack') NewBag() if UO.Count(Source) then UO.FindType(Source,'0x0000', 'backpack') UO.MoveItem('finditem','-1',Cont1) wait(1000) end if UO.FindType(Source,'0x0000', Cont1) UO.Grab(STR(Count),'finditem') wait(1000) CheckLag() while UO.Count(Source) > 0 if UO.Count(Source) < 2 then UO.FindType(Source,'0x0000', Cont1) UO.Grab(STR(Count),'finditem') wait(1000) endif UO.DeleteJournal() UO.FindType(Tools,'-1','backpack') UO.UseObject('finditem') Repeat wait(500) Until UO.InJournal('You put ') OR UO.InJournal('failed') or UO.InJournal('You fail ') While UO.Count(Creat)>0 UO.FindType(Creat,'-1',-1) UO.MoveItem('finditem','0',BagSer) If UO.Count(Creat)>0 then FastLootCheck() endif if UO.InJournal("Too many items") then NewBag() endif Wend Wend UO.CancelMenu() ;Detect_Hidden() end sub sub Open(Container) UO.DeleteJournal() UO.UseObject(Container) wait(500) end sub sub FastLootCheck() UO.DeleteJournal() wait(450) If UO.InJournal("FastLoot") OR UO.InJournal("World save") then UO.Click('backpack') repeat wait(300) until UO.InJournal('backpack') Endif end sub sub NewBag() Open(Cont1) Open(Cont2) ToEat() UO.FindType(Bag, -1, Cont1) UO.Print('Ok') ;if UO.FindCount() < 1 then ; Detect_Hidden() ;end if BagSer=UO.GetSerial('finditem') UO.MoveItem(BagSer, 0, Cont2) wait(1000) end sub sub ToEat() UO.FindType('0x0C77', '0x0000',Cont1) if UO.FindCount() > 0 then UO.MoveItem('finditem','20','backpack') else return end if repeat CheckLag() uo.UseType('0x0C77') while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead() wait(100) wend until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't") UO.FindType('0x0C77', '0x0000','backpack') if UO.FindCount() > 0 then UO.MoveItem('finditem','20','Cont1') end if end sub sub CheckLag() UO.DeleteJournal() UO.Click('backpack') repeat wait(50) until UO.InJournal('backpack') end sub 1. Самая большая проблема в том, что инструмент имеет св-во ломаться, он сразу пропадает из пака, но даже если в паке есть еще инструменты, то скрипт не работает, он не прекращает работу, просто ничего не делает, хотя проверки вроде есть, вот тут мне непонятно 2. Не работает ToEat - т.е. он не есть во время работы скрипта. Заранее благодарен за помощь ;* |
Page 1 of 1 | All times are UTC+02:00 |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |