Typo fix in code

AnimationDelayLenght
is now
AnimationDelayLength

P3D/Entites/Other/NPC.vb

@@ -32,8 +32,8 @@
 
     Dim AnimateIdle As Boolean = True
     Dim AnimationX As Integer = 1
-    Const AnimationDelayLenght As Single = 1.1F
+    Const AnimationDelayLength As Single = 1.1F
-    Dim AnimationDelay As Single = AnimationDelayLenght
+    Dim AnimationDelay As Single = AnimationDelayLength
 
     Public Movement As Movements = Movements.Still
     Public MoveRectangles As New List(Of Rectangle)
@@ -645,7 +645,7 @@
 
             Me.AnimationDelay -= CSng(0.13 * (Math.Abs(Me.Speed) / NPC.STANDARD_SPEED))
             If AnimationDelay <= 0.0F Then
-                AnimationDelay = AnimationDelayLenght
+                AnimationDelay = AnimationDelayLength
                 AnimationX += 1
                 If AnimationX > 4 Then
                     AnimationX = 1
@@ -657,8 +657,8 @@
                 Moved = 0.0F
                 MoveY = 0.0F
                 AnimationX = 1
-                AnimationDelay = AnimationDelayLenght
                 Me.Position = New Vector3(CInt(Me.Position.X), CInt(Me.Position.Y), CInt(Me.Position.Z))
+                AnimationDelay = AnimationDelayLength
                 ChangeTexture()
                 ApplyShaders()
                 Speed = NPC.STANDARD_SPEED
@@ -667,7 +667,7 @@
             If Me.AnimateIdle = True Then
                 Me.AnimationDelay -= 0.1F
                 If AnimationDelay <= 0.0F Then
-                    AnimationDelay = AnimationDelayLenght
+                    AnimationDelay = AnimationDelayLength
                     AnimationX += 1
                     If AnimationX > 4 Then
                         AnimationX = 1

P3D/Entites/Other/NetworkPlayer.vb

@@ -24,8 +24,8 @@
     Public moving As Boolean = False
     Dim lastRectangle As New Rectangle(0, 0, 0, 0)
     Dim AnimationX As Integer = 1
-    Const AnimationDelayLenght As Single = 1.1F
+    Const AnimationDelayLength As Single = 1.1F
-    Dim AnimationDelay As Single = AnimationDelayLenght
+    Dim AnimationDelay As Single = AnimationDelayLength
     Public HasPokemonTexture As Boolean = False
 
     Dim NameTexture As Texture2D
@@ -191,7 +191,7 @@
         If Me.moving = True Then
             Me.AnimationDelay -= 0.1F
             If Me.AnimationDelay <= 0.0F Then
-                Me.AnimationDelay = AnimationDelayLenght
+                Me.AnimationDelay = AnimationDelayLength
                 AnimationX += 1
                 If AnimationX > 4 Then
                     AnimationX = 1

P3D/Entites/Other/NetworkPokemon.vb

@@ -12,8 +12,8 @@
     Dim loadedTexture As String = ""
 
     Dim AnimationX As Integer = 1
-    Dim AnimationDelayLenght As Single = 2.2F
+    Dim AnimationDelayLength As Single = 2.2F
-    Dim AnimationDelay As Single = AnimationDelayLenght
+    Dim AnimationDelay As Single = AnimationDelayLength
 
     Public Sub New(ByVal pos As Vector3, ByVal PokemonTexture As String, ByVal visible As Boolean)
         MyBase.New(pos.X, pos.Y, pos.Z, "NetworkPokemon", {TextureManager.DefaultTexture}, {0, 0}, False, 0, New Vector3(0.9F), BaseModel.BillModel, 0, "", New Vector3(1))
@@ -54,7 +54,7 @@
 
             Me.AnimationDelay -= 0.1F
             If AnimationDelay <= 0.0F Then
-                AnimationDelay = AnimationDelayLenght
+                AnimationDelay = AnimationDelayLength
                 AnimationX += 1
                 If AnimationX > 2 Then
                     AnimationX = 1

P3D/Entites/Other/OverworldPokemon.vb

@@ -12,8 +12,8 @@ Public Class OverworldPokemon
     Public warped As Boolean = True
 
     Dim AnimationX As Integer = 1
-    Dim AnimationDelayLenght As Single = 2.2F
+    Dim AnimationDelayLength As Single = 2.2F
-    Dim AnimationDelay As Single = AnimationDelayLenght
+    Dim AnimationDelay As Single = AnimationDelayLength
 
     Public Sub New(ByVal X As Single, ByVal Y As Single, ByVal Z As Single)
         MyBase.New(X, Y, Z, "OverworldPokemon", {P3D.TextureManager.DefaultTexture}, {0, 0}, False, 0, New Vector3(1.0F), BaseModel.BillModel, 0, "", New Vector3(1))
@@ -86,7 +86,7 @@ Public Class OverworldPokemon
 
             Me.AnimationDelay -= 0.1F
             If AnimationDelay <= 0.0F Then
-                AnimationDelay = AnimationDelayLenght
+                AnimationDelay = AnimationDelayLength
                 AnimationX += 1
                 If AnimationX > 2 Then
                     AnimationX = 1
@@ -162,10 +162,10 @@ Public Class OverworldPokemon
         If Screen.Camera.IsMoving() = True And Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
             If CInt(Me.Position.X) <> CInt(Screen.Camera.Position.X) Or CInt(Me.Position.Z) <> CInt(Screen.Camera.Position.Z) Then
                 Me.Position += GetMove()
-                Me.AnimationDelayLenght = 1.1F
+                Me.AnimationDelayLength = 1.1F
             End If
         Else
-            Me.AnimationDelayLenght = 2.2F
+            Me.AnimationDelayLength = 2.2F
         End If
     End Sub
 

P3D/Entites/Other/OwnPlayer.vb

@@ -13,8 +13,8 @@
     Dim lastTexture As String = ""
 
     Dim AnimationX As Integer = 1
-    Const AnimationDelayLenght As Single = 1.1F
+    Const AnimationDelayLength As Single = 1.1F
-    Dim AnimationDelay As Single = AnimationDelayLenght
+    Dim AnimationDelay As Single = AnimationDelayLength
     Public DoAnimation As Boolean = True
 
     Public UsingGameJoltTexture As Boolean = False
@@ -207,9 +207,9 @@
 
     Private Function GetAnimationDelay() As Single
         If Core.Player.IsRunning() = True Then
-            Return OwnPlayer.AnimationDelayLenght / 1.4F
+            Return OwnPlayer.AnimationDelayLength / 1.4F
         End If
-        Return OwnPlayer.AnimationDelayLenght
+        Return OwnPlayer.AnimationDelayLength
     End Function
 
 End Class