У кого нить есть скрипт на медитацию, что бы чар одевал курсу ждал пок аупадет манка и медетировал???

sub Meditation() 
var Exit, LastTimer, CharMana 
uo.Print('Выбери Курсу: ') 
uo.Exec('addobject Curse') 
while uo.Targeting() 
wait(100)
wend
wait(300)
uo.DisArm() 
wait(2000) 
exit=0 
while Exit <> 1 
CharMana=uo.INT 
CheckLag() 
uo.Waittargettype('0x0190')
uo.UseObject('Curse')
wait(500)
uo.Canceltarget()

if uo.InJournal("no target to cansel") then 
uo.DeleteJornal()
end if

repeat 
wait(500) 
until uo.Mana<CharMana 
CheckLag() 
LastTimer=uo.Timer() 

repeat 
uo.DisArm()
uo.Print('Медитируем...')
uo.Useskill('Meditation') 
wait(4000) 
until uo.Mana==uo.INT or LastTimer+300<uo.Timer() 
wend 
end sub

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
end sub 

На и не парься.просто кидаешь в БП курснутую робу и штук 200 фиш стейков и запускаешь скрипт (в скрипте ни чего менять не надо)

sub Meditation()
var Food = '0x097B' ;food
var Curse = '0x1F03' ;type of curse
var typeCurse = 'Robe'
var int, i=1, time
UO.Undress()
Repeat
wait(500)
Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer()
int=UO.INT



While True
UO.DeleteJournal()

if UO.Mana>=int then
UO.UseType(Curse)
time=UO.Timer()
While UO.Mana>=int AND time+100>UO.Timer()
wait(500)
Wend
endif

time=UO.Timer()
UO.Undress()
Repeat
wait(500)
Until UO.ObjAtLayer(typeCurse)=='' OR time+100<UO.Timer()
int=UO.INT

time=UO.Timer()
UO.UseSkill("Meditation")
Repeat
wait(500)
Until UO.InJournal('You attempt') OR time+100<UO.Timer()

time=UO.Timer()
UO.UseType(Curse)
Repeat
wait(500)
Until UO.InJournal('You lose') OR UO.InJournal('You are') OR time+100<UO.Timer()

if i==50 then
UO.DeleteJournal()
repeat
UO.UseType(Food)
wait(500)
until UO.InJournal("simply too full")
i=1
else
i=i+1
endif

Wend
end sub