IF
Global("multypart1a","LOCALS",0)
THEN
RESPONSE #100
ChangeClass(Myself,SORCERER)
SetGlobal("multypart1a","LOCALS",1)
END
IF
Global("multypart1a","LOCALS",1)
LevelGT(Myself,0)
THEN
RESPONSE #100
AddSpecialAbility("SPDM103") // Cure Light Wounds
AddSpecialAbility("SPDM104") // Detect Evil
AddSpecialAbility("SPDM105") // Entangle
AddSpecialAbility("SPDM110") // Shillelagh
AddSpecialAbility("SPDM120") // Wave Spray
ApplySpellRES("SPDMHEAL",Myself) // No such index
SetGlobal("multypart1a","LOCALS",2)
END
IF
Global("multypart1a","LOCALS",2)
LevelGT(Myself,1)
THEN
RESPONSE #100
ApplySpellRES("SPDMHEAL",Myself) // No such index
SetGlobal("multypart1a","LOCALS",3)
END
IF
Global("multypart1a","LOCALS",3)
LevelGT(Myself,2)
THEN
RESPONSE #100
ApplySpellRES("SPDMHEAL",Myself) // No such index
SetGlobal("multypart1a","LOCALS",4)
END
IF
Global("multypart1a","LOCALS",4)
LevelGT(Myself,3)
THEN
RESPONSE #100
AddSpecialAbility("SPDM202") // Barkskin
AddSpecialAbility("SPDM204") // Charm Person or Mammal
AddSpecialAbility("SPDM206") // Flame Blade
AddSpecialAbility("SPDM207") // Good Berries
AddSpecialAbility("SPDM210") // Resist Fire/Cold
AddSpecialAbility("SPDM212") // Slow Poison
ApplySpellRES("SPDMHEAL",Myself) // No such index
ApplySpellRES("SPDMTHAC",Myself) // No such index
SetGlobal("multypart1a","LOCALS",5)
END
IF
Global("multypart1a","LOCALS",5)
LevelGT(Myself,4)
THEN
RESPONSE #100
ApplySpellRES("SPDMHEAL",Myself) // No such index
SetGlobal("multypart1a","LOCALS",6)
END
IF
Global("multypart1a","LOCALS",6)
LevelGT(Myself,5)
THEN
RESPONSE #100
AddSpecialAbility("SPDM302") // Call Lightning
AddSpecialAbility("SPDM305") // Hold Animal
AddSpecialAbility("SPDM306") // Protection From Fire
AddSpecialAbility("SPDM315") // Cure Medium Wounds
AddSpecialAbility("SPDM317") // Cure Disease
AddSpecialAbility("SPDM318") // Zone of Sweet Air
AddSpecialAbility("SPDM319") // Summon Insects
ApplySpellRES("SPDMHEAL",Myself) // No such index
SetGlobal("multypart1a","LOCALS",7)
END
IF
Global("multypart1a","LOCALS",7)
LevelGT(Myself,6)
THEN
RESPONSE #100
ApplySpellRES("SPDMHEAL",Myself) // No such index
ApplySpellRES("SPDMTHAC",Myself) // No such index
SetGlobal("multypart1a","LOCALS",8)
END
IF
Global("multypart1b","LOCALS",0)
Level(Myself,7)
HPGT(Myself,60)
THEN
RESPONSE #100
ApplySpellRES("SPDMHEAM",Myself) // No such index
SetGlobal("multypart1b","LOCALS",1)
END
IF
Global("multypart1a","LOCALS",8)
LevelGT(Myself,7)
THEN
RESPONSE #100
AddSpecialAbility("SPDM402") // Animal Summoning I
AddSpecialAbility("SPDM403") // Free Action
AddSpecialAbility("SPDM404") // Neutralize Poison
AddSpecialAbility("SPDM407") // Protection From Lightning
AddSpecialAbility("SPDM410") // Call Woodland Beings
AddSpecialAbility("SPDM411") // Poison
AddSpecialAbility("SPDMSHCH")
AddSpecialAbility("SPDMSHCH")
AddSpecialAbility("SPDMSHCH")
ApplySpellRES("SPDMHEAL",Myself) // No such index
SetGlobal("multypart1a","LOCALS",9)
END
IF
Global("multypart1a","LOCALS",9)
LevelGT(Myself,8)
THEN
RESPONSE #100
ApplySpellRES("SPDMHEAL",Myself) // No such index
SetGlobal("multypart1a","LOCALS",10)
END
IF
Global("multypart1a","LOCALS",10)
LevelGT(Myself,9)
THEN
RESPONSE #100
AddSpecialAbility("SPDM501") // Animal Summoning II
AddSpecialAbility("SPDM506") // Iron Skins
AddSpecialAbility("SPDM516") // Pixie Dust
AddSpecialAbility("SPDM517") // Insect Plague
AddSpecialAbility("SPDM520") // Cure Serious Wounds
ApplySpellRES("SPDMHEAL",Myself) // No such index
SetGlobal("multypart1a","LOCALS",11)
END
IF
Global("multypart1a","LOCALS",11)
LevelGT(Myself,11)
THEN
RESPONSE #100
AddSpecialAbility("SPDM604") // Conjure Animals
AddSpecialAbility("SPDM602") // Animal Summoning III
AddSpecialAbility("SPDM605") // Conjure Fire Elemental
AddSpecialAbility("SPDM606") // Fire Seeds
AddSpecialAbility("SPDM610") // Dolorous Decay
AddSpecialAbility("SPDM620") // Cure Critical Wounds
SetGlobal("multypart1a","LOCALS",12)
END
IF
Global("multypart1a","LOCALS",12)
LevelGT(Myself,13)
THEN
RESPONSE #100
AddSpecialAbility("SPDM721") // Heal
AddSpecialAbility("SPDM702") // Conjure Earth Elemental
AddSpecialAbility("SPDM717") // Creeping Doom
AddSpecialAbility("SPDM720") // Earthquake
AddSpecialAbility("SPDM707") // Sunray
SetGlobal("multypart1a","LOCALS",13)
END
IF
Global("multypart1b","LOCALS",0)
Level(Myself,15)
HPGT(Myself,100)
THEN
RESPONSE #100
ApplySpellRES("SPDMHEAN",Myself) // No such index
SetGlobal("multypart1b","LOCALS",1)
END
IF
Global("multypart1a","LOCALS",13)
LevelGT(Myself,15)
THEN
RESPONSE #100
AddSpecialAbility("SPDM820") // Nature's Beauty
AddSpecialAbility("SPDM821") // Fire Storm
AddSpecialAbility("SPDM822") // Regeneration
SetGlobal("multypart1a","LOCALS",14)
END
IF
Global("multypart1a","LOCALS",14)
LevelGT(Myself,17)
THEN
RESPONSE #100
AddSpecialAbility("SPDM920") // Summon Shambling Mound
AddSpecialAbility("SPDM919") // Tornado
SetGlobal("multypart1a","LOCALS",15)
END