UOS Magery/Chivalry/Necromancy/Spiritspeak/Resists

while skill 'chivalry' < 100
  if mana 'self' < 20
    useskill 'meditation'
    while mana < maxmana
    endwhile
  else
    if skill 'Chivalry' < 30
      headmsg 'Buy more skill!'
      stop
    elseif skill 'Chivalry' < 45
      cast "Consecrate Weapon"
      pause 2100
    elseif skill 'Chivalry' < 60
      cast "Divine Fury"
      pause 2100
    elseif skill 'Chivalry' < 70
      cast "Enemy of One"
      pause 2100
    elseif skill 'Chivalry' < 90
      cast "Holy Light"
      pause 2100
    elseif skill 'Chivalry' < 100
      cast "Noble Sacrifice"
      pause 3000
    endif
  endif
endwhile
while skill 'magery' < 100
  if mana 'self' < 45
    useskill 'meditation'
    while mana < maxmana
    endwhile
  else
    if skill 'magery' < 30
      headmsg 'Buy more skill!'
      stop
    elseif skill 'magery' < 45
      cast 'bless' 'self'
      pause 2000
    elseif skill 'magery' < 55
      cast 'mana drain' 'self'
      pause 2000
    elseif skill 'magery' < 75
      cast 'invisibility' 'self'
      while waitingfortarget
      endwhile
      pause 2000
    elseif skill 'magery' < 100
      cast 'mana vampire' 'self'
      pause 2000
    endif
  endif
endwhile
while skill 'Resisting Spells' < 100
  if mana 'self' < 40
    useskill 'meditation'
    while mana < maxmana
    endwhile
  else
    cast 'mana vampire' 'self'
    pause 1000
  endif
endwhile
while skill 'Necromancy' < 1000
  if mana < 25
    useskill 'meditation'
    while mana < maxmana
    endwhile
  endif
  if skill 'Necromancy' < 30
    cast "Curse Weapon"
    waitfortarget 1600
  elseif skill 'Necromancy' < 50
    cast "Wraith Form"
    waitfortarget 1600
  elseif skill 'Necromancy' < 71
    cast "Horrific Beast"
    waitfortarget 1600
  elseif skill 'Necromancy' < 81
    if @injournal 'You cannot cast that spell in this form' 'system'
      clearjournal
      cast "Horrific Beast"
    endif
    cast "Wither"
    waitfortarget 1600
  elseif skill 'Necromancy' < 105
    cast "Lich Form"
    waitfortarget 1600
  elseif skill 'Necromancy' < 120
    cast "Vampiric Embrace"
    waitfortarget 1600
  endif
endwhile
while skill 'Spirit Speak' < 100
  if mana 'self' > 30
    useskill 'Spirit Speak'
    pause 13000
  elseif mana 'self' <= 30
    useskill 'Meditation'
    while mana < maxmana
    endwhile
  endif
endwhile