Training - Inscription

////******************************************************////
//Title: Trainer - Inscription
//Author: Maelune
//Purpose: Automatically trains you to 100 Inscription Skill
//
//Requirements: Mage Reagents in bulk
//              Scribe's Pens in bulk
//              Blank Scrolls in bulk
//
//Instructions: Copy this entire text into a UOSteam Macro! Do NOT loop
//              this macro! It will end on its own when you've reached
//              100 inscription!
//
//Notes: There is no way to make UOSteam yell at you if you're out
//       of reagents. You will need to make sure you're set on them
//       before hand.
//       The spells being crafted are:
//       Recall
//       Paralyze
//       Mark
//       Gate Travel
//       Resurrection
//
//       I suggest leaving Recall and Gate Travel, as they are used
//       to create runebooks later. The other spells are up to you.
////******************************************************////
while skill 'Inscription' < 100
  while skill 'Inscription' < 55
    if not findtype 0xfbf
      headmsg 'Get more scribe tools!'
    endif
    if mana < 50
      useskill 'Meditation'
      while mana < maxmana
      endwhile
    endif
    usetype 0xfbf 'any' 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 22
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 51
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 0
  endwhile
  while skill 'Inscription' < 65
    if not findtype 0xfbf
      headmsg 'Get more scribe tools!'
    endif
    if mana < 50
      useskill 'Meditation'
      while mana < maxmana
      endwhile
    endif
    usetype 0xfbf 'any' 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 29
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 37
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 0
  endwhile
  while skill 'Inscription' < 85
    if not findtype 0xfbf
      headmsg 'Get more scribe tools!'
    endif
    if mana < 50
      useskill 'Meditation'
      while mana < maxmana
      endwhile
    endif
    usetype 0xfbf 'any' 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 36
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 30
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 0
  endwhile
  while skill 'Inscription' < 95
    if not findtype 0xfbf
      headmsg 'Get more scribe tools!'
    endif
    if mana < 50
      useskill 'Meditation'
      while mana < maxmana
      endwhile
    endif
    usetype 0xfbf 'any' 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 43
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 23
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 0
  endwhile
  while skill 'Inscription < 100
    if not findtype 0xfbf
      headmsg 'Get more scribe tools!'
    endif
    if mana < 50
      useskill 'Meditation'
      while mana < maxmana
      endwhile
    endif
    usetype 0xfbf 'any' 'backpack'
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 50
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 16
    waitforgump 0x38920abd 15000
    replygump 0x38920abd 0
  endwhile
endwhile
if skill 'Inscription' >= 100
  headmsg 'Macro complete!'
endif