
ScriptName TalentTokenScriptBegin OnEquip SetStage RedTalentsQuest 10End
ScriptName TalentTokenScriptBegin OnEquip SetStage RedTalentsQuest 10End
ScriptName TalentTokenScriptShort DoOncefloat fQuestDelayTimeBegin OnEquip SetStage TalentTokenAddQuest 10 Set Doonce to 0 Set fQuestDelayTime to .0001EndShort ChoiceShort Choice2Short TalentTree1Short TalentTree2Short TalentTree3Short Tree11Short Tree12Short Tree13Short Tree14Short Tree15Short Tree21Short Tree22Short Tree23Short Tree24Short Tree25Short Tree31Short Tree32Short Tree33Short Tree34Short Tree35Begin MenumodeIf GetStage RedTalentsQuest == 10 && Doonce == 0 Messagebox "Which Tree do you wish to use your talent points in?" "Retribution" "Protection" "Holy" "None" Set DoOnce to 1 Set Choice to GetButtonPressed If Choice == 0 MessageBox "Which talent do you wish to learn?" "Improved Retribution Aura" "Seal of command" "Two-Handed Blunt Training" "Sanctified Retribution" "Two-Handed Blade Training" "None" Set Choice2 to GetButtonPressed If Choice2 == 0 If Tree11 == 0 AddFullEffectItem SHLD 5 0 0 0 RetributionAura Player.RemoveItem TalentToken 1 Set Tree11 to Tree11 +1 Set TalentTree1 to ( TalentTree1 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 1 If Tree12 == 0 Player.AddSpell PaladinSealCommand Player.RemoveItem TalentToken 1 Set Tree12 to Tree12 + 1 Set TalentTree1 to ( TalentTree1 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 2 If Tree13 == 0 Player.AddSpell Blunt2hExpertise Player.RemoveItem TalentToken 1 Set Tree13 to Tree13 + 1 Set TalentTree1 to ( TalentTree1 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree13 == 1 Player.AddSpell Blunt2hMastery Player.RemoveItem TalentToken 1 Set Tree13 to Tree13 + 1 Set TalentTree1 to ( TalentTree1 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already mastered two-handed blunt weapons" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 3 If Tree15 == 0 AddFullEffectItem REDG 5 0 0 0 RetributionAura Player.RemoveItem TalentToken 1 Set Tree15 to Tree15 + 1 Set TalentTree1 to ( TalentTree1 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 4 If Tree15 == 0 Player.AddSpell Blade2hTraining Player.RemoveItem TalentToken 1 Set Tree15 to Tree15 + 1 Set TalentTree1 to ( TalentTree1 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree15 == 1 Player.AddSpell Blade2hExpertise Player.RemoveItem TalentToken 1 Set Tree15 to Tree15 + 1 Set TalentTree1 to ( TalentTree1 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree15 == 2 Player.AddSpell Blade2hMastery Player.RemoveItem TalentToken 1 Set Tree15 to Tree15 + 1 Set TalentTree1 to ( TalentTree1 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already mastered two-handed bladed weapons" Endif Elseif Choice2 == 5 SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice == 1 MessageBox "Which talent do you wish to learn?" "Improved Devotion Aura" "Plate Armor Specialization" "One-Handed Blunt Weapon Training" "Shield Training" "1-Handed Bladed Weapon Training" "None" Set Choice2 to GetButtonPressed If Choice2 == 0 If Tree21 == 0 AddFullEffectItem SHLD 5 0 0 0 DevotionAura Player.RemoveItem TalentToken 1 Set Tree21 to Tree21 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree21 == 1 AddFullEffectItem SHLD 5 0 0 0 DevotionAura Player.RemoveItem TalentToken 1 Set Tree21 to Tree21 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree21 == 2 AddFullEffectItem SHLD 5 0 0 0 DevotionAura Player.RemoveItem TalentToken 1 Set Tree21 to Tree21 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 1 If Tree22 == 0 Player.AddSpell PlateArmorTraining Player.RemoveItem TalentToken 1 Set Tree22 to tree22 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree22 == 1 Player.AddSpell PlateArmorSpecialization Player.RemoveItem TalentToken 1 Set Tree22 to Tree22 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree22 == 2 Player.AddSpell PlateArmorExpertise Player.RemoveItem TalentToken 1 Set Tree22 to Tree22 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 2 If Tree23 == 0 Player.AddSpell Blunt1hExpertise Player.RemoveItem TalentToken 1 Set Tree23 to Tree23 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree23 == 1 Player.AddSpell Blunt1hMastery Player.RemoveItem TalentToken 1 Set Tree23 to Tree23 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already mastered one-handed blunt weapons" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 3 If Tree24 == 0 Player.AddSpell ShieldTraining Player.RemoveItem TalentToken 1 Set Tree24 to Tree24 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree24 == 1 Player.AddSpell ShieldSpecialization Player.RemoveItem TalentToken 1 Set Tree24 to Tree24 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree24 == 2 Player.AddSpell ShieldExpertise Player.RemoveItem TalentToken 1 Set Tree24 to Tree24 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already mastererd shielding" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 4 If Tree25 == 0 Player.AddSpell Blade1hTraining Player.RemoveItem TalentToken 1 Set Tree25 to Tree25 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree25 == 1 Player.AddSpell Blade1hExpertise Player.RemoveItem TalentToken 1 Set Tree25 to Tree25 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree25 == 2 Player.AddSpell Blade1hMastery Player.RemoveItem TalentToken 1 Set Tree25 to Tree25 + 1 Set TalentTree2 to ( TalentTree2 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already mastered one-handed bladed weapons" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 5 SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice == 2 MessageBox "Which talent do you wish to learn?" "Improved Blessing of Light" "Improved Blessing of Wisdom" "Improved Blessing of Might" "Improved Blessing of Protection" "Flash of Light" "None" Set Choice2 to GetButtonPressed If Choice2 == 0 If Tree31 == 0 AddFullEffectItem SHLD 5 0 0 0 BlessingLight Player.RemoveItem TalentToken 1 Set Tree31 to Tree31 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 If Tree31 == 1 AddFullEffectItem SHLD 5 0 0 0 BlessingLight Player.RemoveItem TalentToken 1 Set Tree31 to Tree31 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree31 == 2 AddFullEffectItem SHLD 5 0 0 0 BlessingLight Player.RemoveItem TalentToken 1 Set Tree31 to Tree31 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 1 If Tree32 == 0 AddFullEffectItem RESP 1 0 60 0 PaladinSkill11W Player.RemoveItem TalentToken 1 Set Tree32 to Tree32 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree32 == 1 AddFullEffectItem SHLD 1 0 60 0 PaladinSkill11W Player.RemoveItem TalentToken 1 Set Tree32 to Tree32 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree32 == 2 AddFullEffectItem RESP 1 0 60 0 PaladinSkill11W Player.RemoveItem TalentToken 1 Set Tree32 to Tree32 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Elseif Choice2 == 2 If Tree33 == 0 ModNthEffectItemDuration 15 PaladinSkill11M 0 Player.RemoveItem TalentToken 1 Set Tree33 to Tree33 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree33 == 1 ModNthEffectItemDuration 15 PaladinSkill11M 0 Player.RemoveItem TalentToken 1 Set Tree33 to Tree33 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree33 == 2 ModNthEffectItemDuration 15 PaladinSkill11M 0 Player.RemoveItem TalentToken 1 Set Tree33 to Tree33 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" Endif Elseif Choice2 == 3 If Tree34 == 0 ModNthEffectItemDuration 15 PaladinSkill11P 0 Player.RemoveItem TalentToken 1 Set Tree34 to Tree34 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 ElseIf Tree34 == 1 ModNthEffectItemDuration 15 PaladinSkill11P 0 Player.RemoveItem TalentToken 1 Set Tree34 to Tree34 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 ElseIf Tree34 == 2 ModNthEffectItemDuration 15 PaladinSkill11P 0 Player.RemoveItem TalentToken 1 Set Tree34 to Tree34 + 1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this talent" Endif Elseif Choice2 == 4 If Tree35 == 0 Player.AddSpell PaladinTalentFlash Player.RemoveItem TalentToken 1 Set Tree35 to Tree35 +1 Set TalentTree3 to ( TalentTree3 + 1 ) SetStage RedTalentsQuest 1 Set Doonce to 0 Else Message "You already have this Talent" Endif Elseif Choice2 == 5 SetStage RedTalentsQuest 1 Set Doonce to 0 Endif Else SetStage RedTalentsQuest 1 Set Doonce to 0 Endif EndifEndif End