Code: Select all
sub main()
VAR Eval=0 ; Use Evaluating Intelligence on self 1:yes/0:no
VAR NS='0x0F88'
VAR w
uo.addobject('Chest')
while uo.targeting()
wait(400)
wend
uo.useobject('Chest')
wait(2000)
While NOT UO.Dead()
If Eval==1 then
uo.useskill('Evaluating','self')
wait(1000)
endif
if uo.bp>0 and uo.ns>0 then
UO.Cast('Magic Arrow', 'self')
else
if uo.ns==0 then
uo.findtype(NS,-1,'Chest')
if uo.findcount() then
uo.moveitem('finditem','50','backpack')
checklag()
wait(700)
endif
endif
if uo.ns>0 then
UO.Cast('Poison', 'self')
endif
endif
WaitForMana()
if uo.mana<14 then
meditation()
endif
Wend
end sub
Sub WaitForMana()
VAR w,m=uo.mana
for w=0 to 100
if uo.mana<m then
return
endif
wait(500)
next
endsub
sub checklag()
repeat
UO.DeleteJournal()
UO.Click('backpack')
until backpack()==1
endsub
sub backpack()
var n
for n=0 to 200
if uo.injournal('a backpack') then
return 1
endif
wait(200)
next
endsub
sub meditation()
uo.findtype('0x0F0E','0x09DF','backpack')
if uo.findcount() then
uo.useobject('finditem')
wait(700)
else
while uo.mana < uo.int
if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then
uo.warmode(0)
endif
checklag()
Uo.Useskill('Meditation')
waitformed()
wend
endif
endsub
sub waitformed()
var n
for n=0 to 100
if uo.injournal('You lose|at peace') then
return
endif
wait(500)
next
endsub
© Mirage