Title:           some shit about messageboxes in papyrus
Author:          Mellen
Pastebin link:   http://pastebin.com/7bBLvCZ2
First Edit:      Monday 30th of July 2012 12:03:09 AM CDT
Last Edit:       Monday 30th of July 2012 12:03:09 AM CDT

 
 
Scriptname DragonShrine extends ObjectReference  
 
Int Property RaiseBy  Auto
Message Property pChoosePath  Auto  
Message Property pChoosePath1  Auto  
Message Property pChoosePath2  Auto  
Message Property pChoosePath3  Auto  
 
int playerDragons = Game.GetPlayer().GetActorValue("dragonsouls") as int
 
        if playerDragons >= 1
                UltimateDragonPower()
        Else
                Debug.MessageBox("Thy mortal soul is not enough.")
        EndIf
 endEvent
 
 Function UltimateDragonPower()
        int path1 = pChoosePath.Show()
        if (path1 == 0)
                ;nothing happens
        ElseIf (path1 == 1)
                PathOfWarrior()
        ElseIf (path1 == 2)
                PathOfThief()
        ElseIf (path1 == 3)
                PathOfMage()
        Else
                Debug.MessageBox("This shouldn't happen")
        EndIf
 EndFunction
 
 Function PathOfWarrior()
        int patha = pChoosePath1.Show()
        if (patha == 0)
                ;nada
        ElseIf (patha == 1)
                Game.IncrementSkillBy("OneHanded", RaiseBy)
        ElseIf (patha == 2)
                Game.IncrementSkillBy("TwoHanded", RaiseBy)
        ElseIf (patha == 3)
                Game.IncrementSkillBy("HeavyArmor", RaiseBy)
        ElseIf (patha == 4)
                Game.IncrementSkillBy("Block", RaiseBy)
        ElseIf (patha == 5)
                Game.IncrementSkillBy("Marksman", RaiseBy)
        ElseIf (patha == 6)
                Game.IncrementSkillBy("Smithing", RaiseBy)
        Else
                Debug.MessageBox("This shouldn't happen")
        EndIf
 EndFunction
 
 Function PathOfThief()
        int pathb = pChoosePath1.Show()
        if (pathb == 0)
                ;nada
        ElseIf (pathb == 1)
                Game.IncrementSkillBy("LightArmor", RaiseBy)
        ElseIf (pathb == 2)
                Game.IncrementSkillBy("Lockpicking", RaiseBy)
        ElseIf (pathb == 3)
                Game.IncrementSkillBy("Sneak", RaiseBy)
        ElseIf (pathb == 4)
                Game.IncrementSkillBy("Pickpocket", RaiseBy)
        ElseIf (pathb == 5)
                Game.IncrementSkillBy("Speech", RaiseBy)
        ElseIf (pathb == 6)
                Game.IncrementSkillBy("Alchemy", RaiseBy)
        Else
                Debug.MessageBox("This shouldn't happen")
        EndIf
 EndFunction
 
 Function PathOfMage()
        int pathc = pChoosePath1.Show()
        if (pathc == 0)
                ;nada
        ElseIf (pathc == 1)
                Game.IncrementSkillBy("Destruction", RaiseBy)
        ElseIf (pathc == 2)
                Game.IncrementSkillBy("Alteration", RaiseBy)
        ElseIf (pathc == 3)
                Game.IncrementSkillBy("Restoration", RaiseBy)
        ElseIf (pathc == 4)
                Game.IncrementSkillBy("Conjuration", RaiseBy)
        ElseIf (pathc == 5)
                Game.IncrementSkillBy("Illusion", RaiseBy)
        ElseIf (pathc == 6)
                Game.IncrementSkillBy("Enchanting", RaiseBy)
        Else
                Debug.MessageBox("This shouldn't happen")
        EndIf
 EndFunction