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