Namespace GameJolt

    Public Class GTSSetupScreen

        Inherits Screen

        Dim SetupList As New List(Of GTSDataItem)

        Dim loaded As Boolean = False
        Dim Selected As Integer = -1
        Dim ScrollIndex As Integer = 0
        Dim Emblem As Emblem = Nothing

        Public Sub New(ByVal currentScreen As Screen)
            Me.PreScreen = currentScreen
            Me.Identification = Identifications.GTSSetupScreen

            Me.CanBePaused = False
            Me.CanChat = False
            Me.CanDrawDebug = True
            Me.CanMuteAudio = True
            Me.CanTakeScreenshot = True
            Me.MouseVisible = True
        End Sub

        Dim TempPokemon As Pokemon = Nothing

        Private Sub DrawStringC(ByVal t As String, ByVal p As Vector2)
            Core.SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(p.X + 2, p.Y + 2), Color.Black)
            Core.SpriteBatch.DrawString(FontManager.MiniFont, t, p, Color.White)
        End Sub

        Public Overrides Sub Draw()
            Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), Core.windowSize, New Rectangle(320, 176, 192, 160), Color.White)

            For Each F As Furr In GTSMainScreen.Furrs
                F.Draw()
            Next

            If Me.IsCurrentScreen() = True Then
                Core.SpriteBatch.DrawString(FontManager.InGameFont, "Setup", New Vector2(132, 100), Color.White)
                Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(CInt(Core.windowSize.Width / 2 - 104), CInt(32), 208, 96), New Rectangle(304, 0, 208, 96), Color.White)
            End If

            If Working = False And Received = Lines Then
                If Me.IsCurrentScreen() = True Then
                    If SetupList.Count > 0 Then
                        For i = ScrollIndex To ScrollIndex + 5
                            If i < SetupList.Count Then
                                Dim Y As Integer = 132 + (i - ScrollIndex) * 64
                                Dim D As GTSDataItem = SetupList(i)
                                Dim Touching As Boolean = New Rectangle(116, Y + 16, 64, 64).Contains(MouseHandler.MousePosition)
                                Dim C As Color = New Color(255, 255, 255, 150)
                                If i = Me.Selected Then
                                    C = New Color(0, 217, 237)
                                End If
                                If Touching = True Then
                                    C = Color.White
                                End If
                                If i = Me.Selected Then
                                    Canvas.DrawRectangle(New Rectangle(142, Y + 32, 358, 32), C)
                                Else
                                    Canvas.DrawRectangle(New Rectangle(142, Y + 32, 320, 32), C)
                                End If
                                Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(100, Y, 96, 96), New Rectangle(320, 96, 48, 48), Color.White)
                                Core.SpriteBatch.Draw(D.Pokemon.GetMenuTexture(), New Rectangle(116, Y + 16, 64, 64), C)

                                Core.SpriteBatch.DrawString(FontManager.MiniFont, D.Pokemon.GetDisplayName(), New Vector2(198, Y + 37), Color.Black)
                                Core.SpriteBatch.DrawString(FontManager.MiniFont, "Lv. " & D.Pokemon.Level, New Vector2(360, Y + 37), Color.Black)
                            End If
                        Next
                    Else
                        DrawStringC("There are no Pokémon setup for trade.", New Vector2(132, 160))
                    End If

                    If CanSetup() = True Then
                        DrawButton(New Vector2(180, 200 + (SetupList.Count - ScrollIndex) * 64), "Setup new trade", 4)
                    End If

                    If Selected > -1 Then
                        Dim D As GTSDataItem = Me.SetupList(Selected)
                        Canvas.DrawRectangle(New Rectangle(500, 164, 600, 500), New Color(255, 255, 255, 150))

                        If D.TradeID <> "" Then
                            Core.SpriteBatch.DrawString(FontManager.MiniFont, "Transaction ID: " & D.TradeID, New Vector2(510, 166), Color.Black)
                        End If

                        'Pokemon image/data:
                        Core.SpriteBatch.Draw(D.Pokemon.GetTexture(True), New Rectangle(500, 164, 128, 128), Color.White)

                        If D.Pokemon.GetDisplayName() <> D.Pokemon.OriginalName Then
                            Core.SpriteBatch.DrawString(FontManager.MainFont, D.Pokemon.GetDisplayName(), New Vector2(630, 190), Color.Black)
                            Core.SpriteBatch.DrawString(FontManager.MainFont, "/" & D.Pokemon.OriginalName, New Vector2(640, 220), Color.Black)
                        Else
                            Core.SpriteBatch.DrawString(FontManager.MainFont, D.Pokemon.GetDisplayName(), New Vector2(630, 205), Color.Black)
                        End If

                        Dim ItemString As String = "None"
                        If Not D.Pokemon.Item Is Nothing Then
                            ItemString = "   " & D.Pokemon.Item.Name
                            Core.SpriteBatch.Draw(D.Pokemon.Item.Texture, New Rectangle(882, 314, 24, 24), Color.White)
                        End If

                        Core.SpriteBatch.DrawString(FontManager.MiniFont, "Level: " & D.Pokemon.Level & Environment.NewLine & Environment.NewLine &
                                                     "Gender: " & D.Pokemon.Gender.ToString() & Environment.NewLine & Environment.NewLine &
                                                     "OT: " & D.Pokemon.CatchTrainerName & "/" & D.Pokemon.OT & Environment.NewLine & Environment.NewLine &
                                                     "Item: " & ItemString & Environment.NewLine & Environment.NewLine &
                                                     "Message: " & Environment.NewLine & D.Message, New Vector2(524, 360), Color.Black)

                        'Stars:
                        GTSMainScreen.DrawStars(D.Pokemon.TradeValue, New Vector2(630, 256))

                        'RequestPokemon:
                        Dim p As Pokemon = TempPokemon

                        Core.SpriteBatch.Draw(p.GetTexture(True), New Rectangle(800, 164, 128, 128), Color.White)

                        If D.Pokemon.GetDisplayName() <> p.OriginalName Then
                            Core.SpriteBatch.DrawString(FontManager.MainFont, p.GetDisplayName(), New Vector2(930, 190), Color.Black)
                            Core.SpriteBatch.DrawString(FontManager.MainFont, "/" & p.OriginalName, New Vector2(940, 220), Color.Black)
                        Else
                            Core.SpriteBatch.DrawString(FontManager.MainFont, p.GetDisplayName(), New Vector2(930, 205), Color.Black)
                        End If

                        Core.SpriteBatch.DrawString(FontManager.MiniFont, "Request:" & Environment.NewLine & Environment.NewLine &
                                                     "Number: " & D.RequestID & Environment.NewLine & Environment.NewLine &
                                                     "Level: " & D.RequestLevel & Environment.NewLine & Environment.NewLine &
                                                     "Gender: " & D.RequestGender, New Vector2(824, 360), Color.Black)

                        'Stars:
                        GTSMainScreen.DrawStars(p.TradeValue, New Vector2(930, 256))

                        'From:
                        If Core.Player.IsGameJoltSave = True Then
                            Core.SpriteBatch.DrawString(FontManager.MiniFont, "From:", New Vector2(516, 320), Color.Black)
                            Dim ownEmblem As Emblem = New Emblem(API.username, Core.GameJoltSave.GameJoltID, Core.GameJoltSave.Points, Core.GameJoltSave.Gender, Core.GameJoltSave.Emblem)

                            Dim SpriteSize As New Size(CInt(ownEmblem.SpriteTexture.Width / 3), CInt(ownEmblem.SpriteTexture.Height / 4))
                            Core.SpriteBatch.Draw(ownEmblem.SpriteTexture, New Rectangle(564, 310, 32, 32), New Rectangle(0, SpriteSize.Height * 2, SpriteSize.Width, SpriteSize.Height), Color.White)
                            Core.SpriteBatch.DrawString(FontManager.MiniFont, ownEmblem.Username & " (" & ownEmblem.GameJoltID & ")", New Vector2(600, 320), Color.Black)
                        End If

                        'To:
                        Core.SpriteBatch.DrawString(FontManager.MiniFont, "To:", New Vector2(816, 320), Color.Black)
                        If SetupList(Selected).SecurityArea = GTSDataItem.SecurityCode.Private Then
                            If Not Emblem Is Nothing Then
                                If Emblem.DoneLoading = True Then
                                    Dim SpriteSize As New Size(CInt(Emblem.SpriteTexture.Width / 3), CInt(Emblem.SpriteTexture.Height / 4))
                                    Core.SpriteBatch.Draw(Emblem.SpriteTexture, New Rectangle(854, 310, 32, 32), New Rectangle(0, SpriteSize.Height * 2, SpriteSize.Width, SpriteSize.Height), Color.White)
                                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Emblem.Username & " (" & Emblem.GameJoltID & ")", New Vector2(890, 320), Color.Black)
                                Else
                                    Core.SpriteBatch.DrawString(FontManager.MiniFont, "Loading" & LoadingDots.Dots, New Vector2(864, 320), Color.Black)
                                End If
                            Else
                                Core.SpriteBatch.DrawString(FontManager.MiniFont, "Loading" & LoadingDots.Dots, New Vector2(864, 320), Color.Black)
                            End If
                        Else
                            Core.SpriteBatch.DrawString(FontManager.MiniFont, "Global", New Vector2(864, 320), Color.Black)
                        End If

                        'Buttons:
                        DrawButton(New Vector2(600, 610), "Change", 3)
                        If Core.Player.Pokemons.Count < 6 Then
                            DrawButton(New Vector2(800, 610), "Withdraw", 3)
                        End If
                    End If

                    If Core.Player.Pokemons.Count > 6 Then
                        Canvas.DrawScrollBar(New Vector2(90, 96 + 54), Me.SetupList.Count, 6, ScrollIndex, New Size(6, 380), False, New Color(4, 84, 157), New Color(125, 214, 234))
                    End If
                End If
            Else
                DrawStringC("Loading" & LoadingDots.Dots, New Vector2(132, 160))
                DrawStringC("Please wait.", New Vector2(240, 160))
            End If

            Core.SpriteBatch.DrawString(FontManager.MiniFont, "Version " & GTSMainScreen.GTSVersion, New Vector2(4, Core.windowSize.Height - 1 - FontManager.MiniFont.MeasureString("Version " & GTSMainScreen.GTSVersion).Y), Color.DarkGray)
        End Sub

        Private Sub DrawButton(ByVal Position As Vector2, ByVal Text As String, ByVal Size As Integer)
            Dim t As Texture2D = TextureManager.GetTexture("GUI\Menus\GTS")

            Dim touching As Boolean = New Rectangle(CInt(Position.X), CInt(Position.Y), 64 + Size * 32, 32).Contains(MouseHandler.MousePosition)

            Dim Y As Integer = 0
            If touching = True Then
                Y = 16
            End If

            Core.SpriteBatch.Draw(t, New Rectangle(CInt(Position.X), CInt(Position.Y), 32, 32), New Rectangle(0, Y, 16, 16), Color.White)

            For i = 1 To Size
                Core.SpriteBatch.Draw(t, New Rectangle(CInt(Position.X + i * 32), CInt(Position.Y), 32, 32), New Rectangle(16, Y, 16, 16), Color.White)
            Next

            Core.SpriteBatch.Draw(t, New Rectangle(CInt(Position.X + Size * 32 + 32), CInt(Position.Y), 32, 32), New Rectangle(32, Y, 16, 16), Color.White)

            Dim sizeX As Integer = Size * 32 + 64
            Dim TextSizeX As Integer = CInt(FontManager.MiniFont.MeasureString(Text).X)

            Core.SpriteBatch.DrawString(FontManager.MiniFont, Text, New Vector2(CSng(Position.X + sizeX / 2 - TextSizeX / 2 - 2), Position.Y + 4), Color.Black)
        End Sub

        Private Function CanSetup() As Boolean
            If Me.SetupList.Count < 6 And Core.Player.CountFightablePokemon > 1 Then
                Return True
            End If
            Return False
        End Function

        Public Overrides Sub Update()
            For i = 0 To GTSMainScreen.Furrs.Count - 1
                If i < GTSMainScreen.Furrs.Count Then
                    Dim f As Furr = GTSMainScreen.Furrs(i)
                    If f.IsOutOfBorder() = True Then
                        GTSMainScreen.Furrs.Remove(f)
                        i -= 1
                    Else
                        f.Update()
                    End If
                End If
            Next

            If Core.Random.Next(0, 100) = 0 Then
                GTSMainScreen.Furrs.Add(New Furr())
            End If

            SetupList = (From d As GTSDataItem In SetupList Order By CInt(d.TradeID) Ascending).ToList()

            If loaded = False Then
                loaded = True
                Selected = -1
                Me.SetupList.Clear()
                Working = True

                Dim APICall As New APICall(AddressOf GotKeys)
                APICall.GetKeys(False, "GTSTradeV" & GTSMainScreen.GTSVersion & "|Set|" & Core.GameJoltSave.GameJoltID & "|*|*|*|Pokemon 3D|*|*")
            Else
                If Working = False And Received = Lines Then
                    If Me.SetupList.Count > 0 Then
                        For i = 0 To 5
                            If i < Me.SetupList.Count Then
                                If New Rectangle(116, 148 + i * 64, 64, 64).Contains(MouseHandler.MousePosition) = True Then
                                    If Controls.Accept(True, True) = True Then
                                        If Selected = i + ScrollIndex Then
                                            Selected = -1
                                        Else
                                            Selected = i + ScrollIndex
                                            SoundManager.PlaySound("select")
                                            TempPokemon = Pokemon.GetPokemonByID(CInt(SetupList(Selected).RequestID))
                                            If SetupList(Selected).SecurityArea = GTSDataItem.SecurityCode.Private Then
                                                Emblem = New Emblem(SetupList(Selected).ToUserID, 0)
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        Next

                        If SetupList.Count > 6 Then
                            If Controls.Up(True, True, True, True) = True Then
                                If Controls.ShiftDown() = True Then
                                    Me.ScrollIndex -= 5
                                Else
                                    Me.ScrollIndex -= 1
                                End If
                            End If
                            If Controls.Down(True, True, True, True) = True Then
                                If Controls.ShiftDown() = True Then
                                    Me.ScrollIndex += 5
                                Else
                                    Me.ScrollIndex += 1
                                End If
                            End If

                            Me.ScrollIndex = ScrollIndex.Clamp(0, Me.SetupList.Count - 6)
                        End If

                        If Selected > -1 Then
                            If New Rectangle(600, 610, 32 * 3 + 64, 32).Contains(MouseHandler.MousePosition) = True Then
                                If Controls.Accept(True, False) = True Then
                                    SoundManager.PlaySound("select")
                                    Core.SetScreen(New GTSEditTradeScreen(Me, SetupList(Selected)))
                                End If
                            End If
                            If New Rectangle(800, 610, 32 * 3 + 64, 32).Contains(MouseHandler.MousePosition) = True Then
                                If Controls.Accept(True, False) = True Then
                                    If Core.Player.Pokemons.Count < 6 Then
                                        SoundManager.PlaySound("select")
                                        Working = True
                                        FetchBack = Me.SetupList(Selected)
                                        Dim APICall As New APICall(AddressOf FetchTradeBack)
                                        APICall.RemoveKey(Me.SetupList(Selected).Key, False)
                                    End If
                                End If
                            End If
                        End If
                    End If

                    If CanSetup() = True Then
                        If New Rectangle(180, 200 + (SetupList.Count - ScrollIndex) * 64, 32 * 4 + 64, 32).Contains(MouseHandler.MousePosition) = True Then
                            If Controls.Accept(True, False) = True Then
                                SoundManager.PlaySound("select")
                                Core.SetScreen(New GTSEditTradeScreen(Me, Nothing))
                            End If
                        End If
                    End If

                    If Controls.Dismiss(True, True) = True Then
                        If Selected > -1 Then
                            SoundManager.PlaySound("select")
                            Selected = -1
                        Else
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.PreScreen)
                        End If
                    End If
                End If
            End If
        End Sub

        Dim Lines As Integer = 0
        Dim Received As Integer = 0
        Dim Working As Boolean = True

        Dim BufferList As New Dictionary(Of String, String)

        Private Sub GotKeys(ByVal result As String)
            Dim l As List(Of API.JoltValue) = API.HandleData(result)

            Lines = l.Count - 1
            Received = 0
            Working = False

            If l(1).Value <> "" Then
                For Each Item As API.JoltValue In l
                    If Item.Name.ToLower() = "key" Then
                        If BufferList.ContainsKey(Item.Value) = True Then
                            GotData("success:""true""" & Environment.NewLine & "data:""" & BufferList(Item.Value) & """")
                        Else
                            Dim APICall As New APICall(AddressOf GotData)
                            APICall.GetStorageData(Item.Value, False)
                        End If
                    End If
                Next
            Else
                Lines = 0
            End If
        End Sub

        Private Sub GotData(ByVal result As String)
            Dim l As List(Of API.JoltValue) = API.HandleData(result)

            Dim data As String = l(1).Value
            Dim D As New GTSDataItem(data)

            If BufferList.ContainsKey(D.Key) = False Then
                BufferList.Add(D.Key, data)
            End If

            Received += 1

            Me.SetupList.Add(D)
        End Sub

        Dim FetchBack As GTSDataItem = Nothing

        Private Sub FetchTradeBack(ByVal result As String)
            Core.Player.Pokemons.Add(FetchBack.Pokemon)
            Core.Player.SaveGame(False)
            loaded = False
        End Sub

        Class GTSEditTradeScreen

            Inherits Screen

            Dim D As GTSDataItem
            Dim NewTrade As Boolean = False
            Dim GTSSetupScreen As GTSSetupScreen

            Dim ToEmblem As Emblem = Nothing
            Dim TempPokemon As Pokemon = Nothing
            Dim PaidStars As Integer = 0

            Public Sub New(ByVal GTSSetupScreen As GTSSetupScreen, ByVal D As GTSDataItem)
                Me.GTSSetupScreen = GTSSetupScreen

                If Not D Is Nothing Then
                    Me.D = D
                    NewTrade = False
                    If D.RequestID <> "" Then
                        TempPokemon = Pokemon.GetPokemonByID(CInt(D.RequestID))

                        If D.SecurityArea = GTSDataItem.SecurityCode.Global Then
                            Dim v As Integer = TempPokemon.TradeValue - D.Pokemon.TradeValue

                            If v.ToString().EndsWith("5") = True Then
                                v += 5
                            End If

                            If v > 0 Then
                                PaidStars = v
                            End If
                        End If
                    End If
                Else
                    Me.D = New GTSDataItem(Core.GameJoltSave.GameJoltID, "", "", "9 and under", "", "", "", "Kolben", "", GTSDataItem.SecurityCode.Global, GTSDataItem.ActionSwitches.Set, "")
                    NewTrade = True
                End If

                Me.Identification = Identifications.GTSEditTradeScreen

                Me.CanBePaused = False
                Me.CanChat = False
                Me.CanDrawDebug = True
                Me.CanMuteAudio = True
                Me.CanTakeScreenshot = True
                Me.MouseVisible = True
            End Sub

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

                If Uploading = True Then
                    Canvas.DrawRectangle(New Rectangle(CInt(Core.windowSize.Width / 2 - 200), 250, 400, 200), New Color(255, 255, 255, 150))

                    Core.SpriteBatch.DrawString(FontManager.MainFont, "Uploading" & LoadingDots.Dots, New Vector2(CSng(Core.windowSize.Width / 2 - FontManager.MainFont.MeasureString("Uploading").X / 2), 300), Color.Black)
                    If AssignedTradeID = True Then
                        Core.SpriteBatch.DrawString(FontManager.MainFont, "Transaction ID: " & NewTradeID, New Vector2(CSng(Core.windowSize.Width / 2 - FontManager.MainFont.MeasureString("Transaction ID: " & NewTradeID).X / 2), 370), Color.Black)
                    End If

                    Exit Sub
                End If

                Canvas.DrawRectangle(New Rectangle(50, 100, 320, 500), New Color(255, 255, 255, 150))
                Canvas.DrawRectangle(New Rectangle(400, 100, 750, 500), New Color(255, 255, 255, 150))

                If Not D.Pokemon Is Nothing Then
                    Core.SpriteBatch.Draw(D.Pokemon.GetTexture(True), New Rectangle(50, 120, 128, 128), Color.White)

                    If D.Pokemon.GetDisplayName() <> D.Pokemon.OriginalName Then
                        Core.SpriteBatch.DrawString(FontManager.MainFont, D.Pokemon.GetDisplayName(), New Vector2(180, 146), Color.Black)
                        Core.SpriteBatch.DrawString(FontManager.MainFont, "/" & D.Pokemon.OriginalName, New Vector2(190, 176), Color.Black)
                    Else
                        Core.SpriteBatch.DrawString(FontManager.MainFont, D.Pokemon.GetDisplayName(), New Vector2(180, 161), Color.Black)
                    End If

                    Dim ItemString As String = "None"
                    If Not D.Pokemon.Item Is Nothing Then
                        ItemString = "   " & D.Pokemon.Item.Name
                        Core.SpriteBatch.Draw(D.Pokemon.Item.Texture, New Rectangle(124, 475, 24, 24), Color.White)
                    End If

                    Core.SpriteBatch.DrawString(FontManager.MiniFont, "Level: " & D.Pokemon.Level & Environment.NewLine & Environment.NewLine &
                                                 "Gender: " & D.Pokemon.Gender.ToString() & Environment.NewLine & Environment.NewLine &
                                                 "OT: " & D.Pokemon.CatchTrainerName & "/" & D.Pokemon.OT & Environment.NewLine & Environment.NewLine &
                                                 "Item: " & ItemString, New Vector2(74, 356), Color.Black)

                    'Stars:
                    GTSMainScreen.DrawStars(D.Pokemon.TradeValue, New Vector2(180, 222))
                End If

                DrawButton(New Vector2(100, 300), "Choose Pokémon", 5)

                If D.TradeID <> "" Then
                    Core.SpriteBatch.DrawString(FontManager.MiniFont, "Transaction ID: " & D.TradeID, New Vector2(925, 102), Color.Black)
                End If

                Core.SpriteBatch.DrawString(FontManager.MainFont, "Request:", New Vector2(420, 140), Color.Black)

                If StringHelper.IsNumeric(D.RequestID) = True Then
                    DrawFilter(New Vector2(420, 200), 4, "Pokémon:", Pokemon.GetPokemonByID(CInt(D.RequestID)).GetDisplayName() & " (" & D.RequestID & ")")
                Else
                    DrawFilter(New Vector2(420, 200), 4, "Pokémon:", "")
                End If

                DrawFilter(New Vector2(420, 280), 4, "Level:", D.RequestLevel)
                DrawFilter(New Vector2(420, 360), 4, "Gender:", D.RequestGender)

                DrawFilter(New Vector2(600, 200), 4, "Area:", D.SecurityArea.ToString())

                If D.SecurityArea = GTSDataItem.SecurityCode.Private Then
                    Dim RecipientName As String = ""
                    If Not Me.ToEmblem Is Nothing Then
                        RecipientName = Me.ToEmblem.Username
                    End If

                    DrawFilter(New Vector2(600, 280), 4, "To (" & D.ToUserID & "):", RecipientName)
                End If

                If StringHelper.IsNumeric(D.RequestID) = True Then
                    If CInt(D.RequestID) > 0 Then
                        If TempPokemon Is Nothing OrElse TempPokemon.Number <> CInt(D.RequestID) Then
                            TempPokemon = Pokemon.GetPokemonByID(CInt(D.RequestID))
                        End If
                        Dim p As Pokemon = TempPokemon

                        Core.SpriteBatch.Draw(p.GetTexture(True), New Rectangle(800, 120, 128, 128), Color.White)
                        Core.SpriteBatch.DrawString(FontManager.MainFont, p.OriginalName, New Vector2(180 + 750, 176), Color.Black)

                        'Stars:
                        GTSMainScreen.DrawStars(p.TradeValue, New Vector2(930, 222))

                        'If Not D.Pokemon Is Nothing Then
                        '    If p.TradeValue > D.Pokemon.TradeValue And D.SecurityArea = GTSDataItem.SecurityCode.Global Then
                        '        Basic.SpriteBatch.DrawString(Basic.miniFont, "Needed stars:", New Vector2(780, 280), Color.Black)

                        '        Dim v As Integer = p.TradeValue - D.Pokemon.TradeValue

                        '        If v.ToString().EndsWith("5") = True Then
                        '            v += 5
                        '        End If

                        '        GTSMainScreen.DrawStars(v, New Vector2(780, 314))

                        '        If PaidStars > 0 Then
                        '            Basic.SpriteBatch.DrawString(Basic.miniFont, "Paid stars:", New Vector2(780, 380), Color.Black)

                        '            GTSMainScreen.DrawStars(PaidStars, New Vector2(780, 414))

                        '            Basic.SpriteBatch.DrawString(Basic.miniFont, "Additional stars:", New Vector2(970, 380), Color.Black)

                        '            If v - PaidStars > 0 Then
                        '                GTSMainScreen.DrawStars(v - PaidStars, New Vector2(970, 414))
                        '            End If
                        '        End If

                        '        Basic.SpriteBatch.DrawString(Basic.miniFont, "Your stars:", New Vector2(970, 280), Color.Black)

                        '        GTSMainScreen.DrawStars(Basic.Player.GTSStars * 10, New Vector2(970, 314))
                        '    End If
                        'End If
                    End If
                End If

                If TradeReady() = True Then
                    If NewTrade = True Then
                        If IsPresent() = True Then
                            If Not ToEmblem Is Nothing And Not D.Pokemon Is Nothing Then
                                Core.SpriteBatch.DrawString(FontManager.MiniFont, "You will send " & D.Pokemon.GetDisplayName() & " to " & Environment.NewLine & ToEmblem.Username & " and you cannot get it back!", New Vector2(480, 495), Color.Black)
                            End If
                            DrawButton(New Vector2(480, 540), "Send", 3)
                        Else
                            DrawButton(New Vector2(480, 540), "Setup", 3)
                        End If
                    Else
                        DrawButton(New Vector2(480, 540), "Change", 3)
                    End If
                Else
                    Dim message As String = "1 ERROR"
                    If Not D.Pokemon Is Nothing Then
                        If D.RequestID <> "" Then
                            If D.RequestLevel <> "" Then
                                If D.Pokemon.IsEgg() = False Then
                                    If D.Pokemon.HasHMMove() = False Then
                                        If D.SecurityArea = GTSDataItem.SecurityCode.Private And D.ToUserID <> "" Or D.SecurityArea = GTSDataItem.SecurityCode.Global Then
                                            Dim v As Integer = TempPokemon.TradeValue - D.Pokemon.TradeValue

                                            If v.ToString().EndsWith("5") = True Then
                                                v += 5
                                            End If

                                            If v - PaidStars > Core.Player.GTSStars * 10 Then
                                                message = "You don't have enough stars!"
                                            End If
                                        Else
                                            message = "Choose recipient!"
                                        End If
                                    Else
                                        message = "Choose a Pokémon without HM moves!"
                                    End If
                                Else
                                    message = "You can't trade an egg!"
                                End If
                            Else
                                message = "Choose request level cap!"
                            End If
                        Else
                            message = "Choose request Pokémon!"
                        End If
                    Else
                        message = "Choose own Pokémon!"
                    End If
                    Core.SpriteBatch.DrawString(FontManager.MiniFont, message, New Vector2(430, 545), Color.Black)
                End If

                DrawButton(New Vector2(700, 540), "Back", 3)
            End Sub

            Private Function IsPresent() As Boolean
                If D.SecurityArea = GTSDataItem.SecurityCode.Private And D.ToUserID <> "" And D.RequestID = "" Then
                    Return True
                End If
                Return False
            End Function

            Private Function TradeReady() As Boolean
                If Not D.Pokemon Is Nothing Then
                    If D.SecurityArea = GTSDataItem.SecurityCode.Private Then
                        If D.ToUserID <> "" Then
                            Return True
                        End If
                    Else
                        If D.RequestID <> "" And D.RequestLevel <> "" And D.Pokemon.IsEgg() = False And D.Pokemon.HasHMMove() = False Then
                            Return True

                            'Dim v As Integer = TempPokemon.TradeValue - D.Pokemon.TradeValue

                            'If v.ToString().EndsWith("5") = True Then
                            '    v += 5
                            'End If

                            'Dim HasPermission As Boolean = False
                            'For Each StaffMember As StaffProfile In StaffProfile.Staff
                            '    If StaffMember.GameJoltID = GamejoltSave.user_id Then
                            '        If StaffMember.StaffAreas.Contains(StaffProfile.StaffArea.GTSAdmin) = True Or StaffMember.StaffAreas.Contains(StaffProfile.StaffArea.GTSDaily) = True Then
                            '            HasPermission = True
                            '            Exit For
                            '        End If
                            '    End If
                            'Next

                            'If v - PaidStars <= Basic.Player.GTSStars * 10 Or D.SecurityArea = GTSDataItem.SecurityCode.Private Or HasPermission = True Then
                            '    Return True
                            'End If
                        End If
                    End If
                End If

                Return False
            End Function

            Private Sub DrawFilter(ByVal Position As Vector2, ByVal Size As Integer, ByVal Label As String, ByVal Text As String)
                Dim TexX As Integer = 368
                If New Rectangle(CInt(Position.X), CInt(Position.Y), (Size + 1) * 32, 64).Contains(MouseHandler.MousePosition) = True And Me.IsCurrentScreen() = True Then
                    TexX = 400
                End If

                For i = 0 To Size - 1
                    Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(CInt(Position.X + i * 32), CInt(Position.Y), 32, 64), New Rectangle(TexX, 112, 16, 32), Color.White)
                Next
                Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(CInt(Position.X + Size * 32), CInt(Position.Y), 32, 64), New Rectangle(TexX + 16, 112, 16, 32), Color.White)

                Core.SpriteBatch.DrawString(FontManager.MiniFont, Label, New Vector2(Position.X + 4, Position.Y + 4), New Color(100, 100, 100))
                Core.SpriteBatch.DrawString(FontManager.MiniFont, Text, New Vector2(Position.X + 4, Position.Y + 32), Color.Black)
            End Sub

            Private Sub DrawButton(ByVal Position As Vector2, ByVal Text As String, ByVal Size As Integer)
                Dim t As Texture2D = TextureManager.GetTexture("GUI\Menus\GTS")

                Dim touching As Boolean = New Rectangle(CInt(Position.X), CInt(Position.Y), 64 + Size * 32, 32).Contains(MouseHandler.MousePosition)

                Dim Y As Integer = 0
                If touching = True And Me.IsCurrentScreen() = True Then
                    Y = 16
                End If

                Core.SpriteBatch.Draw(t, New Rectangle(CInt(Position.X), CInt(Position.Y), 32, 32), New Rectangle(0, Y, 16, 16), Color.White)

                For i = 1 To Size
                    Core.SpriteBatch.Draw(t, New Rectangle(CInt(Position.X + i * 32), CInt(Position.Y), 32, 32), New Rectangle(16, Y, 16, 16), Color.White)
                Next

                Core.SpriteBatch.Draw(t, New Rectangle(CInt(Position.X + Size * 32 + 32), CInt(Position.Y), 32, 32), New Rectangle(32, Y, 16, 16), Color.White)

                Dim sizeX As Integer = Size * 32 + 64
                Dim TextSizeX As Integer = CInt(FontManager.MiniFont.MeasureString(Text).X)

                Core.SpriteBatch.DrawString(FontManager.MiniFont, Text, New Vector2(CSng(Position.X + sizeX / 2 - TextSizeX / 2 - 2), Position.Y + 4), Color.Black)
            End Sub

            Public Overrides Sub Update()
                For i = 0 To GTSMainScreen.Furrs.Count - 1
                    If i < GTSMainScreen.Furrs.Count Then
                        Dim f As Furr = GTSMainScreen.Furrs(i)
                        If f.IsOutOfBorder() = True Then
                            GTSMainScreen.Furrs.Remove(f)
                            i -= 1
                        Else
                            f.Update()
                        End If
                    End If
                Next

                If Core.Random.Next(0, 100) = 0 Then
                    GTSMainScreen.Furrs.Add(New Furr())
                End If

                If Uploading = False Then
                    If D.SecurityArea = GTSDataItem.SecurityCode.Private Then
                        If D.ToUserID <> "" Then
                            Dim makeNew As Boolean = False
                            If Me.ToEmblem Is Nothing Then
                                makeNew = True
                            Else
                                If CInt(Me.ToEmblem.GameJoltID) <> CInt(D.ToUserID) Then
                                    makeNew = True
                                End If
                            End If

                            If makeNew = True Then
                                ToEmblem = New Emblem(D.ToUserID, 0)
                            End If
                        End If
                    End If

                    If Controls.Accept(True, False) = True Then
                        If New Rectangle(420, 200, 5 * 32, 64).Contains(MouseHandler.MousePosition) = True Then
                            Core.SetScreen(New SelectPokemonScreen(Me, "Request"))
                        End If
                        If New Rectangle(420, 280, 5 * 32, 64).Contains(MouseHandler.MousePosition) = True Then
                            Core.SetScreen(New SelectLevelScreen(Me))
                        End If
                        If New Rectangle(420, 360, 5 * 32, 64).Contains(MouseHandler.MousePosition) = True Then
                            Core.SetScreen(New SelectGenderScreen(Me))
                        End If
                        If New Rectangle(600, 200, 5 * 32, 64).Contains(MouseHandler.MousePosition) = True Then
                            Core.SetScreen(New SelectAreaScreen(Me))
                        End If
                        If New Rectangle(600, 280, 5 * 32, 64).Contains(MouseHandler.MousePosition) = True Then
                            Core.SetScreen(New SelectFriendScreen(Me))
                        End If
                        If New Rectangle(100, 300, 32 * 5 + 64, 32).Contains(MouseHandler.MousePosition) = True Then
                            Dim selScreen = New PartyScreen(Me, Item.GetItemByID(5), AddressOf ChosenPokemon, "Choose Pokémon for Trade", True, True, False) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
                            AddHandler selScreen.SelectedObject, AddressOf ChosenPokemonHandler

                            Core.SetScreen(selScreen)
                            CType(Core.CurrentScreen, PartyScreen).CanChooseHMPokemon = False
                            CType(Core.CurrentScreen, PartyScreen).CanChooseFusedPokemon = False
                        End If
                        If New Rectangle(700, 540, 32 * 3 + 64, 32).Contains(MouseHandler.MousePosition) = True Then
                            Me.GTSSetupScreen.loaded = False
                            Core.SetScreen(Me.GTSSetupScreen)
                        End If
                        If TradeReady() = True AndAlso New Rectangle(480, 540, 32 * 3 + 64, 32).Contains(MouseHandler.MousePosition) = True Then
                            Uploading = True
                            AssignedTradeID = False

                            Dim APICall As New APICall(AddressOf GotTradeID)
                            APICall.GetStorageData("GTSTRADEID", False)
                        End If
                        SoundManager.PlaySound("select")
                    End If

                    If Controls.Dismiss(True, True) = True Then
                        Me.GTSSetupScreen.loaded = False
                        Core.SetScreen(Me.GTSSetupScreen)
                    End If
                End If
            End Sub

            Private Sub ChosenPokemonHandler(ByVal params As Object())
                ChosenPokemon(CInt(params(0)))
            End Sub

            Private Sub ChosenPokemon(ByVal PokeIndex As Integer)
                If Me.PokeIndex = -1 And NewTrade = False Then
                    LoadedPokemon = D.Pokemon
                End If
                Me.PokeIndex = PokeIndex

                D.Pokemon = Core.Player.Pokemons(PokeIndex)
                D.PokemonData = D.Pokemon.GetSaveData()
            End Sub

            Dim NewTradeID As String = "1"
            Dim AssignedTradeID As Boolean = False
            Dim Uploading As Boolean = False
            Dim PokeIndex As Integer = -1
            Dim LoadedPokemon As Pokemon

            Private Sub GotTradeID(ByVal result As String)
                Dim l As List(Of API.JoltValue) = API.HandleData(result)

                If CBool(l(0).Value) = True Then
                    NewTradeID = CStr(CDbl(l(1).Value) + 1)
                Else
                    NewTradeID = "1"
                End If
                AssignedTradeID = True

                Logger.Debug("New trade set to: " & NewTradeID)

                If NewTrade = False Then
                    Dim APICall As New APICall(AddressOf KeyRemoved)
                    APICall.RemoveKey(D.Key, False)
                Else
                    KeyRemoved("success:""true""")
                End If
            End Sub

            Private Sub KeyRemoved(ByVal result As String)
                Dim l As List(Of API.JoltValue) = API.HandleData(result)

                If CBool(l(0).Value) = True Then
                    Dim APICall As New APICall()

                    If IsPresent() = True Then
                        Dim nD As New GTSDataItem(D.FromUserID, D.ToUserID, "", "", "", "", D.PokemonData, D.GameMode, "Sent as gift.", GTSDataItem.SecurityCode.Private, GTSDataItem.ActionSwitches.Got, NewTradeID)

                        APICall.SetStorageData(nD.Key, nD.Data, False)
                    Else
                        Dim nD As New GTSDataItem(D.FromUserID, D.ToUserID, D.RequestID, D.RequestLevel, D.RequestItemID, D.RequestGender, D.PokemonData, D.GameMode, D.Message, D.SecurityArea, D.ActionSwitch, NewTradeID)

                        APICall.SetStorageData(nD.Key, nD.Data, False)
                    End If

                    If PokeIndex > -1 And NewTrade = False Then
                        Core.Player.Pokemons.Add(LoadedPokemon)
                    End If

                    Dim nAPICall As New APICall(AddressOf UploadComplete)
                    nAPICall.SetStorageData("GTSTRADEID", NewTradeID, False)
                End If
            End Sub

            Private Sub UploadComplete(ByVal result As String)
                Uploading = False

                If PokeIndex > -1 Then
                    Core.Player.Pokemons.RemoveAt(PokeIndex)
                End If

                If Not TempPokemon Is Nothing Then
                    Dim v As Integer = TempPokemon.TradeValue - D.Pokemon.TradeValue

                    If v.ToString().EndsWith("5") = True Then
                        v += 5
                    End If

                    v -= PaidStars

                    If v > 0 Then
                        Core.Player.GTSStars -= CInt(v / 10)
                    End If
                End If

                Core.Player.SaveGame(False)

                Me.GTSSetupScreen.loaded = False
                Core.SetScreen(Me.GTSSetupScreen)
            End Sub

            Class SelectPokemonScreen

                Inherits Screen

                Dim GTSEditTradeScreen As GTSEditTradeScreen
                Dim Mode As String = "Request"
                Dim Page As Integer = 0
                Dim CurrentPokemon As New SortedDictionary(Of Integer, String)
                Dim SpriteList As New List(Of Texture2D)

                Shared TempOfferPage As Integer = 0
                Shared TempRequestPage As Integer = 0

                Public Sub New(ByVal GTSEditTradeScreen As GTSEditTradeScreen, ByVal Mode As String)
                    Me.GTSEditTradeScreen = GTSEditTradeScreen
                    Me.Identification = Identifications.GTSSelectPokemonScreen
                    Me.Mode = Mode

                    Me.CanBePaused = False
                    Me.CanChat = False
                    Me.CanDrawDebug = True
                    Me.CanMuteAudio = True
                    Me.CanTakeScreenshot = True
                    Me.MouseVisible = True

                    If Me.Mode = "Request" Then
                        Me.Page = TempRequestPage
                    ElseIf Me.Mode = "Offer" Then
                        Me.Page = TempOfferPage
                    End If

                    GetPokemon()
                End Sub

                Private Sub GetPokemon()
                    CurrentPokemon.Clear()
                    SpriteList.Clear()

                    Dim index As Integer = Page * 20
                    Dim noMorePokemon As Boolean = False

                    Dim fileList As New List(Of Integer)
                    Dim d As List(Of String) = System.IO.Directory.GetFiles(GameController.GamePath & "\Content\Pokemon\Data\").ToList()
                    For Each file As String In d
                        Dim fileName As String = System.IO.Path.GetFileNameWithoutExtension(file)
                        If StringHelper.IsNumeric(fileName) = True Then
                            If CInt(fileName) > 0 And CInt(fileName) <= Pokedex.POKEMONCOUNT Then
                                If GTSMainScreen.GTSPokemon.Contains(CInt(fileName)) = True Then
                                    fileList.Add(CInt(fileName))
                                End If
                            End If
                        End If
                    Next
                    fileList.Sort()

                    While CurrentPokemon.Count < 20 And noMorePokemon = False
                        If index <= fileList.Count - 1 Then
                            Dim fileName As Integer = fileList(index)
                            Dim p As Pokemon = Pokemon.GetPokemonByID(fileName)
                            CurrentPokemon.Add(p.Number, p.OriginalName)
                            SpriteList.Add(p.GetMenuTexture())
                            index += 1
                        Else
                            noMorePokemon = True
                        End If
                    End While
                End Sub

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

                    For i = 0 To 19
                        If i < CurrentPokemon.Count Then
                            Dim x As Integer = i
                            Dim y As Integer = 0
                            While x > 4
                                x -= 5
                                y += 1
                            End While

                            Dim Number As String = CurrentPokemon.Keys(i).ToString()
                            While Number.Length < 3
                                Number = "0" & Number
                            End While

                            DrawButton(New Vector2(100 + x * 160, 200 + y * 100), 4, "Pokémon " & Number, CurrentPokemon.Values(i), SpriteList(i))
                        End If
                    Next

                    DrawButton(New Vector2(900, 200), 4, "Navigation", "Last Page", Nothing)
                    DrawButton(New Vector2(900, 300), 4, "Navigation", "Next Page", Nothing)
                    DrawButton(New Vector2(900, 400), 4, "Pokémon", "No entry", Nothing)
                    DrawButton(New Vector2(900, 500), 4, "Navigation", "Back", Nothing)
                End Sub

                Private Sub DrawButton(ByVal Position As Vector2, ByVal Size As Integer, ByVal Label As String, ByVal Text As String, ByVal Texture As Texture2D)
                    Dim TexX As Integer = 368
                    If New Rectangle(CInt(Position.X), CInt(Position.Y), Size * 32, 64).Contains(MouseHandler.MousePosition) = True And Me.IsCurrentScreen() = True Then
                        TexX = 400
                    End If

                    For i = 0 To Size - 1
                        Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(CInt(Position.X + i * 32), CInt(Position.Y), 32, 64), New Rectangle(TexX, 112, 16, 32), Color.White)
                    Next

                    If Not Texture Is Nothing Then
                        Dim s As New Size(Size * 32, 64)
                        Core.SpriteBatch.Draw(Texture, New Rectangle(CInt(s.Width / 2 - Texture.Width + Position.X), CInt(s.Height / 2 - Texture.Height + Position.Y), Texture.Width * 2, Texture.Height * 2), New Color(255, 255, 255, 100))
                    End If

                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Label, New Vector2(Position.X + 4, Position.Y + 4), New Color(100, 100, 100))
                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Text, New Vector2(Position.X + 4, Position.Y + 32), Color.Black)
                End Sub

                Public Overrides Sub Update()
                    For i = 0 To GTSMainScreen.Furrs.Count - 1
                        If i < GTSMainScreen.Furrs.Count Then
                            Dim f As Furr = GTSMainScreen.Furrs(i)
                            If f.IsOutOfBorder() = True Then
                                GTSMainScreen.Furrs.Remove(f)
                                i -= 1
                            Else
                                f.Update()
                            End If
                        End If
                    Next

                    If Core.Random.Next(0, 100) = 0 Then
                        GTSMainScreen.Furrs.Add(New Furr())
                    End If

                    If Controls.Accept(True, False) = True Then
                        For i = 0 To 19
                            If i < CurrentPokemon.Count Then
                                Dim x As Integer = i
                                Dim y As Integer = 0
                                While x > 4
                                    x -= 5
                                    y += 1
                                End While

                                If New Rectangle(100 + x * 160, 200 + y * 100, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                                    Dim newSetting As String = CurrentPokemon.Values(i) & " (" & CurrentPokemon.Keys(i).ToString() & ")"

                                    If Mode = "Request" Then
                                        Me.GTSEditTradeScreen.D.RequestID = CurrentPokemon.Keys(i).ToString()
                                    ElseIf Mode = "Offer" Then
                                        Me.GTSEditTradeScreen.D.RequestID = CurrentPokemon.Keys(i).ToString()
                                    End If
                                    SoundManager.PlaySound("select")
                                    Close()
                                End If
                            End If
                        Next

                        If New Rectangle(900, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            If Me.Page > 0 Then
                                Me.Page -= 1
                                GetPokemon()
                                If Me.Mode = "Request" Then
                                    TempRequestPage = Me.Page
                                ElseIf Me.Mode = "Offer" Then
                                    TempOfferPage = Me.Page
                                End If
                            End If
                        End If
                        If New Rectangle(900, 300, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            If CurrentPokemon.Count = 20 Then
                                Me.Page += 1
                                GetPokemon()
                                If Me.Mode = "Request" Then
                                    TempRequestPage = Me.Page
                                ElseIf Me.Mode = "Offer" Then
                                    TempOfferPage = Me.Page
                                End If
                            End If
                        End If
                        If New Rectangle(900, 400, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            If Mode = "Request" Then
                                Me.GTSEditTradeScreen.D.RequestID = ""
                            ElseIf Mode = "Offer" Then
                                Me.GTSEditTradeScreen.D.RequestID = ""
                            End If

                            Close()
                        End If
                        If New Rectangle(900, 500, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            Close()
                        End If
                    End If

                    If Controls.Dismiss(True, True) = True Then
                        Close()
                    End If
                End Sub

                Private Sub Close()
                    If Me.Mode = "Request" Then
                        TempRequestPage = Me.Page
                    ElseIf Me.Mode = "Offer" Then
                        TempOfferPage = Me.Page
                    End If
                    Core.SetScreen(Me.GTSEditTradeScreen)
                End Sub

            End Class

            Class SelectLevelScreen

                Inherits Screen

                Dim GTSEditTradeScreen As GTSEditTradeScreen

                Public Sub New(ByVal GTSEditTradeScreen As GTSEditTradeScreen)
                    Me.GTSEditTradeScreen = GTSEditTradeScreen
                    Me.Identification = Identifications.GTSSelectLevelScreen

                    Me.CanBePaused = False
                    Me.CanChat = False
                    Me.CanDrawDebug = True
                    Me.CanMuteAudio = True
                    Me.CanTakeScreenshot = True
                    Me.MouseVisible = True
                End Sub

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

                    DrawButton(New Vector2(100, 200), 4, "Level", "9 and under")
                    DrawButton(New Vector2(260, 200), 4, "Level", "10 - 19")
                    DrawButton(New Vector2(420, 200), 4, "Level", "20 - 29")
                    DrawButton(New Vector2(580, 200), 4, "Level", "30 - 39")
                    DrawButton(New Vector2(740, 200), 4, "Level", "40 - 49")
                    DrawButton(New Vector2(100, 300), 4, "Level", "50 - 59")
                    DrawButton(New Vector2(260, 300), 4, "Level", "60 - 69")
                    DrawButton(New Vector2(420, 300), 4, "Level", "70 - 79")
                    DrawButton(New Vector2(580, 300), 4, "Level", "80 - 89")
                    DrawButton(New Vector2(740, 300), 4, "Level", "90 - 100")

                    DrawButton(New Vector2(900, 200), 4, "Navigation", "Back")
                End Sub

                Private Sub DrawButton(ByVal Position As Vector2, ByVal Size As Integer, ByVal Label As String, ByVal Text As String)
                    Dim TexX As Integer = 368
                    If New Rectangle(CInt(Position.X), CInt(Position.Y), Size * 32, 64).Contains(MouseHandler.MousePosition) = True And Me.IsCurrentScreen() = True Then
                        TexX = 400
                    End If

                    For i = 0 To Size - 1
                        Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(CInt(Position.X + i * 32), CInt(Position.Y), 32, 64), New Rectangle(TexX, 112, 16, 32), Color.White)
                    Next

                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Label, New Vector2(Position.X + 4, Position.Y + 4), New Color(100, 100, 100))
                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Text, New Vector2(Position.X + 4, Position.Y + 32), Color.Black)
                End Sub

                Public Overrides Sub Update()
                    For i = 0 To GTSMainScreen.Furrs.Count - 1
                        If i < GTSMainScreen.Furrs.Count Then
                            Dim f As Furr = GTSMainScreen.Furrs(i)
                            If f.IsOutOfBorder() = True Then
                                GTSMainScreen.Furrs.Remove(f)
                                i -= 1
                            Else
                                f.Update()
                            End If
                        End If
                    Next

                    If Core.Random.Next(0, 100) = 0 Then
                        GTSMainScreen.Furrs.Add(New Furr())
                    End If

                    If Controls.Accept(True, False) = True Then
                        For i = 0 To 9
                            Dim x As Integer = i
                            Dim y As Integer = 0
                            If x > 4 Then
                                x -= 5
                                y += 1
                            End If
                            If New Rectangle(100 + x * 160, 200 + y * 100, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                                Dim newSetting As String = "9 and under"
                                Select Case i
                                    Case 0
                                        newSetting = "9 and under"
                                    Case 1
                                        newSetting = "10 - 19"
                                    Case 2
                                        newSetting = "20 - 29"
                                    Case 3
                                        newSetting = "30 - 39"
                                    Case 4
                                        newSetting = "40 - 49"
                                    Case 5
                                        newSetting = "50 - 59"
                                    Case 6
                                        newSetting = "60 - 69"
                                    Case 7
                                        newSetting = "70 - 79"
                                    Case 8
                                        newSetting = "80 - 89"
                                    Case 9
                                        newSetting = "90 - 100"
                                End Select
                                Me.GTSEditTradeScreen.D.RequestLevel = newSetting
                                SoundManager.PlaySound("select")
                                Core.SetScreen(Me.GTSEditTradeScreen)
                            End If
                        Next

                        If New Rectangle(900, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If
                    End If

                    If Controls.Dismiss(True, True) = True Then
                        SoundManager.PlaySound("select")
                        Core.SetScreen(Me.GTSEditTradeScreen)
                    End If
                End Sub

            End Class

            Class SelectGenderScreen

                Inherits Screen

                Dim GTSEditTradeScreen As GTSEditTradeScreen

                Public Sub New(ByVal GTSEditTradeScreen As GTSEditTradeScreen)
                    Me.GTSEditTradeScreen = GTSEditTradeScreen
                    Me.Identification = Identifications.GTSSelectGenderScreen

                    Me.CanBePaused = False
                    Me.CanChat = False
                    Me.CanDrawDebug = True
                    Me.CanMuteAudio = True
                    Me.CanTakeScreenshot = True
                    Me.MouseVisible = True
                End Sub

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

                    DrawButton(New Vector2(100, 200), 4, "Gender", "Male")
                    DrawButton(New Vector2(260, 200), 4, "Gender", "Female")
                    DrawButton(New Vector2(420, 200), 4, "Gender", "Genderless")
                    DrawButton(New Vector2(580, 200), 4, "Gender", "No entry")

                    DrawButton(New Vector2(900, 200), 4, "Navigation", "Back")
                End Sub

                Private Sub DrawButton(ByVal Position As Vector2, ByVal Size As Integer, ByVal Label As String, ByVal Text As String)
                    Dim TexX As Integer = 368
                    If New Rectangle(CInt(Position.X), CInt(Position.Y), Size * 32, 64).Contains(MouseHandler.MousePosition) = True And Me.IsCurrentScreen() = True Then
                        TexX = 400
                    End If

                    For i = 0 To Size - 1
                        Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(CInt(Position.X + i * 32), CInt(Position.Y), 32, 64), New Rectangle(TexX, 112, 16, 32), Color.White)
                    Next

                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Label, New Vector2(Position.X + 4, Position.Y + 4), New Color(100, 100, 100))
                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Text, New Vector2(Position.X + 4, Position.Y + 32), Color.Black)
                End Sub

                Public Overrides Sub Update()
                    For i = 0 To GTSMainScreen.Furrs.Count - 1
                        If i < GTSMainScreen.Furrs.Count Then
                            Dim f As Furr = GTSMainScreen.Furrs(i)
                            If f.IsOutOfBorder() = True Then
                                GTSMainScreen.Furrs.Remove(f)
                                i -= 1
                            Else
                                f.Update()
                            End If
                        End If
                    Next

                    If Core.Random.Next(0, 100) = 0 Then
                        GTSMainScreen.Furrs.Add(New Furr())
                    End If

                    If Controls.Accept(True, False) = True Then
                        If New Rectangle(100, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            Me.GTSEditTradeScreen.D.RequestGender = "Male"
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If

                        If New Rectangle(260, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            Me.GTSEditTradeScreen.D.RequestGender = "Female"
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If

                        If New Rectangle(420, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            Me.GTSEditTradeScreen.D.RequestGender = "Genderless"
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If

                        If New Rectangle(580, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            Me.GTSEditTradeScreen.D.RequestGender = ""
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If

                        If New Rectangle(900, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If
                    End If

                    If Controls.Dismiss(True, True) = True Then
                        SoundManager.PlaySound("select")
                        Core.SetScreen(Me.GTSEditTradeScreen)
                    End If
                End Sub

            End Class

            Class SelectAreaScreen

                Inherits Screen

                Dim GTSEditTradeScreen As GTSEditTradeScreen

                Public Sub New(ByVal GTSEditTradeScreen As GTSEditTradeScreen)
                    Me.GTSEditTradeScreen = GTSEditTradeScreen
                    Me.Identification = Identifications.GTSSelectAreaScreen

                    Me.CanBePaused = False
                    Me.CanChat = False
                    Me.CanDrawDebug = True
                    Me.CanMuteAudio = True
                    Me.CanTakeScreenshot = True
                    Me.MouseVisible = True
                End Sub

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

                    DrawButton(New Vector2(100, 200), 4, "Area", "Global")
                    DrawButton(New Vector2(260, 200), 4, "Area", "Private")

                    DrawButton(New Vector2(900, 200), 4, "Navigation", "Back")
                End Sub

                Private Sub DrawButton(ByVal Position As Vector2, ByVal Size As Integer, ByVal Label As String, ByVal Text As String)
                    Dim TexX As Integer = 368
                    If New Rectangle(CInt(Position.X), CInt(Position.Y), Size * 32, 64).Contains(MouseHandler.MousePosition) = True And Me.IsCurrentScreen() = True Then
                        TexX = 400
                    End If

                    For i = 0 To Size - 1
                        Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(CInt(Position.X + i * 32), CInt(Position.Y), 32, 64), New Rectangle(TexX, 112, 16, 32), Color.White)
                    Next

                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Label, New Vector2(Position.X + 4, Position.Y + 4), New Color(100, 100, 100))
                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Text, New Vector2(Position.X + 4, Position.Y + 32), Color.Black)
                End Sub

                Public Overrides Sub Update()
                    For i = 0 To GTSMainScreen.Furrs.Count - 1
                        If i < GTSMainScreen.Furrs.Count Then
                            Dim f As Furr = GTSMainScreen.Furrs(i)
                            If f.IsOutOfBorder() = True Then
                                GTSMainScreen.Furrs.Remove(f)
                                i -= 1
                            Else
                                f.Update()
                            End If
                        End If
                    Next

                    If Core.Random.Next(0, 100) = 0 Then
                        GTSMainScreen.Furrs.Add(New Furr())
                    End If

                    If Controls.Accept(True, False) = True Then
                        If New Rectangle(100, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            Me.GTSEditTradeScreen.D.SecurityArea = GTSDataItem.SecurityCode.Global
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If

                        If New Rectangle(260, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            Me.GTSEditTradeScreen.D.SecurityArea = GTSDataItem.SecurityCode.Private
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If

                        If New Rectangle(900, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If
                    End If

                    If Controls.Dismiss(True, True) = True Then
                        SoundManager.PlaySound("select")
                        Core.SetScreen(Me.GTSEditTradeScreen)
                    End If
                End Sub

            End Class

            Class SelectFriendScreen

                Inherits Screen

                Dim GTSEditTradeScreen As GTSEditTradeScreen

                Shared Users As New Dictionary(Of Integer, String)

                Dim UserIDs As New Dictionary(Of Integer, Emblem)
                Dim Page As Integer = 0

                Public Shared Sub Clear()
                    Users.Clear()
                End Sub

                Public Sub New(ByVal GTSEditTradeScreen As GTSEditTradeScreen)
                    Me.GTSEditTradeScreen = GTSEditTradeScreen
                    Me.Identification = Identifications.GTSSelectUserScreen

                    Me.CanBePaused = False
                    Me.CanChat = False
                    Me.CanDrawDebug = True
                    Me.CanMuteAudio = True
                    Me.CanTakeScreenshot = True
                    Me.MouseVisible = True

                    If Core.GameJoltSave.Friends <> "" Then
                        For Each fr As String In Core.GameJoltSave.Friends.Split(CChar(","))
                            If Users.ContainsKey(CInt(fr)) = False Then
                                UserIDs.Add(CInt(fr), New Emblem(fr, 0))
                            End If
                        Next
                    End If
                End Sub

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

                    For i = 0 To 19
                        If i + Page * 20 < Users.Count Then
                            Dim x As Integer = i
                            Dim y As Integer = 0
                            While x > 4
                                x -= 5
                                y += 1
                            End While

                            Dim UserID As String = Users.Keys(i + Page * 20).ToString()
                            Dim UserName As String = Users.Values(i + Page * 20)

                            DrawButton(New Vector2(100 + x * 160, 200 + y * 100), 4, "User (" & UserID & ")", UserName)
                        End If
                    Next

                    DrawButton(New Vector2(900, 200), 4, "Navigation", "Last Page")
                    DrawButton(New Vector2(900, 300), 4, "Navigation", "Next Page")
                    DrawButton(New Vector2(900, 400), 4, "Friend", "No entry")
                    DrawButton(New Vector2(900, 500), 4, "Navigation", "Back")
                End Sub

                Private Sub DrawButton(ByVal Position As Vector2, ByVal Size As Integer, ByVal Label As String, ByVal Text As String)
                    Dim TexX As Integer = 368
                    If New Rectangle(CInt(Position.X), CInt(Position.Y), Size * 32, 64).Contains(MouseHandler.MousePosition) = True And Me.IsCurrentScreen() = True Then
                        TexX = 400
                    End If

                    For i = 0 To Size - 1
                        Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\GTS"), New Rectangle(CInt(Position.X + i * 32), CInt(Position.Y), 32, 64), New Rectangle(TexX, 112, 16, 32), Color.White)
                    Next

                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Label, New Vector2(Position.X + 4, Position.Y + 4), New Color(100, 100, 100))
                    Core.SpriteBatch.DrawString(FontManager.MiniFont, Text, New Vector2(Position.X + 4, Position.Y + 32), Color.Black)
                End Sub

                Public Overrides Sub Update()
                    For i = 0 To GTSMainScreen.Furrs.Count - 1
                        If i < GTSMainScreen.Furrs.Count Then
                            Dim f As Furr = GTSMainScreen.Furrs(i)
                            If f.IsOutOfBorder() = True Then
                                GTSMainScreen.Furrs.Remove(f)
                                i -= 1
                            Else
                                f.Update()
                            End If
                        End If
                    Next

                    If Core.Random.Next(0, 100) = 0 Then
                        GTSMainScreen.Furrs.Add(New Furr())
                    End If

                    For t = 0 To UserIDs.Count - 1
                        If Users.ContainsKey(UserIDs.Keys(t)) = False Then
                            If UserIDs.Values(t).DoneLoading = True Then
                                Users.Add(UserIDs.Keys(t), UserIDs.Values(t).Username)
                            End If
                        End If
                    Next

                    If Controls.Accept(True, False) = True Then
                        For i = 0 To 19
                            If i + Page * 20 < Users.Count Then
                                Dim x As Integer = i
                                Dim y As Integer = 0
                                While x > 4
                                    x -= 5
                                    y += 1
                                End While

                                If New Rectangle(100 + x * 160, 200 + y * 100, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                                    Me.GTSEditTradeScreen.D.ToUserID = Users.Keys(i + Page * 20).ToString()
                                    SoundManager.PlaySound("select")
                                    Core.SetScreen(Me.GTSEditTradeScreen)
                                End If
                            End If
                        Next
                        If New Rectangle(900, 200, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            If Page > 0 Then
                                Page -= 1
                                SoundManager.PlaySound("select")
                            End If
                        End If
                        If New Rectangle(900, 300, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            If Users.Count - Page * 20 > 20 Then
                                Page += 1
                                SoundManager.PlaySound("select")
                            End If
                        End If
                        If New Rectangle(900, 400, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            Me.GTSEditTradeScreen.D.ToUserID = ""
                            Me.GTSEditTradeScreen.ToEmblem = Nothing
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If
                        If New Rectangle(900, 500, 32 * 4, 64).Contains(MouseHandler.MousePosition) = True Then
                            SoundManager.PlaySound("select")
                            Core.SetScreen(Me.GTSEditTradeScreen)
                        End If
                    End If

                    Users = (From entry In Users Order By entry.Value Ascending).ToDictionary(Function(pair) pair.Key, Function(pair) pair.Value)

                    If Controls.Dismiss(True, True) = True Then
                        SoundManager.PlaySound("select")
                        Core.SetScreen(Me.GTSEditTradeScreen)
                    End If
                End Sub

            End Class

        End Class

    End Class

End Namespace