///// === TP2 fil === //////

BACKUP ~GelThiefKitChange/backup~
AUTHOR ~Gel87~
VERSION ~1.0~

BEGIN ~Thief Kit Overlay Menu~
REQUIRE_PREDICATE (GAME_IS ~bgee bg2ee eet iwdee~ && FILE_EXISTS ~engine.lua~) ~Requires Enhanced Edition 2.0+ game.~
INCLUDE ~GelThiefKitChange/lib/a7#add_kit_ex.tpa~

/////////////////////////COPY BAMS ////////////////////

//COPY ~GelThiefKitChange/Bams/GelHIPS.bam~ ~Override~
COPY "GelThiefKitChange/Bams" "Override"

/////////////////////////COPY TABLES //////////////////

COPY ~GelThiefKitChange/Tables/CLAGELSB.2da~ ~Override~
COPY ~GelThiefKitChange/Tables/CLAGELST.2da~ ~Override~
COPY ~GelThiefKitChange/Tables/CLAGELSM.2da~ ~Override~
COPY ~GelThiefKitChange/Tables/LUGELST.2da~ ~Override~
COPY ~GelThiefKitChange/Tables/LUGELBS.2da~ ~Override~ 
COPY ~GelThiefKitChange/Tables/CLAGELBS.2da~ ~Override~ 
COPY ~GelThiefKitChange/Tables/GeNiCla.2da~ ~Override~ 
COPY ~GelThiefKitChange/Tables/LuGelNi.2da~ ~Override~ 

//////////////////////////////////////////////////// Copy Effects ///////////////////////////////////////////////////

COPY ~GelThiefKitChange/Eff/GelAbj1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelCon1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelDiv1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelEnc1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelIll1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelInv1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelNDia.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelNec1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelTDia.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelTra1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GelADia.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GeDAM1.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GeDAM2.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GeDAM11.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GeDAM22.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/bdbrac05.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/bdbrac5a.EFF~ ~Override~
COPY ~GelThiefKitChange/Eff/GEDAM4.EFF~ ~Override~

///////////////////////////////////////////////////// Copy Spells ////////////////////////////////////////////////////

COPY ~GelThiefKitChange/Spells/GelTDia.spl~ ~Override~
  SAY NAME1 ~Summon More Adjustment choices~
  SAY DESC ~Allows you to modifify your character with more options~

COPY ~GelThiefKitChange/Spells/GelNDia.spl~ ~Override~
  SAY NAME1 ~Summon Kit choice~

//COPY ~GelThiefKitChange/Spells/GelDual.spl~ ~Override~
//  SAY NAME1 ~Assign Single and Dual kit Script~

//COPY ~GelThiefKitChange/Spells/GelMult.spl~ ~Override~
//  SAY NAME1 ~Assign Multiclass kit Script~

COPY ~GelThiefKitChange/Spells/GelSMag.spl~ ~Override~
  SAY NAME1 ~+1 to all arcane spell level cast level 1-9~

COPY ~GelThiefKitChange/Spells/GelKen1.spl~ ~Override~ // Restric: Armor, Gloves, Helm, Shield, sling, Bow and Crossbow. Learn: Kai(SPCL144). +2 Bonus Ac.
  SAY NAME1 ~Kensai Kit Specifications~ 

COPY ~GelThiefKitChange/Spells/GelKen3.spl~ ~Override~ 
  SAY NAME1 ~+1 bonus to thaco and damage~ 

COPY ~GelThiefKitChange/Spells/GelKen4.spl~ ~Override~ 
  SAY NAME1 ~- 1 speedfactor~ 

COPY ~GelThiefKitChange/Spells/GelKen5.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Kai~ 

COPY ~GelThiefKitChange/Spells/GelBar1.spl~ ~Override~ // +2 move speed, Immune to backstab, Restric above splint mail, Learn: Rage
  SAY NAME1 ~Barbarian Kit Specifications~ 

COPY ~GelThiefKitChange/Spells/GelBar4.spl~ ~Override~
  SAY NAME1 ~Learn Ability: Rage~ 

COPY ~GelThiefKitChange/Spells/GelBarR.spl~ ~Override~
  SAY NAME1 ~+5% Physical Resistances~ 

COPY ~GelThiefKitChange/Spells/GelBer1.spl~ ~Override~ // Learn Enrage
  SAY NAME1 ~Berserker Kit Specifications~ 

COPY ~GelThiefKitChange/Spells/GelBer4.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Enrage~ 

COPY ~GelThiefKitChange/Spells/GelDwD1.spl~ ~Override~ // Learn Defensive Stance
  SAY NAME1 ~Dwarven Defender Kit Specifications~ 

COPY ~GelThiefKitChange/Spells/GelDwD2.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Defensive Stance~

COPY ~GelThiefKitChange/Spells/GelDwD3.spl~ ~Override~ 
  SAY NAME1 ~+5% Physical Resistances~ 

COPY ~GelThiefKitChange/Spells/GelDwD4.spl~ ~Override~ 
  SAY NAME1 ~+1 Bonus AC~ 

COPY ~GelThiefKitChange/Spells/GelWiS1.spl~ ~Override~ // Wizard Slayer Base Dual Kit: 25% misscast on target + Properly Scaled MR% bonus + Restrict(Gauntlets, Belt, Jewerly, Scrolls, Pots)
  SAY NAME1 ~Wizard Slayer Kit Specifications~ 

COPY ~GelThiefKitChange/Spells/GelWiS3.spl~ ~Override~ // Wizard Slayer Base Multi Kit: 25% misscast on target + Restrict(Gauntlets, Belt, Jewerly, Scrolls, Pots)
  SAY NAME1 ~Wizard Slayer Kit Specifications~ 

COPY ~GelThiefKitChange/Spells/GelWiS2.spl~ ~Override~
  SAY NAME1 ~+1 to Magic Resist~ 

COPY ~GelThiefKitChange/Spells/GelWiS4.spl~ ~Override~
  SAY NAME1 ~+5 to Magic Resist~ 

COPY ~GelThiefKitChange/Spells/GelAbj1.spl~ ~Override~ // Abjurer Kit: +1 spell slots all 9 levels, +15% learn abjuration, -15% learn Other, +2 save vs abjuration, -2 save vs abjuration for enemies, Cannot learn: Alternation
  SAY NAME1 ~Abjurer kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelAbj2.spl~ ~Override~ // Enemy -2 to mageschool saves.
  SAY NAME1 ~Enemy has -2 save penatly vs abjurer~ 

COPY ~GelThiefKitChange/Spells/GelCon1.spl~ ~Override~ // Conjurer Kit: +1 spell slots all 9 levels, +15% learn Conjuration, -15% learn Other, +2 save vs Conjuring, -2 save vs Conjuring, Cannot learn:Divination
  SAY NAME1 ~Conjurer kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelCon2.spl~ ~Override~ // Enemy -2 to mageschool saves.
  SAY NAME1 ~Enemy has -2 save penatly vs conjurer~ 

COPY ~GelThiefKitChange/Spells/GelDiv1.spl~ ~Override~ // Diviner Kit: +1 spell slots all 9 levels, +15% learn Divination, -15% learn Other, +2 save vs Divination, -2 save vs Divination, Cannot learn:Conjuring
  SAY NAME1 ~Diviner kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelDiv2.spl~ ~Override~ // Enemy -2 to mageschool saves.
  SAY NAME1 ~Enemy has -2 save penatly vs diviner~ 

COPY ~GelThiefKitChange/Spells/GelEnc1.spl~ ~Override~ // Enchanter Kit: +1 spell slots all 9 levels, +15% learn Enchanting, -15% learn Other, +2 save vs Enchanting, -2 save vs Enchanting, Cannot learn:Evocation
  SAY NAME1 ~Enchanter kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelEnc2.spl~ ~Override~ // Enemy -2 to mageschool saves.
  SAY NAME1 ~Enemy has -2 save penatly vs enchanter~ 

COPY ~GelThiefKitChange/Spells/GelIll1.spl~ ~Override~ // Illusionist Kit: +1 spell slots all 9 levels, +15% learn Illusion, -15% learn Other, +2 save vs Illusion, Enemy -2 save vs Illusion, Cannot learn:Necromancy
  SAY NAME1 ~Illusionist kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelIll2.spl~ ~Override~ // Enemy -2 to mageschool saves.
  SAY NAME1 ~Enemy has -2 save penatly vs illusionist~ 

COPY ~GelThiefKitChange/Spells/GelInv1.spl~ ~Override~ // Invoker Kit: +1 spell slots all 9 levels, +15% learn Evocation, -15% learn Other, +2 save vs Evocation, Enemy -2 save vs Evocation, Cannot learn:Enchantment
  SAY NAME1 ~Invoker kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelInv2.spl~ ~Override~ // Enemy -2 to mageschool saves.
  SAY NAME1 ~Enemy has -2 save penatly vs invoker~ 

COPY ~GelThiefKitChange/Spells/GelNec1.spl~ ~Override~ // Necromancer Kit: +1 spell slots all 9 levels, +15% learn Necromancy, -15% learn Other, +2 save vs Necromancy, Enemy -2 save vs Necromancy, Cannot learn:Illusion
  SAY NAME1 ~Necromancer kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelNec2.spl~ ~Override~ // Enemy -2 to mageschool saves.
  SAY NAME1 ~Enemy has -2 save penatly vs necromancy~ 

COPY ~GelThiefKitChange/Spells/GelTra1.spl~ ~Override~ // Transmuter Kit: +1 spell slots all 9 levels, +15% learn Alternating, -15% learn Other, +2 save vs Alternating, Enemy -2 save vs Alternation, Cannot learn:Abjuration
  SAY NAME1 ~Transmuter kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelTra2.spl~ ~Override~ // Enemy -2 to mageschool saves.
  SAY NAME1 ~Enemy has -2 save penatly vs Transmuter~ 

COPY ~GelThiefKitChange/Spells/GelSup1.spl~ ~Override~ // Super Mage Kit: +1 spell slots all 9 levels 
  SAY NAME1 ~Super Mage kit specifications~ 

COPY ~GelThiefKitChange/Spells/GelTal5.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Talos Lightning Bolt~ 

COPY ~GelThiefKitChange/Spells/GelTal7.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Talos Storm Shield~ 

COPY ~GelThiefKitChange/Spells/GelHel1.spl~ ~Override~ 
  SAY NAME1 ~Learn Abilitites: True Sight & Seeking Sword~ 

COPY ~GelThiefKitChange/Spells/GelHel5.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: True Sight~ 

COPY ~GelThiefKitChange/Spells/GelHel7.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Seeking Sword~ 

COPY ~GelThiefKitChange/Spells/GelLat1.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Boon of lathander~ 

COPY ~GelThiefKitChange/Spells/GelLat5.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Hold Undead~ 

COPY ~GelThiefKitChange/Spells/GelTyr1.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Devine Favour~ 

COPY ~GelThiefKitChange/Spells/GelTyr5.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Exaltation~

COPY ~GelThiefKitChange/Spells/GelTem1.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Holy Power~ 

COPY ~GelThiefKitChange/Spells/GelTem2.spl~ ~Override~ 
  SAY NAME1 ~Learn Ability: Chaos of battle~

COPY ~GelThiefKitChange/Spells/GelSta1.spl~ ~Override~ // +20% hide in shadows and move silent, Restrict heavier than Studdeth Leather
  SAY NAME1 ~Stalker Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelSta2.spl~ ~Override~
  SAY NAME1 ~Stalker Level 12: Learned 3 new Spells~

COPY ~GelThiefKitChange/Spells/GelSta5.spl~ ~Override~ // +4 thaco, Bonus damage level scaled (1 = 20, 9 = 40, 17 = 60)
  SAY NAME1 ~Backstab mode is Active~

COPY ~GelThiefKitChange/Spells/GelSta6.spl~ ~Override~ // RemoveSpell: GelSta5
  SAY NAME1 ~Backstab mode is Deactivated~

COPY ~GelThiefKitChange/Spells/GelAss1.spl~ ~Override~ // Assassin kit: +1 bonus thaco and damage, Learn Plague Weapon, +2 backstab.
  SAY NAME1 ~Assassin Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelAss2.spl~ ~Override~ // Negative kit restriction thievery per level.
  SAY NAME1 ~-10% to Hide In Shadows~ 

COPY ~GelThiefKitChange/Spells/GelAss5.spl~ ~Override~
  SAY NAME1 ~Learn Ability: Plague Weapon~

COPY ~GelThiefKitChange/Spells/GelBou1.spl~ ~Override~ // Bounty Hunter kit: +15% Set Traps, Learn: Special Snare
  SAY NAME1 ~Bounty Hunter Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelBou2.spl~ ~Override~ // Negative kit restriction thievery per level.
  SAY NAME1 ~-5% to Hide In Shadows~

COPY ~GelThiefKitChange/Spells/GelBou5.spl~ ~Override~
  SAY NAME1 ~Learn Ability: Set Special Snare~

COPY ~GelThiefKitChange/Spells/GelSha1.spl~ ~Override~ // Shadowdancer kit: +10% Hide In Shadows & Move Silent, -1 all saving throw, Learn: Hide In Plain Sight
  SAY NAME1 ~Shadow Dancer Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelSha2.spl~ ~Override~ // Negative kit restriction thievery per level.
  SAY NAME1 ~-5% to Hide In Shadows~

COPY ~GelThiefKitChange/Spells/GelSha5.spl~ ~Override~
  SAY NAME1 ~Learn Ability: Shadow Step~

COPY ~GelThiefKitChange/Spells/GelSwa1.spl~ ~Override~ // Swashbuckler kit: +1 Bonus AC, -4 backstab, +1 thaco +2 damage.
  SAY NAME1 ~Swashbuckler Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelSwa5.spl~ ~Override~
  SAY NAME1 ~+1 bonus to AC & THACO & Damage~

COPY ~GelThiefKitChange/Spells/GelSupT.spl~ ~Override~ // Super Thief kit: +1 Bonus AC & Thaco & Damage, +2 backstab, 15% Set Traps, 10% Hide in Shadows, +1 bonus saving throws, Set Profience 2 wepon style to 3, Learn: GelHIPS, Set Special Snare, Plague Weapon
  SAY NAME1 ~Super Thief Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelSupB.spl~ ~Override~
  SAY NAME1 ~+1 to backstab multiplier~

COPY ~GelThiefKitChange/Spells/GelHIPS.spl~ ~Override~ // Blind self 1 sek, SetGlobal(GelHIPS,1) Remove Ability:(GelHIPS), Add Ability:(GelHIPS, Delayed 6sec)
  SAY NAME1 ~Hide In Plain Sight~
  SAY DESC ~Blinds yourself for 1 second so you can hide in plain sight~

COPY ~GelThiefKitChange/Spells/GelHIPL.spl~ ~Override~ // Relearn GelHIPS
  SAY NAME1 ~Regain: Hide In Plain Sight~

COPY ~GelThiefKitChange/Spells/GelHLA1.spl~ ~Override~
  SAY NAME1 ~Learn: Maze Trap~

COPY ~GelThiefKitChange/Spells/GelHLA2.spl~ ~Override~
  SAY NAME1 ~Learn: Shadow Twin~

COPY ~GelThiefKitChange/Spells/GelHLA3.spl~ ~Override~
  SAY NAME1 ~Learn: Shadow Form~

COPY ~GelThiefKitChange/Spells/GelHLA4.spl~ ~Override~
  SAY NAME1 ~Learn: Wirlwind~

COPY ~GelThiefKitChange/Spells/GelDeAt.spl~ ~Override~ 
  SAY NAME1 ~Learn: Death Attack~

COPY ~GelThiefKitChange/Spells/GelTraR.spl~ ~Override~ 
  SAY NAME1 ~Removed Unallowed Traps~

COPY ~GelThiefKitChange/Spells/GelTot1.spl~ ~Override~ // Remove Shapeshift innate.
  SAY NAME1 ~Totemic Druid Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelTot2.spl~ ~Override~
  SAY NAME1 ~Learn: Spirit Animals~

COPY ~GelThiefKitChange/Spells/GelAve1.spl~ ~Override~ // Restric all above leather, -2 bonus str/Cons 
  SAY NAME1 ~Avenger Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelAve2.spl~ ~Override~ 
  SAY NAME1 ~Learn: Shapechange Avenger forms~

COPY ~GelThiefKitChange/Spells/GelAve3.spl~ ~Override~ // Learn Spells: Chromatic Orb, Web, Lightning Bolt, Improved Invisibility, Chaos and Chain Lightning
  SAY NAME1 ~Learn: Avenger Spells~

COPY ~GelThiefKitChange/Spells/GelShp1.spl~ ~Override~ // Cannot wear armors
  SAY NAME1 ~Shapeshifter Kit Specifications~

COPY ~GelThiefKitChange/Spells/GelShp2.spl~ ~Override~
  SAY NAME1 ~Learn: Shapeshift: Werewolf~

COPY ~GelThiefKitChange/Spells/GelShp3.spl~ ~Override~
  SAY NAME1 ~Learn: Shapeshift: Greater Werewolf~

COPY ~GelThiefKitChange/Spells/GelSli1.spl~ ~Override~ // Restric atll wepons but Staff/Slings/Clubs, restric metal armors, 15% bonus stealth, learn find familiar.
  SAY NAME1 ~Slinging Beastmaster Kit Specs~

COPY ~GelThiefKitChange/Spells/GelSli2.spl~ ~Override~
  SAY NAME1 ~+1 bonus thaco & damage missle wepons~

COPY ~GelThiefKitChange/Spells/GelSli3.spl~ ~Override~
  SAY NAME1 ~Learn: Called Shot~

COPY ~GelThiefKitChange/Spells/GelSli4.spl~ ~Override~
  SAY NAME1 ~Learn: Animal Summoning I~

COPY ~GelThiefKitChange/Spells/GelSli5.spl~ ~Override~
  SAY NAME1 ~Learn: Animal Summoning II~

COPY ~GelThiefKitChange/Spells/GelSli6.spl~ ~Override~
  SAY NAME1 ~Learn: Animal Summoning III~

COPY ~GelThiefKitChange/Spells/GelADia.spl~ ~Override~
  SAY NAME1 ~KitChanger~
  SAY DESC ~Use this to change kit~

COPY ~GelThiefKitChange/Spells/GelP1.spl~ ~Override~
  SAY NAME1 ~Assigned Override Script Player1~

COPY ~GelThiefKitChange/Spells/GelAveI.spl~ ~Override~
  SAY NAME1 ~Restrictions Avenger Kept~

COPY ~GelThiefKitChange/Spells/GelBarI.spl~ ~Override~
  SAY NAME1 ~Restrictions Barbarian Kept~

COPY ~GelThiefKitChange/Spells/GelKenI.spl~ ~Override~
  SAY NAME1 ~Restrictions Kensai Kept~

COPY ~GelThiefKitChange/Spells/GelSliI.spl~ ~Override~
  SAY NAME1 ~Restrictions Slinging Beastmaster Kept~

COPY ~GelThiefKitChange/Spells/GelStaI.spl~ ~Override~
  SAY NAME1 ~Restrictions Stalker Kept~

COPY ~GelThiefKitChange/Spells/GelWiSI.spl~ ~Override~
  SAY NAME1 ~Restrictions Wizard Slayer Kept~

COPY ~GelThiefKitChange/Spells/GelSupR.spl~ ~Override~
  SAY NAME1 ~Remove Excess Abilites~

/////////////////////// New spells to test ///////////////

COPY ~GelThiefKitChange/Spells/GelShD0.spl~ ~Override~ // Other Shaman Dance Restrictions
  SAY NAME1 ~~

COPY ~GelThiefKitChange/Spells/GelShD1.spl~ ~Override~
  SAY NAME1 ~Shaman Dance: Changed to movement allowed~

COPY ~GelThiefKitChange/Spells/GelShD5.spl~ ~Override~
  SAY NAME1 ~Shaman Dance: Movement allowed~

COPY ~GelThiefKitChange/Spells/GelShD0.spl~ ~Override~
  SAY NAME1 ~Shaman Dancing: Movement allowed~

COPY ~GelThiefKitChange/Spells/GelShD2.spl~ ~Override~
  SAY NAME1 ~Shaman Dance: Changed to Thunder Dance~

COPY ~GelThiefKitChange/Spells/GelShD6.spl~ ~Override~
  SAY NAME1 ~Thunder Dance~
  SAY DESC ~The Shaman Dances in front of the weather spirits in a attempt to cause a thunderstorm.

All Enemies takes 1d6 electric damage per round and +1d6 damage per level of the caster.
Starts with 24% chance and increases by 4% chance per level.
Scaling stops at level 20.~

COPY ~GelThiefKitChange/Spells/GelShD3.spl~ ~Override~
  SAY NAME1 ~Shaman Dance: Changed to Fire Dance~

COPY ~GelThiefKitChange/Spells/GelShD7.spl~ ~Override~
  SAY NAME1 ~Fire Dance~
  SAY DESC ~The Shaman Dances in front of the fire spirits in a attempt to summon forth flames from the sky.

All Enemies takes 1d6 fire damage per round and +1d6 damage per level of the caster.
Starts with 24% chance and increases by 4% chance per level.
Scaling stops at level 20.~

COPY ~GelThiefKitChange/Spells/GelShD9.spl~ ~Override~
  SAY NAME1 ~Change Shaman Dance: Shadow Dance~

COPY ~GelThiefKitChange/Spells/GelShD4.spl~ ~Override~
  SAY NAME1 ~Shaman Dance: Shadow Dance~
  SAY DESC ~The Shaman Dances in front of the shadow spirits in a attempt to vannish from the sight of others.

Invisibility triggers.
Starts with 24% chance and increases by 4% chance per level.
Scaling stops at level 20.~

COPY ~GelThiefKitChange/Spells/GelShD8.spl~ ~Override~
  SAY NAME1 ~Shadow Dance~
  SAY DESC ~The Shaman Dances in front of the shadow spirits in a attempt to vannish from the sight of others.

Invisibility triggers.
Starts with 24% chance and increases by 4% chance per level.
Scaling stops at level 20.~

COPY ~GelThiefKitChange/Spells/GelShC1.spl~ ~Override~
  SAY NAME1 ~+1 Casting Speed~

COPY ~GelThiefKitChange/Spells/GelShC2.spl~ ~Override~
  SAY NAME1 ~+2 Casting Speed~

COPY ~GelThiefKitChange/Spells/GelShC3.spl~ ~Override~
  SAY NAME1 ~+1 Casting Speed and +1 extra cast~

COPY ~GelThiefKitChange/Spells/GelShC4.spl~ ~Override~
  SAY NAME1 ~+2 Casting Speed and +1 extra cast~

COPY ~GelThiefKitChange/Spells/GelSpik1.spl~ ~Override~
  SAY NAME1 ~Poisoned Root Spike~
  SAY 0x50 ~Poisoned Root Spike:
The Succumb uses its natural connection with nature to force up a toxic root spike from the ground.
Statistics:
Range: 60
Casting Speed: 1

Effects:
1d6 Piercing Damage, +1 d6 per caster level
1 poison damage per second for 4 seconds, 1 extra damage each 6 level
Stun Target for 2 seconds, Save vs spell Negates~

ADD_PROJECTILE      ~GelThiefKitChange/PRO/GelPro1.PRO~
COPY ~GelThiefKitChange/Spells/GelNado.spl~ ~override~
  SAY NAME1 ~Tornado~
  SAY UNIDENTIFIED_DESC ~Tornado:
The shaman calls upon the weather spirit which summons forth a static storm of tornado which hunts down enemies.
It will strike several enemies.

Casting Speed: 9

Damage:
Level 1: 6D6 electric, 6D6 Crushing
Level 14: 7D6 eletric, 7D6 Crushing
Level 16: 8D6 eletric, 8D6 Crushing
Level 18: 9D6 eletric, 9D6 Crushing
Level 20: 10D6 eletric, 10D6 Crushing
~
  LPF ALTER_SPELL_HEADER INT_VAR projectile = (IDS_OF_SYMBOL (projectl GelSh01) + 1) END

//Part 2 (add item to game)
COPY ~GelThiefKitChange/Spells/GelImp1.spl~ ~override.spl~
  SAY NAME1 ~Implosion~
  SAY UNIDENTIFIED_DESC ~Innate Albility: Implosion deals 10D10 fire and 10D10 psysical damage to enemy foe, and stuns them for 1 round unless they save vs throw~

//Part 2 (add item to game)
COPY ~GelThiefKitChange/Spells/GelIns1.spl~ ~override~
  SAY NAME1 ~Insect Plague~
  SAY UNIDENTIFIED_DESC ~Insect Plague
(Conjuration/Summoning)

Level: 5
Sphere: Combat
Range: 360 ft.
Duration: 6 rounds
Casting Time: 5
Area of Effect: 15-ft. radius
Saving Throw: Special
NEW: DAMAGE DOUBLE'S At level 13 and 17. (1, 2, 4)

When this spell is cast by the priest, a horde of creeping, hopping, and flying insects gather and swarm. This swarm will jump first to the enemy target, then to the nearest allies of the target's, until up to 6 creatures have been affected. Spellcasting within the swarm is impossible (100% chance of spell failure). Creatures in the insect plague sustain 1 point of damage every 2 seconds they remain within regardless of their Armor Class, due to the bites and stings of the insects. Invisibility is no protection. Due to the suffocating nature of the writhing insect swarm, each victim must make a Saving Throw vs. Breath Weapon or run away in fear for 1 round.~

//Part 2 (add item to game)
COPY ~GelThiefKitChange/Spells/GelCree.spl~ ~override~
  SAY NAME1 ~Creeping Doom~
  SAY UNIDENTIFIED_DESC ~Creeping Doom 
(Conjuration/Summoning)

Level: 7
Sphere: Animal, Summoning 
Range: 240 ft.
Duration: 3 rounds
Casting Time: 5
Area of Effect: Special
Saving Throw: Special
NEW: DAMAGE DOUBLE'S AT LEVEL 17 and 20

When the caster utters the spell Creeping Doom, <PRO_HESHE> calls forth a mass of venomous, biting and stinging arachnids, insects, and myriapods. This carpetlike mass swarms over a large area, spreading to all enemy creatures within 30 ft. of the target. Those trapped by the insects suffer 2 points of damage each second and a spell failure rate of 100%. For each round the victim remains inside the cloud, <PRO_HESHE> must make a Save vs. Spell at -2 or run away in fear for one round. The advantage of Creeping Doom over its 5th-level counterpart Insect Plague is that it does twice as much damage in half the amount of time.~

COPY ~GelThiefKitChange/Spells/GelShS1.spl~ ~Override~
  SAY NAME1 ~Shaman Spell Package: Poisonous Root Spikes~

COPY ~GelThiefKitChange/Spells/GelShS2.spl~ ~Override~
  SAY NAME1 ~Shaman Spell Hold Person & DUHM~

COPY ~GelThiefKitChange/Spells/GelShS3.spl~ ~Override~
  SAY NAME1 ~Shaman Spell Tornado Learned~

COPY ~GelThiefKitChange/Spells/GelShS4.spl~ ~Override~
  SAY NAME1 ~Shaman Spell Insect Plague Learned~

COPY ~GelThiefKitChange/Spells/GelShS5.spl~ ~Override~
  SAY NAME1 ~Shaman Spell Creeping Doom Learned~

COPY ~GelThiefKitChange/Spells/GelAxe1.spl~ ~Override~
  SAY NAME1 ~Axe Profiency Set to 1~

COPY ~GelThiefKitChange/Spells/GelAxe2.spl~ ~Override~
  SAY NAME1 ~Axe Profiency Set to 2~

COPY ~GelThiefKitChange/Spells/GelAxe3.spl~ ~Override~
  SAY NAME1 ~Axe Profiency Set to 3~

COPY ~GelThiefKitChange/Spells/GelAxe4.spl~ ~Override~
  SAY NAME1 ~Axe Profiency Set to 4~

COPY ~GelThiefKitChange/Spells/GelAxe5.spl~ ~Override~
  SAY NAME1 ~Axe Profiency Set to 5~

COPY ~GelThiefKitChange/Spells/GelBow1.spl~ ~Override~
  SAY NAME1 ~Shortbow Profiency Set to 1~

COPY ~GelThiefKitChange/Spells/GelBow2.spl~ ~Override~
  SAY NAME1 ~Shortbow Profiency Set to 2~

COPY ~GelThiefKitChange/Spells/GelBow3.spl~ ~Override~
  SAY NAME1 ~Shortbow Profiency Set to 3~

COPY ~GelThiefKitChange/Spells/GelBow4.spl~ ~Override~
  SAY NAME1 ~Shortbow Profiency Set to 4~

COPY ~GelThiefKitChange/Spells/GelBow5.spl~ ~Override~
  SAY NAME1 ~Shortbow Profiency Set to 5~

COPY ~GelThiefKitChange/Spells/GelClu1.spl~ ~Override~
  SAY NAME1 ~Club Profiency Set to 1~

COPY ~GelThiefKitChange/Spells/GelClu2.spl~ ~Override~
  SAY NAME1 ~Club Profiency Set to 2~

COPY ~GelThiefKitChange/Spells/GelClu3.spl~ ~Override~
  SAY NAME1 ~Club Profiency Set to 3~

COPY ~GelThiefKitChange/Spells/GelClu4.spl~ ~Override~
  SAY NAME1 ~Club Profiency Set to 4~

COPY ~GelThiefKitChange/Spells/GelClu5.spl~ ~Override~
  SAY NAME1 ~Club Profiency Set to 5~

COPY ~GelThiefKitChange/Spells/GelXp0.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 0%~

COPY ~GelThiefKitChange/Spells/GelXp10.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 10%~

COPY ~GelThiefKitChange/Spells/GelXp20.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 20%~

COPY ~GelThiefKitChange/Spells/GelXp30.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 30%~

COPY ~GelThiefKitChange/Spells/GelXp34.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 34%~

COPY ~GelThiefKitChange/Spells/GelXp40.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 40%~

COPY ~GelThiefKitChange/Spells/GelXp50.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 50%~

COPY ~GelThiefKitChange/Spells/GelXp60.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 60%~

COPY ~GelThiefKitChange/Spells/GelXp66.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 66%~

COPY ~GelThiefKitChange/Spells/GelXp70.spl~ ~Override~
  SAY NAME1 ~Experience gained reduced by 70%~

COPY ~GelThiefKitChange/Items/GelMoHe.itm~ ~Override~
  SAY NAME1 ~Magical Stone of Focus~
  SAY NAME2 ~Magical Stone of Focus~
  SAY UNIDENTIFIED_DESC ~This magical stone protects your monk from critical hits and make you focus your attacks more lethal.

Equipped Attributes:
+1 bonus to thaco with fists
+1 bonus to damage with fists
+5% chance of dealing a critical strike
Protection from Critical Hits~
  SAY DESC ~This magical stone protects your monk from critical hits and make you focus your attacks more lethal.

Equipped Attributes:
+1 bonus to thaco with fists
+1 bonus to damage with fists
+5% chance of dealing a critical strike
Protection from Critical Hits~

COPY ~GelThiefKitChange/Spells/GelCrit.spl~ ~Override~
  SAY NAME1 ~Protection from Critical Hits Enabled~

COPY ~GelThiefKitChange/Spells/GelAtt1.spl~ ~Override~
  SAY NAME1 ~+1 to Strength, dexterity and constitution~

COPY ~GelThiefKitChange/Spells/GelAtt2.spl~ ~Override~
  SAY NAME1 ~+2 to Strength, dexterity and constitution~

COPY ~GelThiefKitChange/Spells/GelPot1.spl~ ~Override~
  SAY NAME1 ~Created: Potion of Customization in inventory~

COPY ~GelThiefKitChange/Items/GelPot1.itm~ ~Override~
  SAY NAME1 ~Potion of Customization~
  SAY NAME2 ~Potion of Customization~
  SAY DESC ~Potion of Customization:
Drink this potion to further customize your character via dialog.~
  SAY UNIDENTIFIED_DESC ~Potion of Customization:
Drink this potion to further customize your character via dialog.~

COPY ~GelThiefKitChange/Spells/GelWi13.spl~ ~Override~ // +1 lvl 1 spell cast
  SAY NAME1 ~13 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi14.spl~ ~Override~ // +2 lvl 1 spell cast
  SAY NAME1 ~14 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi15.spl~ ~Override~ // +2 lvl 1, +1 lvl 2 spell cast
  SAY NAME1 ~15 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi16.spl~ ~Override~ // +2 lvl 1, +2 lvl 2 spell cast
  SAY NAME1 ~16 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi17.spl~ ~Override~ // +2 lvl 1, +2 lvl 2, +1 lvl 3 spell cast
  SAY NAME1 ~17 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi18.spl~ ~Override~ // +2 lvl 1, +2 lvl 2, +1 lvl 3, +1 lvl 4 spell cast
  SAY NAME1 ~18 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi19.spl~ ~Override~ // +3 lvl 1, +2 lvl 2, +1 lvl 3, +2 lvl 4 spell cast
  SAY NAME1 ~19 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi20.spl~ ~Override~ // +3 lvl 1, +3 lvl 2, +1 lvl 3, +3 lvl 4 spell cast
  SAY NAME1 ~20 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi21.spl~ ~Override~ // +3 lvl 1, +3 lvl 2, +2 lvl 3, +3 lvl 4, +1 lvl 5 spell cast
  SAY NAME1 ~21 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi22.spl~ ~Override~ // +3 lvl 1, +3 lvl 2, +2 lvl 3, +4 lvl 4, +2 lvl 5 spell cast
  SAY NAME1 ~22 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi23.spl~ ~Override~ // +3 lvl 1, +3 lvl 2, +2 lvl 3, +4 lvl 4, +4 lvl 5 spell cast
  SAY NAME1 ~23 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi24.spl~ ~Override~ // +3 lvl 1, +3 lvl 2, +2 lvl 3, +4 lvl 4, +4 lvl 5, +2 lvl 6 spell cast
  SAY NAME1 ~24 Wisdom Bonus to spells~

COPY ~GelThiefKitChange/Spells/GelWi25.spl~ ~Override~ // +3 lvl 1, +3 lvl 2, +2 lvl 3, +4 lvl 4, +4 lvl 5, +3 lvl 6, +1 lvl 7 spell cast
  SAY NAME1 ~25 Wisdom Bonus to spells~

//COPY ~GelThiefKitChange/Spells/GelDLea.spl~ ~override/GelDLea.spl~ // Must delay
//  SAY NAME1 ~Druid spells added to Mage Spellbook~

//COPY ~GelThiefKitChange/Spells/GelCLea.spl~ ~override/GelCLea.spl~ // Must delay
//  SAY NAME1 ~Cleric spells added to Mage Spellbook~

COPY ~GelThiefKitChange/Spells/GelALea.spl~ ~override/GelALea.spl~
  SAY NAME1 ~Druid spells added to Cleric Spellbook~

COPY_EXISTING ~POTN43.ITM~ ~override~
LPF ADD_ITEM_EFFECT
  INT_VAR
    opcode = 309
    target = 1
    parameter1 = 1
    parameter2 = 0 // Set
    timing = 0
    duration = 1800
    resist_dispel = 0
  STR_VAR
    resource = "GelWisdomBlocked"
END
BUT_ONLY

COPY_EXISTING ~POTN43.ITM~ ~override~
LPF ADD_ITEM_EFFECT
  INT_VAR
    opcode = 309
    target = 1
    parameter1 = 0
    parameter2 = 0 // Set
    timing = 4
    duration = 1800
    resist_dispel = 0
  STR_VAR
    resource = "GelWisdomBlocked"
END
BUT_ONLY

ACTION_IF FILE_EXISTS_IN_GAME ~dw#ptn43.itm~ BEGIN

  COPY_EXISTING ~dw#ptn43.itm~ ~override~

    LPF ADD_ITEM_EFFECT
      INT_VAR
        opcode = 309
        target = 1
        parameter1 = 1
        parameter2 = 0
        timing = 0
        duration = 1800
        resist_dispel = 0
      STR_VAR
        resource = ~GelWisdomBlocked~
    END

    LPF ADD_ITEM_EFFECT
      INT_VAR
        opcode = 309
        target = 1
        parameter1 = 0
        parameter2 = 0
        timing = 4
        duration = 1800
        resist_dispel = 0
      STR_VAR
        resource = ~GelWisdomBlocked~
    END

  BUT_ONLY_IF_IT_CHANGES

END

ACTION_IF FILE_EXISTS_IN_GAME ~OHDAPPLE.ITM.itm~ BEGIN
COPY_EXISTING ~OHDAPPLE.ITM~ ~override~
LPF ADD_ITEM_EFFECT
  INT_VAR
    opcode = 309
    target = 1
    parameter1 = 1
    parameter2 = 0 // Set
    timing = 2
    duration = 0
    resist_dispel = 0
  STR_VAR
    resource = "GelWisdomBlocked"
END
BUT_ONLY
END

ACTION_IF FILE_EXISTS_IN_GAME ~WAAXE.ITM.itm~ BEGIN
COPY_EXISTING ~WAAXE.ITM~ ~override~
LPF ADD_ITEM_EFFECT
  INT_VAR
    opcode = 309
    target = 1
    parameter1 = 1
    parameter2 = 0 // Set
    timing = 2
    duration = 0
    resist_dispel = 0
  STR_VAR
    resource = "GelWisdomBlocked"
END
BUT_ONLY
END

ACTION_IF FILE_EXISTS_IN_GAME ~HELM25.ITM.itm~ BEGIN
COPY_EXISTING ~HELM25.ITM~ ~override~
LPF ADD_ITEM_EFFECT
  INT_VAR
    opcode = 309
    target = 1
    parameter1 = 1
    parameter2 = 0 // Set
    timing = 2
    duration = 0
    resist_dispel = 0
  STR_VAR
    resource = "GelWisdomBlocked"
END
BUT_ONLY
END

COPY_EXISTING_REGEXP GLOB ~.*\.itm~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN

    READ_LONG  0x64 fx_off
    READ_SHORT 0x68 fx_num

    SET found = 0

    FOR (i = 0; i < fx_num; ++i) BEGIN
      SET fx = fx_off + (0x30 * i)

      READ_SHORT (fx + 0x00) opcode
      READ_LONG  (fx + 0x04) parameter1

      PATCH_IF (opcode = 49 AND parameter1 > 0 AND parameter1 <= 25) BEGIN

        READ_SHORT (fx + 0x02) timing
        READ_LONG  (fx + 0x0c) duration

        PATCH_IF (timing = 0 OR timing = 2) BEGIN
          SET found = 1
        END

      END
    END

    PATCH_IF (found = 1) BEGIN
      LPF ADD_ITEM_EFFECT
        INT_VAR
          opcode = 309
          target = 1
          parameter1 = 1
          parameter2 = 0
          timing = 2        // 👈 viktig: equipped
          duration = 0
          resist_dispel = 0
        STR_VAR
          resource = "GelWisdomBlocked"
      END
    END

  END
BUT_ONLY_IF_IT_CHANGES

COPY_EXISTING_REGEXP GLOB ~.*\.spl~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN

    READ_LONG  0x64 fx_off
    READ_SHORT 0x68 fx_num

    SET found = 0
    SET dur = 0

    FOR (i = 0; i < fx_num; ++i) BEGIN
      SET fx = fx_off + (0x30 * i)

      READ_SHORT (fx + 0x00) opcode
      READ_LONG  (fx + 0x04) parameter1
      READ_SHORT (fx + 0x02) timing
      READ_LONG  (fx + 0x0c) duration

      PATCH_IF (opcode = 49 AND parameter1 > 0 AND timing != 9) BEGIN
        SET found = 1
        PATCH_IF (duration > dur) BEGIN
          SET dur = duration
        END
      END
    END

    PATCH_IF (found = 1) BEGIN
      LPF ADD_SPELL_EFFECT
        INT_VAR
          opcode = 309
          target = 1
          parameter1 = 1
          parameter2 = 0
          timing = 0
          duration = dur   // 👈 matcher lengste buff
      STR_VAR
          resource = "GelWisdomBlocked"
      END
    END

  END
BUT_ONLY_IF_IT_CHANGES

//COPY ~GelThiefKitChange/Spells/GelWRem.spl~ ~Override~ // Removes all wisdom bonuses.
//  SAY NAME1 ~No Wisdom bonuses due to low Wisdom~

//COPY ~GelThiefKitChange/Spells/GelDrAV.spl~ ~Override~
//  SAY NAME1 ~Vanilla Druid Spells Added to Mage Spellbook~

//COPY ~GelThiefKitChange/Spells/GelDrAI.spl~ ~Override~
//  SAY NAME1 ~Icewindification Druid Spells Added to Mage Spellbook~

//COPY ~GelThiefKitChange/Spells/GelDrAS.spl~ ~Override~
//  SAY NAME1 ~SCS Druid Spells Added to Mage Spellbook~

///////////// Cleric Spells to Mage spellbook /////////

OUTER_FOR (num = 100; num <= 720; ++num) BEGIN

  OUTER_SPRINT spell    ~SPPR%num%~
  OUTER_SPRINT newspell ~GelC%num%~

  ACTION_IF FILE_EXISTS_IN_GAME ~%spell%.spl~ BEGIN

    COPY_EXISTING ~%spell%.spl~ ~override~

      READ_LONG 0x001e excl

      PATCH_IF (excl != 30) BEGIN // This is wrong, should be PATCH_IF (excl BAND NOT BIT30) BEGIN but i made it different

        INNER_ACTION BEGIN

          COPY_EXISTING ~%spell%.spl~ ~override/%newspell%.spl~

            WRITE_BYTE 0x001c 1

          BUT_ONLY_IF_IT_CHANGES

        END

      END

    BUT_ONLY

  END

END

// Lær Cleric Arcane spells //
//COPY_EXISTING ~GelCLea.spl~ ~override~
//
//  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
//
//    FOR (num = 100; num <= 720; ++num) BEGIN
//
//      SPRINT spell ~GelC%num%~ // Burde denne flyttes til inni PATCH_IF eller LPF? //
//
//      PATCH_IF FILE_EXISTS_IN_GAME ~%spell%.spl~ BEGIN
//
//        LPF ADD_SPELL_EFFECT
//          INT_VAR
//            opcode = 147
//            target = 1
//            timing = 9
//          STR_VAR
//            resource = ~%spell%~
//        END
//
//      END
//
//    END
//
//  END
//
//BUT_ONLY_IF_IT_CHANGES

///////////// Druid Spells to Mage spellbook /////////

OUTER_FOR (num = 100; num <= 720; ++num) BEGIN

  OUTER_SPRINT spell    ~SPPR%num%~
  OUTER_SPRINT newspell ~GelD%num%~

  ACTION_IF FILE_EXISTS_IN_GAME ~%spell%.spl~ BEGIN

    COPY_EXISTING ~%spell%.spl~ ~override~

      READ_LONG 0x001e excl

      PATCH_IF (excl = 30) BEGIN // This is wrong, should be PATCH_IF (excl BAND BIT30) BEGIN, but i made it different.

        INNER_ACTION BEGIN

          COPY_EXISTING ~%spell%.spl~ ~override/%newspell%.spl~

            WRITE_BYTE 0x001c 1

          BUT_ONLY_IF_IT_CHANGES

        END

      END

    BUT_ONLY

  END

END

ACTION_IF GAME_IS ~bgee~ BEGIN

  COPY ~GelThiefKitChange/Spells/GelCLea.spl~ ~override~
    SAY NAME1 ~Cleric Spells Added to Arcane Spellbook~

    PATCH_IF (SOURCE_SIZE > 0x71) BEGIN

      LPF ADD_SPELL_EFFECT
        INT_VAR
          opcode = 104
          target = 1
          timing = 9
          parameter1 = EVALUATE_BUFFER ~-4650~
          parameter2 = 0
      END

    END

  BUT_ONLY_IF_IT_CHANGES

END

ACTION_IF GAME_IS ~bg2ee~ BEGIN

  COPY ~GelThiefKitChange/Spells/GelCLea.spl~ ~override~
    SAY NAME1 ~Cleric Spells Added to Arcane Spellbook~

    PATCH_IF (SOURCE_SIZE > 0x71) BEGIN

      LPF ADD_SPELL_EFFECT
        INT_VAR
          opcode = 104
          target = 1
          timing = 9
          parameter1 = EVALUATE_BUFFER ~-465000~
          parameter2 = 0
      END

    END

  BUT_ONLY_IF_IT_CHANGES

END

ACTION_IF GAME_IS ~eet~ BEGIN

  COPY ~GelThiefKitChange/Spells/GelCLea.spl~ ~Override~
    SAY NAME1 ~Cleric Spells Added to Arcane Spellbook~

END

ACTION_IF GAME_IS ~bgee~ BEGIN

  COPY ~GelThiefKitChange/Spells/GelDLea.spl~ ~Override~
    SAY NAME1 ~Druid and Shaman Spells Added to Arcane Spellbook~

    PATCH_IF (SOURCE_SIZE > 0x71) BEGIN

        LPF ADD_SPELL_EFFECT
          INT_VAR
            opcode = 104
            target = 1
            timing = 9
            parameter1 = EVALUATE_BUFFER ~-2130~
            parameter2 = 0
      END

    END

  BUT_ONLY_IF_IT_CHANGES

END

ACTION_IF GAME_IS ~bg2ee~ BEGIN

  COPY ~GelThiefKitChange/Spells/GelDLea.spl~ ~Override~
    SAY NAME1 ~Druid and Shaman Spells Added to Arcane Spellbook~

    PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
        LPF ADD_SPELL_EFFECT
          INT_VAR
            opcode = 104
            target = 1
            timing = 9
            parameter1 = EVALUATE_BUFFER ~-213000~
            parameter2 = 0
      END

    END

  BUT_ONLY_IF_IT_CHANGES

END

ACTION_IF GAME_IS ~eet~ BEGIN

  COPY ~GelThiefKitChange/Spells/GelDLea.spl~ ~Override~
    SAY NAME1 ~Druid and Shaman Spells Added to Arcane Spellbook~

END

COPY_EXISTING_REGEXP GLOB ~^SPPR[1-7][0-9][0-9]\.spl$~ ~override~
  READ_LONG 0x001e excl

  // Kun kopier hvis bit 30 er satt (druid/ranger/shaman-spell)
  PATCH_IF (excl BAND BIT30) BEGIN
    INNER_PATCH_SAVE newname ~%SOURCE_FILE%~ BEGIN
      REPLACE_TEXTUALLY ~SPPR~ ~GelA~
    END

    INNER_ACTION BEGIN
      COPY_EXISTING ~%SOURCE_FILE%~ ~override/%newname%~
        WRITE_LONG 0x001e (excl BAND BNOT BIT30)  // fjerner bit 31
      BUT_ONLY_IF_IT_CHANGES
    END
  END
BUT_ONLY

// Lær Druid Cleric spells //
COPY_EXISTING ~GelALea.spl~ ~override~

  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN

    FOR (num = 100; num <= 720; ++num) BEGIN

      SPRINT spell ~GelA%num%~

      PATCH_IF FILE_EXISTS_IN_GAME ~%spell%.spl~ BEGIN

      SPRINT spellref ~%spell%~

        LPF ADD_SPELL_EFFECT
          INT_VAR
            opcode = 147
            target = 1
            timing = 9
          STR_VAR
            resource = EVAL ~%spellref%~
        END

      END

    END

  END

BUT_ONLY_IF_IT_CHANGES

//COPY ~GelThiefKitChange/Spells/GelDrDV.spl~ ~Override~
//  SAY NAME1 ~Vanilla Druid Spells Added to Priest Spellbook~

//COPY ~GelThiefKitChange/Spells/GelDrDI.spl~ ~Override~
//  SAY NAME1 ~Icewindification Druid Spells Added to Priest Spellbook~

//COPY ~GelThiefKitChange/Spells/GelDrDS.spl~ ~Override~
//  SAY NAME1 ~SCS Druid Spells Added to Priest Spellbook~

COPY ~GelThiefKitChange/Spells/GelPIA1.spl~ ~Override~
  SAY NAME1 ~Permanent Improved Alacricity~

COPY ~GelThiefKitChange/Spells/GelNBS3.spl~ ~Override~
  SAY NAME1 ~-3 to backstab modifier~

COPY ~GelThiefKitChange/Spells/GelNBS2.spl~ ~Override~
  SAY NAME1 ~-2 to backstab modifier~

COPY ~GelThiefKitChange/Spells/GelNBS1.spl~ ~Override~
  SAY NAME1 ~-1 to backstab modifier~

COPY ~GelThiefKitChange/Spells/GelPBS1.spl~ ~Override~
  SAY NAME1 ~+1 to backstab modifier~

COPY ~GelThiefKitChange/Spells/GelPBS2.spl~ ~Override~
  SAY NAME1 ~+2 to backstab modifier~

COPY ~GelThiefKitChange/Spells/GelPBS3.spl~ ~Override~
  SAY NAME1 ~+3 to backstab modifier~

COPY ~GelThiefKitChange/Spells/Gel-10S.spl~ ~Override~
  SAY NAME1 ~-10 to Move Silent & Hide in Shadows~

COPY ~GelThiefKitChange/Spells/Gel+10S.spl~ ~Override~
  SAY NAME1 ~+10 to Move Silent & Hide in Shadows~

COPY ~GelThiefKitChange/Spells/Gel-10F.spl~ ~Override~
  SAY NAME1 ~-10 to Find Traps~

COPY ~GelThiefKitChange/Spells/Gel+10F.spl~ ~Override~
  SAY NAME1 ~+10 to Find Traps~

COPY ~GelThiefKitChange/Spells/Gel-10P.spl~ ~Override~
  SAY NAME1 ~-10 to Pick Pocket~

COPY ~GelThiefKitChange/Spells/Gel+10P.spl~ ~Override~
  SAY NAME1 ~+10 to Pick Pocket~

COPY ~GelThiefKitChange/Spells/Gel-10O.spl~ ~Override~
  SAY NAME1 ~-10 to Open Locks~

COPY ~GelThiefKitChange/Spells/Gel+10O.spl~ ~Override~
  SAY NAME1 ~+10 to Open Locks~

COPY ~GelThiefKitChange/Spells/Gel-10I.spl~ ~Override~
  SAY NAME1 ~-10 to Detect Illusion~

COPY ~GelThiefKitChange/Spells/Gel+10I.spl~ ~Override~
  SAY NAME1 ~+10 to Detect Illusion~

COPY ~GelThiefKitChange/Spells/Gel-10T.spl~ ~Override~
  SAY NAME1 ~-10 to Set Traps~

COPY ~GelThiefKitChange/Spells/Gel+10T.spl~ ~Override~
  SAY NAME1 ~+10 to Set Traps~

COPY ~GelThiefKitChange/Spells/GelCS-1.spl~ ~Override~
  SAY NAME1 ~-1 to casting speed bonus~

COPY ~GelThiefKitChange/Spells/GelCS+1.spl~ ~Override~
  SAY NAME1 ~+1 to casting speed bonus~

COPY ~GelThiefKitChange/Spells/GelAC-1.spl~ ~Override~
  SAY NAME1 ~-1 to Arcane Casting Slots all spell levels~

COPY ~GelThiefKitChange/Spells/GelAC+1.spl~ ~Override~
  SAY NAME1 ~+1 to Arcane Casting Slots all spell levels~

COPY ~GelThiefKitChange/Spells/GelDC-1.spl~ ~Override~
  SAY NAME1 ~-1 to Devine Casting Slots all spell levels~

COPY ~GelThiefKitChange/Spells/GelDC+1.spl~ ~Override~
  SAY NAME1 ~+1 to Devine Casting Slots all spell levels~

COPY ~GelThiefKitChange/Spells/GelAS-1.spl~ ~Override~
  SAY NAME1 ~-1 to Strenght~

COPY ~GelThiefKitChange/Spells/GelAS+1.spl~ ~Override~
  SAY NAME1 ~+1 to Strenght~

COPY ~GelThiefKitChange/Spells/GelAD-1.spl~ ~Override~
  SAY NAME1 ~-1 to Dexterity~

COPY ~GelThiefKitChange/Spells/GelAD+1.spl~ ~Override~
  SAY NAME1 ~+1 to Dexterity~

COPY ~GelThiefKitChange/Spells/GelCo-1.spl~ ~Override~
  SAY NAME1 ~-1 to Constitution~

COPY ~GelThiefKitChange/Spells/GelCo+1.spl~ ~Override~
  SAY NAME1 ~+1 to Constitution~

COPY ~GelThiefKitChange/Spells/GelAI-1.spl~ ~Override~
  SAY NAME1 ~-1 to Intelligence~

COPY ~GelThiefKitChange/Spells/GelAI+1.spl~ ~Override~
  SAY NAME1 ~+1 to Intelligence~

COPY ~GelThiefKitChange/Spells/GelAW-1.spl~ ~Override~
  SAY NAME1 ~-1 to Wisdom~

COPY ~GelThiefKitChange/Spells/GelAW+1.spl~ ~Override~
  SAY NAME1 ~+1 to Wisdom~

COPY ~GelThiefKitChange/Spells/GelCh-1.spl~ ~Override~
  SAY NAME1 ~-1 to Charisma~

COPY ~GelThiefKitChange/Spells/GelCh+1.spl~ ~Override~
  SAY NAME1 ~+1 to Charisma~

COPY ~GelThiefKitChange/Spells/GelAA-1.spl~ ~Override~
  SAY NAME1 ~-1 to All Attributes~

COPY ~GelThiefKitChange/Spells/GelAA+1.spl~ ~Override~
  SAY NAME1 ~+1 to All Attributes~

COPY ~GelThiefKitChange/Spells/GelWALR.spl~ ~Override~
  SAY NAME1 ~All wepons restricted~

COPY ~GelThiefKitChange/Spells/GelW2HR.spl~ ~Override~
  SAY NAME1 ~2 handed swords restricted~

COPY ~GelThiefKitChange/Spells/GelWBAR.spl~ ~Override~
  SAY NAME1 ~Bastard Swords restricted~

COPY ~GelThiefKitChange/Spells/GelWLOR.spl~ ~Override~
  SAY NAME1 ~Long Swords restricted~

COPY ~GelThiefKitChange/Spells/GelWDAR.spl~ ~Override~
  SAY NAME1 ~Daggers restricted~

COPY ~GelThiefKitChange/Spells/GelWSMR.spl~ ~Override~
  SAY NAME1 ~Short Swords restricted~

COPY ~GelThiefKitChange/Spells/GelWWHR.spl~ ~Override~
  SAY NAME1 ~War Hammers restricted~

COPY ~GelThiefKitChange/Spells/GelWFMR.spl~ ~Override~
  SAY NAME1 ~Flails and Morning Stars restricted~

COPY ~GelThiefKitChange/Spells/GelWMAR.spl~ ~Override~
  SAY NAME1 ~Maces restricted~

COPY ~GelThiefKitChange/Spells/GelWQSR.spl~ ~Override~
  SAY NAME1 ~Quarterstaff restricted~

COPY ~GelThiefKitChange/Spells/GelWCLR.spl~ ~Override~
  SAY NAME1 ~Clubs restricted~

COPY ~GelThiefKitChange/Spells/GelWHAR.spl~ ~Override~
  SAY NAME1 ~Halberds restricted~

COPY ~GelThiefKitChange/Spells/GelWSPR.spl~ ~Override~
  SAY NAME1 ~Spears restricted~

COPY ~GelThiefKitChange/Spells/GelWAXR.spl~ ~Override~
  SAY NAME1 ~Axes restricted~

COPY ~GelThiefKitChange/Spells/GelAAAR.spl~ ~Override~
  SAY NAME1 ~All armor restricted~

COPY ~GelThiefKitChange/Spells/GelACAR.spl~ ~Override~
  SAY NAME1 ~All Chest Armor restricted~

COPY ~GelThiefKitChange/Spells/GelAFPR.spl~ ~Override~
  SAY NAME1 ~Full plate armor restricted~

COPY ~GelThiefKitChange/Spells/GelAPLR.spl~ ~Override~
  SAY NAME1 ~Plate armor restricted~

COPY ~GelThiefKitChange/Spells/GelASPR.spl~ ~Override~
  SAY NAME1 ~Splint mail restricted~

COPY ~GelThiefKitChange/Spells/GelACHR.spl~ ~Override~
  SAY NAME1 ~Chainmail restricted~

COPY ~GelThiefKitChange/Spells/GelASTR.spl~ ~Override~
  SAY NAME1 ~Studdeth Leather restricted~

COPY ~GelThiefKitChange/Spells/GelAMCR.spl~ ~Override~
  SAY NAME1 ~Metal Chest Armor Restricted~

COPY ~GelThiefKitChange/Spells/GelAHER.spl~ ~Override~
  SAY NAME1 ~Helms Restricted~

COPY ~GelThiefKitChange/Spells/GelAGLR.spl~ ~Override~
  SAY NAME1 ~Gloves restricted~

COPY ~GelThiefKitChange/Spells/GelJAMR.spl~ ~Override~
  SAY NAME1 ~Amulet restricted~

COPY ~GelThiefKitChange/Spells/GelJRIR.spl~ ~Override~
  SAY NAME1 ~Rings restricted~

COPY ~GelThiefKitChange/Spells/GelJCLR.spl~ ~Override~
  SAY NAME1 ~Cloaks and robes restricted~

COPY ~GelThiefKitChange/Spells/GelJBOR.spl~ ~Override~
  SAY NAME1 ~Boots restricted~

COPY ~GelThiefKitChange/Spells/GelJBER.spl~ ~Override~
  SAY NAME1 ~Belts restricted~

COPY ~GelThiefKitChange/Spells/GelTH+1.spl~ ~Override~
  SAY NAME1 ~+1 bonus to THAC0~

COPY ~GelThiefKitChange/Spells/GelTH-1.spl~ ~Override~
  SAY NAME1 ~-1 bonus to THAC0~

COPY ~GelThiefKitChange/Spells/GelDM+1.spl~ ~Override~
  SAY NAME1 ~+1 bonus to Damage~

COPY ~GelThiefKitChange/Spells/GelDM-1.spl~ ~Override~
  SAY NAME1 ~-1 bonus to Damage~

COPY ~GelThiefKitChange/Spells/GelCA+1.spl~ ~Override~
  SAY NAME1 ~+1 bonus to Armor Class~

COPY ~GelThiefKitChange/Spells/GelCA-1.spl~ ~Override~
  SAY NAME1 ~-1 bonus to Armor Class~

COPY ~GelThiefKitChange/Spells/GelAPR1.spl~ ~Override~
  SAY NAME1 ~+1 Attack per Round~

COPY ~GelThiefKitChange/Spells/GelAPN1.spl~ ~Override~
  SAY NAME1 ~-1 Attack per Round~

COPY ~GelThiefKitChange/Spells/GelSF+1.spl~ ~Override~
  SAY NAME1 ~+1 bonus to Speed Factor~

COPY ~GelThiefKitChange/Spells/GelSF-1.spl~ ~Override~
  SAY NAME1 ~-1 bonus to Speed Factor~

COPY ~GelThiefKitChange/Spells/GelFR+1.spl~ ~Override~
  SAY NAME1 ~+10% Fire Resistance~

COPY ~GelThiefKitChange/Spells/GelFR-1.spl~ ~Override~
  SAY NAME1 ~-10% Fire Resistance~

COPY ~GelThiefKitChange/Spells/GelCR+1.spl~ ~Override~
  SAY NAME1 ~+10% Cold Resistance~

COPY ~GelThiefKitChange/Spells/GelCR-1.spl~ ~Override~
  SAY NAME1 ~-10% Cold Resistance~

COPY ~GelThiefKitChange/Spells/GelER+1.spl~ ~Override~
  SAY NAME1 ~+10% Electricity Resistance~

COPY ~GelThiefKitChange/Spells/GelER-1.spl~ ~Override~
  SAY NAME1 ~-10% Electricity Resistance~

COPY ~GelThiefKitChange/Spells/GelAR+1.spl~ ~Override~
  SAY NAME1 ~+10% Acid Resistance~

COPY ~GelThiefKitChange/Spells/GelAR-1.spl~ ~Override~
  SAY NAME1 ~-10% Acid Resistance~

COPY ~GelThiefKitChange/Spells/GelPR+1.spl~ ~Override~
  SAY NAME1 ~+10% Poison Resistance~

COPY ~GelThiefKitChange/Spells/GelPR-1.spl~ ~Override~
  SAY NAME1 ~-10% Poison Resistance~

COPY ~GelThiefKitChange/Spells/GelMR+1.spl~ ~Override~
  SAY NAME1 ~+10% Magic Resistance~

COPY ~GelThiefKitChange/Spells/GelMR-1.spl~ ~Override~
  SAY NAME1 ~-10% Magic Resistance~

COPY ~GelThiefKitChange/Spells/GelPH+1.spl~ ~Override~
  SAY NAME1 ~+10% Physical Resistance~

COPY ~GelThiefKitChange/Spells/GelPH-1.spl~ ~Override~
  SAY NAME1 ~-10% Physical Resistance~

COPY ~GelThiefKitChange/Spells/GelDMP1.spl~ ~Override~
  SAY NAME1 ~+10% Magic Damage Reduction~

COPY ~GelThiefKitChange/Spells/GelDMN1.spl~ ~Override~
  SAY NAME1 ~-10% Magic Damage Reduction~

COPY ~GelThiefKitChange/Spells/GelImCh.spl~ ~Override~
  SAY NAME1 ~Immunity to Charm and Domination~

COPY ~GelThiefKitChange/Spells/GelImFe.spl~ ~Override~
  SAY NAME1 ~Immunity to Fear~

COPY ~GelThiefKitChange/Spells/GelImSl.spl~ ~Override~
  SAY NAME1 ~Immunity to Sleep~

COPY ~GelThiefKitChange/Spells/GelImSt.spl~ ~Override~
  SAY NAME1 ~Immunity to Hold and Stun effects~

COPY ~GelThiefKitChange/Spells/GelImDi.spl~ ~Override~
  SAY NAME1 ~Immunity to Diseases~

COPY ~GelThiefKitChange/Spells/GelImLv.spl~ ~Override~
  SAY NAME1 ~Immunity to Level Drain~

COPY ~GelThiefKitChange/Spells/GelImFr.spl~ ~Override~
  SAY NAME1 ~Free Action enabled~

COPY ~GelThiefKitChange/Spells/GelMov2.spl~ ~Override~
  SAY NAME1 ~+2 Movement Speed~

COPY ~GelThiefKitChange/Spells/GelMoX2.spl~ ~Override~
  SAY NAME1 ~Movement Speed doubled~

COPY ~GelThiefKitChange/Spells/GelSavP.spl~ ~Override~
  SAY NAME1 ~+1 Bonus to Saving Throws~

COPY ~GelThiefKitChange/Spells/GelSavN.spl~ ~Override~
  SAY NAME1 ~-1 Bonus to Saving Throws~

COPY ~GelThiefKitChange/Spells/Gel2HS1.spl~ ~Override~
  SAY NAME1 ~Two-Handed Sword Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/Gel2HS2.spl~ ~Override~
  SAY NAME1 ~Two-Handed Sword Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/Gel2HS3.spl~ ~Override~
  SAY NAME1 ~Two-Handed Sword Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/Gel2HS4.spl~ ~Override~
  SAY NAME1 ~Two-Handed Sword Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/Gel2HS5.spl~ ~Override~
  SAY NAME1 ~Two-Handed Sword Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelBSw1.spl~ ~Override~
  SAY NAME1 ~Bastard Sword Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelBSw2.spl~ ~Override~
  SAY NAME1 ~Bastard Sword Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelBSw3.spl~ ~Override~
  SAY NAME1 ~Bastard Sword Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelBSw4.spl~ ~Override~
  SAY NAME1 ~Bastard Sword Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelBSw5.spl~ ~Override~
  SAY NAME1 ~Bastard Sword Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelLSw1.spl~ ~Override~
  SAY NAME1 ~Long Sword Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelLSw2.spl~ ~Override~
  SAY NAME1 ~Long Sword Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelLSw3.spl~ ~Override~
  SAY NAME1 ~Long Sword Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelLSw4.spl~ ~Override~
  SAY NAME1 ~Long Sword Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelLSw5.spl~ ~Override~
  SAY NAME1 ~Long Sword Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelSSw1.spl~ ~Override~
  SAY NAME1 ~Short Sword Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelSSw2.spl~ ~Override~
  SAY NAME1 ~Short Sword Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelSSw3.spl~ ~Override~
  SAY NAME1 ~Short Sword Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelSSw4.spl~ ~Override~
  SAY NAME1 ~Short Sword Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelSSw5.spl~ ~Override~
  SAY NAME1 ~Short Sword Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelDAG1.spl~ ~Override~
  SAY NAME1 ~Dagger Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelDAG2.spl~ ~Override~
  SAY NAME1 ~Dagger Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelDAG3.spl~ ~Override~
  SAY NAME1 ~Dagger Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelDAG4.spl~ ~Override~
  SAY NAME1 ~Dagger Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelDAG5.spl~ ~Override~
  SAY NAME1 ~Dagger Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelKAT1.spl~ ~Override~
  SAY NAME1 ~Katana Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelKAT2.spl~ ~Override~
  SAY NAME1 ~Katana Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelKAT3.spl~ ~Override~
  SAY NAME1 ~Katana Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelKAT4.spl~ ~Override~
  SAY NAME1 ~Katana Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelKAT5.spl~ ~Override~
  SAY NAME1 ~Katana Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelSCM1.spl~ ~Override~
  SAY NAME1 ~Scimitar etc Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelSCM2.spl~ ~Override~
  SAY NAME1 ~Scimitar etc Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelSCM3.spl~ ~Override~
  SAY NAME1 ~Scimitar etc Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelSCM4.spl~ ~Override~
  SAY NAME1 ~Scimitar etc Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelSCM5.spl~ ~Override~
  SAY NAME1 ~Scimitar etc Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelSpr1.spl~ ~Override~
  SAY NAME1 ~Spear Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelSpr2.spl~ ~Override~
  SAY NAME1 ~Spear Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelSpr3.spl~ ~Override~
  SAY NAME1 ~Spear Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelSpr4.spl~ ~Override~
  SAY NAME1 ~Spear Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelSpr5.spl~ ~Override~
  SAY NAME1 ~Spear Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelHAL1.spl~ ~Override~
  SAY NAME1 ~Halberd Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelHAL2.spl~ ~Override~
  SAY NAME1 ~Halberd Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelHAL3.spl~ ~Override~
  SAY NAME1 ~Halberd Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelHAL4.spl~ ~Override~
  SAY NAME1 ~Halberd Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelHAL5.spl~ ~Override~
  SAY NAME1 ~Halberd Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelFLA1.spl~ ~Override~
  SAY NAME1 ~Flail/Morning Star Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelFLA2.spl~ ~Override~
  SAY NAME1 ~Flail/Morning Star Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelFLA3.spl~ ~Override~
  SAY NAME1 ~Flail/Morning Star Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelFLA4.spl~ ~Override~
  SAY NAME1 ~Flail/Morning Star Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelFLA5.spl~ ~Override~
  SAY NAME1 ~Flail/Morning Star Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelMAC1.spl~ ~Override~
  SAY NAME1 ~Mace Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelMAC2.spl~ ~Override~
  SAY NAME1 ~Mace Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelMAC3.spl~ ~Override~
  SAY NAME1 ~Mace Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelMAC4.spl~ ~Override~
  SAY NAME1 ~Mace Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelMAC5.spl~ ~Override~
  SAY NAME1 ~Mace Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelWHM1.spl~ ~Override~
  SAY NAME1 ~War Hammer Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelWHM2.spl~ ~Override~
  SAY NAME1 ~War Hammer Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelWHM3.spl~ ~Override~
  SAY NAME1 ~War Hammer Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelWHM4.spl~ ~Override~
  SAY NAME1 ~War Hammer Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelWHM5.spl~ ~Override~
  SAY NAME1 ~War Hammer Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelQST1.spl~ ~Override~
  SAY NAME1 ~Quarterstaff Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelQST2.spl~ ~Override~
  SAY NAME1 ~Quarterstaff Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelQST3.spl~ ~Override~
  SAY NAME1 ~Quarterstaff Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelQST4.spl~ ~Override~
  SAY NAME1 ~Quarterstaff Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelQST5.spl~ ~Override~
  SAY NAME1 ~Quarterstaff Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelSLG1.spl~ ~Override~
  SAY NAME1 ~Sling Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelSLG2.spl~ ~Override~
  SAY NAME1 ~Sling Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelSLG3.spl~ ~Override~
  SAY NAME1 ~Sling Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelSLG4.spl~ ~Override~
  SAY NAME1 ~Sling Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelSLG5.spl~ ~Override~
  SAY NAME1 ~Sling Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelCRB1.spl~ ~Override~
  SAY NAME1 ~Crossbow Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelCRB2.spl~ ~Override~
  SAY NAME1 ~Crossbow Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelCRB3.spl~ ~Override~
  SAY NAME1 ~Crossbow Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelCRB4.spl~ ~Override~
  SAY NAME1 ~Crossbow Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelCRB5.spl~ ~Override~
  SAY NAME1 ~Crossbow Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelLNB1.spl~ ~Override~
  SAY NAME1 ~Longbow Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelLNB2.spl~ ~Override~
  SAY NAME1 ~Longbow Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelLNB3.spl~ ~Override~
  SAY NAME1 ~Longbow Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelLNB4.spl~ ~Override~
  SAY NAME1 ~Longbow Proficiency set to 4~

COPY ~GelThiefKitChange/Spells/GelLNB5.spl~ ~Override~
  SAY NAME1 ~Longbow Proficiency set to 5~

COPY ~GelThiefKitChange/Spells/GelTWS1.spl~ ~Override~
  SAY NAME1 ~Two Wepon Style Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelTWS2.spl~ ~Override~
  SAY NAME1 ~Two Wepon Style Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelTWS3.spl~ ~Override~
  SAY NAME1 ~Two Wepon Style Proficiency set to 3~

COPY ~GelThiefKitChange/Spells/GelSWS1.spl~ ~Override~
  SAY NAME1 ~Single Wepon Style Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelSWS2.spl~ ~Override~
  SAY NAME1 ~Single Wepon Style Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelSSS1.spl~ ~Override~
  SAY NAME1 ~Sword and Shield Style Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/GelSSS2.spl~ ~Override~
  SAY NAME1 ~Sword and Shield Style Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/Gel2HS1.spl~ ~Override~
  SAY NAME1 ~2 handed Style Proficiency set to 1~

COPY ~GelThiefKitChange/Spells/Gel2HS2.spl~ ~Override~
  SAY NAME1 ~2 handed Style Proficiency set to 2~

COPY ~GelThiefKitChange/Spells/GelSMO1.spl~ ~Override~
  SAY NAME1 ~Learn: Stunning Blow~

COPY ~GelThiefKitChange/Spells/GelSMO2.spl~ ~Override~
  SAY NAME1 ~Learn: Sun Soulray~

COPY ~GelThiefKitChange/Spells/GelSMO3.spl~ ~Override~
  SAY NAME1 ~Learn: Flaming Fists~

COPY ~GelThiefKitChange/Spells/GelSMO4.spl~ ~Override~
  SAY NAME1 ~Learn: Lay on Hands~

COPY ~GelThiefKitChange/Spells/GelSMO5.spl~ ~Override~
  SAY NAME1 ~Learn: Greater Sun~

COPY ~GelThiefKitChange/Spells/GelSMO6.spl~ ~Override~
  SAY NAME1 ~Learn: Sun Soulbeam~

COPY ~GelThiefKitChange/Spells/GelSMO7.spl~ ~Override~
  SAY NAME1 ~Learn: Quilvering Palm~

COPY ~GelThiefKitChange/Spells/GelLWir.spl~ ~Override~
  SAY NAME1 ~Learn: Greater Wirlwind~

COPY ~GelThiefKitChange/Spells/GelLDea.spl~ ~Override~
  SAY NAME1 ~Learn: Greater Deathblow~

COPY ~GelThiefKitChange/Spells/GelLCri.spl~ ~Override~
  SAY NAME1 ~Learn: Critical Strike~

COPY ~GelThiefKitChange/Spells/GelLHar.spl~ ~Override~
  SAY NAME1 ~Learn: Hardiness~

COPY ~GelThiefKitChange/Spells/GelLPow.spl~ ~Override~
  SAY NAME1 ~Learn: Power Strike~

COPY ~GelThiefKitChange/Spells/GelLSmi.spl~ ~Override~
  SAY NAME1 ~Learn: Smite~

COPY ~GelThiefKitChange/Spells/GelLFav.spl~ ~Override~
  SAY NAME1 ~Learn: Favoured by the Spirits~

COPY ~GelThiefKitChange/Spells/GelLDev.spl~ ~Override~
  SAY NAME1 ~Learn: Summon Deva~

COPY ~GelThiefKitChange/Spells/GelLFDe.spl~ ~Override~
  SAY NAME1 ~Learn: Summon Fallen Deva~

COPY ~GelThiefKitChange/Spells/GelLSpi.spl~ ~Override~
  SAY NAME1 ~Learn: Set Spike Trap~

COPY ~GelThiefKitChange/Spells/GelLTim.spl~ ~Override~
  SAY NAME1 ~Learn: Set Time Trap~

COPY ~GelThiefKitChange/Spells/GelLFir.spl~ ~Override~
  SAY NAME1 ~Learn: Shapechange Fire Elemental~

COPY ~GelThiefKitChange/Spells/GelLEar.spl~ ~Override~
  SAY NAME1 ~Learn: Shapechange Earth Elemental~

COPY ~GelThiefKitChange/Spells/GelLBre.spl~ ~Override~
  SAY NAME1 ~Learn: Breath Fire~

COPY ~GelThiefKitChange/Spells/GelLPsi.spl~ ~Override~
  SAY NAME1 ~Learn: Psionic Blast~

COPY ~GelThiefKitChange/Spells/GelLBli.spl~ ~Override~
  SAY NAME1 ~Learn: Blindness~

COPY ~GelThiefKitChange/Spells/GelLMir.spl~ ~Override~
  SAY NAME1 ~Learn: Mirror Immage~

COPY ~GelThiefKitChange/Spells/GelLBlu.spl~ ~Override~
  SAY NAME1 ~Learn: Blur~

COPY ~GelThiefKitChange/Spells/GelLChi.spl~ ~Override~
  SAY NAME1 ~Learn: Frozen Fist~

COPY ~GelThiefKitChange/Spells/GELRoot.spl~ ~Override~
  SAY NAME1 ~Poisonous Root Spike~

COPY ~GelThiefKitChange/Spells/GelLuP1.spl~ ~Override~
  SAY NAME1 ~+1 Bonus to Luck~

COPY ~GelThiefKitChange/Spells/GelLuN1.spl~ ~Override~
  SAY NAME1 ~-1 Bonus to Luck~

COPY ~GelThiefKitChange/Spells/GelLoP1.spl~ ~Override~
  SAY NAME1 ~+1 Bonus to Lore~

COPY ~GelThiefKitChange/Spells/GelLoN1.spl~ ~Override~
  SAY NAME1 ~-1 Bonus to Lore~

COPY ~GelThiefKitChange/Spells/GelMWAR.spl~ ~Override~
  SAY NAME1 ~All Wands Restricted~

COPY ~GelThiefKitChange/Spells/GelMW0R.spl~ ~Override~
  SAY NAME1 ~Wand of Monster Summoning Restricted~

COPY ~GelThiefKitChange/Spells/GelMWcR.spl~ ~Override~
  SAY NAME1 ~Wand of Cloudkill Restricted~

COPY ~GelThiefKitChange/Spells/GelMW4R.spl~ ~Override~
  SAY NAME1 ~Wand of Paralyze Restricted~

COPY ~GelThiefKitChange/Spells/GelMW5R.spl~ ~Override~
  SAY NAME1 ~Wand of Fire Restricted~

COPY ~GelThiefKitChange/Spells/GelMW7R.spl~ ~Override~
  SAY NAME1 ~Wand of Lightning Restricted~

//////======= WOODCLAN NINJA items and spells =======////////
COPY ~GelThiefKitChange/Items/bdbrac05.itm~ ~Override~
	SAY NAME1 ~Gauntlets~ // Unindentified name
	SAY NAME2 ~Stalker Gauntlets~ // Identified name
	SAY UNIDENTIFIED_DESC ~Gauntlets are armored gloves. They can be made of leather, metal plates, or chain mail. Every suit of armor is assumed to include gauntlets of an appropriate type. Magical gauntlets tend to be finer, lighter, and more easily worn than normal varieties.

STATISTICS:

Weight: 2~ 
	SAY DESC ~These gauntlets assist in the stalking and killing of prey. Favored by hunters and rogues of all kinds, they display their full power when donned by a Stalker or Woodclan Ninja. Made of supple leather with brass-buckled straps along the side, these gauntlets are often decorated with embroidered figures of stags, foxes, or, as is the case with this pair, wolves.

STATISTICS:

Equipped abilities:
– Dexterity: +1
– Hide in Shadows: +15% (+30% for Stalkers and Woodclan Ninja)
– Backstab Multiplier: +1 (Stalkers and Woodclan Ninja only)

Weight: 2~

// Copy items
COPY ~GelThiefKitChange/Items/Gebrac05.itm~ ~Override~
	SAY NAME1 ~Gauntlets~ // Unindentified name
	SAY NAME2 ~Ankheg Plated Stalker Gauntlets~ // Identified name
	SAY UNIDENTIFIED_DESC ~Gauntlets are armored gloves. They can be made of leather, metal plates, or chain mail. Every suit of armor is assumed to include gauntlets of an appropriate type. Magical gauntlets tend to be finer, lighter, and more easily worn than normal varieties.

STATISTICS:

Weight: 2~ 
	SAY DESC ~These gauntlets assist in the stalking and killing of prey. Favored by hunters and rogues of all kinds, they display their full power when donned by a Stalker or Woodclan Ninja. Made of ankheg coated leather with brass-buckled straps along the side, these gauntlets are often decorated with embroidered figures of stags, foxes, or, as is the case with this pair, wolves.

STATISTICS:

Equipped abilities:
– Dexterity: +1
– Hide in Shadows: +15% (+30% for Stalkers and Woodclan Ninja)
– Backstab Multiplier: +1 (Stalkers and Woodclan Ninja only)
– Attackspeed: +1/2 attack per round 
– Strenght: +1
– Thaco Bonus: +1

Weight: 2~

// Copy items
ADD_PROJECTILE ~GelThiefKitChange/PRO/GelSmok.PRO~ 
CLEAR_IDS_MAP
COPY ~GelThiefKitChange/Spells/GelNi21.spl~ ~Override~
	SAY NAME1 ~Black Powder Smoke Bomb~ // Unindentified name
	SAY NAME2 ~Black Powder Smoke Bomb~ // Identified name
	SAY 0x50 ~BLACK POWDER SMOKE BOMB:
The Woodclan Ninja throws a potion of Black Powder he has created. The enemies may become blind from the effects and he can reposition or attack while enemies blind.

STATISTICS:
Area of effect: 64
Blindness unless save throw at -2 penalty
Duration of blind: 80 seconds~
 	LPF ALTER_SPELL_HEADER INT_VAR projectile = %GelSmok% END
  	PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    		LPF ~ADD_SPELL_EFFECT~ INT_VAR opcode = 139 target = 2 timing = 1 parameter1 = RESOLVE_STR_REF (~Blinded~) resist_dispel = 3 END
  	END
  	BUT_ONLY
CLEAR_IDS_MAP

// Copy items
ADD_PROJECTILE ~GelThiefKitChange/PRO/GelStar.PRO~ 
CLEAR_IDS_MAP
COPY ~GelThiefKitChange/Items/GelShu1.itm~ ~Override~
	SAY NAME1 ~Ninja Star +1~ // Unindentified name
	SAY NAME2 ~Ninja Star +1~ // Identified name
	SAY UNIDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +1
Damage: 1d8+1 (slashing)
Speed Factor: 2
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 1 second (Piercing)~
	SAY IDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +1
Damage: 1d8+1 (slashing)
Speed Factor: 2
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 1 second (Piercing)~
        LPF ALTER_ITEM_HEADER INT_VAR projectile = %GelStar% END

// Copy items
COPY ~GelThiefKitChange/Items/GelShu2.itm~ ~Override~
	SAY NAME1 ~Ninja Star +2~ // Unindentified name
	SAY NAME2 ~Ninja Star +2~ // Identified name
	SAY UNIDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +2
Damage: 1d8+2 (slashing)
Speed Factor: 1
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 2 seconds (Piercing)~
	SAY IDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +2
Damage: 1d8+2 (slashing)
Speed Factor: 1
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 2 seconds (Piercing)~
        LPF ALTER_ITEM_HEADER INT_VAR projectile = %GelStar% END

// Copy items
COPY ~GelThiefKitChange/Items/GelShu3.itm~ ~Override~
	SAY NAME1 ~Ninja Star +3~ // Unindentified name
	SAY NAME2 ~Ninja Star +3~ // Identified name
	SAY UNIDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +3
Damage: 1d8+3 (slashing)
Speed Factor: 0
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 3 seconds (Piercing)~
	SAY IDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +3
Damage: 1d8+3 (slashing)
Speed Factor: 0
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 3 seconds (Piercing)~
        LPF ALTER_ITEM_HEADER INT_VAR projectile = %GelStar% END

// Copy items
COPY ~GelThiefKitChange/Items/GelShu4.itm~ ~Override~
	SAY NAME1 ~Ninja Star +4~ // Unindentified name
	SAY NAME2 ~Ninja Star +4~ // Identified name
	SAY UNIDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +4
Damage: 1d8+4 (slashing)
Speed Factor: 0
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 4 seconds (Piercing)~
	SAY IDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +4
Damage: 1d8+4 (slashing)
Speed Factor: 0
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 4 seconds (Piercing)~
        LPF ALTER_ITEM_HEADER INT_VAR projectile = %GelStar% END

// Copy items
COPY ~GelThiefKitChange/Items/GelShu5.itm~ ~Override~
	SAY NAME1 ~Ninja Star +5~ // Unindentified name
	SAY NAME2 ~Ninja Star +5~ // Identified name
	SAY UNIDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +5
Damage: 1d8+5 (slashing)
Speed Factor: 1
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 5 seconds (Piercing)~
	SAY IDENTIFIED_DESC ~The ninja star has 4 pointed, double-edged blades.
STATISTICS:
Bonus to hit: +5
Damage: 1d8+5 (slashing)
Speed Factor: 1
Proficiency Type: Dart
Type: One-handed
Requires:
 3 Strength

Weight: 0

Effects:
Enemy bleed 1 damage per second for 5 seconds (Piercing)~
        LPF ALTER_ITEM_HEADER INT_VAR projectile = %GelStar% END

// Copy spells
COPY ~GelThiefKitChange/spells/GelShur.spl~ ~Override~
	SAY NAME1 ~Create Ninja Stars~ // Unindentified name
	SAY NAME2 ~Create Ninja Stars~ // Identified name

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi20.spl~ ~Override~
	SAY NAME1 ~Set Kit Script~ // Unindentified name
	SAY NAME2 ~Set Kit Script~ // Identified name

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi10.spl~ ~Override~
	SAY NAME1 ~Backstab Every Hit~ // Unindentified name
	SAY NAME2 ~Backstab Every Hit~ // Identified name

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi11.spl~ ~Override~
	SAY NAME1 ~Remove: Backstab Every Hit~ // Unindentified name
	SAY NAME2 ~Remove: Backstab Every Hit~ // Identified name

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi12.spl~ ~Override~
	SAY NAME1 ~Ninja Charge~ // Unindentified name
	SAY NAME2 ~Ninja Charge~ // Identified name
	SAY 0x50 ~NINJA CHARGE: 
The Woodclan Ninja turns invisible and rapidly charge into a selected enemy and attack him one round with backstab. The attack has a +4 bonus to Thaco.~

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi13.spl~ ~Override~
	SAY NAME1 ~Nature's Beauty~ // Unindentified name
	SAY NAME2 ~Nature's Beauty~ // Identified name
	SAY 0x50 ~Nature's Beauty
(Illusion/Phantasm)

Level: 7
Sphere: Elemental
Range: 0
Duration: Instant
Casting Time: 3
Area of Effect: 15-ft. radius
Saving Throw: Neg.

When this spell is cast, the caster appears to undergo a remarkable transformation. The caster becomes the very ideal of beauty: For a male, this is usually a nymph; for a female, it varies. As with a nymph, anyone viewing the disguised caster must make a Saving Throw vs. Spell with +3 bonus(1 for level 20, -1 for level 22) or die of longing for the denied illusion. Even if the Saving Throw is successful, hapless viewers of the transformed Druid are all instantly smitten with permanent blindness (until dispelled). The transformation is instantaneous, but lasts only seconds, affecting those near the caster (excluding fellow party members).~
  	PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    		LPF ~ADD_SPELL_EFFECT~ INT_VAR opcode = 139 target = 2 timing = 1 parameter1 = RESOLVE_STR_REF (~Blinded~) resist_dispel = 3 END
  	END
  	BUT_ONLY

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi14.spl~ ~Override~
	SAY NAME1 ~Insect Plague~ // Unindentified name
	SAY NAME2 ~Insect Plague~ // Identified name
	SAY 0x50 ~Insect Plague Innate albility~

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi15.spl~ ~Override~
	SAY NAME1 ~Creeping Doom~ // Unindentified name
	SAY NAME2 ~Creeping Doom~ // Identified name
	SAY 0x50 ~Creeping doom innate albility~

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi16.spl~ ~Override~
	SAY NAME1 ~Invisibility~ // Unindentified name
	SAY NAME2 ~Invisibility~ // Identified name
	SAY DESC ~~

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi17.spl~ ~Override~
	SAY NAME1 ~Quivering Wepon~ // Unindentified name
	SAY NAME2 ~Quivering Wepon~ // Identified name
	SAY 0x50 ~Quivering Wepon
The next successful attack forces the target to Save vs. Spell or die. This special ability automatically modifies normal attacks; no targeting needs to be done.~

// Copy spells
COPY ~GelThiefKitChange/spells/GelNi19.spl~ ~Override~
	SAY NAME1 ~Energy Shurikens~ // Unindentified name
	SAY NAME2 ~Energy Shurikens~ // Identified name
	SAY 0x50 ~Energy Shurikens
(Any School)

Level: Quest
Range: Special
Duration: 4 turns
Casting Time: 3
Area of Effect: Special
Saving Throw: None

An energy shurikens is a ninja star crafted of pure energy. The shuriken gives +10 to THAC0, and when thrown does 1d4+5 slashing damage as well as 1d10 additional electrical damage. This spell creates 1 energy shuriken per level of the caster and sets the caster's attacks to 9 as long as the discs are held.~

COPY ~GelThiefKitChange/Spells/GelP##1.spl~ ~Override~
  SAY NAME1 ~Learn: Black Powdered Smoke Bomb~

COPY ~GelThiefKitChange/Spells/GelP##2.spl~ ~Override~
  SAY NAME1 ~Learn: Create Ninja Stars~

COPY ~GelThiefKitChange/Spells/GelP##3.spl~ ~Override~
  SAY NAME1 ~Learn: Ninja Charge~

COPY ~GelThiefKitChange/Spells/GelP##4.spl~ ~Override~
  SAY NAME1 ~Learn: Invisibility~

COPY ~GelThiefKitChange/Spells/GelP##5.spl~ ~Override~
  SAY NAME1 ~Learn: Insect Plague~

COPY ~GelThiefKitChange/Spells/GelP##6.spl~ ~Override~
  SAY NAME1 ~Learn: Creeping Doom~

COPY ~GelThiefKitChange/Spells/GelP##7.spl~ ~Override~
  SAY NAME1 ~Learn: Nature's Peace~

COPY ~GelThiefKitChange/Spells/GelP##8.spl~ ~Override~
  SAY NAME1 ~Learn: Quivering Wepon~

COPY ~GelThiefKitChange/Spells/GelP##9.spl~ ~Override~
  SAY NAME1 ~Learn: Energy Shurikens~

//////////////////////////// NECROMANCER PACK – USE SPELLS ////////////////////////////
COPY ~GelThiefKitChange/Items/GelChi1.itm~ ~Override~
  SAY NAME1 ~Chill Touch~

COPY ~GelThiefKitChange/Spells/GelNeU3.spl~ ~Override~
  SAY NAME1 ~Chill Touch~
  SAY DESC ~Chill Touch
(Necromancy)

Level: 1
Range: 0
Duration: 1 turn
Casting Time: 1
Area of Effect: The creature
Saving Throw: Neg.

When the caster completes this spell, a blue glow encompasses <PRO_HISHER> hand. This energy attacks the life force of any living creature upon which the wizard makes a successful melee attack. (Nonliving creatures such as golems and undead are unaffected by this spell.) The creature is punched for 1d2 fist damage (Strength bonuses apply) and must make a Saving Throw vs. Spell or suffer 1d8 points of damage and receive a -2 THAC0 penalty for 5 rounds.~

COPY ~GelThiefKitChange/Spells/GelNeU4.spl~ ~Override~
  SAY NAME1 ~Larloch's Minor Drain~
  SAY DESC ~Larloch's Minor Drain 
(Necromancy)

Level: 1
Range: 30 ft.
Duration: Special
Casting Time: 1
Area of Effect: 1 creature
Saving Throw: None

With this spell, the wizard drains the life force from a target and adds it to <PRO_HISHER> own. The target creature suffers 4 damage, while the Mage gains 4 Hit Points. If the Mage goes over <PRO_HISHER> maximum Hit Point total with this spell, <PRO_HESHE> loses any extra Hit Points after 1 turn.~

COPY ~GelThiefKitChange/Spells/GelNeU5.spl~ ~Override~
  SAY NAME1 ~Cure Light Wounds~
  SAY DESC ~Cure Light Wounds
(Necromancy)

Level: 1
Sphere: Healing
Range: Touch
Duration: Permanent
Casting Time: 5
Area of Effect: 1 creature
Saving Throw: None

By casting this spell and laying <PRO_HISHER> hand upon a creature, the priest causes 8 points of wound or other injury damage to the creature's body to be healed. This healing cannot affect creatures without corporeal bodies, nor can it cure wounds of creatures not living or of extraplanar origin.~

COPY ~GelThiefKitChange/Spells/GelNeU6.spl~ ~Override~
  SAY NAME1 ~Command~
  SAY DESC ~Command
(Enchantment/Charm)

Level: 1
Sphere: Charm 
Range: 90 ft. 
Duration: 1 round 
Casting Time: 1 
Area of Effect: 1 creature 
Saving Throw: Special

This spell enables the priest to command another creature to "die" (sleep) for a single round. At the end of the round, the creature awakens and is unharmed. Creatures with 6 or more Hit Dice (or experience levels) are entitled to a Saving Throw vs. Spell to ignore the command.~

COPY ~GelThiefKitChange/Items/GelGhou.itm~ ~Override~
  SAY NAME1 ~Ghoul Touch~

COPY ~GelThiefKitChange/Spells/GelNeU7.spl~ ~Override~
  SAY NAME1 ~Ghoul Touch~
  SAY DESC ~Ghoul Touch
(Necromancy)

Level: 2
Range: 0
Duration: 5 rounds
Casting Time: 1
Area of Effect: The caster
Saving Throw: Neg.

When the caster completes this spell, a red glow encompasses <PRO_HISHER> hand. When the wizard makes a successful melee attack against a creature, that creature is punched for 1d2 fist damage (Strength bonuses apply) and must make a Saving Throw vs. Spell at -2 or be paralyzed for 5 rounds.~

COPY ~GelThiefKitChange/Spells/GelNeU8.spl~ ~Override~
  SAY NAME1 ~Horror~
  SAY DESC ~Horror
(Necromancy)

Level: 2
Range: 40 ft.
Duration: 1 turn
Casting Time: 2
Area of Effect: 15-ft. radius
Saving Throw: Neg.

All enemies within the area of effect when this spell is cast must save vs. Spell at -2 or flee in terror. Certain creatures are immune to the effects of fear, including all undead.~

COPY ~GelThiefKitChange/Spells/GelNeU9.spl~ ~Override~
  SAY NAME1 ~Skull Trap~
  SAY DESC ~Skull Trap
(Necromancy)

Level: 3
Range: 60 ft.
Duration: Special
Casting Time: 3
Area of Effect: 11-ft. radius
Saving Throw: 1/2

When this spell is cast, a skull is thrown by the caster at the target area. The skull floats in the area until a creature comes within 8 ft. of it. When this happens, the skull is triggered and explodes damaging everyone within a 11-ft. radius. The damage inflicted is equal to 1d6 per level of the caster, or half with a successful Saving Throw vs. Spell at -2. When casting this spell, it is wise to set it far away from the party lest they set it off accidentally.~

COPY ~GelThiefKitChange/Spells/GelNeUA.spl~ ~Override~
  SAY NAME1 ~Animate Dead~
  SAY DESC ~Animate Dead
(Necromancy)

Level: 3
Sphere: Necromantic
Range: 30 ft.
Duration: 8 hours
Casting Time: 9
Area of Effect: Special 
Saving Throw: None 

This spell causes a skeleton warrior to rise and serve the caster under any conditions. The type of skeleton warrior that appears depends upon the level of the priest casting the spell.
  1st – 6th: a 3 HD skeleton warrior wielding a long sword.
  7th – 10th: a 5 HD skeleton warrior wielding a long sword +1.
  11th – 14th: a 7 HD skeleton warrior wielding a bastard sword +1.
  15th and up: a 9 HD skeleton warrior wielding a two-handed sword +1.
The skeleton warrior can follow the caster, remain in an area and attack any creature entering the place, etc. It remains animated until it is destroyed in combat, 8 hours pass, or it is turned. This spell cannot be dispelled.~

COPY ~GelThiefKitChange/Spells/GelNeUB.spl~ ~Override~
  SAY NAME1 ~Vampiric Touch~
  SAY DESC ~Vampiric Touch 
(Necromancy)

Level: 3
Range: Touch
Duration: Instant 
Casting Time: 3 
Area of Effect: 1 creature
Saving Throw: None 

When this spell is cast, the target loses 1d6 Hit Points for every 2 caster levels, to a maximum drain of 6d6 for a 12th-level caster. These Hit Points are added to the caster's current Hit Points, with any Hit Points over the caster's normal maximum treated as temporary additional Hit Points. The temporary Hit Points last for 1 hour.

Note: This spell may not be cast multiple times to radically increase the caster's maximum Hit Points.~

COPY ~GelThiefKitChange/Spells/GelNeUC.spl~ ~Override~
  SAY NAME1 ~Cure Medium Wounds~
  SAY DESC ~Cure Medium Wounds
(Necromancy)

Level: 3
Sphere: Healing 
Range: Touch 
Duration: Permanent 
Casting Time: 5 
Area of Effect: 1 creature 
Saving Throw: None 

By casting this spell and laying <PRO_HISHER> hand upon a creature, the priest heals 14 points of wound or other injury damage from the creature's body. This healing cannot affect creatures without corporeal bodies, nor can it cure wounds of creatures not living or of extraplanar origin. Curing is permanent only insofar as the creature does not sustain further damage; caused wounds will heal—or can be cured—just as any normal injury.~

COPY ~GelThiefKitChange/Spells/GelNeUD.spl~ ~Override~
  SAY NAME1 ~Contagion~
  SAY DESC ~Contagion
(Necromancy)

Level: 4
Range: 90 ft.
Duration: Permanent
Casting Time: 4
Area of Effect: 1 creature
Saving Throw: Neg. (-2 penalthy)

This spell causes a major disease and weakness in a creature. The afflicted individual is immediately stricken with painful and distracting symptoms: boils, blotches, lesions, seeping abscesses, and so on. Strength, Dexterity, and Charisma scores are reduced by 2. The afflicted character is also Slowed. These effects persist until the character receives a Cure Disease spell.~

COPY ~GelThiefKitChange/Items/GelSeri.itm~ ~Override~
  SAY NAME1 ~Cause Serious Wounds~

COPY ~GelThiefKitChange/Spells/GelNeUE.spl~ ~Override~
  SAY NAME1 ~Cause Serious Wounds~
  SAY DESC ~Cause Serious Wounds
(Necromancy)

Level: 4
Sphere: Healing 
Range: Touch 
Duration: Permanent 
Casting Time: 7 
Area of Effect: 1 creature 
Saving Throw: None 

This spell is the reverse of Cure Serious Wounds. Instead of healing the creature touched, it causes damage. On a successful touch from the priest, the spell inflicts 24 points of damage upon the target. The next attack that the priest makes will inflict this effect, however, <PRO_HESHE> only has 2 rounds to make the attack before the spell fizzles. If the priest misses the target creature, the spell is wasted. There is no Saving Throw.~

COPY ~GelThiefKitChange/Spells/GelNeUF.spl~ ~Override~
  SAY NAME1 ~Holy Smite~
  SAY DESC ~Holy Smite
(Necromancy)

Level: 3
Sphere: Healing 
Range: Visual range of the caster
Duration: Instant
Casting Time: 3 
Area of Effect: 15-ft. radius
Saving Throw: Special 

This spell calls upon energy from the Positive Energy Plane in order to open a channel between it and the targets. The result is that any evil creatures within the spell's area of effect take 1d4 points of damage per level of the caster, or half damage upon a successful Saving Throw vs. Spell at -2. If the victims fail their Saving Throw, they are also blinded for 1 round.~

COPY ~GelThiefKitChange/Spells/GelNeUG.spl~ ~Override~
  SAY NAME1 ~Cure Serious Wounds~
  SAY DESC ~Cure Serious Wounds
(Necromancy)

Level: 4
Sphere: Healing 
Range: Touch 
Duration: Permanent 
Casting Time: 7 
Area of Effect: 1 creature 
Saving Throw: None 

This spell is a more potent version of the Cure Light Wounds spell. The priest lays <PRO_HISHER> hand upon a creature and heals 17 points of wound or other injury damage to the creature's body. This healing cannot affect noncorporeal, nonliving, or extraplanar creatures.~

COPY ~GelThiefKitChange/Spells/GelNeUH.spl~ ~Override~
  SAY NAME1 ~Unholy Blight~
  SAY DESC ~Unholy Blight
(Necromancy)

Level: 3
Sphere: Healing 
Range: Visual range of the caster
Duration: Instant
Casting Time: 3 
Area of Effect: 15-ft. radius
Saving Throw: Special 

This spell calls upon energy from the Negative Energy Plane in order to open a channel between it and the targets. The result is that any good creatures within the spell's area of effect take 1d4 points of damage per level of the caster, or half damage upon a successful Saving Throw vs. Spell at -2. If the victims fail their Saving Throw, they also receive a -2 penalty to all their rolls for 4 rounds.

This creature may use this power at will.~

COPY ~GelThiefKitChange/Spells/GelNeUI.spl~ ~Override~
  SAY NAME1 ~Poison~
  SAY DESC ~Poison
(Necromancy)

Level: 4
Range: 15 ft.
Duration: 1 turn
Casting Time: 4
Area of Effect: 1 creature
Saving Throw: Neg.

Through this spell, the caster can poison victims who fail their Saving Throw vs. Poison. The damage inflicted depends on the level of the caster as detailed below:
 7–9th level: 2d8 + 2/round
 10–12th level: 3d8 + 3/round
 13–14th level: 4d8 + 4/round
 15–16th level: 6d8 + 5/round
 17+ level: 8d8 + 6/round
Those who make their Saving Throws at -2 are unaffected.~

COPY ~GelThiefKitChange/Items/GelSlay.itm~ ~Override~
  SAY NAME1 ~Slay Living~

COPY ~GelThiefKitChange/Spells/GelNeUJ.spl~ ~Override~
  SAY NAME1 ~Slay Living~
  SAY DESC ~Slay Living
(Necromancy)

Level: 5
Sphere: Combat
Range: Touch 
Duration: Special
Casting Time: 1 
Area of Effect: 1 creature
Saving Throw: Special

Upon casting this spell, the priest has to touch an opponent in order to visit the effect upon them. An item is created upon casting. The next attack the priest makes, which must happen in the next 3 rounds, will use this item. If the first attack misses, the item disappears and the spell is wasted; however, if the attack succeeds, the victim automatically takes 2d6+9 damage. Also, <PRO_HESHE> must make a Save vs. Spell at -2 or be instantly killed. Slay Living can be dispelled if cast between the casting of this spell and the necessary attack.~

COPY_EXISTING ~SPPR409.SPL~ ~override/GelNeUK.spl~ // Death Ward

  // Sett spell type til Innate
  WRITE_BYTE 0x001c 4

  // Les ability headers
  READ_SHORT 0x0068 abil_num
  READ_LONG  0x006a abil_off

  FOR (i = 0; i < abil_num; ++i) BEGIN
    SET abil = abil_off + (0x28 * i)

    // Sett ability location = 4 (Ability / Innate)
    WRITE_BYTE (abil + 0x02) 4
  END

BUT_ONLY

COPY ~GelThiefKitChange/Spells/GelNeUL.spl~ ~Override~
  SAY NAME1 ~Dolorous Decay~
  SAY DESC ~Dolorous Decay
(Alteration, Necromancy)

Sphere: Combat, Necromantic
Level: 6
Range: 30 ft.
Duration: Special
Casting Time: 1
Area of Effect: 1 creature
Saving Throw: Special

This spell affects a single living creature. Dolorous Decay is a rotting and withering of the body that spreads throughout the afflicted creature quickly. The target creature will automatically be slowed for 2 rounds. Furthermore, if the target fails a Saving Throw vs. Poison with a -4 penalty, <PRO_HESHE> will suffer 1 point of damage per second until a total of 50 points of damage are inflicted.~

COPY ~GelThiefKitChange/Spells/GelNeUM.spl~ ~Override~
  SAY NAME1 ~Cure Critical Wounds~
  SAY DESC ~Cure Critical Wounds
(Necromancy)

Level: 5
Sphere: Healing 
Range: Touch
Duration: Permanent
Casting Time: 8
Area of Effect: 1 creature
Saving Throw: None

The Cure Critical Wounds spell is a very potent version of the Cure Light Wounds spell. The priest lays <PRO_HISHER> hands upon a creature and heals 27 points of damage from wounds or other injuries. The spell does not affect creatures without corporeal bodies, those of extraplanar origin, or those not living.

This creature may use this power at will.~

COPY ~GelThiefKitChange/Items/GelHARM.itm~ ~Override~
  SAY NAME1 ~Harm~

COPY ~GelThiefKitChange/Spells/GelNeUN.spl~ ~Override~
  SAY NAME1 ~Harm~
  SAY DESC ~Harm
(Necromancy)

Level: 6
Sphere: Healing
Range: Touch
Duration: Permanent
Casting Time: 9
Area of Effect: 1 creature
Saving Throw: None

This spell is the reverse of Heal. Instead of healing the creature touched, it causes damage. On a successful touch from the priest, the spell reduces the target to 1 Hit Point. The next attack that the priest makes will inflict this effect; however, <PRO_HESHE> only has 2 rounds to make the attack before the spell fizzles. If the priest misses the target creature, the spell is wasted. There is no Saving Throw.~

COPY ~GelThiefKitChange/Spells/GelNeUO.spl~ ~Override~
  SAY NAME1 ~Heal~
  SAY DESC ~Heal
(Necromancy)

Level: 6
Sphere: Healing 
Range: Touch
Duration: Permanent
Casting Time: 9
Area of Effect: 1 creature
Saving Throw: None

The very potent Heal spell enables the priest to wipe away disease and injury in the creature who receives the benefits of the spell. It completely cures all disease and blindness in the recipient and heals all points of damage suffered due to wounds or injury. It also dispels a Feeblemind spell and cures those mental disorders caused by spells or injury to the brain. Naturally, the effects can be negated by later wounds, injuries, and diseases.~

COPY ~GelThiefKitChange/Spells/GelNeUP.spl~ ~Override~
  SAY NAME1 ~Death Spell~
  SAY DESC ~Death Spell
(Necromancy)

Level: 6
Range: Visual range of the caster
Duration: Instant
Casting Time: 6
Area of Effect: 15-ft. radius
Saving Throw: None

When a Death Spell is cast, it snuffs out the life force of creatures within the area of effect, instantly and irrevocably. Creatures with more than 8 Hit Dice are immune to this spell with the exception of summoned creatures, which are automatically slain. Only enemies are affected by this spell.~

COPY ~GelThiefKitChange/Spells/GelNeUQ.spl~ ~Override~
  SAY NAME1 ~Finger of Death~
  SAY DESC ~Finger of Death
(Necromancy)

Level: 7
Sphere: War
Range: Visual range of the caster
Duration: Permanent
Casting Time: 5
Area of Effect: 1 creature
Saving Throw: Neg.

The Finger of Death spell snuffs out the victim's life force. The caster points <PRO_HISHER> finger at the victim after the incantation is complete and, unless the victim saves vs. Spell with a -4 penalty, he dies. A creature successfully making the Saving Throw still receives 4d8 points of damage + 1 per level of the caster.~

COPY ~GelThiefKitChange/Spells/GelNeUR.spl~ ~Override~
  SAY NAME1 ~Control Undead~
  SAY DESC ~Control Undead
(Necromancy) 

Level: 7
Range: 40 ft.
Duration: 6 rounds + 1 round/level
Casting Time: 7
Area of Effect: 4-ft. radius
Saving Throw: Special

The Control Undead spell allows the caster to take control of undead creatures within the area of effect. This creates a telepathic link between the caster and the undead, allowing complete control. If the undead have 3 Hit Dice or less, then there is no Saving Throw allowed; however, if they have 4 Hit Dice or more, a Save vs. Spell at -2 is allowed to negate the effect. The undead remain under the control of the caster for the duration of the spell or until they are affected by a Dispel Magic.~

COPY ~GelThiefKitChange/Spells/GelNeUS.spl~ ~Override~
  SAY NAME1 ~Abi-Dalzim's Horrid Wilting~
  SAY DESC ~Abi-Dalzim's Horrid Wilting
(Necromancy) 

Level: 8
Range: Visual range of the caster 
Duration: Instant
Casting Time: 8
Area of Effect: 15-ft. radius
Saving Throw: 1/2

This spell evaporates moisture from the bodies of every living creature within the area of effect, inflicting 1d8 damage per level of the caster. Affected creatures are allowed a Saving Throw vs. Spell with -2 penalty for half damage. This spell is especially devastating to water elementals and plant creatures, who receive a penalty of -2 to their Saving Throws. This spell will not harm party members.~

COPY ~GelThiefKitChange/Spells/GelNeUT.spl~ ~Override~
  SAY NAME1 ~Wail of the Banshee~
  SAY DESC ~Wail of the Banshee
(Necromancy)

Level: 9
Range: 0 
Duration: Instant
Casting Time: 9
Area of Effect: 15-ft. radius
Saving Throw: Neg.

At the culmination of this dreadful spell, the wizard screams like a banshee (groaning spirit). Everyone in the area of effect hears the awful cry. Those who fail a Saving Throw vs. Death with -2 penalty die instantly. The caster and companions are immune to the effects of the wail.~

COPY ~GelThiefKitChange/Spells/Gel5APR.spl~ ~Override~
  SAY NAME1 ~+1/2 attack per round~
  SAY DESC ~~

//////////////////////////// NECROMANCER PACK – LEARN SPELLS ////////////////////////////

COPY ~GelThiefKitChange/Spells/GelNec3.spl~ ~Override~
  SAY NAME1 ~Learn: Chilling Touch~

COPY ~GelThiefKitChange/Spells/GelNec4.spl~ ~Override~
  SAY NAME1 ~Learn: Larloch's Minor Drain~

COPY ~GelThiefKitChange/Spells/GelNec5.spl~ ~Override~
  SAY NAME1 ~Learn: Cure Light Wounds~

COPY ~GelThiefKitChange/Spells/GelNec6.spl~ ~Override~
  SAY NAME1 ~Learn: Command~

COPY ~GelThiefKitChange/Spells/GelNec7.spl~ ~Override~
  SAY NAME1 ~Learn: Ghoul Touch~

COPY ~GelThiefKitChange/Spells/GelNec8.spl~ ~Override~
  SAY NAME1 ~Learn: Horror~

COPY ~GelThiefKitChange/Spells/GelNec9.spl~ ~Override~
  SAY NAME1 ~Learn: Skull Trap~

COPY ~GelThiefKitChange/Spells/GelNecA.spl~ ~Override~
  SAY NAME1 ~Learn: Animate Dead~

COPY ~GelThiefKitChange/Spells/GelNecB.spl~ ~Override~
  SAY NAME1 ~Learn: Vampiric Touch~

COPY ~GelThiefKitChange/Spells/GelNecC.spl~ ~Override~
  SAY NAME1 ~Learn: Cure Medium Wounds~

COPY ~GelThiefKitChange/Spells/GelNecD.spl~ ~Override~
  SAY NAME1 ~Learn: Contagion~

COPY ~GelThiefKitChange/Spells/GelNecE.spl~ ~Override~
  SAY NAME1 ~Learn: Cause Serious Wounds~

COPY ~GelThiefKitChange/Spells/GelNecF.spl~ ~Override~
  SAY NAME1 ~Learn: Holy Smite~

COPY ~GelThiefKitChange/Spells/GelNecG.spl~ ~Override~
  SAY NAME1 ~Learn: Cure Serious Wounds~

COPY ~GelThiefKitChange/Spells/GelNecH.spl~ ~Override~
  SAY NAME1 ~Learn: Unholy Blight~

COPY ~GelThiefKitChange/Spells/GelNecI.spl~ ~Override~
  SAY NAME1 ~Learn: Poison~

COPY ~GelThiefKitChange/Spells/GelNecJ.spl~ ~Override~
  SAY NAME1 ~Learn: Slay Living~

COPY ~GelThiefKitChange/Spells/GelNecK.spl~ ~override~
  SAY NAME1 ~Learn: Death Ward~

  // Les ability headers
  READ_SHORT 0x0068 abil_num
  READ_LONG  0x006a abil_off

  FOR (i = 0; i < abil_num; ++i) BEGIN
    SET abil = abil_off + (0x28 * i)

    // Sett resource = GelNeUK
    WRITE_ASCII (abil + 0x04) ~GelNeUK~ #8
  END

BUT_ONLY

COPY ~GelThiefKitChange/Spells/GelNecL.spl~ ~Override~
  SAY NAME1 ~Learn: Dolorous Decay~

COPY ~GelThiefKitChange/Spells/GelNecM.spl~ ~Override~
  SAY NAME1 ~Learn: Cure Critical Wounds~

COPY ~GelThiefKitChange/Spells/GelNecN.spl~ ~Override~
  SAY NAME1 ~Learn: Harm~

COPY ~GelThiefKitChange/Spells/GelNecO.spl~ ~Override~
  SAY NAME1 ~Learn: Heal~

COPY ~GelThiefKitChange/Spells/GelNecP.spl~ ~Override~
  SAY NAME1 ~Learn: Death Spell~

COPY ~GelThiefKitChange/Spells/GelNecQ.spl~ ~Override~
  SAY NAME1 ~Learn: Finger of Death~

COPY ~GelThiefKitChange/Spells/GelNecR.spl~ ~Override~
  SAY NAME1 ~Learn: Control Undead~

COPY ~GelThiefKitChange/Spells/GelNecS.spl~ ~Override~
  SAY NAME1 ~Learn: Abi-Dalzim's Horrid Wilting~

COPY ~GelThiefKitChange/Spells/GelNecT.spl~ ~Override~
  SAY NAME1 ~Learn: Wail of the Banshee~

COPY ~GelThiefKitChange/Spells/GelTMC1.spl~ ~Override~
  SAY NAME1 ~Extra Spell Slots From Devine Tree~
  SAY DESC ~Scaled cleric slots added to arcane book~

COPY ~GelThiefKitChange/Spells/GelTMC2.spl~ ~Override~
  SAY NAME1 ~Storm of Vengance~
  SAY DESC ~Storm of Vengeance

Level: Quest
Range: 270 ft.
Duration: 3 rounds
Casting Time: 8
Area of Effect: 15-ft. radius
Saving Throw: Special

Casting this spell causes the earth to shake and the heavens to boil with blood and energy. All enemies of the caster are struck down by acidic rain, earthquakes, and lightning.

All enemies of 8th level or lower are slain instantly. The survivors are struck by acidic, poisonous rain and lightning. The storm lasts for 3 rounds. Each round, the victims suffer 1d6 electrical damage, 1d6 fire damage, and 1d6 acid damage (Save vs. Spell for half damage). They also have a chance to be poisoned (Save vs. Death negates) in the first round.~

COPY ~GelThiefKitChange/Spells/GelTMC3.spl~ ~Override~
  SAY NAME1 ~Summon Deva~
  SAY DESC ~Summon Deva
(Conjuration/Summoning)

Level: Quest
Range: 120 ft.
Duration: 4 rounds + 1 round/level
Casting Time: 5
Area of Effect: Special
Saving Throw: None

This spell opens a celestial gate and calls forth an angelic deva to fight at the caster's side until the spell expires or the deva's earthly avatar is slain.~

COPY ~GelThiefKitChange/Spells/GelTMC4.spl~ ~Override~
  SAY NAME1 ~Implosion~
  SAY DESC ~Implosion (Evocation)

Level: Quest
Range: 40 ft.
Duration: 2 rounds
Casting Time: 5
Area of Effect: 1 creature
Saving Throw: Special

This spell creates a rift in the earth beneath the target which implodes and closes in upon itself, crushing and burning the target and holding it for 1 round. The spell does 10d10 fire damage and 10d10 blunt damage. The victim can save vs. Spell for half.~

COPY ~GelThiefKitChange/Spells/GelTMC5.spl~ ~Override~
  SAY NAME1 ~Aura of Flaming Death~
  SAY DESC ~Aura of Flaming Death
(Evocation, Alteration)

Level: Quest
Range: 0
Duration: 1 round/2 levels
Casting Time: 4
Area of Effect: The caster
Saving Throw: None

This spell causes the caster to be enveloped by an aura of intense flame that both injures opponents and protects the caster from damage. This shield not only grants the user 90% Fire Resistance and an AC bonus of 4, but also protects <PRO_HIMHER> from attacks made within a 5-ft. radius. An opponent that hits the caster with any weapons or spells within this radius suffers 2d10+2 fire damage. In addition, the intense heat protects the caster from all non-magical weapons, melee or missile. ~

COPY ~GelThiefKitChange/Spells/GelTMC6.spl~ ~Override~
  SAY NAME1 ~Mass Raise Dead~
  SAY DESC ~Mass Raise Dead
(Necromancy)

Level: 7
Sphere: Necromantic
Range: 30 ft.
Duration: Permanent
Casting Time: 2
Area of Effect: Up to 5 party members
Saving Throw: None

A more powerful version of Raise Dead, this spell brings up to 5 party members back to life and heals 3d10+1 Hit Points per level of the caster. They can regain the rest of their Hit Points by natural healing or curative magic. This spell restores life to dwarves, gnomes, half-elves, halflings, elves, half-orcs, and humans.~

COPY ~GelThiefKitChange/Spells/GelExtr.spl~ ~Override~
  SAY NAME1 ~Extra Spell Slots Level 6-7-8~
  SAY DESC ~Extra Spell Slots Level 6-7-8~

COPY ~GelThiefKitChange/Spells/GelKi01.spl~ ~Override~
  SAY NAME1 ~Devine Spell Slots to Arcane Book lvl 1~

COPY ~GelThiefKitChange/Spells/GelKi02.spl~ ~Override~
  SAY NAME1 ~Devine Spell Slots to Arcane Book lvl 2~

COPY ~GelThiefKitChange/Spells/GelKi03.spl~ ~Override~
  SAY NAME1 ~Devine Spell Slots to Arcane Book lvl 3~

COPY ~GelThiefKitChange/Spells/GelKi04.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 4~

COPY ~GelThiefKitChange/Spells/GelKi05.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 5~

COPY ~GelThiefKitChange/Spells/GelKi06.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 6~

COPY ~GelThiefKitChange/Spells/GelKi07.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 7~

COPY ~GelThiefKitChange/Spells/GelKi08.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 8~

COPY ~GelThiefKitChange/Spells/GelKi09.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 9~

COPY ~GelThiefKitChange/Spells/GelKi10.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 10~

COPY ~GelThiefKitChange/Spells/GelKi11.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 11~

COPY ~GelThiefKitChange/Spells/GelKi12.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 12~

COPY ~GelThiefKitChange/Spells/GelKi13.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 13~

COPY ~GelThiefKitChange/Spells/GelKi14.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 14~

COPY ~GelThiefKitChange/Spells/GelKi15.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 15~

COPY ~GelThiefKitChange/Spells/GelKi16.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 16~

COPY ~GelThiefKitChange/Spells/GelKi17.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 17~

COPY ~GelThiefKitChange/Spells/GelKi18.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 18~

COPY ~GelThiefKitChange/Spells/GelKi19.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 19~

COPY ~GelThiefKitChange/Spells/GelKi20.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 20~

COPY ~GelThiefKitChange/Spells/GelKi21.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 21~

COPY ~GelThiefKitChange/Spells/GelKi22.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 22~

COPY ~GelThiefKitChange/Spells/GelKi23.spl~ ~Override~
  SAY NAME1 ~Devine Slots to Arcane Book lvl 23~

ACTION_IF (GAME_INCLUDES ~bg2ee~) BEGIN
    // BG2EE-specific actions, including file copies for creatures that exist in BG2EE
    COPY_EXISTING ~VALYG8.cre~ ~override/VALYG8.cre~ 
    ADD_CRE_ITEM ~bdbrac05.itm~ #0 #0 #0 ~IDENTIFIED~ ~inv8~
    COPY_EXISTING ~VALYG9.cre~ ~override/VALYG9.cre~ 
    ADD_CRE_ITEM ~bdbrac05.itm~ #0 #0 #0 ~IDENTIFIED~ ~inv8~
    COPY_EXISTING ~VALYG11.cre~ ~override/VALYG11.cre~ 
    ADD_CRE_ITEM ~bdbrac05.itm~ #0 #0 #0 ~IDENTIFIED~ ~inv8~
    COPY_EXISTING ~VALYG12.cre~ ~override/VALYG12.cre~ 
    ADD_CRE_ITEM ~bdbrac05.itm~ #0 #0 #0 ~IDENTIFIED~ ~inv8~
    COPY_EXISTING ~VALYG14.cre~ ~override/VALYG14.cre~
    ADD_CRE_ITEM ~bdbrac05.itm~ #0 #0 #0 ~IDENTIFIED~ ~inv8~
END

//////////////////////////////////////////////////// Copy Items /////////////////////////////////////////////////////

COPY ~GelThiefKitChange/Items/GelTDia.itm~ ~Override~
  SAY NAME1 ~InviCreature: Immunities~

COPY ~GelThiefKitChange/Items/GelKit1.itm~ ~Override~
  SAY NAME1 ~KitItem~
  SAY NAME2 ~KitItem~
  SAY DESC  ~KitItem~

////////////////// Add GelSliD(Single/Dual) & GelSlin(Multi) kits for Slinging Beasmaster /////////////

LAF ADD_KIT_EX
    INT_VAR
        kit_class = 18   // Adjust to the correct class
        mixed = RESOLVE_STR_REF(~Cleric / Slinging Beastmaster~)
        lower = RESOLVE_STR_REF(~Cleric / Slinging Beastmaster~)
        help = RESOLVE_STR_REF(~Cleric / Slinging Beastmaster: 
Mix of any Cleric kit and Slinging Beastmaster multiclass.
A substitute for Archer and Beastmaster, ment for multiclassing with cleric.

May become Grandmaster in the following:
- Quarterstaff
- Slings
- Clubs
- Crossbow(To waste points)
- Bow(To waste points)

May not use any other Wepons than Quarterstaff, sling and Clubs.
May not use any metalic armors.

Abilties:
- Called Shot Ability at level 1, then each 4th lever thereafter.
- Animal Summoning I, II and III as level 1,2,3 devine spells
- +1 bonus to thaco and damage with missle wepons every 3rd level
- Find familiar~)
        briefdesc = RESOLVE_STR_REF(~Cleric / Slinging Beastmaster: 
Mix of any Cleric kit and Slinging Beastmaster multiclass.
A substitute for Archer and Beastmaster, ment for multiclassing with cleric.

May become Grandmaster in the following:
- Quarterstaff
- Slings
- Clubs
- Crossbow(To waste points, cannot use)
- Bow(To waste points, cannot use)

May not use any other Wepons than Quarterstaff, sling and Clubs.
May not use any metalic armors.

Abilties:
- Called Shot Ability at level 1, then each 4th lever thereafter.
- Animal Summoning I, II and III as level 1,2,3 devine spells
- +1 bonus to thaco and damage with missle wepons every 3rd level
- Find familiar~)

    STR_VAR
        kit_name = ~GelSlin~   // Set the kit name (Weidu will assign the kit_id)
        unusable = ~0x00020000~   // The "unusable" flag (adjust as necessary)
        ////////////n/n/n/n/n/n/n/n/b/l/s/a/t/k/s/d/w/c/s/h/f/m/q/c/l/s/d/s/2/S/s/d
        weapprof = ~0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 5 5 5 5 0 5 3 2 2 2~
        //clab_path = ~GelThiefKitChange/Tables/CLAGELSB.2DA~  // Path to the class abilities table 
        clab_base_r   = ~GelThiefKitChange/Tables/CLAGELSB.2DA~  // abilities assigned to druid class aspect
        backstab = ~1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1~  // Backstab progression
        thiefscl = ~0 0 0 100 100 0 0 0~   // Thief skills classes
        clswpbon = ~1 0 2~  // Weapon proficiency bonus

RET

END

LAF ADD_KIT_EX
    INT_VAR
        kit_class = 12   // Adjust to the correct class
        mixed = RESOLVE_STR_REF(~Slinging Beastmaster~)
        lower = RESOLVE_STR_REF(~Slinging Beastmaster~)
        help = RESOLVE_STR_REF(~Slinging Beastmaster: 
Slinging Beastmaster Singleclass.
A substitute for Archer and Beastmaster, ment for single or to dual with cleric.

May become Grandmaster in the following:
- Quarterstaff
- Slings
- Clubs
- Crossbow
- Bow

May not use any other Wepons than Quarterstaff, sling and Clubs.
May not use any metalic armors.

Abilties:
- Called Shot Ability at level 1, then each 4th lever thereafter.
- Animal Summoning I, II and III as level 1,2,3 devine spells
- +1 bonus to thaco and damage with missle wepons every 3rd level
- Find familiar~)
        briefdesc = RESOLVE_STR_REF(~Slinging Beastmaster: 
A substitute for Archer and Beastmaster.

May become Grandmaster in the following:
- Quarterstaff
- Slings
- Clubs
- Crossbow(To waste points, cannot use)
- Bow(To waste points, cannot use)

May not use any other Wepons than Quarterstaff, sling and Clubs.
May not use any metalic armors.

Abilties:
- Called Shot Ability at level 1, then each 4th lever thereafter.
- Animal Summoning I, II and III as level 1,2,3 devine spells
- +1 bonus to thaco and damage with missle wepons every 3rd level
- Find familiar~)

    STR_VAR
        kit_name = ~GelSliD~   // Set the kit name (Weidu will assign the kit_id)
        unusable = ~0x00020000~   // The "unusable" flag (adjust as necessary)
        ////////////n/n/n/n/n/n/n/n/b/l/s/a/t/k/s/d/w/c/s/h/f/m/q/c/l/s/d/s/2/S/s/d
        weapprof = ~0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 5 5 5 5 0 5 3 2 2 2~
        clab_path = ~GelThiefKitChange/Tables/CLAGELSB.2DA~  // Path to the class abilities table 
        //clab_base_r   = ~GelThiefKitChange/Tables/CLAGELSB.2DA~  // abilities assigned to druid class aspect
        backstab = ~1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1~  // Backstab progression
        thiefscl = ~0 0 0 100 100 0 0 0~   // Thief skills classes
        clswpbon = ~1 0 2~  // Weapon proficiency bonus

RET

END

LAF ADD_KIT_EX
    INT_VAR
        kit_class = 4   // Adjust to the correct class
        mixed = RESOLVE_STR_REF(~SuperThief~)
        lower = RESOLVE_STR_REF(~superthief~)
        help = RESOLVE_STR_REF(~SuperThief:
A Thief combined of all the thief kits.
Bonuses:
1 bonus damage/thaco/ac/saving throws lvl 1
1 bonus damage and thaco each 5th levels

Innates: 
- Hide in Plain sight(lvl 1)
- Poison Weapon(level 1, then each 5th level)
- Death attack (level 16, then each 8th level)
- Set special Snare (level 1, then each 5th level)~)
       briefdesc = RESOLVE_STR_REF(~SuperThief:
A thief combined of all thief kits.~)

    STR_VAR
        kit_name = ~GelSupT~   // Set the kit name (Weidu will assign the kit_id)
        unusable = ~0x00040000~  // The "unusable" flag (adjust as necessary)
        //stweap = ~LEAT14 * HELM07 BAG20 RING06 RING31 CLCK02 BOOT01 AMUL19 BRAC16 BELT06 AROW11~   // Starting items for the kit
        clab_path = ~GelThiefKitChange/Tables/CLAGELST.2DA~  // Path to the class abilities table
        //clab_base_t   = ~GelThiefKitChange/Tables/CLAGELST.2DA~  // abilities assigned to druid class aspect
        backstab = ~1 2 2 2 2 3 3 3 3 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5~  // Backstab progression
        traplimt = 7   // Trap limit
        thiefskl = ~40 30~   // Thief skills
        thiefscl = ~100 100 100 100 100 100 100 0~   // Thief skills classes
        //clasiskl = ~0 0 0 0 0 0 0~  // Class skill levels
        numwslot = ~4~  // Number of weapon slots
        clswpbon = ~1 0 2~  // Weapon proficiency bonus
        luabbr = ~GELST~  // Abbreviation for the kit
        //clsrcreq = ~0 1 1 0 0 0 0~  // Class requirements
        clasthac = ~0~   // Class THAC0
        sneakatt = ~1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4~  // Sneak attack progression
        crippstr = ~1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 3 3 3 3 3 3~  // Critical strike progression
    	CLASCOLR = ~254 165 209 254 254~
	ABCLASRQ = ~17 17 15 13 17 17~
RET

END

LAF ADD_KIT_EX
    INT_VAR
        kit_class = 1   // Adjust to the correct class
        mixed = RESOLVE_STR_REF(~Super Mage~)
        lower = RESOLVE_STR_REF(~super mage~)
        help = RESOLVE_STR_REF(~Super Mage: 1 extra spell each level, nothing else.~)
        briefdesc = RESOLVE_STR_REF(~Super Mage: 1 extra spell each level, nothing else.~)

    STR_VAR
        kit_name = ~GelSMag~   // Set the kit name (Weidu will assign the kit_id)
        //unusable = ~0x00020000~   // The "unusable" flag (adjust as necessary)
        clab_path = ~GelThiefKitChange/Tables/CLAGELSM.2DA~  // Path to the class abilities table
        //clab_base_m   = ~CLAGELSM.2DA~  // abilities assigned to druid class aspect

RET

END 

LAF ADD_KIT_EX
    INT_VAR
        kit_class = 12   // Adjust to the correct class (Stalker here?)
        mixed = RESOLVE_STR_REF(~Woodclan Ninja~)
        lower = RESOLVE_STR_REF(~woodclan ninja~)
        help = RESOLVE_STR_REF(~Woodclan Ninja: A stalker kit utilizing light Ninja Swords and Ninja Stars. As well as a few selective innate nature spells.

SHOULD NOT BE DUALED TO CLERIC. (Due to cleric wepon restrictions its a bad match)
Not supported as direct kit Overlay, but you may choose the abilities via Potion of Customization.

Advantages:
- May put 5 profience points into Darts (Ninja Stars = Darts Profience)
- Gets Charm Animal spell as usual.
- May use Stalker Gloves at full effectivness as well as gloves and a upgradedable version is availeble in BG2EE.
- May use innate versions of Insect Plague(Level 11), Creeping Doom(Level 17) and Nature's Peace(Level 17)
- Gets Shadowstep at level 2, 5, 8.
- Gets invisibility at level 9 and 12.
- Gets Ninja Charge Albility in level 1 and 7.
- Starts with 2 profience points to Dual Wielding and may put a 3rd point.
- Can put 3 points into Katana, Scimitar/Wakasaki and Quarterstaff.
- Else same bonuses as stalker.
- Can create Ninja Stars, which becomes stronger at levels.

Ninja Charge:
The Woodclan Ninja turns invisible and rapidly charge into a selected enemy and attack him one round with backstab. The attack has a +4 bonus to Thaco.

Create Ninja Stars:
Level 1: Ninja Stars +1
Level 7: Ninja Stars +2
Level 13: Ninja Stars +3
Level 17: Ninja Stars +4
1D8 Slashing damage
Thaco Bonus is same as Enhancement level
Damage Bonus is same as Enhancement level
Effect: Bleeding damage(Piercing) 1 per second for 1 second per enhancement level.

Dissadvantages:
- 10 Thaco Penalty on none profient wepons. 
- May not put profience point Bastardsword, 2 handed sword, Warhammer, Flail/Monrningstar, Crossbow, Longbow, Shortbow.
- May not use ranged wepons other than darts and sling
- Starts with points to 10 Hide in Shadows and Move Silent, but only get 10% points to spend each level~)
        briefdesc = RESOLVE_STR_REF(~Woodclan Ninja: A stalker kit utilizing light Ninja Swords and Ninja Stars.~)
	biography = RESOLVE_STR_REF(~Somehow you felt the Urge to explore the world outside the forests~)
    STR_VAR
        kit_name = ~GelNinj~   // Set the kit name (Weidu will assign the kit_id)
        unusable = ~0x00010000~   // The "unusable" flag (adjust as necessary)
        weapprof = ~0 0 0 0 0 0 0 0 0 2 2 0 0 3 3 2 0 2 2 2 0 0 3 0 0 0 5 2 2 2 2 3~ 
        stweap = ~LEAT14 * HELM07 BAG20 RING06 RING31 CLCK02 BOOT01 AMUL19 BRAC16 BELT06 AROW11~   // Starting items for the kit
        clab_path = ~GelNinj/Tables/GeNiCla.2DA~  // Path to the class abilities table
        backstab = ~2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3~  // Backstab progression
        traplimt = 0   // Trap limit
        thiefskl = ~30 1~   // Thief skills
        thiefscl = ~0 0 0 100 100 0 0 0~   // Thief skills classes
        clasiskl = ~0 0 0 0 0 0 0~  // Class skill levels
        numwslot = ~4~  // Number of weapon slots
        clswpbon = ~1 0 9~  // Weapon proficiency bonus
        luabbr = ~GelNi~  // Abbreviation for the kit
        clsrcreq = ~1 1 1 0 0 0 0~  // Class requirements
        clasthac = ~0~   // Class THAC0
        sneakatt = ~1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 3 3 3 3 3 3 3 3 3 4 4 4 4 4 4~  // Sneak attack progression
        crippstr = ~1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 3 3 3 3 3 3~  // Critical strike progression
    	CLASCOLR = ~254 165 209 254 254~
	ABCLASRQ = ~17 17 15 11 14 17~
RET

END

////////////////// Add Barbarian / Shaman Kit for shaman /////////////

LAF ADD_KIT_EX
    INT_VAR
        kit_class = 21   // Adjust to the correct class
        mixed = RESOLVE_STR_REF(~BARBARIAN / SHAMAN~)
        lower = RESOLVE_STR_REF(~BARBARIAN / SHAMAN~)
        help = RESOLVE_STR_REF(~BARBARIAN / SHAMAN: 
Mix of Barbian fighter and Shaman.
YOU CANNOT KITCHANGE INTO THIS. (Because i failed xD)
The northern tribes most wise people tend to achieve connections with nature and spirits.

May become Grandmaster in the following:
- Quarterstaff
- Slings
- Knife
- Spear

May put this into wepon styles:
- 2 Handed wepons style **
- Single Wepon style **
- Sword and Shield style **
- Dual wepon style ***

May choose between which wepon to also focus on which are given via scripts.
Theese are locked away from manual profience system.
Choices are between:
- max cap of 2 or 5
- Focus area: Bow-Axe-Club OR Axe-Bow-Club OR Bow&Axe balanced and club last.

May use regular Shaman wepons.
May not use any metalic armors.~)
briefdesc = RESOLVE_STR_REF(~BARBARIAN / SHAMAN: A fighter based shaman multiclass built on the Shaman Class~)

    STR_VAR
        kit_name = ~GelShBa~   // Set the kit name (Weidu will assign the kit_id)
        //unusable = ~0x4000~   // The "unusable" flag (adjust as necessary)
        ////////////n/n/n/n/n/n/n/n/b/l/s/a/t/k/s/d/w/c/s/h/f/m/q/c/l/s/d/s/2/S/s/d
        weapprof = ~0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 5 0 0 0 5 0 0 0 0 5 2 2 2 3~
        hpclass = ~HPBARB~
        clab_path = ~GelThiefKitChange/Tables/CLAGELBS.2DA~  // Path to the class abilities table 
        luabbr = ~GELBS~  // Abbreviation for the kit
        backstab = ~1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1~  // Backstab progression
        thiefscl = ~0 0 0 0 0 100 0 0~   // Thief skills classes
        clasiskl = ~0 0 0 0 0 24 0~  // Class skill levels
        clswpbon = ~1 0 2~  // Weapon proficiency bonus

RET

END

//////////////// TMC Kit add //////////////////

LAF ADD_KIT_EX
    INT_VAR
        kit_class = 13   // Adjust to the correct class
        mixed = RESOLVE_STR_REF(~CLERIC / MAGE / THIEF~)
        lower = RESOLVE_STR_REF(~CLERIC / MAGE / THIEF~)
        help = RESOLVE_STR_REF(~CLERIC / MAGE / THIEF: 

YOU SHOULD KITCHANGE INTO THIS FROM VANILLA MAGE/THIEF TO GET FULL ACCESS TO KIT FEATURES.

May get * in the following profiences:
- Quarterstaff
- Slings
- Flail/Morning Star
- War Hammers
- Maces
- Clubs

May put this into wepon styles:
- 2 Handed wepons style *
- Single Wepon style *
- Sword and Shield style *
- Dual wepon style ***

Flail/Morning Star, War Hammers and Maces are not usable before Use Any Item is achieved.
Those wepons may not backstab, unless you install that feature.~)
briefdesc = RESOLVE_STR_REF(~CLERIC / MAGE / THIEF: A Mage/Thief class converted to CLERIC/MAGE/THIEF~)

    STR_VAR
        kit_name = ~GelTMC~   // Set the kit name (Weidu will assign the kit_id)
        ////////////n/n/n/n/n/n/n/n/b/l/s/a/t/k/s/d/w/c/s/h/f/m/q/c/l/s/d/s/2/S/s/d
        weapprof = ~0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 0 0 0 1 1 1 1 3~
        clab_base_m   = ~GelThiefKitChange/Tables/CLAGETMC.2DA~
        //clab_path = ~GelThiefKitChange/Tables/CLAGELBS.2DA~  // Path to the class abilities table 
        luabbr = ~GETMC~  // Abbreviation for the kit
RET

END

//////////////// FMTC Kit add //////////////////

LAF ADD_KIT_EX
    INT_VAR
        kit_class = 10   // Adjust to the correct class
        mixed = RESOLVE_STR_REF(~FIGHTER / CLERIC / MAGE / THIEF~)
        lower = RESOLVE_STR_REF(~FIGHTER / CLERIC / MAGE / THIEF~)
        help = RESOLVE_STR_REF(~FIGHTER / CLERIC / MAGE / THIEF: 

YOU SHOULD KITCHANGE INTO THIS FROM VANILLA FIGHTER/MAGE/THIEF TO GET FULL ACCESS TO KIT FEATURES.

May get ** in the following profiences:
- Quarterstaff
- Slings
- Flail/Morning Star
- War Hammers
- Maces
- Clubs

May put this into wepon styles:
- 2 Handed wepons style **
- Single Wepon style **
- Sword and Shield style **
- Dual wepon style ***

Flail/Morning Star, War Hammers and Maces are not usable before Use Any Item is achieved.
Those wepons may not backstab, unless you install that feature.~)
briefdesc = RESOLVE_STR_REF(~CLERIC / MAGE / THIEF: A Mage/Thief class converted to CLERIC/MAGE/THIEF~)

    STR_VAR
        kit_name = ~GelFMTC~   // Set the kit name (Weidu will assign the kit_id)
        ////////////n/n/n/n/n/n/n/n/b/l/s/a/t/k/s/d/w/c/s/h/f/m/q/c/l/s/d/s/2/S/s/d
        weapprof = ~0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 2 0 0 2 2 2 0 0 0 0 2 2 2 2 3~
        clab_base_m   = ~GelThiefKitChange/Tables/CLAGETMC.2DA~
        //clab_path = ~GelThiefKitChange/Tables/CLAGELBS.2DA~  // Path to the class abilities table 
        luabbr = ~GFMTC~  // Abbreviation for the kit
RET

END

////////////////////////////////////////////////// Compile scripts //////////////////////////////////////////////////

COMPILE ~GelThiefKitChange/GelNDia.baf~
COMPILE ~GelThiefKitChange/GelNDia.d~
COMPILE ~GelThiefKitChange/GelTDia.baf~
COMPILE ~GelThiefKitChange/GelTDia.d~
//COMPILE ~GelThiefKitChange/GelDual.baf~
//COMPILE ~GelThiefKitChange/GelMult.baf~
COMPILE ~GelThiefKitChange/GelKitP.baf~


///////////////////////////////////////// Copy creatures and assign scripts and dialogs//////////////////////////////

COPY ~GelThiefKitChange/Creature/GelTDia.cre~ ~override~
  SAY NAME1 ~Potion of Customization~
  SAY NAME2 ~Potion of Customization~
  WRITE_ASCII 0x248 ~GelTDia~ #8    // Override script
  WRITE_ASCII 0x2CC ~GelTDia~ #8    // Dialog file

COPY ~GelThiefKitChange/Creature/GelNDia.cre~ ~override~
  SAY NAME1 ~KitChanger~
  SAY NAME2 ~KitChanger~
  WRITE_ASCII 0x248 ~GelNDia~ #8    // Override script
  WRITE_ASCII 0x2CC ~GelNDia~ #8    // Dialog file

//COPY ~GelThiefKitChange/Creature/GelADia.cre~ ~override~
//  SAY NAME1 ~KitChanger~
//  SAY NAME2 ~KitChanger~
//  WRITE_ASCII 0x248 ~GelADia~ #8    // Override script
//  WRITE_ASCII 0x2CC ~GelADia~ #8    // Dialog file

/////////////////////////////// Copy Clab files and Add the summoning of kitchanger creatures /////////////////////////

LAF a7#add_kit_ex#ensure_clab_table
  STR_VAR resref = ~CLABMA01~
END

LAF a7#add_kit_ex#pad_clab_table
  STR_VAR resref = ~CLABMA01~
END

COPY_EXISTING ~BACKSTAB.2DA~ ~override~
   APPEND ~BACKSTAB.2DA~ ~CLERIC_RANGER 1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1~
  UNLESS ~CLERIC_RANGER~
BUT_ONLY_IF_IT_CHANGES

COPY_EXISTING ~BACKSTAB.2DA~ ~override~
   APPEND ~BACKSTAB.2DA~ ~RANGER 1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1             1~
  UNLESS ~RANGER~
BUT_ONLY_IF_IT_CHANGES

COPY_EXISTING ~CLABTH01.2DA~ ~override~
  APPEND ~CLABTH01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABRN01.2DA~ ~override~
  APPEND ~CLABRN01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABMA01.2DA~ ~override~
  APPEND ~CLABMA01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABFI01.2DA~ ~override~
  APPEND ~CLABFI01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABPA01.2DA~ ~override~
  APPEND ~CLABPA01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABBA01.2DA~ ~override~
  APPEND ~CLABBA01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABDR01.2DA~ ~override~
  APPEND ~CLABDR01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABPR01.2DA~ ~override~
  APPEND ~CLABPR01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABMO01.2DA~ ~override~
  APPEND ~CLABMO01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

COPY_EXISTING ~CLABSH01.2DA~ ~override~
  APPEND ~CLABSH01.2DA~ ~GELKIT01    AP_GelNDia  ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****    ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****        ****~
BUT_ONLY

BEGIN ~Patch Use Any Items to work with new stuff? Install this if you want it to override restrictions set for overlay kits and via Potion of Customization~
REQUIRE_PREDICATE (GAME_IS ~bg2ee eet~) ~Requires the ability~

OUTER_SET GelRestrictCount = 0

// legg til alle dine restriction spells her
OUTER_SPRINT GelRestrict_1 ~GelKenI~
OUTER_SPRINT GelRestrict_2 ~GelBarI~
OUTER_SPRINT GelRestrict_3 ~GelWisI~
OUTER_SPRINT GelRestrict_4 ~GelStaI~
OUTER_SPRINT GelRestrict_5 ~GelAveI~
OUTER_SPRINT GelRestrict_6 ~GelShp1~
OUTER_SPRINT GelRestrict_7 ~GelSliI~
OUTER_SPRINT GelRestrict_8 ~GelWALR~
OUTER_SPRINT GelRestrict_9 ~GelW2HR~
OUTER_SPRINT GelRestrict_10 ~GelWBAR~
OUTER_SPRINT GelRestrict_11 ~GelWLOR~
OUTER_SPRINT GelRestrict_12 ~GelWDAR~
OUTER_SPRINT GelRestrict_13 ~GelWSMR~
OUTER_SPRINT GelRestrict_14 ~GelWWHR~
OUTER_SPRINT GelRestrict_15 ~GelWFMR~
OUTER_SPRINT GelRestrict_16 ~GelWMAR~
OUTER_SPRINT GelRestrict_17 ~GelWQSR~
OUTER_SPRINT GelRestrict_18 ~GelWCLR~
OUTER_SPRINT GelRestrict_19 ~GelWHAR~
OUTER_SPRINT GelRestrict_20 ~GelWSPR~
OUTER_SPRINT GelRestrict_21 ~GelAAAR~
OUTER_SPRINT GelRestrict_22 ~GelACAR~
OUTER_SPRINT GelRestrict_23 ~GelAFPR~
OUTER_SPRINT GelRestrict_24 ~GelAPLR~
OUTER_SPRINT GelRestrict_25 ~GelASPR~
OUTER_SPRINT GelRestrict_26 ~GelACHR~
OUTER_SPRINT GelRestrict_27 ~GelASTR~
OUTER_SPRINT GelRestrict_28 ~GelAMCR~
OUTER_SPRINT GelRestrict_29 ~GelAHER~
OUTER_SPRINT GelRestrict_30 ~GelAGLR~
OUTER_SPRINT GelRestrict_31 ~GelJAMR~
OUTER_SPRINT GelRestrict_32 ~GelJRIR~
OUTER_SPRINT GelRestrict_33 ~GelJCLR~
OUTER_SPRINT GelRestrict_34 ~GelJBOR~
OUTER_SPRINT GelRestrict_35 ~GelJBER~
OUTER_SET GelRestrictCount = 35

COPY_EXISTING ~spcl915.spl~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN

    FOR (i = 1; i <= GelRestrictCount; ++i) BEGIN

      SPRINT res EVAL ~%GelRestrict_%i%%~

      LPF ADD_SPELL_EFFECT
        INT_VAR
          opcode        = 321
          target        = 1
          timing        = 0
          duration      = 0
          parameter2    = 0
          resist_dispel = 0
          probability1  = 100
        STR_VAR
          resource      = ~%res%~
      END

    END

  END
BUT_ONLY_IF_IT_CHANGES

///// Code below dont work with timing instant/permanent(9)////
//COPY_EXISTING ~spcl915.spl~ ~override~
//  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
//    LPF ADD_SPELL_EFFECT INT_VAR
//      opcode          = 337
//      target          = 1
//      timing          = 9
//      duration        = 0
//      parameter1      = -1
//      parameter2      = 180
//      resist_dispel   = 0
//      probability1    = 100
//      probability2    = 0
//      savingthrow     = 0
//      savebonus       = 0
//      special         = 0
//    END
//  END
//BUT_ONLY

//COPY_EXISTING ~spcl915.spl~ ~override~
//  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
//    LPF ADD_SPELL_EFFECT INT_VAR
//      opcode          = 337
//      target          = 1
//      timing          = 9
//      duration        = 0
//      parameter1      = -1
//      parameter2      = 181
//      resist_dispel   = 0
//      probability1    = 100
//      probability2    = 0
//      savingthrow     = 0
//      savebonus       = 0
//      special         = 0
//    END
//  END
//BUT_ONLY

BEGIN ~Add Script for all features to player1(Required for protagonist features).~
EXTEND_TOP ~PLAYER1D.BCS~ ~GelThiefKitChange/GelP1.baf~

BEGIN ~Add Kit Changer to NPC's? BG2EE~
REQUIRE_PREDICATE (GAME_IS ~bg2ee~) ~For BG2EE~
////////// BG2EE Joinable NPC scripts /////////// REQUIRE_PREDICATE (GAME_IS ~bg2ee~ AND NOT GAME_IS ~eet~) ~For BG2EE only (no EET)~ //////////
EXTEND_TOP ~AERIE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~AERI25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~ANOMEN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~ANOM25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~CERND.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~CERN25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~EDWIN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~EDWI25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~HAERDALI.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~HAER25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~IMOEN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~IMOE25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~JAHEIRA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~JAHE25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~JAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~JAN25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~KELDORN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KELD25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KORGAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KORG25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MAZZY.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MAZZ25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MINSC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MINS25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~NALIA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~NALI25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~VALYGAR.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~VALY25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~VICONIA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~VICO25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~YOSHIMO.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~SARE25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~DORN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~DORN25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~RASAAD.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~RASA25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~HEXXAT.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~HEXXA25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~OHHFAK.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~

BEGIN ~Add Kit Changer to NPC's? BGEE~
REQUIRE_PREDICATE (GAME_IS ~bgee~) ~For BGEE~
//////// BGEE JOINABLE NPC /////////
EXTEND_TOP ~AJANTIS.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~ALORA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~TTBRAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDCORAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~CORAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~DYNAHEIR.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDDYNAHE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~EDWIN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~ // Exists in both
EXTEND_TOP ~BDEDWIN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~ELDOTH.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~FALDORN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDGARRIC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~GARRIC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDIMOEN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~IMOEN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~ // Exists in both
EXTEND_TOP ~JAHEIRA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~ // Exists in both
EXTEND_TOP ~BDJAHEIR.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~KAGAIN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KHALID.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDKHALID.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KIVAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MINSC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~ // Exists in both
EXTEND_TOP ~BDMINSC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MONTARON.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~QUAYLE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~SAFANA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDSAFANA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~SHARTEEL.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~SKIE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDSKIE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDTIAX.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~TIAX.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~VICONIA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~ // Exists in both
EXTEND_TOP ~BDVICONI.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~TTXAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~XAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~XZAR.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~YESLICK.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~DORN.BCS~ ~GelThiefKitChange/GelDual.baf~ // Exists in both
EXTEND_TOP ~BDDORN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~RASAAD.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~ // Exists in both
EXTEND_TOP ~BDRASAAD.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BAELOTH.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDBAELOTH.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~


BEGIN ~Add Kit Changer to NPC's? EET~
REQUIRE_PREDICATE (GAME_IS ~eet~) ~For EET~
EXTEND_TOP ~AERIE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~AERI25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~ANOMEN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~ANOM25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~CERND.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~CERN25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~EDWIN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~EDWI25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~HAERDALI.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~HAER25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~IMOEN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~IMOE25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~JAHEIRA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~JAHE25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~JAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~JAN25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~KELDORN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KELD25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KORGAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KORG25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MAZZY.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MAZZ25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MINSC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MINS25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~NALIA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~NALI25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~VALYGAR.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~VALY25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~VICONIA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~VICO25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~YOSHIMO.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~SARE25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~DORN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~DORN25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~RASAAD.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~RASA25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~HEXXAT.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~HEXXA25.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~OHHFAK.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~AJANTIS.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~ALORA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~TTBRAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDCORAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~CORAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~DYNAHEIR.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDDYNAHE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDEDWIN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~ELDOTH.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~FALDORN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDGARRIC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~GARRIC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDIMOEN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDJAHEIR.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~KAGAIN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KHALID.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDKHALID.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~KIVAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDMINSC.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~MONTARON.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~QUAYLE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~SAFANA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDSAFANA.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~SHARTEEL.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~SKIE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDSKIE.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDTIAX.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~TIAX.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~BDVICONI.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~TTXAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~XAN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~XZAR.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~YESLICK.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelMult.baf~
EXTEND_TOP ~BDDORN.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDRASAAD.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BAELOTH.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~
EXTEND_TOP ~BDBAELOTH.BCS~ ~GelThiefKitChange/GelKitP.baf~ //~GelThiefKitChange/GelDual.baf~

BEGIN ~You do this after Anatholyo tweaks CDtweaks: Do you want to let your kitted Figther & Druid combinations be allowed to use shapechange gear?~

COPY ~GelThiefKitChange/Items/wwwere.itm~ ~Override~
  SAY NAME1 ~Werewolf Paw~
  SAY NAME2 ~Werewolf Paw~
  SAY UNIDENTIFIED_DESC ~This symbolic paw represents a Shapeshifter Druid's control over lycanthropy. While the paw is wielded the Shapeshifter becomes a Werewolf. When the paw is removed, the Shapeshifter returns to human form. The paws of a Werewolf count as +2 weapons.
STATISTICS:
Attributes: 19 STR, 16 DEX, 15 CON
Base Armor Class: 1
Resistances: 20% magic resistance, immunity to non-magical weapons
Attacks Per Round: 2
Damage: 1D12
Damage type: slashing
Speed Factor: 3
Proficiency Type: Dagger
Type: 1-handed
~
  SAY DESC ~This symbolic paw represents a Shapeshifter Druid's control over lycanthropy. While the paw is wielded the Shapeshifter becomes a Werewolf. When the paw is removed, the Shapeshifter returns to human form. The paws of a Werewolf count as +2 weapons.
STATISTICS:
Attributes: 19 STR, 16 DEX, 15 CON
Base Armor Class: 1
Resistances: 20% magic resistance, immunity to non-magical weapons
Attacks Per Round: 2
Damage: 1D12
Damage type: slashing
Speed Factor: 3
Proficiency Type: Dagger
Type: 1-handed
~

COPY ~GelThiefKitChange/Items/wwweregr.itm~ ~Override~
  SAY NAME1 ~Greater Werewolf Paw~
  SAY NAME2 ~Greater Werewolf Paw~
  SAY UNIDENTIFIED_DESC ~This symbolic paw represents a Shapeshifter Druid's ultimate control over lycanthropy. While the paw is wielded the Shapeshifter becomes a Greater Werewolf. When the paw is removed, the Shapeshifter returns to human form. The paws of a Greater Werewolf count as +3 weapons.
STATISTICS:
Attributes: 21 STR, 20 DEX, 25 CON
Base Armor Class: -6
Base Saving Throws: 1/1/1/2/1
Resistances: 40% magic resistance, 50% elemental resistance, immunity to non-magical weapons
Regeneration: 3 hit points per second
Attacks Per Round: 3
Base Paw THAC0: 6
Damage: 2D8
Damage type: slashing
Speed Factor: 3
Proficiency Type: Dagger
Type: 1-handed
~
  SAY DESC ~This symbolic paw represents a Shapeshifter Druid's ultimate control over lycanthropy. While the paw is wielded the Shapeshifter becomes a Greater Werewolf. When the paw is removed, the Shapeshifter returns to human form. The paws of a Greater Werewolf count as +3 weapons.
STATISTICS:
Attributes: 21 STR, 20 DEX, 25 CON
Base Armor Class: -6
Base Saving Throws: 1/1/1/2/1
Resistances: 40% magic resistance, 50% elemental resistance, immunity to non-magical weapons
Regeneration: 3 hit points per second
Attacks Per Round: 3
Base Paw THAC0: 6
Damage: 2D8
Damage type: slashing
Speed Factor: 3
Proficiency Type: Dagger
Type: 1-handed
~

// --------------------------------------------------
// 🔧 Felles funksjon (gjenbruk)
// --------------------------------------------------
DEFINE_PATCH_FUNCTION ~ENABLE_BACKSTAB~
BEGIN
  READ_LONG 0x1e usability
  PATCH_IF ((usability BAND BIT22) = BIT22) BEGIN
    WRITE_LONG 0x1e (usability BAND `BIT22)

    LPF ADD_ITEM_EQEFFECT INT_VAR
      opcode = 319
      target = 1
      parameter1 = 4   // THIEF
      parameter2 = 5   // CLASS.IDS
      timing = 2
      special = 1082
    END

    PATCH_PRINT ~Backstab enabled: %SOURCE_RES%~
  END
END

// --------------------------------------------------
// 1. ALL WEAPONS
// --------------------------------------------------
//BEGIN ~Backstab with ALL weapons~
//
//COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
//  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
//    LPF ENABLE_BACKSTAB END
//  END
//  BUT_ONLY


// --------------------------------------------------
// 2. TWO-HANDED SWORDS
// --------------------------------------------------
BEGIN ~Backstab with Two-Handed Swords only~

COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    READ_SHORT 0x1c type
    READ_BYTE  0x31 prof

    PATCH_IF (
      (type = 20) AND
      (prof = 93) AND
      ("%SOURCE_RES%" STRING_MATCHES_REGEXP "^SW2H")
    ) BEGIN
      LPF ENABLE_BACKSTAB END
    END
  END
  BUT_ONLY


// --------------------------------------------------
// 3. BASTARD SWORDS
// --------------------------------------------------
BEGIN ~Backstab with Bastard Swords only~

COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    READ_SHORT 0x1c type
    READ_BYTE  0x31 prof

    PATCH_IF (
      (type = 20) AND
      (prof = 89)
    ) BEGIN
      LPF ENABLE_BACKSTAB END
    END
  END
  BUT_ONLY


// --------------------------------------------------
// 4. TWO-HANDED + BASTARD SWORDS
// --------------------------------------------------
//BEGIN ~Backstab with Two-Handed + Bastard Swords~
//
//COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
//  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
//    READ_SHORT 0x1c type
//    READ_BYTE  0x31 prof
//
//    PATCH_IF (
//      (
//        (type = 20) AND (prof = 93) AND ("%SOURCE_RES%" STRING_MATCHES_REGEXP "^SW")
//      )
//      OR
//      (
//        (type = 20) AND (prof = 89)
//      )
//    ) BEGIN
//      LPF ENABLE_BACKSTAB END
//    END
//  END
//  BUT_ONLY


// --------------------------------------------------
// 5. FLAIL / MORNING STAR
// --------------------------------------------------
BEGIN ~Backstab with Flails and Morning Stars~

COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    READ_SHORT 0x1c type
    READ_BYTE  0x31 prof

    PATCH_IF (
      (
        (type = 22)
        OR
        (type = 23)
      )
      AND
      (prof = 100)
    ) BEGIN
      LPF ENABLE_BACKSTAB END
    END
  END
  BUT_ONLY


// --------------------------------------------------
// 6. MACE
// --------------------------------------------------
BEGIN ~Backstab with Maces~

COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    READ_SHORT 0x1c type
    READ_BYTE  0x31 prof

    PATCH_IF (
      (type = 17) AND
      (prof = 101)
    ) BEGIN
      LPF ENABLE_BACKSTAB END
    END
  END
  BUT_ONLY


// --------------------------------------------------
// 7. WAR HAMMER
// --------------------------------------------------
BEGIN ~Backstab with War Hammers~

COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    READ_SHORT 0x1c type
    READ_BYTE  0x31 prof

    PATCH_IF (
      (type = 21) AND
      (prof = 97)
    ) BEGIN
      LPF ENABLE_BACKSTAB END
    END
  END
  BUT_ONLY


// --------------------------------------------------
// 8. FLAIL + MORNING STAR + MACE + WAR HAMMER
// --------------------------------------------------
//BEGIN ~Backstab with Flails, Morning Stars, Maces and War Hammers~
//
//COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
//  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
//    READ_SHORT 0x1c type
//    READ_BYTE  0x31 prof
//
//    PATCH_IF (
//      (
//        (type = 23) AND (prof = 100)
//      )
//      OR
//      (
//        (type = 22) AND (prof = 100)
//      )
//      OR
//      (
//        (type = 17) AND (prof = 101)
//      )
//      OR
//      (
//        (type = 21) AND (prof = 97)
//      )
//    ) BEGIN
//      LPF ENABLE_BACKSTAB END
//    END
//  END
//  BUT_ONLY

// --------------------------------------------------
// 9. AXE
// --------------------------------------------------
BEGIN ~Backstab with Axes~

COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    READ_SHORT 0x1c type
    READ_BYTE  0x31 prof

    PATCH_IF (
      (type = 25) AND
      (prof = 92)
    ) BEGIN
      LPF ENABLE_BACKSTAB END
    END
  END
  BUT_ONLY

// --------------------------------------------------
// 10. SPEAR
// --------------------------------------------------
BEGIN ~Backstab with Spear~

COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    READ_SHORT 0x1c type
    READ_BYTE  0x31 prof

    PATCH_IF (
      (type = 29) AND
      (prof = 98)
    ) BEGIN
      LPF ENABLE_BACKSTAB END
    END
  END
  BUT_ONLY

// --------------------------------------------------
// 10. HALBERD
// --------------------------------------------------
BEGIN ~Backstab with HALBERD~

COPY_EXISTING_REGEXP GLOB ~^.+\.itm$~ ~override~
  PATCH_IF (SOURCE_SIZE > 0x71) BEGIN
    READ_SHORT 0x1c type
    READ_BYTE  0x31 prof

    PATCH_IF (
      (type = 30) AND
      (prof = 99)
    ) BEGIN
      LPF ENABLE_BACKSTAB END
    END
  END
  BUT_ONLY

// --------------------------------------------------
// ITEM UPGRADES
// --------------------------------------------------

BEGIN ~Install ItemUpgrade for Stalker Gloves~

ACTION_IF (GAME_INCLUDES ~bg2ee~) BEGIN
COPY_EXISTING ~wsmith01.dlg~ ~override~
  DECOMPILE_DLG_TO_D
    REPLACE_TEXTUALLY "\([%TAB%%LNL%%WNL%%MNL% ]\)GOTO 13\([%TAB%%LNL%%WNL%%MNL% ]\)" "\1 GOTO Gelitemupgrade \2"
    REPLACE_TEXTUALLY "\([%TAB%%LNL%%WNL%%MNL% ]\)EXTERN ~WSMITH01~ 13\([%TAB%%LNL%%WNL%%MNL% ]\)" "\1 GOTO Gelitemupgrade \2"
    APPEND_FILE ~GelThiefKitChange/dlg/crom.d~
  COMPILE_D_TO_DLG

EXTEND_BOTTOM ~AR0334.bcs~ ~GelThiefKitChange/DLG/AR0334.baf~
COMPILE ~GelThiefKitChange/DLG/bdbrac05.d~

END

///// === GelNDia.D === /////
BEGIN ~GelNDia~ 
///////////////////////////DUAL CLASS: TO THIEF////////////////////////////////////////// 
IF ~Class(LastTalkedToBy(Myself),THIEF)~ THEN BEGIN GelStart 
  SAY ~Do you want to change your Thief Kit?~ 
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
    IF ~!Class(LastTalkedToBy(Myself),MAGE) !Class(LastTalkedToBy(Myself),FIGHTER) !Class(LastTalkedToBy(Myself),CLERIC)~ THEN REPLY ~Yes.~ GOTO GelPickThief 
    IF ~OriginalClass(LastTalkedToBy(Myself),CLERIC)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelFirstKit 
    IF ~OriginalClass(LastTalkedToBy(Myself),FIGHTER)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelFirstKit 
    IF ~OriginalClass(LastTalkedToBy(Myself),MAGE)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelFirstKit
END

IF ~~ THEN BEGIN GelFirstKit
  SAY ~Do you also want to keep your first class kit bonuses, restrictions and abilities?~
    IF ~Kit(LastTalkedToBy(Myself),KENSAI)~ THEN REPLY ~Keep Kensai Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepKen","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKenI",LastTalkedToBy(Myself)))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),DWARVEN_DEFENDER)~ THEN REPLY ~Keep Dwarven Defender Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepDwD","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),BERSERKER)~ THEN REPLY ~Keep Berskerker Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBer","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),WIZARDSLAYER)~ THEN REPLY ~Keep Wizard_Slayer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepWiS","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWiSI",LastTalkedToBy(Myself)))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),BARBARIAN)~ THEN REPLY ~Keep Barbarian Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBar","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBarI",LastTalkedToBy(Myself)))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ABJURER)~ THEN REPLY ~Keep Abjurer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepAbj","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_CONJURER)~ THEN REPLY ~Keep Conjurer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepCon","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_DIVINER)~ THEN REPLY ~Keep Diviner Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepDev","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ENCHANTER)~ THEN REPLY ~Keep Enchanter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepEnc","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ILLUSIONIST)~ THEN REPLY ~Keep Illusionist Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepIll","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_INVOKER)~ THEN REPLY ~Keep Invoker Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepInv","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_NECROMANCER)~ THEN REPLY ~Keep Necromancer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepNec","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_TRANSMUTER)~ THEN REPLY ~Keep Transmuter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTra","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),GelSMag)~ THEN REPLY ~Keep Super Mage Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSupM","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),GODTALOS)~ THEN REPLY ~Keep Talos Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTal","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),GODLATHANDER)~ THEN REPLY ~Keep Lathander Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepLat","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),GODHELM)~ THEN REPLY ~Keep Helm Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepHel","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),OHTEMPUS)~ THEN REPLY ~Keep Tempus Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTem","LOCALS",1))~ GOTO GelPickThief
    IF ~Kit(LastTalkedToBy(Myself),OHTYR)~ THEN REPLY ~Keep Tyr Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTyr","LOCALS",1))~ GOTO GelPickThief
    IF ~~ THEN REPLY ~No, i want unkitted first class~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepOrg","LOCALS",1))~ GOTO GelPickThief
END

IF ~~ THEN BEGIN GelPickThief
  SAY ~Choose your thief kit~
    IF ~~ THEN REPLY ~Assassin~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("ASSASIN"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Shadowdancer~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("SHADOWDANCER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Swashbuckler~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("SWASHBUCKLER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Bounty Hunter~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("BOUNTYHUNTER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~I want all Thief kits combined into one!~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GelSupT")) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelSuperThief","LOCALS",1))~ GOTO GelApplied
//    IF ~~ THEN REPLY ~Never mind.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~~ THEN BEGIN GelApplied
  SAY ~Done. Your Kit and/or overlay is active~
    IF ~GlobalLT("GelPot2Chosen","LOCALS",1)~ THEN REPLY ~I want a Potion which allows further customisation(Buff/Nerfs)~ DO ~SetGlobal("GelPot2Chosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelPot1","LOCALS",1))~ GOTO GelPotionOfChoices2
    IF ~~ THEN REPLY ~Thanks. Im done.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~~ THEN BEGIN GelPotionOfChoices2
  SAY ~Potion of Customization added to inventory.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelApplied
END

///////////////////////////DUAL CLASS: To Mage////////////////////////////////////////// 

IF ~Class(LastTalkedToBy(Myself),MAGE)~ THEN BEGIN GelStartMage 
  SAY ~Do you want to change your Mage Kit?~ 
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied 
    IF ~!Class(LastTalkedToBy(Myself),THIEF) !Class(LastTalkedToBy(Myself),FIGHTER) !Class(LastTalkedToBy(Myself),CLERIC)~ THEN REPLY ~Yes.~ GOTO GelPickMage 
    IF ~OriginalClass(LastTalkedToBy(Myself),CLERIC)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelMageFirstKit 
    IF ~OriginalClass(LastTalkedToBy(Myself),FIGHTER)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelMageFirstKit 
    IF ~OriginalClass(LastTalkedToBy(Myself),THIEF)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelMageFirstKit 
END 

IF ~~ THEN BEGIN GelMageFirstKit 
  SAY ~Do you also want to keep your first class kit bonuses, restrictions and abilities?~ 
    IF ~Kit(LastTalkedToBy(Myself),KENSAI)~ THEN REPLY ~Keep Kensai Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepKen","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKenI",LastTalkedToBy(Myself)))~ GOTO GelPickMage
    IF ~Kit(LastTalkedToBy(Myself),DWARVEN_DEFENDER)~ THEN REPLY ~Keep Dwarven Defender Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepDwD","LOCALS",1))~ GOTO GelPickMage  
    IF ~Kit(LastTalkedToBy(Myself),BERSERKER)~ THEN REPLY ~Keep Berskerker Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBer","LOCALS",1))~ GOTO GelPickMage 
    IF ~Kit(LastTalkedToBy(Myself),WIZARDSLAYER)~ THEN REPLY ~Keep Wizard_Slayer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepWiS","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWiSI",LastTalkedToBy(Myself)))~ GOTO GelPickMage 
    IF ~Kit(LastTalkedToBy(Myself),BARBARIAN)~ THEN REPLY ~Keep Barbarian Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBar","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBarI",LastTalkedToBy(Myself)))~ GOTO GelPickMage 
    IF ~Kit(LastTalkedToBy(Myself),GODTALOS)~ THEN REPLY ~Keep Talos Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTal","LOCALS",1))~ GOTO GelPickMage 
    IF ~Kit(LastTalkedToBy(Myself),GODLATHANDER)~ THEN REPLY ~Keep Lathander Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepLat","LOCALS",1))~ GOTO GelPickMage 
    IF ~Kit(LastTalkedToBy(Myself),GODHELM)~ THEN REPLY ~Keep Helm Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepHel","LOCALS",1))~ GOTO GelPickMage 
    IF ~Kit(LastTalkedToBy(Myself),OHTEMPUS)~ THEN REPLY ~Keep Tempus Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTem","LOCALS",1))~ GOTO GelPickMage 
    IF ~Kit(LastTalkedToBy(Myself),OHTYR)~ THEN REPLY ~Keep Tyr Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTyr","LOCALS",1))~ GOTO GelPickMage 
    IF ~Kit(LastTalkedToBy(Myself),ASSASIN)~ THEN REPLY ~Keep Assassin Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepAss","LOCALS",1))~ GOTO GelPickMage
    IF ~Kit(LastTalkedToBy(Myself),SHADOWDANCER)~ THEN REPLY ~Keep Shadowdancer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSha","LOCALS",1))~ GOTO GelPickMage
    IF ~Kit(LastTalkedToBy(Myself),BOUNTYHUNTER)~ THEN REPLY ~Keep Bounty Hunter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBou","LOCALS",1))~ GOTO GelPickMage
    IF ~Kit(LastTalkedToBy(Myself),SWASHBUCKLER)~ THEN REPLY ~Keep Swashbuckler Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSwa","LOCALS",1))~ GOTO GelPickMage
    IF ~Kit(LastTalkedToBy(Myself),GelSupT)~ THEN REPLY ~Keep Combined Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSuperT","LOCALS",1))~ GOTO GelPickMage
    IF ~~ THEN REPLY ~No, i want unkitted first class~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepOrg","LOCALS",1))~ GOTO GelPickMage 
END 

IF ~~ THEN BEGIN GelPickMage 
  SAY ~Choose your Mage kit~ 
    IF ~~ THEN REPLY ~Abjurer~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("MAGESCHOOL_ABJURER")) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSup1",LastTalkedToBy(Myself)))~ GOTO GelApplied 
    IF ~~ THEN REPLY ~Conjurer~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("MAGESCHOOL_CONJURER")) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSup1",LastTalkedToBy(Myself)))~ GOTO GelApplied 
    IF ~~ THEN REPLY ~Diviner~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("MAGESCHOOL_DIVINER")) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSup1",LastTalkedToBy(Myself)))~ GOTO GelApplied 
    IF ~~ THEN REPLY ~Enchanter~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("MAGESCHOOL_ENCHANTER")) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSup1",LastTalkedToBy(Myself)))~ GOTO GelApplied 
    IF ~~ THEN REPLY ~Illusionist~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("MAGESCHOOL_ILLUSIONIST")) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSup1",LastTalkedToBy(Myself)))~ GOTO GelApplied 
    IF ~~ THEN REPLY ~Invoker~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("MAGESCHOOL_INVOKER")) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSup1",LastTalkedToBy(Myself)))~ GOTO GelApplied 
    IF ~~ THEN REPLY ~Necromancer~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("MAGESCHOOL_NECROMANCER")) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSup1",LastTalkedToBy(Myself)))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Transmuter~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("MAGESCHOOL_TRANSMUTER")) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSup1",LastTalkedToBy(Myself)))~ GOTO GelApplied 
    IF ~~ THEN REPLY ~I want Super Mage kit with 1 extra spells cast per level, no class restrictions or bonuses.~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GelSMag"))~ GOTO GelApplied 
//    IF ~~ THEN REPLY ~Never mind.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelTDia_Init","LOCALS",3))~ EXIT 
END

//////////////////////DUAL TO CLERIC//////////////////////////////
/// DUAL TO CLERIC
IF ~Class(LastTalkedToBy(Myself),CLERIC)~ THEN BEGIN GelStartCleric
  SAY ~Do you want to change your Cleric Kit?~
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
    IF ~!Class(LastTalkedToBy(Myself),MAGE) !Class(LastTalkedToBy(Myself),THIEF) !Class(LastTalkedToBy(Myself),FIGHTER) !Class(LastTalkedToBy(Myself),RANGER)~ THEN REPLY ~Yes.~ GOTO GelPickCleric
    IF ~OriginalClass(LastTalkedToBy(Myself),MAGE)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelClericFirstKit
    IF ~OriginalClass(LastTalkedToBy(Myself),THIEF)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelClericFirstKit
    IF ~OriginalClass(LastTalkedToBy(Myself),FIGHTER)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelClericFirstKit
    IF ~OriginalClass(LastTalkedToBy(Myself),RANGER) !Kit(LastTalkedToBy(Myself),GelNinj)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelClericFirstKit
END

IF ~~ THEN BEGIN GelClericFirstKit
  SAY ~Do you also want to keep your first class kit bonuses, restrictions and abilities?~
    IF ~Kit(LastTalkedToBy(Myself),KENSAI)~ THEN REPLY ~Keep Kensai Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepKen","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKenI",LastTalkedToBy(Myself)))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),DWARVEN_DEFENDER)~ THEN REPLY ~Keep Dwarven Defender Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepDwD","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),BERSERKER)~ THEN REPLY ~Keep Berskerker Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBer","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),WIZARDSLAYER)~ THEN REPLY ~Keep Wizard_Slayer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepWiS","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWiSI",LastTalkedToBy(Myself)))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),BARBARIAN)~ THEN REPLY ~Keep Barbarian Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBar","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBarI",LastTalkedToBy(Myself)))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ABJURER)~ THEN REPLY ~Keep Abjurer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepAbj","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_CONJURER)~ THEN REPLY ~Keep Conjurer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepCon","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_DIVINER)~ THEN REPLY ~Keep Diviner Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepDev","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ENCHANTER)~ THEN REPLY ~Keep Enchanter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepEnc","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ILLUSIONIST)~ THEN REPLY ~Keep Illusionist Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepIll","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_INVOKER)~ THEN REPLY ~Keep Invoker Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepInv","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_NECROMANCER)~ THEN REPLY ~Keep Necromancer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepNec","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_TRANSMUTER)~ THEN REPLY ~Keep Transmuter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTra","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),GelSMag)~ THEN REPLY ~Keep Super Mage Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSupM","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),STALKER)~ THEN REPLY ~Keep Stalker Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSta","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelStaI",LastTalkedToBy(Myself)))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),GelSlin)~ THEN REPLY ~Keep Slinging Beastmaster Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSli","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSliI",LastTalkedToBy(Myself)))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),ASSASIN)~ THEN REPLY ~Keep Assassin Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepAss","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),SHADOWDANCER)~ THEN REPLY ~Keep Shadowdancer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSha","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),BOUNTYHUNTER)~ THEN REPLY ~Keep Bounty Hunter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBou","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),SWASHBUCKLER)~ THEN REPLY ~Keep Swashbuckler Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSwa","LOCALS",1))~ GOTO GelPickCleric
    IF ~Kit(LastTalkedToBy(Myself),GelSupT)~ THEN REPLY ~Keep Combined Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSuperT","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSupR",LastTalkedToBy(Myself)))~ GOTO GelPickCleric
    IF ~~ THEN REPLY ~No, i want unkitted first class~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepOrg","LOCALS",1))~ GOTO GelPickCleric
  END

IF ~~ THEN BEGIN GelPickCleric
  SAY ~Choose your Cleric kit~
    IF ~~ THEN REPLY ~Talos~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GODTALOS"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Lathander~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GODLATHANDER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Helm~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GODHELM"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Tempus~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("OHTEMPUS"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Tyr~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("OHTYR"))~ GOTO GelApplied
//    IF ~~ THEN REPLY ~Never mind.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

////////////////////DUAL TO FIGHTER//////////////////////////////////
IF ~Class(LastTalkedToBy(Myself),FIGHTER) !Class(LastTalkedToBy(Myself),MONK)~ THEN BEGIN GelStartFighter
  SAY ~Do you want to change your Fighter Kit?~
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
    IF ~!Class(LastTalkedToBy(Myself),MAGE) !Class(LastTalkedToBy(Myself),THIEF) !Class(LastTalkedToBy(Myself),DRUID) !Class(LastTalkedToBy(Myself),CLERIC) !Class(LastTalkedToBy(Myself),MONK)~ THEN REPLY ~Yes.~ GOTO GelPickFighter
    IF ~OriginalClass(LastTalkedToBy(Myself),MAGE)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelFighterFirstKit
    IF ~OriginalClass(LastTalkedToBy(Myself),THIEF)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelFighterFirstKit
    IF ~OriginalClass(LastTalkedToBy(Myself),DRUID)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelFighterFirstKit
    IF ~OriginalClass(LastTalkedToBy(Myself),CLERIC)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelFighterFirstKit
END

IF ~~ THEN BEGIN GelFighterFirstKit
  SAY ~Do you also want to keep your first class kit bonuses, restrictions and abilities?~
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ABJURER)~ THEN REPLY ~Keep Abjurer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepAbj","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_CONJURER)~ THEN REPLY ~Keep Conjurer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepCon","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_DIVINER)~ THEN REPLY ~Keep Diviner Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepDev","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ENCHANTER)~ THEN REPLY ~Keep Enchanter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepEnc","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_ILLUSIONIST)~ THEN REPLY ~Keep Illusionist Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepIll","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_INVOKER)~ THEN REPLY ~Keep Invoker Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepInv","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_NECROMANCER)~ THEN REPLY ~Keep Necromancer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepNec","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),MAGESCHOOL_TRANSMUTER)~ THEN REPLY ~Keep Transmuter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTra","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),GelSMag)~ THEN REPLY ~Keep Super Mage Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSupM","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),GODTALOS)~ THEN REPLY ~Keep Talos Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTal","LOCALS",1))~ GOTO GelPickFighter 
    IF ~Kit(LastTalkedToBy(Myself),GODLATHANDER)~ THEN REPLY ~Keep Lathander Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepLat","LOCALS",1))~ GOTO GelPickFighter 
    IF ~Kit(LastTalkedToBy(Myself),GODHELM)~ THEN REPLY ~Keep Helm Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepHel","LOCALS",1))~ GOTO GelPickFighter 
    IF ~Kit(LastTalkedToBy(Myself),OHTEMPUS)~ THEN REPLY ~Keep Tempus Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTem","LOCALS",1))~ GOTO GelPickFighter 
    IF ~Kit(LastTalkedToBy(Myself),OHTYR)~ THEN REPLY ~Keep Tyr Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTyr","LOCALS",1))~ GOTO GelPickFighter 
    IF ~Kit(LastTalkedToBy(Myself),ASSASIN)~ THEN REPLY ~Keep Assassin Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepAss","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),SHADOWDANCER)~ THEN REPLY ~Keep Shadowdancer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSha","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),GelSupT)~ THEN REPLY ~Keep Combined Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSuperT","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSupR",LastTalkedToBy(Myself)))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),BOUNTYHUNTER)~ THEN REPLY ~Keep Bounty Hunter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBou","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),SWASHBUCKLER)~ THEN REPLY ~Keep Swashbuckler Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepSwa","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),TOTEMIC)~ THEN REPLY ~Keep Totemic Druid Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTot","LOCALS",1))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),SHAPESHIFTER)~ THEN REPLY ~Keep Shapeshifter Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepShp","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelShp1",LastTalkedToBy(Myself)))~ GOTO GelPickFighter
    IF ~Kit(LastTalkedToBy(Myself),BEASTFRIEND)~ THEN REPLY ~Keep Avenger Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepAve","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAveI",LastTalkedToBy(Myself)))~ GOTO GelPickFighter
    IF ~~ THEN REPLY ~No, i want unkitted first class~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepOrg","LOCALS",1))~ GOTO GelPickFighter
  END

IF ~~ THEN BEGIN GelPickFighter
  SAY ~Choose your Fighter kit~
    IF ~~ THEN REPLY ~Kensai~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("KENSAI"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Dwarven Defender~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("DWARVEN_DEFENDER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Berserker~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("BERSERKER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Wizard Slayer~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("WIZARDSLAYER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Barbarian~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("BARBARIAN"))~ GOTO GelApplied
//    IF ~~ THEN REPLY ~Never mind.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

///////////////////////DUAL TO RANGER////////////////////////////////
IF ~Class(LastTalkedToBy(Myself),RANGER)~ THEN BEGIN GelStartRanger
  SAY ~Do you want to change your Ranger Kit?~
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
    IF ~OriginalClass(LastTalkedToBy(Myself),CLERIC)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelRangerFirstKit
END

IF ~~ THEN BEGIN GelRangerFirstKit
  SAY ~Do you also want to keep your first class kit bonuses, restrictions and abilities?~
    IF ~Kit(LastTalkedToBy(Myself),GODTALOS)~ THEN REPLY ~Keep Talos Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTal","LOCALS",1))~ GOTO GelPickRanger
    IF ~Kit(LastTalkedToBy(Myself),GODLATHANDER)~ THEN REPLY ~Keep Lathander Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepLat","LOCALS",1))~ GOTO GelPickRanger
    IF ~Kit(LastTalkedToBy(Myself),GODHELM)~ THEN REPLY ~Keep Helm Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepHel","LOCALS",1))~ GOTO GelPickRanger
    IF ~Kit(LastTalkedToBy(Myself),OHTEMPUS)~ THEN REPLY ~Keep Tempus Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTem","LOCALS",1))~ GOTO GelPickRanger
    IF ~Kit(LastTalkedToBy(Myself),OHTYR)~ THEN REPLY ~Keep Tyr Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepTyr","LOCALS",1))~ GOTO GelPickRanger
    IF ~~ THEN REPLY ~No, i want unkitted first class~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepOrg","LOCALS",1))~ GOTO GelPickRanger
END

IF ~~ THEN BEGIN GelPickRanger
  SAY ~Choose your Ranger kit~
    IF ~~ THEN REPLY ~Stalker~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("STALKER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~I want the new Slinging Beastmaster~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GelSliD"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~I want the new Woodclan Ninja~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GelNinj"))~ GOTO GelApplied
//    IF ~~ THEN REPLY ~Never mind.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelTDia_Init","LOCALS",3))~ EXIT
END

//////////////////////////DUAL TO DRUID///////////////////////////////////
IF ~Class(LastTalkedToBy(Myself),DRUID) !Class(LastTalkedToBy(Myself),SHAMAN)~ THEN BEGIN GelStartDruid
  SAY ~Do you want to change your Druid Kit?~
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
    IF ~OriginalClass(LastTalkedToBy(Myself),FIGHTER)~ THEN REPLY ~Yes, but what about my first class kit?~ GOTO GelDruidFirstKit
    IF ~~ THEN REPLY ~Yes.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepOrg","LOCALS",1))~ GOTO GelPickDruid
//    IF ~~ THEN REPLY ~Im actually a SHAMAN!~ GOTO Shaman 
END

IF ~~ THEN BEGIN GelDruidFirstKit
  SAY ~Do you also want to keep your first class kit bonuses, restrictions and abilities?~
    IF ~Kit(LastTalkedToBy(Myself),KENSAI)~ THEN REPLY ~Keep Kensai Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepKen","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKenI",LastTalkedToBy(Myself)))~ GOTO GelPickDruid
    IF ~Kit(LastTalkedToBy(Myself),DWARVEN_DEFENDER)~ THEN REPLY ~Keep Dwarven Defender Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepDwD","LOCALS",1))~ GOTO GelPickDruid
    IF ~Kit(LastTalkedToBy(Myself),BERSERKER)~ THEN REPLY ~Keep Berskerker Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBer","LOCALS",1))~ GOTO GelPickDruid
    IF ~Kit(LastTalkedToBy(Myself),WIZARDSLAYER)~ THEN REPLY ~Keep Wizard_Slayer Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepWiS","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWiSI",LastTalkedToBy(Myself)))~ GOTO GelPickDruid
    IF ~Kit(LastTalkedToBy(Myself),BARBARIAN)~ THEN REPLY ~Keep Barbarian Kit specifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepBar","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBarI",LastTalkedToBy(Myself)))~ GOTO GelPickDruid
    IF ~~ THEN REPLY ~No, i want unkitted first class~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelKeepOrg","LOCALS",1))~ GOTO GelPickDruid
END

IF ~~ THEN BEGIN GelPickDruid
  SAY ~Choose your Druid kit~
    IF ~~ THEN REPLY ~Totemic Druid~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("TOTEMIC"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Shapeshifter~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("SHAPESHIFTER"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Avenger~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("BEASTFRIEND"))~ GOTO GelApplied
    IF ~~ THEN REPLY ~Never mind.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

////////////////////////////MULTICLASS SECTION////////////////////////////////
IF ~Class(LastTalkedToBy(Myself),FIGHTER_MAGE_THIEF)~ THEN BEGIN GelFMT1
  SAY ~Do you want to change kits on your Fighter / Mage / Thief?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelFighterMulti","LOCALS",1) SetGlobal("GelMageMulti","LOCALS",1) SetGlobal("GelThiefMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),FIGHTER_MAGE_CLERIC)~ THEN BEGIN GelFMC1
  SAY ~Do you want to change kits on your Fighter / Mage / Cleric?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelFighterMulti","LOCALS",1) SetGlobal("GelMageMulti","LOCALS",1) SetGlobal("GelClericMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),FIGHTER_MAGE)~ THEN BEGIN GelFM1
  SAY ~Do you want to change kits on your Fighter / Mage?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelFighterMulti","LOCALS",1) SetGlobal("GelMageMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),FIGHTER_THIEF)~ THEN BEGIN GelFT1
  SAY ~Do you want to change kits on your Fighter / Thief?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelFighterMulti","LOCALS",1) SetGlobal("GelThiefMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),FIGHTER_CLERIC)~ THEN BEGIN GelFC1
  SAY ~Do you want to change kits on your Fighter / Cleric?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelFighterMulti","LOCALS",1) SetGlobal("GelClericMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),FIGHTER_DRUID)~ THEN BEGIN GelFD1
  SAY ~Do you want to change kits on your Fighter / Druid?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelFighterMulti","LOCALS",1) SetGlobal("GelDruidMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),MAGE_THIEF)~ THEN BEGIN GelMT1
  SAY ~Do you want to change kits on your Mage / Thief?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelMageMulti","LOCALS",1) SetGlobal("GelThiefMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),CLERIC_MAGE)~ THEN BEGIN GelCM1
  SAY ~Do you want to change kits on your Cleric / Mage?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelMageMulti","LOCALS",1) SetGlobal("GelClericMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),CLERIC_THIEF)~ THEN BEGIN GelCT1
  SAY ~Do you want to change kits on your Cleric / Thief?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelClericMulti","LOCALS",1) SetGlobal("GelThiefMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~Class(LastTalkedToBy(Myself),CLERIC_RANGER)~ THEN BEGIN GelCR1
  SAY ~Do you want to change kits on your Cleric / Ranger?~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelClericMulti","LOCALS",1) SetGlobal("GelRangerMulti","LOCALS",1)~ GOTO GelNextMulti_Delay
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT
END

IF ~~ THEN BEGIN GelNextMulti_Delay
  SAY ~Rederecting to kit chooser~
    IF ~~ THEN REPLY ~Ok.~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelNextMulti
  SAY ~Class Found Pick Kits~
    IF ~Global("GelFighterMulti","LOCALS",1)~ THEN REPLY ~Choose Fighter Kit~ DO ~SetGlobal("GelFighterMulti","LOCALS",2)~ GOTO GelFighterMulti
    IF ~Global("GelMageMulti","LOCALS",1)~ THEN REPLY ~Choose Mage Kit~ DO ~SetGlobal("GelMageMulti","LOCALS",2)~ GOTO GelMageMulti
    IF ~Global("GelThiefMulti","LOCALS",1)~ THEN REPLY ~Choose Thief Kit~ DO ~SetGlobal("GelThiefMulti","LOCALS",2)~ GOTO GelThiefMulti
    IF ~Global("GelClericMulti","LOCALS",1)~ THEN REPLY ~Choose Cleric Kit~ DO ~SetGlobal("GelClericMulti","LOCALS",2)~ GOTO GelClericMulti
    IF ~Global("GelRangerMulti","LOCALS",1)~ THEN REPLY ~Choose Ranger Kit~ DO ~SetGlobal("GelRangerMulti","LOCALS",2)~ GOTO GelRangerMulti
    IF ~Global("GelDruidMulti","LOCALS",1)~ THEN REPLY ~Choose Druid Kit~ DO ~SetGlobal("GelDruidMulti","LOCALS",2)~ GOTO GelDruidMulti
    IF ~Global("GelMageMulti","LOCALS",1) Global("GelThiefMulti","LOCALS",1) GlobalLT("GelTMC","LOCALS",1) !Global("GelFighterMulti","LOCALS",1)~ THEN REPLY ~I want to become a Thief / Mage / Cleric class~ DO ~SetGlobal("GelTMC","LOCALS",1)~ GOTO GelTMC
    IF ~Global("GelMageMulti","LOCALS",1) Global("GelThiefMulti","LOCALS",1) GlobalLT("GelFMTC","LOCALS",1) Global("GelFighterMulti","LOCALS",1)~ THEN REPLY ~I want to become a Fighter / Thief / Mage / Cleric class~ DO ~SetGlobal("GelFMTC","LOCALS",1)~ GOTO GelFMTC
    IF ~~ THEN REPLY ~Im done.~ GOTO GelChooseXPNerf
END

IF ~~ THEN BEGIN GelFighterMulti
  SAY ~Which fighter kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Kensai~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiKen","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Barbarian~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiBar","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Berserker~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiBer","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Dwarven Defender~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiDwD","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Wizard Slayer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiWiS","LOCALS",1))~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelMageMulti
  SAY ~Which mage kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Abjurer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiAbj","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Conjurer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiCon","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Deviner~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiDev","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Enchanter~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiEnc","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Illusionist~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiIll","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Invoker~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiInv","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Necromancer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiNec","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Transmuter~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTra","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~SuperKit, with no restrictions and 1 extra spellcast~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSup","LOCALS",1))~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelThiefMulti
  SAY ~Which Thief kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Assassin~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiAss","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Bounty Hunter~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiBou","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Swashbuckler~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSwa","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Shadowdancer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSha","LOCALS",1))~ GOTO GelMultiSuperThief
    IF ~~ THEN REPLY ~I want all Thief kits combined~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelSuperThief","LOCALS",1))~ GOTO GelMultiSuperThief
END

IF ~~ THEN BEGIN GelMultiSuperThief
  SAY ~Do you also want to add kit specific HLA abilities on certain high levels?~
    IF ~~ THEN REPLY ~No.~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Yes.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelThiefHLA","LOCALS",1))~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelClericMulti
  SAY ~Which Cleric kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Talos~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTal","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Helm~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiHel","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Lathander~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiLat","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Tempus~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTemp","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Tyr~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTyr","LOCALS",1))~ GOTO GelNextMulti
    IF ~Class(LastTalkedToBy(Myself),CLERIC_ALL) GlobalLT("GelDruidSpellsAddDevine","LOCALS",1)~ THEN REPLY ~I want to add all druidic spells as well(Suggested XP nerf is 10-20%)~ DO ~SetGlobal("GelDruidSpellsAddDevine","LOCALS",1)~ GOTO GelDruidSpellsAddDevine
END

IF ~~ THEN BEGIN GelDruidMulti
  SAY ~Which Druid kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Totemic Druid~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTot","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Shapeshifter~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiShp","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Avenger~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiAve","LOCALS",1))~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelRangerMulti
  SAY ~Which Ranger kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Stalker~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSta","LOCALS",1))~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~Slinging Beastmaster~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSli","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GelSlin"))~ GOTO GelNextMulti
    IF ~Class(LastTalkedToBy(Myself),RANGER)~ THEN REPLY ~Woodclan Ninja(Backstab bonus not included, pick scaled package in Backstab menu in Potion of Customization)~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelNinjPackage1","LOCALS",1))~ GOTO GelNextMulti
//IF ~~ THEN REPLY ~Beast Master~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiBea","LOCALS",1))~ GOTO GelNextMulti
//IF ~~ THEN REPLY ~Archer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiArc","LOCALS",1))~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelTMC
  SAY ~You have chosen TMC kit. Suggested XP Nerf is 34%. You will only be able to wield Thief/Mage items, but may not set profience in other than CLUB, SLING, QUARTERSTAFF, MACE, WAR HAMMER &  FLAIL/MORNINGSTAR. The cleric wepons will not be availeble for use before you gain Use Any Item HLA, all "pointy wepons" such as bow, swords, knives, crossbows will have no profiency. So plan accordingly. Your cleric spells will be written into the mage spellbook, and cast slots will be increased. Wisdom will give bonuses as well.~
    IF ~~ THEN REPLY ~Thanks.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelTMCClericOnly","LOCALS",1)) SetGlobal("GelClericMulti","LOCALS",1)~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~I want to add all druidic spells as well(Suggested XP nerf is now 40-50%)~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelTMCClericOnly","LOCALS",1)) SetGlobal("GelClericMulti","LOCALS",1)~ GOTO GelDruidSpellsAddArcane
    IF ~~ THEN REPLY ~I don't want this.~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelFMTC
  SAY ~You have chosen FMTC kit. Suggested XP Nerf is 25%. You will only be able to wield Fighter/Thief/Mage items, but may not set profience in other than CLUB, SLING, QUARTERSTAFF, MACE, WAR HAMMER &  FLAIL/MORNINGSTAR. The cleric wepons will not be availeble for use before you gain Use Any Item HLA, all "pointy wepons" such as bow, swords, knives, crossbows will have no profiency. So plan accordingly. Your cleric spells will be written into the mage spellbook, and cast slots will be increased. Wisdom will give bonuses as well. Profience points can be put into fighting styles to waste points if filled, they scale to 5, but bonuses are only scaled to 2 or 3 for two-wepon style.~
    IF ~~ THEN REPLY ~Thanks.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelTMCClericOnly","LOCALS",1)) SetGlobal("GelClericMulti","LOCALS",1)~ GOTO GelNextMulti
    IF ~~ THEN REPLY ~I want to add all druidic spells as well(Suggested XP nerf is now 30-40%)~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelTMCClericOnly","LOCALS",1)) SetGlobal("GelClericMulti","LOCALS",1)~ GOTO GelDruidSpellsAddArcane
    IF ~~ THEN REPLY ~I don't want this.~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelDruidSpellsAddArcane
  SAY ~You got one choice.~
    IF ~~ THEN REPLY ~Add Druid Spells to magebook~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelDruidSpellsAddAV","LOCALS",1))~ GOTO GelNextMulti
//    IF ~~ THEN REPLY ~Icewindifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelDruidSpellsAddAI","LOCALS",1))~ GOTO GelNextMulti
//    IF ~~ THEN REPLY ~SCS without Icewindifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelDruidSpellsAddAS","LOCALS",1))~ GOTO GelNextMulti
END

IF ~~ THEN BEGIN GelDruidSpellsAddDevine
  SAY ~You got one choice.~
  IF ~~ THEN REPLY ~Add Druid Spells to devine spellbook~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelDruidSpellsAddDV","LOCALS",1))~ GOTO GelClericMulti
//  IF ~~ THEN REPLY ~Icewindifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelDruidSpellsAddDI","LOCALS",1))~ GOTO GelClericMulti
//  IF ~~ THEN REPLY ~SCS without Icewindifications~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelDruidSpellsAddDS","LOCALS",1))~ GOTO GelClericMulti
END

//////////// MONK, Paladin Bard //////////

IF ~Class(LastTalkedToBy(Myself),MONK)~ THEN BEGIN GelMonk
  SAY ~Do you want to change kit on your monk?~
    IF ~~ THEN REPLY ~Yes.~ GOTO GelMonkKitPick
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
END 

IF ~~ THEN BEGIN GelMonkKitPick
  SAY ~Which kit do you want?~
    IF ~~ THEN REPLY ~Dark Moon~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("DARK_MOON"))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~Sun Soul~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("SUN_SOUL"))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~I want all monk kits combined~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelSupMonk","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),AddSuperKit("DARK_MOON"))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~I want no kitchange, but to alter other stuff~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~Nevermind.~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT // Destroys self
END

IF ~~ THEN BEGIN GelMonkChoice
  SAY ~Do you want any more features for your monk?~
    IF ~GlobalLT("GelMoPhyRes","LOCALS",1)~ THEN REPLY ~I want to add some physical res~ DO ~SetGlobal("GelMoPhyRes","LOCALS",1)~ GOTO GelMonkPhysicalRes
    IF ~GlobalLT("GelMoCrit","LOCALS",1)~ THEN REPLY ~I want protection from critical hits~ DO ~SetGlobal("GelMoCrit","LOCALS",1)~ GOTO GelMoCrit
    IF ~GlobalLT("GelMoAttributes","LOCALS",1)~ THEN REPLY ~I want some bonus attributes~ DO ~SetGlobal("GelMoAttributes","LOCALS",1)~ GOTO GelMoAttributes
    IF ~~ THEN REPLY ~I'm done, go to other choice section~ GOTO GelChooseXPNerf
END

IF ~~ THEN BEGIN GelMonkPhysicalRes
  SAY ~Choose physical resists value.~
    IF ~~ THEN REPLY ~I want 5% scaled level 1, 5, 10, 15 and 20.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMoScRes","LOCALS",1))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~I want 5%~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMo5Res","LOCALS",1))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~I want 10%~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMo10Res","LOCALS",1))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~I want 15%~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMo15Res","LOCALS",1))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~I want 20%~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMo20Res","LOCALS",1))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~I don't want this feature~ GOTO GelMonkChoice
END

IF ~~ THEN BEGIN GelMoCrit
  SAY ~Critical hit protection enabled~
    IF ~~ THEN REPLY ~Thanks.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMoCritEnabled","LOCALS",1))~ GOTO GelMonkChoice
END

IF ~~ THEN BEGIN GelMoAttributes
  SAY ~Choose attribute values.~
    IF ~~ THEN REPLY ~1 bonus to Strength, dexterity and constitution~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelAttBonus1","LOCALS",1))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~2 bonus to Strength, dexterity and constitution~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelAttBonus2","LOCALS",1))~ GOTO GelMonkChoice
    IF ~~ THEN REPLY ~I don't want attribute bonuses after all..~ GOTO GelMonkChoice
END

IF ~Class(LastTalkedToBy(Myself),BARD)~ THEN BEGIN GelBard
  SAY ~Do you want to change kit on your Bard?~
    IF ~~ THEN REPLY ~Yes.~ GOTO GelBardKitPick
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
END 

IF ~~ THEN BEGIN GelBardKitPick
  SAY ~Which kit do you want?~
    IF ~~ THEN REPLY ~Blade~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("BLADE"))~ GOTO GelBardDone
    IF ~~ THEN REPLY ~Jester~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("JESTER"))~ GOTO GelBardDone
    IF ~~ THEN REPLY ~Skald~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("SKALD"))~ GOTO GelBardDone
    IF ~~ THEN REPLY ~Nevermind.~ GOTO GelApplied
END

IF ~~ THEN BEGIN GelBardDone
  SAY ~Your Bard kit is done~
    IF ~~ THEN REPLY ~Thanks~ GOTO GelApplied
END

IF ~Class(LastTalkedToBy(Myself),PALADIN)~ THEN BEGIN GelPaladin
  SAY ~Do you want to change kit on your Paladin?~
    IF ~~ THEN REPLY ~Yes.~ GOTO GelPaladinKitPick
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
END 

IF ~~ THEN BEGIN GelPaladinKitPick
  SAY ~Which kit do you want?~
    IF ~~ THEN REPLY ~Cavalier~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("CAVALIER"))~ GOTO GelPaladinDone
    IF ~~ THEN REPLY ~Inquisitor~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("INQUISITOR"))~ GOTO GelPaladinDone
    IF ~~ THEN REPLY ~Undead Hunter~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("UNDEADHUNTER"))~ GOTO GelPaladinDone
    IF ~~ THEN REPLY ~Blackguard~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("Blackguard"))~ GOTO GelPaladinDone
    IF ~~ THEN REPLY ~Nevermind.~ GOTO GelApplied
END

IF ~~ THEN BEGIN GelPaladinDone
  SAY ~Your Paladin kit is done~
    IF ~~ THEN REPLY ~Thanks~ GOTO GelApplied
END

IF ~Class(LastTalkedToBy(Myself),SORCERER)~ THEN BEGIN GelSorcerer
  SAY ~Do you want to change kit on your Sorcerer?~
    IF ~~ THEN REPLY ~Yes.~ GOTO GelSorcererKitPick
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
END 

IF ~~ THEN BEGIN GelSorcererKitPick
  SAY ~Which kit do you want?~
    IF ~~ THEN REPLY ~Dragon Disciple~ DO ~ActionOverride(LastTalkedToBy(Myself),AddSuperKit("DRAGON_DISCIPLE"))~ GOTO GelSorcererDone
    IF ~~ THEN REPLY ~Nevermind.~ GOTO GelApplied
END

IF ~~ THEN BEGIN GelSorcererDone
  SAY ~Your Sorcerer kit is done~
    IF ~~ THEN REPLY ~Thanks~ GOTO GelApplied
END

IF ~Class(LastTalkedToBy(Myself),SHAMAN)~ THEN BEGIN Shaman
  SAY ~So you want do to some changes to your shaman?~
    IF ~~ THEN REPLY ~Yes.~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~No.~ GOTO GelApplied
END

IF ~~ THEN BEGIN GelShamanChoice
  SAY ~Which paramater do you want to change?~
    IF ~GlobalLT("GelShaDance","LOCALS",1)~ THEN REPLY ~Change Shaman Dance~ DO ~SetGlobal("GelShaDance","LOCALS",1)~ GOTO GelShamanDancePick
    IF ~GlobalLT("GelShaBar","LOCALS",1) Kit(LastTalkedToBy(Myself),"GelShBa")~ THEN REPLY ~Im ready to set up my profience sysetm.~ DO ~SetGlobal("GelShaBar","LOCALS",1)~ GOTO GelShamanBarbarian
    IF ~GlobalLT("GelShaCast","LOCALS",1)~ THEN REPLY ~Modify Shaman Spellcast~ DO ~SetGlobal("GelShaCast","LOCALS",1)~ GOTO GelShamanCastPick
    IF ~GlobalLT("GelShaSpells","LOCALS",1)~ THEN REPLY ~Add some custom spells~ DO ~SetGlobal("GelShaSpells","LOCALS",1)~ GOTO GelShamanSpellsPick
    IF ~~ THEN REPLY ~I'm done~ GOTO GelChooseXPNerf
END

IF ~~ THEN BEGIN GelShamanDancePick
  SAY ~Choose dance feature:~
    IF ~~ THEN REPLY ~No change~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~Regular Shaman Dance, but with movement~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaDance1","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~Thunder Dance.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaDance2","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~Fire Dance.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaDance3","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~Invisibility~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaDance4","LOCALS",1))~ GOTO GelShamanChoice
END

IF ~~ THEN BEGIN GelShamanBarbarian
  SAY ~Do you want cap at 2 or 5 profience points?~
    IF ~~ THEN REPLY ~2~ GOTO GelShamanBarb2
    IF ~~ THEN REPLY ~5~ GOTO GelShamanBarb5
END

IF ~~ THEN BEGIN GelShamanBarb2
  SAY ~Your axe, club and bow category will be locked, you may put 3 points to dual weapon style, and 2 point to every other weapon and style that shaman can use. Axe, club and bow profience will be automaticly filled. 
CHOSE WHICH TO AUTO FOCUS ON FIRST:~
    IF ~~ THEN REPLY ~Axe, then Bow, then Club~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShBa2abc","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~Bow, then Axe, then Club~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShBa2bac","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~1 Bow, 1 Axe until 2, then Club~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShBa2bac1","LOCALS",1))~ GOTO GelShamanChoice
END

IF ~~ THEN BEGIN GelShamanBarb5
  SAY ~Your axe, club and bow category will be locked, you may put 3 points to dual weapon style, and 2 point to every other weapon and style that shaman can use. Axe, club and bow profience will be automaticly filled. 
CHOSE WHICH TO AUTO FOCUS ON FIRST:~
    IF ~~ THEN REPLY ~Axe, then Bow, then Club~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShBa5abc","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~Bow, then Axe, then Club~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShBa5bac","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~1Bow 1Axe balanced until 5, then Club~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShBa5bac1","LOCALS",1))~ GOTO GelShamanChoice
END

IF ~~ THEN BEGIN GelShamanCastPick
  SAY ~Choose features:~
    IF ~~ THEN REPLY ~1 faster cast speed~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaCast1","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~2 faster cast speed~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaCast2","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~1 faster cast speed, 1 more spell casts~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaCast3","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~2 faster cast speed, 1 more spell cast~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaCast4","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~No change~ GOTO GelShamanChoice
END

IF ~~ THEN BEGIN GelShamanSpellsPick
  SAY ~This will add these spells:
- Level 1: Poison Spike (New spell)
- Level 2: Draw Upon Holy Might and Hold person.
- Level 3: Tornado (New spell)
- Level 5: Custom Insect spell(slot saving)
- Level 7: Custom Creeping Doom and Nature Peace(Slot saving)~
    IF ~~ THEN REPLY ~I want it.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaSpells","LOCALS",1))~ GOTO GelShamanChoice
    IF ~~ THEN REPLY ~I don't want it.~ GOTO GelShamanChoice
END

IF ~~ THEN BEGIN GelChooseXPNerf
  SAY ~Choose your experience gained % penalty, theese will overwrite eachothers if previous chosen~
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~0%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp0","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~10%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp10","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~20%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp20","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~30%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp30","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~34%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp34","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~40%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp40","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~50%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp50","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~60%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp60","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~66%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp66","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~70%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp70","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelPotChosen","LOCALS",1)~ THEN REPLY ~I want a Potion which allows further customisation(Buff/Nerfs)~ DO ~SetGlobal("GelPotChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelPot1","LOCALS",1))~ GOTO GelPotionOfChoices1
    IF ~GlobalLT("GelHideChosen","LOCALS",1) 
OR(3)
  Class(LastTalkedToBy(Myself),MONK)
  Class(LastTalkedToBy(Myself),RANGER_ALL)
  Class(LastTalkedToBy(Myself),THIEF_ALL)~ THEN REPLY ~I want to subtract hide in shadow% per level to compensate for kit~ DO ~SetGlobal("GelHideChosen","LOCALS",1)~ GOTO GelThieveryNerf
    IF ~~ THEN REPLY ~I'm done~ GOTO GelAnyDone
END

IF ~~ THEN BEGIN GelXpChosenConfirmed
  SAY ~XP% gained ammount chosen.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelChooseXPNerf
END

IF ~~ THEN BEGIN GelPotionOfChoices1
  SAY ~Potion of Customization added to inventory.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelChooseXPNerf
END

IF ~~ THEN BEGIN GelThieveryNerf
  SAY ~Chose how much hide in shadows are going to be subtracted each level. Note that you have to compensate for this when putting points on level up, be extra carefull if ur thief class is locked at a certain level.~
    IF ~~ THEN REPLY ~-0% to hide in shadows each level~ GOTO GelChooseXPNerf
    IF ~~ THEN REPLY ~-5% to hide in shadows each level~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelHide5","LOCALS",1))~ GOTO GelChooseXPNerf
    IF ~~ THEN REPLY ~-10% to hide in shadows each level~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelHide10","LOCALS",1))~ GOTO GelChooseXPNerf
END

IF ~~ THEN BEGIN GelAnyDone
  SAY ~Your kit overlay/change and custom modifications are done~
    IF ~~ THEN REPLY ~Thanks~ DO ~SetGlobal("GelTDia_Init","LOCALS",3)~ EXIT // Destroys self
END

///// ===== GelTDia.D ==== /////
BEGIN ~GelTDia~ 
///////////////////////////First Block of choices////////////////////////////////////////// 
IF ~True()~ THEN BEGIN GelPotionOfChoices 
  SAY ~Here are some further nerfs or buffs you can choose. Be wise, i tried to restrict unrelevant choices, but want you to be free. Adding the same kit overlay you already have will give bonuses from lvl 1 to current level again. All effects are permanent. Potion name is GelPot1 incase you need to clua more.~ 
    IF ~~ THEN REPLY ~I want another Potion of Customization for later use.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelPot1","LOCALS",1))~ GOTO GelTDia_AnotherPotion 
    IF ~GlobalLT("GelBackstabPot","LOCALS",1)~ THEN REPLY ~I would like to adjust Backstab Bonus~ DO ~SetGlobal("GelBackstabPot","LOCALS",1)~ GOTO GelTDia_Backstab 
    IF ~OR(4)
Class(LastTalkedToBy(Myself),RANGER_ALL) 
Class(LastTalkedToBy(Myself),THIEF_ALL) 
Class(LastTalkedToBy(Myself),MONK) 
Class(LastTalkedToBy(Myself),SHAMAN) 
GlobalLT("GelThieveryPot","LOCALS",1)~ THEN REPLY ~I would like to adjust Stealth/Thievery Stats~ DO ~SetGlobal("GelThieveryPot","LOCALS",1)~ GOTO GelTDia_Thievery 
    IF ~GlobalLT("GelAdjustSpellCast","LOCALS",1)~ THEN REPLY ~I want to adjust spellcasting.~ DO ~SetGlobal("GelAdjustSpellCast","LOCALS",1)~ GOTO GelTDia_SpellCasting 
    IF ~GlobalLT("GelKitPot","LOCALS",1)~ THEN REPLY ~I want to add more kit overlays.~ DO ~SetGlobal("GelKitPot","LOCALS",1)~ GOTO GelTDia_KitOverlays
    IF ~GlobalLT("GelAttPot","LOCALS",1)~ THEN REPLY ~I want to modify my attributes.~ DO ~SetGlobal("GelAttPot","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~GlobalLT("GelRestrictPot","LOCALS",1)~ THEN REPLY ~I want to Restric items.(specified)~ DO ~SetGlobal("GelRestrictPot","LOCALS",1)~ GOTO GelTDia_Restrictions
    IF ~GlobalLT("GelAbilityPot","LOCALS",1)~ THEN REPLY ~I want to add ability package as innate.(specified)~ DO ~SetGlobal("GelAbilityPot","LOCALS",1)~ GOTO GelTDia_AbilityPackage
    IF ~GlobalLT("GelArcaneSpellPot","LOCALS",1) 
OR(3)
Class(LastTalkedToBy(Myself),MAGE_ALL)
Class(LastTalkedToBy(Myself),BARD)
Class(LastTalkedToBy(Myself),SORCERER)~ THEN REPLY ~I want to add arcane spells.(specified)~ DO ~SetGlobal("GelArcaneSpellPot","LOCALS",1)~ GOTO GelTDia_ArcanePackage
    IF ~GlobalLT("GelThacoDamageAcAspeedPot","LOCALS",1)~ THEN REPLY ~I want to modify Thaco, Damage, AC, attacks per round or attackspeed.~ DO ~SetGlobal("GelThacoDamageAcAspeedPot","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~GlobalLT("GelProfienceSetPot","LOCALS",1)~ THEN REPLY ~I want to set certain profiency to certain value~ DO ~SetGlobal("GelProfienceSetPot","LOCALS",1)~ GOTO GelTDia_Profiency
    IF ~GlobalLT("GelResPot","LOCALS",1)~ THEN REPLY ~I want to modify Resistances~ DO ~SetGlobal("GelResPot","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~GlobalLT("GelImmunePot","LOCALS",1)~ THEN REPLY ~I want to add a immunity feature~ DO ~SetGlobal("GelImmunePot","LOCALS",1)~ GOTO GelTDia_Immunities
    IF ~GlobalLT("GelMovementPot","LOCALS",1)~ THEN REPLY ~I want to modify movementspeed.~ DO ~SetGlobal("GelMovementPot","LOCALS",1)~ GOTO GelTDia_Movement
    IF ~GlobalLT("GelGodModePot","LOCALS",1)~ THEN REPLY ~I want permanent Use Any Items or improved alacricity~ DO ~SetGlobal("GelGodModePot","LOCALS",1)~ GOTO GelTDia_Godmode
    IF ~GlobalLT("GelSavingPot","LOCALS",1)~ THEN REPLY ~I want alter saving throws~ DO ~SetGlobal("GelSavingPot","LOCALS",1)~ GOTO GelTDia_SavingThrows
    IF ~GlobalLT("GelLuckChoice","LOCALS",1)~ THEN REPLY ~I want to modify my luck~ DO ~SetGlobal("GelLuckChoice","LOCALS",1)~ GOTO GelLuckChoice
    IF ~GlobalLT("GelLoreChoice","LOCALS",1)~ THEN REPLY ~I want to modify my lore score~ DO ~ SetGlobal("GelLoreChoice","LOCALS",1)~ GOTO GelLoreChoice
    IF ~GlobalLT("GelXPNerf","LOCALS",1)~ THEN REPLY ~I want alter experience gained.~ DO ~SetGlobal("GelXPNerf","LOCALS",1)~ GOTO GelTDia_XPNerf
    IF ~~ THEN REPLY ~Im done with all my choices~ DO ~SetGlobal("GelTDia_Done","LOCALS",1)~ EXIT 
END

IF ~~ THEN BEGIN GelTDia_AnotherPotion
  SAY ~Another Potion of Customization is in your inventory~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelTDia_Backstab
  SAY ~Chose your backstab bonus. This will give a negative or positive bonus. It will work on all rangers as well. If you want to backstab with a none backstab able wepon type you can choose that in the weidu installer.~
    IF ~~ THEN REPLY ~-3 to backstab bonus(nerf)~ DO ~SetGlobal("GelBackstabNeg3","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-2 to backstab bonus(nerf)~ DO ~SetGlobal("GelBackstabNeg2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-1 to backstab bonus(nerf)~ DO ~SetGlobal("GelBackstabNeg1","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+1 to backstab bonus(buff)~ DO ~SetGlobal("GelBackstabPos1","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+2 to backstab bonus(buff)~ DO ~SetGlobal("GelBackstabPos2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+3 to backstab bonus(buff)~ DO ~SetGlobal("GelBackstabPos3","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~Scaled +1 at level 1, 9 & 17(buff)~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelBackstabScaled","LOCALS",1))~ GOTO GelPotionOfChoices
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices made.~ DO ~SetGlobal("GelBackstabReset","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelTDia_Thievery
  SAY ~Choose Category, nerfs and buffs are availeble. Only relevant categories will be availeble.~
    IF ~Class(LastTalkedToBy(Myself),THIEF_ALL) GlobalLT("OpenLocksPicked","LOCALS",1)~ THEN REPLY ~Open Locks~ DO ~SetGlobal("OpenLocksPicked","LOCALS",1)~ GOTO GelOpenLocks
    IF ~OR(2)
Class(LastTalkedToBy(Myself),THIEF_ALL) 
Class(LastTalkedToBy(Myself),MONK) 
GlobalLT("FindTrapsPicked","LOCALS",1)~ THEN REPLY ~Find Traps~ DO ~SetGlobal("FindTrapsPicked","LOCALS",1)~ GOTO GelFindTraps
    IF ~OR(2)
Class(LastTalkedToBy(Myself),THIEF_ALL) 
Class(LastTalkedToBy(Myself),BARD) 
GlobalLT("PickPocketPicked","LOCALS",1)~ THEN REPLY ~Pick Pocket~ DO ~SetGlobal("PickPocketPicked","LOCALS",1)~ GOTO GelPickPocket
    IF ~OR(3)
Class(LastTalkedToBy(Myself),THIEF_ALL) 
Class(LastTalkedToBy(Myself),MONK) 
Class(LastTalkedToBy(Myself),SHAMAN) 
GlobalLT("DetectIllusionPicked","LOCALS",1)~ THEN REPLY ~Detect Illusion~ DO ~SetGlobal("DetectIllusionPicked","LOCALS",1)~ GOTO GelIllusion
    IF ~Class(LastTalkedToBy(Myself),THIEF_ALL) GlobalLT("SetTrapsPicked","LOCALS",1) !Kit(LastTalkedToBy(Myself),"SHADOWDANCER")~ THEN REPLY ~Set Traps~ DO ~SetGlobal("SetTrapsPicked","LOCALS",1)~ GOTO GelSetTraps
    IF ~OR(3)
Class(LastTalkedToBy(Myself),THIEF_ALL) 
Class(LastTalkedToBy(Myself),MONK) 
Class(LastTalkedToBy(Myself),RANGER_ALL) 
GlobalLT("StealthPicked","LOCALS",1)~ THEN REPLY ~Stealth(Hide in shadows and move silent)~ DO ~SetGlobal("StealthPicked","LOCALS",1)~ GOTO GelStealth
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelStealth
  SAY ~Chose your stealh bonus. This will give a negative or positive bonus. Points will be given to both Hide in Shadows and Move Silent.~
    IF ~~ THEN REPLY ~-30% to stealth bonus(nerf)~ DO ~SetGlobal("GelStealthNeg30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-20% to stealth bonus(nerf)~ DO ~SetGlobal("GelStealthNeg20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-10% to stealth bonus(nerf)~ DO ~SetGlobal("GelStealthNeg10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+10% to stealth bonus(buff)~ DO ~SetGlobal("GelStealthPos10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+20% to stealth bonus(buff)~ DO ~SetGlobal("GelStealthPos20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+30% to stealth bonus(buff)~ DO ~SetGlobal("GelStealthPos30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+40% to stealth bonus(buff)~ DO ~SetGlobal("GelStealthPos40","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+50% to stealth bonus(buff)~ DO ~SetGlobal("GelStealthPos50","LOCALS",1)~ GOTO GelTDia_Thievery
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelStealthReset","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Thievery
END

IF ~~ THEN BEGIN GelFindTraps
  SAY ~Chose your Find Traps bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-30% to find traps(nerf)~ DO ~SetGlobal("GelFindTrapsNeg30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-20% to find traps(nerf)~ DO ~SetGlobal("GelFindTrapsNeg20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-10% to find traps(nerf)~ DO ~SetGlobal("GelFindTrapsNeg10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+10% to find traps(buff)~ DO ~SetGlobal("GelFindTrapsPos10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+20% to find traps(buff)~ DO ~SetGlobal("GelFindTrapsPos20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+30% to find traps(buff)~ DO ~SetGlobal("GelFindTrapsPos30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+40% to find traps(buff)~ DO ~SetGlobal("GelFindTrapsPos40","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+50% to find traps(buff)~ DO ~SetGlobal("GelFindTrapsPos50","LOCALS",1)~ GOTO GelTDia_Thievery
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelFindTrapsReset","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Thievery
END

IF ~~ THEN BEGIN GelPickPocket
  SAY ~Chose your Pick Pocket bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-30% to Pick Pocket(nerf)~ DO ~SetGlobal("GelPickPocketNeg30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-20% to Pick Pocket(nerf)~ DO ~SetGlobal("GelPickPocketNeg20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-10% to Pick Pocket(nerf)~ DO ~SetGlobal("GelPickPocketNeg10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+10% to Pick Pocket(buff)~ DO ~SetGlobal("GelPickPocketPos10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+20% to Pick Pocket(buff)~ DO ~SetGlobal("GelPickPocketPos20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+30% to Pick Pocket(buff)~ DO ~SetGlobal("GelPickPocketPos30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+40% to Pick Pocket(buff)~ DO ~SetGlobal("GelPickPocketPos40","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+50% to Pick Pocket(buff)~ DO ~SetGlobal("GelPickPocketPos50","LOCALS",1)~ GOTO GelTDia_Thievery
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelPickPocketReset","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Thievery
END

IF ~~ THEN BEGIN GelOpenLocks
  SAY ~Chose your Open Locks bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-30% to Open Locks bonus(nerf)~ DO ~SetGlobal("GelOpenLocksNeg30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-20% to Open Locks bonus(nerf)~ DO ~SetGlobal("GelOpenLocksNeg20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-10% to Open Locks bonus(nerf)~ DO ~SetGlobal("GelOpenLocksNeg10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+10% to Open Locks bonus(buff)~ DO ~SetGlobal("GelOpenLocksPos10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+20% to Open Locks bonus(buff)~ DO ~SetGlobal("GelOpenLocksPos20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+30% to Open Locks bonus(buff)~ DO ~SetGlobal("GelOpenLocksPos30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+40% to Open Locks bonus(buff)~ DO ~SetGlobal("GelOpenLocksPos40","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+50% to Open Locks bonus(buff)~ DO ~SetGlobal("GelOpenLocksPos50","LOCALS",1)~ GOTO GelTDia_Thievery
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelOpenLocksReset","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Thievery
END

IF ~~ THEN BEGIN GelIllusion
  SAY ~Chose your Detect Illusion bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-30% to Detect Illusion bonus(nerf)~ DO ~SetGlobal("GelDetectIllusionsNeg30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-20% to Detect Illusion bonus(nerf)~ DO ~SetGlobal("GelDetectIllusionsNeg20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-10% to Detect Illusion bonus(nerf)~ DO ~SetGlobal("GelDetectIllusionsNeg10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+10% to Detect Illusion bonus(buff)~ DO ~SetGlobal("GelDetectIllusionsPos10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+20% to Detect Illusion bonus(buff)~ DO ~SetGlobal("GelDetectIllusionsPos20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+30% to Detect Illusion bonus(buff)~ DO ~SetGlobal("GelDetectIllusionsPos30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+40% to Detect Illusion bonus(buff)~ DO ~SetGlobal("GelDetectIllusionsPos40","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+50% to Detect Illusion bonus(buff)~ DO ~SetGlobal("GelDetectIllusionsPos50","LOCALS",1)~ GOTO GelTDia_Thievery
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelDetectIllusionsReset","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Thievery
END

IF ~~ THEN BEGIN GelSetTraps
  SAY ~Chose your Set Traps bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-30% to Set Traps bonus(nerf)~ DO ~SetGlobal("GelSetTrapsNeg30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-20% to Set Traps bonus(nerf)~ DO ~SetGlobal("GelSetTrapsNeg20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~-10% to Set Traps bonus(nerf)~ DO ~SetGlobal("GelSetTrapsNeg10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+10% to Set Traps bonus(buff)~ DO ~SetGlobal("GelSetTrapsPos10","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+20% to Set Traps bonus(buff)~ DO ~SetGlobal("GelSetTrapsPos20","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+30% to Set Traps bonus(buff)~ DO ~SetGlobal("GelSetTrapsPos30","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+40% to Set Traps bonus(buff)~ DO ~SetGlobal("GelSetTrapsPos40","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~+50% to Set Traps bonus(buff)~ DO ~SetGlobal("GelSetTrapsPos50","LOCALS",1)~ GOTO GelTDia_Thievery
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelSetTrapsReset","LOCALS",1)~ GOTO GelTDia_Thievery
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Thievery
END

IF ~~ THEN BEGIN GelTDia_SpellCasting
  SAY ~Chose what you want to change. Different sections will have values to choose.~
    IF ~GlobalLT("GelCastingSpeed","LOCALS",1)~ THEN REPLY ~I want to alter casting speed~ DO ~SetGlobal("GelCastingSpeed","LOCALS",1)~ GOTO GelCastingSpeed
    IF ~GlobalLT("GelArcaneSpellSlots","LOCALS",1) OR(3) 
Class(LastTalkedToBy(Myself),MAGE_ALL)
Class(LastTalkedToBy(Myself),SORCERER)
Class(LastTalkedToBy(Myself),BARD)~ THEN REPLY ~I want to alter number of ARCANE spellslots/casts per rest~ DO ~SetGlobal("GelArcaneSpellSlots","LOCALS",1)~ GOTO GelArcaneCastingSlots
    IF ~GlobalLT("GelDevineSpellSlots","LOCALS",1) OR(5) 
Class(LastTalkedToBy(Myself),CLERIC_ALL)
Class(LastTalkedToBy(Myself),SHAMAN)
Class(LastTalkedToBy(Myself),DRUID)
Class(LastTalkedToBy(Myself),RANGER)
Class(LastTalkedToBy(Myself),PALADIN)~ THEN REPLY ~I want to alter number of DEVINE spellslots/casts per rest~ DO ~SetGlobal("GelDevineSpellSlots","LOCALS",1)~ GOTO GelDevineCastingSlots
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelCastingSpeed
  SAY ~Chose your Casting Speed bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-2 to Casting Speed bonus(nerf)~ DO ~SetGlobal("GelCastingSpeedNeg2","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~-1 to Casting Speed bonus(nerf)~ DO ~SetGlobal("GelCastingSpeedNeg1","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+1 to Casting Speed bonus(buff)~ DO ~SetGlobal("GelCastingSpeedPos1","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+2 to Casting Speed bonus(buff)~ DO ~SetGlobal("GelCastingSpeedPos2","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+3 to Casting Speed bonus(buff)~ DO ~SetGlobal("GelCastingSpeedPos3","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+4 to Casting Speed bonus(buff)~ DO ~SetGlobal("GelCastingSpeedPos4","LOCALS",1)~ GOTO GelTDia_SpellCasting
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelCastingSpeedReset","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_SpellCasting
END

IF ~~ THEN BEGIN GelArcaneCastingSlots
  SAY ~Chose your Arcane Casting Slots bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-1 to Arcane Casting Slots(nerf)~ DO ~SetGlobal("GelArcaneCastingSlotsNeg1","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+1 to Arcane Casting Slots(buff)~ DO ~SetGlobal("GelArcaneCastingSlotsPos1","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+2 to Arcane Casting Slots(buff)~ DO ~SetGlobal("GelArcaneCastingSlotsPos2","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+3 to Arcane Casting Slots(buff)~ DO ~SetGlobal("GelArcaneCastingSlotsPos3","LOCALS",1)~ GOTO GelTDia_SpellCasting
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelArcaneCastingSlotsReset","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_SpellCasting
END

IF ~~ THEN BEGIN GelDevineCastingSlots
  SAY ~Chose your Devine Casting Slots bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-1 to Devine Casting Slots(nerf)~ DO ~SetGlobal("GelDevineCastingSlotsNeg1","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+1 to Devine Casting Slots(buff)~ DO ~SetGlobal("GelDevineCastingSlotsPos1","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+2 to Devine Casting Slots(buff)~ DO ~SetGlobal("GelDevineCastingSlotsPos2","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~+3 to Devine Casting Slots(buff)~ DO ~SetGlobal("GelDevineCastingSlotsPos3","LOCALS",1)~ GOTO GelTDia_SpellCasting
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelDevineCastingSlotsReset","LOCALS",1)~ GOTO GelTDia_SpellCasting
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_SpellCasting
END

IF ~~ THEN BEGIN GelTDia_KitOverlays
  SAY ~Choose a extra kit overlay or more(only relevant classes will be availeble). Adding the same kit you already overlayed will give double bonuses from Lvl1 to Current level, then single bonuses. Theese does not alter your TRUE kit. Only for multiclass-able Classes.~
    IF ~GlobalLT("GelExtraFighterKits","LOCALS",1) Class(LastTalkedToBy(Myself),FIGHTER_ALL)~ THEN REPLY ~Fighter Kit Overlayed on top~ DO ~SetGlobal("GelExtraFighterKits","LOCALS",1)~ GOTO GelChooseExtraFighterKit
    IF ~GlobalLT("GelExtraThiefKits","LOCALS",1) Class(LastTalkedToBy(Myself),THIEF_ALL)~ THEN REPLY ~Thief Kit Overlayed on top~ DO ~SetGlobal("GelExtraThiefKits","LOCALS",1)~ GOTO GelChooseExtraThiefKit
    IF ~GlobalLT("GelExtraMageKits","LOCALS",1) Class(LastTalkedToBy(Myself),MAGE_ALL)~ THEN REPLY ~Mage Kit Overlayed on top~ DO ~SetGlobal("GelExtraMageKits","LOCALS",1)~ GOTO GelChooseExtraMageKit
    IF ~GlobalLT("GelExtraClericKits","LOCALS",1) Class(LastTalkedToBy(Myself),CLERIC_ALL)~ THEN REPLY ~Cleric Kit Overlayed on top~ DO ~SetGlobal("GelExtraClericKits","LOCALS",1)~ GOTO GelChooseExtraClericKit
    IF ~GlobalLT("GelExtraRangerKits","LOCALS",1) Class(LastTalkedToBy(Myself),RANGER_ALL)~ THEN REPLY ~Ranger Kit Overlayed on top~ DO ~SetGlobal("GelExtraRangerKits","LOCALS",1)~ GOTO GelChooseExtraRangerKit
    IF ~GlobalLT("GelExtraDruidKits","LOCALS",1) Class(LastTalkedToBy(Myself),DRUID_ALL)~ THEN REPLY ~Druid Kit Overlayed on top~ DO ~SetGlobal("GelExtraDruidKits","LOCALS",1)~ GOTO GelChooseExtraDruidKit
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelChooseExtraFighterKit
  SAY ~Which fighter kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Kensai~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiKen","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Barbarian~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiBar","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Berserker~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiBer","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Dwarven Defender~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiDwD","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Wizard Slayer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiWiS","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_KitOverlays
END

IF ~~ THEN BEGIN GelChooseExtraMageKit
  SAY ~Which mage kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Abjurer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiAbj","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Conjurer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiCon","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Deviner~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiDev","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Enchanter~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiEnc","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Illusionist~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiIll","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Invoker~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiInv","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Necromancer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiNec","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Transmuter~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTra","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~SuperKit, with no restrictions and 1 extra spellcast~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSup","LOCALS",1))~ GOTO GelTDia_KitOverlays
END

IF ~~ THEN BEGIN GelChooseExtraThiefKit
  SAY ~Which Thief kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Assassin~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiAss","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Bounty Hunter~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiBou","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Swashbuckler~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSwa","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Shadowdancer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSha","LOCALS",1))~ GOTO GelMultiSuperThief
    IF ~~ THEN REPLY ~I want all Thief kits combined~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelSuperThief","LOCALS",1))~ GOTO GelMultiSuperThief
END

IF ~~ THEN BEGIN GelMultiSuperThief
  SAY ~Do you also want to add kit specific HLA abilities on certain high levels?~
    IF ~~ THEN REPLY ~No.~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Yes.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelThiefHLA","LOCALS",1))~ GOTO GelTDia_KitOverlays
END

IF ~~ THEN BEGIN GelChooseExtraClericKit
  SAY ~Which Cleric kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Talos~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTal","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Helm~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiHel","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Lathander~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiLat","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Tempus~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTemp","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Tyr~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTyr","LOCALS",1))~ GOTO GelTDia_KitOverlays
END

IF ~~ THEN BEGIN GelChooseExtraDruidKit
  SAY ~Which Druid kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Totemic Druid~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiTot","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Shapeshifter~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSha","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Avenger~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiAve","LOCALS",1))~ GOTO GelTDia_KitOverlays
END

IF ~~ THEN BEGIN GelChooseExtraRangerKit
  SAY ~Which Ranger kit do you want?~
    IF ~~ THEN REPLY ~None~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Stalker~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSta","LOCALS",1))~ GOTO GelTDia_KitOverlays
    IF ~~ THEN REPLY ~Slinging Beastmaster~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiSli","LOCALS",1)) ActionOverride(LastTalkedToBy(Myself),AddSuperKit("GelSlin"))~ GOTO GelTDia_KitOverlays
//IF ~~ THEN REPLY ~Beast Master~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiBea","LOCALS",1))~ GOTO GelTDia_KitOverlays
//IF ~~ THEN REPLY ~Archer~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelMultiArc","LOCALS",1))~ GOTO GelTDia_KitOverlays
END

IF ~~ THEN BEGIN GelTDia_Attributes
  SAY ~Choose attribute type. Values are chosen in next step. You will be redirected here after picking a value.~
    IF ~GlobalLT("GelTDiaStr","LOCALS",1)~ THEN REPLY ~Strenght~ DO ~SetGlobal("GelTDiaStr","LOCALS",1)~ GOTO GelTDiaStr 
    IF ~GlobalLT("GelTDiaDex","LOCALS",1)~ THEN REPLY ~Dexterity~ DO ~SetGlobal("GelTDiaDex","LOCALS",1)~ GOTO GelTDiaDex 
    IF ~GlobalLT("GelTDiaCon","LOCALS",1)~ THEN REPLY ~Constitution~ DO ~SetGlobal("GelTDiaCon","LOCALS",1)~ GOTO GelTDiaCon 
    IF ~GlobalLT("GelTDiaInt","LOCALS",1)~ THEN REPLY ~Intelligence~ DO ~SetGlobal("GelTDiaInt","LOCALS",1)~ GOTO GelTDiaInt 
    IF ~GlobalLT("GelTDiaWis","LOCALS",1)~ THEN REPLY ~Wisdom~ DO ~SetGlobal("GelTDiaWis","LOCALS",1)~ GOTO GelTDiaWis
    IF ~GlobalLT("GelTDiaCha","LOCALS",1)~ THEN REPLY ~Charisma~ DO ~SetGlobal("GelTDiaCha","LOCALS",1)~ GOTO GelTDiaCha
    IF ~GlobalLT("GelTDiaAll","LOCALS",1)~ THEN REPLY ~All attributes~ DO ~SetGlobal("GelTDiaAll","LOCALS",1)~ GOTO GelTDiaAllAtt
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelTDiaStr
  SAY ~Chose your Strenght bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-2 to Strenght bonus(nerf)~ DO ~SetGlobal("GelStrenghtBonusNeg2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~-1 to Strenght bonus(nerf)~ DO ~SetGlobal("GelStrenghtBonusNeg1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+1 to Strenght bonus(buff)~ DO ~SetGlobal("GelStrenghtBonusPos1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+2 to Strenght bonus(buff)~ DO ~SetGlobal("GelStrenghtBonusPos2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+3 to Strenght bonus(buff)~ DO ~SetGlobal("GelStrenghtBonusPos3","LOCALS",1)~ GOTO GelTDia_Attributes
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelStenghtBonusReset","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Attributes
END

IF ~~ THEN BEGIN GelTDiaDex
  SAY ~Chose your Dexterity bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-2 to Dexterity bonus(nerf)~ DO ~SetGlobal("GelDexterityBonusNeg2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~-1 to Dexterity bonus(nerf)~ DO ~SetGlobal("GelDexterityBonusNeg1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+1 to Dexterity bonus(buff)~ DO ~SetGlobal("GelDexterityBonusPos1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+2 to Dexterity bonus(buff)~ DO ~SetGlobal("GelDexterityBonusPos2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+3 to Dexterity bonus(buff)~ DO ~SetGlobal("GelDexterityBonusPos3","LOCALS",1)~ GOTO GelTDia_Attributes
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelDexterityBonusReset","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Attributes
END

IF ~~ THEN BEGIN GelTDiaCon
  SAY ~Chose your Constitution bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-2 to Constitution bonus(nerf)~ DO ~SetGlobal("GelConstitutionBonusNeg2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~-1 to Constitution bonus(nerf)~ DO ~SetGlobal("GelConstitutionBonusNeg1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+1 to Constitution bonus(buff)~ DO ~SetGlobal("GelConstitutionBonusPos1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+2 to Constitution bonus(buff)~ DO ~SetGlobal("GelConstitutionBonusPos2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+3 to Constitution bonus(buff)~ DO ~SetGlobal("GelConstitutionBonusPos3","LOCALS",1)~ GOTO GelTDia_Attributes
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelConstitutionBonusReset","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Attributes
END

IF ~~ THEN BEGIN GelTDiaInt
  SAY ~Chose your Intelligence bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-2 to Intelligence bonus(nerf)~ DO ~SetGlobal("GelIntelligenceBonusNeg2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~-1 to Intelligence bonus(nerf)~ DO ~SetGlobal("GelIntelligenceBonusNeg1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+1 to Intelligence bonus(buff)~ DO ~SetGlobal("GelIntelligenceBonusPos1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+2 to Intelligence bonus(buff)~ DO ~SetGlobal("GelIntelligenceBonusPos2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+3 to Intelligence bonus(buff)~ DO ~SetGlobal("GelIntelligenceBonusPos3","LOCALS",1)~ GOTO GelTDia_Attributes
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelIntelligenceBonusReset","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Attributes
END

IF ~~ THEN BEGIN GelTDiaWis
  SAY ~Chose your Wisdom bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-2 to Wisdom bonus(nerf)~ DO ~SetGlobal("GelWisdomBonusNeg2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~-1 to Wisdom bonus(nerf)~ DO ~SetGlobal("GelWisdomBonusNeg1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+1 to Wisdom bonus(buff)~ DO ~SetGlobal("GelWisdomBonusPos1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+2 to Wisdom bonus(buff)~ DO ~SetGlobal("GelWisdomBonusPos2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+3 to Wisdom bonus(buff)~ DO ~SetGlobal("GelWisdomBonusPos3","LOCALS",1)~ GOTO GelTDia_Attributes
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelWisdomBonusReset","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Attributes
END

IF ~~ THEN BEGIN GelTDiaCha
  SAY ~Chose your Charisma bonus. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-2 to Charisma bonus(nerf)~ DO ~SetGlobal("GelCharismaBonusNeg2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~-1 to Charisma bonus(nerf)~ DO ~SetGlobal("GelCharismaBonusNeg1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+1 to Charisma bonus(buff)~ DO ~SetGlobal("GelCharismaBonusPos1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+2 to Charisma bonus(buff)~ DO ~SetGlobal("GelCharismaBonusPos2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+3 to Charisma bonus(buff)~ DO ~SetGlobal("GelCharismaBonusPos3","LOCALS",1)~ GOTO GelTDia_Attributes
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelCharismaBonusReset","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Attributes
END

IF ~~ THEN BEGIN GelTDiaAllAtt
  SAY ~Chose how much bonus to all Attributes(Strenght, Dexterity, Constitution, Intelligence, Wisdom and Charisma. This will give a negative or positive bonus.~
    IF ~~ THEN REPLY ~-2 to All Attribute bonus(nerf)~ DO ~SetGlobal("GelAllAttBonusNeg2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~-1 to All Attribute bonus(nerf)~ DO ~SetGlobal("GelAllAttBonusNeg1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+1 to All Attribute bonus(buff)~ DO ~SetGlobal("GelAllAttBonusPos1","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+2 to All Attribute bonus(buff)~ DO ~SetGlobal("GelAllAttBonusPos2","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~+3 to All Attribute bonus(buff)~ DO ~SetGlobal("GelAllAttBonusPos3","LOCALS",1)~ GOTO GelTDia_Attributes
//    IF ~~ THEN REPLY ~I want to reset and remove my previous choices to default~ DO ~SetGlobal("GelAllAttBonusReset","LOCALS",1)~ GOTO GelTDia_Attributes
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Attributes
END

IF ~~ THEN BEGIN GelTDia_Restrictions
  SAY ~Chose what type of gear you want to specify a restriction to use in~
    IF ~~ THEN REPLY ~Wepon types~ GOTO GelWeponRestrictions
    IF ~~ THEN REPLY ~Armor types~ GOTO GelArmorRestrictions
    IF ~~ THEN REPLY ~Jewerly types~ GOTO GelJewelRestrictions
    IF ~~ THEN REPLY ~Misc types~ GOTO GelMiscRestrictions
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelWeponRestrictions
  SAY ~Chose what weapon type to restrict~
    IF ~GlobalLT("AllWeponsRestricted","LOCALS",1)~ THEN REPLY ~All Wepons~ DO ~SetGlobal("AllWeponsRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("TwoHandedSwordRestricted","LOCALS",1)~ THEN REPLY ~Two handed swords~ DO ~SetGlobal("TwoHandedSwordRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("BastardswordsRestricted","LOCALS",1)~ THEN REPLY ~Bastard swords~ DO ~SetGlobal("BastardswordsRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("LongswordsRestricted","LOCALS",1)~ THEN REPLY ~Long swords~ DO ~SetGlobal("LongswordsRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("SmallswordsRestricted","LOCALS",1)~ THEN REPLY ~Small swords~ DO ~SetGlobal("SmallswordsRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("DaggersRestricted","LOCALS",1)~ THEN REPLY ~Daggers~ DO ~SetGlobal("DaggersRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("WarHammersRestricted","LOCALS",1)~ THEN REPLY ~War Hammers~ DO ~SetGlobal("WarHammersRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("FlailMorningRestricted","LOCALS",1)~ THEN REPLY ~Flail/Morningstars~ DO ~SetGlobal("FlailMorningRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("MacesRestricted","LOCALS",1)~ THEN REPLY ~Maces~ DO ~SetGlobal("MacesRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("QuarterStaffRestricted","LOCALS",1)~ THEN REPLY ~QuarterStaffs~ DO ~SetGlobal("QuarterStaffRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("ClubsRestricted","LOCALS",1)~ THEN REPLY ~Clubs~ DO ~SetGlobal("ClubsRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("HalberdsRestricted","LOCALS",1)~ THEN REPLY ~Halberds~ DO ~SetGlobal("HalberdsRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("SpearRestricted","LOCALS",1)~ THEN REPLY ~Spears~ DO ~SetGlobal("SpearRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("AxesRestricted","LOCALS",1)~ THEN REPLY ~Axes~ DO ~SetGlobal("AxesRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~~ THEN REPLY ~Done with this part. Go back.~ GOTO GelTDia_Restrictions
END

IF ~~ THEN BEGIN WeponRestrictedConfirmed
  SAY ~Wepon restriction logged and set.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelWeponRestrictions
END

IF ~~ THEN BEGIN GelArmorRestrictions
  SAY ~Chose what armor type to restrict~
    IF ~GlobalLT("AllArmorsRestricted","LOCALS",1)~ THEN REPLY ~All Armors(Helms, Gloves, Chest including robes)~ DO ~SetGlobal("AllArmorsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("ChestArmorsRestricted","LOCALS",1)~ THEN REPLY ~All Chest including robes~ DO ~SetGlobal("ChestArmorsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("FullPlateArmorsRestricted","LOCALS",1)~ THEN REPLY ~Full Plates~ DO ~SetGlobal("FullPlateArmorsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("PlateArmorsRestricted","LOCALS",1)~ THEN REPLY ~Plate~ DO ~SetGlobal("PlateArmorsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("SplintArmorsRestricted","LOCALS",1)~ THEN REPLY ~Splint~ DO ~SetGlobal("SplintArmorsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("ChainArmorsRestricted","LOCALS",1)~ THEN REPLY ~Chain~ DO ~SetGlobal("ChainArmorsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("StuddethArmorsRestricted","LOCALS",1)~ THEN REPLY ~Studdeth Leather~ DO ~SetGlobal("StuddethArmorsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("MetalChestArmorsRestricted","LOCALS",1)~ THEN REPLY ~All Metal Chest Armor~ DO ~SetGlobal("MetalChestArmorsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("HelmsRestricted","LOCALS",1)~ THEN REPLY ~Helmets~ DO ~SetGlobal("HelmsRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~GlobalLT("GlovesRestricted","LOCALS",1)~ THEN REPLY ~Gloves/Gauntlets~ DO ~SetGlobal("GlovesRestricted","LOCALS",1)~ GOTO ArmorRestrictedConfirmed
    IF ~~ THEN REPLY ~Done with this part. Go back.~ GOTO GelTDia_Restrictions
END

IF ~~ THEN BEGIN ArmorRestrictedConfirmed
  SAY ~Armor restriction logged and set.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelArmorRestrictions
END

IF ~~ THEN BEGIN GelJewelRestrictions
  SAY ~Chose what Jewelry type to restrict~
    IF ~GlobalLT("AmuletRestricted","LOCALS",1)~ THEN REPLY ~Amulets~ DO ~SetGlobal("AmuletRestricted","LOCALS",1)~ GOTO JewelRestrictedConfirmed
    IF ~GlobalLT("RingsRestricted","LOCALS",1)~ THEN REPLY ~Rings~ DO ~SetGlobal("RingsRestricted","LOCALS",1)~ GOTO JewelRestrictedConfirmed
    IF ~GlobalLT("CloaksRestricted","LOCALS",1)~ THEN REPLY ~Cloaks and robes~ DO ~SetGlobal("CloaksRestricted","LOCALS",1)~ GOTO JewelRestrictedConfirmed
    IF ~GlobalLT("BootsRestricted","LOCALS",1)~ THEN REPLY ~Boots~ DO ~SetGlobal("BootsRestricted","LOCALS",1)~ GOTO JewelRestrictedConfirmed
    IF ~GlobalLT("BeltsRestricted","LOCALS",1)~ THEN REPLY ~Belts~ DO ~SetGlobal("BeltsRestricted","LOCALS",1)~ GOTO JewelRestrictedConfirmed
    IF ~~ THEN REPLY ~Done with this part. Go back.~ GOTO GelTDia_Restrictions
END

IF ~~ THEN BEGIN JewelRestrictedConfirmed
  SAY ~Jewelry restriction logged and set.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelJewelRestrictions
END

IF ~~ THEN BEGIN GelMiscRestrictions
  SAY ~So far only wands possible to restrict. Choose whatever you like.~
    IF ~GlobalLT("GelAllWands","LOCALS",1)~ THEN REPLY ~All Wands~ DO ~SetGlobal("GelAllWands","LOCALS",1)~ GOTO GelTDia_WandRestricted
    IF ~GlobalLT("GelWolWand","LOCALS",1)~ THEN REPLY ~Wand of Lightning.~ DO ~SetGlobal("GelWolWand","LOCALS",1)~ GOTO GelTDia_WandRestricted
    IF ~GlobalLT("GelParalyzeWand","LOCALS",1)~ THEN REPLY ~Wand of Paralyze.~ DO ~SetGlobal("GelParalyzeWand","LOCALS",1)~ GOTO GelTDia_WandRestricted
    IF ~GlobalLT("GelFireWand","LOCALS",1)~ THEN REPLY ~Wand of Fire.~ DO ~SetGlobal("GelFireWand","LOCALS",1)~ GOTO GelTDia_WandRestricted
    IF ~GlobalLT("GelCloudWand","LOCALS",1)~ THEN REPLY ~Wand of Cloudkill.~ DO ~SetGlobal("GelCloudWand","LOCALS",1)~ GOTO GelTDia_WandRestricted
    IF ~GlobalLT("GelSummonWand","LOCALS",1)~ THEN REPLY ~Wand of Monster Summoning.~ DO ~SetGlobal("GelSummonWand","LOCALS",1)~ GOTO GelTDia_WandRestricted
    IF ~~ THEN REPLY ~Done with this part. Go back.~ GOTO GelTDia_Restrictions
END

IF ~~ THEN BEGIN GelTDia_WandRestricted
  SAY ~Wand Restriction logged.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelMiscRestrictions
END

IF ~~ THEN BEGIN GelTDia_AbilityPackage
  SAY ~Here you may choose to add some innate abilities~
    IF ~GlobalLT("GelHLAability","LOCALS",1)~ THEN REPLY ~List of HLA innate abilities~ DO ~SetGlobal("GelHLAability","LOCALS",1)~ GOTO GelHLAAbility
    IF ~GlobalLT("GelInnateAbility","LOCALS",1)~ THEN REPLY ~List of typical innate abilities~ DO ~SetGlobal("GelInnateAbility","LOCALS",1)~ GOTO GelInnateAbility
    IF ~GlobalLT("GelCustomAbility","LOCALS",1)~ THEN REPLY ~List of CUSTOM/NEW innate abilities~ DO ~SetGlobal("GelCustomAbility","LOCALS",1)~ GOTO GelCustomInnateAbility
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelCustomInnateAbility
  SAY ~Choose if you want level scaled innate package, or individual ability.~
    IF ~GlobalLT("GelScaledInnatePackage","LOCALS",1)~ THEN REPLY ~Level scaled package~ DO ~SetGlobal("GelScaledInnatePackage","LOCALS",1)~ GOTO GelCustomPackInnate
    IF ~GlobalLT("GelSingleCustomInnate","LOCALS",1)~ THEN REPLY ~Singular Abilities now.~ DO ~SetGlobal("GelSingleCustomInnate","LOCALS",1)~ GOTO GelSingleCustomInnate
    IF ~~ THEN REPLY ~Im done here, go back.~ GOTO GelTDia_AbilityPackage
END

IF ~~ THEN BEGIN GelCustomPackInnate
  SAY ~Choose a level scaled package.~
    IF ~GlobalLT("GelNinjPackage","LOCALS",1)~ THEN REPLY ~Woodclan Ninja Ability Package.(Ninja Stars, Ninja Charge, Insect Plague, Creeping Doom, Nature's Peace, Black Powdered Smoke Bomb, Quivering Wepons, Energy Shurikens)~ DO ~SetGlobal("GelNinjPackage","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelNinjPackage1","LOCALS",1))~ GOTO GelNinjPackPicked
    IF ~GlobalLT("GelNecroPack","LOCALS",1)~ THEN REPLY ~I want a necromancer pack as innate abilities(live progression with levels), mainly touch attacks but a few skulltraps, animate deads and at higher levels a few horrid whitling and wail of banhsee.~ DO ~SetGlobal("GelNecroPack","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelNecroPack1","LOCALS",1))~ GOTO GelNecroPackPicked
    IF ~GlobalLT("GelAllMonkPot","LOCALS",1)~ THEN REPLY ~I want all monk kit bonuses(same as all monk combined via kit changer).~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelSupMonk","LOCALS",1))~ GOTO GelMonkAbilitiesPicked
    IF ~~ THEN REPLY ~Im done here, go back.~ GOTO GelCustomInnateAbility
END

IF ~~ THEN BEGIN GelSingleCustomInnate
    IF ~GlobalLT("GelSmokeBPicked","LOCALS",1)~ THEN REPLY ~- Black Powdered Smoke Bomb(blind effect)~ DO ~SetGlobal("GelSmokeBPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelNinjaSPicked","LOCALS",1)~ THEN REPLY ~- Create: Ninja Stars (+1 at level 1, then scales on levels, has bleed effect and is DART PROFIENCY)~ DO ~SetGlobal("GelNinjaSPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelNinjaCPicked","LOCALS",1)~ THEN REPLY ~- Ninja Charge: Charges enemies and attack with backstab multiplier 1 round. You have no control for 1 round.~ DO ~SetGlobal("GelNinjaCPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelInvisiblePicked","LOCALS",1)~ THEN REPLY ~- Invisibility~ DO ~SetGlobal("GelInvisiblePicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelInsectPPicked","LOCALS",1)~ THEN REPLY ~- Insect Plague~ DO ~SetGlobal("GelInsectPPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelCreepingDPicked","LOCALS",1)~ THEN REPLY ~- Creeping Doom~ DO ~SetGlobal("GelCreepingDPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelNaturePPicked","LOCALS",1)~ THEN REPLY ~- Nature's Peace~ DO ~SetGlobal("GelNaturePPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelQuilveringWPicked","LOCALS",1)~ THEN REPLY ~- Quivering Wepon(Same as Quivering Palm, but with wepons)~ DO ~SetGlobal("GelQuilveringWPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelEnergySPicked","LOCALS",1)~ THEN REPLY ~- Energy Shurikens(Energy Blades, sets APR to 9)~ DO ~SetGlobal("GelEnergySPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~~ THEN REPLY ~I dont want to add any of theese.~ GOTO GelCustomInnateAbility
END

IF ~~ THEN BEGIN GelNecroPackPicked
  SAY ~Necro Innate Abilities pack is added and will scale with levels.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelCustomPackInnate
END

IF ~~ THEN BEGIN GelMonkAbilitiesPicked
  SAY ~All monk kits Innate Abilities is added and will scale with levels.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelCustomPackInnate
END

IF ~~ THEN BEGIN GelNinjPackPicked
  SAY ~Woodclan Ninja Innate Abilities pack is added and will scale with levels.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelCustomPackInnate
END

IF ~~ THEN BEGIN GelCustomInnatePicked
  SAY ~Ability Picked.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelSingleCustomInnate
END



IF ~~ THEN BEGIN GelHLAAbility
  SAY ~Choose which HLA ability to add~
    IF ~GlobalLT("GelGreaterWirlwind","LOCALS",1)~ THEN REPLY ~Greater Wirlwind~ DO ~SetGlobal("GelGreaterWirlwind","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelGreaterDeathblow","LOCALS",1)~ THEN REPLY ~Greater Deathblow~ DO ~SetGlobal("GelGreaterDeathblow","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelCriticalStrike","LOCALS",1)~ THEN REPLY ~Critical Strike~ DO ~SetGlobal("GelCriticalStrike","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelHardiness","LOCALS",1)~ THEN REPLY ~Hardiness~ DO ~SetGlobal("GelHardiness","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelPowerStrike","LOCALS",1)~ THEN REPLY ~Power Strike~ DO ~SetGlobal("GelPowerStrike","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelSmite","LOCALS",1)~ THEN REPLY ~Smite~ DO ~SetGlobal("GelSmite","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelFavouredByTheSpirits","LOCALS",1)~ THEN REPLY ~Favoured By The Spirits~ DO ~SetGlobal("GelFavouredByTheSpirits","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelDeva","LOCALS",1)~ THEN REPLY ~Deva~ DO ~SetGlobal("GelDeva","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelFallenDeva","LOCALS",1)~ THEN REPLY ~Fallen Deva~ DO ~SetGlobal("GelFallenDeva","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelSpikeTrap","LOCALS",1) OR(2) Class(LastTalkedToBy(Myself),THIEF_ALL) Class(LastTalkedToBy(Myself),BARD)~ THEN REPLY ~Spike Trap~ DO ~SetGlobal("GelSpikeTrap","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelTimeStopTrap","LOCALS",1) OR(2) Class(LastTalkedToBy(Myself),THIEF_ALL) Class(LastTalkedToBy(Myself),BARD)~ THEN REPLY ~Time Stop Trap~ DO ~SetGlobal("GelTimeStopTrap","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelShapechangeFire","LOCALS",1)~ THEN REPLY ~Shapechange: Fire Elemental~ DO ~SetGlobal("GelShapechangeFire","LOCALS",1)~ GOTO GelHLAChosen
    IF ~GlobalLT("GelShapechangeEarth","LOCALS",1)~ THEN REPLY ~Shapechange: Earth Elemental~ DO ~SetGlobal("GelShapechangeEarth","LOCALS",1)~ GOTO GelHLAChosen
    IF ~~ THEN REPLY ~Im done with HLA abilities.~ GOTO GelTDia_AbilityPackage
END

IF ~~ THEN BEGIN GelHLAChosen
  SAY ~HLA Ability Added.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelHLAAbility
END

IF ~~ THEN BEGIN GelInnateAbility
  SAY ~Chose innate abilities.~
    IF ~GlobalLT("GelBreathFire","LOCALS",1)~ THEN REPLY ~Breathe Fire~ DO ~SetGlobal("GelBreathFire","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelPsionicBlast","LOCALS",1)~ THEN REPLY ~Psionic Blast~ DO ~SetGlobal("GelPsionicBlast","LOCALS",1)~ GOTO GelInnateAbilityChosen
//    IF ~GlobalLT("GelShapechangeGWerewolf","LOCALS",1)~ THEN REPLY ~Shapechange: Greater Werewolf~ DO ~SetGlobal("GelShapechangeGWerewolf","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelShadowStep","LOCALS",1)~ THEN REPLY ~Shadow Step~ DO ~SetGlobal("GelShadowStep","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelBarbarianRage","LOCALS",1)~ THEN REPLY ~Barbarian Rage~ DO ~SetGlobal("GelBarbarianRage","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelBerserkerRage","LOCALS",1)~ THEN REPLY ~Berserker Rage~ DO ~SetGlobal("GelBerserkerRage","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelKai","LOCALS",1)~ THEN REPLY ~Kai~ DO ~SetGlobal("GelKai","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelCalledShot","LOCALS",1)~ THEN REPLY ~Called Shot~ DO ~SetGlobal("GelCalledShot","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelBlindness","LOCALS",1)~ THEN REPLY ~Blindness~ DO ~SetGlobal("GelBlindness","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelMirrorImmage","LOCALS",1)~ THEN REPLY ~Mirror Immage~ DO ~SetGlobal("GelMirrorImmage","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelBlur","LOCALS",1)~ THEN REPLY ~Blur~ DO ~SetGlobal("GelBlur","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelChillingFist","LOCALS",1)~ THEN REPLY ~Chilling Fists~ DO ~SetGlobal("GelChillingFist","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelFlamingFist","LOCALS",1)~ THEN REPLY ~Flaming Fists~ DO ~SetGlobal("GelFlamingFist","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~~ THEN REPLY ~Im done with Innate abilities.~ GOTO GelTDia_AbilityPackage
END

IF ~~ THEN BEGIN GelInnateAbilityChosen
  SAY ~HLA Ability Added.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelInnateAbility
END

IF ~~ THEN BEGIN GelTDia_ArcanePackage
  SAY ~Add of singular Arcane spell or Package?~
    IF ~GlobalLT("GelArcaneSingular","LOCALS",1)~ THEN REPLY ~Pick Singular Arcane Spell~ DO ~SetGlobal("GelArcaneSingular","LOCALS",1)~ GOTO Gel_AddArcaneSpell
    IF ~GlobalLT("GelArcanePackage","LOCALS",1)~ THEN REPLY ~Pick Arcane Spell Package~ DO ~SetGlobal("GelArcanePackage","LOCALS",1)~ GOTO Gel_AddArcanePackage
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN Gel_AddArcaneSpell
  SAY ~Choose Arcane Spell~
// IF ~~ THEN REPLY ~~ DO ~~ GOTO GelTDia_ArcanePackage // ADD HERE
   IF ~~ THEN REPLY ~I dont want any of this. GOTO GelTDia_ArcanePackage
END

IF ~~ THEN BEGIN Gel_AddArcanePackage
  SAY ~Choose Arcane Package~
// IF ~~ THEN REPLY ~~ DO ~~ GOTO GelTDia_ArcanePackage // ADD HERE
   IF ~~ THEN REPLY ~I dont want any of this. GOTO GelTDia_ArcanePackage
END

IF ~~ THEN BEGIN GelTDia_Hitfactors
  SAY ~Choose what you want to modify. You can pick several categories here, then go back when you are done.~
    IF ~GlobalLT("GelThacoPicked","LOCALS",1)~ THEN REPLY ~THAC0~ DO ~SetGlobal("GelThacoPicked","LOCALS",1)~ GOTO GelTDia_Thaco
    IF ~GlobalLT("GelDamagePicked","LOCALS",1)~ THEN REPLY ~Damage (melee/ranged damage bonus)~ DO ~SetGlobal("GelDamagePicked","LOCALS",1)~ GOTO GelTDia_Damage
    IF ~GlobalLT("GelACPicked","LOCALS",1)~ THEN REPLY ~Armor Class (AC)~ DO ~SetGlobal("GelACPicked","LOCALS",1)~ GOTO GelTDia_AC
    IF ~GlobalLT("GelAPRPicked","LOCALS",1)~ THEN REPLY ~Attacks per round (APR)~ DO ~SetGlobal("GelAPRPicked","LOCALS",1)~ GOTO GelTDia_APR
    IF ~GlobalLT("GelSpeedPicked","LOCALS",1)~ THEN REPLY ~Speed Factor~ DO ~SetGlobal("GelSpeedPicked","LOCALS",1)~ GOTO GelTDia_AttackSpeed
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelTDia_Thaco
  SAY ~Choose your THAC0 modifier.~
    IF ~~ THEN REPLY ~+5 THAC0 Bonus (buff)~ DO ~SetGlobal("GelThacoPos5","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+4 THAC0 Bonus (buff)~ DO ~SetGlobal("GelThacoPos4","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+3 THAC0 Bonus (buff)~ DO ~SetGlobal("GelThacoPos3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+2 THAC0 Bonus (buff)~ DO ~SetGlobal("GelThacoPos2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+1 THAC0 Bonus (buff)~ DO ~SetGlobal("GelThacoPos1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-1 THAC0 Bonus (nerf)~ DO ~SetGlobal("GelThacoNeg1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-2 THAC0 Bonus (nerf)~ DO ~SetGlobal("GelThacoNeg2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-3 THAC0 Bonus (nerf)~ DO ~SetGlobal("GelThacoNeg3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-4 THAC0 Bonus (nerf)~ DO ~SetGlobal("GelThacoNeg4","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-5 THAC0 Bonus (nerf)~ DO ~SetGlobal("GelThacoNeg5","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Hitfactors
END

IF ~~ THEN BEGIN GelTDia_Damage
  SAY ~Choose your Damage modifier.~
    IF ~~ THEN REPLY ~-5 damage bonus (nerf)~ DO ~SetGlobal("GelDamageNeg5","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-4 damage bonus (nerf)~ DO ~SetGlobal("GelDamageNeg4","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-3 damage bonus (nerf)~ DO ~SetGlobal("GelDamageNeg3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-2 damage bonus (nerf)~ DO ~SetGlobal("GelDamageNeg2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-1 damage bonus (nerf)~ DO ~SetGlobal("GelDamageNeg1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+1 damage bonus (buff)~ DO ~SetGlobal("GelDamagePos1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+2 damage bonus (buff)~ DO ~SetGlobal("GelDamagePos2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+3 damage bonus (buff)~ DO ~SetGlobal("GelDamagePos3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+4 damage bonus (buff)~ DO ~SetGlobal("GelDamagePos4","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+5 damage bonus (buff)~ DO ~SetGlobal("GelDamagePos5","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Hitfactors
END

IF ~~ THEN BEGIN GelTDia_AC
  SAY ~Choose your AC modifier.~
    IF ~~ THEN REPLY ~+5 AC bonus (buff)~ DO ~SetGlobal("GelACPos5","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+4 AC bonus (buff)~ DO ~SetGlobal("GelACPos4","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+3 AC bonus (buff)~ DO ~SetGlobal("GelACPos3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+2 AC bonus (buff)~ DO ~SetGlobal("GelACPos2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+1 AC bonus (buff)~ DO ~SetGlobal("GelACPos1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-1 AC bonus (nerf)~ DO ~SetGlobal("GelACNeg1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-2 AC bonus (nerf)~ DO ~SetGlobal("GelACNeg2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-3 AC bonus (nerf)~ DO ~SetGlobal("GelACNeg3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-4 AC bonus (nerf)~ DO ~SetGlobal("GelACNeg4","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-5 AC bonus (nerf)~ DO ~SetGlobal("GelACNeg5","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Hitfactors
END

IF ~~ THEN BEGIN GelTDia_APR
  SAY ~Choose your Attacks Per Round (APR) modifier.~
    IF ~~ THEN REPLY ~-1 APR (nerf)~ DO ~SetGlobal("GelAPRNeg1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+1 APR (buff)~ DO ~SetGlobal("GelAPRPos1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+2 APR (buff)~ DO ~SetGlobal("GelAPRPos2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+3 APR (buff)~ DO ~SetGlobal("GelAPRPos3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Hitfactors
END

IF ~~ THEN BEGIN GelTDia_AttackSpeed
  SAY ~Choose your Speed Factor modifier.~
    IF ~~ THEN REPLY ~+5 speed factor bonus (buff)~ DO ~SetGlobal("GelSpeedPos5","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+4 speed factor bonus (buff)~ DO ~SetGlobal("GelSpeedPos4","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+3 speed factor bonus (buff)~ DO ~SetGlobal("GelSpeedPos3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+2 speed factor bonus (buff)~ DO ~SetGlobal("GelSpeedPos2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~+1 speed factor bonus (buff)~ DO ~SetGlobal("GelSpeedPos1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-1 speed factor bonus (nerf)~ DO ~SetGlobal("GelSpeedNeg1","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-2 speed factor bonus (nerf)~ DO ~SetGlobal("GelSpeedNeg2","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-3 speed factor bonus (nerf)~ DO ~SetGlobal("GelSpeedNeg3","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-4 speed factor bonus (nerf)~ DO ~SetGlobal("GelSpeedNeg4","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~-5 speed factor bonus (nerf)~ DO ~SetGlobal("GelSpeedNeg5","LOCALS",1)~ GOTO GelTDia_Hitfactors
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Hitfactors
END

IF ~~ THEN BEGIN GelTDia_Resists
  SAY ~Choose any resist type to alter.~
    IF ~GlobalLT("GelFireResists","LOCALS",1)~ THEN REPLY ~Fire Resists~ DO ~SetGlobal("GelFireResists","LOCALS",1)~ GOTO GelFireResists
    IF ~GlobalLT("GelColdResists","LOCALS",1)~ THEN REPLY ~Cold Resists~ DO ~SetGlobal("GelColdResists","LOCALS",1)~ GOTO GelColdResists
    IF ~GlobalLT("GelLightningResists","LOCALS",1)~ THEN REPLY ~Lightning Resists~ DO ~SetGlobal("GelLightningResists","LOCALS",1)~ GOTO GelLightningResists
    IF ~GlobalLT("GelAcidResists","LOCALS",1)~ THEN REPLY ~Acid Resists~ DO ~SetGlobal("GelAcidResists","LOCALS",1)~ GOTO GelAcidResists
    IF ~GlobalLT("GelPoisonResists","LOCALS",1)~ THEN REPLY ~Poison Resists~ DO ~SetGlobal("GelPoisonResists","LOCALS",1)~ GOTO GelPoisonResists
    IF ~GlobalLT("GelMagicResists","LOCALS",1)~ THEN REPLY ~Magic Resists~ DO ~SetGlobal("GelMagicResists","LOCALS",1)~ GOTO GelMagicResists
    IF ~GlobalLT("GelMagicReduce","LOCALS",1)~ THEN REPLY ~Magic Damage Reduction~ DO ~SetGlobal("GelMagicReduce","LOCALS",1)~ GOTO GelMagicReduce
    IF ~GlobalLT("GelPhysicalResists","LOCALS",1)~ THEN REPLY ~Physical Damage Resistance~ DO ~SetGlobal("GelPhysicalResists","LOCALS",1)~ GOTO GelPhysicalResists
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelFireResists
  SAY ~Choose Fire Resistance modifier.~
    IF ~~ THEN REPLY ~-50% Fire Resistance (nerf)~ DO ~SetGlobal("GelFireResNeg50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-40% Fire Resistance (nerf)~ DO ~SetGlobal("GelFireResNeg40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-30% Fire Resistance (nerf)~ DO ~SetGlobal("GelFireResNeg30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-20% Fire Resistance (nerf)~ DO ~SetGlobal("GelFireResNeg20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-10% Fire Resistance (nerf)~ DO ~SetGlobal("GelFireResNeg10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+10% Fire Resistance (buff)~ DO ~SetGlobal("GelFireResPos10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+20% Fire Resistance (buff)~ DO ~SetGlobal("GelFireResPos20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+30% Fire Resistance (buff)~ DO ~SetGlobal("GelFireResPos30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+40% Fire Resistance (buff)~ DO ~SetGlobal("GelFireResPos40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+50% Fire Resistance (buff)~ DO ~SetGlobal("GelFireResPos50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Resists
END

IF ~~ THEN BEGIN GelColdResists
  SAY ~Choose Cold Resistance modifier.~
    IF ~~ THEN REPLY ~-50% Cold Resistance (nerf)~ DO ~SetGlobal("GelColdResNeg50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-40% Cold Resistance (nerf)~ DO ~SetGlobal("GelColdResNeg40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-30% Cold Resistance (nerf)~ DO ~SetGlobal("GelColdResNeg30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-20% Cold Resistance (nerf)~ DO ~SetGlobal("GelColdResNeg20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-10% Cold Resistance (nerf)~ DO ~SetGlobal("GelColdResNeg10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+10% Cold Resistance (buff)~ DO ~SetGlobal("GelColdResPos10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+20% Cold Resistance (buff)~ DO ~SetGlobal("GelColdResPos20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+30% Cold Resistance (buff)~ DO ~SetGlobal("GelColdResPos30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+40% Cold Resistance (buff)~ DO ~SetGlobal("GelColdResPos40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+50% Cold Resistance (buff)~ DO ~SetGlobal("GelColdResPos50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Resists
END

IF ~~ THEN BEGIN GelLightningResists
  SAY ~Choose Lightning Resistance modifier.~
    IF ~~ THEN REPLY ~-50% Lightning Resistance (nerf)~ DO ~SetGlobal("GelLightningResNeg50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-40% Lightning Resistance (nerf)~ DO ~SetGlobal("GelLightningResNeg40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-30% Lightning Resistance (nerf)~ DO ~SetGlobal("GelLightningResNeg30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-20% Lightning Resistance (nerf)~ DO ~SetGlobal("GelLightningResNeg20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-10% Lightning Resistance (nerf)~ DO ~SetGlobal("GelLightningResNeg10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+10% Lightning Resistance (buff)~ DO ~SetGlobal("GelLightningResPos10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+20% Lightning Resistance (buff)~ DO ~SetGlobal("GelLightningResPos20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+30% Lightning Resistance (buff)~ DO ~SetGlobal("GelLightningResPos30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+40% Lightning Resistance (buff)~ DO ~SetGlobal("GelLightningResPos40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+50% Lightning Resistance (buff)~ DO ~SetGlobal("GelLightningResPos50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Resists
END

IF ~~ THEN BEGIN GelAcidResists
  SAY ~Choose Acid Resistance modifier.~
    IF ~~ THEN REPLY ~-50% Acid Resistance (nerf)~ DO ~SetGlobal("GelAcidResNeg50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-40% Acid Resistance (nerf)~ DO ~SetGlobal("GelAcidResNeg40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-30% Acid Resistance (nerf)~ DO ~SetGlobal("GelAcidResNeg30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-20% Acid Resistance (nerf)~ DO ~SetGlobal("GelAcidResNeg20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-10% Acid Resistance (nerf)~ DO ~SetGlobal("GelAcidResNeg10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+10% Acid Resistance (buff)~ DO ~SetGlobal("GelAcidResPos10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+20% Acid Resistance (buff)~ DO ~SetGlobal("GelAcidResPos20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+30% Acid Resistance (buff)~ DO ~SetGlobal("GelAcidResPos30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+40% Acid Resistance (buff)~ DO ~SetGlobal("GelAcidResPos40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+50% Acid Resistance (buff)~ DO ~SetGlobal("GelAcidResPos50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Resists
END

IF ~~ THEN BEGIN GelPoisonResists
  SAY ~Choose Poison Resistance modifier.~  
    IF ~~ THEN REPLY ~-50% Poison Resistance (nerf)~ DO ~SetGlobal("GelPoisonResNeg50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-40% Poison Resistance (nerf)~ DO ~SetGlobal("GelPoisonResNeg40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-30% Poison Resistance (nerf)~ DO ~SetGlobal("GelPoisonResNeg30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-20% Poison Resistance (nerf)~ DO ~SetGlobal("GelPoisonResNeg20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-10% Poison Resistance (nerf)~ DO ~SetGlobal("GelPoisonResNeg10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+10% Poison Resistance (buff)~ DO ~SetGlobal("GelPoisonResPos10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+20% Poison Resistance (buff)~ DO ~SetGlobal("GelPoisonResPos20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+30% Poison Resistance (buff)~ DO ~SetGlobal("GelPoisonResPos30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+40% Poison Resistance (buff)~ DO ~SetGlobal("GelPoisonResPos40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+50% Poison Resistance (buff)~ DO ~SetGlobal("GelPoisonResPos50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Resists
END

IF ~~ THEN BEGIN GelMagicResists
  SAY ~Choose Magic Resistance modifier.~
    IF ~~ THEN REPLY ~-50% Magic Resistance (nerf)~ DO ~SetGlobal("GelMagicResNeg50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-40% Magic Resistance (nerf)~ DO ~SetGlobal("GelMagicResNeg40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-30% Magic Resistance (nerf)~ DO ~SetGlobal("GelMagicResNeg30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-20% Magic Resistance (nerf)~ DO ~SetGlobal("GelMagicResNeg20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-10% Magic Resistance (nerf)~ DO ~SetGlobal("GelMagicResNeg10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+10% Magic Resistance (buff)~ DO ~SetGlobal("GelMagicResPos10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+20% Magic Resistance (buff)~ DO ~SetGlobal("GelMagicResPos20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+30% Magic Resistance (buff)~ DO ~SetGlobal("GelMagicResPos30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+40% Magic Resistance (buff)~ DO ~SetGlobal("GelMagicResPos40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+50% Magic Resistance (buff)~ DO ~SetGlobal("GelMagicResPos50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Resists
END

IF ~~ THEN BEGIN GelMagicReduce
  SAY ~Choose Magic Damage Reduction modifier.~
    IF ~~ THEN REPLY ~-50% Magic Damage Reduction (nerf)~ DO ~SetGlobal("GelMagicRedNeg50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-40% Magic Damage Reduction (nerf)~ DO ~SetGlobal("GelMagicRedNeg40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-30% Magic Damage Reduction (nerf)~ DO ~SetGlobal("GelMagicRedNeg30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-20% Magic Damage Reduction (nerf)~ DO ~SetGlobal("GelMagicRedNeg20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-10% Magic Damage Reduction (nerf)~ DO ~SetGlobal("GelMagicRedNeg10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+10% Magic Damage Reduction (buff)~ DO ~SetGlobal("GelMagicRedPos10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+20% Magic Damage Reduction (buff)~ DO ~SetGlobal("GelMagicRedPos20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+30% Magic Damage Reduction (buff)~ DO ~SetGlobal("GelMagicRedPos30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+40% Magic Damage Reduction (buff)~ DO ~SetGlobal("GelMagicRedPos40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+50% Magic Damage Reduction (buff)~ DO ~SetGlobal("GelMagicRedPos50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Resists
END


IF ~~ THEN BEGIN GelPhysicalResists
  SAY ~Choose Physical Damage Resistance modifier.~
    IF ~~ THEN REPLY ~-50% Physical Damage Resistance (nerf)~ DO ~SetGlobal("GelPhysResNeg50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-40% Physical Damage Resistance (nerf)~ DO ~SetGlobal("GelPhysResNeg40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-30% Physical Damage Resistance (nerf)~ DO ~SetGlobal("GelPhysResNeg30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-20% Physical Damage Resistance (nerf)~ DO ~SetGlobal("GelPhysResNeg20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~-10% Physical Damage Resistance (nerf)~ DO ~SetGlobal("GelPhysResNeg10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+10% Physical Damage Resistance (buff)~ DO ~SetGlobal("GelPhysResPos10","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+20% Physical Damage Resistance (buff)~ DO ~SetGlobal("GelPhysResPos20","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+30% Physical Damage Resistance (buff)~ DO ~SetGlobal("GelPhysResPos30","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+40% Physical Damage Resistance (buff)~ DO ~SetGlobal("GelPhysResPos40","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~+50% Physical Damage Resistance (buff)~ DO ~SetGlobal("GelPhysResPos50","LOCALS",1)~ GOTO GelTDia_Resists
    IF ~~ THEN REPLY ~No change. Go back.~ GOTO GelTDia_Resists
END

IF ~~ THEN BEGIN GelTDia_Profiency
  SAY ~Choose to set a profiency to a custom value.
Extra important notice here!:
Putting points on level up in combination with spellgiven profience gives a stacking bug.
IF YOU DONT KNOW THE FULL CONTEXT OF THIS STACKING BUG, AND IF YOU HAVE NOT FULL CONTROL THAT YOU HAVE ENOUGHT FREE SPACES TO PUT PROFIENCE POINTS ON LEVEL UP YOU WILL HAVE ISSUES WITH STUCK IN LEVEL UP WINDOW, AS WELL AS WAY TO MANY PROFIENCE POINTS.
If you are unsure, dont use this feature. It is always safe to put profience points into a wepon types your character do not get profience points in on level ups.
It is also safe to use this after you have maxed a certain category.
Just never manually put a profiency point on level up in something you have given points to via this dialog.~
    IF ~~ THEN REPLY ~Okay, understood, I still want to set some profience points~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~I dont want to use this feature~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelTDia_Profiency1
  SAY ~Choose category~
    IF ~GlobalLT("GelProfTwohandedSwordPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Two Handed Swords~ DO ~SetGlobal("GelProfTwohandedSwordPot","LOCALS",1)~ GOTO GelProfPotTwohandedSwords
    IF ~GlobalLT("GelProfBastardSwordPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Bastard Swords~ DO ~SetGlobal("GelProfBastardSwordPot","LOCALS",1)~ GOTO GelProfPotBastardSwords
    IF ~GlobalLT("GelProfLongSwordPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Long Swords~ DO ~SetGlobal("GelProfLongSwordPot","LOCALS",1)~ GOTO GelProfPotLongSwords
    IF ~GlobalLT("GelProfShortSwordPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Short Swords~ DO ~SetGlobal("GelProfShortSwordPot","LOCALS",1)~ GOTO GelProfPotShortSwords
    IF ~GlobalLT("GelProfDaggersPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Daggers~ DO ~SetGlobal("GelProfDaggersPot","LOCALS",1)~ GOTO GelProfPotDaggers
    IF ~GlobalLT("GelProfKatanaPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Katana~ DO ~SetGlobal("GelProfKatanaPot","LOCALS",1)~ GOTO GelProfPotKatana
    IF ~GlobalLT("GelProfScimitarPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Scimitar / Wakizashi / Ninja-to~ DO ~SetGlobal("GelProfScimitarPot","LOCALS",1)~ GOTO GelProfPotScimitar
    IF ~GlobalLT("GelProfAxePot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Axes~ DO ~SetGlobal("GelProfAxePot","LOCALS",1)~ GOTO GelProfPotAxe
    IF ~GlobalLT("GelProfSpearPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Spears~ DO ~SetGlobal("GelProfSpearPot","LOCALS",1)~ GOTO GelProfPotSpear
    IF ~GlobalLT("GelProfHalberdPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Halberds~ DO ~SetGlobal("GelProfHalberdPot","LOCALS",1)~ GOTO GelProfPotHalberd
    IF ~GlobalLT("GelProfFlailPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Flails/Morningstars~ DO ~SetGlobal("GelProfFlailPot","LOCALS",1)~ GOTO GelProfPotFlail
    IF ~GlobalLT("GelProfMacePot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Maces~ DO ~SetGlobal("GelProfMacePot","LOCALS",1)~ GOTO GelProfPotMace
    IF ~GlobalLT("GelProfWarhammerPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to War Hammers~ DO ~SetGlobal("GelProfWarhammerPot","LOCALS",1)~ GOTO GelProfPotWarhammer
    IF ~GlobalLT("GelProfClubPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Clubs~ DO ~SetGlobal("GelProfClubPot","LOCALS",1)~ GOTO GelProfPotClub
    IF ~GlobalLT("GelProfQuarterstaffPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Quarterstaff~ DO ~SetGlobal("GelProfQuarterstaffPot","LOCALS",1)~ GOTO GelProfPotQuarterstaff
    IF ~GlobalLT("GelProfSlingPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Slings~ DO ~SetGlobal("GelProfSlingPot","LOCALS",1)~ GOTO GelProfPotSling
    IF ~GlobalLT("GelProfShortbowPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Shortbows~ DO ~SetGlobal("GelProfShortbowPot","LOCALS",1)~ GOTO GelProfPotShortbow
    IF ~GlobalLT("GelProfLongbowPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Longbows~ DO ~SetGlobal("GelProfLongbowPot","LOCALS",1)~ GOTO GelProfPotLongbow
    IF ~GlobalLT("GelProfCrossbowPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Crossbows~ DO ~SetGlobal("GelProfCrossbowPot","LOCALS",1)~ GOTO GelProfPotCrossbow
    IF ~GlobalLT("GelProfTwoWeaponStylePot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Two-Weapon Style~ DO ~SetGlobal("GelProfTwoWeaponStylePot","LOCALS",1)~ GOTO GelProfPotTwoWeaponStyle
    IF ~GlobalLT("GelProfSingleWeaponStylePot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Single-Weapon Style~ DO ~SetGlobal("GelProfSingleWeaponStylePot","LOCALS",1)~ GOTO GelProfPotSingleWeaponStyle
    IF ~GlobalLT("GelProfSwordShieldStylePot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Sword and Shield Style~ DO ~SetGlobal("GelProfSwordShieldStylePot","LOCALS",1)~ GOTO GelProfPotSwordShieldStyle
    IF ~GlobalLT("GelProfTwoHandedStylePot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Two-Handed Weapon Style~ DO ~SetGlobal("GelProfTwoHandedStylePot","LOCALS",1)~ GOTO GelProfPotTwoHandedStyle
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelProfPotTwohandedSwords
  SAY ~Choose what to SET 2 handed swords profiency into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to twohanded swords profiency~ DO ~SetGlobal("GelTwoHandedSwordsProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to twohanded swords profiency~ DO ~SetGlobal("GelTwoHandedSwordsProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to twohanded swords profiency~ DO ~SetGlobal("GelTwoHandedSwordsProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to twohanded swords profiency~ DO ~SetGlobal("GelTwoHandedSwordsProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to twohanded swords profiency~ DO ~SetGlobal("GelTwoHandedSwordsProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotBastardSwords
  SAY ~Choose what to SET Bastard sword profiency into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Bastard swords profiency~ DO ~SetGlobal("GelBastardSwordsProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Bastard swords profiency~ DO ~SetGlobal("GelBastardSwordsProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Bastard swords profiency~ DO ~SetGlobal("GelBastardSwordsProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Bastard swords profiency~ DO ~SetGlobal("GelBastardSwordsProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Bastard swords profiency~ DO ~SetGlobal("GelBastardSwordsProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotLongSwords
  SAY ~Choose what to SET Long swords profiency into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Long swords profiency~ DO ~SetGlobal("GelLongSwordsProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Long swords profiency~ DO ~SetGlobal("GelLongSwordsProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Long swords profiency~ DO ~SetGlobal("GelLongSwordsProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Long swords profiency~ DO ~SetGlobal("GelLongSwordsProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Long swords profiency~ DO ~SetGlobal("GelLongSwordsProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotShortSwords
  SAY ~Choose what to SET Short swords profiency into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Short swords profiency~ DO ~SetGlobal("GelShortSwordsProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Short swords profiency~ DO ~SetGlobal("GelShortSwordsProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Short swords profiency~ DO ~SetGlobal("GelShortSwordsProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Short swords profiency~ DO ~SetGlobal("GelShortSwordsProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Short swords profiency~ DO ~SetGlobal("GelShortSwordsProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotDaggers
  SAY ~Choose what to SET Daggers profiency into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Daggers profiency~ DO ~SetGlobal("GelDaggersProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Daggers profiency~ DO ~SetGlobal("GelDaggersProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Daggers profiency~ DO ~SetGlobal("GelDaggersProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Daggers profiency~ DO ~SetGlobal("GelDaggersProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Daggers profiency~ DO ~SetGlobal("GelDaggersProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotKatana
  SAY ~Choose what to SET Katana profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Katana profiency~ DO ~SetGlobal("GelKatanaProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Katana profiency~ DO ~SetGlobal("GelKatanaProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Katana profiency~ DO ~SetGlobal("GelKatanaProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Katana profiency~ DO ~SetGlobal("GelKatanaProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Katana profiency~ DO ~SetGlobal("GelKatanaProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotScimitar
  SAY ~Choose what to SET Scimitar/Wakizashi/Ninja-two profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Scimitar/Wakizashi/Ninja-Two profiency~ DO ~SetGlobal("GelScimitarProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Scimitar/Wakizashi/Ninja-Two profiency~ DO ~SetGlobal("GelScimitarProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Scimitar/Wakizashi/Ninja-Two profiency~ DO ~SetGlobal("GelScimitarProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Scimitar/Wakizashi/Ninja-Two profiency~ DO ~SetGlobal("GelScimitarProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Scimitar/Wakizashi/Ninja-Two profiency~ DO ~SetGlobal("GelScimitarProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotAxe
  SAY ~Choose what to SET Axes profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Axes profiency~ DO ~SetGlobal("GelAxeProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Axes profiency~ DO ~SetGlobal("GelAxeProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Axes profiency~ DO ~SetGlobal("GelAxeProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Axes profiency~ DO ~SetGlobal("GelAxeProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Axes profiency~ DO ~SetGlobal("GelAxeProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotSpear
  SAY ~Choose what to SET Spears profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Spears profiency~ DO ~SetGlobal("GelSpearProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Spears profiency~ DO ~SetGlobal("GelSpearProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Spears profiency~ DO ~SetGlobal("GelSpearProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Spears profiency~ DO ~SetGlobal("GelSpearProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Spears profiency~ DO ~SetGlobal("GelSpearProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotHalberd
  SAY ~Choose what to SET Halberds profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Halberds profiency~ DO ~SetGlobal("GelHalbProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Halberds profiency~ DO ~SetGlobal("GelHalbProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Halberds profiency~ DO ~SetGlobal("GelHalbProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Halberds profiency~ DO ~SetGlobal("GelHalbProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Halberds profiency~ DO ~SetGlobal("GelHalbProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotFlail
  SAY ~Choose what to SET Flails/Morningstars profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Flails/Morningstars profiency~ DO ~SetGlobal("GelFlailProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Flails/Morningstars profiency~ DO ~SetGlobal("GelFlailProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Flails/Morningstars profiency~ DO ~SetGlobal("GelFlailProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Flails/Morningstars profiency~ DO ~SetGlobal("GelFlailProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Flails/Morningstars profiency~ DO ~SetGlobal("GelFlailProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotMace
  SAY ~Choose what to SET Maces profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Maces profiency~ DO ~SetGlobal("GelMaceProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Maces profiency~ DO ~SetGlobal("GelMaceProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Maces profiency~ DO ~SetGlobal("GelMaceProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Maces profiency~ DO ~SetGlobal("GelMaceProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Maces profiency~ DO ~SetGlobal("GelMaceProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotWarhammer
  SAY ~Choose what to SET War Hammers profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to War Hammers profiency~ DO ~SetGlobal("GelWHamProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to War Hammers profiency~ DO ~SetGlobal("GelWHamProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to War Hammers profiency~ DO ~SetGlobal("GelWHamProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to War Hammers profiency~ DO ~SetGlobal("GelWHamProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to War Hammers profiency~ DO ~SetGlobal("GelWHamProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotClub
  SAY ~Choose what to SET Clubs profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Clubs profiency~ DO ~SetGlobal("GelClubProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Clubs profiency~ DO ~SetGlobal("GelClubProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Clubs profiency~ DO ~SetGlobal("GelClubProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Clubs profiency~ DO ~SetGlobal("GelClubProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Clubs profiency~ DO ~SetGlobal("GelClubProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotQuarterstaff
  SAY ~Choose what to SET Quarterstaff profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Quarterstaff profiency~ DO ~SetGlobal("GelQStaProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Quarterstaff profiency~ DO ~SetGlobal("GelQStaProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Quarterstaff profiency~ DO ~SetGlobal("GelQStaProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Quarterstaff profiency~ DO ~SetGlobal("GelQStaProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Quarterstaff profiency~ DO ~SetGlobal("GelQStaProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotSling
  SAY ~Choose what to SET Slings profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Slings profiency~ DO ~SetGlobal("GelSlingProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Slings profiency~ DO ~SetGlobal("GelSlingProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Slings profiency~ DO ~SetGlobal("GelSlingProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Slings profiency~ DO ~SetGlobal("GelSlingProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Slings profiency~ DO ~SetGlobal("GelSlingProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotShortbow
  SAY ~Choose what to SET Shortbows profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Shortbows profiency~ DO ~SetGlobal("GelSBowProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Shortbows profiency~ DO ~SetGlobal("GelSBowProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Shortbows profiency~ DO ~SetGlobal("GelSBowProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Shortbows profiency~ DO ~SetGlobal("GelSBowProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Shortbows profiency~ DO ~SetGlobal("GelSBowProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotLongbow
  SAY ~Choose what to SET Longbows profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Longbows profiency~ DO ~SetGlobal("GelLBowProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Longbows profiency~ DO ~SetGlobal("GelLBowProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Longbows profiency~ DO ~SetGlobal("GelLBowProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Longbows profiency~ DO ~SetGlobal("GelLBowProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Longbows profiency~ DO ~SetGlobal("GelLBowProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotCrossbow
  SAY ~Choose what to SET Crossbows profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Crossbows profiency~ DO ~SetGlobal("GelXBowProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Crossbows profiency~ DO ~SetGlobal("GelXBowProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Crossbows profiency~ DO ~SetGlobal("GelXBowProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Crossbows profiency~ DO ~SetGlobal("GelXBowProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Crossbows profiency~ DO ~SetGlobal("GelXBowProfPos5","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotTwoWeaponStyle
  SAY ~Choose what to SET Two-Weapon Style profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Two-Weapon Style profiency~ DO ~SetGlobal("GelTwoWeaponStyleProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Two-Weapon Style profiency~ DO ~SetGlobal("GelTwoWeaponStyleProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Two-Weapon Style profiency~ DO ~SetGlobal("GelTwoWeaponStyleProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotSingleWeaponStyle
  SAY ~Choose what to SET Single-Weapon Style profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Single-Weapon Style profiency~ DO ~SetGlobal("GelSingleWeaponStyleProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Single-Weapon Style profiency~ DO ~SetGlobal("GelSingleWeaponStyleProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotSwordShieldStyle
  SAY ~Choose what to SET Sword and Shield Style profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Sword and Shield Style profiency~ DO ~SetGlobal("GelSwordShieldStyleProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Sword and Shield Style profiency~ DO ~SetGlobal("GelSwordShieldStyleProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelProfPotTwoHandedStyle
  SAY ~Choose what to SET Two Handed Wepon Style profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Two-Handed Weapon Style profiency~ DO ~SetGlobal("GelTwoHandedStyleProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Two-Handed Weapon Style profiency~ DO ~SetGlobal("GelTwoHandedStyleProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~No change, go back~ GOTO GelTDia_Profiency1
END

IF ~~ THEN BEGIN GelTDia_Immunities
  SAY ~Here you may choose a immunity function.~
    IF ~GlobalLT("GelImmuneCharm","LOCALS",1)~ THEN REPLY ~Immunity to Charm and Domination effects.~ DO ~SetGlobal("GelImmuneCharm","LOCALS",1)~ GOTO GelImmunityChosen
    IF ~GlobalLT("GelImmuneFear","LOCALS",1)~ THEN REPLY ~Immunity to Fear.~ DO ~SetGlobal("GelImmuneFear","LOCALS",1)~ GOTO GelImmunityChosen
    IF ~GlobalLT("GelImmuneSleep","LOCALS",1)~ THEN REPLY ~Immunity to Sleep effects.~ DO ~SetGlobal("GelImmuneSleep","LOCALS",1)~ GOTO GelImmunityChosen
    IF ~GlobalLT("GelImmuneStun","LOCALS",1)~ THEN REPLY ~Immunity to Stun effects such as Hold / Paralyze and Psionic Blasts.~ DO ~SetGlobal("GelImmuneStun","LOCALS",1)~ GOTO GelImmunityChosen
    IF ~GlobalLT("GelImmuneDiseases","LOCALS",1)~ THEN REPLY ~Immunity to Diseases.~ DO ~SetGlobal("GelImmuneDiseases","LOCALS",1)~ GOTO GelImmunityChosen
    IF ~GlobalLT("GelImmuneLvlDrain","LOCALS",1)~ THEN REPLY ~Immunity to Level Drain.~ DO ~SetGlobal("GelImmuneLvlDrain","LOCALS",1)~ GOTO GelImmunityChosen
    IF ~GlobalLT("GelImmuneFreeAction","LOCALS",1)~ THEN REPLY ~Effect: Free action. Prevents movement-altering effects, includes haste effects etc.~ DO ~SetGlobal("GelImmuneFreeAction","LOCALS",1)~ GOTO GelImmunityChosen
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelImmunityChosen
  SAY ~Immunity chosen and removed from list of choices.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelTDia_Immunities
END

IF ~~ THEN BEGIN GelTDia_Movement
  SAY ~So, you want to modify your movement?~
    IF ~~ THEN REPLY ~Yes please.~ GOTO GelMovementChoice
    IF ~~ THEN REPLY ~No. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelMovementChoice
  SAY ~Choose a value for your movement modifications.~
    IF ~~ THEN REPLY ~+2 to move speed~ DO ~SetGlobal("GelMoveMentBonus2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+4 to move speed~ DO ~SetGlobal("GelMoveMentBonus4","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+6 to move speed~ DO ~SetGlobal("GelMoveMentBonus6","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~Double my move speed~ DO ~SetGlobal("GelMoveMentBonusx2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~No. I do not want it afterall..~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelTDia_Godmode
  SAY ~Oh, so we are playing hard today. The choice is yours.~
    IF ~~ THEN REPLY ~I want permanent Improved Alacricity~ DO ~SetGlobal("GelImprovedAlacricity","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~I want permanent Use Any Item~ DO ~SetGlobal("GelUseAnyItem","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~I want permanent Improved Alacricity AND Use Any Item~ DO ~SetGlobal("GelIA_UAI","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~No. I this is a bit to powerfull for me.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelTDia_SavingThrows
  SAY ~Chose a saving throw bonus. Save vs all is the function.~
    IF ~~ THEN REPLY ~-2 bonus to saving throws (NERF)~ DO ~SetGlobal("GelSavingThrowsNeg2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-1 bonus to saving throws (NERF)~ DO ~SetGlobal("GelSavingThrowsNeg1","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+1 bonus to saving throws (BUFF)~ DO ~SetGlobal("GelSavingThrowsPos1","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+2 bonus to saving throws (BUFF)~ DO ~SetGlobal("GelSavingThrowsPos2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~No. I do not want it afterall..~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelLuckChoice
  SAY ~Choose your luck bonus.~
    IF ~~ THEN REPLY ~+1 Luck.~ DO ~SetGlobal("GelLuckBonusPlus1","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+2 Luck.~ DO ~SetGlobal("GelLuckBonusPlus2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+3 Luck.~ DO ~SetGlobal("GelLuckBonusPlus3","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+4 Luck.~ DO ~SetGlobal("GelLuckBonusPlus4","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-1 Luck.~ DO ~SetGlobal("GelLuckBonusMinus1","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-2 Luck.~ DO ~SetGlobal("GelLuckBonusMinus2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-3 Luck.~ DO ~SetGlobal("GelLuckBonusMinus3","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-4 Luck.~ DO ~SetGlobal("GelLuckBonusMinus4","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~I dont want it, go back.~ GOTO GelPotionOfChoices 
END

IF ~~ THEN BEGIN GelLoreChoice
  SAY ~Choose your Lore bonus.~
    IF ~~ THEN REPLY ~+10 Lore.~ DO ~SetGlobal("GelLoreBonusPlus1","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+20 Lore.~ DO ~SetGlobal("GelLoreBonusPlus2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+30 Lore.~ DO ~SetGlobal("GelLoreBonusPlus3","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~+40 Lore.~ DO ~SetGlobal("GelLoreBonusPlus4","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-10 Lore.~ DO ~SetGlobal("GelLoreBonusMinus1","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-20 Lore.~ DO ~SetGlobal("GelLoreBonusMinus2","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-30 Lore.~ DO ~SetGlobal("GelLoreBonusMinus3","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~-40 Lore.~ DO ~SetGlobal("GelLoreBonusMinus4","LOCALS",1)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~I dont want it, go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelTDia_XPNerf
  SAY ~Choose your experience gained % penalty, theese will overwrite eachothers if previous chosen~
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~0%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp0","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~10%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp10","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~20%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp20","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~30%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp30","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~34%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp34","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~40%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp40","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~50%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp50","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~60%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp60","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~66%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp66","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~GlobalLT("GelXpChosen","LOCALS",1)~ THEN REPLY ~70%~ DO ~SetGlobal("GelXpChosen","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelXp70","LOCALS",1))~ GOTO GelXpChosenConfirmed
    IF ~~ THEN REPLY ~Nah, I don't want this~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelXpChosenConfirmed
  SAY ~XP% gained ammount chosen.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelPotionOfChoices
END

///https://gibberlings3.github.io/iesdp/files/ids/bgee/kit.htm

/// ==== GelNDia.baf ==== ///////
IF
    OnCreation()
    Allegiance(LastSummonerOf(Myself),PC)
    Global("GelTDia_Init","LOCALS",0)
	!HasItem("GelKit1",LastSummonerOf(Myself))
THEN
    RESPONSE #100
      SetGlobal("GelTDia_Init","LOCALS",5)
      GiveItem("GelKit1",LastSummonerOf(Myself))
END

// Removed if not first.///
IF
  OnCreation()
  Allegiance(LastSummonerOf(Myself),PC)
  HasItem("GelKit1",LastSummonerOf(Myself))
  Global("GelTDia_Init","LOCALS",0)
THEN
  RESPONSE #100
     DestroySelf()
END

// Removed if none PC ///
IF
    OnCreation()
    !Allegiance(LastSummonerOf(Myself),PC)
THEN
    RESPONSE #100
      SetGlobal("GelTDia_Init","LOCALS",0)
      SetGlobal("GelKitClaimed","LOCALS",0) 
      SetGlobal("GelTDiaActive","LOCALS",0)
      DestroySelf()
END

// Starts dialog
IF
    Global("GelTDia_Init","LOCALS",1)
    Exists(LastSummonerOf(Myself))
    InParty(LastSummonerOf(Myself))
THEN
    RESPONSE #100
        ClearAllActions()
		SetGlobal("GelTDia_Init","LOCALS",2)
        StartDialogNoSet(LastSummonerOf(Myself))
END

//  Safeguard if dead
IF
    Global("GelTDia_Init","LOCALS",1)
    !Exists(LastSummonerOf(Myself))
THEN
    RESPONSE #100
       SetGlobal("GelTDia_Init","LOCALS",0)
       DestroySelf() 
END

IF
    Global("GelTDia_Init","LOCALS",5)
THEN
    RESPONSE #100
    SetGlobal("GelTDia_Init","LOCALS",1)
END	

// Destroy self and clean up after dialog.
IF
    Global("GelTDia_Init","LOCALS",3)
THEN
    RESPONSE #100
       SetGlobal("GelTDia_Init","LOCALS",0)
       DestroySelf()
END

////// ===== GelTDia.baf ==== ///////

// Removed if none PC ///
IF
    OnCreation()
    !Allegiance(LastSummonerOf(Myself),PC)
THEN
    RESPONSE #100
      SetGlobal("GelTDia_Done","LOCALS",1)
      DestroySelf()
END

IF
    OnCreation()
    Allegiance(LastSummonerOf(Myself),PC)
THEN
    RESPONSE #100
      SetGlobal("GelTDia_Init","LOCALS",1)
END

// Starts dialog
IF
    Global("GelTDia_Init","LOCALS",1)
    Exists(LastSummonerOf(Myself))
    InParty(LastSummonerOf(Myself))
THEN
    RESPONSE #100
        ClearAllActions()
		SetGlobal("GelTDia_Init","LOCALS",2)
        StartDialogNoSet(LastSummonerOf(Myself))
END

//  Safeguard if dead
IF
    Global("GelTDia_Init","LOCALS",1)
    !Exists(LastSummonerOf(Myself))
THEN
    RESPONSE #100
       SetGlobal("GelTDia_Init","LOCALS",0)
       DestroySelf() 
END

IF
    Global("GelTDia_Init","LOCALS",5)
THEN
    RESPONSE #100
    SetGlobal("GelTDia_Init","LOCALS",1)
END	

// Destroy self and clean up after dialog.
IF
    Global("GelTDia_Init","LOCALS",3)
THEN
    RESPONSE #100
       SetGlobal("GelTDia_Init","LOCALS",0)
       DestroySelf()
END

///// POTION FUNCTIONS ////

IF
  Global("GelTDia_Done","LOCALS",1)
  GlobalLT("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    SetGlobal("GelTDia_Process","LOCALS",1)

END

//// BACKSTAB SECTION ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBackstabNeg3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelNBS3",LastTalkedToBy(Myself)))
    SetGlobal("GelBackstabNeg3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBackstabNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelNBS2",LastTalkedToBy(Myself)))
    SetGlobal("GelBackstabNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBackstabNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelNBS1",LastTalkedToBy(Myself)))
    SetGlobal("GelBackstabNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBackstabPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPBS1",LastTalkedToBy(Myself)))
    SetGlobal("GelBackstabPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBackstabPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPBS2",LastTalkedToBy(Myself)))
    SetGlobal("GelBackstabPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBackstabPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPBS3",LastTalkedToBy(Myself)))
    SetGlobal("GelBackstabPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBackstabReset","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBSRe",LastTalkedToBy(Myself)))
    SetGlobal("GelBackstabReset","LOCALS",2)

END

//// STEALTH SECTION ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10S",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10S",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10S",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10S",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthPos50","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStealthReset","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSRes",LastTalkedToBy(Myself)))
    SetGlobal("GelStealthReset","LOCALS",2)

END

//// Find traps ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10F",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10F",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10F",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10F",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsPos50","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFindTrapsReset","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFRes",LastTalkedToBy(Myself)))
    SetGlobal("GelFindTrapsReset","LOCALS",2)

END

//// PICK POCKET ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10P",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10P",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10P",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10P",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketPos50","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPickPocketReset","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPRes",LastTalkedToBy(Myself)))
    SetGlobal("GelPickPocketReset","LOCALS",2)

END

//// OPEN LOCKS ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10O",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10O",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10O",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10O",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksPos50","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelOpenLocksReset","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelORes",LastTalkedToBy(Myself)))
    SetGlobal("GelOpenLocksReset","LOCALS",2)

END

//// DETECT ILLUSION ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10I",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10I",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10I",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10I",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsPos50","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDetectIllusionsReset","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelIRes",LastTalkedToBy(Myself)))
    SetGlobal("GelDetectIllusionsReset","LOCALS",2)

END

//// Set Traps ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSetTrapsNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10T",LastTalkedToBy(Myself)))
    SetGlobal("GelSetTrapsNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSetTrapsNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10T",LastTalkedToBy(Myself)))
    SetGlobal("GelSetTrapsNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSetTrapsNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel-10T",LastTalkedToBy(Myself)))
    SetGlobal("GelSetTrapsNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSetTrapsPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    SetGlobal("GelSetTrapsPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSetTrapsPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    SetGlobal("GelSetTrapsPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSetTrapsPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    SetGlobal("GelSetTrapsPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSetTrapsPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    SetGlobal("GelSetTrapsPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSetTrapsPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel+10T",LastTalkedToBy(Myself)))
    SetGlobal("GelSetTrapsPos50","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelSetTrapsReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTRes",LastTalkedToBy(Myself)))
//    SetGlobal("GelSetTrapsReset","LOCALS",2)
//
//END

/////////////////////////////////////////// GelTDia_SpellCasting /////////////////////////////////////////////////

////////// Casting Speed ///////
IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCastingSpeedNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS-1",LastTalkedToBy(Myself)))
    SetGlobal("GelCastingSpeedNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCastingSpeedNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS-1",LastTalkedToBy(Myself)))
    SetGlobal("GelCastingSpeedNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCastingSpeedPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    SetGlobal("GelCastingSpeedPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCastingSpeedPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    SetGlobal("GelCastingSpeedPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCastingSpeedPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    SetGlobal("GelCastingSpeedPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCastingSpeedPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCS+1",LastTalkedToBy(Myself)))
    SetGlobal("GelCastingSpeedPos4","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelCastingSpeedReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCSRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelCastingSpeedReset","LOCALS",2)
//
//END

//// GelArcaneCastingSlots ///////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelArcaneCastingSlotsNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAC-1",LastTalkedToBy(Myself)))
    SetGlobal("GelArcaneCastingSlotsNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelArcaneCastingSlotsPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAC+1",LastTalkedToBy(Myself)))
    SetGlobal("GelArcaneCastingSlotsPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelArcaneCastingSlotsPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAC+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAC+1",LastTalkedToBy(Myself)))
    SetGlobal("GelArcaneCastingSlotsPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelArcaneCastingSlotsPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAC+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAC+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAC+1",LastTalkedToBy(Myself)))
    SetGlobal("GelArcaneCastingSlotsPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelArcaneCastingSlotsReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelACRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelArcaneCastingSlotsReset","LOCALS",2)
//
//END

////// GelDevineCastingSlots //////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDevineCastingSlotsNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDC-1",LastTalkedToBy(Myself)))
    SetGlobal("GelDevineCastingSlotsNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDevineCastingSlotsPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDC+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDevineCastingSlotsPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDevineCastingSlotsPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDC+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDC+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDevineCastingSlotsPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDevineCastingSlotsPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDC+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDC+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDC+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDevineCastingSlotsPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelDevineCastingSlotsReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDCRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelDevineCastingSlotsReset","LOCALS",2)
//
//END

/////////////////// GelTDia_Attributes //////////////////////////////
///
/////////// Strenghtbonus ////////////////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStrenghtBonusNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS-1",LastTalkedToBy(Myself)))
    SetGlobal("GelStrenghtBonusNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStrenghtBonusNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS-1",LastTalkedToBy(Myself)))
    SetGlobal("GelStrenghtBonusNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStrenghtBonusPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS+1",LastTalkedToBy(Myself)))
    SetGlobal("GelStrenghtBonusPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStrenghtBonusPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS+1",LastTalkedToBy(Myself)))
    SetGlobal("GelStrenghtBonusPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelStrenghtBonusPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAS+1",LastTalkedToBy(Myself)))
    SetGlobal("GelStrenghtBonusPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelStrenghtBonusReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelStRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelStrenghtBonusReset","LOCALS",2)
//
//END

/////////// Dexteritybonus ////////////////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDexterityBonusNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD-1",LastTalkedToBy(Myself)))
    SetGlobal("GelDexterityBonusNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDexterityBonusNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD-1",LastTalkedToBy(Myself)))
    SetGlobal("GelDexterityBonusNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDexterityBonusPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDexterityBonusPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDexterityBonusPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDexterityBonusPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDexterityBonusPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAD+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDexterityBonusPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelDexterityBonusReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDeRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelDexterityBonusReset","LOCALS",2)
//
//END

/////////// Constitution bonus ////////////////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelConstitutionBonusNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo-1",LastTalkedToBy(Myself)))
    SetGlobal("GelConstitutionBonusNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelConstitutionBonusNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo-1",LastTalkedToBy(Myself)))
    SetGlobal("GelConstitutionBonusNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelConstitutionBonusPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo+1",LastTalkedToBy(Myself)))
    SetGlobal("GelConstitutionBonusPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelConstitutionBonusPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo+1",LastTalkedToBy(Myself)))
    SetGlobal("GelConstitutionBonusPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelConstitutionBonusPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCo+1",LastTalkedToBy(Myself)))
    SetGlobal("GelConstitutionBonusPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelConstitutionBonusReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCoRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelConstitutionBonusReset","LOCALS",2)
//
//END

//// Intelligence Bonus //////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelIntelligenceBonusNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI-1",LastTalkedToBy(Myself)))
    SetGlobal("GelIntelligenceBonusNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelIntelligenceBonusNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI-1",LastTalkedToBy(Myself)))
    SetGlobal("GelIntelligenceBonusNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelIntelligenceBonusPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI+1",LastTalkedToBy(Myself)))
    SetGlobal("GelIntelligenceBonusPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelIntelligenceBonusPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI+1",LastTalkedToBy(Myself)))
    SetGlobal("GelIntelligenceBonusPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelIntelligenceBonusPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAI+1",LastTalkedToBy(Myself)))
    SetGlobal("GelIntelligenceBonusPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelIntelligenceBonusReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAIRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelIntelligenceBonusReset","LOCALS",2)
//
//END

//// Wisdom Bonus /////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWisdomBonusNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW-1",LastTalkedToBy(Myself)))
    SetGlobal("GelWisdomBonusNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWisdomBonusNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW-1",LastTalkedToBy(Myself)))
    SetGlobal("GelWisdomBonusNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWisdomBonusPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW+1",LastTalkedToBy(Myself)))
    SetGlobal("GelWisdomBonusPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWisdomBonusPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW+1",LastTalkedToBy(Myself)))
    SetGlobal("GelWisdomBonusPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWisdomBonusPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAW+1",LastTalkedToBy(Myself)))
    SetGlobal("GelWisdomBonusPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelWisdomBonusReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAWRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelWisdomBonusReset","LOCALS",2)
//
//END

//// Charisma Bonus ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCharismaBonusNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh-1",LastTalkedToBy(Myself)))
    SetGlobal("GelCharismaBonusNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCharismaBonusNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh-1",LastTalkedToBy(Myself)))
    SetGlobal("GelCharismaBonusNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCharismaBonusPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh+1",LastTalkedToBy(Myself)))
    SetGlobal("GelCharismaBonusPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCharismaBonusPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh+1",LastTalkedToBy(Myself)))
    SetGlobal("GelCharismaBonusPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCharismaBonusPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCh+1",LastTalkedToBy(Myself)))
    SetGlobal("GelCharismaBonusPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelCharismaBonusReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelChRe",LastTalkedToBy(Myself)))
//    SetGlobal("GelCharismaBonusReset","LOCALS",2)
//
//END

///// All Attributes /////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAllAttBonusNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA-1",LastTalkedToBy(Myself)))
    SetGlobal("GelAllAttBonusNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAllAttBonusNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA-1",LastTalkedToBy(Myself)))
    SetGlobal("GelAllAttBonusNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAllAttBonusPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA+1",LastTalkedToBy(Myself)))
    SetGlobal("GelAllAttBonusPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAllAttBonusPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA+1",LastTalkedToBy(Myself)))
    SetGlobal("GelAllAttBonusPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAllAttBonusPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAA+1",LastTalkedToBy(Myself)))
    SetGlobal("GelAllAttBonusPos3","LOCALS",2)

END

//IF
//  Global("GelTDia_Process","LOCALS",1)
//  Global("GelAllAttBonusReset","LOCALS",1)
//THEN
//  RESPONSE #100
//    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAARe",LastTalkedToBy(Myself)))
//    SetGlobal("GelAllAttBonusReset","LOCALS",2)
//
//END

////// GelTDia_Restrictions //////

////// WeponRestrictions ///////
IF
  Global("GelTDia_Process","LOCALS",1)
  Global("AllWeponsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWALR",LastTalkedToBy(Myself)))
    SetGlobal("AllWeponsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("TwoHandedSwordRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelW2HR",LastTalkedToBy(Myself)))
    SetGlobal("TwoHandedSwordRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("BastardswordsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWBAR",LastTalkedToBy(Myself)))
    SetGlobal("BastardswordsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("LongswordsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWLOR",LastTalkedToBy(Myself)))
    SetGlobal("LongswordsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("SmallswordsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWSMR",LastTalkedToBy(Myself)))
    SetGlobal("SmallswordsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("DaggersRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWDAR",LastTalkedToBy(Myself)))
    SetGlobal("DaggersRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("WarHammersRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWWHR",LastTalkedToBy(Myself)))
    SetGlobal("WarHammersRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("FlailMorningRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWFMR",LastTalkedToBy(Myself)))
    SetGlobal("FlailMorningRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("MacesRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWMAR",LastTalkedToBy(Myself)))
    SetGlobal("MacesRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("QuarterStaffRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWQSR",LastTalkedToBy(Myself)))
    SetGlobal("QuarterStaffRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("ClubsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWCLR",LastTalkedToBy(Myself)))
    SetGlobal("ClubsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("HalberdsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWHAR",LastTalkedToBy(Myself)))
    SetGlobal("HalberdsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("SpearRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWSPR",LastTalkedToBy(Myself)))
    SetGlobal("SpearRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("AxesRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWAXR",LastTalkedToBy(Myself)))
    SetGlobal("AxesRestricted","LOCALS",2)

END

///// Armor Restrictions ///// 
IF
  Global("GelTDia_Process","LOCALS",1)
  Global("AllArmorsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAAAR",LastTalkedToBy(Myself)))
    SetGlobal("AllArmorsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("ChestArmorsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelACAR",LastTalkedToBy(Myself)))
    SetGlobal("ChestArmorsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("FullPlateArmorsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAFPR",LastTalkedToBy(Myself)))
    SetGlobal("FullPlateArmorsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("PlateArmorsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAPLR",LastTalkedToBy(Myself)))
    SetGlobal("PlateArmorsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("SplintArmorsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelASPR",LastTalkedToBy(Myself)))
    SetGlobal("SplintArmorsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("ChainArmorsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelACHR",LastTalkedToBy(Myself)))
    SetGlobal("ChainArmorsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("StuddethArmorsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelASTR",LastTalkedToBy(Myself)))
    SetGlobal("StuddethArmorsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("MetalChestArmorsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAMCR",LastTalkedToBy(Myself)))
    SetGlobal("MetalChestArmorsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("HelmsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAHER",LastTalkedToBy(Myself)))
    SetGlobal("HelmsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GlovesRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAGLR",LastTalkedToBy(Myself)))
    SetGlobal("GlovesRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("AmuletRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelJAMR",LastTalkedToBy(Myself)))
    SetGlobal("AmuletRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("RingsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelJRIR",LastTalkedToBy(Myself)))
    SetGlobal("RingsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("CloaksRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelJCLR",LastTalkedToBy(Myself)))
    SetGlobal("CloaksRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("BootsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelJBOR",LastTalkedToBy(Myself)))
    SetGlobal("BootsRestricted","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("BeltsRestricted","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelJBER",LastTalkedToBy(Myself)))
    SetGlobal("BeltsRestricted","LOCALS",2)

END

//////// THACO ///////////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelThacoPos5","LOCALS",1) 
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoPos5","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoPos4","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoPos4","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoPos3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoPos3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoPos2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoPos2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoPos1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoPos1","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoNeg5","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoNeg5","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoNeg4","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoNeg4","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoNeg3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoNeg3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoNeg2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoNeg2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelThacoNeg1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelThacoNeg1","LOCALS",2)

END

/////// DAMAGE ///////////
IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamageNeg5","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamageNeg5","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamageNeg4","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamageNeg4","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamageNeg3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamageNeg3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamageNeg2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamageNeg2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamageNeg1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM-1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamageNeg1","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamagePos5","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamagePos5","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamagePos4","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamagePos4","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamagePos3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamagePos3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamagePos2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamagePos2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelDamagePos1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDM+1",LastTalkedToBy(Myself)))
    SetGlobal("GelDamagePos1","LOCALS",2)

END


//// ARMOR CLASS ////

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACPos5","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    SetGlobal("GelACPos5","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACPos4","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    SetGlobal("GelACPos4","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACPos3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    SetGlobal("GelACPos3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACPos2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    SetGlobal("GelACPos2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACPos1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA+1",LastTalkedToBy(Myself)))
    SetGlobal("GelACPos1","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACNeg5","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    SetGlobal("GelACNeg5","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACNeg4","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    SetGlobal("GelACNeg4","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACNeg3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    SetGlobal("GelACNeg3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACNeg2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    SetGlobal("GelACNeg2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelACNeg1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCA-1",LastTalkedToBy(Myself)))
    SetGlobal("GelACNeg1","LOCALS",2)

END


//// APR ////

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAPRNeg1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAPN1",LastTalkedToBy(Myself)))
    SetGlobal("GelAPRNeg1","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAPRPos3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAPR1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAPR1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAPR1",LastTalkedToBy(Myself)))
    SetGlobal("GelAPRPos3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAPRPos2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAPR1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAPR1",LastTalkedToBy(Myself)))
    SetGlobal("GelAPRPos2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAPRPos1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAPR1",LastTalkedToBy(Myself)))
    SetGlobal("GelAPRPos1","LOCALS",2)

END


//// HITFACTORS: SPEED FACTOR ////

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedPos5","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedPos5","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedPos4","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedPos4","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedPos3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedPos3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedPos2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedPos2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedPos1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF+1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedPos1","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedNeg5","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedNeg5","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedNeg4","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedNeg4","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedNeg3","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedNeg3","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedNeg2","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedNeg2","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelSpeedNeg1","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSF-1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpeedNeg1","LOCALS",2)

END

//// RESISTS: FIRE (GelFR-1 / GelFR+1) ////

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResNeg50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResNeg50","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResNeg40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResNeg40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResNeg30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResNeg30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResNeg20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResNeg20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResNeg10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResNeg10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResPos10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResPos10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResPos20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResPos20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResPos30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResPos30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResPos40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResPos40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelFireResPos50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelFireResPos50","LOCALS",2)

END


//// RESISTS: COLD (GelCR-1 / GelCR+1) ////

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResNeg50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResNeg50","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResNeg40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResNeg40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResNeg30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResNeg30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResNeg20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResNeg20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResNeg10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResNeg10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResPos10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResPos10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResPos20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResPos20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResPos30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResPos30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResPos40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResPos40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelColdResPos50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelColdResPos50","LOCALS",2)

END


//// RESISTS: LIGHTNING (GelER-1 / GelER+1) ////

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResNeg50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResNeg50","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResNeg40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResNeg40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResNeg30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResNeg30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResNeg20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResNeg20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResNeg10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER-1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResNeg10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResPos10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResPos10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResPos20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResPos20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResPos30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResPos30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResPos40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResPos40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelLightningResPos50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelER+1",LastTalkedToBy(Myself)))
    SetGlobal("GelLightningResPos50","LOCALS",2)

END


//// RESISTS: ACID (GelAR-1 / GelAR+1) ////

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResNeg50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResNeg50","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResNeg40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResNeg40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResNeg30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResNeg30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResNeg20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResNeg20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResNeg10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResNeg10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResPos10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResPos10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResPos20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResPos20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResPos30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResPos30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResPos40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResPos40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelAcidResPos50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelAcidResPos50","LOCALS",2)

END


//// RESISTS: POISON (GelPR-1 / GelPR+1) ////

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResNeg50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResNeg50","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResNeg40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResNeg40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResNeg30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResNeg30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResNeg20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResNeg20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResNeg10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResNeg10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResPos10","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResPos10","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResPos20","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResPos20","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResPos30","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResPos30","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResPos40","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResPos40","LOCALS",2)

END

IF 
  Global("GelTDia_Process","LOCALS",1) 
  Global("GelPoisonResPos50","LOCALS",1) 
THEN 
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPoisonResPos50","LOCALS",2)

END

//// RESISTS: MAGIC RESISTANCE (GelMR-1 / GelMR+1) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResNeg50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResNeg50","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResNeg40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResNeg40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR-1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicResPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMR+1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicResPos50","LOCALS",2)

END

//// RESISTS: MAGIC DAMAGE REDUCTION (GelDMN1 / GelDMP1) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedNeg50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedNeg50","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedNeg40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedNeg40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMN1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMagicRedPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDMP1",LastTalkedToBy(Myself)))
    SetGlobal("GelMagicRedPos50","LOCALS",2)

END

//// RESISTS: PHYSICAL (GelPH-1 / GelPH+1) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResNeg50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResNeg50","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResNeg40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResNeg40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResNeg30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResNeg30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResNeg20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResNeg20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResNeg10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH-1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResNeg10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResPos10","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResPos10","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResPos20","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResPos20","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResPos30","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResPos30","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResPos40","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResPos40","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPhysResPos50","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPH+1",LastTalkedToBy(Myself)))
    SetGlobal("GelPhysResPos50","LOCALS",2)

END

/////////////////////////////////////////// PROFICIENCY: SET VALUES ///////////////////////////////////////////////

//// PROF: TWO-HANDED SWORDS (Gel2HS1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoHandedSwordsProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel2HS1",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoHandedSwordsProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoHandedSwordsProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel2HS2",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoHandedSwordsProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoHandedSwordsProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel2HS3",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoHandedSwordsProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoHandedSwordsProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel2HS4",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoHandedSwordsProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoHandedSwordsProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("Gel2HS5",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoHandedSwordsProfPos5","LOCALS",2)

END


//// PROF: BASTARD SWORDS (GelBSw1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBastardSwordsProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBSw1",LastTalkedToBy(Myself)))
    SetGlobal("GelBastardSwordsProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBastardSwordsProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBSw2",LastTalkedToBy(Myself)))
    SetGlobal("GelBastardSwordsProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBastardSwordsProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBSw3",LastTalkedToBy(Myself)))
    SetGlobal("GelBastardSwordsProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBastardSwordsProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBSw4",LastTalkedToBy(Myself)))
    SetGlobal("GelBastardSwordsProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelBastardSwordsProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBSw5",LastTalkedToBy(Myself)))
    SetGlobal("GelBastardSwordsProfPos5","LOCALS",2)

END


//// PROF: LONG SWORDS (GelLSw1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLongSwordsProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLSw1",LastTalkedToBy(Myself)))
    SetGlobal("GelLongSwordsProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLongSwordsProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLSw2",LastTalkedToBy(Myself)))
    SetGlobal("GelLongSwordsProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLongSwordsProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLSw3",LastTalkedToBy(Myself)))
    SetGlobal("GelLongSwordsProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLongSwordsProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLSw4",LastTalkedToBy(Myself)))
    SetGlobal("GelLongSwordsProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLongSwordsProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLSw5",LastTalkedToBy(Myself)))
    SetGlobal("GelLongSwordsProfPos5","LOCALS",2)

END


//// PROF: SHORT SWORDS (GelSSw1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelShortSwordsProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSSw1",LastTalkedToBy(Myself)))
    SetGlobal("GelShortSwordsProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelShortSwordsProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSSw2",LastTalkedToBy(Myself)))
    SetGlobal("GelShortSwordsProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelShortSwordsProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSSw3",LastTalkedToBy(Myself)))
    SetGlobal("GelShortSwordsProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelShortSwordsProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSSw4",LastTalkedToBy(Myself)))
    SetGlobal("GelShortSwordsProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelShortSwordsProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSSw5",LastTalkedToBy(Myself)))
    SetGlobal("GelShortSwordsProfPos5","LOCALS",2)

END


//// PROF: DAGGERS (GelDAG1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDaggersProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDAG1",LastTalkedToBy(Myself)))
    SetGlobal("GelDaggersProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDaggersProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDAG2",LastTalkedToBy(Myself)))
    SetGlobal("GelDaggersProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDaggersProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDAG3",LastTalkedToBy(Myself)))
    SetGlobal("GelDaggersProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDaggersProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDAG4",LastTalkedToBy(Myself)))
    SetGlobal("GelDaggersProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDaggersProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelDAG5",LastTalkedToBy(Myself)))
    SetGlobal("GelDaggersProfPos5","LOCALS",2)

END


//// PROF: KATANA (GelKAT1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelKatanaProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKAT1",LastTalkedToBy(Myself)))
    SetGlobal("GelKatanaProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelKatanaProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKAT2",LastTalkedToBy(Myself)))
    SetGlobal("GelKatanaProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelKatanaProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKAT3",LastTalkedToBy(Myself)))
    SetGlobal("GelKatanaProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelKatanaProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKAT4",LastTalkedToBy(Myself)))
    SetGlobal("GelKatanaProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelKatanaProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKAT5",LastTalkedToBy(Myself)))
    SetGlobal("GelKatanaProfPos5","LOCALS",2)

END


//// PROF: SCIMITAR/WAKIZASHI/NINJA-TO (GelSCM1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelScimitarProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSCM1",LastTalkedToBy(Myself)))
    SetGlobal("GelScimitarProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelScimitarProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSCM2",LastTalkedToBy(Myself)))
    SetGlobal("GelScimitarProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelScimitarProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSCM3",LastTalkedToBy(Myself)))
    SetGlobal("GelScimitarProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelScimitarProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSCM4",LastTalkedToBy(Myself)))
    SetGlobal("GelScimitarProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelScimitarProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSCM5",LastTalkedToBy(Myself)))
    SetGlobal("GelScimitarProfPos5","LOCALS",2)

END


//// PROF: AXES (REUSE GelAxe1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAxeProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAxe1",LastTalkedToBy(Myself)))
    SetGlobal("GelAxeProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAxeProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAxe2",LastTalkedToBy(Myself)))
    SetGlobal("GelAxeProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAxeProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAxe3",LastTalkedToBy(Myself)))
    SetGlobal("GelAxeProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAxeProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAxe4",LastTalkedToBy(Myself)))
    SetGlobal("GelAxeProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelAxeProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelAxe5",LastTalkedToBy(Myself)))
    SetGlobal("GelAxeProfPos5","LOCALS",2)

END


//// PROF: SPEARS (GelSpr1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSpearProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSpr1",LastTalkedToBy(Myself)))
    SetGlobal("GelSpearProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSpearProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSpr2",LastTalkedToBy(Myself)))
    SetGlobal("GelSpearProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSpearProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSpr3",LastTalkedToBy(Myself)))
    SetGlobal("GelSpearProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSpearProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSpr4",LastTalkedToBy(Myself)))
    SetGlobal("GelSpearProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSpearProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSpr5",LastTalkedToBy(Myself)))
    SetGlobal("GelSpearProfPos5","LOCALS",2)

END


//// PROF: HALBERDS (GelHAL1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelHalbProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelHAL1",LastTalkedToBy(Myself)))
    SetGlobal("GelHalbProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelHalbProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelHAL2",LastTalkedToBy(Myself)))
    SetGlobal("GelHalbProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelHalbProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelHAL3",LastTalkedToBy(Myself)))
    SetGlobal("GelHalbProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelHalbProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelHAL4",LastTalkedToBy(Myself)))
    SetGlobal("GelHalbProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelHalbProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelHAL5",LastTalkedToBy(Myself)))
    SetGlobal("GelHalbProfPos5","LOCALS",2)

END


//// PROF: FLAILS/MORNINGSTARS (GelFLA1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFlailProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFLA1",LastTalkedToBy(Myself)))
    SetGlobal("GelFlailProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFlailProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFLA2",LastTalkedToBy(Myself)))
    SetGlobal("GelFlailProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFlailProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFLA3",LastTalkedToBy(Myself)))
    SetGlobal("GelFlailProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFlailProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFLA4",LastTalkedToBy(Myself)))
    SetGlobal("GelFlailProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFlailProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelFLA5",LastTalkedToBy(Myself)))
    SetGlobal("GelFlailProfPos5","LOCALS",2)

END


//// PROF: MACES (GelMAC1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMaceProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMAC1",LastTalkedToBy(Myself)))
    SetGlobal("GelMaceProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMaceProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMAC2",LastTalkedToBy(Myself)))
    SetGlobal("GelMaceProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMaceProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMAC3",LastTalkedToBy(Myself)))
    SetGlobal("GelMaceProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMaceProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMAC4",LastTalkedToBy(Myself)))
    SetGlobal("GelMaceProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMaceProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMAC5",LastTalkedToBy(Myself)))
    SetGlobal("GelMaceProfPos5","LOCALS",2)

END


//// PROF: WAR HAMMERS (GelWHM1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWHamProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWHM1",LastTalkedToBy(Myself)))
    SetGlobal("GelWHamProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWHamProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWHM2",LastTalkedToBy(Myself)))
    SetGlobal("GelWHamProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWHamProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWHM3",LastTalkedToBy(Myself)))
    SetGlobal("GelWHamProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWHamProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWHM4",LastTalkedToBy(Myself)))
    SetGlobal("GelWHamProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelWHamProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelWHM5",LastTalkedToBy(Myself)))
    SetGlobal("GelWHamProfPos5","LOCALS",2)

END


//// PROF: CLUBS (REUSE GelClu1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelClubProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelClu1",LastTalkedToBy(Myself)))
    SetGlobal("GelClubProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelClubProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelClu2",LastTalkedToBy(Myself)))
    SetGlobal("GelClubProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelClubProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelClu3",LastTalkedToBy(Myself)))
    SetGlobal("GelClubProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelClubProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelClu4",LastTalkedToBy(Myself)))
    SetGlobal("GelClubProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelClubProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelClu5",LastTalkedToBy(Myself)))
    SetGlobal("GelClubProfPos5","LOCALS",2)

END


//// PROF: QUARTERSTAFF (GelQST1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelQStaProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelQST1",LastTalkedToBy(Myself)))
    SetGlobal("GelQStaProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelQStaProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelQST2",LastTalkedToBy(Myself)))
    SetGlobal("GelQStaProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelQStaProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelQST3",LastTalkedToBy(Myself)))
    SetGlobal("GelQStaProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelQStaProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelQST4",LastTalkedToBy(Myself)))
    SetGlobal("GelQStaProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelQStaProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelQST5",LastTalkedToBy(Myself)))
    SetGlobal("GelQStaProfPos5","LOCALS",2)

END


//// PROF: SLINGS (GelSLG1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSlingProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSLG1",LastTalkedToBy(Myself)))
    SetGlobal("GelSlingProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSlingProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSLG2",LastTalkedToBy(Myself)))
    SetGlobal("GelSlingProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSlingProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSLG3",LastTalkedToBy(Myself)))
    SetGlobal("GelSlingProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSlingProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSLG4",LastTalkedToBy(Myself)))
    SetGlobal("GelSlingProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSlingProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSLG5",LastTalkedToBy(Myself)))
    SetGlobal("GelSlingProfPos5","LOCALS",2)

END


//// PROF: SHORTBOWS (REUSE GelBow1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSBowProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBow1",LastTalkedToBy(Myself)))
    SetGlobal("GelSBowProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSBowProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBow2",LastTalkedToBy(Myself)))
    SetGlobal("GelSBowProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSBowProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBow3",LastTalkedToBy(Myself)))
    SetGlobal("GelSBowProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSBowProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBow4",LastTalkedToBy(Myself)))
    SetGlobal("GelSBowProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSBowProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBow5",LastTalkedToBy(Myself)))
    SetGlobal("GelSBowProfPos5","LOCALS",2)

END


//// PROF: LONGBOWS (GelLNB1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLBowProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLNB1",LastTalkedToBy(Myself)))
    SetGlobal("GelLBowProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLBowProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLNB2",LastTalkedToBy(Myself)))
    SetGlobal("GelLBowProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLBowProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLNB3",LastTalkedToBy(Myself)))
    SetGlobal("GelLBowProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLBowProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLNB4",LastTalkedToBy(Myself)))
    SetGlobal("GelLBowProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelLBowProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLNB5",LastTalkedToBy(Myself)))
    SetGlobal("GelLBowProfPos5","LOCALS",2)

END


//// PROF: CROSSBOWS (GelCRB1..5) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelXBowProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCRB1",LastTalkedToBy(Myself)))
    SetGlobal("GelXBowProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelXBowProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCRB2",LastTalkedToBy(Myself)))
    SetGlobal("GelXBowProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelXBowProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCRB3",LastTalkedToBy(Myself)))
    SetGlobal("GelXBowProfPos3","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelXBowProfPos4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCRB4",LastTalkedToBy(Myself)))
    SetGlobal("GelXBowProfPos4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelXBowProfPos5","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelCRB5",LastTalkedToBy(Myself)))
    SetGlobal("GelXBowProfPos5","LOCALS",2)

END


//////////////////////////////////////////// FIGHTING STYLES (SET) /////////////////////////////////////////////////

//// STYLE: TWO-WEAPON STYLE (CAP 3) (GelTWS1..3) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoWeaponStyleProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTWS1",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoWeaponStyleProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoWeaponStyleProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTWS2",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoWeaponStyleProfPos2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoWeaponStyleProfPos3","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTWS3",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoWeaponStyleProfPos3","LOCALS",2)

END


//// STYLE: SINGLE-WEAPON STYLE (CAP 2) (GelSWS1..2) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSingleWeaponStyleProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSWS1",LastTalkedToBy(Myself)))
    SetGlobal("GelSingleWeaponStyleProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSingleWeaponStyleProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSWS2",LastTalkedToBy(Myself)))
    SetGlobal("GelSingleWeaponStyleProfPos2","LOCALS",2)

END


//// STYLE: SWORD AND SHIELD STYLE (CAP 2) (GelSSS1..2) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSwordShieldStyleProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSSS1",LastTalkedToBy(Myself)))
    SetGlobal("GelSwordShieldStyleProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSwordShieldStyleProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSSS2",LastTalkedToBy(Myself)))
    SetGlobal("GelSwordShieldStyleProfPos2","LOCALS",2)

END


//// STYLE: TWO-HANDED WEAPON STYLE (CAP 2) (GelTHS1..2) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoHandedStyleProfPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTHS1",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoHandedStyleProfPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTwoHandedStyleProfPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelTHS2",LastTalkedToBy(Myself)))
    SetGlobal("GelTwoHandedStyleProfPos2","LOCALS",2)

END

/////////////////////////////////////////// IMMUNITIES /////////////////////////////////////////////////

//// IMMUNE: CHARM / DOMINATION ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelImmuneCharm","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelImCh",LastTalkedToBy(Myself)))
    SetGlobal("GelImmuneCharm","LOCALS",2)

END


//// IMMUNE: FEAR ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelImmuneFear","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelImFe",LastTalkedToBy(Myself)))
    SetGlobal("GelImmuneFear","LOCALS",2)

END


//// IMMUNE: SLEEP ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelImmuneSleep","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelImSl",LastTalkedToBy(Myself)))
    SetGlobal("GelImmuneSleep","LOCALS",2)

END


//// IMMUNE: STUN / HOLD / PARALYZE / PSIONIC BLAST ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelImmuneStun","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelImSt",LastTalkedToBy(Myself)))
    SetGlobal("GelImmuneStun","LOCALS",2)

END


//// IMMUNE: DISEASES ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelImmuneDiseases","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelImDi",LastTalkedToBy(Myself)))
    SetGlobal("GelImmuneDiseases","LOCALS",2)

END


//// IMMUNE: LEVEL DRAIN ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelImmuneLvlDrain","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelImLv",LastTalkedToBy(Myself)))
    SetGlobal("GelImmuneLvlDrain","LOCALS",2)

END


//// EFFECT: FREE ACTION (notes: also blocks haste) ////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelImmuneFreeAction","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelImFr",LastTalkedToBy(Myself)))
    SetGlobal("GelImmuneFreeAction","LOCALS",2)

END

/////////////////////////////////////////// MOVEMENT /////////////////////////////////////////////////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMoveMentBonus2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMov2",LastTalkedToBy(Myself)))
    SetGlobal("GelMoveMentBonus2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMoveMentBonus4","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMov2",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMov2",LastTalkedToBy(Myself)))
    SetGlobal("GelMoveMentBonus4","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMoveMentBonus6","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMov2",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMov2",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMov2",LastTalkedToBy(Myself)))
    SetGlobal("GelMoveMentBonus6","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelMoveMentBonusx2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMoX2",LastTalkedToBy(Myself)))
    SetGlobal("GelMoveMentBonusx2","LOCALS",2)

END

/////////////////////////////////////////// GODMODE /////////////////////////////////////////////////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelImprovedAlacricity","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPIAl",LastTalkedToBy(Myself)))
    SetGlobal("GelImprovedAlacricity","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelUseAnyItem","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("SPCL915",LastTalkedToBy(Myself)))
    SetGlobal("GelUseAnyItem","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelIA_UAI","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelPIAl",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("SPCL915",LastTalkedToBy(Myself)))
    SetGlobal("GelIA_UAI","LOCALS",2)

END

/////////////////////////////////////////// SAVING THROWS /////////////////////////////////////////////////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSavingThrowsNeg2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSavN",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSavN",LastTalkedToBy(Myself)))
    SetGlobal("GelSavingThrowsNeg2","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSavingThrowsNeg1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSavN",LastTalkedToBy(Myself)))
    SetGlobal("GelSavingThrowsNeg1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSavingThrowsPos1","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSavP",LastTalkedToBy(Myself)))
    SetGlobal("GelSavingThrowsPos1","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSavingThrowsPos2","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSavP",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSavP",LastTalkedToBy(Myself)))
    SetGlobal("GelSavingThrowsPos2","LOCALS",2)

END
/////////////////////////////////////////// HLA ABILITIES ///////////////////////////////////////////////

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelGreaterWirlwind","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLWir",LastTalkedToBy(Myself))) // Greater Whirlwind
    SetGlobal("GelGreaterWirlwind","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelGreaterDeathblow","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLDea",LastTalkedToBy(Myself))) // Greater Deathblow
    SetGlobal("GelGreaterDeathblow","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelCriticalStrike","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLCri",LastTalkedToBy(Myself))) // Critical Strike
    SetGlobal("GelCriticalStrike","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelHardiness","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLHar",LastTalkedToBy(Myself))) // Hardiness
    SetGlobal("GelHardiness","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelPowerStrike","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLPow",LastTalkedToBy(Myself))) // Power Strike
    SetGlobal("GelPowerStrike","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSmite","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLSmi",LastTalkedToBy(Myself))) // Smite
    SetGlobal("GelSmite","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFavouredByTheSpirits","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLFav",LastTalkedToBy(Myself))) // Favoured by the Spirits
    SetGlobal("GelFavouredByTheSpirits","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelDeva","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLDev",LastTalkedToBy(Myself))) // Summon Deva
    SetGlobal("GelDeva","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelFallenDeva","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLFDe",LastTalkedToBy(Myself))) // Summon Fallen Deva
    SetGlobal("GelFallenDeva","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelSpikeTrap","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLSpi",LastTalkedToBy(Myself))) // Spike Trap
    SetGlobal("GelSpikeTrap","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelTimeStopTrap","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLTim",LastTalkedToBy(Myself))) // Time Stop Trap
    SetGlobal("GelTimeStopTrap","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelShapechangeFire","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLFir",LastTalkedToBy(Myself))) // Shapechange: Fire Elemental
    SetGlobal("GelShapechangeFire","LOCALS",2)

END

IF
  Global("GelTDia_Process","LOCALS",1)
  Global("GelShapechangeEarth","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLEar",LastTalkedToBy(Myself))) // Shapechange: Earth Elemental
    SetGlobal("GelShapechangeEarth","LOCALS",2)

END

/////////////////////////////////////////// INNATE ABILITIES ///////////////////////////////////////////////

IF
  Global("GelBreathFire","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLBre",LastTalkedToBy(Myself))) // Breathe Fire
    SetGlobal("GelBreathFire","LOCALS",2)

END

IF
  Global("GelPsionicBlast","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLPsi",LastTalkedToBy(Myself))) // Psionic Blast
    SetGlobal("GelPsionicBlast","LOCALS",2)

END

IF
  Global("GelShadowStep","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSha5",LastTalkedToBy(Myself))) // Shadow Step
    SetGlobal("GelShadowStep","LOCALS",2)

END

IF
  Global("GelBarbarianRage","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBar4",LastTalkedToBy(Myself))) // Barbarian Rage
    SetGlobal("GelBarbarianRage","LOCALS",2)

END

IF
  Global("GelBerserkerRage","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelBer4",LastTalkedToBy(Myself))) // Berserker Rage
    SetGlobal("GelBerserkerRage","LOCALS",2)

END

IF
  Global("GelKai","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelKen5",LastTalkedToBy(Myself))) // Kai
    SetGlobal("GelKai","LOCALS",2)

END

IF
  Global("GelCalledShot","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSli3",LastTalkedToBy(Myself))) // Called Shot
    SetGlobal("GelCalledShot","LOCALS",2)

END

IF
  Global("GelBlindness","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLBli",LastTalkedToBy(Myself))) // Blindness
    SetGlobal("GelBlindness","LOCALS",2)

END

IF
  Global("GelMirrorImmage","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLMir",LastTalkedToBy(Myself))) // Mirror Image
    SetGlobal("GelMirrorImmage","LOCALS",2)

END

IF
  Global("GelBlur","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLBlu",LastTalkedToBy(Myself))) // Blur
    SetGlobal("GelBlur","LOCALS",2)

END

IF
  Global("GelChillingFist","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLChi",LastTalkedToBy(Myself))) // Chilling Fists
    SetGlobal("GelChillingFist","LOCALS",2)

END

IF
  Global("GelFlamingFist","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelSMO3",LastTalkedToBy(Myself))) // Flaming Fists
    SetGlobal("GelFlamingFist","LOCALS",2)

END

/////////====== Luck Bonus ======//////////
IF
  Global("GelLuckBonusPlus1","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    SetGlobal("GelLuckBonusPlus1","LOCALS",2)
END

IF
  Global("GelLuckBonusPlus2","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    SetGlobal("GelLuckBonusPlus2","LOCALS",2)
END

IF
  Global("GelLuckBonusPlus3","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    SetGlobal("GelLuckBonusPlus3","LOCALS",2)
END

IF
  Global("GelLuckBonusPlus4","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuP1",LastTalkedToBy(Myself)))
    SetGlobal("GelLuckBonusPlus4","LOCALS",2)
END

IF
  Global("GelLuckBonusMinus1","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    SetGlobal("GelLuckBonusMinus1","LOCALS",2)
END

IF
  Global("GelLuckBonusMinus2","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    SetGlobal("GelLuckBonusMinus2","LOCALS",2)
END

IF
  Global("GelLuckBonusMinus3","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    SetGlobal("GelLuckBonusMinus3","LOCALS",2)
END

IF
  Global("GelLuckBonusMinus4","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLuN1",LastTalkedToBy(Myself)))
    SetGlobal("GelLuckBonusMinus4","LOCALS",2)
END

/////===== Lore Bonus =====//////
IF
  Global("GelLoreBonusPlus1","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    SetGlobal("GelLoreBonusPlus1","LOCALS",2)
END

IF
  Global("GelLoreBonusPlus2","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    SetGlobal("GelLoreBonusPlus2","LOCALS",2)
END

IF
  Global("GelLoreBonusPlus3","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    SetGlobal("GelLoreBonusPlus3","LOCALS",2)
END

IF
  Global("GelLoreBonusPlus4","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoP1",LastTalkedToBy(Myself)))
    SetGlobal("GelLoreBonusPlus4","LOCALS",2)
END

IF
  Global("GelLoreBonusMinus1","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    SetGlobal("GelLoreBonusMinus1","LOCALS",2)
END

IF
  Global("GelLoreBonusMinus2","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    SetGlobal("GelLoreBonusMinus2","LOCALS",2)
END

IF
  Global("GelLoreBonusMinus3","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    SetGlobal("GelLoreBonusMinus3","LOCALS",2)
END

IF
  Global("GelLoreBonusMinus4","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelLoN1",LastTalkedToBy(Myself)))
    SetGlobal("GelLoreBonusMinus4","LOCALS",2)
END

IF
  Global("GelAllWands","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMWAR",LastTalkedToBy(Myself)))
    SetGlobal("GelAllWands","LOCALS",2)
END

IF
  Global("GelWolWand","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMW7R",LastTalkedToBy(Myself)))
    SetGlobal("GelWolWand","LOCALS",2)
END

IF
  Global("GelParalyzeWand","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMW4R",LastTalkedToBy(Myself)))
    SetGlobal("GelParalyzeWand","LOCALS",2)
END

IF
  Global("GelFireWand","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMW5R",LastTalkedToBy(Myself)))
    SetGlobal("GelFireWand","LOCALS",2)
END

IF
  Global("GelCloudWand","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMWcR",LastTalkedToBy(Myself)))
    SetGlobal("GelCloudWand","LOCALS",2)
END

IF
  Global("GelSummonWand","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelMW0R",LastTalkedToBy(Myself)))
    SetGlobal("GelSummonWand","LOCALS",2)
END

IF
  Global("GelSmokeBPicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##1",LastTalkedToBy(Myself)))
    SetGlobal("GelSmokeBPicked","LOCALS",2)
END

IF
  Global("GelNinjaSPicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##2",LastTalkedToBy(Myself)))
    SetGlobal("GelNinjaSPicked","LOCALS",2)
END

IF
  Global("GelNinjaCPicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##3",LastTalkedToBy(Myself)))
    SetGlobal("GelNinjaCPicked","LOCALS",2)
END

IF
  Global("GelInvisiblePicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##4",LastTalkedToBy(Myself)))
    SetGlobal("GelInvisiblePicked","LOCALS",2)
END

IF
  Global("GelInsectPPicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##5",LastTalkedToBy(Myself)))
    SetGlobal("GelInsectPPicked","LOCALS",2)
END

IF
  Global("GelCreepingDPicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##6",LastTalkedToBy(Myself)))
    SetGlobal("GelCreepingDPicked","LOCALS",2)
END

IF
  Global("GelNaturePPicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##7",LastTalkedToBy(Myself)))
    SetGlobal("GelNaturePPicked","LOCALS",2)
END

IF
  Global("GelQuilveringWPicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##8",LastTalkedToBy(Myself)))
    SetGlobal("GelQuilveringWPicked","LOCALS",2)
END

IF
  Global("GelEnergySPicked","LOCALS",1)
  Global("GelTDia_Process","LOCALS",1)
THEN
  RESPONSE #100
    ActionOverride(LastTalkedToBy(Myself),ReallyForceSpellRES("GelP##9",LastTalkedToBy(Myself)))
    SetGlobal("GelEnergySPicked","LOCALS",2)
END

/// Resten av opplegget her

IF
  Global("GelTDia_Process","LOCALS",1)
  ActionListEmpty()
  !Global("GelBackstabNeg30","LOCALS",1)
  !Global("GelBackstabNeg20","LOCALS",1)
  !Global("GelBackstabNeg10","LOCALS",1)
  !Global("GelBackstabPos10","LOCALS",1)
  !Global("GelBackstabPos20","LOCALS",1)
  !Global("GelBackstabPos30","LOCALS",1)
  !Global("GelBackstabReset","LOCALS",1)
  !Global("GelStealthNeg30","LOCALS",1)
  !Global("GelStealthNeg20","LOCALS",1)
  !Global("GelStealthNeg10","LOCALS",1)
  !Global("GelStealthPos10","LOCALS",1)
  !Global("GelStealthPos20","LOCALS",1)
  !Global("GelStealthPos30","LOCALS",1)
  !Global("GelStealthPos40","LOCALS",1)
  !Global("GelStealthPos50","LOCALS",1)
  !Global("GelStealthReset","LOCALS",1)
  !Global("GelFindTrapsNeg30","LOCALS",1)
  !Global("GelFindTrapsNeg20","LOCALS",1)
  !Global("GelFindTrapsNeg10","LOCALS",1)
  !Global("GelFindTrapsPos10","LOCALS",1)
  !Global("GelFindTrapsPos20","LOCALS",1)
  !Global("GelFindTrapsPos30","LOCALS",1)
  !Global("GelFindTrapsPos40","LOCALS",1)
  !Global("GelFindTrapsPos50","LOCALS",1)
  !Global("GelFindTrapsReset","LOCALS",1)
  !Global("GelPickPocketNeg30","LOCALS",1)
  !Global("GelPickPocketNeg20","LOCALS",1)
  !Global("GelPickPocketNeg10","LOCALS",1)
  !Global("GelPickPocketPos10","LOCALS",1)
  !Global("GelPickPocketPos20","LOCALS",1)
  !Global("GelPickPocketPos30","LOCALS",1)
  !Global("GelPickPocketPos40","LOCALS",1)
  !Global("GelPickPocketPos50","LOCALS",1)
  !Global("GelPickPocketReset","LOCALS",1)
  !Global("GelOpenLocksNeg30","LOCALS",1)
  !Global("GelOpenLocksNeg20","LOCALS",1)
  !Global("GelOpenLocksNeg10","LOCALS",1)
  !Global("GelOpenLocksPos10","LOCALS",1)
  !Global("GelOpenLocksPos20","LOCALS",1)
  !Global("GelOpenLocksPos30","LOCALS",1)
  !Global("GelOpenLocksPos40","LOCALS",1)
  !Global("GelOpenLocksPos50","LOCALS",1)
  !Global("GelOpenLocksReset","LOCALS",1)
  !Global("GelDetectIllusionsNeg30","LOCALS",1)
  !Global("GelDetectIllusionsNeg20","LOCALS",1)
  !Global("GelDetectIllusionsNeg10","LOCALS",1)
  !Global("GelDetectIllusionsPos10","LOCALS",1)
  !Global("GelDetectIllusionsPos20","LOCALS",1)
  !Global("GelDetectIllusionsPos30","LOCALS",1)
  !Global("GelDetectIllusionsPos40","LOCALS",1)
  !Global("GelDetectIllusionsPos50","LOCALS",1)
  !Global("GelDetectIllusionsReset","LOCALS",1)
  !Global("GelSetTrapsNeg30","LOCALS",1)
  !Global("GelSetTrapsNeg20","LOCALS",1)
  !Global("GelSetTrapsNeg10","LOCALS",1)
  !Global("GelSetTrapsPos10","LOCALS",1)
  !Global("GelSetTrapsPos20","LOCALS",1)
  !Global("GelSetTrapsPos30","LOCALS",1)
  !Global("GelSetTrapsPos40","LOCALS",1)
  !Global("GelSetTrapsPos50","LOCALS",1)
  !Global("GelSetTrapsReset","LOCALS",1)
  !Global("GelCastingSpeedNeg2","LOCALS",1)
  !Global("GelCastingSpeedNeg1","LOCALS",1)
  !Global("GelCastingSpeedPos1","LOCALS",1)
  !Global("GelCastingSpeedPos2","LOCALS",1)
  !Global("GelCastingSpeedPos3","LOCALS",1)
  !Global("GelCastingSpeedPos4","LOCALS",1)
  !Global("GelCastingSpeedReset","LOCALS",1)
  !Global("GelArcaneCastingSlotsNeg1","LOCALS",1)
  !Global("GelArcaneCastingSlotsPos1","LOCALS",1)
  !Global("GelArcaneCastingSlotsPos2","LOCALS",1)
  !Global("GelArcaneCastingSlotsPos3","LOCALS",1)
  !Global("GelArcaneCastingSlotsReset","LOCALS",1)
  !Global("GelDevineCastingSlotsNeg1","LOCALS",1)
  !Global("GelDevineCastingSlotsPos1","LOCALS",1)
  !Global("GelDevineCastingSlotsPos2","LOCALS",1)
  !Global("GelDevineCastingSlotsPos3","LOCALS",1)
  !Global("GelDevineCastingSlotsReset","LOCALS",1)
  !Global("GelStrenghtBonusNeg2","LOCALS",1)
  !Global("GelStrenghtBonusNeg1","LOCALS",1)
  !Global("GelStrenghtBonusPos1","LOCALS",1)
  !Global("GelStrenghtBonusPos2","LOCALS",1)
  !Global("GelStrenghtBonusPos3","LOCALS",1)
  !Global("GelStrenghtBonusReset","LOCALS",1)
  !Global("GelDexterityBonusNeg2","LOCALS",1)
  !Global("GelDexterityBonusNeg1","LOCALS",1)
  !Global("GelDexterityBonusPos1","LOCALS",1)
  !Global("GelDexterityBonusPos2","LOCALS",1)
  !Global("GelDexterityBonusPos3","LOCALS",1)
  !Global("GelDexterityBonusReset","LOCALS",1)
  !Global("GelConstitutionBonusNeg2","LOCALS",1)
  !Global("GelConstitutionBonusNeg1","LOCALS",1)
  !Global("GelConstitutionBonusPos1","LOCALS",1)
  !Global("GelConstitutionBonusPos2","LOCALS",1)
  !Global("GelConstitutionBonusPos3","LOCALS",1)
  !Global("GelConstitutionBonusReset","LOCALS",1)
  !Global("GelIntelligenceBonusNeg2","LOCALS",1)
  !Global("GelIntelligenceBonusNeg1","LOCALS",1)
  !Global("GelIntelligenceBonusPos1","LOCALS",1)
  !Global("GelIntelligenceBonusPos2","LOCALS",1)
  !Global("GelIntelligenceBonusPos3","LOCALS",1)
  !Global("GelIntelligenceBonusReset","LOCALS",1)
  !Global("GelWisdomBonusNeg2","LOCALS",1)
  !Global("GelWisdomBonusNeg1","LOCALS",1)
  !Global("GelWisdomBonusPos1","LOCALS",1)
  !Global("GelWisdomBonusPos2","LOCALS",1)
  !Global("GelWisdomBonusPos3","LOCALS",1)
  !Global("GelWisdomBonusReset","LOCALS",1)
  !Global("GelCharismaBonusNeg2","LOCALS",1)
  !Global("GelCharismaBonusNeg1","LOCALS",1)
  !Global("GelCharismaBonusPos1","LOCALS",1)
  !Global("GelCharismaBonusPos2","LOCALS",1)
  !Global("GelCharismaBonusPos3","LOCALS",1)
  !Global("GelCharismaBonusReset","LOCALS",1)
  !Global("GelAllAttBonusNeg2","LOCALS",1)
  !Global("GelAllAttBonusNeg1","LOCALS",1)
  !Global("GelAllAttBonusPos1","LOCALS",1)
  !Global("GelAllAttBonusPos2","LOCALS",1)
  !Global("GelAllAttBonusPos3","LOCALS",1)
  !Global("GelAllAttBonusReset","LOCALS",1)
  !Global("AllWeponsRestricted","LOCALS",1)
  !Global("TwoHandedSwordRestricted","LOCALS",1)
  !Global("BastardswordsRestricted","LOCALS",1)
  !Global("LongswordsRestricted","LOCALS",1)
  !Global("SmallswordsRestricted","LOCALS",1)
  !Global("DaggersRestricted","LOCALS",1)
  !Global("WarHammersRestricted","LOCALS",1)
  !Global("FlailMorningRestricted","LOCALS",1)
  !Global("MacesRestricted","LOCALS",1)
  !Global("QuarterStaffRestricted","LOCALS",1)
  !Global("ClubsRestricted","LOCALS",1)
  !Global("HalberdsRestricted","LOCALS",1)
  !Global("SpearRestricted","LOCALS",1)
  !Global("AxesRestricted","LOCALS",1)
  !Global("AllArmorsRestricted","LOCALS",1)
  !Global("ChestArmorsRestricted","LOCALS",1)
  !Global("FullPlateArmorsRestricted","LOCALS",1)
  !Global("PlateArmorsRestricted","LOCALS",1)
  !Global("SplintArmorsRestricted","LOCALS",1)
  !Global("ChainArmorsRestricted","LOCALS",1)
  !Global("StuddethArmorsRestricted","LOCALS",1)
  !Global("MetalChestArmorsRestricted","LOCALS",1)
  !Global("HelmsRestricted","LOCALS",1)
  !Global("GlovesRestricted","LOCALS",1)
  !Global("AmuletRestricted","LOCALS",1)
  !Global("RingsRestricted","LOCALS",1)
  !Global("CloaksRestricted","LOCALS",1)
  !Global("BootsRestricted","LOCALS",1)
  !Global("BeltsRestricted","LOCALS",1)
  !Global("GelThacoPos5","LOCALS",1)
  !Global("GelThacoPos4","LOCALS",1)
  !Global("GelThacoPos3","LOCALS",1)
  !Global("GelThacoPos2","LOCALS",1)
  !Global("GelThacoPos1","LOCALS",1)
  !Global("GelThacoNeg5","LOCALS",1)
  !Global("GelThacoNeg4","LOCALS",1)
  !Global("GelThacoNeg3","LOCALS",1)
  !Global("GelThacoNeg2","LOCALS",1)
  !Global("GelThacoNeg1","LOCALS",1)
  !Global("GelDamagePos5","LOCALS",1)
  !Global("GelDamagePos4","LOCALS",1)
  !Global("GelDamagePos3","LOCALS",1)
  !Global("GelDamagePos2","LOCALS",1)
  !Global("GelDamagePos1","LOCALS",1)
  !Global("GelDamageNeg5","LOCALS",1)
  !Global("GelDamageNeg4","LOCALS",1)
  !Global("GelDamageNeg3","LOCALS",1)
  !Global("GelDamageNeg2","LOCALS",1)
  !Global("GelDamageNeg1","LOCALS",1)
  !Global("GelACPos5","LOCALS",1)
  !Global("GelACPos4","LOCALS",1)
  !Global("GelACPos3","LOCALS",1)
  !Global("GelACPos2","LOCALS",1)
  !Global("GelACPos1","LOCALS",1)
  !Global("GelACNeg5","LOCALS",1)
  !Global("GelACNeg4","LOCALS",1)
  !Global("GelACNeg3","LOCALS",1)
  !Global("GelACNeg2","LOCALS",1)
  !Global("GelACNeg1","LOCALS",1)
  !Global("GelAPRPos3","LOCALS",1)
  !Global("GelAPRPos2","LOCALS",1)
  !Global("GelAPRPos1","LOCALS",1)
  !Global("GelAPRNeg1","LOCALS",1)
  !Global("GelSpeedPos5","LOCALS",1)
  !Global("GelSpeedPos4","LOCALS",1)
  !Global("GelSpeedPos3","LOCALS",1)
  !Global("GelSpeedPos2","LOCALS",1)
  !Global("GelSpeedPos1","LOCALS",1)
  !Global("GelSpeedNeg5","LOCALS",1)
  !Global("GelSpeedNeg4","LOCALS",1)
  !Global("GelSpeedNeg3","LOCALS",1)
  !Global("GelSpeedNeg2","LOCALS",1)
  !Global("GelSpeedNeg1","LOCALS",1)
  !Global("GelFireResPos50","LOCALS",1)
  !Global("GelFireResPos40","LOCALS",1)
  !Global("GelFireResPos30","LOCALS",1)
  !Global("GelFireResPos20","LOCALS",1)
  !Global("GelFireResPos10","LOCALS",1)
  !Global("GelFireResNeg50","LOCALS",1)
  !Global("GelFireResNeg40","LOCALS",1)
  !Global("GelFireResNeg30","LOCALS",1)
  !Global("GelFireResNeg20","LOCALS",1)
  !Global("GelFireResNeg10","LOCALS",1)
  !Global("GelColdResPos50","LOCALS",1)
  !Global("GelColdResPos40","LOCALS",1)
  !Global("GelColdResPos30","LOCALS",1)
  !Global("GelColdResPos20","LOCALS",1)
  !Global("GelColdResPos10","LOCALS",1)
  !Global("GelColdResNeg50","LOCALS",1)
  !Global("GelColdResNeg40","LOCALS",1)
  !Global("GelColdResNeg30","LOCALS",1)
  !Global("GelColdResNeg20","LOCALS",1)
  !Global("GelColdResNeg10","LOCALS",1)
  !Global("GelLightningResPos50","LOCALS",1)
  !Global("GelLightningResPos40","LOCALS",1)
  !Global("GelLightningResPos30","LOCALS",1)
  !Global("GelLightningResPos20","LOCALS",1)
  !Global("GelLightningResPos10","LOCALS",1)
  !Global("GelLightningResNeg50","LOCALS",1)
  !Global("GelLightningResNeg40","LOCALS",1)
  !Global("GelLightningResNeg30","LOCALS",1)
  !Global("GelLightningResNeg20","LOCALS",1)
  !Global("GelLightningResNeg10","LOCALS",1)
  !Global("GelAcidResPos50","LOCALS",1)
  !Global("GelAcidResPos40","LOCALS",1)
  !Global("GelAcidResPos30","LOCALS",1)
  !Global("GelAcidResPos20","LOCALS",1)
  !Global("GelAcidResPos10","LOCALS",1)
  !Global("GelAcidResNeg50","LOCALS",1)
  !Global("GelAcidResNeg40","LOCALS",1)
  !Global("GelAcidResNeg30","LOCALS",1)
  !Global("GelAcidResNeg20","LOCALS",1)
  !Global("GelAcidResNeg10","LOCALS",1)
  !Global("GelPoisonResPos50","LOCALS",1)
  !Global("GelPoisonResPos40","LOCALS",1)
  !Global("GelPoisonResPos30","LOCALS",1)
  !Global("GelPoisonResPos20","LOCALS",1)
  !Global("GelPoisonResPos10","LOCALS",1)
  !Global("GelPoisonResNeg50","LOCALS",1)
  !Global("GelPoisonResNeg40","LOCALS",1)
  !Global("GelPoisonResNeg30","LOCALS",1)
  !Global("GelPoisonResNeg20","LOCALS",1)
  !Global("GelPoisonResNeg10","LOCALS",1)
  !Global("GelMagicResPos50","LOCALS",1)
  !Global("GelMagicResPos40","LOCALS",1)
  !Global("GelMagicResPos30","LOCALS",1)
  !Global("GelMagicResPos20","LOCALS",1)
  !Global("GelMagicResPos10","LOCALS",1)
  !Global("GelMagicResNeg50","LOCALS",1)
  !Global("GelMagicResNeg40","LOCALS",1)
  !Global("GelMagicResNeg30","LOCALS",1)
  !Global("GelMagicResNeg20","LOCALS",1)
  !Global("GelMagicResNeg10","LOCALS",1)
  !Global("GelMagicRedPos50","LOCALS",1)
  !Global("GelMagicRedPos40","LOCALS",1)
  !Global("GelMagicRedPos30","LOCALS",1)
  !Global("GelMagicRedPos20","LOCALS",1)
  !Global("GelMagicRedPos10","LOCALS",1)
  !Global("GelMagicRedNeg50","LOCALS",1)
  !Global("GelMagicRedNeg40","LOCALS",1)
  !Global("GelMagicRedNeg30","LOCALS",1)
  !Global("GelMagicRedNeg20","LOCALS",1)
  !Global("GelMagicRedNeg10","LOCALS",1)
  !Global("GelPhysResPos50","LOCALS",1)
  !Global("GelPhysResPos40","LOCALS",1)
  !Global("GelPhysResPos30","LOCALS",1)
  !Global("GelPhysResPos20","LOCALS",1)
  !Global("GelPhysResPos10","LOCALS",1)
  !Global("GelPhysResNeg50","LOCALS",1)
  !Global("GelPhysResNeg40","LOCALS",1)
  !Global("GelPhysResNeg30","LOCALS",1)
  !Global("GelPhysResNeg20","LOCALS",1)
  !Global("GelPhysResNeg10","LOCALS",1)
  !Global("GelTwoHandedSwordsProfPos1","LOCALS",1)
  !Global("GelTwoHandedSwordsProfPos2","LOCALS",1)
  !Global("GelTwoHandedSwordsProfPos3","LOCALS",1)
  !Global("GelTwoHandedSwordsProfPos4","LOCALS",1)
  !Global("GelTwoHandedSwordsProfPos5","LOCALS",1)
  !Global("GelBastardSwordsProfPos1","LOCALS",1)
  !Global("GelBastardSwordsProfPos2","LOCALS",1)
  !Global("GelBastardSwordsProfPos3","LOCALS",1)
  !Global("GelBastardSwordsProfPos4","LOCALS",1)
  !Global("GelBastardSwordsProfPos5","LOCALS",1)
  !Global("GelLongSwordsProfPos1","LOCALS",1)
  !Global("GelLongSwordsProfPos2","LOCALS",1)
  !Global("GelLongSwordsProfPos3","LOCALS",1)
  !Global("GelLongSwordsProfPos4","LOCALS",1)
  !Global("GelLongSwordsProfPos5","LOCALS",1)
  !Global("GelShortSwordsProfPos1","LOCALS",1)
  !Global("GelShortSwordsProfPos2","LOCALS",1)
  !Global("GelShortSwordsProfPos3","LOCALS",1)
  !Global("GelShortSwordsProfPos4","LOCALS",1)
  !Global("GelShortSwordsProfPos5","LOCALS",1)
  !Global("GelDaggersProfPos1","LOCALS",1)
  !Global("GelDaggersProfPos2","LOCALS",1)
  !Global("GelDaggersProfPos3","LOCALS",1)
  !Global("GelDaggersProfPos4","LOCALS",1)
  !Global("GelDaggersProfPos5","LOCALS",1)
  !Global("GelKatanaProfPos1","LOCALS",1)
  !Global("GelKatanaProfPos2","LOCALS",1)
  !Global("GelKatanaProfPos3","LOCALS",1)
  !Global("GelKatanaProfPos4","LOCALS",1)
  !Global("GelKatanaProfPos5","LOCALS",1)
  !Global("GelScimitarProfPos1","LOCALS",1)
  !Global("GelScimitarProfPos2","LOCALS",1)
  !Global("GelScimitarProfPos3","LOCALS",1)
  !Global("GelScimitarProfPos4","LOCALS",1)
  !Global("GelScimitarProfPos5","LOCALS",1)
  !Global("GelAxeProfPos1","LOCALS",1)
  !Global("GelAxeProfPos2","LOCALS",1)
  !Global("GelAxeProfPos3","LOCALS",1)
  !Global("GelAxeProfPos4","LOCALS",1)
  !Global("GelAxeProfPos5","LOCALS",1)
  !Global("GelSpearProfPos1","LOCALS",1)
  !Global("GelSpearProfPos2","LOCALS",1)
  !Global("GelSpearProfPos3","LOCALS",1)
  !Global("GelSpearProfPos4","LOCALS",1)
  !Global("GelSpearProfPos5","LOCALS",1)
  !Global("GelHalbProfPos1","LOCALS",1)
  !Global("GelHalbProfPos2","LOCALS",1)
  !Global("GelHalbProfPos3","LOCALS",1)
  !Global("GelHalbProfPos4","LOCALS",1)
  !Global("GelHalbProfPos5","LOCALS",1)
  !Global("GelFlailProfPos1","LOCALS",1)
  !Global("GelFlailProfPos2","LOCALS",1)
  !Global("GelFlailProfPos3","LOCALS",1)
  !Global("GelFlailProfPos4","LOCALS",1)
  !Global("GelFlailProfPos5","LOCALS",1)
  !Global("GelMaceProfPos1","LOCALS",1)
  !Global("GelMaceProfPos2","LOCALS",1)
  !Global("GelMaceProfPos3","LOCALS",1)
  !Global("GelMaceProfPos4","LOCALS",1)
  !Global("GelMaceProfPos5","LOCALS",1)
  !Global("GelWHamProfPos1","LOCALS",1)
  !Global("GelWHamProfPos2","LOCALS",1)
  !Global("GelWHamProfPos3","LOCALS",1)
  !Global("GelWHamProfPos4","LOCALS",1)
  !Global("GelWHamProfPos5","LOCALS",1)
  !Global("GelClubProfPos1","LOCALS",1)
  !Global("GelClubProfPos2","LOCALS",1)
  !Global("GelClubProfPos3","LOCALS",1)
  !Global("GelClubProfPos4","LOCALS",1)
  !Global("GelClubProfPos5","LOCALS",1)
  !Global("GelQStaProfPos1","LOCALS",1)
  !Global("GelQStaProfPos2","LOCALS",1)
  !Global("GelQStaProfPos3","LOCALS",1)
  !Global("GelQStaProfPos4","LOCALS",1)
  !Global("GelQStaProfPos5","LOCALS",1)
  !Global("GelSlingProfPos1","LOCALS",1)
  !Global("GelSlingProfPos2","LOCALS",1)
  !Global("GelSlingProfPos3","LOCALS",1)
  !Global("GelSlingProfPos4","LOCALS",1)
  !Global("GelSlingProfPos5","LOCALS",1)
  !Global("GelSBowProfPos1","LOCALS",1)
  !Global("GelSBowProfPos2","LOCALS",1)
  !Global("GelSBowProfPos3","LOCALS",1)
  !Global("GelSBowProfPos4","LOCALS",1)
  !Global("GelSBowProfPos5","LOCALS",1)
  !Global("GelLBowProfPos1","LOCALS",1)
  !Global("GelLBowProfPos2","LOCALS",1)
  !Global("GelLBowProfPos3","LOCALS",1)
  !Global("GelLBowProfPos4","LOCALS",1)
  !Global("GelLBowProfPos5","LOCALS",1)
  !Global("GelXBowProfPos1","LOCALS",1)
  !Global("GelXBowProfPos2","LOCALS",1)
  !Global("GelXBowProfPos3","LOCALS",1)
  !Global("GelXBowProfPos4","LOCALS",1)
  !Global("GelXBowProfPos5","LOCALS",1)
  !Global("GelTwoWeaponStyleProfPos1","LOCALS",1)
  !Global("GelTwoWeaponStyleProfPos2","LOCALS",1)
  !Global("GelTwoWeaponStyleProfPos3","LOCALS",1)
  !Global("GelSingleWeaponStyleProfPos1","LOCALS",1)
  !Global("GelSingleWeaponStyleProfPos2","LOCALS",1)
  !Global("GelSwordShieldStyleProfPos1","LOCALS",1)
  !Global("GelSwordShieldStyleProfPos2","LOCALS",1)
  !Global("GelTwoHandedStyleProfPos1","LOCALS",1)
  !Global("GelTwoHandedStyleProfPos2","LOCALS",1)
  !Global("GelImmuneCharm","LOCALS",1)
  !Global("GelImmuneFear","LOCALS",1)
  !Global("GelImmuneSleep","LOCALS",1)
  !Global("GelImmuneStun","LOCALS",1)
  !Global("GelImmuneDiseases","LOCALS",1)
  !Global("GelImmuneLvlDrain","LOCALS",1)
  !Global("GelImmuneFreeAction","LOCALS",1)
  !Global("GelMoveMentBonus2","LOCALS",1)
  !Global("GelMoveMentBonus4","LOCALS",1)
  !Global("GelMoveMentBonus6","LOCALS",1)
  !Global("GelMoveMentBonusx2","LOCALS",1)
  !Global("GelImprovedAlacricity","LOCALS",1)
  !Global("GelUseAnyItem","LOCALS",1)
  !Global("GelIA_UAI","LOCALS",1)
  !Global("GelSavingThrowsNeg2","LOCALS",1)
  !Global("GelSavingThrowsNeg1","LOCALS",1)
  !Global("GelSavingThrowsPos1","LOCALS",1)
  !Global("GelSavingThrowsPos2","LOCALS",1)
  !Global("GelGreaterWirlwind","LOCALS",1)
  !Global("GelGreaterDeathblow","LOCALS",1)
  !Global("GelCriticalStrike","LOCALS",1)
  !Global("GelHardiness","LOCALS",1)
  !Global("GelPowerStrike","LOCALS",1)
  !Global("GelSmite","LOCALS",1)
  !Global("GelFavouredByTheSpirits","LOCALS",1)
  !Global("GelDeva","LOCALS",1)
  !Global("GelFallenDeva","LOCALS",1)
  !Global("GelSpikeTrap","LOCALS",1)
  !Global("GelTimeStopTrap","LOCALS",1)
  !Global("GelShapechangeFire","LOCALS",1)
  !Global("GelShapechangeEarth","LOCALS",1)
  !Global("GelBreathFire","LOCALS",1)
  !Global("GelPsionicBlast","LOCALS",1)
  !Global("GelShadowStep","LOCALS",1)
  !Global("GelBarbarianRage","LOCALS",1)
  !Global("GelBerserkerRage","LOCALS",1)
  !Global("GelKai","LOCALS",1)
  !Global("GelCalledShot","LOCALS",1)
  !Global("GelBlindness","LOCALS",1)
  !Global("GelMirrorImmage","LOCALS",1)
  !Global("GelBlur","LOCALS",1)
  !Global("GelChillingFist","LOCALS",1)
  !Global("GelFlamingFist","LOCALS",1)
  !Global("GelLuckBonusPlus1","LOCALS",1)
  !Global("GelLuckBonusPlus2","LOCALS",1)
  !Global("GelLuckBonusPlus3","LOCALS",1)
  !Global("GelLuckBonusPlus4","LOCALS",1)
  !Global("GelLuckBonusMinus1","LOCALS",1)
  !Global("GelLuckBonusMinus2","LOCALS",1)
  !Global("GelLuckBonusMinus3","LOCALS",1)
  !Global("GelLuckBonusMinus4","LOCALS",1)
  !Global("GelLoreBonusPlus1","LOCALS",1)
  !Global("GelLoreBonusPlus2","LOCALS",1)
  !Global("GelLoreBonusPlus3","LOCALS",1)
  !Global("GelLoreBonusPlus4","LOCALS",1)
  !Global("GelLoreBonusMinus1","LOCALS",1)
  !Global("GelLoreBonusMinus2","LOCALS",1)
  !Global("GelLoreBonusMinus3","LOCALS",1)
  !Global("GelLoreBonusMinus4","LOCALS",1)
  !Global("GelAllWands","LOCALS",1)
  !Global("GelWolWand","LOCALS",1)
  !Global("GelParalyzeWand","LOCALS",1)
  !Global("GelFireWand","LOCALS",1)
  !Global("GelCloudWand","LOCALS",1)
  !Global("GelSummonWand","LOCALS",1)
  !Global("GelSmokeBPicked","LOCALS",1)
  !Global("GelNinjaSPicked","LOCALS",1)
  !Global("GelNinjaCPicked","LOCALS",1)
  !Global("GelInvisiblePicked","LOCALS",1)
  !Global("GelInsectPPicked","LOCALS",1)
  !Global("GelCreepingDPicked","LOCALS",1)
  !Global("GelNaturePPicked","LOCALS",1)
  !Global("GelQuilveringWPicked","LOCALS",1)
  !Global("GelEnergySPicked","LOCALS",1)
THEN
  RESPONSE #100
    SetGlobal("GelTDia_Process","LOCALS",2)
END

IF
  Global("GelTDia_Process","LOCALS",2)
  ActionListEmpty()
THEN
  RESPONSE #100
    DestroySelf()
END

/////// ===== GelKitP.baf ===== ///////

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT KENSAI ////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Kensai: lvl 1 = 2 bonus AC and Gain Kai Ability + restric armor & gauntlet & ranged, each 3 level = 1 daWIZARD and thaco, each 4 level = -1 speedfactor, each 5th level = kai ability //
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
IF
  Global("GelKeepKen","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",1)
	SetGlobal("GelKeepKen","LOCALS",2)
END

IF
  Global("GelKen1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",2)
END

IF
  Global("GelKen1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",3)
END

IF
  Global("GelKen1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",4)
END

IF
  Global("GelKen1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",5)
END

IF
  Global("GelKen1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",6)
END

IF
  Global("GelKen1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",7)
END

IF
  Global("GelKen1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",8)
END

IF
  Global("GelKen1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",9)
END

IF
  Global("GelKen1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",10)
END

IF
  Global("GelKen1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",11)
END

IF
  Global("GelKen1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",12)
END

IF
  Global("GelKen1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",13)
END

IF
  Global("GelKen1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",14)
END

IF
  Global("GelKen1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",15)
END

IF
  Global("GelKen1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",16)
END

IF
  Global("GelKen1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",17)
END

IF
  Global("GelKen1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",18)
END

IF
  Global("GelKen1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",19)
END

IF
  Global("GelKen1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",20)
END

IF
  Global("GelKen1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",21)
END

IF
  Global("GelKen1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",22)
END

IF
  Global("GelKen1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",23)
END

IF
  Global("GelKen1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",24)
END

IF
  Global("GelKen1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",25)
END

IF
  Global("GelKen1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",26)
END

IF
  Global("GelKen1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",27)
END

IF
  Global("GelKen1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",28)
END

IF
  Global("GelKen1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",29)
END

IF
  Global("GelKen1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",30)
END

IF
  Global("GelKen1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",31)
END

IF
  Global("GelKen1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",32)
END

IF
  Global("GelKen1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",33)
END

IF
  Global("GelKen1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",34)
END

IF
  Global("GelKen1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",35)
END

IF
  Global("GelKen1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",36)
END

IF
  Global("GelKen1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",37)
END

IF
  Global("GelKen1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",38)
END

IF
  Global("GelKen1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",39)
END

IF
  Global("GelKen1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    SetGlobal("GelKen1","LOCALS",40)
END

//////////////////////////////REACTIVATION KENSAI////////////////////////////////////////////////

IF
  Global("GelKen1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,PRIEST,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,PRIEST,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,PRIEST,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,PRIEST,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,PRIEST,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,PRIEST,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,PRIEST,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,PRIEST,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,PRIEST,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,PRIEST,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,PRIEST,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,PRIEST,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,PRIEST,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,PRIEST,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,PRIEST,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,PRIEST,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,PRIEST,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,PRIEST,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,PRIEST,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,PRIEST,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,PRIEST,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,PRIEST,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,PRIEST,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,PRIEST,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,PRIEST,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,PRIEST,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,PRIEST,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,PRIEST,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,PRIEST,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,PRIEST,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,PRIEST,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,PRIEST,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,PRIEST,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,PRIEST,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,PRIEST,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,PRIEST,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,PRIEST,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,PRIEST,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,PRIEST,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,PRIEST,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,KENSAI)
THEN
  RESPONSE #100
    ApplySpellRES("GelKen1",Myself) // Kai, 2 bonus AC.
	ApplySpellRES("GelKenI",Myself) // Restrictions
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen3",Myself) // +1thaco & daWIZARD
    ApplySpellRES("GelKen5",Myself) // Learn Kai
    ApplySpellRES("GelKen4",Myself) // -1 speed factor
    SetGlobal("GelKen1","LOCALS",60)
END

IF
  Global("GelKen1","LOCALS",60)
  Global("GelKeepKen","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepKen","LOCALS",3)
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT BERSERKER ///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Berserker: lvl1 = Enrage 1/day (+2 THAC0/dmg, -2 AC, immunities, +15 temp HP), restrictions(May not specialize in ranged wepons(1 pip max?)
// +1 Enrage use every 4 WARRIOR levels (5/9/13/17/21/25/29/33/37)
// Reactivation when ROGUE level > first class level
// Uses GelKeepBer (set in dialog), GelBer1 (base), GelBer4 (+1 enrage use)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER ///////////////////////////////
IF
  Global("GelKeepBer","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",1)
	SetGlobal("GelKeepBer","LOCALS",2)
END

IF
  Global("GelBer1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",2)
END

IF
  Global("GelBer1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",3)
END

IF
  Global("GelBer1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",4)
END

IF
  Global("GelBer1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",5)
END

IF
  Global("GelBer1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",6)
END

IF
  Global("GelBer1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",7)
END

IF
  Global("GelBer1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",8)
END

IF
  Global("GelBer1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",9)
END

IF
  Global("GelBer1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",10)
END

IF
  Global("GelBer1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",11)
END

IF
  Global("GelBer1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",12)
END

IF
  Global("GelBer1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",13)
END

IF
  Global("GelBer1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",14)
END

IF
  Global("GelBer1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",15)
END

IF
  Global("GelBer1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",16)
END

IF
  Global("GelBer1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",17)
END

IF
  Global("GelBer1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",18)
END

IF
  Global("GelBer1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",19)
END

IF
  Global("GelBer1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",20)
END

IF
  Global("GelBer1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",21)
END

IF
  Global("GelBer1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",22)
END

IF
  Global("GelBer1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",23)
END

IF
  Global("GelBer1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",24)
END

IF
  Global("GelBer1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",25)
END

IF
  Global("GelBer1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",26)
END

IF
  Global("GelBer1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",27)
END

IF
  Global("GelBer1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",28)
END

IF
  Global("GelBer1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",29)
END

IF
  Global("GelBer1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",30)
END

IF
  Global("GelBer1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",31)
END

IF
  Global("GelBer1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",32)
END

IF
  Global("GelBer1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",33)
END

IF
  Global("GelBer1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",34)
END

IF
  Global("GelBer1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",35)
END

IF
  Global("GelBer1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",36)
END

IF
  Global("GelBer1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",37)
END

IF
  Global("GelBer1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",38)
END

IF
  Global("GelBer1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",39)
END

IF
  Global("GelBer1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    SetGlobal("GelBer1","LOCALS",40)
END

/////////////////////////////// REACTIVATION ///////////////////////////////
IF
  Global("GelBer1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,PRIEST,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)   // Base only
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,PRIEST,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,PRIEST,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,PRIEST,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,PRIEST,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,PRIEST,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,PRIEST,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,PRIEST,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,PRIEST,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,PRIEST,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,PRIEST,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,PRIEST,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,PRIEST,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,PRIEST,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,PRIEST,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,PRIEST,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,PRIEST,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,PRIEST,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,PRIEST,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,PRIEST,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,PRIEST,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,PRIEST,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,PRIEST,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,PRIEST,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,PRIEST,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,PRIEST,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,PRIEST,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,PRIEST,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,PRIEST,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,PRIEST,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,PRIEST,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,PRIEST,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,PRIEST,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,PRIEST,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,PRIEST,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,PRIEST,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,PRIEST,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,PRIEST,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,PRIEST,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

IF
  Global("GelBer1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,PRIEST,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,BERSERKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelBer1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelBer1","LOCALS",60)
  Global("GelKeepBer","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepBer","LOCALS",3)
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT BARBARIAN ///////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Barbarian: lvl1 = +2 move, 15% phys res, restrictions, 1 rage/day
// +1 rage every 4 levels (5/9/13/17/21/25/29/33/37)
// +5% phys res at 11/15/19
// Progression stops at dual level (first class locked)
// Reactivation when ROGUE level > first class level
// Uses GelKeepBar (set in dialog), GelBar1/GelBar4/GelBarR spells
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (før reactivation) ///////////////////////////////
IF
  Global("GelKeepBar","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",1)
	SetGlobal("GelKeepBar","LOCALS",2)
END

IF
  Global("GelBar1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",2)
END

IF
  Global("GelBar1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",3)
END

IF
  Global("GelBar1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",4)
END

IF
  Global("GelBar1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",5)
END

IF
  Global("GelBar1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",6)
END

IF
  Global("GelBar1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",7)
END

IF
  Global("GelBar1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",8)
END

IF
  Global("GelBar1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",9)
END

IF
  Global("GelBar1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",10)
END

IF
  Global("GelBar1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",11)
END

IF
  Global("GelBar1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",12)
END

IF
  Global("GelBar1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",13)
END

IF
  Global("GelBar1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",14)
END

IF
  Global("GelBar1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",15)
END

IF
  Global("GelBar1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",16)
END

IF
  Global("GelBar1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",17)
END

IF
  Global("GelBar1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",18)
END

IF
  Global("GelBar1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",19)
END

IF
  Global("GelBar1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",20)
END

IF
  Global("GelBar1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",21)
END

IF
  Global("GelBar1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",22)
END

IF
  Global("GelBar1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",23)
END

IF
  Global("GelBar1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",24)
END

IF
  Global("GelBar1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",25)
END

IF
  Global("GelBar1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",26)
END

IF
  Global("GelBar1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",27)
END

IF
  Global("GelBar1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",28)
END

IF
  Global("GelBar1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",29)
END

IF
  Global("GelBar1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",30)
END

IF
  Global("GelBar1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",31)
END

IF
  Global("GelBar1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",32)
END

IF
  Global("GelBar1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",33)
END

IF
  Global("GelBar1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",34)
END

IF
  Global("GelBar1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",35)
END

IF
  Global("GelBar1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",36)
END

IF
  Global("GelBar1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",37)
END

IF
  Global("GelBar1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",38)
END

IF
  Global("GelBar1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",39)
END

IF
  Global("GelBar1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    SetGlobal("GelBar1","LOCALS",40)
END

/////////////////////////////// REACTIVATION (når ROGUE > first class level) ///////////////////////////////
IF
  Global("GelBar1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,PRIEST,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)   // +1 rage
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,PRIEST,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,PRIEST,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,PRIEST,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)   // +1 rage
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,PRIEST,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,PRIEST,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,PRIEST,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,PRIEST,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)   // +1 rage
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,PRIEST,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,PRIEST,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,PRIEST,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,PRIEST,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,PRIEST,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,PRIEST,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,PRIEST,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,PRIEST,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,PRIEST,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,PRIEST,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,PRIEST,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,PRIEST,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,PRIEST,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,PRIEST,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,PRIEST,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,PRIEST,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,PRIEST,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,PRIEST,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,PRIEST,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,PRIEST,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,PRIEST,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,PRIEST,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,PRIEST,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,PRIEST,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,PRIEST,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,PRIEST,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,PRIEST,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,PRIEST,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,PRIEST,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,PRIEST,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,PRIEST,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

IF
  Global("GelBar1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,PRIEST,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,BARBARIAN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   // Base only: 3 to 2 wep style, moves 2 points faster, immune to backstab. Learn Rage.
	ReallyForceSpellRES("GelBarI",Myself)   // Restrictions
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBarR",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelBar1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelBar1","LOCALS",60)
  Global("GelKeepBar","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepBar","LOCALS",3)   // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT DWARVEN DEFENDER //////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Dwarven Defender (EE only): lvl1 = Defensive Stance 1/day + restrictions
// +1 Defensive Stance use every 4 WARRIOR levels (5/9/13/17/21/25/29/33/37)
// +5% resistance to crushing/slashing/piercing/missile every 5 levels (5/10/15/20 cap)
// +1 permanent AC every 5 levels (mod-style: 5/10/15/20/25/30/35/40)
// Hit Die: d12 (handled by class, no need in script)
// Restrictions: High Mastery max in axes/war hammers, Specialization max in others (comment only - hard to enforce via spell)
// Reactivation when ROGUE level > first class level
// Uses GelKeepDwD (set in dialog), GelDwD1 (base), GelDwD2 (stance), GelDwD3 (phys res), GelDwD4 (AC)
// HUSK Å LAG LEVEL INCREASED SPELLS PÅ DENNE
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepDwD","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",1)
	SetGlobal("GelKeepDwD","LOCALS",2)
END

IF
  Global("GelDwD1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",2)
END

IF
  Global("GelDwD1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",3)
END

IF
  Global("GelDwD1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",4)
END

IF
  Global("GelDwD1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",5)
END

IF
  Global("GelDwD1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",6)
END

IF
  Global("GelDwD1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",7)
END

IF
  Global("GelDwD1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",8)
END

IF
  Global("GelDwD1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",9)
END

IF
  Global("GelDwD1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",10)
END

IF
  Global("GelDwD1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",11)
END

IF
  Global("GelDwD1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",12)
END

IF
  Global("GelDwD1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",13)
END

IF
  Global("GelDwD1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",14)
END

IF
  Global("GelDwD1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",15)
END

IF
  Global("GelDwD1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",16)
END

IF
  Global("GelDwD1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",17)
END

IF
  Global("GelDwD1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",18)
END

IF
  Global("GelDwD1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",19)
END

IF
  Global("GelDwD1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",20)
END

IF
  Global("GelDwD1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",21)
END

IF
  Global("GelDwD1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",22)
END

IF
  Global("GelDwD1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",23)
END

IF
  Global("GelDwD1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",24)
END

IF
  Global("GelDwD1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",25)
END

IF
  Global("GelDwD1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",26)
END

IF
  Global("GelDwD1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",27)
END

IF
  Global("GelDwD1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",28)
END

IF
  Global("GelDwD1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",29)
END

IF
  Global("GelDwD1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",30)
END

IF
  Global("GelDwD1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",31)
END

IF
  Global("GelDwD1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",32)
END

IF
  Global("GelDwD1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",33)
END

IF
  Global("GelDwD1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",34)
END

IF
  Global("GelDwD1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",35)
END

IF
  Global("GelDwD1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",36)
END

IF
  Global("GelDwD1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",37)
END

IF
  Global("GelDwD1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",38)
END

IF
  Global("GelDwD1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",39)
END

IF
  Global("GelDwD1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    SetGlobal("GelDwD1","LOCALS",40)
END

/////////////////////////////// REACTIVATION (when ROGUE > first class level) ///////////////////////////////
IF
  Global("GelDwD1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,PRIEST,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)   // Base Defensive Stance 1/day + restrictions
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,PRIEST,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,PRIEST,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,PRIEST,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // +1 Stance use (total 2)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,PRIEST,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)   // +5% phys res
    //ReallyForceSpellRES("GelDwD4",Myself)   // +1 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,PRIEST,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,PRIEST,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // total 2 uses
    ReallyForceSpellRES("GelDwD3",Myself)   // 10% res
    //ReallyForceSpellRES("GelDwD4",Myself)   // +2 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,PRIEST,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // +1 use (total 3)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,PRIEST,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)   // 15% res
    //ReallyForceSpellRES("GelDwD4",Myself)   // +3 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,PRIEST,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,PRIEST,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // total 4 uses
    ReallyForceSpellRES("GelDwD3",Myself)   // 20% res cap
    //ReallyForceSpellRES("GelDwD4",Myself)   // +4 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,PRIEST,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,PRIEST,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // +1 use (total 5)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,PRIEST,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,PRIEST,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)   // 20% res (cap)
    //ReallyForceSpellRES("GelDwD4",Myself)   // +5 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,PRIEST,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // total 6 uses
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,PRIEST,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,PRIEST,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,PRIEST,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // +1 use (total 7)
    ReallyForceSpellRES("GelDwD3",Myself)   // 20% cap
    //ReallyForceSpellRES("GelDwD4",Myself)   // +6 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,PRIEST,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,PRIEST,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,PRIEST,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,PRIEST,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,PRIEST,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // +1 use (total 8)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)   // +7 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,PRIEST,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,PRIEST,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,PRIEST,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,PRIEST,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // +1 use (total 9)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)   // +8 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,PRIEST,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,PRIEST,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,PRIEST,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,PRIEST,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // +1 use (total 10)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)   // +8 AC (cap)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,PRIEST,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,PRIEST,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,PRIEST,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,PRIEST,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // max uses
    ReallyForceSpellRES("GelDwD3",Myself)   // max res
    //ReallyForceSpellRES("GelDwD4",Myself)   // max AC
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,PRIEST,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,PRIEST,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,PRIEST,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)
    ReallyForceSpellRES("GelDwD3",Myself)
    //ReallyForceSpellRES("GelDwD4",Myself)
    SetGlobal("GelDwD1","LOCALS",60)
END

IF
  Global("GelDwD1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,PRIEST,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,DWARVEN_DEFENDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDwD1",Myself)
    ReallyForceSpellRES("GelDwD2",Myself)   // max stance uses
    ReallyForceSpellRES("GelDwD3",Myself)   // max phys res 20%
    //ReallyForceSpellRES("GelDwD4",Myself)   // max +8 AC
    SetGlobal("GelDwD1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelDwD1","LOCALS",60)
  Global("GelKeepDwD","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepDwD","LOCALS",3)   // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT WIZARD SLAYER //////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Wizard Slayer: lvl1 = +2 save vs spells, causes spell failure on hit, restrictions (no magic items except weapons/GODHELM/armor/boots/shields/potions/antidotes)
// +1% MR per level to lvl 19 (19%), then +5% on even levels and +1% on odd levels from lvl 20 (to 84% at lvl 40)
// Reactivation when ROGUE level > first class level
// Uses GelKeepWiS (set in dialog), GelWiS1 (base), GelWiST2 (+1 THAC0), GelWiSMr (+1% MR), GelWiSMr5 (+5% MR)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepWiS","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",1)
	SetGlobal("GelKeepWis","LOCALS",2)
END

IF
  Global("GelWiS1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",2)
END

IF
  Global("GelWiS1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",3)
END

IF
  Global("GelWiS1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",4)
END

IF
  Global("GelWiS1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",5)
END

IF
  Global("GelWiS1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",6)
END

IF
  Global("GelWiS1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",7)
END

IF
  Global("GelWiS1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",8)
END

IF
  Global("GelWiS1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",9)
END

IF
  Global("GelWiS1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",10)
END

IF
  Global("GelWiS1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",11)
END

IF
  Global("GelWiS1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",12)
END

IF
  Global("GelWiS1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",13)
END

IF
  Global("GelWiS1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",14)
END

IF
  Global("GelWiS1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",15)
END

IF
  Global("GelWiS1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",16)
END

IF
  Global("GelWiS1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",17)
END

IF
  Global("GelWiS1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",18)
END

IF
  Global("GelWiS1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",19)
END

IF
  Global("GelWiS1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",20)
END

IF
  Global("GelWiS1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",21)
END

IF
  Global("GelWiS1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",22)
END

IF
  Global("GelWiS1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",23)
END

IF
  Global("GelWiS1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",24)
END

IF
  Global("GelWiS1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",25)
END

IF
  Global("GelWiS1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",26)
END

IF
  Global("GelWiS1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",27)
END

IF
  Global("GelWiS1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",28)
END

IF
  Global("GelWiS1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",29)
END

IF
  Global("GelWiS1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",30)
END

IF
  Global("GelWiS1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",31)
END

IF
  Global("GelWiS1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",32)
END

IF
  Global("GelWiS1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",33)
END

IF
  Global("GelWiS1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",34)
END

IF
  Global("GelWiS1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",35)
END

IF
  Global("GelWiS1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",36)
END

IF
  Global("GelWiS1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",37)
END

IF
  Global("GelWiS1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",38)
END

IF
  Global("GelWiS1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",39)
END

IF
  Global("GelWiS1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    SetGlobal("GelWiS1","LOCALS",40)
END

/////////////////////////////// REACTIVATION (ROGUE > first class level) ///////////////////////////////
IF
  Global("GelWiS1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,PRIEST,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,PRIEST,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,PRIEST,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,PRIEST,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,PRIEST,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,PRIEST,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,PRIEST,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,PRIEST,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,PRIEST,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,PRIEST,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,PRIEST,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,PRIEST,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,PRIEST,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,PRIEST,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,PRIEST,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,PRIEST,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,PRIEST,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,PRIEST,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,PRIEST,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,PRIEST,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,PRIEST,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,PRIEST,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,PRIEST,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,PRIEST,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,PRIEST,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,PRIEST,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,PRIEST,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,PRIEST,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,PRIEST,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,PRIEST,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,PRIEST,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,PRIEST,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,PRIEST,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,PRIEST,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,PRIEST,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,PRIEST,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,PRIEST,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,PRIEST,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,PRIEST,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

IF
  Global("GelWiS1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,PRIEST,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,WIZARDSLAYER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWiS1",Myself)   // Base: +2 save vs spells, spell failure on hit, magic res(scaled 1 to 19, then 1% more 21, 23, 25, 27 etc NONE even levels after 19)
	ReallyForceSpellRES("GelWiSI",Myself)   // Restrictions
    ReallyForceSpellRES("GelWiS2",Myself) /// 5% scaled each EVEN levels 20-40 (example 5% at lvl20, 10% at lvl25 etc.)
    SetGlobal("GelWiS1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelWiS1","LOCALS",60)
  Global("GelKeepWiS","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepWiS","LOCALS",3)   // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT PRIEST OF GODTALOS ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// PRIEST of GODTALOS (Stormlord): lvl1 = Lightning Bolt 1/day + Storm Shield 1/day + restrictions
// +1 Lightning Bolt use every 5 PRIEST levels (5/10/15/20/25/30/35 → total 7 uses)
// +1 Storm Shield use every 10 PRIEST levels (10/20/30 → total 4 uses)
// Reactivation when ROGUE level > first class level (PRIEST level locked)
// Uses GelKeepTal (set in dialog), GelTal1 (Learn Lightning Bolt), GelTal2 (Learn Storm Shield)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelKeepTal","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",1)
	SetGlobal("GelKeepTal","LOCALS",2)
END

IF
  Global("GelTal1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",2)
END

IF
  Global("GelTal1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",3)
END

IF
  Global("GelTal1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",4)
END

IF
  Global("GelTal1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",5)
END

IF
  Global("GelTal1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",6)
END

IF
  Global("GelTal1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",7)
END

IF
  Global("GelTal1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",8)
END

IF
  Global("GelTal1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",9)
END

IF
  Global("GelTal1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",10)
END

IF
  Global("GelTal1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",11)
END

IF
  Global("GelTal1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",12)
END

IF
  Global("GelTal1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",13)
END

IF
  Global("GelTal1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",14)
END

IF
  Global("GelTal1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",15)
END

IF
  Global("GelTal1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",16)
END

IF
  Global("GelTal1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",17)
END

IF
  Global("GelTal1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",18)
END

IF
  Global("GelTal1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",19)
END

IF
  Global("GelTal1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",20)
END

IF
  Global("GelTal1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",21)
END

IF
  Global("GelTal1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",22)
END

IF
  Global("GelTal1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",23)
END

IF
  Global("GelTal1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",24)
END

IF
  Global("GelTal1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",25)
END

IF
  Global("GelTal1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",26)
END

IF
  Global("GelTal1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",27)
END

IF
  Global("GelTal1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",28)
END

IF
  Global("GelTal1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",29)
END

IF
  Global("GelTal1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",30)
END

IF
  Global("GelTal1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",31)
END

IF
  Global("GelTal1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",32)
END

IF
  Global("GelTal1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",33)
END

IF
  Global("GelTal1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",34)
END

IF
  Global("GelTal1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",35)
END

IF
  Global("GelTal1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",36)
END

IF
  Global("GelTal1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",37)
END

IF
  Global("GelTal1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",38)
END

IF
  Global("GelTal1","LOCALS",38)
  ClassLevelGT(Myself,PRIEST,38)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",39)
END

IF
  Global("GelTal1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
    SetGlobal("GelTal1","LOCALS",40)
END
// Can you continue til 40?

/////////////////////////////// REACTIVATION (ROGUE > first class level) ///////////////////////////////
IF
  Global("GelTal1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,WARRIOR,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,WARRIOR,1)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,WARRIOR,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,WARRIOR,2)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,WARRIOR,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,WARRIOR,3)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,WARRIOR,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,WARRIOR,4)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,WARRIOR,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,WARRIOR,5)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,WARRIOR,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,WARRIOR,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,WARRIOR,7)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,WARRIOR,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,WARRIOR,8)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,WARRIOR,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,WARRIOR,9)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,WARRIOR,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,WARRIOR,10)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,WARRIOR,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,WARRIOR,11)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,WARRIOR,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,WARRIOR,12)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,WARRIOR,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,WARRIOR,13)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,WARRIOR,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,WARRIOR,14)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,WARRIOR,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,WARRIOR,15)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,WARRIOR,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,WARRIOR,16)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,WARRIOR,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,WARRIOR,17)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,WARRIOR,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,WARRIOR,18)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,WARRIOR,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,WARRIOR,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,WARRIOR,20)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,WARRIOR,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,WARRIOR,21)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,WARRIOR,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,WARRIOR,22)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,WARRIOR,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,WARRIOR,23)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,WARRIOR,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,WARRIOR,24)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,WARRIOR,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,WARRIOR,25)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,WARRIOR,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,WARRIOR,26)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,WARRIOR,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,WARRIOR,27)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,WARRIOR,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,WARRIOR,28)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,WARRIOR,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,WARRIOR,29)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,WARRIOR,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,WARRIOR,30)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,WARRIOR,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,WARRIOR,31)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,WARRIOR,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,WARRIOR,32)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,WARRIOR,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,WARRIOR,33)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,WARRIOR,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,WARRIOR,34)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,WARRIOR,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,WARRIOR,35)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,WARRIOR,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,WARRIOR,36)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,WARRIOR,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,WARRIOR,37)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,WARRIOR,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,WARRIOR,38)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,WARRIOR,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,WARRIOR,39)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

IF
  Global("GelTal1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,WARRIOR,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,WARRIOR,40)
  !Kit(Myself,GODTALOS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal7",Myself)   // Learn Storm Shield
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    ReallyForceSpellRES("GelTal5",Myself)   // Learn Lightning Bolt
    SetGlobal("GelTal1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelTal1","LOCALS",60)
  Global("GelKeepTal","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepTal","LOCALS",3)   // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT PRIEST OF GODLATHANDER ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// PRIEST of GODLATHANDER: lvl1 = Hold Undead 1/day + Boon of GODLATHANDER 1/day + restrictions
// +1 Hold Undead use every 5 PRIEST levels (5/10/15/20/25/30/35 → total 8 uses)
// +1 Boon of GODLATHANDER use every 10 PRIEST levels (10/20/30 → total 4 uses)
// Reactivation when ROGUE level > first class level (PRIEST level locked)
// Uses GelKeepLat (set in dialog), GelLat1 (Learn Hold Undead), GelLat2 (Learn Boon of GODLATHANDER)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepLat","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",1)
	SetGlobal("GelKeepLat","LOCALS",2)
END

IF
  Global("GelLat1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",2)
END

IF
  Global("GelLat1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",3)
END

IF
  Global("GelLat1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",4)
END

IF
  Global("GelLat1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",5)
END

IF
  Global("GelLat1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",6)
END

IF
  Global("GelLat1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",7)
END

IF
  Global("GelLat1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",8)
END

IF
  Global("GelLat1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",9)
END

IF
  Global("GelLat1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",10)
END

IF
  Global("GelLat1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",11)
END

IF
  Global("GelLat1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",12)
END

IF
  Global("GelLat1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",13)
END

IF
  Global("GelLat1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",14)
END

IF
  Global("GelLat1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",15)
END

IF
  Global("GelLat1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",16)
END

IF
  Global("GelLat1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",17)
END

IF
  Global("GelLat1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",18)
END

IF
  Global("GelLat1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",19)
END

IF
  Global("GelLat1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",20)
END

IF
  Global("GelLat1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",21)
END

IF
  Global("GelLat1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",22)
END

IF
  Global("GelLat1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",23)
END

IF
  Global("GelLat1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",24)
END

IF
  Global("GelLat1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",25)
END

IF
  Global("GelLat1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",26)
END

IF
  Global("GelLat1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",27)
END

IF
  Global("GelLat1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",28)
END

IF
  Global("GelLat1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",29)
END

IF
  Global("GelLat1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",30)
END

IF
  Global("GelLat1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",31)
END

IF
  Global("GelLat1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",32)
END

IF
  Global("GelLat1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",33)
END

IF
  Global("GelLat1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",34)
END

IF
  Global("GelLat1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",35)
END

IF
  Global("GelLat1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",36)
END

IF
  Global("GelLat1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",37)
END

IF
  Global("GelLat1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",38)
END

IF
  Global("GelLat1","LOCALS",38)
  ClassLevelGT(Myself,PRIEST,38)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",39)
END

IF
  Global("GelLat1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
    SetGlobal("GelLat1","LOCALS",40)
END

/////////////////////////////// REACTIVATION (ROGUE > first class level) ///////////////////////////////
IF
  Global("GelLat1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,WARRIOR,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,WARRIOR,1)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself) // Learn Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // Learn Boon of GODLATHANDER
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,WARRIOR,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,WARRIOR,2)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,WARRIOR,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,WARRIOR,3)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,WARRIOR,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,WARRIOR,4)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,WARRIOR,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,WARRIOR,5)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead (total 2)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,WARRIOR,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,WARRIOR,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,WARRIOR,7)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,WARRIOR,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,WARRIOR,8)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,WARRIOR,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,WARRIOR,9)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,WARRIOR,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,WARRIOR,10)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead (total 3)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER (total 2)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead (total 4)
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,WARRIOR,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,WARRIOR,11)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,WARRIOR,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,WARRIOR,12)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,WARRIOR,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,WARRIOR,13)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,WARRIOR,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,WARRIOR,14)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,WARRIOR,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,WARRIOR,15)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead (total 4)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,WARRIOR,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,WARRIOR,16)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,WARRIOR,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,WARRIOR,17)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,WARRIOR,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,WARRIOR,18)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,WARRIOR,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,WARRIOR,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,WARRIOR,20)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead (total 5)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER (total 3)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER (total 3)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,WARRIOR,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,WARRIOR,21)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,WARRIOR,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,WARRIOR,22)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,WARRIOR,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,WARRIOR,23)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,WARRIOR,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,WARRIOR,24)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,WARRIOR,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,WARRIOR,25)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead (total 6)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,WARRIOR,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,WARRIOR,26)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,WARRIOR,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,WARRIOR,27)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,WARRIOR,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,WARRIOR,28)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,WARRIOR,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,WARRIOR,29)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,WARRIOR,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,WARRIOR,30)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,WARRIOR,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,WARRIOR,31)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,WARRIOR,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,WARRIOR,32)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,WARRIOR,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,WARRIOR,33)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,WARRIOR,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,WARRIOR,34)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,WARRIOR,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,WARRIOR,35)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,WARRIOR,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,WARRIOR,36)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,WARRIOR,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,WARRIOR,37)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,WARRIOR,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,WARRIOR,38)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,WARRIOR,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,WARRIOR,39)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

IF
  Global("GelLat1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,WARRIOR,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,WARRIOR,40)
  !Kit(Myself,GODLATHANDER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat1",Myself)
    ReallyForceSpellRES("GelLat5",Myself)
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    ReallyForceSpellRES("GelLat5",Myself) // +1 Boon of GODLATHANDER
    ReallyForceSpellRES("GelLat1",Myself) // +1 Hold Undead
    SetGlobal("GelLat1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelLat1","LOCALS",60)
  Global("GelKeepLat","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepLat","LOCALS",3) // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT PRIEST OF GODHELM ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// PRIEST of GODHELM (Guardian of GODHELM): lvl1 = True Sight 1/day + Seeking Sword 1/day + restrictions
// +1 True Sight use every 5 PRIEST levels (5/10/15/20/25/30/35 → total 8 uses)
// +1 Seeking Sword use every 10 PRIEST levels (10/20/30 → total 4 uses)
// Reactivation when ROGUE level > first class level (PRIEST level locked)
// Uses GelKeepHel (set in dialog), GelHel1 (Learn True Sight), GelHel2 (Learn Seeking Sword)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepHel","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",1)
	SetGlobal("GelKeepHel","LOCALS",2)
END

IF
  Global("GelHel1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",2)
END

IF
  Global("GelHel1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",3)
END

IF
  Global("GelHel1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",4)
END

IF
  Global("GelHel1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",5)
END

IF
  Global("GelHel1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",6)
END

IF
  Global("GelHel1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",7)
END

IF
  Global("GelHel1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",8)
END

IF
  Global("GelHel1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",9)
END

IF
  Global("GelHel1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",10)
END

IF
  Global("GelHel1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",11)
END

IF
  Global("GelHel1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",12)
END

IF
  Global("GelHel1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",13)
END

IF
  Global("GelHel1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",14)
END

IF
  Global("GelHel1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",15)
END

IF
  Global("GelHel1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",16)
END

IF
  Global("GelHel1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",17)
END

IF
  Global("GelHel1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",18)
END

IF
  Global("GelHel1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",19)
END

IF
  Global("GelHel1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",20)
END

IF
  Global("GelHel1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",21)
END

IF
  Global("GelHel1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",22)
END

IF
  Global("GelHel1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",23)
END

IF
  Global("GelHel1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",24)
END

IF
  Global("GelHel1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",25)
END

IF
  Global("GelHel1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",26)
END

IF
  Global("GelHel1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",27)
END

IF
  Global("GelHel1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",28)
END

IF
  Global("GelHel1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",29)
END

IF
  Global("GelHel1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",30)
END

IF
  Global("GelHel1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",31)
END

IF
  Global("GelHel1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",32)
END

IF
  Global("GelHel1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",33)
END

IF
  Global("GelHel1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",34)
END

IF
  Global("GelHel1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",35)
END

IF
  Global("GelHel1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",36)
END

IF
  Global("GelHel1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",37)
END

IF
  Global("GelHel1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",38)
END

IF
  Global("GelHel1","LOCALS",38)
  ClassLevelGT(Myself,PRIEST,38)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",39)
END

IF
  Global("GelHel1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
    SetGlobal("GelHel1","LOCALS",40)
END

/////////////////////////////// REACTIVATION (ROGUE > first class level) ///////////////////////////////
IF
  Global("GelHel1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,WARRIOR,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,WARRIOR,1)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself) // Learn True Sight
    ReallyForceSpellRES("GelHel5",Myself) // Learn Seeking Sword
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,WARRIOR,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,WARRIOR,2)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,WARRIOR,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,WARRIOR,3)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,WARRIOR,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,WARRIOR,4)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,WARRIOR,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,WARRIOR,5)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 2)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,WARRIOR,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,WARRIOR,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,WARRIOR,7)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,WARRIOR,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,WARRIOR,8)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,WARRIOR,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,WARRIOR,9)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,WARRIOR,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,WARRIOR,10)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 3)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword (total 2)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 4)
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,WARRIOR,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,WARRIOR,11)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,WARRIOR,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,WARRIOR,12)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,WARRIOR,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,WARRIOR,13)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,WARRIOR,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,WARRIOR,14)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,WARRIOR,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,WARRIOR,15)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 5)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,WARRIOR,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,WARRIOR,16)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,WARRIOR,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,WARRIOR,17)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,WARRIOR,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,WARRIOR,18)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,WARRIOR,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,WARRIOR,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,WARRIOR,20)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 6)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword (total 3)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword (total 3)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,WARRIOR,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,WARRIOR,21)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,WARRIOR,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,WARRIOR,22)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,WARRIOR,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,WARRIOR,23)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,WARRIOR,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,WARRIOR,24)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,WARRIOR,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,WARRIOR,25)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 7)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,WARRIOR,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,WARRIOR,26)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,WARRIOR,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,WARRIOR,27)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,WARRIOR,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,WARRIOR,28)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,WARRIOR,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,WARRIOR,29)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,WARRIOR,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,WARRIOR,30)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword (total 4)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 8)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,WARRIOR,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,WARRIOR,31)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,WARRIOR,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,WARRIOR,32)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,WARRIOR,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,WARRIOR,33)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,WARRIOR,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,WARRIOR,34)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,WARRIOR,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,WARRIOR,35)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword (total 4)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 8)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,WARRIOR,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,WARRIOR,36)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,WARRIOR,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,WARRIOR,37)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,WARRIOR,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,WARRIOR,38)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,WARRIOR,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,WARRIOR,39)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

IF
  Global("GelHel1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,WARRIOR,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,WARRIOR,40)
  !Kit(Myself,GODHELM)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHel1",Myself)
    ReallyForceSpellRES("GelHel5",Myself)
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword (total 4)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight (total 8)
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    ReallyForceSpellRES("GelHel5",Myself) // +1 Seeking Sword
    ReallyForceSpellRES("GelHel1",Myself) // +1 True Sight
    SetGlobal("GelHel1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelHel1","LOCALS",60)
  Global("GelKeepHel","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepHel","LOCALS",3) // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT PRIEST OF TEMPUS ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// PRIEST of Tempus: lvl1 = Holy Word 1/day + Chaos of Battle 1/day + restrictions
// +1 Holy Word use every 5 PRIEST levels (5/10/15/20/25/30/35/40 → total 9 uses)
// Chaos of Battle: only 1/day (gained at level 1, no additional uses)
// Reactivation when ROGUE level > first class level (PRIEST level locked)
// Uses GelKeepTem (set in dialog), GelTem1 (Learn Holy Word), GelTem2 (Learn Chaos of Battle)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepTem","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",1)
	SetGlobal("GelKeepTem","LOCALS",2)
END

IF
  Global("GelTem1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",2)
END

IF
  Global("GelTem1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",3)
END

IF
  Global("GelTem1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",4)
END

IF
  Global("GelTem1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",5)
END

IF
  Global("GelTem1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",6)
END

IF
  Global("GelTem1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",7)
END

IF
  Global("GelTem1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",8)
END

IF
  Global("GelTem1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",9)
END

IF
  Global("GelTem1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",10)
END

IF
  Global("GelTem1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",11)
END

IF
  Global("GelTem1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",12)
END

IF
  Global("GelTem1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",13)
END

IF
  Global("GelTem1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",14)
END

IF
  Global("GelTem1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",15)
END

IF
  Global("GelTem1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",16)
END

IF
  Global("GelTem1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",17)
END

IF
  Global("GelTem1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",18)
END

IF
  Global("GelTem1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",19)
END

IF
  Global("GelTem1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",20)
END

IF
  Global("GelTem1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",21)
END

IF
  Global("GelTem1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",22)
END

IF
  Global("GelTem1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",23)
END

IF
  Global("GelTem1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",24)
END

IF
  Global("GelTem1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",25)
END

IF
  Global("GelTem1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",26)
END

IF
  Global("GelTem1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",27)
END

IF
  Global("GelTem1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",28)
END

IF
  Global("GelTem1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",29)
END

IF
  Global("GelTem1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",30)
END

IF
  Global("GelTem1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",31)
END

IF
  Global("GelTem1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",32)
END

IF
  Global("GelTem1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",33)
END

IF
  Global("GelTem1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",34)
END

IF
  Global("GelTem1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",35)
END

IF
  Global("GelTem1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",36)
END

IF
  Global("GelTem1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",37)
END

IF
  Global("GelTem1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",38)
END

IF
  Global("GelTem1","LOCALS",38)
  ClassLevelGT(Myself,PRIEST,38)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",39)
END

IF
  Global("GelTem1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
    SetGlobal("GelTem1","LOCALS",40)
END

/////////////////////////////// REACTIVATION (ROGUE > first class level) ///////////////////////////////
IF
  Global("GelTem1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,WARRIOR,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,WARRIOR,1)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Power
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,WARRIOR,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,WARRIOR,2)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,WARRIOR,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,WARRIOR,3)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,WARRIOR,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,WARRIOR,4)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,WARRIOR,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,WARRIOR,5)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 2)
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,WARRIOR,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,WARRIOR,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,WARRIOR,7)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,WARRIOR,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,WARRIOR,8)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,WARRIOR,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,WARRIOR,9)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,WARRIOR,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,WARRIOR,10)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 3)
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 4)
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,WARRIOR,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,WARRIOR,11)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,WARRIOR,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,WARRIOR,12)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,WARRIOR,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,WARRIOR,13)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,WARRIOR,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,WARRIOR,14)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,WARRIOR,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,WARRIOR,15)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 5)
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,WARRIOR,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,WARRIOR,16)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,WARRIOR,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,WARRIOR,17)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,WARRIOR,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,WARRIOR,18)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,WARRIOR,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,WARRIOR,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,WARRIOR,20)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 6)
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,WARRIOR,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,WARRIOR,21)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,WARRIOR,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,WARRIOR,22)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,WARRIOR,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,WARRIOR,23)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,WARRIOR,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,WARRIOR,24)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,WARRIOR,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,WARRIOR,25)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 7)
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,WARRIOR,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,WARRIOR,26)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,WARRIOR,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,WARRIOR,27)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,WARRIOR,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,WARRIOR,28)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,WARRIOR,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,WARRIOR,29)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,WARRIOR,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,WARRIOR,30)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 8)
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,WARRIOR,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,WARRIOR,31)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,WARRIOR,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,WARRIOR,32)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,WARRIOR,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,WARRIOR,33)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,WARRIOR,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,WARRIOR,34)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,WARRIOR,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,WARRIOR,35)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 9)
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,WARRIOR,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,WARRIOR,36)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,WARRIOR,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,WARRIOR,37)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,WARRIOR,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,WARRIOR,38)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,WARRIOR,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,WARRIOR,39)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

IF
  Global("GelTem1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,WARRIOR,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,WARRIOR,40)
  !Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTem1",Myself) // Learn Holy Word
    ReallyForceSpellRES("GelTem2",Myself) // Learn Chaos of Battle
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word (total 9)
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    ReallyForceSpellRES("GelTem1",Myself) // +1 Holy Word
    SetGlobal("GelTem1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelTem1","LOCALS",60)
  Global("GelKeepTem","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepTem","LOCALS",3) // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT PRIEST OF TYR ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// PRIEST of Tyr: lvl1 = Exaltation 1/day + Divine Favour 1/day + restrictions
// +1 Exaltation use every 5 PRIEST levels (5/10/15/20/25/30/35 → total 8 uses)
// +1 Divine Favour use every 10 PRIEST levels (10/20/30 → total 4 uses)
// Reactivation when ROGUE level > first class level (PRIEST level locked)
// Uses GelKeepTyr (set in dialog), GelTyr1 (Learn Exaltation), GelTyr2 (Learn Divine Favour)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepTyr","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",1)
	SetGlobal("GelKeepTyr","LOCALS",2)
END

IF
  Global("GelTyr1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",2)
END

IF
  Global("GelTyr1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",3)
END

IF
  Global("GelTyr1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",4)
END

IF
  Global("GelTyr1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",5)
END

IF
  Global("GelTyr1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",6)
END

IF
  Global("GelTyr1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",7)
END

IF
  Global("GelTyr1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",8)
END

IF
  Global("GelTyr1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",9)
END

IF
  Global("GelTyr1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",10)
END

IF
  Global("GelTyr1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",11)
END

IF
  Global("GelTyr1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",12)
END

IF
  Global("GelTyr1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",13)
END

IF
  Global("GelTyr1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",14)
END

IF
  Global("GelTyr1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",15)
END

IF
  Global("GelTyr1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",16)
END

IF
  Global("GelTyr1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",17)
END

IF
  Global("GelTyr1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",18)
END

IF
  Global("GelTyr1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",19)
END

IF
  Global("GelTyr1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",20)
END

IF
  Global("GelTyr1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",21)
END

IF
  Global("GelTyr1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",22)
END

IF
  Global("GelTyr1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",23)
END

IF
  Global("GelTyr1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",24)
END

IF
  Global("GelTyr1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",25)
END

IF
  Global("GelTyr1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",26)
END

IF
  Global("GelTyr1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",27)
END

IF
  Global("GelTyr1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",28)
END

IF
  Global("GelTyr1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",29)
END

IF
  Global("GelTyr1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",30)
END

IF
  Global("GelTyr1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",31)
END

IF
  Global("GelTyr1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",32)
END

IF
  Global("GelTyr1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",33)
END

IF
  Global("GelTyr1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",34)
END

IF
  Global("GelTyr1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",35)
END

IF
  Global("GelTyr1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",36)
END

IF
  Global("GelTyr1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",37)
END

IF
  Global("GelTyr1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",38)
END

IF
  Global("GelTyr1","LOCALS",38)
  ClassLevelGT(Myself,PRIEST,38)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",39)
END

IF
  Global("GelTyr1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
    SetGlobal("GelTyr1","LOCALS",40)
END

/////////////////////////////// REACTIVATION (ROGUE > first class level) ///////////////////////////////
IF
  Global("GelTyr1","LOCALS",1)
  OR(4)
  ClassLevelGT(Myself,ROGUE,1)
  ClassLevelGT(Myself,WARRIOR,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,WARRIOR,1)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",2)
  OR(4)
  ClassLevelGT(Myself,ROGUE,2)
  ClassLevelGT(Myself,WARRIOR,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,WARRIOR,2)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",3)
  OR(4)
  ClassLevelGT(Myself,ROGUE,3)
  ClassLevelGT(Myself,WARRIOR,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,WARRIOR,3)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",4)
  OR(4)
  ClassLevelGT(Myself,ROGUE,4)
  ClassLevelGT(Myself,WARRIOR,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,WARRIOR,4)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",5)
  OR(4)
  ClassLevelGT(Myself,ROGUE,5)
  ClassLevelGT(Myself,WARRIOR,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,WARRIOR,5)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 2)
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",6)
  OR(4)
  ClassLevelGT(Myself,ROGUE,6)
  ClassLevelGT(Myself,WARRIOR,6)
  ClassLevelGT(Myself,WIZARD,6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",7)
  OR(4)
  ClassLevelGT(Myself,ROGUE,7)
  ClassLevelGT(Myself,WARRIOR,7)
  ClassLevelGT(Myself,WIZARD,7)
  ClassLevelGT(Myself,WARRIOR,7)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",8)
  OR(4)
  ClassLevelGT(Myself,ROGUE,8)
  ClassLevelGT(Myself,WARRIOR,8)
  ClassLevelGT(Myself,WIZARD,8)
  ClassLevelGT(Myself,WARRIOR,8)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",9)
  OR(4)
  ClassLevelGT(Myself,ROGUE,9)
  ClassLevelGT(Myself,WARRIOR,9)
  ClassLevelGT(Myself,WIZARD,9)
  ClassLevelGT(Myself,WARRIOR,9)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",10)
  OR(4)
  ClassLevelGT(Myself,ROGUE,10)
  ClassLevelGT(Myself,WARRIOR,10)
  ClassLevelGT(Myself,WIZARD,10)
  ClassLevelGT(Myself,WARRIOR,10)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 3)
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour (total 2)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 4)
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",11)
  OR(4)
  ClassLevelGT(Myself,ROGUE,11)
  ClassLevelGT(Myself,WARRIOR,11)
  ClassLevelGT(Myself,WIZARD,11)
  ClassLevelGT(Myself,WARRIOR,11)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",12)
  OR(4)
  ClassLevelGT(Myself,ROGUE,12)
  ClassLevelGT(Myself,WARRIOR,12)
  ClassLevelGT(Myself,WIZARD,12)
  ClassLevelGT(Myself,WARRIOR,12)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",13)
  OR(4)
  ClassLevelGT(Myself,ROGUE,13)
  ClassLevelGT(Myself,WARRIOR,13)
  ClassLevelGT(Myself,WIZARD,13)
  ClassLevelGT(Myself,WARRIOR,13)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",14)
  OR(4)
  ClassLevelGT(Myself,ROGUE,14)
  ClassLevelGT(Myself,WARRIOR,14)
  ClassLevelGT(Myself,WIZARD,14)
  ClassLevelGT(Myself,WARRIOR,14)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",15)
  OR(4)
  ClassLevelGT(Myself,ROGUE,15)
  ClassLevelGT(Myself,WARRIOR,15)
  ClassLevelGT(Myself,WIZARD,15)
  ClassLevelGT(Myself,WARRIOR,15)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 5)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",16)
  OR(4)
  ClassLevelGT(Myself,ROGUE,16)
  ClassLevelGT(Myself,WARRIOR,16)
  ClassLevelGT(Myself,WIZARD,16)
  ClassLevelGT(Myself,WARRIOR,16)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",17)
  OR(4)
  ClassLevelGT(Myself,ROGUE,17)
  ClassLevelGT(Myself,WARRIOR,17)
  ClassLevelGT(Myself,WIZARD,17)
  ClassLevelGT(Myself,WARRIOR,17)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",18)
  OR(4)
  ClassLevelGT(Myself,ROGUE,18)
  ClassLevelGT(Myself,WARRIOR,18)
  ClassLevelGT(Myself,WIZARD,18)
  ClassLevelGT(Myself,WARRIOR,18)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",19)
  OR(4)
  ClassLevelGT(Myself,ROGUE,19)
  ClassLevelGT(Myself,WARRIOR,19)
  ClassLevelGT(Myself,WIZARD,19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",20)
  OR(4)
  ClassLevelGT(Myself,ROGUE,20)
  ClassLevelGT(Myself,WARRIOR,20)
  ClassLevelGT(Myself,WIZARD,20)
  ClassLevelGT(Myself,WARRIOR,20)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 6)
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour (total 3)
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",21)
  OR(4)
  ClassLevelGT(Myself,ROGUE,21)
  ClassLevelGT(Myself,WARRIOR,21)
  ClassLevelGT(Myself,WIZARD,21)
  ClassLevelGT(Myself,WARRIOR,21)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",22)
  OR(4)
  ClassLevelGT(Myself,ROGUE,22)
  ClassLevelGT(Myself,WARRIOR,22)
  ClassLevelGT(Myself,WIZARD,22)
  ClassLevelGT(Myself,WARRIOR,22)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",23)
  OR(4)
  ClassLevelGT(Myself,ROGUE,23)
  ClassLevelGT(Myself,WARRIOR,23)
  ClassLevelGT(Myself,WIZARD,23)
  ClassLevelGT(Myself,WARRIOR,23)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",24)
  OR(4)
  ClassLevelGT(Myself,ROGUE,24)
  ClassLevelGT(Myself,WARRIOR,24)
  ClassLevelGT(Myself,WIZARD,24)
  ClassLevelGT(Myself,WARRIOR,24)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",25)
  OR(4)
  ClassLevelGT(Myself,ROGUE,25)
  ClassLevelGT(Myself,WARRIOR,25)
  ClassLevelGT(Myself,WIZARD,25)
  ClassLevelGT(Myself,WARRIOR,25)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 7)
    ReallyForceSpellRES("GelTyr5",Myself)
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",26)
  OR(4)
  ClassLevelGT(Myself,ROGUE,26)
  ClassLevelGT(Myself,WARRIOR,26)
  ClassLevelGT(Myself,WIZARD,26)
  ClassLevelGT(Myself,WARRIOR,26)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",27)
  OR(4)
  ClassLevelGT(Myself,ROGUE,27)
  ClassLevelGT(Myself,WARRIOR,27)
  ClassLevelGT(Myself,WIZARD,27)
  ClassLevelGT(Myself,WARRIOR,27)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",28)
  OR(4)
  ClassLevelGT(Myself,ROGUE,28)
  ClassLevelGT(Myself,WARRIOR,28)
  ClassLevelGT(Myself,WIZARD,28)
  ClassLevelGT(Myself,WARRIOR,28)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",29)
  OR(4)
  ClassLevelGT(Myself,ROGUE,29)
  ClassLevelGT(Myself,WARRIOR,29)
  ClassLevelGT(Myself,WIZARD,29)
  ClassLevelGT(Myself,WARRIOR,29)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",30)
  OR(4)
  ClassLevelGT(Myself,ROGUE,30)
  ClassLevelGT(Myself,WARRIOR,30)
  ClassLevelGT(Myself,WIZARD,30)
  ClassLevelGT(Myself,WARRIOR,30)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour (total 4)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 8)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",31)
  OR(4)
  ClassLevelGT(Myself,ROGUE,31)
  ClassLevelGT(Myself,WARRIOR,31)
  ClassLevelGT(Myself,WIZARD,31)
  ClassLevelGT(Myself,WARRIOR,31)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",32)
  OR(4)
  ClassLevelGT(Myself,ROGUE,32)
  ClassLevelGT(Myself,WARRIOR,32)
  ClassLevelGT(Myself,WIZARD,32)
  ClassLevelGT(Myself,WARRIOR,32)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",33)
  OR(4)
  ClassLevelGT(Myself,ROGUE,33)
  ClassLevelGT(Myself,WARRIOR,33)
  ClassLevelGT(Myself,WIZARD,33)
  ClassLevelGT(Myself,WARRIOR,33)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",34)
  OR(4)
  ClassLevelGT(Myself,ROGUE,34)
  ClassLevelGT(Myself,WARRIOR,34)
  ClassLevelGT(Myself,WIZARD,34)
  ClassLevelGT(Myself,WARRIOR,34)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",35)
  OR(4)
  ClassLevelGT(Myself,ROGUE,35)
  ClassLevelGT(Myself,WARRIOR,35)
  ClassLevelGT(Myself,WIZARD,35)
  ClassLevelGT(Myself,WARRIOR,35)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour (total 4)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 8)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",36)
  OR(4)
  ClassLevelGT(Myself,ROGUE,36)
  ClassLevelGT(Myself,WARRIOR,36)
  ClassLevelGT(Myself,WIZARD,36)
  ClassLevelGT(Myself,WARRIOR,36)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",37)
  OR(4)
  ClassLevelGT(Myself,ROGUE,37)
  ClassLevelGT(Myself,WARRIOR,37)
  ClassLevelGT(Myself,WIZARD,37)
  ClassLevelGT(Myself,WARRIOR,37)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",38)
  OR(4)
  ClassLevelGT(Myself,ROGUE,38)
  ClassLevelGT(Myself,WARRIOR,38)
  ClassLevelGT(Myself,WIZARD,38)
  ClassLevelGT(Myself,WARRIOR,38)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",39)
  OR(4)
  ClassLevelGT(Myself,ROGUE,39)
  ClassLevelGT(Myself,WARRIOR,39)
  ClassLevelGT(Myself,WIZARD,39)
  ClassLevelGT(Myself,WARRIOR,39)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

IF
  Global("GelTyr1","LOCALS",40)
  OR(4)
  ClassLevelGT(Myself,ROGUE,40)
  ClassLevelGT(Myself,WARRIOR,40)
  ClassLevelGT(Myself,WIZARD,40)
  ClassLevelGT(Myself,WARRIOR,40)
  !Kit(Myself,OHTYR)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTyr1",Myself) // Learn Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // Learn Divine Favour
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour (total 4)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation (total 8)
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    ReallyForceSpellRES("GelTyr5",Myself) // +1 Divine Favour
    ReallyForceSpellRES("GelTyr1",Myself) // +1 Exaltation
    SetGlobal("GelTyr1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelTyr1","LOCALS",60)
  Global("GelKeepTyr","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepTyr","LOCALS",3) // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT ASSASSIN ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// ASSASSIN: lvl1 = 1 bonus to thaco and daWIZARD, +2 backstab multiplier, Learn Spell: Poison Weapon(SPCL423) = GelAss1.spl
// Learn: Poison wepon(SPCL423) = GelAss5.spl (each 5th level)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepAss","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",1)
	SetGlobal("GelKeepAss","LOCALS",2)
END

IF
  Global("GelAss1","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,1)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",2)
END

IF
  Global("GelAss1","LOCALS",2)
  ClassLevelGT(Myself,ROGUE,2)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",3)
END

IF
  Global("GelAss1","LOCALS",3)
  ClassLevelGT(Myself,ROGUE,3)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",4)
END

IF
  Global("GelAss1","LOCALS",4)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",5)
END

IF
  Global("GelAss1","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,5)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",6)
END

IF
  Global("GelAss1","LOCALS",6)
  ClassLevelGT(Myself,ROGUE,6)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",7)
END

IF
  Global("GelAss1","LOCALS",7)
  ClassLevelGT(Myself,ROGUE,7)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",8)
END

IF
  Global("GelAss1","LOCALS",8)
  ClassLevelGT(Myself,ROGUE,8)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",9)
END

IF
  Global("GelAss1","LOCALS",9)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",10)
END

IF
  Global("GelAss1","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,10)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",11)
END

IF
  Global("GelAss1","LOCALS",11)
  ClassLevelGT(Myself,ROGUE,11)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",12)
END

IF
  Global("GelAss1","LOCALS",12)
  ClassLevelGT(Myself,ROGUE,12)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",13)
END

IF
  Global("GelAss1","LOCALS",13)
  ClassLevelGT(Myself,ROGUE,13)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",14)
END

IF
  Global("GelAss1","LOCALS",14)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",15)
END

IF
  Global("GelAss1","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",16)
END

IF
  Global("GelAss1","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,16)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",17)
END

IF
  Global("GelAss1","LOCALS",17)
  ClassLevelGT(Myself,ROGUE,17)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",18)
END

IF
  Global("GelAss1","LOCALS",18)
  ClassLevelGT(Myself,ROGUE,18)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",19)
END

IF
  Global("GelAss1","LOCALS",19)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",20)
END

IF
  Global("GelAss1","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,20)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",21)
END

IF
  Global("GelAss1","LOCALS",21)
  ClassLevelGT(Myself,ROGUE,21)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",22)
END

IF
  Global("GelAss1","LOCALS",22)
  ClassLevelGT(Myself,ROGUE,22)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",23)
END

IF
  Global("GelAss1","LOCALS",23)
  ClassLevelGT(Myself,ROGUE,23)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",24)
END

IF
  Global("GelAss1","LOCALS",24)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",25)
END

IF
  Global("GelAss1","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,25)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",26)
END

IF
  Global("GelAss1","LOCALS",26)
  ClassLevelGT(Myself,ROGUE,26)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",27)
END

IF
  Global("GelAss1","LOCALS",27)
  ClassLevelGT(Myself,ROGUE,27)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",28)
END

IF
  Global("GelAss1","LOCALS",28)
  ClassLevelGT(Myself,ROGUE,28)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",29)
END

IF
  Global("GelAss1","LOCALS",29)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",30)
END

IF
  Global("GelAss1","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,30)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",31)
END

IF
  Global("GelAss1","LOCALS",31)
  ClassLevelGT(Myself,ROGUE,31)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",32)
END

IF
  Global("GelAss1","LOCALS",32)
  ClassLevelGT(Myself,ROGUE,32)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",33)
END

IF
  Global("GelAss1","LOCALS",33)
  ClassLevelGT(Myself,ROGUE,33)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",34)
END

IF
  Global("GelAss1","LOCALS",34)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",35)
END

IF
  Global("GelAss1","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,35)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",36)
END

IF
  Global("GelAss1","LOCALS",36)
  ClassLevelGT(Myself,ROGUE,36)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",37)
END

IF
  Global("GelAss1","LOCALS",37)
  ClassLevelGT(Myself,ROGUE,37)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",38)
END

IF
  Global("GelAss1","LOCALS",38)
  ClassLevelGT(Myself,ROGUE,38)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",39)
END

IF
  Global("GelAss1","LOCALS",39)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    SetGlobal("GelAss1","LOCALS",40)
END

//////////// First Class Revival Assassin ////////////////////////////
IF
  Global("GelAss1","LOCALS",1)
  OR(3)
  ClassLevelGT(Myself,WARRIOR,1)
  ClassLevelGT(Myself,WIZARD,1)
  ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself) // Learn: Plague Weapon(SPCL423), +1 daWIZARD/thaco, +2 Backstab multiplier
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",2)
  OR(3)
  ClassLevelGT(Myself,WARRIOR,2)
  ClassLevelGT(Myself,WIZARD,2)
  ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself) // Learn: Plague Weapon(SPCL423), +1 daWIZARD/thaco, +2 Backstab multiplier
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",3)
  OR(3)
  ClassLevelGT(Myself,WARRIOR,3)
  ClassLevelGT(Myself,WIZARD,3)
  ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself) // Learn: Plague Weapon(SPCL423), +1 daWIZARD/thaco, +2 Backstab multiplier
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",4)
  OR(3)
  ClassLevelGT(Myself,WARRIOR,4)
  ClassLevelGT(Myself,WIZARD,4)
  ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself) // Learn: Plague Weapon(SPCL423), +1 daWIZARD/thaco, +2 Backstab multiplier
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",5)
  OR(3)
  ClassLevelGT(Myself,WARRIOR,5)
  ClassLevelGT(Myself,WIZARD,5)
  ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself) // Learn: Plague Weapon(SPCL423), +1 daWIZARD/thaco, +2 Backstab multiplier
    ReallyForceSpellRES("GelAss5",Myself) // Learn: Plague Weapon(SPCL423)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",6)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,6)
    ClassLevelGT(Myself,WIZARD,6)
    ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",7)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,7)
    ClassLevelGT(Myself,WIZARD,7)
    ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",8)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,8)
    ClassLevelGT(Myself,WIZARD,8)
    ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

// Level 9: +1 Plague Weapon (total 3)
IF
  Global("GelAss1","LOCALS",9)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,9)
    ClassLevelGT(Myself,WIZARD,9)
    ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 3)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",10)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,10)
    ClassLevelGT(Myself,WIZARD,10)
    ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",11)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,11)
    ClassLevelGT(Myself,WIZARD,11)
    ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",12)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,12)
    ClassLevelGT(Myself,WIZARD,12)
    ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",13)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,13)
    ClassLevelGT(Myself,WIZARD,13)
    ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",14)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,14)
    ClassLevelGT(Myself,WIZARD,14)
    ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 4)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",15)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,15)
    ClassLevelGT(Myself,WIZARD,15)
    ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",16)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,16)
    ClassLevelGT(Myself,WIZARD,16)
    ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)   // Learn: Death Attack
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",17)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,17)
    ClassLevelGT(Myself,WIZARD,17)
    ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",18)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,18)
    ClassLevelGT(Myself,WIZARD,18)
    ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",19)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,19)
    ClassLevelGT(Myself,WIZARD,19)
    ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",20)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,20)
    ClassLevelGT(Myself,WIZARD,20)
    ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",21)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,21)
    ClassLevelGT(Myself,WIZARD,21)
    ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",22)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,22)
    ClassLevelGT(Myself,WIZARD,22)
    ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",23)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,23)
    ClassLevelGT(Myself,WIZARD,23)
    ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",24)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,24)
    ClassLevelGT(Myself,WIZARD,24)
    ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    ReallyForceSpellRES("GelDeAt",Myself)   // Learn: Death Attack
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",25)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,25)
    ClassLevelGT(Myself,WIZARD,25)
    ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",26)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,26)
    ClassLevelGT(Myself,WIZARD,26)
    ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",27)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,27)
    ClassLevelGT(Myself,WIZARD,27)
    ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",28)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,28)
    ClassLevelGT(Myself,WIZARD,28)
    ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",29)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,29)
    ClassLevelGT(Myself,WIZARD,29)
    ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",30)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,30)
    ClassLevelGT(Myself,WIZARD,30)
    ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",32)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,31)
    ClassLevelGT(Myself,WIZARD,31)
    ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    ReallyForceSpellRES("GelDeAt",Myself)   // Learn: Death Attack
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",32)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,32)
    ClassLevelGT(Myself,WIZARD,32)
    ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",33)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,33)
    ClassLevelGT(Myself,WIZARD,33)
    ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",34)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,34)
    ClassLevelGT(Myself,WIZARD,34)
    ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",35)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,35)
    ClassLevelGT(Myself,WIZARD,35)
    ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",36)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,36)
    ClassLevelGT(Myself,WIZARD,36)
    ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",37)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,37)
    ClassLevelGT(Myself,WIZARD,37)
    ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",38)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,38)
    ClassLevelGT(Myself,WIZARD,38)
    ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",39)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,39)
    ClassLevelGT(Myself,WIZARD,39)
    ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    SetGlobal("GelAss1","LOCALS",60)
END

IF
  Global("GelAss1","LOCALS",40)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,40)
    ClassLevelGT(Myself,WIZARD,40)
    ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,ASSASIN)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // +1 Plague Weapon (total 5)
    ReallyForceSpellRES("GelDeAt",Myself)   // Learn: Death Attack
    SetGlobal("GelAss1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelAss1","LOCALS",60)
  Global("GelKeepAss","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepAss","LOCALS",3) // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT BOUNTY HUNTER ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// BOUNTY HUNTER: lvl1 = 15% bonus Set Traps, Learn: Set Special Trap(SPIN415) = GelBou1.spl
// Learn: Set Special Trap(SPIN415) = GelBou5.spl (1 level 1, then 1 each 4th level thereafter, meaning for GelBou5 its level 5,9,14,19,24,29,34,39)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepBou","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",1)
	SetGlobal("GelKeepBou","LOCALS",2)
END

IF
  Global("GelBou1","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,1)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",2)
END

IF
  Global("GelBou1","LOCALS",2)
  ClassLevelGT(Myself,ROGUE,2)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",3)
END

IF
  Global("GelBou1","LOCALS",3)
  ClassLevelGT(Myself,ROGUE,3)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",4)
END

IF
  Global("GelBou1","LOCALS",4)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",5)
END

IF
  Global("GelBou1","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,5)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",6)
END

IF
  Global("GelBou1","LOCALS",6)
  ClassLevelGT(Myself,ROGUE,6)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",7)
END

IF
  Global("GelBou1","LOCALS",7)
  ClassLevelGT(Myself,ROGUE,7)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",8)
END

IF
  Global("GelBou1","LOCALS",8)
  ClassLevelGT(Myself,ROGUE,8)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",9)
END

IF
  Global("GelBou1","LOCALS",9)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",10)
END

IF
  Global("GelBou1","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,10)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",11)
END

IF
  Global("GelBou1","LOCALS",11)
  ClassLevelGT(Myself,ROGUE,11)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",12)
END

IF
  Global("GelBou1","LOCALS",12)
  ClassLevelGT(Myself,ROGUE,12)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",13)
END

IF
  Global("GelBou1","LOCALS",13)
  ClassLevelGT(Myself,ROGUE,13)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",14)
END

IF
  Global("GelBou1","LOCALS",14)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",15)
END

IF
  Global("GelBou1","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",16)
END

IF
  Global("GelBou1","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,16)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",17)
END

IF
  Global("GelBou1","LOCALS",17)
  ClassLevelGT(Myself,ROGUE,17)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",18)
END

IF
  Global("GelBou1","LOCALS",18)
  ClassLevelGT(Myself,ROGUE,18)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",19)
END

IF
  Global("GelBou1","LOCALS",19)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",20)
END

IF
  Global("GelBou1","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,20)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",21)
END

IF
  Global("GelBou1","LOCALS",21)
  ClassLevelGT(Myself,ROGUE,21)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",22)
END

IF
  Global("GelBou1","LOCALS",22)
  ClassLevelGT(Myself,ROGUE,22)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",23)
END

IF
  Global("GelBou1","LOCALS",23)
  ClassLevelGT(Myself,ROGUE,23)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",24)
END

IF
  Global("GelBou1","LOCALS",24)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",25)
END

IF
  Global("GelBou1","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,25)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",26)
END

IF
  Global("GelBou1","LOCALS",26)
  ClassLevelGT(Myself,ROGUE,26)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",27)
END

IF
  Global("GelBou1","LOCALS",27)
  ClassLevelGT(Myself,ROGUE,27)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",28)
END

IF
  Global("GelBou1","LOCALS",28)
  ClassLevelGT(Myself,ROGUE,28)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",29)
END

IF
  Global("GelBou1","LOCALS",29)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",30)
END

IF
  Global("GelBou1","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,30)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",31)
END

IF
  Global("GelBou1","LOCALS",31)
  ClassLevelGT(Myself,ROGUE,31)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",32)
END

IF
  Global("GelBou1","LOCALS",32)
  ClassLevelGT(Myself,ROGUE,32)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",33)
END

IF
  Global("GelBou1","LOCALS",33)
  ClassLevelGT(Myself,ROGUE,33)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",34)
END

IF
  Global("GelBou1","LOCALS",34)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",35)
END

IF
  Global("GelBou1","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,35)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",36)
END

IF
  Global("GelBou1","LOCALS",36)
  ClassLevelGT(Myself,ROGUE,36)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",37)
END

IF
  Global("GelBou1","LOCALS",37)
  ClassLevelGT(Myself,ROGUE,37)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",38)
END

IF
  Global("GelBou1","LOCALS",38)
  ClassLevelGT(Myself,ROGUE,38)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",39)
END

IF
  Global("GelBou1","LOCALS",39)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    SetGlobal("GelBou1","LOCALS",40)
END

//////////// First Class Revival Bounty Hunter ////////////////////////////
IF
  Global("GelBou1","LOCALS",1)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,1)
    ClassLevelGT(Myself,WIZARD,1)
    ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",2)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,2)
    ClassLevelGT(Myself,WIZARD,2)
    ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",3)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,3)
    ClassLevelGT(Myself,WIZARD,3)
    ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",4)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,4)
    ClassLevelGT(Myself,WIZARD,4)
    ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",5)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,5)
    ClassLevelGT(Myself,WIZARD,5)
    ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",6)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,6)
    ClassLevelGT(Myself,WIZARD,6)
    ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",7)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,7)
    ClassLevelGT(Myself,WIZARD,7)
    ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",8)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,8)
    ClassLevelGT(Myself,WIZARD,8)
    ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",9)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,9)
    ClassLevelGT(Myself,WIZARD,9)
    ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",10)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,10)
    ClassLevelGT(Myself,WIZARD,10)
    ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",11)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,11)
    ClassLevelGT(Myself,WIZARD,11)
    ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",12)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,12)
    ClassLevelGT(Myself,WIZARD,12)
    ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",13)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,13)
    ClassLevelGT(Myself,WIZARD,13)
    ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",14)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,14)
    ClassLevelGT(Myself,WIZARD,14)
    ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",15)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,15)
    ClassLevelGT(Myself,WIZARD,15)
    ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",16)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,16)
    ClassLevelGT(Myself,WIZARD,16)
    ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",17)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,17)
    ClassLevelGT(Myself,WIZARD,17)
    ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",18)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,18)
    ClassLevelGT(Myself,WIZARD,18)
    ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",19)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,19)
    ClassLevelGT(Myself,WIZARD,19)
    ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",20)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,20)
    ClassLevelGT(Myself,WIZARD,20)
    ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",21)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,21)
    ClassLevelGT(Myself,WIZARD,21)
    ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",22)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,22)
    ClassLevelGT(Myself,WIZARD,22)
    ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",23)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,23)
    ClassLevelGT(Myself,WIZARD,23)
    ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",24)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,24)
    ClassLevelGT(Myself,WIZARD,24)
    ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",25)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,25)
    ClassLevelGT(Myself,WIZARD,25)
    ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",26)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,26)
    ClassLevelGT(Myself,WIZARD,26)
    ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",27)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,27)
    ClassLevelGT(Myself,WIZARD,27)
    ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",28)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,28)
    ClassLevelGT(Myself,WIZARD,28)
    ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",29)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,29)
    ClassLevelGT(Myself,WIZARD,29)
    ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",30)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,30)
    ClassLevelGT(Myself,WIZARD,30)
    ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",31)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,31)
    ClassLevelGT(Myself,WIZARD,31)
    ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",32)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,32)
    ClassLevelGT(Myself,WIZARD,32)
    ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",33)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,33)
    ClassLevelGT(Myself,WIZARD,33)
    ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",34)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,34)
    ClassLevelGT(Myself,WIZARD,34)
    ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",35)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,35)
    ClassLevelGT(Myself,WIZARD,35)
    ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",36)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,36)
    ClassLevelGT(Myself,WIZARD,36)
    ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",37)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,37)
    ClassLevelGT(Myself,WIZARD,37)
    ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",38)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,38)
    ClassLevelGT(Myself,WIZARD,38)
    ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",39)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,39)
    ClassLevelGT(Myself,WIZARD,39)
    ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

IF
  Global("GelBou1","LOCALS",40)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,40)
    ClassLevelGT(Myself,WIZARD,40)
    ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,BOUNTYHUNTER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself) // Learn: Special Snare(SPIN415), +15% set trap
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    ReallyForceSpellRES("GelBou5",Myself) // Learn: Special Snare(SPIN415)
    SetGlobal("GelBou1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelBou1","LOCALS",60)
  Global("GelKeepBou","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepBou","LOCALS",3) // Reactivation complete
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// DUAL CLASS FIRST KIT SWASHBUCKLER ///////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// BOUNTY HUNTER: lvl1 = Set Dual Wep to 3, +1bonus AC, -4 to backstab multiplier = GelSwa1.spl
// +1 AC/+1 bonus Thaco & DaWIZARD = GelSwa5.spl
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// PROGRESSION TRACKER (before reactivation) ///////////////////////////////
IF
  Global("GelKeepSwa","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",1)
	SetGlobal("GelKeepSwa","LOCALS",2)
END

IF
  Global("GelSwa1","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,1)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",2)
END

IF
  Global("GelSwa1","LOCALS",2)
  ClassLevelGT(Myself,ROGUE,2)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",3)
END

IF
  Global("GelSwa1","LOCALS",3)
  ClassLevelGT(Myself,ROGUE,3)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",4)
END

IF
  Global("GelSwa1","LOCALS",4)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",5)
END

IF
  Global("GelSwa1","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,5)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",6)
END

IF
  Global("GelSwa1","LOCALS",6)
  ClassLevelGT(Myself,ROGUE,6)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",7)
END

IF
  Global("GelSwa1","LOCALS",7)
  ClassLevelGT(Myself,ROGUE,7)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",8)
END

IF
  Global("GelSwa1","LOCALS",8)
  ClassLevelGT(Myself,ROGUE,8)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",9)
END

IF
  Global("GelSwa1","LOCALS",9)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",10)
END

IF
  Global("GelSwa1","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,10)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",11)
END

IF
  Global("GelSwa1","LOCALS",11)
  ClassLevelGT(Myself,ROGUE,11)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",12)
END

IF
  Global("GelSwa1","LOCALS",12)
  ClassLevelGT(Myself,ROGUE,12)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",13)
END

IF
  Global("GelSwa1","LOCALS",13)
  ClassLevelGT(Myself,ROGUE,13)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",14)
END

IF
  Global("GelSwa1","LOCALS",14)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",15)
END

IF
  Global("GelSwa1","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",16)
END

IF
  Global("GelSwa1","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,16)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",17)
END

IF
  Global("GelSwa1","LOCALS",17)
  ClassLevelGT(Myself,ROGUE,17)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",18)
END

IF
  Global("GelSwa1","LOCALS",18)
  ClassLevelGT(Myself,ROGUE,18)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",19)
END

IF
  Global("GelSwa1","LOCALS",19)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",20)
END

IF
  Global("GelSwa1","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,20)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",21)
END

IF
  Global("GelSwa1","LOCALS",21)
  ClassLevelGT(Myself,ROGUE,21)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",22)
END

IF
  Global("GelSwa1","LOCALS",22)
  ClassLevelGT(Myself,ROGUE,22)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",23)
END

IF
  Global("GelSwa1","LOCALS",23)
  ClassLevelGT(Myself,ROGUE,23)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",24)
END

IF
  Global("GelSwa1","LOCALS",24)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",25)
END

IF
  Global("GelSwa1","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,25)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",26)
END

IF
  Global("GelSwa1","LOCALS",26)
  ClassLevelGT(Myself,ROGUE,26)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",27)
END

IF
  Global("GelSwa1","LOCALS",27)
  ClassLevelGT(Myself,ROGUE,27)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",28)
END

IF
  Global("GelSwa1","LOCALS",28)
  ClassLevelGT(Myself,ROGUE,28)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",29)
END

IF
  Global("GelSwa1","LOCALS",29)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",30)
END

IF
  Global("GelSwa1","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,30)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",31)
END

IF
  Global("GelSwa1","LOCALS",31)
  ClassLevelGT(Myself,ROGUE,31)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",32)
END

IF
  Global("GelSwa1","LOCALS",32)
  ClassLevelGT(Myself,ROGUE,32)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",33)
END

IF
  Global("GelSwa1","LOCALS",33)
  ClassLevelGT(Myself,ROGUE,33)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",34)
END

IF
  Global("GelSwa1","LOCALS",34)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",35)
END

IF
  Global("GelSwa1","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,35)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",36)
END

IF
  Global("GelSwa1","LOCALS",36)
  ClassLevelGT(Myself,ROGUE,36)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",37)
END

IF
  Global("GelSwa1","LOCALS",37)
  ClassLevelGT(Myself,ROGUE,37)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",38)
END

IF
  Global("GelSwa1","LOCALS",38)
  ClassLevelGT(Myself,ROGUE,38)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",39)
END

IF
  Global("GelSwa1","LOCALS",39)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    SetGlobal("GelSwa1","LOCALS",40)
END

//////////// First Class Revival Swashbuckler ////////////////////////////
IF
  Global("GelSwa1","LOCALS",1)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,1)
    ClassLevelGT(Myself,WIZARD,1)
    ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself) // Backstab Multiplier -4, +1 bonus AC, Set Dual Wep profience to 3.
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",2)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,2)
    ClassLevelGT(Myself,WIZARD,2)
    ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself) // Backstab Multiplier -4, +1 bonus AC, Set Dual Wep profience to 3.
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",3)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,3)
    ClassLevelGT(Myself,WIZARD,3)
    ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself) // Backstab Multiplier -4, +1 bonus AC, Set Dual Wep profience to 3.
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",4)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,4)
    ClassLevelGT(Myself,WIZARD,4)
    ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself) // Backstab Multiplier -4, +1 bonus AC, Set Dual Wep profience to 3.
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",5)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,5)
    ClassLevelGT(Myself,WIZARD,5)
    ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself) // Backstab Multiplier -4, +1 bonus AC, Set Dual Wep profience to 3.
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",6)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,6)
    ClassLevelGT(Myself,WIZARD,6)
    ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself) // Backstab Multiplier -4, +1 bonus AC, Set Dual Wep profience to 3.
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",7)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,7)
    ClassLevelGT(Myself,WIZARD,7)
    ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself) // Backstab Multiplier -4, +1 AC, Set Dual Wep prof to 3
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",8)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,8)
    ClassLevelGT(Myself,WIZARD,8)
    ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",9)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,9)
    ClassLevelGT(Myself,WIZARD,9)
    ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",10)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,10)
    ClassLevelGT(Myself,WIZARD,10)
    ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",11)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,11)
    ClassLevelGT(Myself,WIZARD,11)
    ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",12)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,12)
    ClassLevelGT(Myself,WIZARD,12)
    ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",13)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,13)
    ClassLevelGT(Myself,WIZARD,13)
    ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",14)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,14)
    ClassLevelGT(Myself,WIZARD,14)
    ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",15)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,15)
    ClassLevelGT(Myself,WIZARD,15)
    ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",16)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,16)
    ClassLevelGT(Myself,WIZARD,16)
    ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",17)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,17)
    ClassLevelGT(Myself,WIZARD,17)
    ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",18)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,18)
    ClassLevelGT(Myself,WIZARD,18)
    ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",19)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,19)
    ClassLevelGT(Myself,WIZARD,19)
    ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",20)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,20)
    ClassLevelGT(Myself,WIZARD,20)
    ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",21)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,21)
    ClassLevelGT(Myself,WIZARD,21)
    ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",22)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,22)
    ClassLevelGT(Myself,WIZARD,22)
    ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",23)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,23)
    ClassLevelGT(Myself,WIZARD,23)
    ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",24)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,24)
    ClassLevelGT(Myself,WIZARD,24)
    ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",25)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,25)
    ClassLevelGT(Myself,WIZARD,25)
    ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",26)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,26)
    ClassLevelGT(Myself,WIZARD,26)
    ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",27)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,27)
    ClassLevelGT(Myself,WIZARD,27)
    ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",28)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,28)
    ClassLevelGT(Myself,WIZARD,28)
    ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",29)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,29)
    ClassLevelGT(Myself,WIZARD,29)
    ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",30)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,30)
    ClassLevelGT(Myself,WIZARD,30)
    ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",31)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,31)
    ClassLevelGT(Myself,WIZARD,31)
    ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",32)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,32)
    ClassLevelGT(Myself,WIZARD,32)
    ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",33)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,33)
    ClassLevelGT(Myself,WIZARD,33)
    ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",34)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,34)
    ClassLevelGT(Myself,WIZARD,34)
    ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",35)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,35)
    ClassLevelGT(Myself,WIZARD,35)
    ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",36)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,36)
    ClassLevelGT(Myself,WIZARD,36)
    ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",37)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,37)
    ClassLevelGT(Myself,WIZARD,37)
    ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",38)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,38)
    ClassLevelGT(Myself,WIZARD,38)
    ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",39)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,39)
    ClassLevelGT(Myself,WIZARD,39)
    ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

IF
  Global("GelSwa1","LOCALS",40)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,40)
    ClassLevelGT(Myself,WIZARD,40)
    ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,SWASHBUCKLER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, THAC0 & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    ReallyForceSpellRES("GelSwa5",Myself) // +1 bonus AC, Thaco & DaWIZARD
    SetGlobal("GelSwa1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelSwa1","LOCALS",60)
  Global("GelKeepSwa","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepSwa","LOCALS",3) // Reactivation complete
END


/////////////////////////////// SHADOWDANCER PROGRESSION TRACKER ///////////////////////////////
//// Level 1 = -1 saving throws, -1 penalty backstab multiplier, +10% hide in shadows and move silent, Learn: HideInPlainSight(GelHIPS.spl).
IF
  Global("GelKeepSha","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",1)
	SetGlobal("GelKeepSha","LOCALS",2)
END

IF
  Global("GelSha1","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,1)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",2)
END

IF
  Global("GelSha1","LOCALS",2)
  ClassLevelGT(Myself,ROGUE,2)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",3)
END

IF
  Global("GelSha1","LOCALS",3)
  ClassLevelGT(Myself,ROGUE,3)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",4)
END

IF
  Global("GelSha1","LOCALS",4)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",5)
END

IF
  Global("GelSha1","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,5)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",6)
END

IF
  Global("GelSha1","LOCALS",6)
  ClassLevelGT(Myself,ROGUE,6)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",7)
END

IF
  Global("GelSha1","LOCALS",7)
  ClassLevelGT(Myself,ROGUE,7)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",8)
END

IF
  Global("GelSha1","LOCALS",8)
  ClassLevelGT(Myself,ROGUE,8)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",9)
END

IF
  Global("GelSha1","LOCALS",9)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",10)
END

IF
  Global("GelSha1","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,10)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",11)
END

IF
  Global("GelSha1","LOCALS",11)
  ClassLevelGT(Myself,ROGUE,11)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",12)
END

IF
  Global("GelSha1","LOCALS",12)
  ClassLevelGT(Myself,ROGUE,12)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",13)
END

IF
  Global("GelSha1","LOCALS",13)
  ClassLevelGT(Myself,ROGUE,13)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",14)
END

IF
  Global("GelSha1","LOCALS",14)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",15)
END

IF
  Global("GelSha1","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",16)
END

IF
  Global("GelSha1","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,16)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",17)
END

IF
  Global("GelSha1","LOCALS",17)
  ClassLevelGT(Myself,ROGUE,17)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",18)
END

IF
  Global("GelSha1","LOCALS",18)
  ClassLevelGT(Myself,ROGUE,18)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",19)
END

IF
  Global("GelSha1","LOCALS",19)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",20)
END

IF
  Global("GelSha1","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,20)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",21)
END

IF
  Global("GelSha1","LOCALS",21)
  ClassLevelGT(Myself,ROGUE,21)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",22)
END

IF
  Global("GelSha1","LOCALS",22)
  ClassLevelGT(Myself,ROGUE,22)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",23)
END

IF
  Global("GelSha1","LOCALS",23)
  ClassLevelGT(Myself,ROGUE,23)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",24)
END

IF
  Global("GelSha1","LOCALS",24)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",25)
END

IF
  Global("GelSha1","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,25)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",26)
END

IF
  Global("GelSha1","LOCALS",26)
  ClassLevelGT(Myself,ROGUE,26)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",27)
END

IF
  Global("GelSha1","LOCALS",27)
  ClassLevelGT(Myself,ROGUE,27)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",28)
END

IF
  Global("GelSha1","LOCALS",28)
  ClassLevelGT(Myself,ROGUE,28)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",29)
END

IF
  Global("GelSha1","LOCALS",29)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",30)
END

IF
  Global("GelSha1","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,30)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",31)
END

IF
  Global("GelSha1","LOCALS",31)
  ClassLevelGT(Myself,ROGUE,31)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",32)
END

IF
  Global("GelSha1","LOCALS",32)
  ClassLevelGT(Myself,ROGUE,32)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",33)
END

IF
  Global("GelSha1","LOCALS",33)
  ClassLevelGT(Myself,ROGUE,33)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",34)
END

IF
  Global("GelSha1","LOCALS",34)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",35)
END

IF
  Global("GelSha1","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,35)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",36)
END

IF
  Global("GelSha1","LOCALS",36)
  ClassLevelGT(Myself,ROGUE,36)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",37)
END

IF
  Global("GelSha1","LOCALS",37)
  ClassLevelGT(Myself,ROGUE,37)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",38)
END

IF
  Global("GelSha1","LOCALS",38)
  ClassLevelGT(Myself,ROGUE,38)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",39)
END

IF
  Global("GelSha1","LOCALS",39)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    SetGlobal("GelSha1","LOCALS",40)
END


//////////// First Class Revival Shadowdancer ////////////////////////////

// 1 (0x GelSha5)
IF
  Global("GelSha1","LOCALS",1)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,1)
    ClassLevelGT(Myself,WIZARD,1)
    ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 2 (0x)
IF
  Global("GelSha1","LOCALS",2)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,2)
    ClassLevelGT(Myself,WIZARD,2)
    ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 3 (0x)
IF
  Global("GelSha1","LOCALS",3)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,3)
    ClassLevelGT(Myself,WIZARD,3)
    ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 4 (0x)
IF
  Global("GelSha1","LOCALS",4)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,4)
    ClassLevelGT(Myself,WIZARD,4)
    ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 5 (1x)
IF
  Global("GelSha1","LOCALS",5)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,5)
    ClassLevelGT(Myself,WIZARD,5)
    ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSha1","LOCALS",60)
END

// 6 (1x)
IF
  Global("GelSha1","LOCALS",6)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,6)
    ClassLevelGT(Myself,WIZARD,6)
    ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSha1","LOCALS",60)
END

// 7 (1x)
IF
  Global("GelSha1","LOCALS",7)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,7)
    ClassLevelGT(Myself,WIZARD,7)
    ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSha1","LOCALS",60)
END

// 8 (1x)
IF
  Global("GelSha1","LOCALS",8)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,8)
    ClassLevelGT(Myself,WIZARD,8)
    ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSha1","LOCALS",60)
END

// 9 (1x)
IF
  Global("GelSha1","LOCALS",9)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,9)
    ClassLevelGT(Myself,WIZARD,9)
    ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSha1","LOCALS",60)
END

// 10 (2x)
IF
  Global("GelSha1","LOCALS",10)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,10)
    ClassLevelGT(Myself,WIZARD,10)
    ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSha1","LOCALS",60)
END

// 11 (2x)
IF
  Global("GelSha1","LOCALS",11)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,11)
    ClassLevelGT(Myself,WIZARD,11)
    ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSha1","LOCALS",60)
END

// 12 (2x)
IF
  Global("GelSha1","LOCALS",12)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,12)
    ClassLevelGT(Myself,WIZARD,12)
    ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSha1","LOCALS",60)
END

// 13 (2x)
IF
  Global("GelSha1","LOCALS",13)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,13)
    ClassLevelGT(Myself,WIZARD,13)
    ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSha1","LOCALS",60)
END

// 14 (2x)
IF
  Global("GelSha1","LOCALS",14)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,14)
    ClassLevelGT(Myself,WIZARD,14)
    ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSha1","LOCALS",60)
END

// 15 (3x)
IF
  Global("GelSha1","LOCALS",15)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,15)
    ClassLevelGT(Myself,WIZARD,15)
    ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    SetGlobal("GelSha1","LOCALS",60)
END

// 16 (3x)
IF
  Global("GelSha1","LOCALS",16)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,16)
    ClassLevelGT(Myself,WIZARD,16)
    ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    SetGlobal("GelSha1","LOCALS",60)
END

// 17 (3x)
IF
  Global("GelSha1","LOCALS",17)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,17)
    ClassLevelGT(Myself,WIZARD,17)
    ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    SetGlobal("GelSha1","LOCALS",60)
END

// 18 (3x)
IF
  Global("GelSha1","LOCALS",18)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,18)
    ClassLevelGT(Myself,WIZARD,18)
    ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    SetGlobal("GelSha1","LOCALS",60)
END

// 19 (3x)
IF
  Global("GelSha1","LOCALS",19)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,19)
    ClassLevelGT(Myself,WIZARD,19)
    ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    SetGlobal("GelSha1","LOCALS",60)
END

// 20 (4x)
IF
  Global("GelSha1","LOCALS",20)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,20)
    ClassLevelGT(Myself,WIZARD,20)
    ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    SetGlobal("GelSha1","LOCALS",60)
END

// 21 (4x)
IF
  Global("GelSha1","LOCALS",21)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,21)
    ClassLevelGT(Myself,WIZARD,21)
    ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    SetGlobal("GelSha1","LOCALS",60)
END

// 22 (4x)
IF
  Global("GelSha1","LOCALS",22)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,22)
    ClassLevelGT(Myself,WIZARD,22)
    ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    SetGlobal("GelSha1","LOCALS",60)
END

// 23 (4x)
IF
  Global("GelSha1","LOCALS",23)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,23)
    ClassLevelGT(Myself,WIZARD,23)
    ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    SetGlobal("GelSha1","LOCALS",60)
END

// 24 (4x)
IF
  Global("GelSha1","LOCALS",24)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,24)
    ClassLevelGT(Myself,WIZARD,24)
    ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    SetGlobal("GelSha1","LOCALS",60)
END

// 25 (5x) + HLA1
IF
  Global("GelSha1","LOCALS",25)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,25)
    ClassLevelGT(Myself,WIZARD,25)
    ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/5
    ReallyForceSpellRES("GelSha5",Myself) // 2/5
    ReallyForceSpellRES("GelSha5",Myself) // 3/5
    ReallyForceSpellRES("GelSha5",Myself) // 4/5
    ReallyForceSpellRES("GelSha5",Myself) // 5/5
    ReallyForceSpellRES("GelHLA1",Myself) // Shadow Maze @25
    SetGlobal("GelSha1","LOCALS",60)
END

// 26 (5x) + HLA1
IF
  Global("GelSha1","LOCALS",26)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,26)
    ClassLevelGT(Myself,WIZARD,26)
    ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/5
    ReallyForceSpellRES("GelSha5",Myself) // 2/5
    ReallyForceSpellRES("GelSha5",Myself) // 3/5
    ReallyForceSpellRES("GelSha5",Myself) // 4/5
    ReallyForceSpellRES("GelSha5",Myself) // 5/5
    ReallyForceSpellRES("GelHLA1",Myself) // Shadow Maze
    SetGlobal("GelSha1","LOCALS",60)
END

// 27 (5x) + HLA1 + HLA2
IF
  Global("GelSha1","LOCALS",27)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,27)
    ClassLevelGT(Myself,WIZARD,27)
    ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/5
    ReallyForceSpellRES("GelSha5",Myself) // 2/5
    ReallyForceSpellRES("GelSha5",Myself) // 3/5
    ReallyForceSpellRES("GelSha5",Myself) // 4/5
    ReallyForceSpellRES("GelSha5",Myself) // 5/5
    ReallyForceSpellRES("GelHLA1",Myself) // Shadow Maze
    ReallyForceSpellRES("GelHLA2",Myself) // Shadow Twin @27
    SetGlobal("GelSha1","LOCALS",60)
END

// 28 (5x) + HLA1 + HLA2
IF
  Global("GelSha1","LOCALS",28)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,28)
    ClassLevelGT(Myself,WIZARD,28)
    ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/5
    ReallyForceSpellRES("GelSha5",Myself) // 2/5
    ReallyForceSpellRES("GelSha5",Myself) // 3/5
    ReallyForceSpellRES("GelSha5",Myself) // 4/5
    ReallyForceSpellRES("GelSha5",Myself) // 5/5
    ReallyForceSpellRES("GelHLA1",Myself) // Shadow Maze
    ReallyForceSpellRES("GelHLA2",Myself) // Shadow Twin
    SetGlobal("GelSha1","LOCALS",60)
END

// 29 (5x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",29)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,29)
    ClassLevelGT(Myself,WIZARD,29)
    ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/5
    ReallyForceSpellRES("GelSha5",Myself) // 2/5
    ReallyForceSpellRES("GelSha5",Myself) // 3/5
    ReallyForceSpellRES("GelSha5",Myself) // 4/5
    ReallyForceSpellRES("GelSha5",Myself) // 5/5
    ReallyForceSpellRES("GelHLA1",Myself) // Shadow Maze
    ReallyForceSpellRES("GelHLA2",Myself) // Shadow Twin
    ReallyForceSpellRES("GelHLA3",Myself) // Shadow Form @29
    SetGlobal("GelSha1","LOCALS",60)
END

// 30 (6x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",30)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,30)
    ClassLevelGT(Myself,WIZARD,30)
    ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/6
    ReallyForceSpellRES("GelSha5",Myself) // 2/6
    ReallyForceSpellRES("GelSha5",Myself) // 3/6
    ReallyForceSpellRES("GelSha5",Myself) // 4/6
    ReallyForceSpellRES("GelSha5",Myself) // 5/6
    ReallyForceSpellRES("GelSha5",Myself) // 6/6
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 31 (6x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",31)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,31)
    ClassLevelGT(Myself,WIZARD,31)
    ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/6
    ReallyForceSpellRES("GelSha5",Myself) // 2/6
    ReallyForceSpellRES("GelSha5",Myself) // 3/6
    ReallyForceSpellRES("GelSha5",Myself) // 4/6
    ReallyForceSpellRES("GelSha5",Myself) // 5/6
    ReallyForceSpellRES("GelSha5",Myself) // 6/6
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 32 (6x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",32)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,32)
    ClassLevelGT(Myself,WIZARD,32)
    ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/6
    ReallyForceSpellRES("GelSha5",Myself) // 2/6
    ReallyForceSpellRES("GelSha5",Myself) // 3/6
    ReallyForceSpellRES("GelSha5",Myself) // 4/6
    ReallyForceSpellRES("GelSha5",Myself) // 5/6
    ReallyForceSpellRES("GelSha5",Myself) // 6/6
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 33 (6x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",33)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,33)
    ClassLevelGT(Myself,WIZARD,33)
    ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/6
    ReallyForceSpellRES("GelSha5",Myself) // 2/6
    ReallyForceSpellRES("GelSha5",Myself) // 3/6
    ReallyForceSpellRES("GelSha5",Myself) // 4/6
    ReallyForceSpellRES("GelSha5",Myself) // 5/6
    ReallyForceSpellRES("GelSha5",Myself) // 6/6
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 34 (6x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",34)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,34)
    ClassLevelGT(Myself,WIZARD,34)
    ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/6
    ReallyForceSpellRES("GelSha5",Myself) // 2/6
    ReallyForceSpellRES("GelSha5",Myself) // 3/6
    ReallyForceSpellRES("GelSha5",Myself) // 4/6
    ReallyForceSpellRES("GelSha5",Myself) // 5/6
    ReallyForceSpellRES("GelSha5",Myself) // 6/6
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 35 (7x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",35)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,35)
    ClassLevelGT(Myself,WIZARD,35)
    ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/7
    ReallyForceSpellRES("GelSha5",Myself) // 2/7
    ReallyForceSpellRES("GelSha5",Myself) // 3/7
    ReallyForceSpellRES("GelSha5",Myself) // 4/7
    ReallyForceSpellRES("GelSha5",Myself) // 5/7
    ReallyForceSpellRES("GelSha5",Myself) // 6/7
    ReallyForceSpellRES("GelSha5",Myself) // 7/7
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 36 (7x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",36)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,36)
    ClassLevelGT(Myself,WIZARD,36)
    ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/7
    ReallyForceSpellRES("GelSha5",Myself) // 2/7
    ReallyForceSpellRES("GelSha5",Myself) // 3/7
    ReallyForceSpellRES("GelSha5",Myself) // 4/7
    ReallyForceSpellRES("GelSha5",Myself) // 5/7
    ReallyForceSpellRES("GelSha5",Myself) // 6/7
    ReallyForceSpellRES("GelSha5",Myself) // 7/7
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 37 (7x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",37)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,37)
    ClassLevelGT(Myself,WIZARD,37)
    ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/7
    ReallyForceSpellRES("GelSha5",Myself) // 2/7
    ReallyForceSpellRES("GelSha5",Myself) // 3/7
    ReallyForceSpellRES("GelSha5",Myself) // 4/7
    ReallyForceSpellRES("GelSha5",Myself) // 5/7
    ReallyForceSpellRES("GelSha5",Myself) // 6/7
    ReallyForceSpellRES("GelSha5",Myself) // 7/7
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 38 (7x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",38)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,38)
    ClassLevelGT(Myself,WIZARD,38)
    ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/7
    ReallyForceSpellRES("GelSha5",Myself) // 2/7
    ReallyForceSpellRES("GelSha5",Myself) // 3/7
    ReallyForceSpellRES("GelSha5",Myself) // 4/7
    ReallyForceSpellRES("GelSha5",Myself) // 5/7
    ReallyForceSpellRES("GelSha5",Myself) // 6/7
    ReallyForceSpellRES("GelSha5",Myself) // 7/7
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 39 (7x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",39)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,39)
    ClassLevelGT(Myself,WIZARD,39)
    ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/7
    ReallyForceSpellRES("GelSha5",Myself) // 2/7
    ReallyForceSpellRES("GelSha5",Myself) // 3/7
    ReallyForceSpellRES("GelSha5",Myself) // 4/7
    ReallyForceSpellRES("GelSha5",Myself) // 5/7
    ReallyForceSpellRES("GelSha5",Myself) // 6/7
    ReallyForceSpellRES("GelSha5",Myself) // 7/7
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

// 40 (8x) + HLA1 + HLA2 + HLA3
IF
  Global("GelSha1","LOCALS",40)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,40)
    ClassLevelGT(Myself,WIZARD,40)
    ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,SHADOWDANCER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 1/8
    ReallyForceSpellRES("GelSha5",Myself) // 2/8
    ReallyForceSpellRES("GelSha5",Myself) // 3/8
    ReallyForceSpellRES("GelSha5",Myself) // 4/8
    ReallyForceSpellRES("GelSha5",Myself) // 5/8
    ReallyForceSpellRES("GelSha5",Myself) // 6/8
    ReallyForceSpellRES("GelSha5",Myself) // 7/8
    ReallyForceSpellRES("GelSha5",Myself) // 8/8
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    SetGlobal("GelSha1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelSha1","LOCALS",60)
  Global("GelKeepSha","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepSha","LOCALS",3) // Reactivation complete
END

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////KEEP SUPER THIEF PROGRESSION TRACKER (before reactivation) ///////////////////////////////
//Level 1: +2 backstab multiplier, +1ac/thaco/daWIZARD, +15 set traps, +10% stealh, learn: Plague Weapon, Learn: Set Special Snare
//Level 5: Learn: Set Special Snare, Learn: Plague Wepon, Learn: Shadowstep, +1 ac/thaco/daWIZARD
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelKeepSuperT","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",1)
	SetGlobal("GelKeepSuperT","LOCALS",2)
END

IF
  Global("GelSupT","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,1)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",2)
END

IF
  Global("GelSupT","LOCALS",2)
  ClassLevelGT(Myself,ROGUE,2)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",3)
END

IF
  Global("GelSupT","LOCALS",3)
  ClassLevelGT(Myself,ROGUE,3)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",4)
END

IF
  Global("GelSupT","LOCALS",4)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",5)
END

IF
  Global("GelSupT","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,5)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",6)
END

IF
  Global("GelSupT","LOCALS",6)
  ClassLevelGT(Myself,ROGUE,6)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",7)
END

IF
  Global("GelSupT","LOCALS",7)
  ClassLevelGT(Myself,ROGUE,7)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",8)
END

IF
  Global("GelSupT","LOCALS",8)
  ClassLevelGT(Myself,ROGUE,8)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",9)
END

IF
  Global("GelSupT","LOCALS",9)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",10)
END

IF
  Global("GelSupT","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,10)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",11)
END

IF
  Global("GelSupT","LOCALS",11)
  ClassLevelGT(Myself,ROGUE,11)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",12)
END

IF
  Global("GelSupT","LOCALS",12)
  ClassLevelGT(Myself,ROGUE,12)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",13)
END

IF
  Global("GelSupT","LOCALS",13)
  ClassLevelGT(Myself,ROGUE,13)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",14)
END

IF
  Global("GelSupT","LOCALS",14)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",15)
END

IF
  Global("GelSupT","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",16)
END

IF
  Global("GelSupT","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,16)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",17)
END

IF
  Global("GelSupT","LOCALS",17)
  ClassLevelGT(Myself,ROGUE,17)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",18)
END

IF
  Global("GelSupT","LOCALS",18)
  ClassLevelGT(Myself,ROGUE,18)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",19)
END

IF
  Global("GelSupT","LOCALS",19)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",20)
END

IF
  Global("GelSupT","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,20)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",21)
END

IF
  Global("GelSupT","LOCALS",21)
  ClassLevelGT(Myself,ROGUE,21)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",22)
END

IF
  Global("GelSupT","LOCALS",22)
  ClassLevelGT(Myself,ROGUE,22)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",23)
END

IF
  Global("GelSupT","LOCALS",23)
  ClassLevelGT(Myself,ROGUE,23)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",24)
END

IF
  Global("GelSupT","LOCALS",24)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",25)
END

IF
  Global("GelSupT","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,25)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",26)
END

IF
  Global("GelSupT","LOCALS",26)
  ClassLevelGT(Myself,ROGUE,26)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",27)
END

IF
  Global("GelSupT","LOCALS",27)
  ClassLevelGT(Myself,ROGUE,27)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",28)
END

IF
  Global("GelSupT","LOCALS",28)
  ClassLevelGT(Myself,ROGUE,28)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",29)
END

IF
  Global("GelSupT","LOCALS",29)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",30)
END

IF
  Global("GelSupT","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,30)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",31)
END

IF
  Global("GelSupT","LOCALS",31)
  ClassLevelGT(Myself,ROGUE,31)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",32)
END

IF
  Global("GelSupT","LOCALS",32)
  ClassLevelGT(Myself,ROGUE,32)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",33)
END

IF
  Global("GelSupT","LOCALS",33)
  ClassLevelGT(Myself,ROGUE,33)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",34)
END

IF
  Global("GelSupT","LOCALS",34)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",35)
END

IF
  Global("GelSupT","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,35)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",36)
END

IF
  Global("GelSupT","LOCALS",36)
  ClassLevelGT(Myself,ROGUE,36)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",37)
END

IF
  Global("GelSupT","LOCALS",37)
  ClassLevelGT(Myself,ROGUE,37)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",38)
END

IF
  Global("GelSupT","LOCALS",38)
  ClassLevelGT(Myself,ROGUE,38)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",39)
END

IF
  Global("GelSupT","LOCALS",39)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    SetGlobal("GelSupT","LOCALS",40)
END


//////////// First Class Revival SuperThief / Combined Thief ////////////////////////////

// 1 (0x per‑5 spells)
IF
  Global("GelSupT","LOCALS",1)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,1)
    ClassLevelGT(Myself,WIZARD,1)
    ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 2 (0x)
IF
  Global("GelSupT","LOCALS",2)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,2)
    ClassLevelGT(Myself,WIZARD,2)
    ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 3 (0x)
IF
  Global("GelSupT","LOCALS",3)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,3)
    ClassLevelGT(Myself,WIZARD,3)
    ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 4 (0x)
IF
  Global("GelSupT","LOCALS",4)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,4)
    ClassLevelGT(Myself,WIZARD,4)
    ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 5 (1x av hver: Bou/Swa/Ass/Sha)
IF
  Global("GelSupT","LOCALS",5)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,5)
    ClassLevelGT(Myself,WIZARD,5)
    ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/1
    ReallyForceSpellRES("GelSwa5",Myself) // 1/1
    ReallyForceSpellRES("GelAss5",Myself) // 1/1
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSupT","LOCALS",60)
END

// 6 (1x av hver)
IF
  Global("GelSupT","LOCALS",6)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,6)
    ClassLevelGT(Myself,WIZARD,6)
    ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/1
    ReallyForceSpellRES("GelSwa5",Myself) // 1/1
    ReallyForceSpellRES("GelAss5",Myself) // 1/1
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSupT","LOCALS",60)
END

// 7 (1x av hver)
IF
  Global("GelSupT","LOCALS",7)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,7)
    ClassLevelGT(Myself,WIZARD,7)
    ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/1
    ReallyForceSpellRES("GelSwa5",Myself) // 1/1
    ReallyForceSpellRES("GelAss5",Myself) // 1/1
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSupT","LOCALS",60)
END

// 8 (1x av hver)
IF
  Global("GelSupT","LOCALS",8)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,8)
    ClassLevelGT(Myself,WIZARD,8)
    ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/1
    ReallyForceSpellRES("GelSwa5",Myself) // 1/1
    ReallyForceSpellRES("GelAss5",Myself) // 1/1
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSupT","LOCALS",60)
END

// 9 (1x av hver)
IF
  Global("GelSupT","LOCALS",9)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,9)
    ClassLevelGT(Myself,WIZARD,9)
    ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/1
    ReallyForceSpellRES("GelSwa5",Myself) // 1/1
    ReallyForceSpellRES("GelAss5",Myself) // 1/1
    ReallyForceSpellRES("GelSha5",Myself) // 1/1
    SetGlobal("GelSupT","LOCALS",60)
END

// 10 (2x av hver)
IF
  Global("GelSupT","LOCALS",10)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,10)
    ClassLevelGT(Myself,WIZARD,10)
    ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/2
    ReallyForceSpellRES("GelBou5",Myself) // 2/2
    ReallyForceSpellRES("GelSwa5",Myself) // 1/2
    ReallyForceSpellRES("GelSwa5",Myself) // 2/2
    ReallyForceSpellRES("GelAss5",Myself) // 1/2
    ReallyForceSpellRES("GelAss5",Myself) // 2/2
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSupT","LOCALS",60)
END

// 11 (2x av hver)
IF
  Global("GelSupT","LOCALS",11)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,11)
    ClassLevelGT(Myself,WIZARD,11)
    ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/2
    ReallyForceSpellRES("GelBou5",Myself) // 2/2
    ReallyForceSpellRES("GelSwa5",Myself) // 1/2
    ReallyForceSpellRES("GelSwa5",Myself) // 2/2
    ReallyForceSpellRES("GelAss5",Myself) // 1/2
    ReallyForceSpellRES("GelAss5",Myself) // 2/2
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSupT","LOCALS",60)
END

// 12 (2x av hver)
IF
  Global("GelSupT","LOCALS",12)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,12)
    ClassLevelGT(Myself,WIZARD,12)
    ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/2
    ReallyForceSpellRES("GelBou5",Myself) // 2/2
    ReallyForceSpellRES("GelSwa5",Myself) // 1/2
    ReallyForceSpellRES("GelSwa5",Myself) // 2/2
    ReallyForceSpellRES("GelAss5",Myself) // 1/2
    ReallyForceSpellRES("GelAss5",Myself) // 2/2
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSupT","LOCALS",60)
END

// 13 (2x av hver)
IF
  Global("GelSupT","LOCALS",13)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,13)
    ClassLevelGT(Myself,WIZARD,13)
    ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/2
    ReallyForceSpellRES("GelBou5",Myself) // 2/2
    ReallyForceSpellRES("GelSwa5",Myself) // 1/2
    ReallyForceSpellRES("GelSwa5",Myself) // 2/2
    ReallyForceSpellRES("GelAss5",Myself) // 1/2
    ReallyForceSpellRES("GelAss5",Myself) // 2/2
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSupT","LOCALS",60)
END

// 14 (2x av hver)
IF
  Global("GelSupT","LOCALS",14)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,14)
    ClassLevelGT(Myself,WIZARD,14)
    ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/2
    ReallyForceSpellRES("GelBou5",Myself) // 2/2
    ReallyForceSpellRES("GelSwa5",Myself) // 1/2
    ReallyForceSpellRES("GelSwa5",Myself) // 2/2
    ReallyForceSpellRES("GelAss5",Myself) // 1/2
    ReallyForceSpellRES("GelAss5",Myself) // 2/2
    ReallyForceSpellRES("GelSha5",Myself) // 1/2
    ReallyForceSpellRES("GelSha5",Myself) // 2/2
    SetGlobal("GelSupT","LOCALS",60)
END

// 15 (3x av hver)
IF
  Global("GelSupT","LOCALS",15)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,15)
    ClassLevelGT(Myself,WIZARD,15)
    ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/3
    ReallyForceSpellRES("GelBou5",Myself) // 2/3
    ReallyForceSpellRES("GelBou5",Myself) // 3/3
    ReallyForceSpellRES("GelSwa5",Myself) // 1/3
    ReallyForceSpellRES("GelSwa5",Myself) // 2/3
    ReallyForceSpellRES("GelSwa5",Myself) // 3/3
    ReallyForceSpellRES("GelAss5",Myself) // 1/3
    ReallyForceSpellRES("GelAss5",Myself) // 2/3
    ReallyForceSpellRES("GelAss5",Myself) // 3/3
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    SetGlobal("GelSupT","LOCALS",60)
END

// 16 (3x av hver)
IF
  Global("GelSupT","LOCALS",16)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,16)
    ClassLevelGT(Myself,WIZARD,16)
    ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/3
    ReallyForceSpellRES("GelBou5",Myself) // 2/3
    ReallyForceSpellRES("GelBou5",Myself) // 3/3
    ReallyForceSpellRES("GelSwa5",Myself) // 1/3
    ReallyForceSpellRES("GelSwa5",Myself) // 2/3
    ReallyForceSpellRES("GelSwa5",Myself) // 3/3
    ReallyForceSpellRES("GelAss5",Myself) // 1/3
    ReallyForceSpellRES("GelAss5",Myself) // 2/3
    ReallyForceSpellRES("GelAss5",Myself) // 3/3
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 17 (3x av hver)
IF
  Global("GelSupT","LOCALS",17)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,17)
    ClassLevelGT(Myself,WIZARD,17)
    ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/3
    ReallyForceSpellRES("GelBou5",Myself) // 2/3
    ReallyForceSpellRES("GelBou5",Myself) // 3/3
    ReallyForceSpellRES("GelSwa5",Myself) // 1/3
    ReallyForceSpellRES("GelSwa5",Myself) // 2/3
    ReallyForceSpellRES("GelSwa5",Myself) // 3/3
    ReallyForceSpellRES("GelAss5",Myself) // 1/3
    ReallyForceSpellRES("GelAss5",Myself) // 2/3
    ReallyForceSpellRES("GelAss5",Myself) // 3/3
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 18 (3x av hver)
IF
  Global("GelSupT","LOCALS",18)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,18)
    ClassLevelGT(Myself,WIZARD,18)
    ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/3
    ReallyForceSpellRES("GelBou5",Myself) // 2/3
    ReallyForceSpellRES("GelBou5",Myself) // 3/3
    ReallyForceSpellRES("GelSwa5",Myself) // 1/3
    ReallyForceSpellRES("GelSwa5",Myself) // 2/3
    ReallyForceSpellRES("GelSwa5",Myself) // 3/3
    ReallyForceSpellRES("GelAss5",Myself) // 1/3
    ReallyForceSpellRES("GelAss5",Myself) // 2/3
    ReallyForceSpellRES("GelAss5",Myself) // 3/3
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 19 (3x av hver)
IF
  Global("GelSupT","LOCALS",19)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,19)
    ClassLevelGT(Myself,WIZARD,19)
    ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/3
    ReallyForceSpellRES("GelBou5",Myself) // 2/3
    ReallyForceSpellRES("GelBou5",Myself) // 3/3
    ReallyForceSpellRES("GelSwa5",Myself) // 1/3
    ReallyForceSpellRES("GelSwa5",Myself) // 2/3
    ReallyForceSpellRES("GelSwa5",Myself) // 3/3
    ReallyForceSpellRES("GelAss5",Myself) // 1/3
    ReallyForceSpellRES("GelAss5",Myself) // 2/3
    ReallyForceSpellRES("GelAss5",Myself) // 3/3
    ReallyForceSpellRES("GelSha5",Myself) // 1/3
    ReallyForceSpellRES("GelSha5",Myself) // 2/3
    ReallyForceSpellRES("GelSha5",Myself) // 3/3
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 20 (4x av hver)
IF
  Global("GelSupT","LOCALS",20)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,20)
    ClassLevelGT(Myself,WIZARD,20)
    ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/4
    ReallyForceSpellRES("GelBou5",Myself) // 2/4
    ReallyForceSpellRES("GelBou5",Myself) // 3/4
    ReallyForceSpellRES("GelBou5",Myself) // 4/4
    ReallyForceSpellRES("GelSwa5",Myself) // 1/4
    ReallyForceSpellRES("GelSwa5",Myself) // 2/4
    ReallyForceSpellRES("GelSwa5",Myself) // 3/4
    ReallyForceSpellRES("GelSwa5",Myself) // 4/4
    ReallyForceSpellRES("GelAss5",Myself) // 1/4
    ReallyForceSpellRES("GelAss5",Myself) // 2/4
    ReallyForceSpellRES("GelAss5",Myself) // 3/4
    ReallyForceSpellRES("GelAss5",Myself) // 4/4
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 21 (4x av hver)
IF
  Global("GelSupT","LOCALS",21)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,21)
    ClassLevelGT(Myself,WIZARD,21)
    ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/4
    ReallyForceSpellRES("GelBou5",Myself) // 2/4
    ReallyForceSpellRES("GelBou5",Myself) // 3/4
    ReallyForceSpellRES("GelBou5",Myself) // 4/4
    ReallyForceSpellRES("GelSwa5",Myself) // 1/4
    ReallyForceSpellRES("GelSwa5",Myself) // 2/4
    ReallyForceSpellRES("GelSwa5",Myself) // 3/4
    ReallyForceSpellRES("GelSwa5",Myself) // 4/4
    ReallyForceSpellRES("GelAss5",Myself) // 1/4
    ReallyForceSpellRES("GelAss5",Myself) // 2/4
    ReallyForceSpellRES("GelAss5",Myself) // 3/4
    ReallyForceSpellRES("GelAss5",Myself) // 4/4
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 22 (4x av hver)
IF
  Global("GelSupT","LOCALS",22)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,22)
    ClassLevelGT(Myself,WIZARD,22)
    ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/4
    ReallyForceSpellRES("GelBou5",Myself) // 2/4
    ReallyForceSpellRES("GelBou5",Myself) // 3/4
    ReallyForceSpellRES("GelBou5",Myself) // 4/4
    ReallyForceSpellRES("GelSwa5",Myself) // 1/4
    ReallyForceSpellRES("GelSwa5",Myself) // 2/4
    ReallyForceSpellRES("GelSwa5",Myself) // 3/4
    ReallyForceSpellRES("GelSwa5",Myself) // 4/4
    ReallyForceSpellRES("GelAss5",Myself) // 1/4
    ReallyForceSpellRES("GelAss5",Myself) // 2/4
    ReallyForceSpellRES("GelAss5",Myself) // 3/4
    ReallyForceSpellRES("GelAss5",Myself) // 4/4
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 23 (4x av hver)
IF
  Global("GelSupT","LOCALS",23)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,23)
    ClassLevelGT(Myself,WIZARD,23)
    ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/4
    ReallyForceSpellRES("GelBou5",Myself) // 2/4
    ReallyForceSpellRES("GelBou5",Myself) // 3/4
    ReallyForceSpellRES("GelBou5",Myself) // 4/4
    ReallyForceSpellRES("GelSwa5",Myself) // 1/4
    ReallyForceSpellRES("GelSwa5",Myself) // 2/4
    ReallyForceSpellRES("GelSwa5",Myself) // 3/4
    ReallyForceSpellRES("GelSwa5",Myself) // 4/4
    ReallyForceSpellRES("GelAss5",Myself) // 1/4
    ReallyForceSpellRES("GelAss5",Myself) // 2/4
    ReallyForceSpellRES("GelAss5",Myself) // 3/4
    ReallyForceSpellRES("GelAss5",Myself) // 4/4
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 24 (4x av hver)
IF
  Global("GelSupT","LOCALS",24)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,24)
    ClassLevelGT(Myself,WIZARD,24)
    ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1/4
    ReallyForceSpellRES("GelBou5",Myself) // 2/4
    ReallyForceSpellRES("GelBou5",Myself) // 3/4
    ReallyForceSpellRES("GelBou5",Myself) // 4/4
    ReallyForceSpellRES("GelSwa5",Myself) // 1/4
    ReallyForceSpellRES("GelSwa5",Myself) // 2/4
    ReallyForceSpellRES("GelSwa5",Myself) // 3/4
    ReallyForceSpellRES("GelSwa5",Myself) // 4/4
    ReallyForceSpellRES("GelAss5",Myself) // 1/4
    ReallyForceSpellRES("GelAss5",Myself) // 2/4
    ReallyForceSpellRES("GelAss5",Myself) // 3/4
    ReallyForceSpellRES("GelAss5",Myself) // 4/4
    ReallyForceSpellRES("GelSha5",Myself) // 1/4
    ReallyForceSpellRES("GelSha5",Myself) // 2/4
    ReallyForceSpellRES("GelSha5",Myself) // 3/4
    ReallyForceSpellRES("GelSha5",Myself) // 4/4
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 25 (5x av hver) + HLA1
IF
  Global("GelSupT","LOCALS",25)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,25)
    ClassLevelGT(Myself,WIZARD,25)
    ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1..5
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 5/5
    ReallyForceSpellRES("GelSwa5",Myself) // 1..5
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 5/5
    ReallyForceSpellRES("GelAss5",Myself) // 1..5
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 5/5
    ReallyForceSpellRES("GelSha5",Myself) // 1..5
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 5/5
    ReallyForceSpellRES("GelHLA1",Myself) // @25
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 26 (5x av hver) + HLA1
IF
  Global("GelSupT","LOCALS",26)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,26)
    ClassLevelGT(Myself,WIZARD,26)
    ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1..5
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 5/5
    ReallyForceSpellRES("GelSwa5",Myself) // 1..5
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 5/5
    ReallyForceSpellRES("GelAss5",Myself) // 1..5
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 5/5
    ReallyForceSpellRES("GelSha5",Myself) // 1..5
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 5/5
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 27 (5x av hver) + HLA1 + HLA2
IF
  Global("GelSupT","LOCALS",27)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,27)
    ClassLevelGT(Myself,WIZARD,27)
    ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 5x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 5x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 5x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 5x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself) // @27
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 28 (5x av hver) + HLA1 + HLA2
IF
  Global("GelSupT","LOCALS",28)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,28)
    ClassLevelGT(Myself,WIZARD,28)
    ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 5x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 5x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 5x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 5x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 29 (5x av hver) + HLA1 + HLA2 + HLA3
IF
  Global("GelSupT","LOCALS",29)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,29)
    ClassLevelGT(Myself,WIZARD,29)
    ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 5x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 5x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 5x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 5x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself) // @29
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 30 (6x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",30)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,30)
    ClassLevelGT(Myself,WIZARD,30)
    ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1..6
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 6/6
    ReallyForceSpellRES("GelSwa5",Myself) // 1..6
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 6/6
    ReallyForceSpellRES("GelAss5",Myself) // 1..6
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 6/6
    ReallyForceSpellRES("GelSha5",Myself) // 1..6
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 6/6
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 31 (6x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",31)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,31)
    ClassLevelGT(Myself,WIZARD,31)
    ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 6x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 6x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 6x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 6x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 32 (6x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",32)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,32)
    ClassLevelGT(Myself,WIZARD,32)
    ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 6x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 6x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 6x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 6x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 33 (6x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",33)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,33)
    ClassLevelGT(Myself,WIZARD,33)
    ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 6x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 6x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 6x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 6x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 34 (6x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",34)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,34)
    ClassLevelGT(Myself,WIZARD,34)
    ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 6x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 6x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 6x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 6x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 35 (7x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",35)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,35)
    ClassLevelGT(Myself,WIZARD,35)
    ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1..7
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 7/7
    ReallyForceSpellRES("GelSwa5",Myself) // 1..7
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 7/7
    ReallyForceSpellRES("GelAss5",Myself) // 1..7
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 7/7
    ReallyForceSpellRES("GelSha5",Myself) // 1..7
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 7/7
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 36 (7x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",36)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,36)
    ClassLevelGT(Myself,WIZARD,36)
    ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 7x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 7x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 7x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 7x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 37 (7x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",37)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,37)
    ClassLevelGT(Myself,WIZARD,37)
    ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 7x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 7x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 7x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 7x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 38 (7x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",38)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,38)
    ClassLevelGT(Myself,WIZARD,38)
    ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 7x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 7x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 7x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 7x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 39 (7x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",39)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,39)
    ClassLevelGT(Myself,WIZARD,39)
    ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 7x
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 7x
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 7x
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 7x
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END

// 40 (8x av hver) + alle HLA
IF
  Global("GelSupT","LOCALS",40)
  OR(3)
    ClassLevelGT(Myself,WARRIOR,40)
    ClassLevelGT(Myself,WIZARD,40)
    ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,GelSupT)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 1..8
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelBou5",Myself) // 8/8
    ReallyForceSpellRES("GelSwa5",Myself) // 1..8
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself) // 8/8
    ReallyForceSpellRES("GelAss5",Myself) // 1..8
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelAss5",Myself) // 8/8
    ReallyForceSpellRES("GelSha5",Myself) // 1..8
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // 8/8
    ReallyForceSpellRES("GelHLA1",Myself)
    ReallyForceSpellRES("GelHLA2",Myself)
    ReallyForceSpellRES("GelHLA3",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSupT","LOCALS",60)
END


/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelSupT","LOCALS",60)
  Global("GelKeepSuperT","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepSuperT","LOCALS",3) // Reactivation complete
END

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////KEEP STALKER PROGRESSION TRACKER (before reactivation) ///////////////////////////////
// GelSta1.spl = Level 1: Set global for "fake backstab" Script, +20% Hide in shadows & Move Silent, Restric heavier than studdeth leather
// GelSta3.spl = Level 12: Add Spells: Minor Deflection, Haste, Protection From Normal Missles
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelKeepSta","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",1)
	SetGlobal("GelKeepSta","LOCALS",2)
END

IF
  Global("GelSta1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",2)
END

IF
  Global("GelSta1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",3)
END

IF
  Global("GelSta1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",4)
END

IF
  Global("GelSta1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",5)
END

IF
  Global("GelSta1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",6)
END

IF
  Global("GelSta1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",7)
END

IF
  Global("GelSta1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",8)
END

IF
  Global("GelSta1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",9)
END

IF
  Global("GelSta1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",10)
END

IF
  Global("GelSta1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",11)
END

IF
  Global("GelSta1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",12)
END

IF
  Global("GelSta1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",13)
END

IF
  Global("GelSta1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",14)
END

IF
  Global("GelSta1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",15)
END

IF
  Global("GelSta1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",16)
END

IF
  Global("GelSta1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",17)
END

IF
  Global("GelSta1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",18)
END

IF
  Global("GelSta1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",19)
END

IF
  Global("GelSta1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",20)
END

IF
  Global("GelSta1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",21)
END

IF
  Global("GelSta1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",22)
END

IF
  Global("GelSta1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",23)
END

IF
  Global("GelSta1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",24)
END

IF
  Global("GelSta1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",25)
END

IF
  Global("GelSta1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",26)
END

IF
  Global("GelSta1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",27)
END

IF
  Global("GelSta1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",28)
END

IF
  Global("GelSta1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",29)
END

IF
  Global("GelSta1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",30)
END

IF
  Global("GelSta1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",31)
END

IF
  Global("GelSta1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",32)
END

IF
  Global("GelSta1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",33)
END

IF
  Global("GelSta1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",34)
END

IF
  Global("GelSta1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",35)
END

IF
  Global("GelSta1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",36)
END

IF
  Global("GelSta1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",37)
END

IF
  Global("GelSta1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",38)
END

IF
  Global("GelSta1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",39)
END

IF
  Global("GelSta1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    SetGlobal("GelSta1","LOCALS",40)
END

//////////// First Class Revival Stalker ////////////////////////////

IF
  Global("GelSta1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
	ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)	
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself)	
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",38)
  ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

IF
  Global("GelSta1","LOCALS",40)
  ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,STALKER)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself)
	ReallyForceSpellRES("GelStaI",Myself) // Restrictions
    ReallyForceSpellRES("GelSta2",Myself)
    ReallyForceSpellRES("GelSta5",Myself)
	ReallyForceSpellRES("GelSta5",Myself)
    ReallyForceSpellRES("GelSta5",Myself) 
    SetGlobal("GelSta1","LOCALS",60)
END

/////////////////////////////// MARK FINISHED ///////////////////////////////
IF
  Global("GelSta1","LOCALS",60)
  Global("GelKeepSta","LOCALS",2)
THEN
  RESPONSE #100
    SetGlobal("GelKeepSta","LOCALS",3) // Reactivation complete
END

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////// GelKeepSli - Slinging Beastmaster //////////////////////////////////////////////////////////////////////////////
//GelSli1: Restric all wepons but: QuarterStaff/Sling/Clubs, restrict: all Metal armors, Learn Find familiar, +15% bonus to stealth
//GelSli2: Learn Called Shot: Each 4th level.
//GelSli3: +1 bonus to thaco/daWIZARD MISSLE ONLY: Each 3rd level.
//GelSli4: Learn: Special Animal Summoning I for level 1 spellbook : Gained at level 8.
//GelSli5: Learn: Special Animal Summoning II for level 2 spellbook : Gained at level 10.
//GelSli6: Learn: Special Animal Summoning III for level 3 spellbook : Gained at level 12.
//Possible need to add + or set profience points to sling/quarterstaff/clubs
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
IF
  Global("GelKeepSli","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",1)
	SetGlobal("GelKeepSli","LOCALS",2)
END

IF
  Global("GelSli1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",2)
END

IF
  Global("GelSli1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",3)
END

IF
  Global("GelSli1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",4)
END

IF
  Global("GelSli1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",5)
END

IF
  Global("GelSli1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",6)
END

IF
  Global("GelSli1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",7)
END

IF
  Global("GelSli1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",8)
END

IF
  Global("GelSli1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",9)
END

IF
  Global("GelSli1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",10)
END

IF
  Global("GelSli1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",11)
END

IF
  Global("GelSli1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",12)
END

IF
  Global("GelSli1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",13)
END

IF
  Global("GelSli1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",14)
END

IF
  Global("GelSli1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",15)
END

IF
  Global("GelSli1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",16)
END

IF
  Global("GelSli1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",17)
END

IF
  Global("GelSli1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",18)
END

IF
  Global("GelSli1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",19)
END

IF
  Global("GelSli1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",20)
END

IF
  Global("GelSli1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",21)
END

IF
  Global("GelSli1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",22)
END

IF
  Global("GelSli1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",23)
END

IF
  Global("GelSli1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",24)
END

IF
  Global("GelSli1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",25)
END

IF
  Global("GelSli1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",26)
END

IF
  Global("GelSli1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",27)
END

IF
  Global("GelSli1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",28)
END

IF
  Global("GelSli1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",29)
END

IF
  Global("GelSli1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",30)
END

IF
  Global("GelSli1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",31)
END

IF
  Global("GelSli1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",32)
END

IF
  Global("GelSli1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",33)
END

IF
  Global("GelSli1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",34)
END

IF
  Global("GelSli1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",35)
END

IF
  Global("GelSli1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",36)
END

IF
  Global("GelSli1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",37)
END

IF
  Global("GelSli1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",38)
END

IF
  Global("GelSli1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",39)
END

IF
  Global("GelSli1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    SetGlobal("GelSli1","LOCALS",40)
END

///////////////////////// Reactivation - Slinging Beastmaster //////////////////////////////////////////////////////////////////////////////
//GelSli1: Restric all wepons but: QuarterStaff/Sling/Clubs, restrict: all Metal armors, Learn Find familiar, +15% bonus to stealth
//GelSli2: Learn Called Shot: Each 4th level.
//GelSli3: +1 bonus to thaco/daWIZARD MISSLE ONLY: Each 3rd level.
//GelSli4: Learn: Special Animal Summoning I for level 1 spellbook : Gained at level 8.
//GelSli5: Learn: Special Animal Summoning II for level 2 spellbook : Gained at level 10.
//GelSli6: Learn: Special Animal Summoning III for level 3 spellbook : Gained at level 12.
//Possible need to add + or set profience points to sling/quarterstaff/clubs
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelSli1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",38)
  ClassLevelGT(Myself,PRIEST,38)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  Global("GelSli1","LOCALS",40)
  ClassLevelGT(Myself,PRIEST,40)
  !Kit(Myself,GelSliD) // Singeclass Version
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSli1",Myself) //Learn Find familiar, +15% bonus to stealth 
	ReallyForceSpellRES("GelSliI",Myself) //restrict: all Metal armors, and the wepons, Learn Find familiar, +15% bonus to stealth
    ReallyForceSpellRES("GelSli3",Myself) // Bonus Missle
    ReallyForceSpellRES("GelSli2",Myself) // Learn Called Shot
    ReallyForceSpellRES("GelSli4",Myself) // Learn Animal Summoning I
    ReallyForceSpellRES("GelSli5",Myself) // Learn Animal Summoning II
    ReallyForceSpellRES("GelSli6",Myself) // Learn Animal Summoning III
    SetGlobal("GelSli1","LOCALS",60)
END

IF
  OR(3)
    GlobalGT("GelKeepTot","LOCALS",0)
    GlobalGT("GelKeepShp","LOCALS",0)
	GlobalGT("GelKeepAve","LOCALS",0)
  OR(6)
    HaveSpellRES("SPIN107")
    HaveSpellRES("SPIN110")
    HaveSpellRES("SPIN111")
    HaveSpellRES("SPCL611")
    HaveSpellRES("SPCL612")
    HaveSpellRES("SPCL613")
THEN
  RESPONSE #100
    RemoveSpellRES("SPIN107")
    RemoveSpellRES("SPIN110")
    RemoveSpellRES("SPIN111")
    RemoveSpellRES("SPCL611")
    RemoveSpellRES("SPCL612")
    RemoveSpellRES("SPCL613")
END

///////////// Totemic PRIEST Level Tracker /////////

IF
  Global("GelKeepTot","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",1)
	SetGlobal("GelKeepTot","LOCALS",2)
END

IF
  Global("GelTot1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",2)
END

IF
  Global("GelTot1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",3)
END

IF
  Global("GelTot1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",4)
END

IF
  Global("GelTot1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",5)
END

IF
  Global("GelTot1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",6)
END

IF
  Global("GelTot1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",7)
END

IF
  Global("GelTot1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",8)
END

IF
  Global("GelTot1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",9)
END

IF
  Global("GelTot1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",10)
END

IF
  Global("GelTot1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",11)
END

IF
  Global("GelTot1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",12)
END

IF
  Global("GelTot1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",13)
END

IF
  Global("GelTot1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",14)
END

IF
  Global("GelTot1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",15)
END

IF
  Global("GelTot1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",16)
END

IF
  Global("GelTot1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",17)
END

IF
  Global("GelTot1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",18)
END

IF
  Global("GelTot1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",19)
END

IF
  Global("GelTot1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",20)
END

IF
  Global("GelTot1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",21)
END

IF
  Global("GelTot1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",22)
END

IF
  Global("GelTot1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",23)
END

IF
  Global("GelTot1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",24)
END

IF
  Global("GelTot1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",25)
END

IF
  Global("GelTot1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",26)
END

IF
  Global("GelTot1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",27)
END

IF
  Global("GelTot1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",28)
END

IF
  Global("GelTot1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    SetGlobal("GelTot","LOCALS",29)
END

IF
  Global("GelTot1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",30)
END

IF
  Global("GelTot1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",31)
END

IF
  Global("GelTot1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",32)
END

IF
  Global("GelTot1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",33)
END

IF
  Global("GelTot1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",34)
END

IF
  Global("GelTot1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",35)
END

IF
  Global("GelTot1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    SetGlobal("GelTot","LOCALS",36)
END

IF
  Global("GelTot1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",37)
END

IF
  Global("GelTot1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",38)
END

IF
  Global("GelTot1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
    SetGlobal("GelTot1","LOCALS",40)
END

////////////////////// Totemic PRIEST ////////////////////
// May not shapeshift
// Summon Spirit Animals level level 1, 5, 10, 15, 20, 25, 30, 35, 40
//////////////////////////////////////////////////////////

IF
  Global("GelTot1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END


IF
  Global("GelTot1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END


IF
  Global("GelTot1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END


IF
  Global("GelTot1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END


IF
  Global("GelTot1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

IF
  Global("GelTot1","LOCALS",40)
  ClassLevelGT(Myself,WARRIOR,40)
  !Kit(Myself,TOTEMIC) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    ReallyForceSpellRES("GelTot2",Myself)
    SetGlobal("GelTot1","LOCALS",60)
END

///////////////// Avenger Level Tracking ///////////////

IF
  Global("GelKeepAve","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",1)
	SetGlobal("GelKeepAve","LOCALS",2)
END

IF
  Global("GelAve1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",2)
END

IF
  Global("GelAve1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",3)
END

IF
  Global("GelAve1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",4)
END

IF
  Global("GelAve1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",5)
END

IF
  Global("GelAve1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",6)
END

IF
  Global("GelAve1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",7)
END

IF
  Global("GelAve1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",8)
END

IF
  Global("GelAve1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",9)
END

IF
  Global("GelAve1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",10)
END

IF
  Global("GelAve1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",11)
END

IF
  Global("GelAve1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",12)
END

IF
  Global("GelAve1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",13)
END

IF
  Global("GelAve1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",14)
END

IF
  Global("GelAve1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",15)
END

IF
  Global("GelAve1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",16)
END

IF
  Global("GelAve1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",17)
END

IF
  Global("GelAve1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",18)
END

IF
  Global("GelAve1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",19)
END

IF
  Global("GelAve1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",20)
END

IF
  Global("GelAve1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",21)
END

IF
  Global("GelAve1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",22)
END

IF
  Global("GelAve1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",23)
END

IF
  Global("GelAve1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",24)
END

IF
  Global("GelAve1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",25)
END

IF
  Global("GelAve1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",26)
END

IF
  Global("GelAve1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",27)
END

IF
  Global("GelAve1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",28)
END

IF
  Global("GelAve1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",29)
END

IF
  Global("GelAve1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",30)
END

IF
  Global("GelAve1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",31)
END

IF
  Global("GelAve1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",32)
END

IF
  Global("GelAve1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",33)
END

IF
  Global("GelAve1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",34)
END

IF
  Global("GelAve1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",35)
END

IF
  Global("GelAve1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",36)
END

IF
  Global("GelAve1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",37)
END

IF
  Global("GelAve1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",38)
END

IF
  Global("GelAve1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
    SetGlobal("GelAve1","LOCALS",40)
END

/////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////// AVENGER ///////////////////////////////////////////////////////
// May not shapeshift regular
// May shapeshift Special: to Sword Spider, Baby Wyvern and Fire Salamander
// Level 19, +1 tp Shapeshift Special
// May only wear leather, -2 to penalty to Strenght and Constitution
/////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelAve1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself) // Learn Spells: Chromatic Orb, Web, Lightning Bolt, Improved Invisibility, Chaos and Chain Lightning
    ReallyForceSpellRES("GelAve2",Myself) // Add Innate Ability: Shapeshift Sword Spider, Wyvern, Fire Salamander
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself) // Learn Spells: Chromatic Orb, Web, Lightning Bolt, Improved Invisibility, Chaos and Chain Lightning
    ReallyForceSpellRES("GelAve2",Myself) // Add Innate Ability: Shapeshift Sword Spider, Wyvern, Fire Salamander
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself) // Learn Spells: Chromatic Orb, Web, Lightning Bolt, Improved Invisibility, Chaos and Chain Lightning
    ReallyForceSpellRES("GelAve2",Myself) // Add Innate Ability: Shapeshift Sword Spider, Wyvern, Fire Salamander
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

IF
  Global("GelAve1","LOCALS",40)
  ClassLevelGT(Myself,WARRIOR,40)
  !Kit(Myself,BEASTFRIEND) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself) // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAveI",Myself) //Restrict armors better than leather.
    ReallyForceSpellRES("GelAve3",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    ReallyForceSpellRES("GelAve2",Myself)
    SetGlobal("GelAve1","LOCALS",60)
END

/////////////// Shapeshifter level tracking ///////////

IF
  Global("GelKeepShp","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",1)
	SetGlobal("GelKeepShp","LOCALS",2)
END

IF
  Global("GelShp1","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,1)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",2)
END

IF
  Global("GelShp1","LOCALS",2)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",3)
END

IF
  Global("GelShp1","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,3)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",4)
END

IF
  Global("GelShp1","LOCALS",4)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",5)
END

IF
  Global("GelShp1","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",6)
END

IF
  Global("GelShp1","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",7)
END

IF
  Global("GelShp1","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,7)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",8)
END

IF
  Global("GelShp1","LOCALS",8)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",9)
END

IF
  Global("GelShp1","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",10)
END

IF
  Global("GelShp1","LOCALS",10)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",11)
END

IF
  Global("GelShp1","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,11)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",12)
END

IF
  Global("GelShp1","LOCALS",12)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",13)
END

IF
  Global("GelShp1","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,13)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",14)
END

IF
  Global("GelShp1","LOCALS",14)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",15)
END

IF
  Global("GelShp1","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",16)
END

IF
  Global("GelShp1","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",17)
END

IF
  Global("GelShp1","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,17)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",18)
END

IF
  Global("GelShp1","LOCALS",18)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",19)
END

IF
  Global("GelShp1","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",20)
END

IF
  Global("GelShp1","LOCALS",20)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",21)
END

IF
  Global("GelShp1","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,21)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",22)
END

IF
  Global("GelShp1","LOCALS",22)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",23)
END

IF
  Global("GelShp1","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,23)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",24)
END

IF
  Global("GelShp1","LOCALS",24)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",25)
END

IF
  Global("GelShp1","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",26)
END

IF
  Global("GelShp1","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",27)
END

IF
  Global("GelShp1","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,27)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",28)
END

IF
  Global("GelShp1","LOCALS",28)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",29)
END

IF
  Global("GelShp1","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",30)
END

IF
  Global("GelShp1","LOCALS",30)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",31)
END

IF
  Global("GelShp1","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,31)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",32)
END

IF
  Global("GelShp1","LOCALS",32)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",33)
END

IF
  Global("GelShp1","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,33)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",34)
END

IF
  Global("GelShp1","LOCALS",34)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",35)
END

IF
  Global("GelShp1","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",36)
END

IF
  Global("GelShp1","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",37)
END

IF
  Global("GelShp1","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,37)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",38)
END

IF
  Global("GelShp1","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
    SetGlobal("GelShp1","LOCALS",40)
END

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////// Shapeshifter ////////////////////////////////////////////////////////////////////////
// May not shapeshift regular
// May shapeshift Special: Werewolf at lvl 1, then each 2nd level. 1/3/5/7/9/11
// May shapeshift Special: Greater Werewolf at lvl 13, then each 2nd level. 13/15/17/19/21/23/25/27/29/31/33/35/37/39
// May not wear any armor
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelShp1","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,1)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,2)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,3)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,5)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,6)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,7)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,9)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,10)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,11)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,13)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,14)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,15)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,17)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,18)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,19)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,21)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",22)
  ClassLevelGT(Myself,WARRIOR,22)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",23)
  ClassLevelGT(Myself,WARRIOR,23)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,25)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",26)
  ClassLevelGT(Myself,WARRIOR,26)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,27)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",29)
  ClassLevelGT(Myself,WARRIOR,29)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,30)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",31)
  ClassLevelGT(Myself,WARRIOR,31)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,33)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",34)
  ClassLevelGT(Myself,WARRIOR,34)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,35)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",37)
  ClassLevelGT(Myself,WARRIOR,37)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",38)
  ClassLevelGT(Myself,WARRIOR,38)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,39)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

IF
  Global("GelShp1","LOCALS",40)
  ClassLevelGT(Myself,WARRIOR,40)
  !Kit(Myself,SHAPESHIFTER) 
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelShp1","LOCALS",60)
END

//////////// Shadowdancer remove traps /////////

IF
  GlobalGT("GelKeepSha","LOCALS",0)
  !GlobalGT("GelKeepSupT","LOCALS",0)
  OR(4)
    HaveSpellRES("SPCL412")
    HaveSpellRES("SPCL910")
    HaveSpellRES("SPCL911")
    HaveSpellRES("SPCL912")
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTraR",Myself) // RemoveSpell(the traps)
END

/////////// NPC JOIN START DIALOG TO START KITCHANGER ON KITTED CHARS ////////////
IF
  GlobalLT("GelJoinParty","LOCALS",1)
  InParty(Myself)
  OR(36)
  Kit(Myself,BERSERKER)
  Kit(Myself,WIZARDSLAYER)
  Kit(Myself,KENSAI)
  Kit(Myself,CAVALIER)
  Kit(Myself,INQUISITOR)
  Kit(Myself,FERALAN)
  Kit(Myself,STALKER)
  Kit(Myself,BEASTMASTER)
  Kit(Myself,ASSASIN)
  Kit(Myself,BOUNTYHUNTER)
  Kit(Myself,SWASHBUCKLER)
  Kit(Myself,BLADE)
  Kit(Myself,JESTER)
  Kit(Myself,SKALD)
  Kit(Myself,TOTEMIC)
  Kit(Myself,SHAPESHIFTER)
  Kit(Myself,BEASTFRIEND)
  Kit(Myself,GODTALOS)
  Kit(Myself,GODHELM)
  Kit(Myself,GODLATHANDER)
  Kit(Myself,MAGESCHOOL_ABJURER)
  Kit(Myself,MAGESCHOOL_CONJURER)
  Kit(Myself,MAGESCHOOL_DIVINER)
  Kit(Myself,MAGESCHOOL_ENCHANTER)
  Kit(Myself,MAGESCHOOL_ILLUSIONIST)
  Kit(Myself,MAGESCHOOL_INVOKER)
  Kit(Myself,MAGESCHOOL_NECROMANCER)
  Kit(Myself,MAGESCHOOL_TRANSMUTER)
  Kit(Myself,BARBARIAN)
  Kit(Myself,Blackguard)
  Kit(Myself,SHADOWDANCER)
  Kit(Myself,DWARVEN_DEFENDER)
  Kit(Myself,DARK_MOON)
  Kit(Myself,SUN_SOUL)
  Kit(Myself,OHTYR)
  Kit(Myself,OHTEMPUS)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNDia",Myself) // Summons GelNDia.cre
	SetGlobal("GelJoinParty","LOCALS",1)
END

IF
  Global("GelJoinParty","LOCALS",1)
THEN
  RESPONSE #100
    SetGlobal("GelJoinParty","LOCALS",99)
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// MULTI CLASS KIT KENSAI ////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
IF
  Global("GelMultiKen","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen1",Myself)   //Learn Kai, +2 AC 
	ReallyForceSpellRES("GelKenI",Myself)   //Restrictions, 
    SetGlobal("GelMultiKen","LOCALS",3)
END

IF
  Global("GelMultiKen","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)   // +1 THAC0 & damage
    SetGlobal("GelMultiKen","LOCALS",4)
END

IF
  Global("GelMultiKen","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen4",Myself)   // -1 speed factor
    SetGlobal("GelMultiKen","LOCALS",5)
END

IF
  Global("GelMultiKen","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen5",Myself)   // Learn Kai
    SetGlobal("GelMultiKen","LOCALS",6)
END

IF
  Global("GelMultiKen","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    SetGlobal("GelMultiKen","LOCALS",8)
END

IF
  Global("GelMultiKen","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen4",Myself)
    SetGlobal("GelMultiKen","LOCALS",9)
END

IF
  Global("GelMultiKen","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    SetGlobal("GelMultiKen","LOCALS",10)
END

IF
  Global("GelMultiKen","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen5",Myself)
    SetGlobal("GelMultiKen","LOCALS",12)
END

IF
  Global("GelMultiKen","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    ReallyForceSpellRES("GelKen4",Myself)
    SetGlobal("GelMultiKen","LOCALS",15)
END

IF
  Global("GelMultiKen","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    ReallyForceSpellRES("GelKen5",Myself)
    SetGlobal("GelMultiKen","LOCALS",16)
END

IF
  Global("GelMultiKen","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen4",Myself)
    SetGlobal("GelMultiKen","LOCALS",18)
END

IF
  Global("GelMultiKen","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    SetGlobal("GelMultiKen","LOCALS",20)
END

IF
  Global("GelMultiKen","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen4",Myself)
    ReallyForceSpellRES("GelKen5",Myself)
    SetGlobal("GelMultiKen","LOCALS",21)
END

IF
  Global("GelMultiKen","LOCALS",21)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    SetGlobal("GelMultiKen","LOCALS",24)
END

IF
  Global("GelMultiKen","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    ReallyForceSpellRES("GelKen4",Myself)
    SetGlobal("GelMultiKen","LOCALS",25)
END

IF
  Global("GelMultiKen","LOCALS",25)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen5",Myself)
    SetGlobal("GelMultiKen","LOCALS",27)
END

IF
  Global("GelMultiKen","LOCALS",27)
  ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    SetGlobal("GelMultiKen","LOCALS",28)
END

IF
  Global("GelMultiKen","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen4",Myself)
    SetGlobal("GelMultiKen","LOCALS",30)
END

IF
  Global("GelMultiKen","LOCALS",30)
  ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    ReallyForceSpellRES("GelKen5",Myself)
    SetGlobal("GelMultiKen","LOCALS",32)
END

IF
  Global("GelMultiKen","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen4",Myself)
    SetGlobal("GelMultiKen","LOCALS",33)
END

IF
  Global("GelMultiKen","LOCALS",33)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    SetGlobal("GelMultiKen","LOCALS",35)
END

IF
  Global("GelMultiKen","LOCALS",35)
  ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen5",Myself)
    SetGlobal("GelMultiKen","LOCALS",36)
END

IF
  Global("GelMultiKen","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    ReallyForceSpellRES("GelKen4",Myself)
    SetGlobal("GelMultiKen","LOCALS",39)
END

IF
  Global("GelMultiKen","LOCALS",39)
  ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen3",Myself)
    SetGlobal("GelMultiKen","LOCALS",40)
END

IF
  Global("GelMultiKen","LOCALS",40)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKen4",Myself)
    ReallyForceSpellRES("GelKen5",Myself)
    SetGlobal("GelMultiKen","LOCALS",99)
END


////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// MULTI CLASS KIT BARBARIAN ////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
IF
  Global("GelMultiBar","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar1",Myself)   //+2 move, 1 rage/day, immune to backstab
	ReallyForceSpellRES("GelBarI",Myself)   //restrictions splint mail
    SetGlobal("GelMultiBar","LOCALS",5)
END

IF
  Global("GelMultiBar","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)   // +1 rage
    SetGlobal("GelMultiBar","LOCALS",9)
END

IF
  Global("GelMultiBar","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)   // +1 Rage
    SetGlobal("GelMultiBar","LOCALS",11)
END

IF
  Global("GelMultiBar","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBarR",Myself) // +5% physical res
    ReallyForceSpellRES("GelBarR",Myself) // +5% physical res
    SetGlobal("GelMultiBar","LOCALS",13)
END

IF
  Global("GelMultiBar","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)   // +1 rage
    SetGlobal("GelMultiBar","LOCALS",15)
END

IF
  Global("GelMultiBar","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBarR",Myself) // +5% Physical
    SetGlobal("GelMultiBar","LOCALS",16)
END

IF
  Global("GelMultiBar","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)   // +1 rage
    SetGlobal("GelMultiBar","LOCALS",19)
END

IF
  Global("GelMultiBar","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBarR",Myself) // +5 Physical
    SetGlobal("GelMultiBar","LOCALS",20)
END

IF
  Global("GelMultiBar","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)   // Learn Rage
    SetGlobal("GelMultiBar","LOCALS",24)
END

IF
  Global("GelMultiBar","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelMultiBar","LOCALS",28)
END

IF
  Global("GelMultiBar","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelMultiBar","LOCALS",32)
END

IF
  Global("GelMultiBar","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelMultiBar","LOCALS",36)
END

IF
  Global("GelMultiBar","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelMultiBar","LOCALS",40)
END

IF
  Global("GelMultiBar","LOCALS",40)
  ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBar4",Myself)
    SetGlobal("GelMultiBar","LOCALS",99)
END


////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// MULTI CLASS KIT BERSERKER ////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
IF
  Global("GelMultiBer","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer1",Myself)   // Enrage 1/day + restrictions
    SetGlobal("GelMultiBer","LOCALS",4)
END

IF
  Global("GelMultiBer","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)   // +1 Enrage
    SetGlobal("GelMultiBer","LOCALS",8)
END

IF
  Global("GelMultiBer","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelMultiBer","LOCALS",12)
END

IF
  Global("GelMultiBer","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelMultiBer","LOCALS",16)
END

IF
  Global("GelMultiBer","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelMultiBer","LOCALS",20)
END

IF
  Global("GelMultiBer","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelMultiBer","LOCALS",24)
END

IF
  Global("GelMultiBer","LOCALS",24)
  ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelMultiBer","LOCALS",28)
END

IF
  Global("GelMultiBer","LOCALS",28)
  ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelMultiBer","LOCALS",32)
END

IF
  Global("GelMultiBer","LOCALS",32)
  ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelMultiBer","LOCALS",36)
END

IF
  Global("GelMultiBer","LOCALS",36)
  ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBer4",Myself)
    SetGlobal("GelMultiBer","LOCALS",99)
END


////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// MULTI CLASS KIT DWARVEN DEFENDER /////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
IF
      Global("GelMultiDwD","LOCALS",1)
      ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD1",Myself)   // Base: Defensive Stance 1/day + restrictions
        SetGlobal("GelMultiDwD","LOCALS",4)
        SetGlobal("GelMultiDwDRes","LOCALS",1)
        SetGlobal("GelMultiDwDAC","LOCALS",0) // 0 = Deactivated
END

IF
      Global("GelMultiDwD","LOCALS",4)
      ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)   // +1 Stance use
        SetGlobal("GelMultiDwD","LOCALS",8)
END

IF
      Global("GelMultiDwD","LOCALS",8)
      ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)
        SetGlobal("GelMultiDwD","LOCALS",12)
END

IF
      Global("GelMultiDwD","LOCALS",12)
      ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)
        SetGlobal("GelMultiDwD","LOCALS",16)
END

IF
      Global("GelMultiDwD","LOCALS",16)
      ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)
        SetGlobal("GelMultiDwD","LOCALS",20)
END

IF
      Global("GelMultiDwD","LOCALS",20)
      ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)
        SetGlobal("GelMultiDwD","LOCALS",24)
END

IF
      Global("GelMultiDwD","LOCALS",24)
      ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)
        SetGlobal("GelMultiDwD","LOCALS",28)
END

IF
      Global("GelMultiDwD","LOCALS",28)
      ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)
        SetGlobal("GelMultiDwD","LOCALS",32)
END

IF
      Global("GelMultiDwD","LOCALS",32)
      ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)
        SetGlobal("GelMultiDwD","LOCALS",36)
END

IF
      Global("GelMultiDwD","LOCALS",36)
      ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD2",Myself)
        SetGlobal("GelMultiDwD","LOCALS",99)
END

// Physical Resistance +5% hver 5. nivå (vanilla)
IF
      Global("GelMultiDwDRes","LOCALS",1)
      ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD3",Myself)
        SetGlobal("GelMultiDwDRes","LOCALS",2)
END

IF
      Global("GelMultiDwDRes","LOCALS",2)
      ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD3",Myself)
        SetGlobal("GelMultiDwDRes","LOCALS",3)
END

IF
      Global("GelMultiDwDRes","LOCALS",3)
      ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD3",Myself)
        SetGlobal("GelMultiDwDRes","LOCALS",4)
END

IF
      Global("GelMultiDwDRes","LOCALS",4)
      ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD3",Myself)
        SetGlobal("GelMultiDwDRes","LOCALS",99)
END

// Ekstra AC-progresjon +1 hver 5. nivå (mod-style)
IF
      Global("GelMultiDwDAC","LOCALS",1)
      ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD4",Myself)
        SetGlobal("GelMultiDwDAC","LOCALS",2)
END

IF
      Global("GelMultiDwDAC","LOCALS",2)
      ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD4",Myself)
        SetGlobal("GelMultiDwDAC","LOCALS",3)
END

IF
      Global("GelMultiDwDAC","LOCALS",3)
      ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD4",Myself)
        SetGlobal("GelMultiDwDAC","LOCALS",4)
END

IF
      Global("GelMultiDwDAC","LOCALS",4)
      ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD4",Myself)
        SetGlobal("GelMultiDwDAC","LOCALS",5)
END

IF
      Global("GelMultiDwDAC","LOCALS",5)
      ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD4",Myself)
        SetGlobal("GelMultiDwDAC","LOCALS",6)
END

IF
      Global("GelMultiDwDAC","LOCALS",6)
      ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD4",Myself)
        SetGlobal("GelMultiDwDAC","LOCALS",7)
END

IF
      Global("GelMultiDwDAC","LOCALS",7)
      ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD4",Myself)
        SetGlobal("GelMultiDwDAC","LOCALS",8)
END

IF
      Global("GelMultiDwDAC","LOCALS",8)
      ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDwD4",Myself)
        SetGlobal("GelMultiDwDAC","LOCALS",99)
END


////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// MULTI CLASS KIT WIZARD SLAYER ////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
IF
      Global("GelMultiWiS","LOCALS",1)
      ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS3",Myself)   // Base kit: 25% misscast on target
		ReallyForceSpellRES("GelWiSI",Myself)   // restrictions(Gauntlet/belt/jewerly/scrolls/most pots)
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",2)
END

IF
      Global("GelMultiWiS","LOCALS",2)
      ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",3)
END

IF
      Global("GelMultiWiS","LOCALS",3)
      ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",4)
END

IF
      Global("GelMultiWiS","LOCALS",4)
      ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",5)
END

IF
      Global("GelMultiWiS","LOCALS",5)
      ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",6)
END

IF
      Global("GelMultiWiS","LOCALS",6)
      ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",7)
END

IF
      Global("GelMultiWiS","LOCALS",7)
      ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",8)
END

IF
      Global("GelMultiWiS","LOCALS",8)
      ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",9)
END

IF
      Global("GelMultiWiS","LOCALS",9)
      ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",10)
END

IF
      Global("GelMultiWiS","LOCALS",10)
      ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",11)
END

IF
      Global("GelMultiWiS","LOCALS",11)
      ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",12)
END

IF
      Global("GelMultiWiS","LOCALS",12)
      ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",13)
END

IF
      Global("GelMultiWiS","LOCALS",13)
      ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",14)
END

IF
      Global("GelMultiWiS","LOCALS",14)
      ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",15)
END

IF
      Global("GelMultiWiS","LOCALS",15)
      ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",16)
END

IF
      Global("GelMultiWiS","LOCALS",16)
      ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",17)
END

IF
      Global("GelMultiWiS","LOCALS",17)
      ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",18)
END

IF
      Global("GelMultiWiS","LOCALS",18)
      ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",19)
END

IF
      Global("GelMultiWiS","LOCALS",19)
      ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",20)
END

IF
      Global("GelMultiWiS","LOCALS",20)
      ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",21)
END

IF
      Global("GelMultiWiS","LOCALS",21)
      ClassLevelGT(Myself,WARRIOR,20)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",22)
END

IF
      Global("GelMultiWiS","LOCALS",22)
      ClassLevelGT(Myself,WARRIOR,21)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",23)
END

IF
      Global("GelMultiWiS","LOCALS",23)
      ClassLevelGT(Myself,WARRIOR,22)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",24)
END

IF
      Global("GelMultiWiS","LOCALS",24)
      ClassLevelGT(Myself,WARRIOR,23)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",25)
END

IF
      Global("GelMultiWiS","LOCALS",25)
      ClassLevelGT(Myself,WARRIOR,24)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",26)
END

IF
      Global("GelMultiWiS","LOCALS",26)
      ClassLevelGT(Myself,WARRIOR,25)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",27)
END

IF
      Global("GelMultiWiS","LOCALS",27)
      ClassLevelGT(Myself,WARRIOR,26)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",28)
END

IF
      Global("GelMultiWiS","LOCALS",28)
      ClassLevelGT(Myself,WARRIOR,27)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",29)
END

IF
      Global("GelMultiWiS","LOCALS",29)
      ClassLevelGT(Myself,WARRIOR,28)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",30)
END

IF
      Global("GelMultiWiS","LOCALS",30)
      ClassLevelGT(Myself,WARRIOR,29)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",31)
END

IF
      Global("GelMultiWiS","LOCALS",31)
      ClassLevelGT(Myself,WARRIOR,30)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",32)
END

IF
      Global("GelMultiWiS","LOCALS",32)
      ClassLevelGT(Myself,WARRIOR,31)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",33)
END

IF
      Global("GelMultiWiS","LOCALS",33)
      ClassLevelGT(Myself,WARRIOR,32)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",34)
END

IF
      Global("GelMultiWiS","LOCALS",34)
      ClassLevelGT(Myself,WARRIOR,33)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",35)
END

IF
      Global("GelMultiWiS","LOCALS",35)
      ClassLevelGT(Myself,WARRIOR,34)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",36)
END

IF
      Global("GelMultiWiS","LOCALS",36)
      ClassLevelGT(Myself,WARRIOR,35)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",37)
END

IF
      Global("GelMultiWiS","LOCALS",37)
      ClassLevelGT(Myself,WARRIOR,36)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",38)
END

IF
      Global("GelMultiWiS","LOCALS",38)
      ClassLevelGT(Myself,WARRIOR,37)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",39)
END

IF
      Global("GelMultiWiS","LOCALS",39)
      ClassLevelGT(Myself,WARRIOR,38)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS2",Myself)   // 1% magic res
        SetGlobal("GelMultiWiS","LOCALS",40)
END

IF
      Global("GelMultiWiS","LOCALS",40)
      ClassLevelGT(Myself,WARRIOR,39)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelWiS4",Myself)   // 5% magic res
        SetGlobal("GelMultiWiS","LOCALS",99)
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// MULTI CLASS MAGE KITS /////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Mage multiclass kits - base effects only (no level scaling beyond initial setup)
// Each specialist: 
//   +1 spell slot per level (all levels)
//   +15% learn chance on own school scrolls
//   -15% learn chance on other schools
//   +2 save vs own school spells
//   -2 save penalty to targets vs own school spells
//   Cannot learn/cast opposite school (scrolls included)
// Super Mage: +1 spell slot per level, NO restrictions, NO opposite school ban
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// ABJURER ///////////////////////////////
IF
      Global("GelMultiAbj","LOCALS",1)
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelAbj1",Myself)   // Base: +1 slot/level, +2 save vs Abjuration, -2 penalty to targets vs Abjuration, opposite=Alteration ban, learn bonuses/penalties
        SetGlobal("GelMultiAbj","LOCALS",99)
END

IF
    Global("GelKeepAbj","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelAbj1",Myself)
	  SetGlobal("GelKeepAbj","LOCALS",99)
END

IF
  OR(2)
    Global("GelKeepAbj","LOCALS",99)
    Global("GelMultiAbj","LOCALS",99)
  !GlobalTimerNotExpired("GelAbjurer","LOCALS")
  !SpellCast(Myself,0)
THEN
  RESPONSE #100
    SetGlobalTimer("GelAbjurer","LOCALS",90)
    ReallyForceSpellRES("GelAbj2",Myself)
END	  

/////////////////////////////// CONJURER ///////////////////////////////
IF
      Global("GelMultiCon","LOCALS",1)
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelCon1",Myself)   // Base: +1 slot/level, +2 save vs Conjuration, -2 penalty to targets vs Conjuration, opposite=Divination ban, learn bonuses/penalties
        SetGlobal("GelMultiCon","LOCALS",99)
END

IF
    Global("GelKeepCon","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelCon1",Myself)
	  SetGlobal("GelKeepCon","LOCALS",99)
END

IF
  OR(2)
    Global("GelKeepCon","LOCALS",99)
    Global("GelMultiCon","LOCALS",99)
  !GlobalTimerNotExpired("GelConjurer","LOCALS")
  !SpellCast(Myself,0)
THEN
  RESPONSE #100
    SetGlobalTimer("GelConjurer","LOCALS",90)
    ReallyForceSpellRES("GelCon2",Myself)
END	

/////////////////////////////// DIVINER ///////////////////////////////
IF
      Global("GelMultiDev","LOCALS",1)   // Note: Div often called "Diviner" in game
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelDiv1",Myself)   // Base: +1 slot/level, +2 save vs Divination, -2 penalty to targets vs Divination, opposite=Conjuration ban, learn bonuses/penalties
        SetGlobal("GelMultiDev","LOCALS",99)
END

IF
    Global("GelKeepDev","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelDiv1",Myself)
	  SetGlobal("GelKeepDev","LOCALS",99)
END

IF
  OR(2)
    Global("GelKeepDev","LOCALS",99)
    Global("GelMultiDev","LOCALS",99)
  !GlobalTimerNotExpired("GelDiviner","LOCALS")
  !SpellCast(Myself,0)
THEN
  RESPONSE #100
    SetGlobalTimer("GelDiviner","LOCALS",90)
    ReallyForceSpellRES("GelDiv2",Myself)
END	

/////////////////////////////// ENCHANTER ///////////////////////////////
IF
      Global("GelMultiEnc","LOCALS",1)
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelEnc1",Myself)   // Base: +1 slot/level, +2 save vs Enchantment, -2 penalty to targets vs Enchantment, opposite=Illusion ban? (EE inconsistency, but usually Illusion), learn bonuses/penalties
        SetGlobal("GelMultiEnc","LOCALS",99)
END

IF
    Global("GelKeepEnc","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelEnc1",Myself)
	  SetGlobal("GelKeepEnc","LOCALS",99)
END

IF
  OR(2)
    Global("GelKeepEnc","LOCALS",99)
    Global("GelMultiEnc","LOCALS",99)
  !GlobalTimerNotExpired("GelEnchanter","LOCALS")
  !SpellCast(Myself,0)
THEN
  RESPONSE #100
    SetGlobalTimer("GelEnchanter","LOCALS",90)
    ReallyForceSpellRES("GelEnc2",Myself)
END	

/////////////////////////////// ILLUSIONIST ///////////////////////////////
IF
      Global("GelMultiIll","LOCALS",1)
      !Kit(Myself,MAGESCHOOL_ILLUSIONIST)
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelIll1",Myself)   // Base: +1 slot/level, +2 save vs Illusion, -2 penalty to targets vs Illusion, opposite=Necromancy ban, learn bonuses/penalties
        SetGlobal("GelMultiIll","LOCALS",99)
END

IF
    Global("GelKeepIll","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelIll1",Myself)
	  SetGlobal("GelKeepIll","LOCALS",99)
END

IF
  OR(2)
    Global("GelKeepIll","LOCALS",99)
    Global("GelMultiIll","LOCALS",99)
  !GlobalTimerNotExpired("GelIllusionist","LOCALS")
  !SpellCast(Myself,0)
THEN
  RESPONSE #100
    SetGlobalTimer("GelIllusionist","LOCALS",90)
    ReallyForceSpellRES("GelIll2",Myself)
END	

/////////////////////////////// INVOKER ///////////////////////////////
IF
      Global("GelMultiInv","LOCALS",1)
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelInv1",Myself)   // Fixed name to GelInv1 for consistency; Base: +1 slot/level, +2 save vs Invocation, -2 penalty to targets vs Invocation, opposite=Conjuration ban (EE standard), learn bonuses/penalties
        SetGlobal("GelMultiInv","LOCALS",99)
END

IF
    Global("GelKeepInv","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelInv1",Myself)
	  SetGlobal("GelKeepInv","LOCALS",99)
END

IF
  OR(2)
    Global("GelKeepInv","LOCALS",99)
    Global("GelMultiInv","LOCALS",99)
  !GlobalTimerNotExpired("GelInvoker","LOCALS")
  !SpellCast(Myself,0)
THEN
  RESPONSE #100
    SetGlobalTimer("GelInvoker","LOCALS",90)
    ReallyForceSpellRES("GelInv2",Myself)
END	

/////////////////////////////// NECROMANCER ///////////////////////////////
IF
      Global("GelMultiNec","LOCALS",1)
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelNec1",Myself)   // Base: +1 slot/level, +2 save vs Necromancy, -2 penalty to targets vs Necromancy, opposite=Illusion ban, learn bonuses/penalties
        SetGlobal("GelMultiNec","LOCALS",99)
END

IF
    Global("GelKeepNec","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelNec1",Myself)
	  SetGlobal("GelKeepNec","LOCALS",99)
END

IF
  OR(2)
    Global("GelKeepNec","LOCALS",99)
    Global("GelMultiNec","LOCALS",99)
  !GlobalTimerNotExpired("GelNecromancer","LOCALS")
  !SpellCast(Myself,0)
THEN
  RESPONSE #100
    SetGlobalTimer("GelNecromancer","LOCALS",90)
    ReallyForceSpellRES("GelNec2",Myself)
END	

/////////////////////////////// TRANSMUTER ///////////////////////////////
IF
      Global("GelMultiTra","LOCALS",1)
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTra1",Myself)   // Base: +1 slot/level, +2 save vs Alteration/Transmutation, -2 penalty to targets vs Alteration, opposite=Abjuration ban, learn bonuses/penalties
        SetGlobal("GelMultiTra","LOCALS",99)
END

IF
    Global("GelKeepTra","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelTra1",Myself)
	  SetGlobal("GelKeepTra","LOCALS",99)
END

IF
  OR(2)
    Global("GelKeepTra","LOCALS",99)
    Global("GelMultiTra","LOCALS",99)
  !GlobalTimerNotExpired("GelTransmuter","LOCALS")
  !SpellCast(Myself,0)
THEN
  RESPONSE #100
    SetGlobalTimer("GelTransmuter","LOCALS",90)
    ReallyForceSpellRES("GelTra2",Myself)
END	

/////////////////////////////// SUPER WIZARD (no restrictions) ///////////////////////////////
IF
      Global("GelMultiSup","LOCALS",1)
      ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelSup1",Myself)   // +1 spell slot per level (all levels), NO school restrictions, NO opposite ban, ingen save/penalty bonuses (eller valgfritt behold dem som generell bonus)
        SetGlobal("GelMultiSup","LOCALS",99)
END

IF
    Global("GelKeepSupM","LOCALS",1)
	ClassLevelGT(Myself,WIZARD,0)
THEN
    RESPONSE #100
	  ReallyForceSpellRES("GelSup1",Myself)
	  SetGlobal("GelKeepSupM","LOCALS",99)
END

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// MULTI CLASS CLERIC KITS //////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Cleric multiclass kits - all scale with CLERIC level
// Spell names max 7 chars for safety (no 8-char issues in scripts/opcodes)
// Uses GelXXX1 for base, GelXXX5 for all extra uses (lvl5/9/14/19/24)
// For kits with two abilities: GelXXX5 = primary/extra, GelXXX7 = secondary/extra if needed
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// CLERIC OF TALOS (Stormlord) ///////////////////////////////
IF
      Global("GelMultiTal","LOCALS",1)
      ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself) // +1 Lightning bolt
        ReallyForceSpellRES("GelTal7",Myself) // +1 Storm Shield
        SetGlobal("GelMultiTal","LOCALS",5)
END

IF
      Global("GelMultiTal","LOCALS",5)
      ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself)   // +1 Lightning Bolt use
        SetGlobal("GelMultiTal","LOCALS",10)
END

IF
      Global("GelMultiTal","LOCALS",10)
      ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself)
        ReallyForceSpellRES("GelTal7",Myself) // +1 Storm Shield
        SetGlobal("GelMultiTal","LOCALS",15)
END

IF
      Global("GelMultiTal","LOCALS",15)
      ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself)
        SetGlobal("GelMultiTal","LOCALS",20)
END

IF
      Global("GelMultiTal","LOCALS",20)
      ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself)
        ReallyForceSpellRES("GelTal7",Myself) // +1 Storm Shield
        SetGlobal("GelMultiTal","LOCALS",25)
END

IF
      Global("GelMultiTal","LOCALS",25)
      ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself)
        SetGlobal("GelMultiTal","LOCALS",30)
END

IF
      Global("GelMultiTal","LOCALS",30)
      ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself)
        ReallyForceSpellRES("GelTal7",Myself) // +1 Storm Shield
        SetGlobal("GelMultiTal","LOCALS",35)
END

IF
      Global("GelMultiTal","LOCALS",35)
      ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself)
        SetGlobal("GelMultiTal","LOCALS",40)
END

IF
      Global("GelMultiTal","LOCALS",40)
      ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTal5",Myself)
        ReallyForceSpellRES("GelTal7",Myself) // +1 Storm Shield
        SetGlobal("GelMultiTal","LOCALS",99)
END

/////////////////////////////// PRIEST OF HELM (Watcher) ///////////////////////////////
IF
      Global("GelMultiHel","LOCALS",1)
      ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel1",Myself)   // Base: True Sight 1/day + Seeking Sword 1/day
        SetGlobal("GelMultiHel","LOCALS",5)
END

IF
      Global("GelMultiHel","LOCALS",5)
      ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel5",Myself)   // +1 True Sight use
        SetGlobal("GelMultiHel","LOCALS",10)
END

IF
      Global("GelMultiHel","LOCALS",10)
      ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel5",Myself)
        ReallyForceSpellRES("GelHel7",Myself)   // +1 Seeking Sword
        SetGlobal("GelMultiHel","LOCALS",15)
END

IF
      Global("GelMultiHel","LOCALS",15)
      ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel5",Myself)
        SetGlobal("GelMultiHel","LOCALS",20)
END

IF
      Global("GelMultiHel","LOCALS",20)
      ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel5",Myself)
        ReallyForceSpellRES("GelHel7",Myself)   // +1 Seeking Sword
        SetGlobal("GelMultiHel","LOCALS",25)
END

IF
      Global("GelMultiHel","LOCALS",25)
      ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel5",Myself)
        SetGlobal("GelMultiHel","LOCALS",30)
END

IF
      Global("GelMultiHel","LOCALS",30)
      ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel5",Myself)
        ReallyForceSpellRES("GelHel7",Myself)   // +1 Seeking Sword
        SetGlobal("GelMultiHel","LOCALS",35)
END

IF
      Global("GelMultiHel","LOCALS",35)
      ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel5",Myself)
        SetGlobal("GelMultiHel","LOCALS",40)
END

IF
      Global("GelMultiHel","LOCALS",40)
      ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelHel5",Myself)
        ReallyForceSpellRES("GelHel7",Myself)   // +1 Seeking Sword
        SetGlobal("GelMultiHel","LOCALS",99)
END

/////////////////////////////// PRIEST OF LATHANDER (Morninglord) ///////////////////////////////
IF
      Global("GelMultiLat","LOCALS",1)
      ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat1",Myself)   // +1 boon of lathander
        ReallyForceSpellRES("GelLat5",Myself)   // +1 Hold Undead
        SetGlobal("GelMultiLat","LOCALS",5)
END

IF
      Global("GelMultiLat","LOCALS",5)
      ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat5",Myself)   // +1 Hold Undead
        SetGlobal("GelMultiLat","LOCALS",10)
END

IF
      Global("GelMultiLat","LOCALS",10)
      ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat5",Myself)   // +1 Hold Undead
        ReallyForceSpellRES("GelLat1",Myself)   // +1 boon of lathander
        SetGlobal("GelMultiLat","LOCALS",15)
END

IF
      Global("GelMultiLat","LOCALS",15)
      ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat5",Myself)
        SetGlobal("GelMultiLat","LOCALS",20)
END

IF
      Global("GelMultiLat","LOCALS",20)
      ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat5",Myself)   // +1 Hold Undead
        ReallyForceSpellRES("GelLat1",Myself)   // +1 boon of lathander
        SetGlobal("GelMultiLat","LOCALS",25)
END

IF
      Global("GelMultiLat","LOCALS",25)
      ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat5",Myself)
        SetGlobal("GelMultiLat","LOCALS",30)
END

IF
      Global("GelMultiLat","LOCALS",30)
      ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat5",Myself)   // +1 Hold Undead
        ReallyForceSpellRES("GelLat1",Myself)   // +1 boon of lathander
        SetGlobal("GelMultiLat","LOCALS",35)
END

IF
      Global("GelMultiLat","LOCALS",35)
      ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat5",Myself)
        SetGlobal("GelMultiLat","LOCALS",40)
END

IF
      Global("GelMultiLat","LOCALS",40)
      ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelLat5",Myself)   // +1 Hold Undead
        ReallyForceSpellRES("GelLat1",Myself)   // +1 boon of lathander
        SetGlobal("GelMultiLat","LOCALS",99)
END

/////////////////////////////// PRIEST OF TEMPUS (Foehammer) ///////////////////////////////
IF
      Global("GelMultiTemp","LOCALS",1)
      ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)   // Holy Power 1/day
        ReallyForceSpellRES("GelTem2",Myself)   // Chaos of Battle 1/day
        SetGlobal("GelMultiTemp","LOCALS",5)
END

IF
      Global("GelMultiTemp","LOCALS",5)
      ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)   // +1 Holy Power
        SetGlobal("GelMultiTemp","LOCALS",10)
END

IF
      Global("GelMultiTemp","LOCALS",10)
      ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)   // +1 Holy Power
        SetGlobal("GelMultiTemp","LOCALS",15)
END

IF
      Global("GelMultiTemp","LOCALS",15)
      ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)
        SetGlobal("GelMultiTemp","LOCALS",20)
END

IF
      Global("GelMultiTemp","LOCALS",20)
      ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)   // +1 Holy Power
        SetGlobal("GelMultiTemp","LOCALS",25)
END

IF
      Global("GelMultiTemp","LOCALS",25)
      ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)
        SetGlobal("GelMultiTemp","LOCALS",30)
END

IF
      Global("GelMultiTemp","LOCALS",30)
      ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)   // +1 Holy Power
        SetGlobal("GelMultiTemp","LOCALS",35)
END

IF
      Global("GelMultiTemp","LOCALS",35)
      ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)
        SetGlobal("GelMultiTemp","LOCALS",40)
END

IF
      Global("GelMultiTemp","LOCALS",40)
      ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTem1",Myself)   // +1 Holy Power
        SetGlobal("GelMultiTemp","LOCALS",99)
END

// Chaos of Battle forblir 1/day (ingen ekstra)

/////////////////////////////// PRIEST OF TYR (Holy Justice) ///////////////////////////////
IF
      Global("GelMultiTyr","LOCALS",1)
      ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr1",Myself)   // Divine Favor
        ReallyForceSpellRES("GelTyr5",Myself)   // +1 Exaltation
        SetGlobal("GelMultiTyr","LOCALS",5)
END

IF
      Global("GelMultiTyr","LOCALS",5)
      ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr5",Myself)   // +1 Exaltation
        SetGlobal("GelMultiTyr","LOCALS",10)
END

IF
      Global("GelMultiTyr","LOCALS",10)
      ClassLevelGT(Myself,PRIEST,9)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr1",Myself)   // Divine Favor
        ReallyForceSpellRES("GelTyr5",Myself)   // +1 Exaltation
        SetGlobal("GelMultiTyr","LOCALS",15)
END

IF
      Global("GelMultiTyr","LOCALS",15)
      ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr5",Myself)   // +1 Exaltation
        SetGlobal("GelMultiTyr","LOCALS",20)
END

IF
      Global("GelMultiTyr","LOCALS",20)
      ClassLevelGT(Myself,PRIEST,19)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr1",Myself)   // Divine Favor
        ReallyForceSpellRES("GelTyr5",Myself)   // +1 Exaltation
        SetGlobal("GelMultiTyr","LOCALS",25)
END

IF
      Global("GelMultiTyr","LOCALS",25)
      ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr5",Myself)
        SetGlobal("GelMultiTyr","LOCALS",30)
END

IF
      Global("GelMultiTyr","LOCALS",30)
      ClassLevelGT(Myself,PRIEST,29)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr1",Myself)   // Divine Favor
        ReallyForceSpellRES("GelTyr5",Myself)   // +1 Exaltation
        SetGlobal("GelMultiTyr","LOCALS",35)
END

IF
      Global("GelMultiTyr","LOCALS",35)
      ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr5",Myself)
        SetGlobal("GelMultiTyr","LOCALS",40)
END

IF
      Global("GelMultiTyr","LOCALS",40)
      ClassLevelGT(Myself,PRIEST,39)
THEN
  RESPONSE #100
        ReallyForceSpellRES("GelTyr1",Myself)   // Divine Favor
        ReallyForceSpellRES("GelTyr5",Myself)   // +1 Exaltation
        SetGlobal("GelMultiTyr","LOCALS",99)
END

/////////////////STALKER KIT//////////////////////////////////////////////////////////////////
/////////////////+1 backstab lvl 1, 9 and 17 replaced with special backstab////////////////
/////////////////+20% hide in shadows/move silent level 1/////////
/////////////////Learn Minor deflection, haste and protection from normal missles lvl 12/////////////

IF
  Global("GelMultiSta","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta1",Myself) // Learn fake Backstab, +20% Stealth 
	ReallyForceSpellRES("GelSta1",Myself) //Restrict heavier armor than Studdeth Leather
    ReallyForceSpellRES("GelSta5",Myself)
	SetGlobal("GelMultiSta","LOCALS",9)
END

IF
  Global("GelMultiSta","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta5",Myself)
	SetGlobal("GelMultiSta","LOCALS",12)
END

IF
  Global("GelMultiSta","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta2",Myself) // Learn: Minor deflection, haste and protection from normal missles
    SetGlobal("GelMultiSta","LOCALS",17)
END

IF
  Global("GelMultiSta","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSta5",Myself)
	SetGlobal("GelMultiSta","LOCALS",99)
END

//////////////// Faking Backstab on CLERIC_WARRIOR ///////////////
//IF
//  GlobalGT("GelMultiSta","LOCALS",0)
//  GlobalGT("GelKeepSta","LOCALS",0)
//THEN
//  RESPONSE #100
//    SetGlobal("GelMultiStaB","LOCALS",100)
//END
//
//IF
//  Global("GelMultiStaB","LOCALS",100)
//  StateCheck(Myself,STATE_INVISIBLE)
//THEN
//  RESPONSE #100
//    ReallyForceSpellRES("GelSta5",Myself) // +4 bonus thaco, +20 Bonus damage(en eller annen scaling på level 1=20 damage, 9=40 damage, 17=60 damage)
//    SetGlobal("GelMultiStaB","LOCALS",101)
//END 
//
//IF
//  Global("GelMultiStaB","LOCALS",101)
//  !StateCheck(Myself,STATE_INVISIBLE)
//THEN
//  RESPONSE #100
//    ReallyForceSpellRES("GelSta6",Myself) // RemoveSpell("GelSta5") 
//    SetGlobal("GelMultiStaB","LOCALS",100)
//END

/////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////// Slingin BeastMaster ///////////////////////////////////////////////////
///////////////////// NOTHING HERE YET, ADDED CUSTOM KITS FOR THIS //////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////// MULTI CLASS ROGUE KITS ///////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// ROGUE multiclass/dual kits - scale with ROGUE level
// Only kit-specific bonuses/abilities (class ROGUE handles base progression, skills, etc.)
// One global per kit (GelMultiAss etc.) - increments at milestones to prevent re-trigger
// Spell names <=7 chars: GelAss1 (base), GelAss5 (+1 poison use), GelBou1/GelBou5 (+snare), etc.
// Backstab multipliers/AC/THAC0 via permanent spells (ignore skill pts - hard to fake perfectly)
// Restrictions in base .spl (e.g. alignment for Assassin/Shadowdancer via opcode/dialog check)
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////// ASSASSIN ///////////////////////////////
IF
  Global("GelMultiAss","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss1",Myself)   // Base: -1 THAC0, +1 dmg, Poison Weapon 1/day, backstab x2 start
    SetGlobal("GelMultiAss","LOCALS",5)
END

IF
  Global("GelMultiAss","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)   // +1 Poison Weapon use
    SetGlobal("GelMultiAss","LOCALS",10)
END

IF
  Global("GelMultiAss","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)   // +1 use 
    SetGlobal("GelMultiAss","LOCALS",15)
END

IF
  Global("GelMultiAss","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)   // +1 use
    SetGlobal("GelMultiAss","LOCALS",16)
END

IF
  Global("GelMultiAss","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDeAt",Myself)   // Learn: Death Attack
    SetGlobal("GelMultiAss","LOCALS",20)
END

IF
  Global("GelMultiAss","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)   // +1 use
    SetGlobal("GelMultiAss","LOCALS",24)
END

IF
  Global("GelMultiAss","LOCALS",24)
  ClassLevelGT(Myself,ROGUE,23)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDeAt",Myself)   // Learn: Death Attack
    SetGlobal("GelMultiAss","LOCALS",25)
END

IF
  Global("GelMultiAss","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)   // +1 use 
    SetGlobal("GelMultiAss","LOCALS",30)
END

IF
  Global("GelMultiAss","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)   // +1 use
    SetGlobal("GelMultiAss","LOCALS",32)
END

IF
  Global("GelMultiAss","LOCALS",32)
  ClassLevelGT(Myself,ROGUE,31)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDeAt",Myself)   // Learn: Death Attack
    SetGlobal("GelMultiAss","LOCALS",35)
END

IF
  Global("GelMultiAss","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)   // +1 use 
    SetGlobal("GelMultiAss","LOCALS",40)
END

IF
  Global("GelMultiAss","LOCALS",40)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)   // +1 use
    ReallyForceSpellRES("GelDeAt",Myself)   // Learn: Death Attack
    SetGlobal("GelMultiAss","LOCALS",99)
END

/////////////////////////////// BOUNTY HUNTER ///////////////////////////////
IF
  Global("GelMultiBou","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou1",Myself)   // Base: +15% Set Traps, Special Snare 1/day
    SetGlobal("GelMultiBou","LOCALS",5)
END

IF
  Global("GelMultiBou","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou5",Myself)   // +1 Special Snare (total 2 @lvl5)
    SetGlobal("GelMultiBou","LOCALS",10)
END

IF
  Global("GelMultiBou","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou5",Myself)   // +1 (3 @lvl10)
    SetGlobal("GelMultiBou","LOCALS",15)
END

IF
  Global("GelMultiBou","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou5",Myself)   // +1 (4 @lvl15)
    SetGlobal("GelMultiBou","LOCALS",20)
END

IF
  Global("GelMultiBou","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou5",Myself)
    SetGlobal("GelMultiBou","LOCALS",25)
END

IF
  Global("GelMultiBou","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou5",Myself)
    SetGlobal("GelMultiBou","LOCALS",30)
END

IF
  Global("GelMultiBou","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou5",Myself)
    SetGlobal("GelMultiBou","LOCALS",35)
END

IF
  Global("GelMultiBou","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou5",Myself)
    SetGlobal("GelMultiBou","LOCALS",40)
END

IF
  Global("GelMultiBou","LOCALS",40)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou5",Myself)
    SetGlobal("GelMultiBou","LOCALS",99)
END

/////////////////////////////// SHADOWDANCER ///////////////////////////////
IF
  Global("GelMultiSha","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha1",Myself)   // Base: +10% Hide/MS (or 50%?), -1 backstab multiplier, Hide in Plain Sight, Slippery Mind
    SetGlobal("GelMultiSha","LOCALS",4)
END

IF
  Global("GelMultiSha","LOCALS",4)
  ClassLevelGT(Myself,ROGUE,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // Shadowstep 1/day
    SetGlobal("GelMultiSha","LOCALS",8)
END

IF
  Global("GelMultiSha","LOCALS",8)
  ClassLevelGT(Myself,ROGUE,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // +1 Shadowstep
    SetGlobal("GelMultiSha","LOCALS",12)
END

IF
  Global("GelMultiSha","LOCALS",12)
  ClassLevelGT(Myself,ROGUE,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // +1 Shadowstep
    SetGlobal("GelMultiSha","LOCALS",16)
END

IF
  Global("GelMultiSha","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // +1 Shadowstep
    SetGlobal("GelMultiSha","LOCALS",20)
END

IF
  Global("GelMultiSha","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // +1 Shadowstep
    SetGlobal("GelMultiSha","LOCALS",25)
END

IF
  Global("GelMultiSha","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // +1 Shadowstep
    SetGlobal("GelMultiSha","LOCALS",30)
END

IF
  Global("GelMultiSha","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // +1 Shadowstep
    SetGlobal("GelMultiSha","LOCALS",35)
END

IF
  Global("GelMultiSha","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // +1 Shadowstep
    SetGlobal("GelMultiSha","LOCALS",40)
END

IF
  Global("GelMultiSha","LOCALS",40)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself)   // +1 Shadowstep
    SetGlobal("GelMultiSha","LOCALS",99)
END

/////////////////////////////// SWASHBUCKLER ///////////////////////////////
IF
  Global("GelMultiSwa","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa1",Myself)   // Base: -4 backstab, -1 AC, 3 slots Two-Weapon Style
    SetGlobal("GelMultiSwa","LOCALS",5)
END

IF
  Global("GelMultiSwa","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa5",Myself)   // +1 AC bonus (total -2), +1 THAC0/dmg
    SetGlobal("GelMultiSwa","LOCALS",10)
END

IF
  Global("GelMultiSwa","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa5",Myself)   // +1 AC (-3), +1 THAC0/dmg
    SetGlobal("GelMultiSwa","LOCALS",15)
END

IF
  Global("GelMultiSwa","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa5",Myself)   // +1 AC (-4), +1 THAC0/dmg
    SetGlobal("GelMultiSwa","LOCALS",20)
END

IF
  Global("GelMultiSwa","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa5",Myself)   // +1 AC (-5 @lvl20+), +1 THAC0/dmg
    SetGlobal("GelMultiSwa","LOCALS",25)
END

IF
  Global("GelMultiSwa","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa5",Myself) 
    ReallyForceSpellRES("GelHLA4",Myself) 
    SetGlobal("GelMultiSwa","LOCALS",27)
END

IF
  Global("GelMultiSwa","LOCALS",27)
  ClassLevelGT(Myself,ROGUE,26)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHLA4",Myself) 
    SetGlobal("GelMultiSwa","LOCALS",29)
END

IF
  Global("GelMultiSwa","LOCALS",29)
  ClassLevelGT(Myself,ROGUE,28)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHLA4",Myself) 
    SetGlobal("GelMultiSwa","LOCALS",30)
END

IF
  Global("GelMultiSwa","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa5",Myself)
    SetGlobal("GelMultiSwa","LOCALS",35)
END

IF
  Global("GelMultiSwa","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa5",Myself) 
    SetGlobal("GelMultiSwa","LOCALS",40)
END

IF
  Global("GelMultiSwa","LOCALS",40)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSwa5",Myself)
    SetGlobal("GelMultiSwa","LOCALS",99)
END

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////// SUPER ROGUE ///////////////////////////// Combined ROGUE Kits ///////////////////////////////////////////////////////////
//// Level 1: GelSupT +2 backstab, +10% stealth, +15% set traps, +1 bonus ac/thaco/damage, Learn Plague Weapon, Learn Set Special Snare, Learn HiPS//////
//// Level 5: GelAss5, GelBou5, GelSwa5, GelSha5///////////////////////////////////////////////////////////////////////////////////////////////////////// 
////////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelSuperThief","LOCALS",1)
  Global("GelSuperThiefP","LOCALS",0)
THEN
  RESPONSE #100
    SetGlobal("GelSuperThiefP","LOCALS",1)
END

IF
  Global("GelSuperThiefP","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupT",Myself) // lvl 1 SuperROGUE bonuses
    SetGlobal("GelSuperThiefP","LOCALS",5)
END

IF
  Global("GelSuperThiefP","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself) // Poison weapon
    ReallyForceSpellRES("GelBou5",Myself) // Special snare
    ReallyForceSpellRES("GelSwa5",Myself) // +1 THAC0/Damage
    ReallyForceSpellRES("GelSha5",Myself) // Shadow Step
    SetGlobal("GelSuperThiefP","LOCALS",10)
END

IF
  Global("GelSuperThiefP","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // Shadow Step
    SetGlobal("GelSuperThiefP","LOCALS",15)
END

IF
  Global("GelSuperThiefP","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // Shadow Step
    SetGlobal("GelSuperThiefP","LOCALS",16)
END

IF
  Global("GelSuperThiefP","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSuperThiefP","LOCALS",20)
END

IF
  Global("GelSuperThiefP","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // Shadow Step
    SetGlobal("GelSuperThiefP","LOCALS",24)
END

IF
  Global("GelSuperThiefP","LOCALS",24)
  ClassLevelGT(Myself,ROGUE,23)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSuperThiefP","LOCALS",25)
END

IF
  Global("GelSuperThiefP","LOCALS",25)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // Shadow Step
    SetGlobal("GelSuperThiefP","LOCALS",30)
END

IF
  Global("GelSuperThiefP","LOCALS",30)
  ClassLevelGT(Myself,ROGUE,29)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // Shadow Step
    SetGlobal("GelSuperThiefP","LOCALS",32)
END

IF
  Global("GelSuperThiefP","LOCALS",32)
  ClassLevelGT(Myself,ROGUE,31)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSuperThiefP","LOCALS",35)
END

IF
  Global("GelSuperThiefP","LOCALS",35)
  ClassLevelGT(Myself,ROGUE,34)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // Shadow Step
    SetGlobal("GelSuperThiefP","LOCALS",40)
END

IF
  Global("GelSuperThiefP","LOCALS",40)
  ClassLevelGT(Myself,ROGUE,39)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss5",Myself)
    ReallyForceSpellRES("GelBou5",Myself)
    ReallyForceSpellRES("GelSwa5",Myself)
    ReallyForceSpellRES("GelSha5",Myself) // Shadow Step
    ReallyForceSpellRES("GelDeAt",Myself)
    SetGlobal("GelSuperThiefP","LOCALS",99)
END

/////////////////////////////////// ROGUE KIT-SPECIFIC HLA ////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Shadowdancer har custom HLA i vanilla EE (Maze Trap, Shadow Twin, Shadow Form)
// Super ROGUE kan få valgfri ekstra HLA (eller ingen – avhengig av hva du vil)
// Starter ved ROGUE level 25+ (vanilla HLA-tilgang)
// Spellnavn: GelHLA1, GelHLA2, GelHLA3 (max 7 tegn)
// Separate globals for Shadowdancer og Super ROGUE
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////// Hide in Plain Sight (GelHIPS) Script //////////////////////////////////////////////////////////////////
////////////////////////////// Fake Hide In Plain Sight////////////////////////////

//La oss si GelHIPS.spl Ability0: Blind(1sek), Myself / Ability1: SetGlobal(GelHIPS,1), Myself, RemoveSpell(GelHIPS), Add Innate Ability: GelHIPS, Delay 6 sek. 

IF
  Global("GelHIPS","LOCALS",1) 
THEN
  RESPONSE #100
   Hide()
   SetGlobal("GelHIPS","LOCALS",0) 
END 

//////////// Safeguard Hide In plain Sight Ability /////////////

IF
  OR(4)
    GlobalGT("GelMultiSha","LOCALS",0)
    GlobalGT("GelSuperThief","LOCALS",0)
	Global("GelKeepSuperT","LOCALS",3)
	Global("GelKeepSha","LOCALS",3)
  !Global("GelHasHIPS","LOCALS",1) 
  !HaveSpellRES("GelHIPS") 
  !GlobalTimerNotExpired("GelHIPS_Add_Timer","LOCALS")
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHIPL",Myself)
    SetGlobalTimer("GelHIPS_Add_Timer","LOCALS",30)
END

/////////////////////////////// SHADOWDANCER HLA ///////////////////////////////
IF
  Global("GelThiefHLA","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHLA1",Myself)   // Maze Trap
    SetGlobal("GelThiefHLA","LOCALS",2)
END

IF
  Global("GelThiefHLA","LOCALS",2)
  ClassLevelGT(Myself,ROGUE,26)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHLA2",Myself)   // Shadow Twin
    SetGlobal("GelThiefHLA","LOCALS",3)
END

IF
  Global("GelThiefHLA","LOCALS",3)
  ClassLevelGT(Myself,ROGUE,28)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelHLA3",Myself)   // Shadow Form
    SetGlobal("GelThiefHLA","LOCALS",99)
END

/////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////// TOTEMIC DRUID ///////////////////////////////////////////////////////
// May not shapeshift
// May summon Spirit animals from level 1, and 1 cast each 5 level thereafter (6/11/16/21/26/31/36)
/////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelMultiTot","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot1",Myself)   // Base: Remove Shapeshift spell
    ReallyForceSpellRES("GelTot2",Myself)   // Learn Spell: Spirit animals
    SetGlobal("GelMultiTot","LOCALS",6)
END

IF
  Global("GelMultiTot","LOCALS",6)
  ClassLevelGT(Myself,PRIEST,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)   // Learn Spell: Spirit animals
    SetGlobal("GelMultiTot","LOCALS",11)
END

IF
  Global("GelMultiTot","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)   // Learn Spell: Spirit animals
    SetGlobal("GelMultiTot","LOCALS",16)
END

IF
  Global("GelMultiTot","LOCALS",16)
  ClassLevelGT(Myself,PRIEST,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)   // Learn Spell: Spirit animals
    SetGlobal("GelMultiTot","LOCALS",21)
END

IF
  Global("GelMultiTot","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)   // Learn Spell: Spirit animals
    SetGlobal("GelMultiTot","LOCALS",26)
END

IF
  Global("GelMultiTot","LOCALS",26)
  ClassLevelGT(Myself,PRIEST,25)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)   // Learn Spell: Spirit animals
    SetGlobal("GelMultiTot","LOCALS",31)
END

IF
  Global("GelMultiTot","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)   // Learn Spell: Spirit animals
    SetGlobal("GelMultiTot","LOCALS",36)
END

IF
  Global("GelMultiTot","LOCALS",36)
  ClassLevelGT(Myself,PRIEST,35)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTot2",Myself)   // Learn Spell: Spirit animals
    SetGlobal("GelMultiTot","LOCALS",99)
END

IF
  GlobalGT("GelMultiTot","LOCALS",0)
  OR(6)
    HaveSpellRES("SPIN107")
    HaveSpellRES("SPIN110")
    HaveSpellRES("SPIN111")
    HaveSpellRES("SPCL611")
    HaveSpellRES("SPCL612")
    HaveSpellRES("SPCL613")
THEN
  RESPONSE #100
    RemoveSpellRES("SPIN107")
    RemoveSpellRES("SPIN110")
    RemoveSpellRES("SPIN111")
    RemoveSpellRES("SPCL611")
    RemoveSpellRES("SPCL612")
    RemoveSpellRES("SPCL613")
END

/////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////// AVENGER ///////////////////////////////////////////////////////
// May not shapeshift regular
// May shapeshift Special: to Sword Spider, Baby Wyvern and Fire Salamander
// Level 19, +1 tp Shapeshift Special
// May only wear leather, -2 to penalty to Strenght and Constitution
/////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelMultiAve","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve1",Myself)   // Base: Remove Shapeshift spell, -2 penalty to strenght and constitution
	ReallyForceSpellRES("GelAve1",Myself)   // Restrict armors better than leather.
    ReallyForceSpellRES("GelAve2",Myself)   // Add Innate Ability: Shapeshift Sword Spider, Wyvern, Fire Salamander
    ReallyForceSpellRES("GelAve3",Myself)   // Learn Spells: Chromatic Orb, Web, Lightning Bolt, Improved Invisibility, Chaos and Chain Lightning
    SetGlobal("GelMultiAve","LOCALS",19)
END

IF
  Global("GelMultiAve","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAve2",Myself)   // Add Innate Ability: Shapechange Sword Spider, Baby Wyvern and Fire Salamander
    SetGlobal("GelMultiAve","LOCALS",99)
END

/////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////// Shapeshifter ///////////////////////////////////////////////////////
// May not shapeshift regular
// May shapeshift Special: Werewolf at lvl 1, then each 2nd level. 1/3/5/7/9/11
// May shapeshift Special: Greater Werewolf at lvl 13, then each 2nd level. 13/15/17/19/21/23/25/27/29
// May not wear any armor
/////////////////////////////////////////////////////////////////////////////////////////////////////

IF
  Global("GelMultiShp","LOCALS",1)
  ClassLevelGT(Myself,PRIEST,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp1",Myself)   // Base: Remove Shapeshift spell, Restrict all armors.
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelMultiShp","LOCALS",3)
END

IF
  Global("GelMultiShp","LOCALS",3)
  ClassLevelGT(Myself,PRIEST,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelMultiShp","LOCALS",5)
END

IF
  Global("GelMultiShp","LOCALS",5)
  ClassLevelGT(Myself,PRIEST,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelMultiShp","LOCALS",7)
END

IF
  Global("GelMultiShp","LOCALS",7)
  ClassLevelGT(Myself,PRIEST,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelMultiShp","LOCALS",9)
END

IF
  Global("GelMultiShp","LOCALS",9)
  ClassLevelGT(Myself,PRIEST,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelMultiShp","LOCALS",11)
END

IF
  Global("GelMultiShp","LOCALS",11)
  ClassLevelGT(Myself,PRIEST,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp2",Myself)   // Add Innate Ability: Shapeshange: Werewolf
    SetGlobal("GelMultiShp","LOCALS",13)
END

IF
  Global("GelMultiShp","LOCALS",13)
  ClassLevelGT(Myself,PRIEST,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",15)
END

IF
  Global("GelMultiShp","LOCALS",15)
  ClassLevelGT(Myself,PRIEST,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",17)
END

IF
  Global("GelMultiShp","LOCALS",17)
  ClassLevelGT(Myself,PRIEST,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",19)
END

IF
  Global("GelMultiShp","LOCALS",19)
  ClassLevelGT(Myself,PRIEST,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",21)
END

IF
  Global("GelMultiShp","LOCALS",21)
  ClassLevelGT(Myself,PRIEST,20)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",23)
END

IF
  Global("GelMultiShp","LOCALS",23)
  ClassLevelGT(Myself,PRIEST,22)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",25)
END

IF
  Global("GelMultiShp","LOCALS",25)
  ClassLevelGT(Myself,PRIEST,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",27)
END

IF
  Global("GelMultiShp","LOCALS",27)
  ClassLevelGT(Myself,PRIEST,26)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",29)
END

IF
  Global("GelMultiShp","LOCALS",29)
  ClassLevelGT(Myself,PRIEST,28)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",31)
END

IF
  Global("GelMultiShp","LOCALS",31)
  ClassLevelGT(Myself,PRIEST,30)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",33)
END

IF
  Global("GelMultiShp","LOCALS",33)
  ClassLevelGT(Myself,PRIEST,32)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",35)
END

IF
  Global("GelMultiShp","LOCALS",35)
  ClassLevelGT(Myself,PRIEST,34)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",37)
END

IF
  Global("GelMultiShp","LOCALS",37)
  ClassLevelGT(Myself,PRIEST,36)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",39)
END

IF
  Global("GelMultiShp","LOCALS",39)
  ClassLevelGT(Myself,PRIEST,38)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelShp3",Myself)   // Add Innate Ability: Shapechange: Greater Werewolf
    SetGlobal("GelMultiShp","LOCALS",99)
END

IF
  GlobalGT("GelMultiShp","LOCALS",0)
  OR(6)
    HaveSpellRES("SPIN107")
    HaveSpellRES("SPIN110")
    HaveSpellRES("SPIN111")
    HaveSpellRES("SPCL611")
    HaveSpellRES("SPCL612")
    HaveSpellRES("SPCL613")
THEN
  RESPONSE #100
    RemoveSpellRES("SPIN107")
    RemoveSpellRES("SPIN110")
    RemoveSpellRES("SPIN111")
    RemoveSpellRES("SPCL611")
    RemoveSpellRES("SPCL612")
    RemoveSpellRES("SPCL613")
END

IF
  GlobalGT("GelMultiSha","LOCALS",0)
  !GlobalGT("GelSuperThiefP","LOCALS",0)
  OR(4)
    HaveSpellRES("SPCL412")
    HaveSpellRES("SPCL910")
    HaveSpellRES("SPCL911")
    HaveSpellRES("SPCL912")
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelTraR",Myself) // RemoveSpell(the traps)
END

// Shaman Dance //
IF
  Global("GelShaDance1","LOCALS",1)
THEN 
  RESPONSE #100
    ReallyForceSpellRes("GelShD1",Myself) // Vanilla Shaman dance with movement
    SetGlobal("GelShaDance1","LOCALS",99)
END

IF
  Global("GelShaDance2","LOCALS",1)
THEN 
  RESPONSE #100
    ReallyForceSpellRes("GelShD2",Myself) // Thunder Dance
    SetGlobal("GelShaDance2","LOCALS",99)
END

IF
  Global("GelShaDance3","LOCALS",1)
THEN 
  RESPONSE #100
    ReallyForceSpellRes("GelShD3",Myself) // Fire Dance
    SetGlobal("GelShaDance3","LOCALS",99)
END

IF
  Global("GelShaDance4","LOCALS",1)
THEN 
  RESPONSE #100
    ReallyForceSpellRes("GelShD9",Myself) // Invisibility Dance
    SetGlobal("GelShaDance4","LOCALS",99)
END

// Shaman casting speed and extra cast //

IF
  Global("GelShaCast1","LOCALS",1)
THEN 
  RESPONSE #100
    ReallyForceSpellRes("GelShC1",Myself) // +1 faster cast speed
    SetGlobal("GelShaCast1","LOCALS",99)
END

IF
  Global("GelShaCast2","LOCALS",1)
THEN 
  RESPONSE #100
    ReallyForceSpellRes("GelShC2",Myself) // +2 faster cast speed
    SetGlobal("GelShaCast2","LOCALS",99)
END

IF
  Global("GelShaCast3","LOCALS",1)
THEN 
  RESPONSE #100
    ReallyForceSpellRes("GelShC3",Myself) // +1 faster cast speed and 1 extra spell cast
    SetGlobal("GelShaCast3","LOCALS",99)
END

IF
  Global("GelShaCast4","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelShC4",Myself) // +2 faster cast speed and 1 extra spell cast
    SetGlobal("GelShaCast4","LOCALS",99)
END

// Shaman custom spells //

IF
  Global("GelShaSpells","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelShS1",Myself) // Shaman Custom Spell Package
    SetGlobal("GelShaSpells","LOCALS",4)
END

IF
  Global("GelShaSpells","LOCALS",4)
  LevelGT(Myself,3)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelShS2",Myself) // Shaman Custom Spell Package
    SetGlobal("GelShaSpells","LOCALS",6)
END

IF
  Global("GelShaSpells","LOCALS",6)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelShS3",Myself) // Shaman Custom Spell Package
    SetGlobal("GelShaSpells","LOCALS",10)
END

IF
  Global("GelShaSpells","LOCALS",10)
  LevelGT(Myself,9)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelShS4",Myself) // Shaman Custom Spell Package
    SetGlobal("GelShaSpells","LOCALS",14)
END

IF
  Global("GelShaSpells","LOCALS",14)
  LevelGT(Myself,13)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelShS5",Myself) // Shaman Custom Spell Package
    SetGlobal("GelShaSpells","LOCALS",19)
END

// Profience system cap 2: axe-bow-club //

IF
  Kit(Myself,"GelShBa")
  Global("GelShBa2abc","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe2",Myself) // set axe profience to 2
    SetGlobal("GelShBa2abc","LOCALS",2)
END

IF
  Global("GelShBa2abc","LOCALS",2)
  LevelGT(Myself,2)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow1",Myself) // set bow profience to 1
    SetGlobal("GelShBa2abc","LOCALS",3)
END

IF
  Global("GelShBa2abc","LOCALS",3)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow2",Myself) // set bow profience to 2
    SetGlobal("GelShBa2abc","LOCALS",4)
END

IF
  Global("GelShBa2abc","LOCALS",4)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu1",Myself) // set club profience to 1
    SetGlobal("GelShBa2abc","LOCALS",5)
END

IF
  Global("GelShBa2abc","LOCALS",5)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu2",Myself) // set clun profience to 2
    SetGlobal("GelShBa2abc","LOCALS",99)
END

// Proficence system cap 2: bow-axe-club

IF
  Kit(Myself,"GelShBa")
  Global("GelShBa2bac","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow2",Myself) // set Bow profience to 2
    SetGlobal("GelShBa2bac","LOCALS",2)
END

IF
  Global("GelShBa2bac","LOCALS",2)
  LevelGT(Myself,2)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe1",Myself) // set Axe profience to 1
    SetGlobal("GelShBa2bac","LOCALS",3)
END

IF
  Global("GelShBa2bac","LOCALS",3)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe2",Myself) // set Axe profience to 2
    SetGlobal("GelShBa2bac","LOCALS",4)
END

IF
  Global("GelShBa2bac","LOCALS",4)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu1",Myself) // set club profience to 1
    SetGlobal("GelShBa2bac","LOCALS",5)
END

IF
  Global("GelShBa2bac","LOCALS",5)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu2",Myself) // set clun profience to 2
    SetGlobal("GelShBa2bac","LOCALS",99)
END

// Profience system cap 5: 5Axe-5Bow-5Club
IF
  Kit(Myself,"GelShBa")
  Global("GelShBa5abc","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe2",Myself) // set axe profience to 2
    SetGlobal("GelShBa5abc","LOCALS",2)
END

IF
  Global("GelShBa5abc","LOCALS",2)
  LevelGT(Myself,2)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe3",Myself) // set Axe profience to 3
    SetGlobal("GelShBa5abc","LOCALS",3)
END

IF
  Global("GelShBa5abc","LOCALS",3)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe4",Myself) // set Axe profience to 4
    SetGlobal("GelShBa5abc","LOCALS",4)
END

IF
  Global("GelShBa5abc","LOCALS",4)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe5",Myself) // set Axe profience to 5
    SetGlobal("GelShBa5abc","LOCALS",5)
END

IF
  Global("GelShBa5abc","LOCALS",5)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow1",Myself) // set Bow profience to 1
    SetGlobal("GelShBa5abc","LOCALS",6)
END

IF
  Global("GelShBa5abc","LOCALS",6)
  LevelGT(Myself,13)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow2",Myself) // set Bow profience to 2
    SetGlobal("GelShBa5abc","LOCALS",7)
END

IF
  Global("GelShBa5abc","LOCALS",7)
  LevelGT(Myself,15)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow3",Myself) // set Bow profience to 3
    SetGlobal("GelShBa5abc","LOCALS",8)
END

IF
  Global("GelShBa5abc","LOCALS",8)
  LevelGT(Myself,17)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow4",Myself) // set Bow profience to 4
    SetGlobal("GelShBa5abc","LOCALS",9)
END

IF
  Global("GelShBa5abc","LOCALS",9)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow5",Myself) // set Bow profience to 5
    SetGlobal("GelShBa5abc","LOCALS",10)
END

IF
  Global("GelShBa5abc","LOCALS",10)
  LevelGT(Myself,21)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu1",Myself) // set Club profience to 1
    SetGlobal("GelShBa5abc","LOCALS",11)
END

IF
  Global("GelShBa5abc","LOCALS",11)
  LevelGT(Myself,23)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu2",Myself) // set Club profience to 2
    SetGlobal("GelShBa5abc","LOCALS",12)
END

IF
  Global("GelShBa5abc","LOCALS",12)
  LevelGT(Myself,25)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu3",Myself) // set Club profience to 3
    SetGlobal("GelShBa5abc","LOCALS",13)
END

IF
  Global("GelShBa5abc","LOCALS",13)
  LevelGT(Myself,27)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu4",Myself) // set Club profience to 4
    SetGlobal("GelShBa5abc","LOCALS",14)
END

IF
  Global("GelShBa5abc","LOCALS",14)
  LevelGT(Myself,29)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu5",Myself) // set Club profience to 5
    SetGlobal("GelShBa5abc","LOCALS",99)
END

// Shaman Profience System Cap 5: Bow-axe-club

IF
  Kit(Myself,"GelShBa")
  Global("GelShBa5bac","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow2",Myself) // set Bow profience to 2
    SetGlobal("GelShBa5bac","LOCALS",2)
END

IF
  Global("GelShBa5bac","LOCALS",2)
  LevelGT(Myself,2)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow3",Myself) // set Bow profience to 3
    SetGlobal("GelShBa5bac","LOCALS",3)
END

IF
  Global("GelShBa5bac","LOCALS",3)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow4",Myself) // set Bow profience to 4
    SetGlobal("GelShBa5bac","LOCALS",4)
END

IF
  Global("GelShBa5bac","LOCALS",4)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow5",Myself) // set Bow profience to 5
    SetGlobal("GelShBa5bac","LOCALS",5)
END

IF
  Global("GelShBa5bac","LOCALS",5)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe1",Myself) // set Axe profience to 1
    SetGlobal("GelShBa5bac","LOCALS",6)
END

IF
  Global("GelShBa5bac","LOCALS",6)
  LevelGT(Myself,13)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe2",Myself) // set Axe profience to 2
    SetGlobal("GelShBa5bac","LOCALS",7)
END

IF
  Global("GelShBa5bac","LOCALS",7)
  LevelGT(Myself,15)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe3",Myself) // set Axe profience to 3
    SetGlobal("GelShBa5bac","LOCALS",8)
END

IF
  Global("GelShBa5bac","LOCALS",8)
  LevelGT(Myself,17)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe4",Myself) // set Axe profience to 4
    SetGlobal("GelShBa5bac","LOCALS",9)
END

IF
  Global("GelShBa5bac","LOCALS",9)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe5",Myself) // set Axe profience to 5
    SetGlobal("GelShBa5bac","LOCALS",10)
END

IF
  Global("GelShBa5bac","LOCALS",10)
  LevelGT(Myself,21)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu1",Myself) // set Club profience to 1
    SetGlobal("GelShBa5bac","LOCALS",11)
END

IF
  Global("GelShBa5bac","LOCALS",11)
  LevelGT(Myself,23)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu2",Myself) // set Club profience to 2
    SetGlobal("GelShBa5bac","LOCALS",12)
END

IF
  Global("GelShBa5bac","LOCALS",12)
  LevelGT(Myself,25)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu3",Myself) // set Club profience to 3
    SetGlobal("GelShBa5bac","LOCALS",13)
END

IF
  Global("GelShBa5bac","LOCALS",13)
  LevelGT(Myself,27)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu4",Myself) // set Club profience to 4
    SetGlobal("GelShBa5bac","LOCALS",14)
END

IF
  Global("GelShBa5bac","LOCALS",14)
  LevelGT(Myself,29)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu5",Myself) // set Club profience to 5
    SetGlobal("GelShBa5bac","LOCALS",99)
END

// Shaman Profience System Cap 5 balanced: axe and bow - club: //

IF
  Kit(Myself,"GelShBa")
  Global("GelShBa5bac1","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe1",Myself) // set Axe profience to 1
    ReallyForceSpellRes("GelBow1",Myself) // set Bow profience to 1
    SetGlobal("GelShBa5bac1","LOCALS",2)
END

IF
  Global("GelShBa5bac1","LOCALS",2)
  LevelGT(Myself,2)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow2",Myself) // set Bow profience to 2
    SetGlobal("GelShBa5bac1","LOCALS",3)
END

IF
  Global("GelShBa5bac1","LOCALS",3)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe2",Myself) // set Axe profience to 2
    SetGlobal("GelShBa5bac1","LOCALS",4)
END

IF
  Global("GelShBa5bac1","LOCALS",4)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe3",Myself) // set Axe profience to 3
    SetGlobal("GelShBa5bac1","LOCALS",5)
END

IF
  Global("GelShBa5bac1","LOCALS",5)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow3",Myself) // set Bow profience to 3
    SetGlobal("GelShBa5bac1","LOCALS",6)
END

IF
  Global("GelShBa5bac1","LOCALS",6)
  LevelGT(Myself,13)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe4",Myself) // set Axe profience to 4
    SetGlobal("GelShBa5bac1","LOCALS",7)
END

IF
  Global("GelShBa5bac1","LOCALS",7)
  LevelGT(Myself,15)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAxe5",Myself) // set Axe profience to 5
    SetGlobal("GelShBa5bac1","LOCALS",8)
END

IF
  Global("GelShBa5bac1","LOCALS",8)
  LevelGT(Myself,17)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow4",Myself) // set Bow profience to 4
    SetGlobal("GelShBa5bac1","LOCALS",9)
END

IF
  Global("GelShBa5bac1","LOCALS",9)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBow5",Myself) // set Bow profience to 5
    SetGlobal("GelShBa5bac1","LOCALS",10)
END

IF
  Global("GelShBa5bac1","LOCALS",10)
  LevelGT(Myself,21)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu1",Myself) // set Club profience to 1
    SetGlobal("GelShBa5bac1","LOCALS",11)
END

IF
  Global("GelShBa5bac1","LOCALS",11)
  LevelGT(Myself,23)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu2",Myself) // set Club profience to 2
    SetGlobal("GelShBa5bac1","LOCALS",12)
END

IF
  Global("GelShBa5bac1","LOCALS",12)
  LevelGT(Myself,25)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu3",Myself) // set Club profience to 3
    SetGlobal("GelShBa5bac1","LOCALS",13)
END

IF
  Global("GelShBa5bac1","LOCALS",13)
  LevelGT(Myself,27)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu4",Myself) // set Club profience to 4
    SetGlobal("GelShBa5bac1","LOCALS",14)
END

IF
  Global("GelShBa5bac1","LOCALS",14)
  LevelGT(Myself,29)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelClu5",Myself) // set Club profience to 5
    SetGlobal("GelShBa5bac1","LOCALS",99)
END

// Barbarian kit features (since i already use scripted barbarian stuff in my mod)//

IF
  GlobalLT("GelShBaKit","LOCALS",1)
  Kit(Myself,"GelShBa")
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBar1",Myself) //barbarian kit bonus: Immune to backstab, learn Rage, +2 move points, Restrict plate and full plate.
    SetGlobal("GelShBaKit","LOCALS",1)
END

IF
  Global("GelShBaKit","LOCALS",1)
  LevelGT(Myself,3)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBar4",Myself) // Learn: Barbarian Rage
    SetGlobal("GelShBaKit","LOCALS",2)
END

IF
  Global("GelShBaKit","LOCALS",2)
  LevelGT(Myself,7)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBar4",Myself) // Learn: Barbarian Rage
    SetGlobal("GelShBaKit","LOCALS",3)
END

IF
  Global("GelShBaKit","LOCALS",3)
  LevelGT(Myself,10)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelShBaKit","LOCALS",4)
END

IF
  Global("GelShBaKit","LOCALS",4)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBar4",Myself) // Learn: Barbarian Rage
    SetGlobal("GelShBaKit","LOCALS",5)
END

IF
  Global("GelShBaKit","LOCALS",5)
  LevelGT(Myself,14)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% physical res
    SetGlobal("GelShBaKit","LOCALS",6)
END

IF
  Global("GelShBaKit","LOCALS",6)
  LevelGT(Myself,16)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBar4",Myself) // Learn: Barbarian Rage
    SetGlobal("GelShBaKit","LOCALS",7)
END

IF
  Global("GelShBaKit","LOCALS",7)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% physical res
    SetGlobal("GelShBaKit","LOCALS",99)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",1)
  LevelGT(Myself,1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",4)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",4)
  LevelGT(Myself,3)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",6)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",6)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",8)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",8)
  LevelGT(Myself,7)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",10)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",10)
  LevelGT(Myself,9)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",12)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",12)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",14)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",14)
  LevelGT(Myself,13)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",16)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",16)
  LevelGT(Myself,15)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",18)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",18)
  LevelGT(Myself,17)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",20)
END

IF
  Kit(Myself,"GelShBa")
  GlobalLT("GelShaThaco","LOCALS",20)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelTH+1",Myself) // +1 bonus thaco
    SetGlobal("GelShaThaco","LOCALS",99)
END

//XP penalty//
IF
  Global("GelXp0","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp0",Myself) // Experience gained reduced by 0%
    SetGlobal("GelXp0","LOCALS",99)
END

IF
  Global("GelXp10","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp10",Myself) // Experience gained reduced by 10%
    SetGlobal("GelXp10","LOCALS",99)
END

IF
  Global("GelXp20","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp20",Myself) // Experience gained reduced by 20%
    SetGlobal("GelXp20","LOCALS",99)
END

IF
  Global("GelXp30","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp30",Myself) // Experience gained reduced by 30%
    SetGlobal("GelXp30","LOCALS",99)
END

IF
  Global("GelXp34","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp34",Myself) // Experience gained reduced by 34%
    SetGlobal("GelXp34","LOCALS",99)
END

IF
  Global("GelXp40","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp40",Myself) // Experience gained reduced by 40%
    SetGlobal("GelXp40","LOCALS",99)
END

IF
  Global("GelXp50","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp50",Myself) // Experience gained reduced by 50%
    SetGlobal("GelXp50","LOCALS",99)
END

IF
  Global("GelXp60","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp60",Myself) // Experience gained reduced by 60%
    SetGlobal("GelXp60","LOCALS",99)
END

IF
  Global("GelXp66","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp66",Myself) // Experience gained reduced by 66%
    SetGlobal("GelXp66","LOCALS",99)
END

IF
  Global("GelXp70","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelXp70",Myself) // Experience gained reduced by 70%
    SetGlobal("GelXp70","LOCALS",99)
END

////////Monk Physical Damage Resists///////////

IF
  Global("GelMo5Res","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMo5Res","LOCALS",99)
END

IF
  Global("GelMo10Res","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMo10Res","LOCALS",99)
END

IF
  Global("GelMo15Res","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMo15Res","LOCALS",99)
END

IF
  Global("GelMo20Res","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMo20Res","LOCALS",99)
END

IF
  Global("GelMoScRes","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMoScRes","LOCALS",5)
END

IF
  Global("GelMoScRes","LOCALS",5)
  LevelGT(Myself,4)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMoScRes","LOCALS",10)
END

IF
  Global("GelMoScRes","LOCALS",10)
  LevelGT(Myself,9)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMoScRes","LOCALS",15)
END

IF
  Global("GelMoScRes","LOCALS",15)
  LevelGT(Myself,14)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMoScRes","LOCALS",20)
END

IF
  Global("GelMoScRes","LOCALS",20)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelBarR",Myself) // +5% Physical Resists
    SetGlobal("GelMoScRes","LOCALS",99)
END

/////// MONK Critical Hit Protection ///////////
IF
  Global("GelMoCritEnabled","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelCrit",Myself) // Protection from critical hits
    SetGlobal("GelMoCritEnabled","LOCALS",99)
END

///////// Monk Attribute bonuses /////////////
IF
  Global("GelAttBonus1","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAtt1",Myself) // +1 Strength, Dexterity and Constitution
    SetGlobal("GelAttBonus1","LOCALS",99)
END

IF
  Global("GelAttBonus2","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRes("GelAtt2",Myself) // +2 Strength, Dexterity and Constitution
    SetGlobal("GelAttBonus2","LOCALS",99)
END

//////////// Gel Super Monk MONK COMBINED ////////

IF
  Global("GelSupMonk","LOCALS",1)
  LevelGT(Myself,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",2)
END

IF
  Global("GelSupMonk","LOCALS",2)
  LevelGT(Myself,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO2",Myself) // Learn: Sun Soulray
    SetGlobal("GelSupMonk","LOCALS",5)
END

IF
  Global("GelSupMonk","LOCALS",5)
  LevelGT(Myself,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO3",Myself) // Learn: Flaming Fists
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",6)
END

IF
  Global("GelSupMonk","LOCALS",6)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO2",Myself) // Learn: Sun Soulray
    SetGlobal("GelSupMonk","LOCALS",7)
END

IF
  Global("GelSupMonk","LOCALS",7)
  LevelGT(Myself,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO4",Myself) // Learn: Lay on Hands
    SetGlobal("GelSupMonk","LOCALS",8)
END

IF
  Global("GelSupMonk","LOCALS",8)
  LevelGT(Myself,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO5",Myself) // Learn: Greater Sun
    SetGlobal("GelSupMonk","LOCALS",10)
END

IF
  Global("GelSupMonk","LOCALS",10)
  LevelGT(Myself,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO2",Myself) // Learn: Sun Soulray
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",13)
END

IF
  Global("GelSupMonk","LOCALS",13)
  LevelGT(Myself,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO6",Myself) // Learn: Sun Soulbeam
    SetGlobal("GelSupMonk","LOCALS",15)
END

IF
  Global("GelSupMonk","LOCALS",15)
  LevelGT(Myself,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO2",Myself) // Learn: Sun Soulray
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",16)
END

IF
  Global("GelSupMonk","LOCALS",16)
  LevelGT(Myself,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO7",Myself) // Learn: Quilvering Palm
    SetGlobal("GelSupMonk","LOCALS",20)
END

IF
  Global("GelSupMonk","LOCALS",20)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",25)
END

IF
  Global("GelSupMonk","LOCALS",25)
  LevelGT(Myself,24)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",30)
END

IF
  Global("GelSupMonk","LOCALS",30)
  LevelGT(Myself,29)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",35)
END

IF
  Global("GelSupMonk","LOCALS",35)
  LevelGT(Myself,34)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",40)
END

IF
  Global("GelSupMonk","LOCALS",40)
  LevelGT(Myself,39)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSMO1",Myself) // Learn: Stunning Blow
    SetGlobal("GelSupMonk","LOCALS",99)
END

/////// Potion of customizations //////////////////
IF
  Global("GelPot1","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelPot1",Myself) // Gained Potion of Customization
    SetGlobal("GelPot1","LOCALS",0) // For re-use later if needed.
END

/////// Thievery Penalthy ///////
IF
  Global("GelHide5","LOCALS",1)
  Class(Myself,THIEF_ALL)
THEN
  RESPONSE #100
    SetGlobal("GelHide5","LOCALS",0)
    SetGlobal("GelHide5Rogue","LOCALS",1)
END

IF
  Global("GelHide5","LOCALS",1)
  Class(Myself,RANGER_ALL)
THEN
  RESPONSE #100
    SetGlobal("GelHide5","LOCALS",0)
    SetGlobal("GelHide5Warrior","LOCALS",1)
END

IF
  Global("GelHide5","LOCALS",1)
  Class(Myself,MONK)
THEN
  RESPONSE #100
    SetGlobal("GelHide5","LOCALS",0)
    SetGlobal("GelHide5Monk","LOCALS",1)
END

IF
  Global("GelHide10","LOCALS",1)
  Class(Myself,THIEF_ALL)
THEN
  RESPONSE #100
    SetGlobal("GelHide10","LOCALS",0)
    SetGlobal("GelHide10Rogue","LOCALS",1)
END

IF
  Global("GelHide10","LOCALS",1)
  Class(Myself,RANGER_ALL)
THEN
  RESPONSE #100
    SetGlobal("GelHide10","LOCALS",0)
    SetGlobal("GelHide10Warrior","LOCALS",1)
END

IF
  Global("GelHide10","LOCALS",1)
  Class(Myself,MONK)
THEN
  RESPONSE #100
    SetGlobal("GelHide10","LOCALS",0)
    SetGlobal("GelHide10Monk","LOCALS",1)
END

//// To be contiued. Har nå skillet mellom Warrior/Rogue samt sortert bort urelevante class i dialogfil for å kunne kjøre korrekt ClassLevelGT() sjekk. Uten at feil klasse level blir lest på dual/multiclass.

///////////// -5% hide in shadows per level for thief ///////////////
IF
  Global("GelHide5Rogue","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",2)
END

IF
  Global("GelHide5Rogue","LOCALS",2)
  ClassLevelGT(Myself,ROGUE,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",3)
END

IF
  Global("GelHide5Rogue","LOCALS",3)
  ClassLevelGT(Myself,ROGUE,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",4)
END

IF
  Global("GelHide5Rogue","LOCALS",4)
  ClassLevelGT(Myself,ROGUE,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",5)
END

IF
  Global("GelHide5Rogue","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",6)
END

IF
  Global("GelHide5Rogue","LOCALS",6)
  ClassLevelGT(Myself,ROGUE,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",7)
END

IF
  Global("GelHide5Rogue","LOCALS",7)
  ClassLevelGT(Myself,ROGUE,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",8)
END

IF
  Global("GelHide5Rogue","LOCALS",8)
  ClassLevelGT(Myself,ROGUE,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",9)
END

IF
  Global("GelHide5Rogue","LOCALS",9)
  ClassLevelGT(Myself,ROGUE,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",10)
END

IF
  Global("GelHide5Rogue","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",11)
END

IF
  Global("GelHide5Rogue","LOCALS",11)
  ClassLevelGT(Myself,ROGUE,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",12)
END

IF
  Global("GelHide5Rogue","LOCALS",12)
  ClassLevelGT(Myself,ROGUE,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",13)
END

IF
  Global("GelHide5Rogue","LOCALS",13)
  ClassLevelGT(Myself,ROGUE,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",14)
END

IF
  Global("GelHide5Rogue","LOCALS",14)
  ClassLevelGT(Myself,ROGUE,13)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",15)
END

IF
  Global("GelHide5Rogue","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",16)
END

IF
  Global("GelHide5Rogue","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",17)
END

IF
  Global("GelHide5Rogue","LOCALS",17)
  ClassLevelGT(Myself,ROGUE,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",18)
END

IF
  Global("GelHide5Rogue","LOCALS",18)
  ClassLevelGT(Myself,ROGUE,17)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",19)
END

IF
  Global("GelHide5Rogue","LOCALS",19)
  ClassLevelGT(Myself,ROGUE,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",20)
END

IF
  Global("GelHide5Rogue","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Rogue","LOCALS",99)
END

////////////////// -10% hide in shadows per level for thief //////////////
IF
  Global("GelHide10Rogue","LOCALS",1)
  ClassLevelGT(Myself,ROGUE,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",2)
END

IF
  Global("GelHide10Rogue","LOCALS",2)
  ClassLevelGT(Myself,ROGUE,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",3)
END

IF
  Global("GelHide10Rogue","LOCALS",3)
  ClassLevelGT(Myself,ROGUE,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",4)
END

IF
  Global("GelHide10Rogue","LOCALS",4)
  ClassLevelGT(Myself,ROGUE,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",5)
END

IF
  Global("GelHide10Rogue","LOCALS",5)
  ClassLevelGT(Myself,ROGUE,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",6)
END

IF
  Global("GelHide10Rogue","LOCALS",6)
  ClassLevelGT(Myself,ROGUE,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",7)
END

IF
  Global("GelHide10Rogue","LOCALS",7)
  ClassLevelGT(Myself,ROGUE,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",8)
END

IF
  Global("GelHide10Rogue","LOCALS",8)
  ClassLevelGT(Myself,ROGUE,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",9)
END

IF
  Global("GelHide10Rogue","LOCALS",9)
  ClassLevelGT(Myself,ROGUE,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",10)
END

IF
  Global("GelHide10Rogue","LOCALS",10)
  ClassLevelGT(Myself,ROGUE,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",11)
END

IF
  Global("GelHide10Rogue","LOCALS",11)
  ClassLevelGT(Myself,ROGUE,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",12)
END

IF
  Global("GelHide10Rogue","LOCALS",12)
  ClassLevelGT(Myself,ROGUE,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",13)
END

IF
  Global("GelHide10Rogue","LOCALS",13)
  ClassLevelGT(Myself,ROGUE,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",14)
END

IF
  Global("GelHide10Rogue","LOCALS",14)
  ClassLevelGT(Myself,ROGUE,13)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",15)
END

IF
  Global("GelHide10Rogue","LOCALS",15)
  ClassLevelGT(Myself,ROGUE,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",16)
END

IF
  Global("GelHide10Rogue","LOCALS",16)
  ClassLevelGT(Myself,ROGUE,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",17)
END

IF
  Global("GelHide10Rogue","LOCALS",17)
  ClassLevelGT(Myself,ROGUE,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",18)
END

IF
  Global("GelHide10Rogue","LOCALS",18)
  ClassLevelGT(Myself,ROGUE,17)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",19)
END

IF
  Global("GelHide10Rogue","LOCALS",19)
  ClassLevelGT(Myself,ROGUE,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",20)
END

IF
  Global("GelHide10Rogue","LOCALS",20)
  ClassLevelGT(Myself,ROGUE,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Rogue","LOCALS",99)
END

///////////// -5% hide in shadows per level for Ranger ///////////////
IF
  Global("GelHide5Warrior","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",2)
END

IF
  Global("GelHide5Warrior","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",3)
END

IF
  Global("GelHide5Warrior","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",4)
END

IF
  Global("GelHide5Warrior","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",5)
END

IF
  Global("GelHide5Warrior","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",6)
END

IF
  Global("GelHide5Warrior","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",7)
END

IF
  Global("GelHide5Warrior","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",8)
END

IF
  Global("GelHide5Warrior","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",9)
END

IF
  Global("GelHide5Warrior","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",10)
END

IF
  Global("GelHide5Warrior","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",11)
END

IF
  Global("GelHide5Warrior","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",12)
END

IF
  Global("GelHide5Warrior","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",13)
END

IF
  Global("GelHide5Warrior","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",14)
END

IF
  Global("GelHide5Warrior","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",15)
END

IF
  Global("GelHide5Warrior","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",16)
END

IF
  Global("GelHide5Warrior","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",17)
END

IF
  Global("GelHide5Warrior","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",18)
END

IF
  Global("GelHide5Warrior","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",19)
END

IF
  Global("GelHide5Warrior","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",20)
END

IF
  Global("GelHide5Warrior","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Warrior","LOCALS",99)
END

///////////// -10% hide in shadows per level for Ranger ///////////////
IF
  Global("GelHide10Warrior","LOCALS",1)
  ClassLevelGT(Myself,WARRIOR,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",2)
END

IF
  Global("GelHide10Warrior","LOCALS",2)
  ClassLevelGT(Myself,WARRIOR,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",3)
END

IF
  Global("GelHide10Warrior","LOCALS",3)
  ClassLevelGT(Myself,WARRIOR,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",4)
END

IF
  Global("GelHide10Warrior","LOCALS",4)
  ClassLevelGT(Myself,WARRIOR,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",5)
END

IF
  Global("GelHide10Warrior","LOCALS",5)
  ClassLevelGT(Myself,WARRIOR,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",6)
END

IF
  Global("GelHide10Warrior","LOCALS",6)
  ClassLevelGT(Myself,WARRIOR,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",7)
END

IF
  Global("GelHide10Warrior","LOCALS",7)
  ClassLevelGT(Myself,WARRIOR,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",8)
END

IF
  Global("GelHide10Warrior","LOCALS",8)
  ClassLevelGT(Myself,WARRIOR,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",9)
END

IF
  Global("GelHide10Warrior","LOCALS",9)
  ClassLevelGT(Myself,WARRIOR,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",10)
END

IF
  Global("GelHide10Warrior","LOCALS",10)
  ClassLevelGT(Myself,WARRIOR,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",11)
END

IF
  Global("GelHide10Warrior","LOCALS",11)
  ClassLevelGT(Myself,WARRIOR,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",12)
END

IF
  Global("GelHide10Warrior","LOCALS",12)
  ClassLevelGT(Myself,WARRIOR,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",13)
END

IF
  Global("GelHide10Warrior","LOCALS",13)
  ClassLevelGT(Myself,WARRIOR,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",14)
END

IF
  Global("GelHide10Warrior","LOCALS",14)
  ClassLevelGT(Myself,WARRIOR,13)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",15)
END

IF
  Global("GelHide10Warrior","LOCALS",15)
  ClassLevelGT(Myself,WARRIOR,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",16)
END

IF
  Global("GelHide10Warrior","LOCALS",16)
  ClassLevelGT(Myself,WARRIOR,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",17)
END

IF
  Global("GelHide10Warrior","LOCALS",17)
  ClassLevelGT(Myself,WARRIOR,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",18)
END

IF
  Global("GelHide10Warrior","LOCALS",18)
  ClassLevelGT(Myself,WARRIOR,17)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",19)
END

IF
  Global("GelHide10Warrior","LOCALS",19)
  ClassLevelGT(Myself,WARRIOR,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",20)
END

IF
  Global("GelHide10Warrior","LOCALS",20)
  ClassLevelGT(Myself,WARRIOR,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Warrior","LOCALS",99)
END

///////////// -5% hide in shadows per level for Monk ///////////////
IF
  Global("GelHide5Monk","LOCALS",1)
  LevelGT(Myself,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",2)
END

IF
  Global("GelHide5Monk","LOCALS",2)
  LevelGT(Myself,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",3)
END

IF
  Global("GelHide5Monk","LOCALS",3)
  LevelGT(Myself,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",4)
END

IF
  Global("GelHide5Monk","LOCALS",4)
  LevelGT(Myself,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",5)
END

IF
  Global("GelHide5Monk","LOCALS",5)
  LevelGT(Myself,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",6)
END

IF
  Global("GelHide5Monk","LOCALS",6)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",7)
END

IF
  Global("GelHide5Monk","LOCALS",7)
  LevelGT(Myself,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",8)
END

IF
  Global("GelHide5Monk","LOCALS",8)
  LevelGT(Myself,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",9)
END

IF
  Global("GelHide5Monk","LOCALS",9)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",10)
END

IF
  Global("GelHide5Monk","LOCALS",10)
  LevelGT(Myself,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",11)
END

IF
  Global("GelHide5Monk","LOCALS",11)
  LevelGT(Myself,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",12)
END

IF
  Global("GelHide5Monk","LOCALS",12)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",13)
END

IF
  Global("GelHide5Monk","LOCALS",13)
  LevelGT(Myself,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",14)
END

IF
  Global("GelHide5Monk","LOCALS",14)
  LevelGT(Myself,13)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",15)
END

IF
  Global("GelHide5Monk","LOCALS",15)
  LevelGT(Myself,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",16)
END

IF
  Global("GelHide5Monk","LOCALS",16)
  LevelGT(Myself,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",17)
END

IF
  Global("GelHide5Monk","LOCALS",17)
  LevelGT(Myself,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",18)
END

IF
  Global("GelHide5Monk","LOCALS",18)
  LevelGT(Myself,17)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",19)
END

IF
  Global("GelHide5Monk","LOCALS",19)
  LevelGT(Myself,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",20)
END

IF
  Global("GelHide5Monk","LOCALS",20)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelBou2",Myself) // -5% to hide in shadows
    SetGlobal("GelHide5Monk","LOCALS",99)
END

///////////// -10% hide in shadows per level for Monk ///////////////
IF
  Global("GelHide10Monk","LOCALS",1)
  LevelGT(Myself,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",2)
END

IF
  Global("GelHide10Monk","LOCALS",2)
  LevelGT(Myself,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",3)
END

IF
  Global("GelHide10Monk","LOCALS",3)
  LevelGT(Myself,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",4)
END

IF
  Global("GelHide10Monk","LOCALS",4)
  LevelGT(Myself,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",5)
END

IF
  Global("GelHide10Monk","LOCALS",5)
  LevelGT(Myself,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",6)
END

IF
  Global("GelHide10Monk","LOCALS",6)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",7)
END

IF
  Global("GelHide10Monk","LOCALS",7)
  LevelGT(Myself,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",8)
END

IF
  Global("GelHide10Monk","LOCALS",8)
  LevelGT(Myself,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",9)
END

IF
  Global("GelHide10Monk","LOCALS",9)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",10)
END

IF
  Global("GelHide10Monk","LOCALS",10)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",12)
END

IF
  Global("GelHide10Monk","LOCALS",12)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",13)
END

IF
  Global("GelHide10Monk","LOCALS",13)
  LevelGT(Myself,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",14)
END

IF
  Global("GelHide10Monk","LOCALS",14)
  LevelGT(Myself,13)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",15)
END

IF
  Global("GelHide10Monk","LOCALS",15)
  LevelGT(Myself,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",16)
END

IF
  Global("GelHide10Monk","LOCALS",16)
  LevelGT(Myself,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",17)
END

IF
  Global("GelHide10Monk","LOCALS",17)
  LevelGT(Myself,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",18)
END

IF
  Global("GelHide10Monk","LOCALS",18)
  LevelGT(Myself,17)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",19)
END

IF
  Global("GelHide10Monk","LOCALS",19)
  LevelGT(Myself,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",20)
END

IF
  Global("GelHide10Monk","LOCALS",20)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelAss2",Myself) // -10% to hide in shadows
    SetGlobal("GelHide10Monk","LOCALS",99)
END

////////////////////// Wisdom Bonus For TMC and FMTC //////////////////////////

//// LESS THAN 13 wisdom + safeguard vs spam of this function /////
//IF
//  OR(2)
//  Kit(Myself,"GelTMC")
//  Kit(Myself,"GelFMTC")
//  CheckStatLT(Myself,13,WIS)
//  GlobalLT("GelWisABelow13","LOCALS",1)
//THEN
//  RESPONSE #100
//    ReallyForceSpellRES("GelWRem",Myself) // Remove Spellbonus for wisdom
//    SetGlobal("GelWisABelow13","LOCALS",1)
//END
//
//IF
//  OR(2)
//  Kit(Myself,"GelTMC")
//  Kit(Myself,"GelFMTC")
//  CheckStatGT(Myself,12,WIS)
//  Global("GelWisABelow13","LOCALS",1)
//THEN
//  RESPONSE #100
//    SetGlobal("GelWisABelow13","LOCALS",0)
//END

IF
  Class(Myself,MAGE_THIEF)
  Global("GelTMCClericOnly","LOCALS",1)
THEN
  RESPONSE #100
  AddSuperKit("GelTMC")
  ReallyForceSpellRES("GelCLea",Myself)
  ReallyForceSpellRES("GelKi01",Myself)
  SetGlobal("GelTMCClericOnly","LOCALS",2)
END

IF
  Class(Myself,FIGHTER_MAGE_THIEF)
  Global("GelTMCClericOnly","LOCALS",1)
THEN
  RESPONSE #100
  AddSuperKit("GelFMTC")
  ReallyForceSpellRES("GelCLea",Myself)
  ReallyForceSpellRES("GelKi01",Myself)
  SetGlobal("GelTMCClericOnly","LOCALS",2)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  GlobalLT("GelClabTMC","LOCALS",1)
  ClassLevelGT(Myself,WIZARD,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi02",Myself)
	SetGlobal("GelClabTMC","LOCALS",1)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",1)
  ClassLevelGT(Myself,WIZARD,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi02",Myself)
	SetGlobal("GelClabTMC","LOCALS",2)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",2)
  ClassLevelGT(Myself,WIZARD,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi03",Myself)
	SetGlobal("GelClabTMC","LOCALS",3)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",3)
  ClassLevelGT(Myself,WIZARD,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi04",Myself)
	SetGlobal("GelClabTMC","LOCALS",4)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",4)
  ClassLevelGT(Myself,WIZARD,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi05",Myself)
	SetGlobal("GelClabTMC","LOCALS",5)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",5)
  ClassLevelGT(Myself,WIZARD,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi06",Myself)
	SetGlobal("GelClabTMC","LOCALS",6)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",6)
  ClassLevelGT(Myself,WIZARD,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi07",Myself)
	SetGlobal("GelClabTMC","LOCALS",7)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",7)
  ClassLevelGT(Myself,WIZARD,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi08",Myself)
	SetGlobal("GelClabTMC","LOCALS",8)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",8)
  ClassLevelGT(Myself,WIZARD,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi09",Myself)
	SetGlobal("GelClabTMC","LOCALS",9)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",9)
  ClassLevelGT(Myself,WIZARD,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi10",Myself)
	SetGlobal("GelClabTMC","LOCALS",10)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",10)
  ClassLevelGT(Myself,WIZARD,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi11",Myself)
	SetGlobal("GelClabTMC","LOCALS",11)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",11)
  ClassLevelGT(Myself,WIZARD,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi12",Myself)
	SetGlobal("GelClabTMC","LOCALS",12)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",12)
  ClassLevelGT(Myself,WIZARD,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi13",Myself)
	SetGlobal("GelClabTMC","LOCALS",13)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",13)
  ClassLevelGT(Myself,WIZARD,13)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi14",Myself)
	SetGlobal("GelClabTMC","LOCALS",14)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",14)
  ClassLevelGT(Myself,WIZARD,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi15",Myself)
	SetGlobal("GelClabTMC","LOCALS",15)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",15)
  ClassLevelGT(Myself,WIZARD,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi16",Myself)
	SetGlobal("GelClabTMC","LOCALS",16)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",16)
  ClassLevelGT(Myself,WIZARD,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi17",Myself)
	SetGlobal("GelClabTMC","LOCALS",17)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",17)
  ClassLevelGT(Myself,WIZARD,17)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi18",Myself)
	SetGlobal("GelClabTMC","LOCALS",18)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",18)
  ClassLevelGT(Myself,WIZARD,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi19",Myself)
	SetGlobal("GelClabTMC","LOCALS",19)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",19)
  ClassLevelGT(Myself,WIZARD,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi20",Myself)
	SetGlobal("GelClabTMC","LOCALS",20)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",20)
  ClassLevelGT(Myself,WIZARD,20)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi21",Myself)
	SetGlobal("GelClabTMC","LOCALS",21)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",21)
  ClassLevelGT(Myself,WIZARD,21)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi22",Myself)
	SetGlobal("GelClabTMC","LOCALS",22)
END

IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelClabTMC","LOCALS",22)
  ClassLevelGT(Myself,WIZARD,22)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelKi23",Myself)
	SetGlobal("GelClabTMC","LOCALS",23)
END


//// 13 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,12,WIS)
  !HaveSpellRES("GelWi13")
  GlobalLT("GelWisdomBonusGiven","LOCALS",13)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi13",Myself) // Spellbonus for 13 wisdom
    SetGlobal("GelWisdomBonusGiven","LOCALS",13)	
END

//// 14 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,13,WIS)
  !HaveSpellRES("GelWi14")
  Global("GelWisdomBonusGiven","LOCALS",13)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi14",Myself) // Spellbonus for 14 wisdom 
	SetGlobal("GelWisdomBonusGiven","LOCALS",14)
END

//// 15 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,14,WIS)
  !HaveSpellRES("GelWi15")
  Global("GelWisdomBonusGiven","LOCALS",14)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi15",Myself)
	SetGlobal("GelWisdomBonusGiven","LOCALS",15)
END

//// 16 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,15,WIS)
  !HaveSpellRES("GelWi16")
  Global("GelWisdomBonusGiven","LOCALS",15)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi16",Myself)
	SetGlobal("GelWisdomBonusGiven","LOCALS",16)
END

//// 17 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,16,WIS)
  !HaveSpellRES("GelWi17")
  Global("GelWisdomBonusGiven","LOCALS",16)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi17",Myself)
    SetGlobal("GelWisdomBonusGiven","LOCALS",17)	
END

//// 18 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,17,WIS)
  !HaveSpellRES("GelWi18")
  Global("GelWisdomBonusGiven","LOCALS",17)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100 
    ReallyForceSpellRES("GelWi18",Myself)
    SetGlobal("GelWisdomBonusGiven","LOCALS",18)	
END

//// 19 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,18,WIS)
  !HaveSpellRES("GelWi19")
  Global("GelWisdomBonusGiven","LOCALS",18)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi19",Myself)
    SetGlobal("GelWisdomBonusGiven","LOCALS",19)	
END

//// 20 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,19,WIS)
  !HaveSpellRES("GelWi20")
  Global("GelWisdomBonusGiven","LOCALS",19)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi20",Myself)
	SetGlobal("GelWisdomBonusGiven","LOCALS",20)
END

//// 21 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,20,WIS)
  !HaveSpellRES("GelWi21")
  Global("GelWisdomBonusGiven","LOCALS",20)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi21",Myself)
    SetGlobal("GelWisdomBonusGiven","LOCALS",21)	
END

//// 22 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,21,WIS)
  !HaveSpellRES("GelWi22")
  Global("GelWisdomBonusGiven","LOCALS",21)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelWi22",Myself) 
	SetGlobal("GelWisdomBonusGiven","LOCALS",22)
END

//// 23 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,22,WIS)
  !HaveSpellRES("GelWi23")
  Global("GelWisdomBonusGiven","LOCALS",22)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100 
    ReallyForceSpellRES("GelWi23",Myself)
    SetGlobal("GelWisdomBonusGiven","LOCALS",23)	
END

//// 24 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,23,WIS)
  !HaveSpellRES("GelWi24")
  Global("GelWisdomBonusGiven","LOCALS",23)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100 
    ReallyForceSpellRES("GelWi24",Myself)
    SetGlobal("GelWisdomBonusGiven","LOCALS",24)	
END

//// 25 wisdom /////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  CheckStatGT(Myself,24,WIS)
  !HaveSpellRES("GelWi25")
  Global("GelWisdomBonusGiven","LOCALS",24)
  GlobalLT("GelWisdomBlocked","LOCALS",1)
THEN
  RESPONSE #100 
    ReallyForceSpellRES("GelWi25",Myself)
	SetGlobal("GelWisdomBonusGiven","LOCALS",99)
END

/////////////// Druid spellpack into arcane spellbook Vanilla //////////////
IF
  OR(2)
  Kit(Myself,"GelTMC")
  Kit(Myself,"GelFMTC")
  Global("GelDruidSpellsAddAV","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelDLea",Myself) // Vanilla Druid Spell Package (Arcane Spellbook)
    SetGlobal("GelDruidSpellsAddAV","LOCALS",99)
END

//IF
//  OR(2)
//  Kit(Myself,"GelTMC")
//  Kit(Myself,"GelFMTC")
//  Global("GelDruidSpellsAddAI","LOCALS",1)
//THEN
//  RESPONSE #100
//    ReallyForceSpellRES("GelDrAI",Myself) // Icewindification Druid Spell Package (Arcane Spellbook)
//    SetGlobal("GelDruidSpellsAddAI","LOCALS",99)
//END

//IF
//  OR(2)
//  Kit(Myself,"GelTMC")
//  Kit(Myself,"GelFMTC")
//  Global("GelDruidSpellsAddAS","LOCALS",1)
//THEN
//  RESPONSE #100
//    ReallyForceSpellRES("GelDrAS",Myself) // Icewindification Druid Spell Package (Arcane Spellbook)
//    SetGlobal("GelDruidSpellsAddAS","LOCALS",99)
//END

/////////////// Druid spellpack into devine spellbook Vanilla //////////////
IF
  Class(Myself,CLERIC_ALL)
  Global("GelDruidSpellsAddDV","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelALea",Myself) // Vanilla Druid Spell Package (Devine Spellbook)
    SetGlobal("GelDruidSpellsAddDV","LOCALS",99)
END

//IF
//  Class(Myself,CLERIC_ALL)
//  Global("GelDruidSpellsAddDI","LOCALS",1)
//THEN
//  RESPONSE #100
//    ReallyForceSpellRES("GelDrDI",Myself) // Icewindifications Druid Spell Package (Devine Spellbook)
//    SetGlobal("GelDruidSpellsAddDI","LOCALS",99)
//END

//IF
//  Class(Myself,CLERIC_ALL)
//  Global("GelDruidSpellsAddDS","LOCALS",1)
//THEN
//  RESPONSE #100
//    ReallyForceSpellRES("GelDrDS",Myself) // SCS Druid Spell Package (Devine Spellbook)
//    SetGlobal("GelDruidSpellsAddDS","LOCALS",99)
//END

/////////////////////////////////////////// NECROMANCER INNATE PACK /////////////////////////////////////////

//// LEVEL 1 ////
IF
  Global("GelNecroPack1","LOCALS",1)
  LevelGT(Myself,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNec3",Myself) // Chilling Touch
    ReallyForceSpellRES("GelNec4",Myself) // Larloch's Minor Drain
    ReallyForceSpellRES("GelNec5",Myself) // Cure Light Wounds
    SetGlobal("GelNecroPack1","LOCALS",2)
END

//// LEVEL 2 ////
IF
  Global("GelNecroPack1","LOCALS",2)
  LevelGT(Myself,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNec3",Myself)
    ReallyForceSpellRES("GelNec4",Myself)
    ReallyForceSpellRES("GelNec6",Myself) // Command
    SetGlobal("GelNecroPack1","LOCALS",3)
END

//// LEVEL 3 ////
IF
  Global("GelNecroPack1","LOCALS",3)
  LevelGT(Myself,2)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNec7",Myself) // Ghoul Touch
    SetGlobal("GelNecroPack1","LOCALS",4)
END

//// LEVEL 4 ////
IF
  Global("GelNecroPack1","LOCALS",4)
  LevelGT(Myself,3)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNec8",Myself) // Horror
    ReallyForceSpellRES("GelNec7",Myself) // Ghoul Touch
    SetGlobal("GelNecroPack1","LOCALS",5)
END

//// LEVEL 5 ////
IF
  Global("GelNecroPack1","LOCALS",5)
  LevelGT(Myself,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNec9",Myself) // Skull Trap
    ReallyForceSpellRES("GelNecA",Myself) // Animate Dead
    ReallyForceSpellRES("GelNec6",Myself) // Command
    ReallyForceSpellRES("GelNecB",Myself) // Vampiric Touch
    SetGlobal("GelNecroPack1","LOCALS",6)
END

//// LEVEL 6 ////
IF
  Global("GelNecroPack1","LOCALS",6)
  LevelGT(Myself,5)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecC",Myself) // Cure Medium Wounds
    ReallyForceSpellRES("GelNec9",Myself)
    ReallyForceSpellRES("GelNec4",Myself)
    ReallyForceSpellRES("GelNecB",Myself)
    SetGlobal("GelNecroPack1","LOCALS",7)
END

//// LEVEL 7 ////
IF
  Global("GelNecroPack1","LOCALS",7)
  LevelGT(Myself,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecD",Myself) // Contagion
    ReallyForceSpellRES("GelNecA",Myself)
    ReallyForceSpellRES("GelNecE",Myself) // Cause Serious Wounds
    ReallyForceSpellRES("GelNecF",Myself) // Holy Smite
    SetGlobal("GelNecroPack1","LOCALS",8)
END

//// LEVEL 8 ////
IF
  Global("GelNecroPack1","LOCALS",8)
  LevelGT(Myself,7)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecG",Myself) // Cure Serious Wounds
    ReallyForceSpellRES("GelNecD",Myself)
    ReallyForceSpellRES("GelNecH",Myself) // Unholy Blight
    SetGlobal("GelNecroPack1","LOCALS",9)
END

//// LEVEL 9 ////
IF
  Global("GelNecroPack1","LOCALS",9)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecI",Myself) // Poison
    ReallyForceSpellRES("GelNecJ",Myself) // Slay Living
    ReallyForceSpellRES("GelNecE",Myself)
    ReallyForceSpellRES("GelNecK",Myself) // Death Ward
    SetGlobal("GelNecroPack1","LOCALS",10)
END

//// LEVEL 10 ////
IF
  Global("GelNecroPack1","LOCALS",10)
  LevelGT(Myself,9)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecJ",Myself)
    ReallyForceSpellRES("GelNecL",Myself) // Corrosive Decay
    ReallyForceSpellRES("GelNecM",Myself) // Cure Critical Wounds
    SetGlobal("GelNecroPack1","LOCALS",11)
END

//// LEVEL 11 ////
IF
  Global("GelNecroPack1","LOCALS",11)
  LevelGT(Myself,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecK",Myself)
    ReallyForceSpellRES("GelNecJ",Myself)
    ReallyForceSpellRES("GelNecE",Myself)
    SetGlobal("GelNecroPack1","LOCALS",12)
END

//// LEVEL 12 ////
IF
  Global("GelNecroPack1","LOCALS",12)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecN",Myself) // Harm
    ReallyForceSpellRES("GelNecN",Myself)
    SetGlobal("GelNecroPack1","LOCALS",13)
END

//// LEVEL 13 ////
IF
  Global("GelNecroPack1","LOCALS",13)
  LevelGT(Myself,12)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecN",Myself)
    ReallyForceSpellRES("GelNecO",Myself) // Heal
    SetGlobal("GelNecroPack1","LOCALS",14)
END

//// LEVEL 14 ////
IF
  Global("GelNecroPack1","LOCALS",14)
  LevelGT(Myself,13)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecP",Myself) // Death Spell
    ReallyForceSpellRES("GelNecO",Myself)
    ReallyForceSpellRES("GelNecQ",Myself) // Finger of Death
    SetGlobal("GelNecroPack1","LOCALS",15)
END

//// LEVEL 15 ////
IF
  Global("GelNecroPack1","LOCALS",15)
  LevelGT(Myself,14)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecQ",Myself)
    ReallyForceSpellRES("GelNecB",Myself)
    ReallyForceSpellRES("GelNecR",Myself) // Control Undead
    SetGlobal("GelNecroPack1","LOCALS",16)
END

//// LEVEL 16 ////
IF
  Global("GelNecroPack1","LOCALS",16)
  LevelGT(Myself,15)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecS",Myself) // Horrid Wilting
    SetGlobal("GelNecroPack1","LOCALS",17)
END

//// LEVEL 17 ////
IF
  Global("GelNecroPack1","LOCALS",17)
  LevelGT(Myself,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecS",Myself)
    SetGlobal("GelNecroPack1","LOCALS",19)
END

//// LEVEL 19 ////
IF
  Global("GelNecroPack1","LOCALS",19)
  LevelGT(Myself,18)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecS",Myself)
    SetGlobal("GelNecroPack1","LOCALS",20)
END

//// LEVEL 20 ////
IF
  Global("GelNecroPack1","LOCALS",20)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecT",Myself) // Wail of the Banshee
    SetGlobal("GelNecroPack1","LOCALS",21)
END

//// LEVEL 21 ////
IF
  Global("GelNecroPack1","LOCALS",21)
  LevelGT(Myself,20)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelNecT",Myself)
    SetGlobal("GelNecroPack1","LOCALS",99)
END

///// Barbarian / Shaman attack lvl 7 and 13 ///

IF
  Kit(Myself,"GelShBa")
  LevelGT(Myself,6)
  GlobalLT("GelShamanAPR","LOCALS",1)
THEN
  RESPONSE #100
  ReallyForceSpellRES("Gel5APR",Myself)
  SetGlobal("GelShamanAPR","LOCALS",1)
END

IF
  Kit(Myself,"GelShBa")
  LevelGT(Myself,12)
  Global("GelShamanAPR","LOCALS",1)
THEN
  RESPONSE #100
  ReallyForceSpellRES("Gel5APR",Myself)
  SetGlobal("GelShamanAPR","LOCALS",99)
END

////// ==== NINJA CHARGE husk å endre til locals i spell ====== //////
IF
//    Class(Myself,RANGER)
//    Kit(Myself,GelNinj)
    Global("GeNinj1","LOCALS",1)
THEN
    RESPONSE #100
        MoveToObject(NearestEnemyOf(Myself))
        ApplySpellRES("GelNi10",Myself)  // Backstab Every Hit
        SetGlobal("GeNinj1","LOCALS",2)
END

IF
    Global("GeNinj1","LOCALS",2)
    StateCheck(Myself,STATE_INVISIBLE)
    See(NearestEnemyOf(Myself))
THEN
    RESPONSE #100
        EquipMostDamagingMelee()
        AttackOneRound(NearestEnemyOf(Myself))
        ApplySpellRES("GelNi11",Myself)  // Remove: Backstab Every Hit
        SetGlobal("GeNinj1","LOCALS",0)
END

IF
    Global("GeNinj1","LOCALS",2)
    !StateCheck(Myself,STATE_INVISIBLE)
    See(NearestEnemyOf(Myself))
THEN
    RESPONSE #100
        ApplySpellRES("GelNi11",Myself)  // Remove: Backstab Every Hit
        EquipMostDamagingMelee()
        AttackOneRound(NearestEnemyOf(Myself))
        SetGlobal("GeNinj1","LOCALS",0)
END

IF
    OR(2)
    Global("GeNinj1","LOCALS",1)
    Global("GeNinj1","LOCALS",2)
    !See(NearestEnemyOf(Myself))
THEN
    RESPONSE #100
        SetGlobal("GeNinj1","GLOBAL",0)
END

IF
  Global("GelBackstabScaled","LOCALS",1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupB",Myself) // +1 backstab bonus
	SetGlobal("GelBackstabScaled","LOCALS",9)
END

IF
  Global("GelBackstabScaled","LOCALS",9)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupB",Myself) // +1 backstab bonus
	SetGlobal("GelBackstabScaled","LOCALS",17)
END

IF
  Global("GelBackstabScaled","LOCALS",17)
  LevelGT(Myself,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSupB",Myself) // +1 backstab bonus
	SetGlobal("GelBackstabScaled","LOCALS",99)
END

//// == Woodclan Ninja Innate package == ////
IF
  Global("GelNinjPackage1","LOCALS",1)
  LevelGT(Myself,0)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelP##1",Myself) // Learn: Smoke Bomb
    ReallyForceSpellRES("GelP##2",Myself) // Learn: Create Ninja Stars
    ReallyForceSpellRES("GelP##3",Myself) // Learn: Ninja Charge
    SetGlobal("GelNinjPackage1","LOCALS",2)
END

IF
  Global("GelNinjPackage1","LOCALS",2)
  LevelGT(Myself,1)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself) // Learn: Shadow Step
    SetGlobal("GelNinjPackage1","LOCALS",5)
END

IF
  Global("GelNinjPackage1","LOCALS",5)
  LevelGT(Myself,4)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelSha5",Myself) // Learn: Shadow Step
    SetGlobal("GelNinjPackage1","LOCALS",7)
END

IF
  Global("GelNinjPackage1","LOCALS",7)
  LevelGT(Myself,6)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelP##3",Myself) // Learn: Ninja Charge
    SetGlobal("GelNinjPackage1","LOCALS",9)
END

IF
  Global("GelNinjPackage1","LOCALS",9)
  LevelGT(Myself,8)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelP##4",Myself) // Learn: Invisibility
    SetGlobal("GelNinjPackage1","LOCALS",11)
END

IF
  Global("GelNinjPackage1","LOCALS",11)
  LevelGT(Myself,10)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelP##5",Myself) // Learn: Insect Plague
    SetGlobal("GelNinjPackage1","LOCALS",12)
END

IF
  Global("GelNinjPackage1","LOCALS",12)
  LevelGT(Myself,11)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelP##4",Myself) // Learn: Invisibility
    SetGlobal("GelNinjPackage1","LOCALS",17)
END

IF
  Global("GelNinjPackage1","LOCALS",17)
  LevelGT(Myself,16)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelP##6",Myself) // Learn: Creeping Doom
    ReallyForceSpellRES("GelP##7",Myself) // Learn: Nature's Peace
    SetGlobal("GelNinjPackage1","LOCALS",20)
END

IF
  Global("GelNinjPackage1","LOCALS",20)
  LevelGT(Myself,19)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelP##8",Myself) // Learn: Quivering Wepon
    ReallyForceSpellRES("GelP##9",Myself) // Learn: Energy Shurikens
    SetGlobal("GelNinjPackage1","LOCALS",30)
END

IF
  Global("GelNinjPackage1","LOCALS",30)
  LevelGT(Myself,29)
THEN
  RESPONSE #100
    ReallyForceSpellRES("GelP##8",Myself) // Learn: Quilvering Wepon
    SetGlobal("GelNinjPackage1","LOCALS",99)
END