Revert "Revert "Fix for invisible ball in certain maps""

This reverts commit 49dd67c012.
This commit is contained in:
JappaWakka 2022-06-22 20:57:35 +02:00
parent 49dd67c012
commit a73bbee55b
1 changed files with 2 additions and 2 deletions

View File

@ -166,7 +166,7 @@ nextIndex:
Dim CatchAnimation = New BattleSystem.AnimationQueryObject(Nothing, False, Nothing)
CatchAnimation.AnimationPlaySound("Battle\Pokeball\Throw", 0, 0)
Dim BallPosition As Vector3 = New Vector3(BattleScreen.OppPokemonNPC.Position.X - 3, 0.15F, BattleScreen.OppPokemonNPC.Position.Z)
Dim BallPosition As Vector3 = New Vector3(BattleScreen.OppPokemonNPC.Position.X - 3, BattleScreen.OppPokemonNPC.Position.Y + 0.15F, BattleScreen.OppPokemonNPC.Position.Z)
Dim BallEntity As Entity = CatchAnimation.SpawnEntity(BallPosition, Ball.Texture, New Vector3(0.3F), 1.0F, 0, 0)
CatchAnimation.AnimationMove(BallEntity, False, 3, 0.1F, 0, 0.075, False, False, 0F, 0F,,,, 0.025)
@ -475,4 +475,4 @@ nextIndex:
End If
End Function
End Class
End Class