tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Let's make it easier to edit the classified values

This commit is contained in:
Daniel S. Billing 2021-01-24 18:38:05 +01:00
parent 8cb50ea28a
commit ecfbc13b06
5 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
P3D/Core/Classified.vb Normal file
View File

@ -0,0 +1,6 @@
Public Class Classified
Public Shared Remote_Texture_URL As String = "" ' CLASSIFIED
Public Const GameJolt_Game_ID As String = "" ' CLASSIFIED
Public Const GameJolt_Game_Key As String = "" ' CLASSIFIED
Public Shared Encryption_Password As String = "" ' CLASSIFIED
End Class

4
P3D/Network/GameJolt/APICall.vb
View File

@ -70,8 +70,8 @@ Namespace GameJolt
Dim loggedIn As Boolean
Const CONST_GAMEID As String = "" ' CLASSIFIED
Const CONST_GAMEKEY As String = "" ' CLASSIFIED
Const CONST_GAMEID As String = Classified.GameJolt_Game_ID
Const CONST_GAMEKEY As String = Classified.GameJolt_Game_Key
Const HOST As String = "http://api.gamejolt.com/api/game/"
Dim Exception As System.Exception = Nothing

8
P3D/Network/GameJolt/LogInScreen.vb
View File

@ -83,8 +83,8 @@ Namespace GameJolt
Private Sub SaveSettings()
If API.LoggedIn = True Then
Dim cUsername As String = Encryption.EncryptString(UserName.Text, "") 'CLASSIFIED
Dim cToken As String = Encryption.EncryptString(Token.Text, "") 'CLASSIFIED
Dim cUsername As String = Encryption.EncryptString(UserName.Text, Classified.Encryption_Password)
Dim cToken As String = Encryption.EncryptString(Token.Text, Classified.Encryption_Password)
System.IO.File.WriteAllText(GameController.GamePath & "\Save\gamejoltAcc.dat", cUsername & Environment.NewLine & cToken)
End If
@ -96,8 +96,8 @@ Namespace GameJolt
If content.Length >= 2 Then
Try
Me.UserName.Text = Encryption.DecryptString(content(0), "") 'CLASSIFIED
Me.Token.Text = Encryption.DecryptString(content(1), "") ' CLASSIFIED
Me.UserName.Text = Encryption.DecryptString(content(0), Classified.Encryption_Password)
Me.Token.Text = Encryption.DecryptString(content(1), Classified.Encryption_Password)
Deactivate()
Me.LogInButton.IsActive = True

2
P3D/Network/Profiles/Emblem.vb
View File

@ -322,7 +322,7 @@
Return tempT
End If
Dim t As Texture2D = DownloadTexture2D.n_Remote_Texture2D(Core.GraphicsDevice, "" & GameJoltID & ".png", False) ' CLASSIFIED
Dim t As Texture2D = DownloadTexture2D.n_Remote_Texture2D(Core.GraphicsDevice, $"{Classified.Remote_Texture_URL}{GameJoltID}.png", False)
If TempDownloadedSprites.ContainsKey(GameJoltID) = False Then
TempDownloadedSprites.Add(GameJoltID, t)

1
P3D/P3D.vbproj
View File

@ -27413,6 +27413,7 @@
<Content Include="credits.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Compile Include="Core\Classified.vb" />
<Compile Include="Pokemon\Abilities\Aerilate.vb" />
<Compile Include="Pokemon\Abilities\PsychicSurge.vb" />
<Compile Include="Pokemon\Abilities\MistySurge.vb" />