Помогите доработать скрипт на Медитацию+Еволюшен

[yEti]

Скрипт вобшемто работает но не успевает домедитировать его перебивает еволюшка !
sub medit()
VAR cursa=0x1713
VAR j, tekmana
uo.undress()
wait(1000)
uo.print('0x6A3EC')
uo.exec('addobject body')
while uo.targeting('0x6A3EC')
wait(100)
wend
repeat
tekmana=uo.int
wait(100)
checklag()
uo.usetype(cursa); Cursed Hat
j=0
repeat
wait(10)
j=j+1
until (uo.mana <= tekmana-1) or (j>1000)
checklag()
uo.undress()
wait(100)
checklag()
uo.useskill ("Meditation")
Wait(3000)
uo.waittargetobject('0x6A3EC')
wait(200)
uo.useskill('Evaluating Intelligence')
wait(3000)
until uo.dead()
end sub

sub checklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

[yEti]

все сорри зделал

[BoBBaH]

ну выстави тут готовый! и опиши что он делает может кушает