P3D-Legacy/P3D/Screens/SaveScreen.vb

Public Class SaveScreen

    Inherits Screen

    Dim ready As Boolean = False
    Dim delay As Single = 15.0F
    Dim mainTexture As Texture2D

    Dim savingStarted As Boolean = False
    Dim saveSessionFailed As Boolean = False
    Dim backupFileLocation As String = ""

    Private Yslide As Integer = 0
    Private YslideMAX As Integer = CInt(Core.windowSize.Height / 2) + 270

    Dim menuTexture As Texture2D
    Dim _closing As Boolean = False
    Dim _opening As Boolean = True

    Public Sub New(ByVal currentScreen As Screen)
        Yslide = YslideMAX

        Me.Identification = Identifications.SaveScreen
        Me.PreScreen = currentScreen

        Me.mainTexture = TextureManager.GetTexture("GUI\Menus\Menu")
        Me.menuTexture = TextureManager.GetTexture("GUI\Menus\SaveBook")
        ChooseBox.Show({Localization.GetString("save_screen_yes"), Localization.GetString("save_screen_no")}, 0, {})

        SaveGameHelpers.ResetSaveCounter()
    End Sub

    Public Overrides Sub Draw()
        Me.PreScreen.Draw()

        Dim halfWidth As Integer = CInt(Core.windowSize.Width / 2)
        Dim halfHeight As Integer = CInt(Core.windowSize.Height / 2)

        Dim Delta_X As Integer = halfWidth - 350
        Dim Delta_Y As Integer = halfHeight - 220 + Yslide
        If Core.Player.IsGameJoltSave = True Then
            GameJolt.Emblem.Draw(GameJolt.API.username, Core.GameJoltSave.GameJoltID, Core.GameJoltSave.Points, Core.GameJoltSave.Gender, Core.GameJoltSave.Emblem, New Vector2(CSng(Core.windowSize.Width / 2 - 256), 30), 4, Core.GameJoltSave.DownloadedSprite)
        End If

        With Core.SpriteBatch
            .Draw(menuTexture, New Rectangle(Delta_X, Delta_Y, 700, 440), Color.White)

            If saveSessionFailed = True Then
                .DrawString(FontManager.InGameFont, "Saving failed!", New Vector2(Delta_X + 90, Delta_Y + 50), Color.Red)

                If Core.GameOptions.Extras.Contains("Backup Save Feature") Then
                    .DrawString(FontManager.MiniFont,
                        "Press Dismiss to close this" & Environment.NewLine &
                        "screen and try to save again" & Environment.NewLine &
                        "in order to prevent data" & Environment.NewLine &
                        "corruption." & Environment.NewLine & Environment.NewLine & Environment.NewLine &
                        "Your save has been backed" & Environment.NewLine &
                        "up in the event of the" & Environment.NewLine &
                        "Gamejolt API being down.", New Vector2(Delta_X + 90, Delta_Y + 100), Color.Black)
                    .DrawString(FontManager.MiniFont,
                        "You may safely quit the" & Environment.NewLine &
                        "game now or try to save" & Environment.NewLine &
                        "again later." & Environment.NewLine & Environment.NewLine & Environment.NewLine &
                        "The backup save can be" & Environment.NewLine &
                        "found in the Backup Save" & Environment.NewLine &
                        "folder", New Vector2(Delta_X + 390, Delta_Y + 100), Color.Black)
                Else
                    .DrawString(FontManager.MiniFont,
                        "Press Dismiss to close this" & Environment.NewLine &
                        "screen and try to save again" & Environment.NewLine &
                        "in order to prevent data" & Environment.NewLine &
                        "corruption." & Environment.NewLine & Environment.NewLine & Environment.NewLine &
                        "If the problem persists, the" & Environment.NewLine &
                        "GameJolt servers could be" & Environment.NewLine &
                        "down for maintenance right" & Environment.NewLine &
                        "now.", New Vector2(Delta_X + 90, Delta_Y + 100), Color.Black)
                    .DrawString(FontManager.MiniFont, "Please try again later," & Environment.NewLine &
                        "or contact us here:" & Environment.NewLine & Environment.NewLine &
                        "Discord server" & Environment.NewLine &
                        "www.discord.me/p3d" & Environment.NewLine & Environment.NewLine &
                        "Official Forum" & Environment.NewLine &
                        "pokemon3d.net/forum/news", New Vector2(Delta_X + 390, Delta_Y + 100), Color.Black)
                End If

                Dim text As String = String.Empty
                If ControllerHandler.IsConnected() Then
                    text = "Press      to continue"
                Else
                    text = "Press " & KeyBindings.BackKey1.ToString() & " to continue"
                End If

                Dim textSize As Vector2 = FontManager.GameJoltFont.MeasureString(text)

                GetFontRenderer().DrawString(FontManager.MiniFont, text, New Vector2(Delta_X + 610 - textSize.X / 2.0F,
                                                                                   Delta_Y + 350 - textSize.Y / 2.0F), Color.DarkBlue)

                If ControllerHandler.IsConnected() Then
                    SpriteBatch.Draw(TextureManager.GetTexture("GUI\GamePad\xboxControllerButtonB"), New Rectangle(CInt(Delta_X + 610 - textSize.X / 2 + FontManager.MiniFont.MeasureString("Press ").X),
                                                                                                               CInt(Delta_Y + 350 - textSize.Y / 2), 20, 20), Color.White)
                End If

            Else
                If ready = True Then
                    .DrawString(FontManager.InGameFont, "Saved the game.", New Vector2(Delta_X + 90, Delta_Y + 50), Color.DarkBlue)
                Else
                    If SaveGameHelpers.GameJoltSaveDone() = False And savingStarted = True Then
                        If SaveGameHelpers.StartedDownloadCheck = True Then
                            .DrawString(FontManager.InGameFont, "Validating data" & LoadingDots.Dots, New Vector2(Delta_X + 90, Delta_Y + 50), Color.Black)
                        Else
                            .DrawString(FontManager.InGameFont, "Saving, please wait" & LoadingDots.Dots, New Vector2(Delta_X + 77, Delta_Y + 50), Color.Black)
                        End If
                    Else
                        .DrawString(FontManager.InGameFont, "Would you like to", New Vector2(Delta_X + 90, Delta_Y + 50), Color.Black)
                        .DrawString(FontManager.InGameFont, "save the game?", New Vector2(Delta_X + 90, Delta_Y + 80), Color.Black)
                    End If
                End If

                For i = 0 To Core.Player.Pokemons.Count - 1
                    Dim Pos As New Vector2(Delta_X + 390 + (i Mod 3) * 80, Delta_Y + 50 + CInt(Math.Floor(i / 3)) * 64)
                    .Draw(Core.Player.Pokemons(i).GetMenuTexture(), New Rectangle(CInt(Pos.X), CInt(Pos.Y), 64, 64), Color.White)

                    If Not Core.Player.Pokemons(i).Item Is Nothing And Core.Player.Pokemons(i).IsEgg() = False Then
                        .Draw(Core.Player.Pokemons(i).Item.Texture, New Rectangle(CInt(Pos.X) + 36, CInt(Pos.Y) + 36, 32, 32), Color.White)
                    End If
                Next

                .DrawString(FontManager.MiniFont, Localization.GetString("save_screen_name") & ": " & Core.Player.Name & Environment.NewLine & Environment.NewLine & Localization.GetString("save_screen_badges") & ": " & Core.Player.Badges.Count.ToString() & Environment.NewLine & Environment.NewLine & Localization.GetString("save_screen_money") & ": " & Core.Player.Money & Environment.NewLine & Environment.NewLine & Localization.GetString("save_screen_time") & ": " & TimeHelpers.GetDisplayTime(TimeHelpers.GetCurrentPlayTime(), True), New Vector2(Delta_X + 400, Delta_Y + 215), Color.DarkBlue)
            End If
        End With
        Screen.ChooseBox.Draw(New Vector2(Delta_X + 115, Delta_Y + 155), False, 1.5F)
    End Sub

    Public Overrides Sub Update()
        Screen.ChooseBox.Update()

        If _opening Then
            If Yslide < 5 Then
                Yslide = 0
                _opening = False
            Else
                Yslide = CInt(MathHelper.Lerp(Yslide, 0, 0.1F))
            End If

            Exit Sub
        ElseIf _closing Then
            If Yslide < CInt(YslideMAX * 0.91) Then
                Yslide = CInt(MathHelper.Lerp(Yslide, YslideMAX, 0.1F))
            Else
                _closing = False
                Core.SetScreen(Me.PreScreen)
            End If

            Exit Sub
        End If

        If Core.Player.IsGameJoltSave = True Then
            If SaveGameHelpers.GameJoltSaveDone() = True Then
                ready = True

                If SaveGameHelpers.EncounteredErrors = True Then
                    Me.saveSessionFailed = True
                Else
                    If (File.Exists(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID.ToString() & "\Encrypted\Encrypted.dat")) Then
                        File.Delete(GameController.GamePath & "\Backup Save\" & GameJoltSave.GameJoltID.ToString() & "\Encrypted\Encrypted.dat")
                    End If
                    SoundManager.PlaySound("save")
                End If

                SaveGameHelpers.ResetSaveCounter()
            End If
        End If

        If saveSessionFailed = False Then
            If ChooseBox.Showing = False Then
                If ready = True Then
                    If Me.delay <= 0.0F Then
                        _closing = True
                        'Core.SetScreen(Me.PreScreen)
                    Else
                        Me.delay -= 0.2F
                        If delay <= 0.0F Then
                            delay = 0.0F
                        End If
                    End If
                End If
            End If

            If ChooseBox.readyForResult = True And savingStarted = False Then
                If ChooseBox.result = 0 Then
                    If ready = False Then
                        Core.Player.SaveGame(False)

                        savingStarted = True

                        If Core.Player.IsGameJoltSave = False Then
                            ready = True
                            SoundManager.PlaySound("save")
                        End If
                    End If
                Else
                    delay = 0.0F
                    ready = True
                End If
            End If

            If Controls.Dismiss() And ready = False Then
                ChooseBox.Showing = False
                _closing = True
                'Core.SetScreen(Me.PreScreen)
            End If
        Else
            If Controls.Dismiss() = True Then
                ChooseBox.Showing = False
                _closing = True
                'Core.SetScreen(Me.PreScreen)
            End If
        End If
    End Sub
End Class