Fixed BattleAnimation bug, updated moves

P3D/Battle/BattleAnimations/BAEntityOscillateMove.vb

@@ -3,6 +3,7 @@
 	Inherits BattleAnimation3D
 
 	Public StartPosition As Vector3
+	Public ReturnToStart As Vector3
 	Public TargetEntity As Entity
 	Public HalfDistance As New Vector3(0.0F)
 	Public DestinationDistance As New Vector3(0.0F)
@@ -21,7 +22,7 @@
 		Smooth
 	End Enum
 
-	Public Sub New(ByRef Entity As Entity, ByVal RemoveEntityAfter As Boolean, ByVal Distance As Vector3, ByVal Speed As Single, ByVal BothWays As Boolean, ByVal Duration As TimeSpan, ByVal startDelay As Single, ByVal endDelay As Single, Optional MovementCurve As Integer = 0)
+	Public Sub New(ByRef Entity As Entity, ByVal RemoveEntityAfter As Boolean, ByVal Distance As Vector3, ByVal Speed As Single, ByVal BothWays As Boolean, ByVal Duration As TimeSpan, ByVal startDelay As Single, ByVal endDelay As Single, Optional MovementCurve As Integer = 0, Optional ReturnToStart As Vector3 = Nothing)
 		MyBase.New(New Vector3(0.0F), TextureManager.DefaultTexture, New Vector3(1.0F), startDelay, endDelay)
 		Me.RemoveEntityAfter = RemoveEntityAfter
 		Me.HalfDistance = Distance
@@ -39,6 +40,9 @@
 			Case Curves.Smooth
 				InterpolationSpeed = New Vector3(0.0F)
 		End Select
+		If ReturnToStart <> Nothing Then
+			Me.ReturnToStart = ReturnToStart
+		End If
 		Me.AnimationType = AnimationTypes.Move
 	End Sub
 
@@ -122,10 +126,20 @@
 				If CurrentDistance.X >= DestinationDistance.X Then
 					CurrentDistance.X = DestinationDistance.X
 				End If
-			Else
+			ElseIf DestinationDistance.x < 0.0F Then
 				If CurrentDistance.X <= DestinationDistance.X Then
 					CurrentDistance.X = DestinationDistance.X
 				End If
+			Else
+				If CurrentDistance.X > DestinationDistance.X Then
+					If CurrentDistance.X - InterpolationSpeed.X <= DestinationDistance.X Then
+						CurrentDistance.X = DestinationDistance.X
+					End If
+				Else
+					If CurrentDistance.X + InterpolationSpeed.X >= DestinationDistance.X Then
+						CurrentDistance.X = DestinationDistance.X
+					End If
+				End If
 			End If
 		Else
 			If Date.Now < ReadyTime Then
@@ -144,7 +158,17 @@
 				End If
 				InterpolationDirection = True
 			Else
+				If ReturnToStart.X = 0.0F Then
 					ReadyAxis.X = 1.0F
+				Else
+					If DestinationDistance.X <> 0.0F Then
+						DestinationDistance.X = 0.0F
+						InterpolationDirection = True
+					End If
+					If CurrentDistance.X = 0.0F Then
+						ReadyAxis.X = 1.0F
+					End If
+				End If
 			End If
 		End If
 
@@ -163,10 +187,20 @@
 				If CurrentDistance.Y >= DestinationDistance.Y Then
 					CurrentDistance.Y = DestinationDistance.Y
 				End If
-			Else
+			ElseIf DestinationDistance.Y < 0.0F Then
 				If CurrentDistance.Y <= DestinationDistance.Y Then
 					CurrentDistance.Y = DestinationDistance.Y
 				End If
+			Else
+				If CurrentDistance.Y > DestinationDistance.Y Then
+					If CurrentDistance.Y - InterpolationSpeed.Y <= DestinationDistance.Y Then
+						CurrentDistance.Y = DestinationDistance.Y
+					End If
+				Else
+					If CurrentDistance.Y + InterpolationSpeed.Y >= DestinationDistance.Y Then
+						CurrentDistance.Y = DestinationDistance.Y
+					End If
+				End If
 			End If
 		Else
 			If Date.Now < ReadyTime Then
@@ -185,7 +219,17 @@
 				End If
 				InterpolationDirection = True
 			Else
+				If ReturnToStart.Y = 0.0F Then
 					ReadyAxis.Y = 1.0F
+				Else
+					If DestinationDistance.Y <> 0.0F Then
+						DestinationDistance.Y = 0.0F
+						InterpolationDirection = True
+					End If
+					If CurrentDistance.Y = 0.0F Then
+						ReadyAxis.Y = 1.0F
+					End If
+				End If
 			End If
 		End If
 
@@ -204,10 +248,20 @@
 				If CurrentDistance.Z >= DestinationDistance.Z Then
 					CurrentDistance.Z = DestinationDistance.Z
 				End If
-			Else
+			ElseIf DestinationDistance.z < 0.0F Then
 				If CurrentDistance.Z <= DestinationDistance.Z Then
 					CurrentDistance.Z = DestinationDistance.Z
 				End If
+			Else
+				If CurrentDistance.Z > DestinationDistance.Z Then
+					If CurrentDistance.Z - InterpolationSpeed.Z <= DestinationDistance.Z Then
+						CurrentDistance.Z = DestinationDistance.Z
+					End If
+				Else
+					If CurrentDistance.Z + InterpolationSpeed.Z >= DestinationDistance.Z Then
+						CurrentDistance.Z = DestinationDistance.Z
+					End If
+				End If
 			End If
 		Else
 			If Date.Now < ReadyTime Then
@@ -226,7 +280,17 @@
 				End If
 				InterpolationDirection = True
 			Else
+				If ReturnToStart.Z = 0.0F Then
 					ReadyAxis.Z = 1.0F
+				Else
+					If DestinationDistance.Z <> 0.0F Then
+						DestinationDistance.Z = 0.0F
+						InterpolationDirection = True
+					End If
+					If CurrentDistance.Z = 0.0F Then
+						ReadyAxis.Z = 1.0F
+					End If
+				End If
 			End If
 		End If
 

P3D/Battle/BattleSystemV2/QueryObjects/AnimationQueryObject.vb

@@ -9,6 +9,7 @@
 		Public AnimationSequence As List(Of BattleAnimation3D)
 		Public SpawnedEntities As List(Of Entity)
 		Public CurrentEntity As Entity
+		Public StartPosition As New Vector3(0)
 		Public DrawBeforeEntities As Boolean
 
 		Public Overrides ReadOnly Property IsReady As Boolean
@@ -25,6 +26,7 @@
 			Me.BattleFlipped = BattleFlipped
 			If entity IsNot Nothing Then
 				Me.CurrentEntity = entity
+				Me.StartPosition = entity.Position
 			End If
 			AnimationSequenceBegin()
 		End Sub
@@ -185,8 +187,9 @@
 			AnimationSequence.Add(baEntityMove)
 
 		End Sub
-		Public Sub AnimationOscillateMove(ByRef Entity As Entity, ByVal RemoveEntityAfter As Boolean, ByVal Distance As Vector3, ByVal Speed As Single, ByVal BothWays As Boolean, ByVal Duration As Single, ByVal startDelay As Single, ByVal endDelay As Single, Optional MovementCurve As Integer = 0)
+		Public Sub AnimationOscillateMove(ByRef Entity As Entity, ByVal RemoveEntityAfter As Boolean, ByVal Distance As Vector3, ByVal Speed As Single, ByVal BothWays As Boolean, ByVal Duration As Single, ByVal startDelay As Single, ByVal endDelay As Single, Optional MovementCurve As Integer = 0, Optional ReturnToStart As Vector3 = Nothing)
 			Dim MoveEntity As Entity
+			Dim ReturnPosition As New Vector3(0)
 
 			If Entity Is Nothing Then
 				MoveEntity = CurrentEntity
@@ -203,7 +206,7 @@
 			Dim DurationWhole = CSng(Math.Truncate(CDbl(Duration)))
 			Dim DurationFraction = CSng((Duration - DurationWhole) * 1000)
 			Dim DurationTime As TimeSpan = New TimeSpan(0, 0, 0, CInt(DurationWhole), CInt(DurationFraction))
-			Dim baEntityOscillateMove As BAEntityOscillateMove = New BAEntityOscillateMove(MoveEntity, RemoveEntityAfter, Distance, Speed, BothWays, DurationTime, startDelay, endDelay, MovementCurve)
+			Dim baEntityOscillateMove As BAEntityOscillateMove = New BAEntityOscillateMove(MoveEntity, RemoveEntityAfter, Distance, Speed, BothWays, DurationTime, startDelay, endDelay, MovementCurve, ReturnToStart)
 			AnimationSequence.Add(baEntityOscillateMove)
 
 		End Sub

P3D/Pokemon/Attacks/Grass/VineWhip.vb

@@ -53,9 +53,8 @@
         End Sub
         Public Overrides Sub InternalUserPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC)
             Dim MoveAnimation As AnimationQueryObject = New AnimationQueryObject(CurrentEntity, BattleFlip)
-            MoveAnimation.AnimationPlaySound("Battle\Attacks\Grass\VineWhip_Start", 0.5, 2.5)
+            MoveAnimation.AnimationPlaySound("Battle\Attacks\Grass\VineWhip_Start", 0.5, 1.25)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 0, 0.5)
+            MoveAnimation.AnimationOscillateMove(Nothing, False, New Vector3(0, 0, -0.15), 0.035, False, 0, 0, 0, 0, New Vector3(0, 0, 1))
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.1, 0.025, False, False, 0.75, 0)
             BattleScreen.BattleQuery.Add(MoveAnimation)
         End Sub
 

P3D/Pokemon/Attacks/Normal/Leer.vb

@@ -76,11 +76,7 @@
         End Sub
         Public Overrides Sub InternalOpponentPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC)
             Dim MoveAnimation As AnimationQueryObject = New AnimationQueryObject(CurrentEntity, BattleFlip)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 0, 0.5)
+            MoveAnimation.AnimationOscillateMove(Nothing, False, New Vector3(0, 0, 0.05), 0.035, True, 0.5, 0, 0.5, 0, New Vector3(0, 0, 1))
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.2, 0.025, False, False, 0.75, 0.5)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.2, 0.025, False, False, 1.75, 0.5)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.2, 0.025, False, False, 2.75, 0.5)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 3.5, 0.5)
             BattleScreen.BattleQuery.Add(MoveAnimation)
         End Sub
     End Class

P3D/Pokemon/Attacks/Normal/TailWhip.vb

@@ -64,14 +64,10 @@
 
         Public Overrides Sub InternalUserPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC)
             Dim MoveAnimation As AnimationQueryObject = New AnimationQueryObject(CurrentEntity, BattleFlip)
-            MoveAnimation.AnimationTurnNPC(2, 0, 0, 1, -1)
+            MoveAnimation.AnimationTurnNPC(2, 0, 0, 1, -1, 0.35)
             MoveAnimation.AnimationPlaySound("Battle\Attacks\Normal\TailWhip", 1, 0)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 1, 0.5)
+            MoveAnimation.AnimationOscillateMove(Nothing, False, New Vector3(0, 0, -0.075), 0.035, True, 0.5, 1, 0, 0, New Vector3(0, 0, 1))
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.2, 0.025, False, False, 1.75, 0.5)
+            MoveAnimation.AnimationTurnNPC(2, 5, 0.5, 3, 1, 0.35)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.2, 0.025, False, False, 2.75, 0.5)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.2, 0.025, False, False, 3.75, 0.5)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 4.5, 0.5)
-            MoveAnimation.AnimationTurnNPC(2, 5, 0, 3, 1)
             BattleScreen.BattleQuery.Add(MoveAnimation)
         End Sub
     End Class

P3D/Pokemon/Attacks/Psychic/Psychic.vb

@@ -76,11 +76,7 @@
             MoveAnimation.AnimationPlaySound("Battle\Attacks\Psychic\Psychic", 0.0F, 0)
             MoveAnimation.AnimationBackground(TextureManager.GetTexture("Textures\Battle\Psychic\PsychicBackground"), 0, 0, 1.5F, 0.6F, 0.075F, 0.075F, True, 11, 2, 6)
 
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 1, 0.5)
+            MoveAnimation.AnimationOscillateMove(Nothing, False, New Vector3(0, 0, 0.05), 0.035, True, 0.75, 1, 0.5, 0, New Vector3(0, 0, 1))
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.2, 0.025, False, False, 1.75, 0.5)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.2, 0.025, False, False, 2.75, 0.5)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0.2, 0.025, False, False, 3.75, 0.5)
-            MoveAnimation.AnimationMove(Nothing, False, 0, 0, -0.1, 0.025, False, False, 4.5, 0.5)
 
             BattleScreen.BattleQuery.Add(MoveAnimation)
         End Sub