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
Else
If Me.Texture.Width = Me.Texture.Height Then
AnimationX = 1
Else
Me.AnimationDelay -= 0.1F
If AnimationDelay <= 0.0F Then
AnimationX += 1
AnimationDelay = 2.2F
If AnimationX > 4 Then
AnimationX = 1
End If
Me.AnimationDelay -= 0.1F
If AnimationDelay <= 0.0F Then
AnimationX += 1
AnimationDelay = 2.2F
If AnimationX > 4 Then
AnimationX = 1
End If
End If
End If

View File

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