Code: Select all
sub main()
var Container='0x401A1257'
var IronCount = Val(STR((UO.STR*4+30-UO.Weight)/0.6,0))-600
Open('backpack')
Open('Container')
if UO.Count('0x1EBC','0x0000') > 0 then
UO.FindType('0x1EBC','0x0000','backpack')
UO.AddObject('objTools','finditem')
else
return
end if
UO.CancelMenu()
uo.automenu("Tinkering","Tools")
uo.automenu("Tools","lockpick")
While Move(Container,IronCount) > 0
While UO.Count("0x1BEF") > 1
UO.DeleteJournal()
UO.UseObject('objTools')
repeat
wait(300)
until UO.InJournal("You put") or UO.InJournal("failed")
wend
wend
UO.CancelMenu()
end sub
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub
sub Move(Container, IronCount)
CheckLag()
UO.FindType('0x14FB','0x0000','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.MoveItem('finditem','-1',Container)
wait(1000)
end if
toEat(Container)
UO.FindType('0x1BEF','0x0000',Container)
If UO.GetQuantity('finditem')<2 Then
return 0
Else
UO.Grab(str(IronCount),'finditem')
wait(1000)
Endif
Spirit()
CheckLag()
return 1
end sub
sub Open(Container)
UO.UseObject(Container)
wait(500)
end sub
sub toEat(cont)
var havka = '0x097B'
UO.FindType(havka, '0x0000', cont)
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20','backpack')
else
return
end if
repeat
CheckLag()
uo.UseType(havka)
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(havka, '0x0000','backpack')
if UO.FindCount() > 0 then
UO.MoveItem('finditem','20',cont)
end if
CheckLag()
wait(1000)
end sub
sub Spirit()
UO.DeleteJournal()
UO.UseSkill("Spirit Speak")
repeat
wait(500)
until UO.InJournal('You establish') or UO.InJournal('netherworld')
end sub
Заранее спасибо
