mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-07-31 01:35:20 +02:00
fae7349356
* Replaced existing Gen 2 SFX with better sounding ones (no ugly reverb) Replaced MediaPlayer with NAudio(and NAudio.Vorbis) for playing music in order to fix random stopping issues. The game now directly loads .ogg files instead of the .wma/.xnb combination from before. ContentPacks are now able to replace Music and SFX again (I haven't added a menu yet for choosing ContentPacks). To make older GameModes work with current versions, you can add the GameMode property EnterType and set it to "1", this will make the game use the older 2D NewGameScreen. * Delete GameController.vb * Add gamecontroller.vb back * Fix sfx missing * Battleintro doodle now doesn't loop anymore (for no trainer) Changed the shutter sound (aka Large Door sound) to something more large door-y Made the enter sound slightly louder The enter sound now plays when going through any warp to or from an indoor map (including falling through holes) The flying sound effect is played earlier in the animation after selecting a location Changed played sound effect when using the Escape Rope to "teleport" instead of "destroy" The bump noise now also plays when bumping into something in first person Fixed small gap between the end of the intro song and the start of the main song Replaced some songs with better songs * Fixed some more intro issues * Forgot to change a thing * Fixed an error where the main music would play, ignoring the muted musicmanager. * fix indenting in musicmanager * The music player will now only start playback on a new song if the music player is not muted, fixed the end time calculation of the intro of a song after muting, Music can't be unmuted now as long as a sound effect plays that stops the music. * Fixed league restplace position, fixed sound effects sharing the volume slider of the music, sound effects are now also muted when pressing M, changed music on/off popup to audio on/off, removed bump delay in first person, added more control on whether played songs should be looping or not. * Fixed some more scripts that turn on thirdperson mode but don't check if it was on before or set it back to what it was before afterwards, also fixed a small error in creditsscreen.vb. * Fixed indenting error in musicmanager.vb, fixed an error of mine where the loopsong parameter would be seen as the playintro parameter. * Added more music commands, added quite some menu select noises, will add more later * More select sound effects! * Fix music not resuming after soundeffect * Trainer using item now plays the single_heal soundeffect * Pokémon cries now sound louder * Possibly fixing crash when playing Pokémon cry at volume higher than 0.71 * Added better quality Pokémon cries, made random overworld cries slightly less loud, added cries for 719 and 720. * Sound effects now sound louder * Revert "Added better quality Pokémon cries, made random overworld cries slightly less loud, added cries for 719 and 720." This reverts commit 8c9296ed1a82144d17f303a52c3f2e9e65a5bfea. * Fixed the cause of why the title screen music plays even when the game is muted * Tabs to spaces * Revert Co-authored-by: darkfire006 <blazer257@live.com> Co-authored-by: JappaWakkaP3D <66885565+JappaWakkaP3D@users.noreply.github.com> Co-authored-by: JappaWakkaP3D <jasper.speelman@outlook.com> Co-authored-by: Vitaly Mikhailov <personal@aragas.org>
1513 lines
75 KiB
VB.net
1513 lines
75 KiB
VB.net
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.CanMuteMusic = 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", "", "", "", "Pokemon 3D", "", GTSDataItem.SecurityCode.Global, GTSDataItem.ActionSwitches.Set, "")
|
|
NewTrade = True
|
|
End If
|
|
|
|
Me.Identification = Identifications.GTSEditTradeScreen
|
|
|
|
Me.CanBePaused = False
|
|
Me.CanChat = False
|
|
Me.CanDrawDebug = True
|
|
Me.CanMuteMusic = 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.CanMuteMusic = 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.CanMuteMusic = 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.CanMuteMusic = 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.CanMuteMusic = 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.CanMuteMusic = 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 |