sub vet()
while NOT UO.Dead()
while UO.STR<201
UO.DeleteJournal()
UO.CancelTarget()
repeat
UO.CancelMenu()
UO.AutoMenu('What do','Daemon')
UO.Cast('Polymorph')
wait(8000)
until NOT UO.InJournal("spell fizzles")
repeat
UO.UseSkill('Meditation')
wait(3000)
until UO.InJournal("You attempt") OR UO.InJournal("You are at")
wait(3000)
wend
repeat
UO.BandageSelf()
CheckLag()
UO.WaitTargetSelf()
UO.UseType(0x0E86);Дагер курсанутый и блеснутый
wait(4000)
until UO.InJournal("You put") AND NOT UO.InJournal("You apply the bandages")
UO.FindType('0x0E21',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.waittargettype('0x1008')
UO.usetype('0x0E20')
CheckLag()
uo.findtype('0x0E21')
uo.moveitem('finditem','0','backpack')
wait(500 )
Endif
wend
wend
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

repeat
wait(500)
until UO.InJournal('backpack')
end sub