Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

some shit about messageboxes in papyrus

By: Mellen on Jul 30th, 2012  |  syntax: None  |  size: 2.42 KB  |  hits: 46  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1.  
  2.  
  3. Scriptname DragonShrine extends ObjectReference  
  4.  
  5. Int Property RaiseBy  Auto
  6. Message Property pChoosePath  Auto  
  7. Message Property pChoosePath1  Auto  
  8. Message Property pChoosePath2  Auto  
  9. Message Property pChoosePath3  Auto  
  10.  
  11. int playerDragons = Game.GetPlayer().GetActorValue("dragonsouls") as int
  12.  
  13.         if playerDragons >= 1
  14.                 UltimateDragonPower()
  15.         Else
  16.                 Debug.MessageBox("Thy mortal soul is not enough.")
  17.         EndIf
  18.  endEvent
  19.  
  20.  Function UltimateDragonPower()
  21.         int path1 = pChoosePath.Show()
  22.         if (path1 == 0)
  23.                 ;nothing happens
  24.         ElseIf (path1 == 1)
  25.                 PathOfWarrior()
  26.         ElseIf (path1 == 2)
  27.                 PathOfThief()
  28.         ElseIf (path1 == 3)
  29.                 PathOfMage()
  30.         Else
  31.                 Debug.MessageBox("This shouldn't happen")
  32.         EndIf
  33.  EndFunction
  34.  
  35.  Function PathOfWarrior()
  36.         int patha = pChoosePath1.Show()
  37.         if (patha == 0)
  38.                 ;nada
  39.         ElseIf (patha == 1)
  40.                 Game.IncrementSkillBy("OneHanded", RaiseBy)
  41.         ElseIf (patha == 2)
  42.                 Game.IncrementSkillBy("TwoHanded", RaiseBy)
  43.         ElseIf (patha == 3)
  44.                 Game.IncrementSkillBy("HeavyArmor", RaiseBy)
  45.         ElseIf (patha == 4)
  46.                 Game.IncrementSkillBy("Block", RaiseBy)
  47.         ElseIf (patha == 5)
  48.                 Game.IncrementSkillBy("Marksman", RaiseBy)
  49.         ElseIf (patha == 6)
  50.                 Game.IncrementSkillBy("Smithing", RaiseBy)
  51.         Else
  52.                 Debug.MessageBox("This shouldn't happen")
  53.         EndIf
  54.  EndFunction
  55.  
  56.  Function PathOfThief()
  57.         int pathb = pChoosePath1.Show()
  58.         if (pathb == 0)
  59.                 ;nada
  60.         ElseIf (pathb == 1)
  61.                 Game.IncrementSkillBy("LightArmor", RaiseBy)
  62.         ElseIf (pathb == 2)
  63.                 Game.IncrementSkillBy("Lockpicking", RaiseBy)
  64.         ElseIf (pathb == 3)
  65.                 Game.IncrementSkillBy("Sneak", RaiseBy)
  66.         ElseIf (pathb == 4)
  67.                 Game.IncrementSkillBy("Pickpocket", RaiseBy)
  68.         ElseIf (pathb == 5)
  69.                 Game.IncrementSkillBy("Speech", RaiseBy)
  70.         ElseIf (pathb == 6)
  71.                 Game.IncrementSkillBy("Alchemy", RaiseBy)
  72.         Else
  73.                 Debug.MessageBox("This shouldn't happen")
  74.         EndIf
  75.  EndFunction
  76.  
  77.  Function PathOfMage()
  78.         int pathc = pChoosePath1.Show()
  79.         if (pathc == 0)
  80.                 ;nada
  81.         ElseIf (pathc == 1)
  82.                 Game.IncrementSkillBy("Destruction", RaiseBy)
  83.         ElseIf (pathc == 2)
  84.                 Game.IncrementSkillBy("Alteration", RaiseBy)
  85.         ElseIf (pathc == 3)
  86.                 Game.IncrementSkillBy("Restoration", RaiseBy)
  87.         ElseIf (pathc == 4)
  88.                 Game.IncrementSkillBy("Conjuration", RaiseBy)
  89.         ElseIf (pathc == 5)
  90.                 Game.IncrementSkillBy("Illusion", RaiseBy)
  91.         ElseIf (pathc == 6)
  92.                 Game.IncrementSkillBy("Enchanting", RaiseBy)
  93.         Else
  94.                 Debug.MessageBox("This shouldn't happen")
  95.         EndIf
  96.  EndFunction
create a new version of this paste RAW Paste Data