I modified the RR3303 script to use 
CreateVisualEffectObject and it's pretty cool. I experimented with SFx 
Explode, FlameS, HolyLi, LightPi, MyFiBl -- these come installed with RoT so used them [\RoTerror\SFX] -- and settled on 
MyFiBl. But you can choose almost any animated VVC that you like.
This is from RR3303.BAF, to be used if you are installing the mod.
To fix in an existing game, use the lines below to overwrite whatever the original lines were in RR3303.BCS
IF
	   Global("LevGra","GLOBAL",1)
   THEN
	   RESPONSE #100
		   HideGUI()
		   StartCutSceneMode()
		   SmallWait(1)
		   FadeToColor([20.0],0)
		   Wait(1)
		   MoveViewPoint([2303.688],INSTANT)
		   ActionOverride(Player1,LeaveAreaLUA("RR3303","",[2303.688],8))
		   ActionOverride(Player2,LeaveAreaLUA("RR3303","",[2273.679],8))
		   ActionOverride(Player3,LeaveAreaLUA("RR3303","",[2363.694],8))
		   ActionOverride(Player4,LeaveAreaLUA("RR3303","",[2345.676],8))
		   ActionOverride(Player5,LeaveAreaLUA("RR3303","",[2385.703],8))
		   ActionOverride(Player6,LeaveAreaLUA("RR3303","",[2294.714],8))
		   ActionOverride("GraghaQ",LeaveAreaLUA("RR3303","",[2340.633],1))
		   CreateCreature("GraghaF4",[2490.699],2) // Female Gragha
		   CreateCreature("GraghaF5",[2145.614],14) // Female Gragha
		   CreateCreature("GraghaF6",[2273.747],8) // Female Gragha
		   Wait(1)
		   FadeFromColor([20.0],0)
		   Wait(3)
		   MultiPlayerSync()
 // beginning of lines to use
		 CreateVisualEffectObject("MyFiBl",Player1)
		   Wait(1)
		   CreateVisualEffectObject("MyFiBl",Player2)
		   Wait(1)
		   CreateVisualEffectObject("MyFiBl",Player3)
		   Wait(1)
		   CreateVisualEffectObject("MyFiBl",Player4)
		   Wait(1)
		   CreateVisualEffectObject("MyFiBl",Player5)
		   Wait(1)
		   CreateVisualEffectObject("MyFiBl",Player6)
		   Wait(1)
 // end of lines to use
			 ActionOverride("GraghaQ",ForceSpell(Player1,WIZARD_TELEPORT_FIELD))
		   ActionOverride("GraghaF4",ForceSpell(Player2,WIZARD_TELEPORT_FIELD))
		   ActionOverride("GraghaF5",ForceSpell(Player3,WIZARD_TELEPORT_FIELD))
		   ActionOverride("GraghaF6",ForceSpell(Player4,WIZARD_TELEPORT_FIELD))
		   Wait(4)
		   MultiPlayerSync()
		   FadeToColor([20.0],0)
		   Wait(1)
		   ActionOverride(Player1,LeaveAreaLUA("RR3300","",[2860.2470],2))
		   ActionOverride(Player2,LeaveAreaLUA("RR3300","",[2861.2471],2))
		   ActionOverride(Player3,LeaveAreaLUA("RR3300","",[2862.2472],2))
		   ActionOverride(Player4,LeaveAreaLUA("RR3300","",[2863.2473],2))
		   ActionOverride(Player5,LeaveAreaLUA("RR3300","",[2864.2474],2))
		   ActionOverride(Player6,LeaveAreaLUA("RR3300","",[2865.2475],2))
		   UnhideGUI()
		   EndCutSceneMode()
		   FadeFromColor([20.0],0)
		   SetGlobal("LevGra","GLOBAL",2)
   ENDIt's nice to have the party 
not die.