From 425a3364019df5145b372dc6d50d8d003db6fc4a Mon Sep 17 00:00:00 2001 From: "Jasper \"JappaWakka\" Speelman" <31563291+JappaWakka@users.noreply.github.com> Date: Sat, 25 Sep 2021 13:28:15 +0200 Subject: [PATCH] Typo fix in code AnimationDelayLenght is now AnimationDelayLength --- P3D/Entites/Other/NPC.vb | 10 +++++----- P3D/Entites/Other/NetworkPlayer.vb | 6 +++--- P3D/Entites/Other/NetworkPokemon.vb | 6 +++--- P3D/Entites/Other/OverworldPokemon.vb | 10 +++++----- P3D/Entites/Other/OwnPlayer.vb | 8 ++++---- 5 files changed, 20 insertions(+), 20 deletions(-) diff --git a/P3D/Entites/Other/NPC.vb b/P3D/Entites/Other/NPC.vb index fe84e466f..9a47f54e5 100644 --- a/P3D/Entites/Other/NPC.vb +++ b/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 - Dim AnimationDelay As Single = AnimationDelayLenght + Const AnimationDelayLength As Single = 1.1F + 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 diff --git a/P3D/Entites/Other/NetworkPlayer.vb b/P3D/Entites/Other/NetworkPlayer.vb index 471d15ada..b8bd1cbe1 100644 --- a/P3D/Entites/Other/NetworkPlayer.vb +++ b/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 - Dim AnimationDelay As Single = AnimationDelayLenght + Const AnimationDelayLength As Single = 1.1F + 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 diff --git a/P3D/Entites/Other/NetworkPokemon.vb b/P3D/Entites/Other/NetworkPokemon.vb index a35fe50f0..17bbfe715 100644 --- a/P3D/Entites/Other/NetworkPokemon.vb +++ b/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 AnimationDelay As Single = AnimationDelayLenght + Dim AnimationDelayLength As Single = 2.2F + 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 diff --git a/P3D/Entites/Other/OverworldPokemon.vb b/P3D/Entites/Other/OverworldPokemon.vb index 1f9fdee17..6dd76595c 100644 --- a/P3D/Entites/Other/OverworldPokemon.vb +++ b/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 AnimationDelay As Single = AnimationDelayLenght + Dim AnimationDelayLength As Single = 2.2F + 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 diff --git a/P3D/Entites/Other/OwnPlayer.vb b/P3D/Entites/Other/OwnPlayer.vb index 813ce59df..693829bcf 100644 --- a/P3D/Entites/Other/OwnPlayer.vb +++ b/P3D/Entites/Other/OwnPlayer.vb @@ -13,8 +13,8 @@ Dim lastTexture As String = "" Dim AnimationX As Integer = 1 - Const AnimationDelayLenght As Single = 1.1F - Dim AnimationDelay As Single = AnimationDelayLenght + Const AnimationDelayLength As Single = 1.1F + 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 \ No newline at end of file