sub main()
var Food = '0x0C77' ;food
var Curse = '0x1F03' ;type of curse
var typeCurse = 'Robe'
var int, i=1, time
uo.Exec('exec Reconnect')
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.UseSkill("Spirit Speak")
wait(500)
until UO.InJournal("You fail")
i=1
else
i=i+1
endif Wend
end sub sub Reconnect()
var rflag
rflag=1
repeat
while (uo.ObjAtLayer('Bpack')=='')
if rflag then
rflag=0
end if
wait(20000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Say('')
wait(3000)
uo.Ldblclick(357,164)
uo.Lclick(616,459)
wait(3000)
wend
wait(3000)
if (rflag==0) then
rflag=1
end if
until false
end sub
| 
