while mana > 50
  if not @findobject 'RingBag'
    promptalias 'RingBag'
  endif
  if not listexists 'Jewelry'
    @createlist 'Jewelry'
  endif
  if list 'Jewelry' == 0
    @pushlist 'Jewelry' 0x108a
    @pushlist 'Jewelry' 0x1f09
    @pushlist 'Jewelry' 0x1086
    @pushlist 'Jewelry' 0x1f06
  endif
  if not listexists 'Skill'
    @createlist 'Skill'
  endif
  if list 'Skill' == 0
    @pushlist 'Skill' 'Animal Taming'
    @pushlist 'Skill' 'Animal Lore'
    @pushlist 'Skill' 'Veterinary'
    @pushlist 'Skill' 'Fencing'
    @pushlist 'Skill' 'Mace Fighting'
    @pushlist 'Skill' 'Fishing'
    @pushlist 'Skill' 'Anatomy'
    @pushlist 'Skill' 'Archery'
    @pushlist 'Skill' 'Stealing'
    @pushlist 'Skill' 'Tactics'
    @pushlist 'Skill' 'Swordsmanship'
    @pushlist 'Skill' 'Magery'
    @pushlist 'Skill' 'Evaluating Intelligence'
    @pushlist 'Skill' 'Spirit Speak'
    @pushlist 'Skill' 'Necromancy'
    @pushlist 'Skill' 'Parrying'
    @pushlist 'Skill' 'Bushido'
    @pushlist 'Skill' 'Peacemaking'
    @pushlist 'Skill' 'Discordance'
    @pushlist 'Skill' 'Provocation'
  endif
  if not @findtype '0x2006' 'any' 'ground' '1' '1'
  endif
  @setalias '0' 'found'
  @useobject '0'
  for 0 to Jewelry
    for 2
      if @findtype Jewelry[] 0 '0'
        @setalias 'Skills' 'found'
        waitforproperties 'Skills' 3000
        for 0 to Skill
          if @property Skill[] 'Skills' >= 12
            msg '[e woohoo'
            @moveitem 'Skills' 'RingBag'
            pause 1000
          endif
        endfor
      endif
    endfor
  endfor
  cast "Wither"
  pause 1500
endwhile
cast "Wraith Form"
pause 1800
while mana < 100
  cast "Wither"
  pause 1500
  cast "Wither"
  pause 1500
endwhile
cast "Vampiric Embrace"
pause 2500