mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-07 14:04:51 +02:00
Tweak tackle, correct line breaks
This commit is contained in:
parent
7112b7cdf1
commit
ba4a377d23
@ -145,6 +145,7 @@
|
|||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
If EasedOut = False Then
|
If EasedOut = False Then
|
||||||
|
If MoveDistance.X <= 0.05F AndAlso MoveDistance.Y <= 0.05F AndAlso MoveDistance.Z <= 0.05F Then
|
||||||
If InterpolationSpeed > 0.05F OrElse InterpolationYSpeed > 0.05F Then
|
If InterpolationSpeed > 0.05F OrElse InterpolationYSpeed > 0.05F Then
|
||||||
If InterpolationSpeed > 0.05F Then
|
If InterpolationSpeed > 0.05F Then
|
||||||
InterpolationSpeed = MathHelper.Lerp(InterpolationSpeed, 0.0F, 0.9F)
|
InterpolationSpeed = MathHelper.Lerp(InterpolationSpeed, 0.0F, 0.9F)
|
||||||
@ -157,6 +158,19 @@
|
|||||||
InterpolationSpeed = 0
|
InterpolationSpeed = 0
|
||||||
EasedOut = True
|
EasedOut = True
|
||||||
End If
|
End If
|
||||||
|
Else
|
||||||
|
If InterpolationSpeed > 0.05F + MoveSpeed / 10 * 3 OrElse InterpolationYSpeed > 0.05F + MoveYSpeed / 10 * 3 Then
|
||||||
|
If InterpolationSpeed > 0.05F + MoveSpeed / 10 * 3 Then
|
||||||
|
InterpolationSpeed = MathHelper.Lerp(InterpolationSpeed, 0.0F, 0.9F)
|
||||||
|
End If
|
||||||
|
If InterpolationYSpeed > 0.05F + MoveYSpeed / 10 * 3 Then
|
||||||
|
InterpolationYSpeed = MathHelper.Lerp(InterpolationYSpeed, 0.0F, 0.9F)
|
||||||
|
End If
|
||||||
|
Else
|
||||||
|
InterpolationYSpeed = MoveSpeed / 10 * 3
|
||||||
|
InterpolationSpeed = MoveSpeed / 10 * 3
|
||||||
|
End If
|
||||||
|
End If
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
End Select
|
End Select
|
||||||
|
@ -54,8 +54,8 @@
|
|||||||
|
|
||||||
Public Overrides Sub InternalUserPokemonMoveAnimation(ByVal BattleScreen As BattleScreen, ByVal BattleFlip As Boolean, ByVal CurrentPokemon As Pokemon, ByVal CurrentEntity As NPC)
|
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)
|
Dim MoveAnimation As AnimationQueryObject = New AnimationQueryObject(CurrentEntity, BattleFlip)
|
||||||
MoveAnimation.AnimationMove(Nothing, False, -0.5F, 0, 0, 0.3F, False, False, 0, 0,,, 2)
|
MoveAnimation.AnimationMove(Nothing, False, -0.5F, 0, 0, 0.035F, False, False, 0, 0)
|
||||||
MoveAnimation.AnimationMove(Nothing, False, 0, 0, 0, 0.3F, False, False, 1.5, 0,,, 2)
|
MoveAnimation.AnimationMove(Nothing, False, 0.5F, 0, 0, 0.06F, False, False, 1.25, 0)
|
||||||
BattleScreen.BattleQuery.Add(MoveAnimation)
|
BattleScreen.BattleQuery.Add(MoveAnimation)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user