Fix Confuse Ray Battle Animation

P3D/Battle/BattleSystemV2/QueryObjects/AnimationQueryObject.vb

@@ -104,10 +104,10 @@ Namespace BattleSystem
 		Public Function SpawnEntity(ByVal Position As Vector3, ByVal Texture As Texture2D, ByVal Scale As Vector3, ByVal Opacity As Single, Optional ByVal startDelay As Single = 0.0F, Optional ByVal endDelay As Single = 0.0F, Optional ModelPath As String = "") As Entity
 			Dim NewPosition As Vector3
 			If Not Position = Nothing Then
-				If BattleFlipped = True Then
-					Position.X *= -1
-				End If
 				If CurrentEntity IsNot Nothing Then
+					If BattleFlipped = True Then
+						Position.X *= -1
+					End If
 					NewPosition = CurrentEntity.Position + Position
 				Else
 					NewPosition = Position

P3D/Pokemon/Attacks/Ghost/ConfuseRay.vb

@@ -85,7 +85,12 @@
         Public Overrides Sub InternalOpponentPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC)
             Dim MoveAnimation = New AnimationQueryObject(Nothing, BattleFlip)
             Dim SpawnPosition As Vector3 = CurrentEntity.Position
-            SpawnPosition.X = CurrentEntity.Position.X - 1.5F
+            If BattleFlip = False Then
+                SpawnPosition.X = CurrentEntity.Position.X - 1.5F
+            Else
+                SpawnPosition.X = CurrentEntity.Position.X + 1.5F
+            End If
+
             If CurrentEntity.Model IsNot Nothing Then
                 SpawnPosition.Y = CurrentEntity.Position.Y - 0.5F
             End If