P3D-Legacy/P3D/Screens/GUI/InputScreen.vb

Public Class InputScreen

    Inherits Screen

    Public Shared LastInput As String = ""

    Public Enum InputModes As Integer
        Text = 0
        Numbers = 1
        Name = 2
        Pokemon = 3
    End Enum

    Dim DefaultName As String = ""
    Dim CurrentText As String = ""
    Dim Sprites As New List(Of Texture2D)
    Dim Buttons As New List(Of InputButton)
    Dim InputMode As InputModes = InputModes.Text
    Dim MaxChars As Integer = 100
    Dim ButtonSelector As Vector2 = New Vector2(0, 0)

    Public PasswordMode As Boolean = False

    Public Delegate Sub ConfirmInput(ByVal input As String)

    Dim ConfirmSub As ConfirmInput = Nothing

    Public Sub New(ByVal currentScreen As Screen, ByVal DefaultName As String, ByVal InputMode As InputModes, ByVal CurrentText As String, ByVal MaxChars As Integer, ByVal Sprites As List(Of Texture2D), ByVal ConfirmSub As ConfirmInput)
        Me.PreScreen = currentScreen
        Me.DefaultName = DefaultName
        Me.CurrentText = CurrentText
        Me.Sprites = Sprites
        Me.InputMode = InputMode
        Me.MaxChars = MaxChars
        Me.ConfirmSub = ConfirmSub

        Initialize()
    End Sub

    Public Sub New(ByVal currentScreen As Screen, ByVal DefaultName As String, ByVal InputMode As InputModes, ByVal CurrentText As String, ByVal MaxChars As Integer, ByVal Sprites As List(Of Texture2D))
        Me.PreScreen = currentScreen
        Me.DefaultName = DefaultName
        Me.CurrentText = CurrentText
        Me.Sprites = Sprites
        Me.InputMode = InputMode
        Me.MaxChars = MaxChars

        Initialize()
    End Sub

    Private Sub Initialize()
        Me.Identification = Identifications.InputScreen
        Me.CanBePaused = True
        Me.CanChat = False
        Me.CanMuteAudio = False
        Me.MouseVisible = True

        If Me.MaxChars < 0 Then
            Me.MaxChars = 100
        End If

        InputButton.CapsLock = True

        Select Case Me.InputMode
            Case InputModes.Text
                Me.InitializeText()
            Case InputModes.Name, InputModes.Pokemon
                Me.InitializeName()
            Case InputModes.Numbers
                Me.InitializeNumbers()
        End Select

        Buttons.Add(New InputButton("Shift", New Vector2(0, 4), InputButton.ButtonModes.CapsLock, 2))
        Buttons.Add(New InputButton("Delete", New Vector2(2, 4), InputButton.ButtonModes.Delete, 2))
        Buttons.Add(New InputButton("Default", New Vector2(4, 4), InputButton.ButtonModes.Default, 2))
        Buttons.Add(New InputButton("Confirm", New Vector2(6, 4), InputButton.ButtonModes.Enter, 2))
    End Sub

    Private Sub InitializeText()
        Dim chars() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", " ", ".", ",", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", " ", "'", "-", "u", "v", "w", "x", "y", "z", " ", " ", " ", " ", "!", "?", "_"}
        Dim x As Integer = 0
        Dim y As Integer = 0

        For Each c As String In chars
            Me.Buttons.Add(New InputButton(c, New Vector2(x, y), InputButton.ButtonModes.Key, 1))

            x += 1
            If x > 12 Then
                x = 0
                y += 1
            End If
        Next

        Dim numbers() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " ", " ", " "}
        x = 0
        y = 3
        For Each c As String In numbers
            Me.Buttons.Add(New InputButton(c, New Vector2(x, y), InputButton.ButtonModes.Key, 1))

            x += 1
        Next
    End Sub

    Private Sub InitializeName()
        Dim chars() As String
        If InputMode = InputModes.Name Then
            chars = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", " ", ".", ",", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", " ", "'", "-", "u", "v", "w", "x", "y", "z", " ", " ", " ", " ", "!", "?", "_"}
        Else
            chars = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", " ", " ", " ", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", " ", " ", " ", "u", "v", "w", "x", "y", "z", " ", " ", " ", " ", " ", " ", " "}
        End If

        Dim x As Integer = 0
        Dim y As Integer = 0

        For Each c As String In chars
            Me.Buttons.Add(New InputButton(c, New Vector2(x, y), InputButton.ButtonModes.Key, 1))

            x += 1
            If x > 12 Then
                x = 0
                y += 1
            End If
        Next

        Dim numbers() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " ", " ", " "}
        x = 0
        y = 3
        For Each c As String In numbers
            Me.Buttons.Add(New InputButton(c, New Vector2(x, y), InputButton.ButtonModes.Key, 1))

            x += 1
        Next
    End Sub

    Private Sub InitializeNumbers()
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim numbers() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", " ", " ", " "}

        For Each c As String In numbers
            Me.Buttons.Add(New InputButton(c, New Vector2(x, y), InputButton.ButtonModes.Key, 1))

            x += 1
        Next
    End Sub

    Public Overrides Sub Draw()
        Me.PreScreen.Draw()
        Canvas.DrawRectangle(Core.windowSize, New Color(0, 0, 0, 150))

        If Sprites.Count > 0 Then
            Canvas.DrawRectangle(New Rectangle(CInt((Core.windowSize.Width / 2) - 384), 100, 704, 64), Color.White)
            Canvas.DrawBorder(1, New Rectangle(CInt((Core.windowSize.Width / 2) - 384), 100, 704, 64), Color.Gray)
            Core.SpriteBatch.Draw(Sprites(0), New Rectangle(CInt((Core.windowSize.Width / 2) - 384), 96, 64, 64), Color.White)
        Else
            Canvas.DrawRectangle(New Rectangle(CInt((Core.windowSize.Width / 2) - 320), 100, 640, 64), Color.White)
            Canvas.DrawBorder(1, New Rectangle(CInt((Core.windowSize.Width / 2) - 320), 100, 640, 64), Color.Gray)
        End If
        Canvas.DrawRectangle(New Rectangle(CInt((Core.windowSize.Width / 2) - 316), 104, 632, 56), Color.LightGray)

        Dim t As String = CurrentText
        If PasswordMode = True Then
            t = ""
            For cc = 0 To CurrentText.Length - 1
                t &= "*"
            Next
        End If

        If CurrentText.Length < Me.MaxChars Then
            t &= "_"
        End If
        Core.SpriteBatch.DrawString(FontManager.InGameFont, t, New Vector2(CInt((Core.windowSize.Width / 2) - 306), 112), Color.Black)

        Canvas.DrawRectangle(New Rectangle(CInt((Core.windowSize.Width / 2) - ((13 * 64) / 2)) - 4, 196, (13 * 64) + 8, 5 * 64 + 8), Color.White)
        Canvas.DrawBorder(1, New Rectangle(CInt((Core.windowSize.Width / 2) - ((13 * 64) / 2)) - 4, 196, (13 * 64) + 8, 5 * 64 + 8), Color.Gray)
        For Each b As InputButton In Me.Buttons
            b.Draw(New Vector2(CSng((Core.windowSize.Width / 2) - ((13 * 64) / 2)), 200), Me.ButtonSelector)
        Next

        Core.SpriteBatch.DrawString(FontManager.MainFont, "Chars left: " & (MaxChars - Me.CurrentText.Length).ToString(), New Vector2(CInt((Core.windowSize.Width / 2) + 180), 477), Color.Gray)

        Dim d As New Dictionary(Of Buttons, String)
        d.Add(Input.Buttons.A, "Enter")
        d.Add(Input.Buttons.B, "Delete")
        d.Add(Input.Buttons.Y, "Confirm")
        d.Add(Input.Buttons.X, "Clear")
        Me.DrawGamePadControls(d)
    End Sub

    Public Overrides Sub Update()
        If Controls.Right(True, True, False, False, True) = True Then
            Dim currentX As Integer = CInt(Me.ButtonSelector.X)
            Dim newX As Integer = 1000
            For Each b As InputButton In Me.Buttons
                If CInt(b.RelPosition.X) < newX And CInt(b.RelPosition.X) > currentX And CInt(b.RelPosition.Y) = CInt(Me.ButtonSelector.Y) Then
                    newX = CInt(b.RelPosition.X)
                End If
            Next
            If newX <> 1000 Then
                Me.ButtonSelector.X = newX
            End If
        End If
        If Controls.Left(True, True, False, False, True) = True Then
            Dim currentX As Integer = CInt(Me.ButtonSelector.X)
            Dim newX As Integer = -1
            For Each b As InputButton In Me.Buttons
                If CInt(b.RelPosition.X) > newX And CInt(b.RelPosition.X) < currentX And CInt(b.RelPosition.Y) = CInt(Me.ButtonSelector.Y) Then
                    newX = CInt(b.RelPosition.X)
                End If
            Next
            If newX <> -1 Then
                Me.ButtonSelector.X = newX
            End If
        End If
        If Controls.Down(True, True, False, False, True) = True Then
            Dim currentY As Integer = CInt(Me.ButtonSelector.Y)
            Dim newY As Integer = 1000
            For Each b As InputButton In Me.Buttons
                If CInt(b.RelPosition.Y) < newY And CInt(b.RelPosition.Y) > currentY And CInt(b.RelPosition.X) = CInt(Me.ButtonSelector.X) Then
                    newY = CInt(b.RelPosition.Y)
                End If
            Next
            If newY <> 1000 Then
                Me.ButtonSelector.Y = newY
            End If
        End If
        If Controls.Up(True, True, False, False, True) = True Then
            Dim currentY As Integer = CInt(Me.ButtonSelector.Y)
            Dim newY As Integer = -1
            For Each b As InputButton In Me.Buttons
                If CInt(b.RelPosition.Y) > newY And CInt(b.RelPosition.Y) < currentY And CInt(b.RelPosition.X) = CInt(Me.ButtonSelector.X) Then
                    newY = CInt(b.RelPosition.Y)
                End If
            Next
            If newY <> -1 Then
                Me.ButtonSelector.Y = newY
            End If
        End If

        For Each b As InputButton In Me.Buttons
            b.Update(New Vector2(CSng((Core.windowSize.Width / 2) - ((13 * 64) / 2)), 200), Me.ButtonSelector, Me)
        Next

        If Controls.Dismiss(False, False, True) = True Then
            If CurrentText.Length > 0 Then
                CurrentText = CurrentText.Remove(CurrentText.Length - 1, 1)
            End If
        End If

        If ControllerHandler.ButtonPressed(Input.Buttons.X) = True Then
            Me.CurrentText = ""
        End If

        If ControllerHandler.ButtonPressed(Input.Buttons.Y) = True Then
            If Me.ButtonSelector = New Vector2(6, 4) Then
                Me.Confirm()
            Else
                Me.ButtonSelector = New Vector2(6, 4)
            End If
        End If

        If ControllerHandler.ButtonPressed(Input.Buttons.LeftStick) = True Or ControllerHandler.ButtonPressed(Input.Buttons.RightStick) = True Then
            InputButton.CapsLock = Not InputButton.CapsLock
        End If

        Dim bText As String = Me.CurrentText
        KeyBindings.GetInput(Me.CurrentText, Me.MaxChars, True, True)

        If bText <> Me.CurrentText Then
            Dim chars() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", " ", ".", ",", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "'", "-", "u", "v", "w", "x", "y", "z", "!", "?", "_", "1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
            Dim newText As String = ""

            For Each c As Char In Me.CurrentText
                If chars.Contains(c.ToString().ToLower()) Then
                    newText &= c.ToString()
                End If
            Next
            Me.CurrentText = newText
        End If
    End Sub

    Public Sub Confirm()
        Dim t As String = Me.CurrentText
        ' Remove spaces at the start
        While t.StartsWith(" ")
            t = t.Remove(0, 1)
        End While
        ' Remove spaces at the end
        While t.EndsWith(" ")
            t = t.Remove(t.Length - 1, 1)
        End While
        If t = "" Then
            t = Me.DefaultName
        End If
        LastInput = t

        If Not Me.ConfirmSub Is Nothing Then
            Me.ConfirmSub(LastInput)
        End If

        Core.SetScreen(Me.PreScreen)
    End Sub

    Class InputButton

        Public Shared CapsLock As Boolean = True
        Shared T As Texture2D
        Shared loadedTexture As Boolean = False

        Const RasterSize As Integer = 64

        Public Enum ButtonModes
            Enter
            Delete
            [Default]
            Key
            CapsLock
        End Enum

        Public DisplayText As String = "A"
        Public ReturnText As String = "A"
        Public Size As Integer = 64
        Public RelPosition As New Vector2(0, 0)
        Public ButtonMode As ButtonModes = ButtonModes.Key

        Public Sub New(ByVal DisplayText As String, ByVal RelPosition As Vector2, ByVal ButtonMode As ButtonModes, ByVal Size As Integer)
            If loadedTexture = False Then
                loadedTexture = True
                T = TextureManager.GetTexture("GUI\Menus\GTS", New Rectangle(368, 112, 1, 32), "")
            End If

            Me.DisplayText = DisplayText
            Me.ReturnText = DisplayText
            Me.RelPosition = RelPosition
            Me.ButtonMode = ButtonMode
            Me.Size = Size * RasterSize
        End Sub

        Public Sub Draw(ByVal StartPosition As Vector2, ByVal Selector As Vector2)
            Dim p As New Vector2(RelPosition.X * RasterSize + StartPosition.X, RelPosition.Y * RasterSize + StartPosition.Y)
            For i = 0 To Me.Size - 1
                Dim buttonColor As Color = Color.White
                Select Case Me.ButtonMode
                    Case ButtonModes.Key
                        buttonColor = Color.White
                    Case ButtonModes.Enter
                        buttonColor = Color.CadetBlue
                    Case ButtonModes.Delete
                        buttonColor = Color.Tomato
                    Case Else
                        buttonColor = New Color(100, 100, 100)
                End Select

                If Selector = Me.RelPosition Then
                    Core.SpriteBatch.Draw(T, New Rectangle(CInt(p.X) + i, CInt(p.Y), 1, RasterSize), Nothing, buttonColor, 0.0F, Vector2.Zero, SpriteEffects.FlipVertically, 0.0F)
                Else
                    Core.SpriteBatch.Draw(T, New Rectangle(CInt(p.X) + i, CInt(p.Y), 1, RasterSize), buttonColor)
                End If
            Next

            If Selector = Me.RelPosition Then
                Canvas.DrawBorder(2, New Rectangle(CInt(p.X), CInt(p.Y), Size, RasterSize), New Color(255, 0, 0, 100))
            Else
                Canvas.DrawBorder(1, New Rectangle(CInt(p.X), CInt(p.Y), Size, RasterSize), Color.Gray)
            End If

            Dim text As String = Me.DisplayText
            If Me.ButtonMode = ButtonModes.Key Then
                If CapsLock = True Then
                    text = text.ToUpper()
                Else
                    text = text.ToLower()
                End If
            End If

            Dim fontColor As Color = Color.Black
            If Me.ButtonMode <> ButtonModes.Key Then
                fontColor = Color.White
            End If

            Dim middelPoint As New Vector2(CSng(Me.Size / 2) + p.X, CSng(RasterSize / 2) + p.Y)
            Dim f As SpriteFont = FontManager.MainFont
            Core.SpriteBatch.DrawString(f, text, New Vector2(middelPoint.X - CSng(f.MeasureString(text).X / 2), middelPoint.Y - CSng(f.MeasureString(text).Y / 2)), fontColor)
        End Sub

        Public Sub Update(ByVal StartPosition As Vector2, ByRef Selector As Vector2, ByVal s As InputScreen)
            Dim p As New Vector2(RelPosition.X * RasterSize + StartPosition.X, RelPosition.Y * RasterSize + StartPosition.Y)

            Dim enterKey As Boolean = False
            If Controls.Accept(True, False, False) = True And New Rectangle(CInt(p.X), CInt(p.Y), Size, RasterSize).Contains(MouseHandler.MousePosition) = True Then
                If Selector = Me.RelPosition Then
                    enterKey = True
                    SoundManager.PlaySound("select")
                Else
                    Selector = Me.RelPosition
                End If
            End If
            If Controls.Accept(False, False, True) = True Then
                If Selector = Me.RelPosition Then
                    enterKey = True
                    SoundManager.PlaySound("select")
                End If
            End If
            If KeyBoardHandler.KeyPressed(Keys.Enter) = True Then
                If Selector = Me.RelPosition Then
                    enterKey = True
                    SoundManager.PlaySound("select")
                End If
            End If

            If enterKey = True Then
                Select Case Me.ButtonMode
                    Case ButtonModes.Key
                        If s.CurrentText.Length < s.MaxChars Then
                            Dim st As String = Me.DisplayText
                            If Me.ButtonMode = ButtonModes.Key Then
                                If CapsLock = True Then
                                    st = ReturnText.ToUpper()
                                Else
                                    st = ReturnText.ToLower()
                                End If
                            End If
                            s.CurrentText &= st

                            If CapsLock = True Then
                                CapsLock = False
                            End If
                        End If
                    Case ButtonModes.Delete
                        If s.CurrentText <> "" Then
                            s.CurrentText = s.CurrentText.Remove(s.CurrentText.Length - 1, 1)
                        End If
                    Case ButtonModes.Default
                        s.CurrentText = s.DefaultName
                    Case ButtonModes.Enter
                        s.Confirm()
                    Case ButtonModes.CapsLock
                        CapsLock = Not CapsLock
                End Select
            End If
        End Sub

    End Class



End Class