some shit about messageboxes in papyrus

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