Yoko

sub dessanct()
var scroll=

uo.waittargetobject('laststatus')
uo.fintype(scroll)
if uo.findcount() then
uo.useobject('finditem')
else
uo.cast('Weaken')
end if
end sub

Sub AutoWeaken()
   if uo.getglobal('AutoWeaken')<>'on' then
      uo.setglobal('AutoWeaken','on')
      uo.print('Auto Weaken cast is on')
   else
      uo.setglobal('AutoWeaken','off')
      uo.print('Auto Weaken cast is off')
   end if
end sub

sub Weaken()
   var loop=1,scroll=TYPE
   while loop==2
      if uo.getglobal('AutoWeaken')=='on' then
         repeat
            uo.deletejournal()
            uo.waittargetobject('laststatus') 
            uo.findtype(scroll) 
            if uo.findcount() then 
               uo.useobject('finditem') 
            else 
               uo.cast('Weaken') 
            end if
            if uo.injournal('An anti-magic field disturbs the spells.') then
               uo.setglobal('Weaken','off')
               uo.print('Auto Weaken cast is off')
            end if
            Casted()
         until uo.getglobal('AutoWeaken')<>'on'
      end if
      wait(100)
   wend
end sub

sub Casted()
   var PrevMana=uo.mana,n
      if uo.getglobal('AutoWeaken')=='on' then
         repeat
            wait(100)
         until uo.mana<PrevMana or uo.injournal('The spell fizzles') or uo.injournal('Target is not in line of sight') or uo.injournal('You can`t see the target') or uo.getglobal('AutoWeaken')<>'on'
      end if
end sub

sub gh()
VAR ManaNeed=11
VAR ManaNeedScroll=5
If UO.Life<UO.Str Then
UO.FindType('0x1F49',-1,'my')
If UO.FindCount()>0 Then
If UO.Mana>=ManaNeedScroll Then
UO.WaitTargetSelf()
UO.UseObject('finditem')
UO.Print("Greater Heal: "+STR(UO.Count("0x1F49")))
Else
UO.Print("Unsufficient mana")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Greater Heal','self')
UO.Print("SpellBook")
Else
UO.Print("Unsufficient mana")
Endif
Endif
Else
UO.Print("Your hit points is full")
Endif
end sub