Code: Select all
sub spirit()
while not uo.Dead()
repeat
repeat
uo.useskill ("Spirit Speak")
uo.DeleteJournal()
repeat
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or uo.InJournal("You fail your attempt at contacting the netherworld.")
until uo.InJournal("You establish a connection")
if uo.InJournal("You establish") then
uo.Cast('Dispel','self')
wait(3000)
end if
until uo.mana < 50
while not uo.mana == uo.Int
uo.UseSkill('Meditation')
wait(4000)
wend
wend
end sub