Fixed GameJolt save gender saving and loading bug

This commit is contained in:
JappaWakka 2022-06-09 11:13:50 +02:00
parent c22f7d3894
commit 41615fb562
3 changed files with 14 additions and 14 deletions

View File

@ -276,9 +276,9 @@
t = t.Clamp(0, 19)
If gender = "0" Then
If gender = "Male" Then
Return CType(t, MaleEmblemSpriteType).ToString()
ElseIf gender = "1" Then
ElseIf gender = "Female" Then
Return CType(t, FemaleEmblemSpriteType).ToString()
Else
Return CType(t, GenderlessEmblemSpriteType).ToString()
@ -296,9 +296,9 @@
t = t.Clamp(0, 19)
Dim tFile As String
If gender = "0" Then
If gender = "Male" Then
tFile = CType(t, MaleEmblemSprites).ToString()
ElseIf gender = "1" Then
ElseIf gender = "Female" Then
tFile = CType(t, FemaleEmblemSprites).ToString()
Else
tFile = CType(t, GenderlessEmblemSprites).ToString()
@ -322,9 +322,9 @@
t = t.Clamp(0, 19)
Dim tFile As String
If gender = "0" Then
If gender = "Male" Then
tFile = CType(t, MaleEmblemSprites).ToString()
ElseIf gender = "1" Then
ElseIf gender = "Female" Then
tFile = CType(t, FemaleEmblemSprites).ToString()
Else
tFile = CType(t, GenderlessEmblemSprites).ToString()

View File

@ -791,9 +791,9 @@
Case "rotation"
startRotation = CSng(Value.Replace(".", GameController.DecSeparator))
Case "gender"
If Value = "0" Then
If Value = "Male" Or Value = "0" Then
Gender = "Male"
ElseIf Value = "1" Then
ElseIf Value = "Female" Or Value = "1" Then
Gender = "Female"
Else
Gender = "Other"

View File

@ -641,28 +641,28 @@ Public Class NewMainMenuScreen
End Sub
Private Sub ButtonChangeMale()
If GameJoltSave.Gender = "0" Then
If GameJoltSave.Gender = "Male" Then
Exit Sub
End If
GameJoltSave.Gender = "0"
GameJoltSave.Gender = "Male"
Core.Player.Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
_MainProfiles(_selectedProfile).Sprite = GameJolt.Emblem.GetPlayerSprite(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
End Sub
Private Sub ButtonChangeFemale()
If GameJoltSave.Gender = "1" Then
If GameJoltSave.Gender = "Female" Then
Exit Sub
End If
GameJoltSave.Gender = "1"
GameJoltSave.Gender = "Female"
Core.Player.Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
_MainProfiles(_selectedProfile).Sprite = GameJolt.Emblem.GetPlayerSprite(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
End Sub
Private Sub ButtonChangeGenderless()
If GameJoltSave.Gender = "2" Then
If GameJoltSave.Gender = "Other" Then
Exit Sub
End If
GameJoltSave.Gender = "2"
GameJoltSave.Gender = "Other"
Core.Player.Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
_MainProfiles(_selectedProfile).Sprite = GameJolt.Emblem.GetPlayerSprite(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)