Code: Select all
VAR Cont1 = '0x4040B89E' ;сундук с айроном мешками и стейками
VAR Cont2 = '0x400281D2' ; сундук де будут лежать полные мешки
VAR Count = 250 ;кол-во айрона берём за раз
var Tools = '0x1EBC' ;инструмент
var Creat = '0x1085' ;тип бус
VAR Food = '0x097B' ;еда
var Bag = '0x0E76' ;мешки
var Source = '0x1BEF'
var BagSer, i=0, fizl=0, control=5, time, z
sub autostart()
wait(3000)
UO.SetGlobal('Connected','Yes')
UO.SetEasyUO(99,'0')
UO.Click('self')
wait(3000)
UO.SetGlobal('CharName',UO.GetName())
UO.SetGlobal('BuyScript','Off')
UO.Exec('warmode 0')
end sub
sub tinkIron()
Tools = '0x1EBC'
Creat = '0x1085'
Source = '0x1BEF'
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.UseObject('objTools')
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()
end sub
sub Open(Container)
UO.DeleteJournal()
UO.UseObject(Container)
wait(500)
end sub
sub FastLootCheck()
UO.DeleteJournal()
wait(500)
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
end if
BagSer=UO.GetSerial('finditem')
UO.MoveItem(BagSer, 0, Cont2)
wait(1000)
end sub
sub ToEat()
UO.FindType('0x097B', '0x0000',Cont1)
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20','backpack')
else
return
end if
repeat
CheckLag()
uo.UseType('0x097B')
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('0x097B', '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
Спасибо огроменное! Заработало! Не думал что из-за такой мелочи может перестать работать 
