Advertisement
Guest User

Untitled

a guest
Apr 19th, 2019
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.03 KB | None | 0 0
  1. Scriptname VRC_PlayerReference extends ReferenceAlias
  2.  
  3. Import Debug
  4. Import Game
  5. Import Utility
  6.  
  7. VRC mainQuest
  8.  
  9. Spell cloakSpell
  10. MagicEffect cloakEffect
  11.  
  12. Actor player
  13. Actor lastAttacker
  14.  
  15.  
  16.  
  17. Event OnInit()
  18. Init()
  19. mainQuest.Init()
  20. EndEvent
  21.  
  22. Event OnPlayerLoadGame()
  23. Init()
  24. mainQuest.Init()
  25. EndEvent
  26.  
  27. Event OnHit(ObjectReference akAggressor, Form akSource, Projectile akProjectile, bool abPowerAttack, bool abSneakAttack, bool abBashAttack, bool abHitBlocked)
  28. Actor aggressor = akAggressor as Actor
  29. lastAttacker = aggressor
  30.  
  31. If(akSource != aggressor.GetEquippedWeapon(False) && akSource != aggressor.GetEquippedWeapon(True) && akSource != aggressor.GetEquippedShield())
  32. Return
  33. EndIf
  34.  
  35. Float stamina = player.GetActorValue("Stamina")
  36.  
  37. If(!akProjectile)
  38. If(abPowerAttack)
  39. If(abHitBlocked)
  40. Game.ShakeController(0.0, 1.0, 1.0)
  41. mainQuest.ShakeCamera(10.0, 10)
  42. Else
  43. Game.FadeOutGame(False, True, 0, 1.5)
  44. mainQuest.ShakeCamera(15.0, 15)
  45. EndIf
  46. ElseIf(abBashAttack)
  47. If(abHitBlocked)
  48. Game.ShakeController(1.0, 0.0, 0.75)
  49. mainQuest.ShakeCamera(7.5, 10)
  50. Else
  51. Game.FadeOutGame(False, True, 0, 0.75)
  52. mainQuest.ShakeCamera(10.0, 10)
  53. EndIf
  54. Else
  55. If(abHitBlocked)
  56. Game.ShakeController(0.0, 1.0, 0.5)
  57. mainQuest.ShakeCamera(7.5, 5)
  58. Else
  59. Game.FadeOutGame(False, True, 0, 0.25)
  60. mainQuest.ShakeCamera(7.5, 5)
  61. EndIf
  62. EndIf
  63. Else
  64. If(abHitBlocked)
  65. Game.ShakeController(0.0, 1.0, 0.25)
  66. mainQuest.ShakeCamera(5.0, 5)
  67. Else
  68. Game.FadeOutGame(False, True, 0, 0.2)
  69. mainQuest.ShakeCamera(10.0, 5)
  70. EndIf
  71. EndIf
  72. EndEvent
  73.  
  74. Function Init()
  75. player = Game.GetPlayer()
  76.  
  77. mainQuest = Game.GetFormFromFile(0xD61, "VRCombatEnhanced.esp") As VRC
  78. cloakSpell = Game.GetFormFromFile(0x1826, "VRCombatEnhanced.esp") As Spell
  79. cloakEffect = Game.GetFormFromFile(0xD62, "VRCombatEnhanced.esp") As MagicEffect
  80.  
  81. player.RemoveSpell(cloakSpell)
  82. player.DispelSpell(cloakSpell)
  83. Wait(0.5)
  84. player.AddSpell(cloakSpell, False)
  85. EndFunction
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement