Follower idle animate always

This commit is contained in:
JappaWakka 2024-04-06 19:46:05 +02:00
parent 86cdffdd76
commit 58a12e5edb
2 changed files with 12 additions and 20 deletions

View File

@ -62,16 +62,12 @@
End If End If
End If End If
Else Else
If Me.Texture.Width = Me.Texture.Height Then Me.AnimationDelay -= 0.1F
AnimationX = 1 If AnimationDelay <= 0.0F Then
Else AnimationX += 1
Me.AnimationDelay -= 0.1F AnimationDelay = 2.2F
If AnimationDelay <= 0.0F Then If AnimationX > 4 Then
AnimationX += 1 AnimationX = 1
AnimationDelay = 2.2F
If AnimationX > 4 Then
AnimationX = 1
End If
End If End If
End If End If
End If End If

View File

@ -90,17 +90,13 @@ Public Class OverworldPokemon
Me.ChangeTexture() Me.ChangeTexture()
If Moving = True Then Me.AnimationDelay -= 0.1F
Me.AnimationDelay -= 0.1F If AnimationDelay <= 0.0F Then
If AnimationDelay <= 0.0F Then AnimationX += 1
AnimationX += 1 AnimationDelay = AnimationDelayLength
AnimationDelay = AnimationDelayLength If AnimationX > 4 Then
If AnimationX > 4 Then AnimationX = 1
AnimationX = 1
End If
End If End If
Else
AnimationX = 1
End If End If
ChangePosition() ChangePosition()