Yoko

All sides of Injection
It is currently 2017-09-23 23:56:29

All times are UTC+02:00




Post new topic  Reply to topic  [ 1 post ] 
Author Message
PostPosted: 2015-09-30 14:37:27 
Offline

Joined: 2015-09-30 14:31:41
Posts: 1
Скрипт стандарт, брал от сюда же, но есть проблемы, непонятные мне.

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 - т.е. он не есть во время работы скрипта.

Заранее благодарен за помощь ;*


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 1 post ] 

All times are UTC+02:00


Who is online

Users browsing this forum: Bing [Bot] and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited