Advertisement
GrandBulwark

Untitled

Feb 22nd, 2015
192
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.25 KB | None | 0 0
  1. Scriptname Bulwark_ThaneChest_Summon extends ActiveMagicEffect
  2.  
  3. ;VisualEffect Property Bulwark_Chest_Effect Auto
  4. EffectShader Property Bulwark_Chest_FXS Auto
  5. Explosion Property Bulwark_Conjure_Art Auto
  6. ObjectReference myGlow
  7. ObjectReference Property BulwarkStashQasmoke Auto
  8. Actor Property BulwarkPlayer Auto
  9. Spell Property Bulwark_Stash_Spell Auto
  10.  
  11. Event OnEffectStart(Actor akTarget, Actor akCaster)
  12. akTarget = BulwarkPlayer
  13. akCaster = BulwarkPlayer
  14. BulwarkSpell()
  15. EndEvent
  16. Event OnEffectFinish(Actor akTarget, Actor akCaster)
  17. akTarget = BulwarkPlayer
  18. akCaster = BulwarkPlayer
  19. BulwarkSpellCleanup()
  20. EndEvent
  21. Function BulwarkSpell()
  22. BulwarkPlayer.UnequipSpell(Bulwark_Stash_Spell, 1)
  23. BulwarkPlayer.RemoveSpell(Bulwark_Stash_Spell)
  24. BulwarkStashQasmoke.Moveto(BulwarkPlayer, 0, 0, 0)
  25. BulwarkStashQasmoke.SetAngle(0, 0, 0)
  26. BulwarkStashQasmoke.Enable()
  27. While (!BulwarkStashQasmoke.Is3DLoaded())
  28. Utility.Wait(0.1)
  29. If (BulwarkStashQasmoke.Is3DLoaded())
  30. Bulwark_Chest_FXS.Play(BulwarkStashQasmoke, 8.0)
  31. BulwarkStashQasmoke.PlaceAtMe(Bulwark_Conjure_Art, 1, False, False)
  32. Endif
  33. EndWhile
  34. EndFunction
  35. Function BulwarkSpellCleanup()
  36. BulwarkPlayer.AddSpell(Bulwark_Stash_Spell, false)
  37. BulwarkStashQasmoke.Disable()
  38. EndFunction
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement