"some shit about messageboxes in papyrus"
By Mellen (https://pastebin.com/u/Mellen)

URL: https://pastebin.com/7bBLvCZ2
Created on: Monday 30th of July 2012 12:03:09 AM CDT
Retrieved on: Saturday 31 of October 2020 06:28:53 PM UTC




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