tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix frozen animation

This commit is contained in:
JappaWakka 2023-06-04 14:58:39 +02:00
parent 65ca21139b
commit 5b6c902f65
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
P3D/Battle/BattleSystemV2/Battle.vb
View File

@ -1269,7 +1269,7 @@
'Frozen animation
ChangeCameraAngle(1, own, BattleScreen)
If Core.Player.ShowBattleAnimations <> 0 AndAlso BattleScreen.IsPVPBattle = False Then
Dim FrozenAnimation As AnimationQueryObject = New AnimationQueryObject(Nothing, Not own)
Dim FrozenAnimation As AnimationQueryObject = New AnimationQueryObject(pNPC, Not own)
FrozenAnimation.AnimationPlaySound("Battle\Effects\Frozen", 0, 0)
Dim maxAmount As Integer = 8
@ -1289,7 +1289,7 @@
Dim Position As New Vector3(xPos, -0.25, zPos)
Dim Scale As New Vector3(0.25F)
Dim startDelay As Double = 5.0 * Random.NextDouble()
Dim SnowflakeEntity = FrozenAnimation.SpawnEntity(pNPC.Position + Position, Texture, Scale, 1.0F, CSng(startDelay))
Dim SnowflakeEntity = FrozenAnimation.SpawnEntity(Position, Texture, Scale, 1.0F, CSng(startDelay))
FrozenAnimation.AnimationFade(SnowflakeEntity, True, 0.02, False, 0.0F, CSng(startDelay), 0.0)
Threading.Interlocked.Increment(currentAmount)
@ -3078,7 +3078,7 @@
ChangeCameraAngle(1, own, BattleScreen)
'Frozen animation
If Core.Player.ShowBattleAnimations <> 0 AndAlso BattleScreen.IsPVPBattle = False Then
Dim FrozenAnimation As AnimationQueryObject = New AnimationQueryObject(Nothing, Not own)
Dim FrozenAnimation As AnimationQueryObject = New AnimationQueryObject(pNPC, Not own)
FrozenAnimation.AnimationPlaySound("Battle\Effects\Frozen", 0, 0)
Dim maxAmount As Integer = 8
@ -3098,7 +3098,7 @@
Dim Position As New Vector3(xPos, -0.25, zPos)
Dim Scale As New Vector3(0.25F)
Dim startDelay As Double = 5.0 * Random.NextDouble()
Dim SnowflakeEntity = FrozenAnimation.SpawnEntity(pNPC.Position + Position, Texture, Scale, 1.0F, CSng(startDelay))
Dim SnowflakeEntity = FrozenAnimation.SpawnEntity(Position, Texture, Scale, 1.0F, CSng(startDelay))
FrozenAnimation.AnimationFade(SnowflakeEntity, True, 0.02, False, 0.0F, CSng(startDelay), 0.0)
Threading.Interlocked.Increment(currentAmount)