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("GelKitChangerPot","LOCALS",1)~ THEN REPLY ~Summon the KitChanger~ DO ~SetGlobal("GelKitChangerPot","LOCALS",1)~ GOTO GelTDia_Kitchanger
    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 abilities 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("GelDevineSpellPot","LOCALS",1) 
OR(5)
Class(LastTalkedToBy(Myself),CLERIC_ALL)
Class(LastTalkedToBy(Myself),DRUID_ALL)
Class(LastTalkedToBy(Myself),RANGER)
Class(LastTalkedToBy(Myself),SHAMAN)
Class(LastTalkedToBy(Myself),PALADIN)~ THEN REPLY ~I want to add Devine spells.(specified)~ DO ~SetGlobal("GelDevineSpellPot","LOCALS",1)~ GOTO GelTDia_DevinePackage
    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("GelAnimationChange","LOCALS",1)~ THEN REPLY ~I would like to change a animation~ DO ~SetGlobal("GelAnimationChange","LOCALS",1)~ GOTO GelAnimationList
    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_Kitchanger
  SAY ~Kitchanger will come once potion menu is done~
    IF ~~ THEN REPLY ~Okay.~ 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 ~GlobalLT("DartRestricted","LOCALS",1)~ THEN REPLY ~Darts~ DO ~SetGlobal("DartRestricted","LOCALS",1)~ GOTO WeponRestrictedConfirmed
    IF ~GlobalLT("BowsRestricted","LOCALS",1)~ THEN REPLY ~Bows and Crossbow~ DO ~SetGlobal("BowsRestricted","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 ~GlobalLT("GelPsionicMenu","LOCALS",1)~ THEN REPLY ~I want some Psionic abilities.~ DO ~SetGlobal("GelPsionicMenu","LOCALS",1)~ GOTO GelPsionicMenu
    IF ~~ THEN REPLY ~Im done here, go back.~ GOTO GelTDia_AbilityPackage
END

IF ~~ THEN BEGIN GelPsionicMenu
  SAY ~Choose whichever psionics you want.~
    IF ~GlobalLT("GelPsionicsListInnate","LOCALS",1)~ THEN REPLY ~I want to pick abilities from list with instant access.~ DO ~SetGlobal("GelPsionicsListInnate","LOCALS",1)~ GOTO GelPsionicListInnate
    IF ~GlobalLT("GelPsionicsAll","LOCALS",1)~ THEN REPLY ~I want Scaled: Abilites OR/AND Devour attack OR/AND Shapechange OR/AND scaled Illithid Head/Helm.~ DO ~SetGlobal("GelPsionicsAll","LOCALS",1)~ GOTO GelPsionicADSH
    IF ~~ THEN REPLY ~Go back.~ GOTO GelCustomInnateAbility
END

IF ~~ THEN BEGIN GelPsionicListInnate
  SAY ~Pick Abilities.~
    IF ~GlobalLT("GelListLesserPsiBlast","LOCALS",1)~ THEN REPLY ~Lesser Psionic Blast~ DO ~SetGlobal("GelListLesserPsiBlast","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListPsiBlast","LOCALS",1)~ THEN REPLY ~Psionic Blast~ DO ~SetGlobal("GelListPsiBlast","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListGreaterPsiBlast","LOCALS",1)~ THEN REPLY ~Greater Psionic Blast~ DO ~SetGlobal("GelListGreaterPsiBlast","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListImpressivePsiBlast","LOCALS",1)~ THEN REPLY ~Impressive Psionic Blast~ DO ~SetGlobal("GelListImpressivePsiBlast","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListPsiDomination","LOCALS",1)~ THEN REPLY ~Psionic Domination(save -5)~ DO ~SetGlobal("GelListPsiDomination","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListPsiKnock","LOCALS",1)~ THEN REPLY ~Psionic Knock~ DO ~SetGlobal("GelListPsiKnock","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListPsiSleep","LOCALS",1)~ THEN REPLY ~Psionic Sleep(Singletarget save -10)~ DO ~SetGlobal("GelListPsiSleep","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListOldBrainActivity","LOCALS",1)~ THEN REPLY ~Old Brain Activity (Far sight)~ DO ~SetGlobal("GelListOldBrainActivity","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListPsiDisturbance","LOCALS",1)~ THEN REPLY ~Psionic Disturbance (1d6 magic damage + misscast + -1 thaco/ac/str)~ DO ~SetGlobal("GelListPsiDisturbance","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelListPsiBrainCrush","LOCALS",1)~ THEN REPLY ~Psionic Brain Crush (Powerfull singletarget -5 save)~ DO ~SetGlobal("GelListPsiBrainCrush","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelSummonUmberH","LOCALS",1)~ THEN REPLY ~Summon: UmberHulk~ DO ~SetGlobal("GelSummonUmberH","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~GlobalLT("GelSummonMindFlayer","LOCALS",1)~ THEN REPLY ~Summon: Mindflayer~ DO ~SetGlobal("GelSummonMindFlayer","LOCALS",1)~ GOTO GelPsionicInnatePicked
    IF ~~ THEN REPLY ~Im done here. Go back.~ GOTO GelPsionicMenu
END

IF ~~ THEN BEGIN GelPsionicInnatePicked
  SAY ~Psionic Ability choice stored.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelPsionicListInnate
END

IF ~~ THEN BEGIN GelPsionicADSH
  SAY ~Choose scaled ability, you may choose several categories~
    IF ~GlobalLT("GelPsiAbilityPack","LOCALS",1)~ THEN REPLY ~Innate Ability Package: Scaled by level~ DO ~SetGlobal("GelPsiAbilityPack","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelPsiAbilityPack1","LOCALS",1))~ GOTO GelPsionicADSHPicked
    IF ~GlobalLT("GelPsiHead","LOCALS",1)~ THEN REPLY ~Create Mindflayer Head: Scaled(Decent)~ DO ~SetGlobal("GelPsiHead","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelPsiHeadPack1","LOCALS",1))~ GOTO GelPsionicADSHPicked
    IF ~GlobalLT("GelDev4","LOCALS",1)~ THEN REPLY ~Create Devour attack: Scaled(Stops at +4)~ DO ~SetGlobal("GelDev4","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelPsiDev4Pack1","LOCALS",1))~ GOTO GelPsionicADSHPicked
    IF ~GlobalLT("GelDev6","LOCALS",1)~ THEN REPLY ~Create Devour attack: Scaled(Goes to +6 which is OP)~ DO ~SetGlobal("GelDev6","LOCALS",1) ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelPsiDev6Pack1","LOCALS",1))~ GOTO GelPsionicADSHPicked
    IF ~~ THEN REPLY ~Im done here. Go back.~ GOTO GelPsionicMenu
END

IF ~~ THEN BEGIN GelPsionicADSHPicked
  SAY ~Psionic package choice logged.~
    IF ~~ THEN REPLY ~Great.~ GOTO GelPsionicADSH
END

IF ~~ THEN BEGIN GelCustomPackInnate // Husk å add Half Dragon
  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)) SetGlobal("GelAllMonkPot","LOCALS",1)~ GOTO GelMonkAbilitiesPicked
    IF ~GlobalLT("GelVampMonkPot","LOCALS",1)~ THEN REPLY ~I want some Vampire Shadow Lurker abilities scaled on level(Bat Swarm, Murky Debts, Blood Link, Blood Drain and Touch of Death~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelVampireAbilities","LOCALS",1)) SetGlobal("GelVampMonkPot","LOCALS",1)~ GOTO GelVampireAbilitiesPicked
    IF ~GlobalLT("GelBansheeIPot","LOCALS",1)~ THEN REPLY ~I want a innate Banshee pack. (Soul Harvest, Improved Wail of Banshee, Banshee: Pierce Shield, Banshee: Curse, Shapechange: Undead Creatures)~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelBansheeIPot2","LOCALS",1)) SetGlobal("GelBansheeIPot","LOCALS",1)~ GOTO GelBansheeAbilitiesPicked
    IF ~~ THEN REPLY ~Im done here, go back.~ GOTO GelCustomInnateAbility
END

IF ~~ THEN BEGIN GelSingleCustomInnate // Husk å add Half Dragon
  SAY ~Choose ability.~
    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 ~GlobalLT("GelBatSPicked","LOCALS",1)~ THEN REPLY ~- Bat Swarm(Conjures a batswarm which attacks enemies.)~ DO ~SetGlobal("GelBatSPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelMurkyDPicked","LOCALS",1)~ THEN REPLY ~- Murky Debts(Crushing damage and stun.)~ DO ~SetGlobal("GelMurkyDPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelBloodLPicked","LOCALS",1)~ THEN REPLY ~- Blood Link(Draws the blood from enemies at range, slashing damage and bonuses.)~ DO ~SetGlobal("GelBloodLPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelBloodDPicked","LOCALS",1)~ THEN REPLY ~- Blood Drain(Knocks the enemy to ground and drink his blood. Piercing damage, sleep - bonus to your self.)~ DO ~SetGlobal("GelBloodDPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelUPFMWPicked","LOCALS",1)~ THEN REPLY ~- Protection From Magical Wepons.(Undispellable)~ DO ~SetGlobal("GelUPFMWPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelADHWPicked","LOCALS",1)~ THEN REPLY ~- Abi-Dalzim Horrid Whitling~ DO ~SetGlobal("GelADHWPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelTouchODPicked","LOCALS",1)~ THEN REPLY ~- Touch of Death (Death spell combined with 72 magic damage + heal with max HP bonus.)~ DO ~SetGlobal("GelTouchODPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIImplosionPicked","LOCALS",1)~ THEN REPLY ~- Implosion~ DO ~SetGlobal("GelIImplosionPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelCustomFamiliarPicked","LOCALS",1)~ THEN REPLY ~- Custom Familiar(which you can party for tasks like wand usage, potion usage, steal from stores etc. Class is Mage/Thief)~ DO ~SetGlobal("GelCustomFamiliarPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIImprovedAlacryShaPicked","LOCALS",1)~ THEN REPLY ~- Innate Improved Alacrity~ DO ~SetGlobal("GelIImprovedAlacryShaPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIPlanetarPicked","LOCALS",1)~ THEN REPLY ~- Planetar~ DO ~SetGlobal("GelIPlanetarPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIDPlanetarPicked","LOCALS",1)~ THEN REPLY ~- Dark Planetar~ DO ~SetGlobal("GelIDPlanetarPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelISkullTrapPicked","LOCALS",1)~ THEN REPLY ~- Skull Trap~ DO ~SetGlobal("GelISkullTrapPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIMisleadPicked","LOCALS",1)~ THEN REPLY ~- Mislead~ DO ~SetGlobal("GelIMisleadPicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIImprovedHastePicked","LOCALS",1)~ THEN REPLY ~- Improved Haste~ DO ~SetGlobal("GelIImprovedHastePicked","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIShapeUndeadCre","LOCALS",1)~ THEN REPLY ~- Shapechange: Undead Creatures (HLA level power)~ DO ~SetGlobal("GelIShapeUndeadCre","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelISoulHarvest","LOCALS",1)~ THEN REPLY ~- Soul Harvest (Good scaled magic damage innate)~ DO ~SetGlobal("GelISoulHarvest","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIImprovedWailoB","LOCALS",1)~ THEN REPLY ~- Improved Wail of Banshee (Starts low, scales high. Can pick early.)~ DO ~SetGlobal("GelIImprovedWailoB","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIBansheePierce","LOCALS",1)~ THEN REPLY ~- Banshee: Pierce Shield (Innate same as mage version.)~ DO ~SetGlobal("GelIBansheePierce","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelIBansheeCurse","LOCALS",1)~ THEN REPLY ~- Banshee: Curse (Lower enemy physical Resists.)~ DO ~SetGlobal("GelIBansheeCurse","LOCALS",1)~ GOTO GelCustomInnatePicked
    IF ~GlobalLT("GelTeleportCategory","LOCALS",1)~ THEN REPLY ~- I want to choose a teleport spell.~ DO ~SetGlobal("GelTeleportCategory","LOCALS",1)~ GOTO GelTeleportCategory
    IF ~~ THEN REPLY ~I'm done with theese.~ GOTO GelCustomInnateAbility
END

IF ~~ THEN BEGIN GelTeleportCategory
  SAY ~Choose teleport type.~
    IF ~GlobalLT("GelSoulTeleport","LOCALS",1)~ THEN REPLY ~Soul Teleport~ DO ~SetGlobal("GelSoulTeleport","LOCALS",1)~ GOTO GelTeleportChosen
    IF ~GlobalLT("GelTeleportParty","LOCALS",1)~ THEN REPLY ~Teleport Party~ DO ~SetGlobal("GelTeleportParty","LOCALS",1)~ GOTO GelTeleportChosen
    IF ~GlobalLT("GelTeleportWOError","LOCALS",1)~ THEN REPLY ~Teleport Without Error~ DO ~SetGlobal("GelTeleportWOError","LOCALS",1)~ GOTO GelTeleportChosen
    IF ~GlobalLT("GelTeleportShort","LOCALS",1)~ THEN REPLY ~Teleport Short Range~ DO ~SetGlobal("GelTeleportShort","LOCALS",1)~ GOTO GelTeleportChosen
    IF ~~ THEN REPLY ~I'm done with theese. Go back.~ GOTO GelSingleCustomInnate
END

IF ~~ THEN BEGIN GelTeleportChosen
  SAY ~Teleport Ability Chosen~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelTeleportCategory
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 GelVampireAbilitiesPicked
  SAY ~Vampire Package is added and will scale with levels.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelCustomPackInnate
END

IF ~~ THEN BEGIN GelBansheeAbilitiesPicked
  SAY ~Banshee Innate Pack chosen and logged.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO GelCustomPackInnate
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 ~GlobalLT("GelGreenDragonBreath","LOCALS",1)~ THEN REPLY ~Green Dragon Breath~ DO ~SetGlobal("GelGreenDragonBreath","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelDragonBreath","LOCALS",1)~ THEN REPLY ~Red Dragon Breath~ DO ~SetGlobal("GelDragonBreath","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelSunray","LOCALS",1)~ THEN REPLY ~Sunray~ DO ~SetGlobal("GelSunray","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelFireStorm","LOCALS",1)~ THEN REPLY ~Fire Storm~ DO ~SetGlobal("GelFireStorm","LOCALS",1)~ GOTO GelInnateAbilityChosen
    IF ~GlobalLT("GelDragonFireball","LOCALS",1)~ THEN REPLY ~Dragon Fireball~ DO ~SetGlobal("GelDragonFireball","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 ~GlobalLT("ASilverDragonB","LOCALS",1)~ THEN REPLY ~Silver Dragon Breath(level 1 spell)~ DO ~SetGlobal("ASilverDragonB","LOCALS",1)~ GOTO GelArcaneSpellChosen2
    IF ~GlobalLT("AFrostNova","LOCALS",1)~ THEN REPLY ~Frost Nova(level 4 spell)~ DO ~SetGlobal("AFrostNova","LOCALS",1)~ GOTO GelArcaneSpellChosen2
    IF ~GlobalLT("AThunderBoDeath","LOCALS",1)~ THEN REPLY ~Thunder Bolt of Death(level 5 spell)~ DO ~SetGlobal("AThunderBoDeath","LOCALS",1)~ GOTO GelArcaneSpellChosen2
    IF ~GlobalLT("ABlazedInferno","LOCALS",1)~ THEN REPLY ~Blazed Inferno(level 2 spell)~ DO ~SetGlobal("ABlazedInferno","LOCALS",1)~ GOTO GelArcaneSpellChosen2
   IF ~~ THEN REPLY ~Im done here.~ GOTO GelTDia_ArcanePackage
END

IF ~~ THEN BEGIN Gel_AddArcanePackage
  SAY ~Choose Arcane Package~
   IF ~GlobalLT("GelBansheeAPack","LOCALS",1)~ THEN REPLY ~Banshee Arcane Spell Package. (Level1: Silver Dragon Breath, Level2: Blazed Inferno, Level4: Frost Nova, level5: Thunderbolt of Death)~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelBansheeArcanePack2","LOCALS",1)) SetGlobal("GelBansheeAPack","LOCALS",1)~ GOTO GelArcanePackageChosen2
   IF ~~ THEN REPLY ~Im done here.~ GOTO GelTDia_ArcanePackage
END

IF ~~ THEN BEGIN GelArcaneSpellChosen2
  SAY ~Arcane Spell Added.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO Gel_AddArcaneSpell
END

IF ~~ THEN BEGIN GelArcanePackageChosen2
  SAY ~Arcane Spell Package Added.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO Gel_AddArcanePackage
END

IF ~~ THEN BEGIN GelTDia_DevinePackage
  SAY ~Add of singular Devine spell or Package?~
    IF ~GlobalLT("GelDevineSingular","LOCALS",1)~ THEN REPLY ~Pick Singular Devine Spell~ DO ~SetGlobal("GelDevineSingular","LOCALS",1)~ GOTO Gel_AddDevineSpell
    IF ~GlobalLT("GelDevinePackage","LOCALS",1)~ THEN REPLY ~Pick Devine Spell Package~ DO ~SetGlobal("GelDevinePackage","LOCALS",1)~ GOTO Gel_AddDevinePackage
    IF ~~ THEN REPLY ~Im done. Go back.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN Gel_AddDevineSpell
  SAY ~Choose Devine Spell~
   IF ~GlobalLT("GelSPoisRoot","LOCALS",1)~ THEN REPLY ~Poisonous Root Spike(Pierce and poison and short stun)~ DO ~SetGlobal("GelSPoisRoot","LOCALS",1)~ GOTO GelDevineSpellChosen2
   IF ~GlobalLT("GelSHoldPersonDUHM","LOCALS",1)~ THEN REPLY ~Hold Person & Draw Upon Heavenly Might~ DO ~SetGlobal("GelSHoldPersonDUHM","LOCALS",1)~ GOTO GelDevineSpellChosen2
   IF ~GlobalLT("GelSTornado","LOCALS",1)~ THEN REPLY ~Tornado: Deals Crushing and lightning damage. AOE party friendly.~ DO ~SetGlobal("GelSTornado","LOCALS",1)~ GOTO GelDevineSpellChosen2
   IF ~GlobalLT("GelSInsectPlague","LOCALS",1)~ THEN REPLY ~Scaled Insect Plague, 1-2-4 damage~ DO ~SetGlobal("GelSInsectPlague","LOCALS",1)~ GOTO GelDevineSpellChosen2
   IF ~GlobalLT("GelSCreepingDoom","LOCALS",1)~ THEN REPLY ~Scaled Creeping Doom, 2-4-6 damage~ DO ~SetGlobal("GelSCreepingDoom","LOCALS",1)~ GOTO GelDevineSpellChosen2
   IF ~~ THEN REPLY ~I dont want any of this.~ GOTO GelTDia_DevinePackage
END

IF ~~ THEN BEGIN Gel_AddDevinePackage
  SAY ~Choose Devine Package~
  IF ~!Class(LastTalkedToBy(Myself),SHAMAN) GlobalLT("GelShamanPackPicked","LOCALS",1)~ THEN REPLY ~Shaman Spell package(Poisonous Root Spike, Hold Person, DUHM, Tornado, Custom Insect Plague and Creeping Doom)~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelShaSpells","LOCALS",1)) SetGlobal("GelShamanPackPicked","LOCALS",1)~ GOTO GelShamanPackageAdded 
   IF ~~ THEN REPLY ~I dont want any of this.~ GOTO GelTDia_DevinePackage
END

IF ~~ THEN BEGIN GelDevineSpellChosen2
  SAY ~Devine Spell added.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO Gel_AddDevineSpell
END

IF ~~ THEN BEGIN GelShamanPackageAdded
  SAY ~Shaman custom package added.~
    IF ~~ THEN REPLY ~Thanks.~ GOTO Gel_AddDevinePackage
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("GelProfDartPot","LOCALS",1)~ THEN REPLY ~I want to set a certain ammount to Darts~ DO ~SetGlobal("GelProfDartPot","LOCALS",1)~ GOTO GelProfPotDart
    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 GelProfPotDart
  SAY ~Choose what to SET Dart profience into. Mind this is not a increase function, its a SET function~
    IF ~~ THEN REPLY ~1 to Dart profiency~ DO ~SetGlobal("GelDartProfPos1","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~2 to Dart profiency~ DO ~SetGlobal("GelDartProfPos2","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~3 to Dart profiency~ DO ~SetGlobal("GelDartProfPos3","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~4 to Dart profiency~ DO ~SetGlobal("GelDartProfPos4","LOCALS",1)~ GOTO GelTDia_Profiency1
    IF ~~ THEN REPLY ~5 to Dart profiency~ DO ~SetGlobal("GelDartProfPos5","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 GelAnimationList
  SAY ~What animation do you want?~
    IF ~~ THEN REPLY ~Vampire.~ GOTO GelVampireAnimation
    IF ~~ THEN REPLY ~Minflayer/Illithid.~ GOTO GelMindflayerAnimation
    IF ~~ THEN REPLY ~Half-Dragon.~ DO ~~ GOTO GelHalfDragonAnimation
    IF ~~ THEN REPLY ~Banshee (Warning, slow movement)~ GOTO GelBansheeAnimation
    IF ~~ THEN REPLY ~I don't want theese animation changes.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelVampireAnimation
  SAY ~Do you want to change your race to Vampire as well? Remember this may alter your chance to dual class.~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelVa81","GLOBAL",2) SetGlobal("GelVa83","LOCALS",1)~ GOTO GelVampireAnimation2
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelVa80","GLOBAL",2) SetGlobal("GelVa83","LOCALS",1)~ GOTO GelVampireAnimation2
END

IF ~~ THEN BEGIN GelVampireAnimation2
  SAY ~Vampires usually burns in the sun, do you want that to happen? You are given a Ring of Daywalking which protects you, and you will be immune to sunlight at level 25.~
    IF ~~ THEN REPLY ~Yes.~ DO ~ActionOverride(LastTalkedToBy(Myself),SetGlobal("GelVampireBurnChosen","LOCALS",1))~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~No.~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelMindflayerAnimation
  SAY ~Do you want to change your race to Mindflayer as well? Remember this may alter your chance to dual class.~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelShapeIllithid","LOCALS",1) ChangeRace(LastTalkedToBy(Myself),MIND_FLAYER)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelShapeIllithid","LOCALS",1)~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelHalfDragonAnimation
  SAY ~Do you want to change your race to Half-Dragon as well? Remember this may alter your chance to dual class.~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelHDShape","LOCALS",1) ChangeRace(LastTalkedToBy(Myself),HALF_DRAGON)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelHDShape","LOCALS",1)~ GOTO GelPotionOfChoices
END

IF ~~ THEN BEGIN GelBansheeAnimation
  SAY ~Do you want to change your race to WRAITH as well? Remember this may alter your chance to dual class.~
    IF ~~ THEN REPLY ~Yes.~ DO ~SetGlobal("GelBansheeShape","LOCALS",1) ChangeRace(LastTalkedToBy(Myself),WRAITH)~ GOTO GelPotionOfChoices
    IF ~~ THEN REPLY ~No.~ DO ~SetGlobal("GelBansheeShape","LOCALS",1)~ 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