Angel Island: Inscription Training 0 to 100

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ###############################################################DO NOT TOUCH VARIABLES############################################################################# @setvar! ScribePen 4031 @setvar! InscriptionMenu 465672022 @setvar! FourthCircle 22 @setvar! ArchCure 2 @setvar! ArchProtection 9 @setvar! Curse 16 @setvar! FireField 23 @setvar! GreaterHeal 30 @setvar! Lightning 37 @setvar! ManaDrain 44 @setvar! Recall 51 @setvar! SixthCircle 36 @setvar! Dispel 2 @setvar! EnergyBolt 9 @setvar! Explosion 16 @setvar! Invisibility 23 @setvar! Mark 30 @setvar! MassCurse 37 @setvar! ParalyzeField 44 @setvar! Reveal 51 @setvar! SeventhCircle 43 @setvar! ChainLightning 2 @setvar! EnergyField 9 @setvar! Flamestrike 16 @setvar! GateTravel 23 @setvar! ManaVampire 30 @setvar! MassDispel 37 @setvar! MeteorSwarm 44 @setvar! Polymorph 51 @setvar! EighthCircle 50 @setvar! Earthquake 2 @setvar! EnergyVortex 9 @setvar! Resurrection 16 @setvar! SummonAirElemental 23 @setvar! SummonDaemon 30 @setvar! SummonEarthElemental 37 @setvar! SummonFireElemental 44 @setvar! SummonWaterElemental 51 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// ### CHANGE THE NAME OF THE SCROLL FOR WANTED SCROLL USING THE LIST ABOVE### ### SPELLS MUST REMAIN THE SAME CIRCLE TIER ### @setvar! TargetScroll45_50 Recall @setvar! TargetScroll50_85 EnergyBolt @setvar! TargetScroll85_90 Flamestrike @setvar! TargetScroll90_100 SummonDaemon ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// if skill 'inscription' < 45 #Sets the two books needed to copy each other for inscription 45 and less. @setvar! SourceBook @setvar! EmptyBook if not varexist SourceBook overhead 'TARGET THE SOURCE BOOK (Full)' 38 setvar SourceBook endif if not varexist EmptyBook overhead 'TARGET THE EMPTY BOOK' 38 setvar EmptyBook endif endif while skill 'inscription' < 100 if skill 'inscription' < 45 skill 'Inscription' pause 1000 waitfortarget target SourceBook waitfortarget target EmptyBook elseif skill 'inscription' >= 45 and skill 'inscription' < 50 if mana <= 20 useskill "meditation" while mana < maxmana overhead 'Meditating' 68 pause 1000 endwhile else if findtype ScribePen backpack as foundPen dclick foundPen waitforgump InscriptionMenu gumpresponse FourthCircle waitforgump InscriptionMenu gumpresponse TargetScroll45_50 waitforgump InscriptionMenu else overhead 'No Scribe Pen in Backpack!' 38 pause 2000 endif endif elseif skill 'inscription' >= 50 and skill 'inscription' < 85 if mana <= 20 useskill "meditation" while mana < maxmana overhead 'Meditating' 68 pause 1000 endwhile else if findtype ScribePen backpack as foundPen dclick foundPen waitforgump InscriptionMenu gumpresponse SixthCircle waitforgump InscriptionMenu gumpresponse TargetScroll50_85 waitforgump InscriptionMenu else overhead 'No Scribe Pen in Backpack!' 38 pause 2000 endif endif elseif skill 'inscription' >= 85 and skill 'inscription' < 90 if mana <= 20 useskill "meditation" while mana < maxmana overhead 'Meditating' 68 pause 1000 endwhile else if findtype ScribePen backpack as foundPen dclick foundPen waitforgump InscriptionMenu gumpresponse SeventhCircle waitforgump InscriptionMenu gumpresponse TargetScroll85_90 waitforgump InscriptionMenu else overhead 'No Scribe Pen in Backpack!' 38 pause 2000 endif endif elseif skill 'inscription' >= 90 and skill 'inscription' < 100 if mana <= 20 useskill "meditation" while mana < maxmana overhead 'Meditating' 68 pause 1000 endwhile else if findtype ScribePen backpack as foundPen dclick foundPen waitforgump InscriptionMenu gumpresponse EighthCircle waitforgump InscriptionMenu gumpresponse TargetScroll90_100 waitforgump InscriptionMenu else overhead 'No Scribe Pen in Backpack!' 38 pause 2000 endif endif else msg "Inscription leveling complete!" endif endwhile