1650 lines
86 KiB
VB.net
1650 lines
86 KiB
VB.net
Imports GameDevCommon.Drawing
|
|
Imports P3D.Screens.MainMenu
|
|
|
|
''' <summary>
|
|
''' This is the game screen that includes the shimmering Pokémon 3D logo, the "Press {BUTTON} to start" text, and the time-dependent animated background.
|
|
''' </summary>
|
|
Public Class PressStartScreen
|
|
|
|
Inherits Screen
|
|
|
|
Public _fadeInMain As Single = 1.0F
|
|
Private _introDelay As Single = 4.0F
|
|
Private _logoFade As Single = 1.0F
|
|
|
|
Private _logoTexture As Texture2D = Nothing
|
|
Private _shineTexture As Texture2D = Nothing
|
|
|
|
Private _logoRenderer As SpriteBatch
|
|
Private _shineRenderer As SpriteBatch
|
|
Private _backgroundRenderer As SpriteBatch
|
|
|
|
Private target As RenderTarget2D
|
|
|
|
Private _shader As GameDevCommon.Rendering.Shader
|
|
Private _entities As List(Of MainMenuEntity) = New List(Of MainMenuEntity)()
|
|
Private _camera As Screens.MainMenu.Scene.MainMenuCamera
|
|
Private _fromColor As Color
|
|
Private _toColor As Color
|
|
Private _textColor As Color
|
|
|
|
Dim tempF As Single = 0F
|
|
Dim tempG As Single = 0F
|
|
|
|
Public Sub New()
|
|
Identification = Identifications.PressStartScreen
|
|
CanBePaused = False
|
|
MouseVisible = True
|
|
CanChat = False
|
|
|
|
TextBox.Showing = False
|
|
PokemonImageView.Showing = False
|
|
ImageView.Showing = False
|
|
ChooseBox.Showing = False
|
|
|
|
GameModeManager.SetGameModePointer("Kolben")
|
|
|
|
Core.Player.Skin = "Hilbert"
|
|
|
|
If IO.Directory.Exists(GameController.GamePath & "\Save\") = False Then
|
|
IO.Directory.CreateDirectory(GameController.GamePath & "\Save\")
|
|
End If
|
|
|
|
GameJolt.Emblem.ClearOnlineSpriteCache()
|
|
|
|
_logoTexture = TextureManager.GetTexture("GUI\Logos\Pokemon_Small")
|
|
_shineTexture = TextureManager.GetTexture("GUI\Logos\logo_shine")
|
|
|
|
_logoRenderer = New SpriteBatch(GraphicsDevice)
|
|
_shineRenderer = New SpriteBatch(GraphicsDevice)
|
|
_backgroundRenderer = New SpriteBatch(GraphicsDevice)
|
|
|
|
target = New RenderTarget2D(GraphicsDevice, 1200, 680, False, SurfaceFormat.Color, DepthFormat.Depth24Stencil8)
|
|
|
|
' TODO: Replace bad workaround.
|
|
Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedSkin = ""
|
|
Core.Player.Unload()
|
|
|
|
_shader = New GameDevCommon.Rendering.BasicShader()
|
|
CType(_shader.Effect, BasicEffect).LightingEnabled = False
|
|
_camera = New Scene.MainMenuCamera()
|
|
World.setDaytime = Nothing
|
|
Dim dayTime = World.GetTime
|
|
|
|
Select Case dayTime
|
|
Case World.DayTimes.Morning
|
|
_fromColor = New Color(246, 170, 109)
|
|
_toColor = New Color(248, 248, 248)
|
|
_textColor = Color.Black
|
|
Case World.DayTimes.Day
|
|
_fromColor = New Color(120, 160, 248)
|
|
_toColor = New Color(248, 248, 248)
|
|
_textColor = Color.Black
|
|
Case World.DayTimes.Evening
|
|
_fromColor = New Color(32, 64, 168)
|
|
_toColor = New Color(40, 80, 88)
|
|
_textColor = Color.White
|
|
Case World.DayTimes.Night
|
|
_fromColor = New Color(32, 64, 168)
|
|
_toColor = New Color(0, 0, 0)
|
|
_textColor = Color.White
|
|
End Select
|
|
|
|
If dayTime = World.DayTimes.Day OrElse dayTime = World.DayTimes.Morning Then
|
|
Dim clouds = New Scene.Clouds()
|
|
clouds.LoadContent()
|
|
_entities.Add(clouds)
|
|
|
|
Dim hooh = New Scene.HoOh(_entities)
|
|
hooh.LoadContent()
|
|
_entities.Add(hooh)
|
|
Else
|
|
Dim ground = New Scene.Ground()
|
|
ground.LoadContent()
|
|
_entities.Add(ground)
|
|
|
|
Dim lugia = New Scene.Lugia(_entities)
|
|
lugia.LoadContent()
|
|
_entities.Add(lugia)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Overrides Sub Update()
|
|
For i = 0 To _entities.Count - 1
|
|
If i < _entities.Count Then
|
|
_entities(i).Update()
|
|
If _entities(i).ToBeRemoved Then
|
|
_entities(i).Dispose()
|
|
_entities.RemoveAt(i)
|
|
i -= 1
|
|
End If
|
|
End If
|
|
Next
|
|
|
|
_camera.Update()
|
|
|
|
If _introDelay > 0F Then
|
|
_introDelay -= 0.1F
|
|
If _introDelay <= 0F Then
|
|
_introDelay = 0F
|
|
End If
|
|
Else
|
|
If IsCurrentScreen() Then
|
|
If _fadeInMain > 0.0F Then
|
|
_fadeInMain = MathHelper.Lerp(0.0F, _fadeInMain, 0.93F)
|
|
If _fadeInMain - 0.01F <= 0.0F Then
|
|
_fadeInMain = 0.0F
|
|
End If
|
|
End If
|
|
Else
|
|
If _logoFade > 0.0F Then
|
|
_logoFade = MathHelper.Lerp(0.0F, _logoFade, 0.2F)
|
|
If _logoFade - 0.01F <= 0.0F Then
|
|
_logoFade = 0.0F
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
tempF += 0.01F
|
|
tempG += 0.04F
|
|
|
|
If IsCurrentScreen() Then
|
|
If KeyBoardHandler.KeyPressed(KeyBindings.EnterKey1) Or KeyBoardHandler.KeyPressed(KeyBindings.EnterKey2) Or ControllerHandler.ButtonPressed(Buttons.A) Or MouseHandler.ButtonPressed(MouseHandler.MouseButtons.LeftButton) Then
|
|
_fadeInMain = 0.0F
|
|
SetScreen(New NewMainMenuScreen(Me))
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private _blurHandler As Resources.Blur.BlurHandler
|
|
|
|
Public Overrides Sub Draw()
|
|
If _blurHandler Is Nothing Then
|
|
_blurHandler = New Resources.Blur.BlurHandler(target.Width, target.Height)
|
|
End If
|
|
|
|
GraphicsDevice.SetRenderTarget(target)
|
|
GraphicsDevice.ResetFull()
|
|
GraphicsDevice.Clear(_fromColor)
|
|
|
|
|
|
' DRAW HERE
|
|
_backgroundRenderer.Begin()
|
|
|
|
_backgroundRenderer.DrawGradient(New Rectangle(0, CType(target.Height / 2, Integer), target.Width, CType(target.Height / 4, Integer)),
|
|
_fromColor, _toColor, False, 1, 10)
|
|
_backgroundRenderer.DrawRectangle(New Rectangle(0, CType(target.Height / 4 * 3, Integer), target.Width, CType(target.Height / 4, Integer)),
|
|
_toColor)
|
|
|
|
_backgroundRenderer.End()
|
|
|
|
GraphicsDevice.ResetFull()
|
|
_shader.Prepare(_camera)
|
|
For Each entity In _entities
|
|
_shader.Render(entity)
|
|
Next
|
|
|
|
GraphicsDevice.SetRenderTarget(Nothing)
|
|
|
|
|
|
_backgroundRenderer.Begin()
|
|
Dim blurred = _blurHandler.Perform(target)
|
|
_backgroundRenderer.Draw(blurred, New Rectangle(0, 0, windowSize.Width, windowSize.Height), Color.White)
|
|
|
|
'_backgroundRenderer.Draw(target, New Rectangle(0, 0, ScreenSize.Width, ScreenSize.Height), Color.White)
|
|
_backgroundRenderer.End()
|
|
|
|
If IsCurrentScreen() Then
|
|
_logoRenderer.Begin(SpriteSortMode.Texture, BlendState.AlphaBlend, SamplerState.AnisotropicClamp, DepthStencilState.Default, RasterizerState.CullNone)
|
|
Else
|
|
_logoRenderer.Begin(SpriteSortMode.Texture, BlendState.NonPremultiplied, SamplerState.AnisotropicClamp, DepthStencilState.Default, RasterizerState.CullNone)
|
|
End If
|
|
_shineRenderer.Begin(SpriteSortMode.Texture, BlendState.Additive)
|
|
|
|
_logoRenderer.Draw(_logoTexture, New Rectangle(CInt(windowSize.Width / 2 - 350 * SpriteBatch.InterfaceScale), CInt(160 * _fadeInMain + 64),
|
|
CInt(700 * SpriteBatch.InterfaceScale), CInt(300 * SpriteBatch.InterfaceScale)), New Color(255, 255, 255, CInt(255 * _logoFade)))
|
|
_shineRenderer.Draw(_shineTexture, New Rectangle(CInt(windowSize.Width / 2 - 250 * SpriteBatch.InterfaceScale + Math.Sin(tempF) * 240.0F), CInt(-100 + Math.Sin(tempG) * 10.0F + CInt(160 * _fadeInMain + 64)),
|
|
CInt(512 * SpriteBatch.InterfaceScale), CInt(512 * SpriteBatch.InterfaceScale)), New Color(255, 255, 255, CInt(255 * _logoFade)))
|
|
|
|
If _fadeInMain = 0F Then
|
|
If IsCurrentScreen() And Core.GameOptions.ShowGUI Then ' Want to implement fading of text, but core doesn't seem to support this.
|
|
Dim text As String = String.Empty
|
|
If ControllerHandler.IsConnected() Then
|
|
text = Localization.GetString("start_screen_press", "Press") & " " & Localization.GetString("start_screen_tostart", "to start.")
|
|
Else
|
|
text = Localization.GetString("start_screen_press", "Press") & " " & KeyBindings.EnterKey1.ToString().ToUpper & " " & Localization.GetString("start_screen_tostart", "to start.")
|
|
'text = "Press " & KeyBindings.EnterKey1.ToString() & ", " & KeyBindings.EnterKey2.ToString() & ", or primary mouse button to start."
|
|
End If
|
|
|
|
Dim textSize As Vector2 = FontManager.InGameFont.MeasureString(text)
|
|
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, text, New Vector2(CInt(windowSize.Width / 2.0F - textSize.X / 2.0F),
|
|
CInt(windowSize.Height - textSize.Y - 50)), _textColor)
|
|
|
|
If ControllerHandler.IsConnected() Then
|
|
SpriteBatch.Draw(TextureManager.GetTexture("GUI\GamePad\xboxControllerButtonA"), New Rectangle(CInt(windowSize.Width / 2 - textSize.X / 2 + FontManager.InGameFont.MeasureString("Press" & " ").X + 2), CInt(windowSize.Height - textSize.Y - 58), 40, 40), Color.White)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
_logoRenderer.End()
|
|
_shineRenderer.End()
|
|
|
|
Canvas.DrawRectangle(windowSize, New Color(0, 0, 0, CInt(255 * _fadeInMain)))
|
|
End Sub
|
|
|
|
Public Overrides Sub ChangeTo()
|
|
Core.Player.Unload()
|
|
Core.Player.Skin = "Hilbert"
|
|
TextBox.Hide()
|
|
TextBox.CanProceed = True
|
|
OverworldScreen.FadeValue = 0
|
|
|
|
MusicManager.Play("title", True, 0.0F)
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class NewMainMenuScreen
|
|
|
|
Inherits Screen
|
|
|
|
Public _screenOffset As Vector2 = New Vector2(0, 0) 'Position of the top row relative to the _screenOrigin
|
|
Public _screenOffsetTarget As Vector2 = New Vector2(0, 0) 'Target where the top needs to move to
|
|
Public _screenOrigin As Vector2 = New Vector2(CSng(windowSize.Width / 2 - 80 - 180), CInt(windowSize.Height / 4)) 'Center of the game window. It's adjusted when resizing the window.
|
|
Private _mainOffset As Vector2 = _screenOffset
|
|
|
|
Public _optionsOffset As Vector2 = New Vector2(0, 0) 'Position of the options row relative to the _screenOrigin
|
|
Public _optionsOffsetTarget As Vector2 = New Vector2(0, 0) 'Target where the options row needs to move to
|
|
|
|
Private _gameJoltOffset As Vector2 = New Vector2(0, 0) 'Position of the gamejolt row relative to the _screenOrigin
|
|
Private _gameJoltOffsetTarget As Vector2 = New Vector2(0, 0) 'Target where the gamejolt needs to move to
|
|
|
|
|
|
Private _loading As Boolean = True
|
|
Public _fadeInMain As Single = 0F
|
|
Public _fadeInOptions As Single = 0F
|
|
Private _fadeInGameJolt As Single = 0F
|
|
Private _GameJoltOpacity As Single = 0F
|
|
Private _expandDisplay As Single = 0F
|
|
Private _closingDisplay As Boolean = False
|
|
Private _displayTextFade As Single = 0F
|
|
|
|
Private _sliderPosition As Single = 0F 'Horizontal position of the main menu arrow
|
|
Private _sliderTarget As Integer = 0 'Target where the arrow needs to move to
|
|
|
|
Private _menuTexture As Texture2D
|
|
Private _oldMenuTexture As Texture2D
|
|
|
|
Private _MainProfiles As New List(Of GameProfile)
|
|
Private _GameJoltProfiles As New List(Of GameProfile)
|
|
Private _OptionsProfiles As New List(Of GameProfile)
|
|
Public Shared _selectedProfile As Integer = 1
|
|
Public Shared _selectedProfileTemp As Integer = _selectedProfile
|
|
Private _GameJoltButtonIndex As Integer = 0 'This is to tell which button on a GameJolt profile is selected: the profile itself or the gender & reset buttons
|
|
Public Shared _menuIndex As Integer = 0 '0 = Game Profiles, 1 = GameJolt Submenu, 2 = Options Submenu, 3 = GameJolt Options Submenu
|
|
|
|
Private _messageBox As UI.MessageBox
|
|
|
|
Public Sub New(ByVal currentScreen As Screen)
|
|
Identification = Identifications.MainMenuScreen
|
|
PreScreen = currentScreen
|
|
|
|
CanBePaused = False
|
|
MouseVisible = True
|
|
CanChat = False
|
|
|
|
_menuTexture = TextureManager.GetTexture("GUI\Menus\MainMenu")
|
|
_oldMenuTexture = TextureManager.GetTexture("GUI\Menus\Menu")
|
|
|
|
_screenOffset = New Vector2(0, 0)
|
|
_screenOffsetTarget = _screenOffset
|
|
|
|
_mainOffset = _screenOffset
|
|
|
|
_optionsOffset = New Vector2(0, 0)
|
|
_optionsOffsetTarget = _optionsOffset
|
|
|
|
_gameJoltOffset = New Vector2(0, 0)
|
|
_gameJoltOffsetTarget = _gameJoltOffset
|
|
|
|
_selectedProfile = 1
|
|
|
|
_sliderTarget = GetSliderTarget(_selectedProfile)
|
|
_sliderPosition = _sliderTarget
|
|
|
|
_messageBox = New UI.MessageBox(Me)
|
|
End Sub
|
|
|
|
|
|
Public Overrides Sub Update()
|
|
PreScreen.Update()
|
|
If _loading = False Then
|
|
'Shift the Top row horizontally
|
|
_mainOffset.X = _screenOffset.X
|
|
'Shift the main menu vertically
|
|
Select Case _menuIndex
|
|
Case 0
|
|
_screenOffsetTarget.Y = 0
|
|
_optionsOffsetTarget.X = _screenOffsetTarget.X
|
|
Case 1
|
|
_screenOffsetTarget.Y = -180 - 32
|
|
_optionsOffsetTarget.X = _gameJoltOffsetTarget.X
|
|
Case 2
|
|
_screenOffsetTarget.Y = -180 - 32
|
|
Case 3
|
|
_screenOffsetTarget.Y = -320 - 32
|
|
End Select
|
|
|
|
'Fade in Options row
|
|
If _menuIndex = 2 Or _menuIndex = 3 Then
|
|
If _fadeInOptions < 1.0F Then
|
|
_fadeInOptions = MathHelper.Lerp(1.0F, _fadeInOptions, 0.93F)
|
|
If _fadeInOptions + 0.01F >= 1.0F Then
|
|
_fadeInOptions = 1.0F
|
|
End If
|
|
End If
|
|
Else
|
|
If _fadeInOptions > 0.0F Then
|
|
_fadeInOptions = MathHelper.Lerp(0.0F, _fadeInOptions, 0.93F)
|
|
If _fadeInOptions - 0.01F <= 0.0F Then
|
|
_fadeInOptions = 0.0F
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
'Fade in the Top row
|
|
If _fadeInMain < 1.0F Then
|
|
_fadeInMain = MathHelper.Lerp(1.0F, _fadeInMain, 0.93F)
|
|
If _fadeInMain + 0.01F >= 1.0F Then
|
|
_fadeInMain = 1.0F
|
|
_sliderPosition = _sliderTarget
|
|
End If
|
|
Else
|
|
If CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
If Controls.Accept(True, False, False) Then
|
|
' Click on profiles.
|
|
Select Case _menuIndex
|
|
Case 0
|
|
For x = 0 To _MainProfiles.Count - 1
|
|
Dim xOffset As Single = _screenOrigin.X + _screenOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
|
|
|
|
If New Rectangle(CInt(xOffset), CInt(_screenOrigin.Y + _screenOffset.Y), 160, 160).Contains(MouseHandler.MousePosition) Then
|
|
If _selectedProfile = x Then
|
|
If CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
ClickedProfile()
|
|
SoundManager.PlaySound("select")
|
|
End If
|
|
Else
|
|
If CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
Dim diff As Integer = x - _selectedProfile
|
|
_screenOffsetTarget.X -= diff * 180
|
|
|
|
_selectedProfile = x
|
|
End If
|
|
Exit For
|
|
End If
|
|
End If
|
|
Next
|
|
If _MainProfiles(_selectedProfile).IsGameJolt AndAlso _MainProfiles(_selectedProfile).Loaded Then
|
|
For x = 0 To _MainProfiles.Count - 1
|
|
' Click on gamejolt buttons
|
|
Dim xOffset As Single = _screenOrigin.X + _screenOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
|
|
Dim r As New Vector2(xOffset + 400, _screenOrigin.Y + _screenOffset.Y + 200)
|
|
If New Rectangle(CInt(r.X), CInt(r.Y), 32, 32).Contains(MouseHandler.MousePosition) Then
|
|
ButtonChangeMale()
|
|
ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48, 32, 32).Contains(MouseHandler.MousePosition) Then
|
|
ButtonChangeFemale()
|
|
ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48 + 48, 32, 32).Contains(MouseHandler.MousePosition) Then
|
|
ButtonChangeGenderless()
|
|
ElseIf New Rectangle(CInt(r.X), CInt(r.Y) + 48 + 48 + 48, 32, 32).Contains(MouseHandler.MousePosition) Then
|
|
ButtonResetSave()
|
|
End If
|
|
Next
|
|
End If
|
|
If Controls.Dismiss(True, False, False) Then
|
|
' Click on profiles.
|
|
For x = 0 To _MainProfiles.Count - 1
|
|
Dim xOffset As Single = _screenOrigin.X + _screenOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
|
|
|
|
If New Rectangle(CInt(xOffset), CInt(_screenOrigin.Y + _screenOffset.Y), 160, 160).Contains(MouseHandler.MousePosition) Then
|
|
If _selectedProfile = x Then
|
|
SoundManager.PlaySound("select")
|
|
DismissProfile()
|
|
End If
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
Case 2
|
|
For x = 0 To _MainProfiles.Count - 1
|
|
Dim xOffset As Single = _screenOrigin.X + _mainOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
|
|
If New Rectangle(CInt(xOffset), CInt(_screenOrigin.Y + _screenOffsetTarget.Y), 160, 160).Contains(MouseHandler.MousePosition) Then
|
|
_menuIndex = 0
|
|
Dim diff As Integer = CInt(_screenOffset.X + x * 180) - CInt(_optionsOffset.X + _selectedProfile * 180)
|
|
_screenOffsetTarget.X -= diff
|
|
_selectedProfile = x
|
|
_sliderTarget = GetSliderTarget(x)
|
|
SoundManager.PlaySound("select")
|
|
End If
|
|
Next
|
|
For x = 0 To _OptionsProfiles.Count - 1
|
|
Dim xOffset As Single = _screenOrigin.X + _optionsOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
|
|
|
|
If New Rectangle(CInt(xOffset), CInt(_screenOrigin.Y + _optionsOffset.Y), 160, 160).Contains(MouseHandler.MousePosition) Then
|
|
If _selectedProfile = x Then
|
|
If CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
ClickedProfile()
|
|
SoundManager.PlaySound("select")
|
|
End If
|
|
Else
|
|
If CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
Dim diff As Integer = x - _selectedProfile
|
|
_optionsOffsetTarget.X -= diff * 180
|
|
_selectedProfile = x
|
|
End If
|
|
Exit For
|
|
End If
|
|
End If
|
|
Next
|
|
Case 3
|
|
For x = 0 To _GameJoltProfiles.Count - 1
|
|
Dim xOffset As Single = _screenOrigin.X + _gameJoltOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
|
|
If New Rectangle(CInt(xOffset), CInt(_screenOrigin.Y + _screenOffsetTarget.Y + -180 + 32), 160, 160).Contains(MouseHandler.MousePosition) Then
|
|
Dim diff As Integer = x - _selectedProfile
|
|
_gameJoltOffsetTarget.X -= diff * 180
|
|
_menuIndex = 1
|
|
_selectedProfile = x
|
|
_sliderTarget = GetSliderTarget(x)
|
|
SoundManager.PlaySound("select")
|
|
End If
|
|
Next
|
|
For x = 0 To _OptionsProfiles.Count - 1
|
|
Dim xOffset As Single = _screenOrigin.X + _optionsOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
|
|
|
|
If New Rectangle(CInt(xOffset), CInt(_screenOrigin.Y + _optionsOffset.Y), 160, 160).Contains(MouseHandler.MousePosition) Then
|
|
If _selectedProfile = x Then
|
|
If CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
ClickedProfile()
|
|
SoundManager.PlaySound("select")
|
|
End If
|
|
Else
|
|
If CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
Dim diff As Integer = x - _selectedProfile
|
|
_optionsOffsetTarget.X -= diff * 180
|
|
|
|
_selectedProfile = x
|
|
End If
|
|
Exit For
|
|
End If
|
|
End If
|
|
Next
|
|
End Select
|
|
End If
|
|
If CurrentScreen.Identification = Screen.Identifications.MainMenuScreen Then
|
|
Select Case _menuIndex
|
|
Case 0
|
|
If Controls.Right(True) And _selectedProfile < _MainProfiles.Count - 1 Then
|
|
_selectedProfile += 1
|
|
_screenOffsetTarget.X -= 180
|
|
_GameJoltButtonIndex = 0
|
|
End If
|
|
If Controls.Left(True) And _selectedProfile > 0 Then
|
|
_selectedProfile -= 1
|
|
_screenOffsetTarget.X += 180
|
|
_GameJoltButtonIndex = 0
|
|
End If
|
|
Case 1
|
|
If Controls.Right(True) And _selectedProfile < _GameJoltProfiles.Count - 1 Then
|
|
_selectedProfile += 1
|
|
_gameJoltOffsetTarget.X -= 180
|
|
_GameJoltButtonIndex = 0
|
|
End If
|
|
If Controls.Left(True) And _selectedProfile > 0 Then
|
|
_selectedProfile -= 1
|
|
_gameJoltOffsetTarget.X += 180
|
|
_GameJoltButtonIndex = 0
|
|
End If
|
|
Case 2, 3
|
|
If Controls.Right(True) And _selectedProfile < _OptionsProfiles.Count - 1 Then
|
|
_selectedProfile += 1
|
|
_optionsOffsetTarget.X -= 180
|
|
End If
|
|
If Controls.Left(True) And _selectedProfile > 0 Then
|
|
_selectedProfile -= 1
|
|
_optionsOffsetTarget.X += 180
|
|
End If
|
|
End Select
|
|
End If
|
|
If _menuIndex = 0 Then
|
|
If _MainProfiles(_selectedProfile).IsGameJolt AndAlso _MainProfiles(_selectedProfile).Loaded Then
|
|
If Controls.Down(True, True, False) Then
|
|
_GameJoltButtonIndex += 1
|
|
End If
|
|
If Controls.Up(True, True, False) Then
|
|
_GameJoltButtonIndex -= 1
|
|
End If
|
|
_GameJoltButtonIndex = Clamp(_GameJoltButtonIndex, 0, 4)
|
|
End If
|
|
End If
|
|
|
|
Select Case _menuIndex
|
|
Case 0
|
|
_selectedProfile = _selectedProfile.Clamp(0, _MainProfiles.Count - 1)
|
|
Case 1
|
|
_selectedProfile = _selectedProfile.Clamp(0, _GameJoltProfiles.Count - 1)
|
|
Case 2, 3
|
|
_selectedProfile = _selectedProfile.Clamp(0, _OptionsProfiles.Count - 1)
|
|
End Select
|
|
|
|
If _fadeInMain = 1.0F Then
|
|
If Controls.Accept(False, True, True) Then
|
|
Select Case _GameJoltButtonIndex
|
|
Case 0
|
|
SoundManager.PlaySound("select")
|
|
ClickedProfile()
|
|
Case 1
|
|
SoundManager.PlaySound("select")
|
|
ButtonChangeMale()
|
|
Case 2
|
|
SoundManager.PlaySound("select")
|
|
ButtonChangeFemale()
|
|
Case 3
|
|
SoundManager.PlaySound("select")
|
|
ButtonChangeGenderless()
|
|
Case 4
|
|
SoundManager.PlaySound("select")
|
|
ButtonResetSave()
|
|
End Select
|
|
End If
|
|
If Controls.Dismiss(False, True, True) Then
|
|
SoundManager.PlaySound("select")
|
|
DismissProfile()
|
|
_GameJoltButtonIndex = 0
|
|
End If
|
|
' Try to load the GameJolt profile once the player has logged in.
|
|
_MainProfiles(1).LoadGameJolt()
|
|
End If
|
|
If _menuIndex = 0 Then
|
|
If _MainProfiles(_selectedProfile).Loaded = False Then
|
|
_closingDisplay = True
|
|
Else
|
|
_closingDisplay = False
|
|
End If
|
|
End If
|
|
|
|
_sliderTarget = GetSliderTarget(_selectedProfile)
|
|
If _sliderPosition < _sliderTarget Then
|
|
_sliderPosition = MathHelper.Lerp(_sliderTarget, _sliderPosition, 0.8F)
|
|
ElseIf _sliderPosition > _sliderTarget Then
|
|
_sliderPosition = MathHelper.Lerp(_sliderTarget, _sliderPosition, 0.8F)
|
|
End If
|
|
If KeyBoardHandler.KeyPressed(KeyBindings.EscapeKey) Or KeyBoardHandler.KeyPressed(KeyBindings.BackKey1) Or KeyBoardHandler.KeyPressed(KeyBindings.BackKey2) Or MouseHandler.ButtonPressed(MouseHandler.MouseButtons.RightButton) Or ControllerHandler.ButtonPressed(Buttons.B) Then
|
|
Select Case _menuIndex
|
|
Case 0
|
|
'SetScreen(New TransitionScreen(CurrentScreen, Me.PreScreen, Color.White, False))
|
|
If CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
SetScreen(New PressStartScreen())
|
|
End If
|
|
SoundManager.PlaySound("select")
|
|
Case 1, 2
|
|
_menuIndex = 0
|
|
_selectedProfile = _selectedProfileTemp
|
|
_sliderTarget = GetSliderTarget(_selectedProfile)
|
|
SoundManager.PlaySound("select")
|
|
Case 3
|
|
_menuIndex = 1
|
|
_selectedProfile = _selectedProfileTemp
|
|
_sliderTarget = GetSliderTarget(_selectedProfile)
|
|
SoundManager.PlaySound("select")
|
|
End Select
|
|
End If
|
|
If KeyBoardHandler.KeyPressed(KeyBindings.ForwardMoveKey) Or KeyBoardHandler.KeyPressed(KeyBindings.UpKey) Then
|
|
Select Case _menuIndex
|
|
Case 1, 2
|
|
_menuIndex = 0
|
|
_selectedProfile = _selectedProfileTemp
|
|
_sliderTarget = GetSliderTarget(_selectedProfile)
|
|
SoundManager.PlaySound("select")
|
|
Case 3
|
|
_menuIndex = 1
|
|
_selectedProfile = _selectedProfileTemp
|
|
_sliderTarget = GetSliderTarget(_selectedProfile)
|
|
SoundManager.PlaySound("select")
|
|
End Select
|
|
End If
|
|
|
|
If _fadeInMain = 1.0F Then
|
|
If _closingDisplay Then
|
|
If _expandDisplay > 0.0F Then
|
|
_expandDisplay = MathHelper.Lerp(0.0F, _expandDisplay, 0.9F)
|
|
If _expandDisplay - 0.01F <= 0.0F Then
|
|
_expandDisplay = 0.0F
|
|
End If
|
|
End If
|
|
Else
|
|
If _expandDisplay < 1.0F Then
|
|
_expandDisplay = MathHelper.Lerp(1.0F, _expandDisplay, 0.9F)
|
|
If _expandDisplay + 0.01F >= 1.0F Then
|
|
_expandDisplay = 1.0F
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
UpdateScreenOffset()
|
|
UpdateOptionsOffset()
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ButtonChangeMale()
|
|
If GameJoltSave.Gender = "Male" Then
|
|
Exit Sub
|
|
End If
|
|
GameJoltSave.Gender = "Male"
|
|
|
|
Core.Player.Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
_MainProfiles(_selectedProfile).Sprite = GameJolt.Emblem.GetPlayerSprite(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
End Sub
|
|
Private Sub ButtonChangeFemale()
|
|
If GameJoltSave.Gender = "Female" Then
|
|
Exit Sub
|
|
End If
|
|
GameJoltSave.Gender = "Female"
|
|
|
|
Core.Player.Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
_MainProfiles(_selectedProfile).Sprite = GameJolt.Emblem.GetPlayerSprite(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
End Sub
|
|
Private Sub ButtonChangeGenderless()
|
|
If GameJoltSave.Gender = "Other" Then
|
|
Exit Sub
|
|
End If
|
|
GameJoltSave.Gender = "Other"
|
|
|
|
Core.Player.Skin = GameJolt.Emblem.GetPlayerSpriteFile(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
_MainProfiles(_selectedProfile).Sprite = GameJolt.Emblem.GetPlayerSprite(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
End Sub
|
|
|
|
Private Sub ButtonResetSave()
|
|
GameJoltSave.ResetSave()
|
|
_MainProfiles(_selectedProfile).Sprite = GameJolt.Emblem.GetPlayerSprite(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
_MainProfiles(_selectedProfile).SetToDefault()
|
|
End Sub
|
|
|
|
Private Sub ClickedProfile()
|
|
Select Case _menuIndex
|
|
Case 0
|
|
If _selectedProfile = 1 And Security.FileValidation.IsValid(False) = False Then
|
|
_messageBox.Show(Localization.GetString("main_menu_error_filevalidation", "File validation failed!~Redownload the game's files to solve this problem.").Replace(CChar("~"), Environment.NewLine).Replace(CChar("*"), Environment.NewLine & Environment.NewLine))
|
|
Else
|
|
_MainProfiles(_selectedProfile).SelectProfile()
|
|
End If
|
|
Case 2, 3
|
|
_OptionsProfiles(_selectedProfile).SelectProfile()
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub DismissProfile()
|
|
_MainProfiles(_selectedProfile).UnSelectProfile()
|
|
End Sub
|
|
|
|
Private Sub UpdateScreenOffset()
|
|
|
|
_screenOrigin = New Vector2(CInt((windowSize.Width / 2 - 80 - 180)), CInt(windowSize.Height / 4))
|
|
If _screenOffset.X > _screenOffsetTarget.X Then
|
|
_screenOffset.X = MathHelper.Lerp(_screenOffsetTarget.X, _screenOffset.X, 0.93F)
|
|
If _screenOffset.X - 0.01F <= _screenOffsetTarget.X Then
|
|
_screenOffset.X = _screenOffsetTarget.X
|
|
End If
|
|
End If
|
|
If _screenOffset.X < _screenOffsetTarget.X Then
|
|
_screenOffset.X = MathHelper.Lerp(_screenOffsetTarget.X, _screenOffset.X, 0.93F)
|
|
If _screenOffset.X + 0.01F >= _screenOffsetTarget.X Then
|
|
_screenOffset.X = _screenOffsetTarget.X
|
|
End If
|
|
End If
|
|
If _screenOffset.Y > _screenOffsetTarget.Y Then
|
|
_screenOffset.Y = MathHelper.Lerp(_screenOffsetTarget.Y, _screenOffset.Y, 0.93F)
|
|
If _screenOffset.Y - 0.01F <= _screenOffsetTarget.Y Then
|
|
_screenOffset.Y = _screenOffsetTarget.Y
|
|
End If
|
|
End If
|
|
If _screenOffset.Y < _screenOffsetTarget.Y Then
|
|
_screenOffset.Y = MathHelper.Lerp(_screenOffsetTarget.Y, _screenOffset.Y, 0.93F)
|
|
If _screenOffset.Y + 0.01F >= _screenOffsetTarget.Y Then
|
|
_screenOffset.Y = _screenOffsetTarget.Y
|
|
End If
|
|
End If
|
|
End Sub
|
|
Private Sub UpdateOptionsOffset()
|
|
If _optionsOffset.X > _optionsOffsetTarget.X Then
|
|
_optionsOffset.X = MathHelper.Lerp(_optionsOffsetTarget.X, _optionsOffset.X, 0.93F)
|
|
If _optionsOffset.X - 0.01F <= _optionsOffsetTarget.X Then
|
|
_optionsOffset.X = _optionsOffsetTarget.X
|
|
End If
|
|
End If
|
|
If _optionsOffset.X < _optionsOffsetTarget.X Then
|
|
_optionsOffset.X = MathHelper.Lerp(_optionsOffsetTarget.X, _optionsOffset.X, 0.93F)
|
|
If _optionsOffset.X + 0.01F >= _optionsOffsetTarget.X Then
|
|
_optionsOffset.X = _optionsOffsetTarget.X
|
|
End If
|
|
End If
|
|
If _optionsOffset.Y > _optionsOffsetTarget.Y Then
|
|
_optionsOffset.Y = MathHelper.Lerp(_optionsOffsetTarget.Y, _optionsOffset.Y, 0.93F)
|
|
If _optionsOffset.Y - 0.01F <= _optionsOffsetTarget.Y Then
|
|
_optionsOffset.Y = _optionsOffsetTarget.Y
|
|
End If
|
|
End If
|
|
If _optionsOffset.Y < _optionsOffsetTarget.Y Then
|
|
_optionsOffset.Y = MathHelper.Lerp(_optionsOffsetTarget.Y, _optionsOffset.Y, 0.93F)
|
|
If _optionsOffset.Y + 0.01F >= _optionsOffsetTarget.Y Then
|
|
_optionsOffset.Y = _optionsOffsetTarget.Y
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Public Overrides Sub Draw()
|
|
PreScreen.Draw()
|
|
|
|
If _loading = False Then
|
|
Select Case _menuIndex
|
|
Case 0
|
|
If _MainProfiles(_selectedProfile).IsGameJolt = True Then
|
|
DrawGradients(CInt(255 * _fadeInMain), True)
|
|
Else
|
|
DrawGradients(CInt(255 * _fadeInMain), False)
|
|
End If
|
|
Case 1
|
|
If Not _GameJoltProfiles(_selectedProfile).IsOptionsMenuButton Then
|
|
DrawGradients(CInt(255 * _fadeInMain), True)
|
|
Else
|
|
DrawGradients(CInt(255 * _fadeInMain), False)
|
|
End If
|
|
Case Else
|
|
DrawGradients(CInt(255 * _fadeInMain), False)
|
|
End Select
|
|
End If
|
|
|
|
If IsCurrentScreen() Then
|
|
If _loading Then
|
|
Dim textSize As Vector2 = FontManager.InGameFont.MeasureString("Please wait..")
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, "Please wait" & LoadingDots.Dots, New Vector2(windowSize.Width / 2.0F - textSize.X / 2.0F, windowSize.Height / 2.0F - textSize.Y / 2.0F + 100), Color.White)
|
|
Else
|
|
Select Case _menuIndex
|
|
Case 1, 3
|
|
DrawOptionsProfiles(True)
|
|
Case Else
|
|
DrawOptionsProfiles(False)
|
|
End Select
|
|
DrawMainProfiles()
|
|
End If
|
|
End If
|
|
End Sub
|
|
Public Sub DrawGameJoltButtons(ByVal offset As Vector2)
|
|
Dim r As New Rectangle(CInt(offset.X + 400), CInt(offset.Y + 200), 512, 128)
|
|
Dim y As Integer = 0
|
|
|
|
Dim fontColor As Color = Color.White
|
|
Dim dayTime = World.GetTime
|
|
If dayTime = World.DayTimes.Day OrElse dayTime = World.DayTimes.Morning Then
|
|
fontColor = Color.Black
|
|
End If
|
|
|
|
If ScaleScreenRec(New Rectangle(r.X, r.Y, 32, 32)).Contains(MouseHandler.MousePosition) = True And GameInstance.IsMouseVisible OrElse Not GameInstance.IsMouseVisible And _GameJoltButtonIndex = 1 Then
|
|
y = 16
|
|
|
|
SpriteBatch.DrawInterfaceString(FontManager.InGameFont, "Change to male", New Vector2(r.X + 64 + 4, r.Y + 4), fontColor)
|
|
End If
|
|
SpriteBatch.DrawInterface(_oldMenuTexture, New Rectangle(r.X, r.Y, 32, 32), New Rectangle(144, 32 + y, 16, 16), Color.White)
|
|
|
|
y = 0
|
|
If ScaleScreenRec(New Rectangle(r.X, r.Y + 48, 32, 32)).Contains(MouseHandler.MousePosition) = True And GameInstance.IsMouseVisible OrElse Not GameInstance.IsMouseVisible And _GameJoltButtonIndex = 2 Then
|
|
y = 16
|
|
|
|
SpriteBatch.DrawInterfaceString(FontManager.InGameFont, "Change to female", New Vector2(r.X + 64 + 4, r.Y + 4 + 48), fontColor)
|
|
End If
|
|
SpriteBatch.DrawInterface(_oldMenuTexture, New Rectangle(r.X, r.Y + 48, 32, 32), New Rectangle(160, 32 + y, 16, 16), Color.White)
|
|
|
|
y = 0
|
|
If ScaleScreenRec(New Rectangle(r.X, r.Y + 48 + 48, 32, 32)).Contains(MouseHandler.MousePosition) = True And GameInstance.IsMouseVisible OrElse Not GameInstance.IsMouseVisible And _GameJoltButtonIndex = 3 Then
|
|
y = 16
|
|
|
|
SpriteBatch.DrawInterfaceString(FontManager.InGameFont, "Change to genderless", New Vector2(r.X + 64 + 4, r.Y + 4 + 48 + 48), fontColor)
|
|
End If
|
|
SpriteBatch.DrawInterface(_oldMenuTexture, New Rectangle(r.X, r.Y + 48 + 48, 32, 32), New Rectangle(208, 32 + y, 16, 16), Color.White)
|
|
|
|
y = 0
|
|
If ScaleScreenRec(New Rectangle(r.X, r.Y + 48 + 48 + 48, 32, 32)).Contains(MouseHandler.MousePosition) = True And GameInstance.IsMouseVisible OrElse Not GameInstance.IsMouseVisible And _GameJoltButtonIndex = 4 Then
|
|
y = 16
|
|
|
|
SpriteBatch.DrawInterfaceString(FontManager.InGameFont, "Reset save", New Vector2(r.X + 64 + 4, r.Y + 4 + 48 + 48 + 48), fontColor)
|
|
End If
|
|
SpriteBatch.DrawInterface(_oldMenuTexture, New Rectangle(r.X, r.Y + 48 + 48 + 48, 32, 32), New Rectangle(176, 32 + y, 16, 16), Color.White)
|
|
|
|
End Sub
|
|
Private Sub DrawMainProfiles()
|
|
|
|
For x = 0 To _MainProfiles.Count - 1
|
|
' Draw main profiles.
|
|
Dim xmain As Boolean = x = _selectedProfile
|
|
If _menuIndex <> 0 Then
|
|
xmain = False
|
|
End If
|
|
Dim xOffset As Single = _screenOrigin.X + _mainOffset.X + x * 180 + ((x + 1) * 100 * (1 - _fadeInMain))
|
|
|
|
_MainProfiles(x).Draw(New Vector2(CInt(xOffset), CInt(_screenOrigin.Y + _screenOffset.Y)), CInt(_fadeInMain * 255), (xmain), _menuTexture)
|
|
If _MainProfiles(x).IsGameJolt AndAlso _MainProfiles(x).Loaded AndAlso (xmain) Then
|
|
DrawGameJoltButtons(New Vector2(CInt(xOffset), CInt(_screenOrigin.Y + _screenOffset.Y)))
|
|
End If
|
|
Next
|
|
|
|
If _fadeInMain = 1.0F And _menuIndex = 0 Then
|
|
' Draw arrow.
|
|
If _MainProfiles(_selectedProfile).IsGameJolt = False Then
|
|
SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(_screenOrigin.X + _sliderPosition - 16), CInt(_screenOrigin.Y + 170), 32, 16), New Rectangle(0, 16, 32, 16), New Color(255, 255, 255, CInt(_fadeInMain * 255)))
|
|
Else
|
|
SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(_screenOrigin.X + _sliderPosition - 16), CInt(_screenOrigin.Y + 170), 32, 16), New Rectangle(32, 16, 32, 16), Color.White)
|
|
End If
|
|
Dim displayRect = New Rectangle(CInt((_screenOrigin.X + _sliderPosition - 300).Clamp(20, windowSize.Width - 620)), CInt(_screenOrigin.Y + 170 + 16), 600, CInt(240 * _expandDisplay))
|
|
|
|
' Draw display.
|
|
If _MainProfiles(_selectedProfile).IsGameJolt Then
|
|
If _expandDisplay > 0F Then
|
|
Canvas.DrawRectangle(displayRect, Screens.UI.ColorProvider.MainColor(True))
|
|
Canvas.DrawRectangle(New Rectangle(displayRect.X, displayRect.Y + displayRect.Height - 3, displayRect.Width, 3), Screens.UI.ColorProvider.AccentColor(True, CInt(255 * _expandDisplay)))
|
|
End If
|
|
Else
|
|
If _expandDisplay > 0F Then
|
|
Canvas.DrawRectangle(displayRect, Screens.UI.ColorProvider.MainColor(False))
|
|
Canvas.DrawRectangle(New Rectangle(displayRect.X, displayRect.Y + displayRect.Height - 3, displayRect.Width, 3), Screens.UI.ColorProvider.AccentColor(False, CInt(255 * _expandDisplay)))
|
|
End If
|
|
End If
|
|
|
|
' Draw profile info.
|
|
Dim tmpProfile = _MainProfiles(_selectedProfile)
|
|
|
|
If _expandDisplay = 1.0F Then
|
|
If tmpProfile.GameModeExists Then
|
|
For i = 0 To tmpProfile.PokemonTextures.Count - 1
|
|
SpriteBatch.Draw(tmpProfile.PokemonTextures(i), New Rectangle(displayRect.X + 30 + i * 70, displayRect.Y + 70, 64, 64), Color.White)
|
|
Next
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, Localization.GetString("main_menu_savefile_name", "Player Name") & ": " & tmpProfile.Name & Environment.NewLine &
|
|
Localization.GetString("main_menu_savefile_gamemode", "GameMode") & ": " & tmpProfile.GameMode, New Vector2(displayRect.X + 30, displayRect.Y + 20), Color.White, 0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0F)
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, Localization.GetString("main_menu_savefile_badges", "Badges") & ": " & tmpProfile.Badges.ToString() & Environment.NewLine &
|
|
Localization.GetString("main_menu_savefile_playtime", "Play time") & ": " & tmpProfile.TimePlayed & Environment.NewLine &
|
|
Localization.GetString("main_menu_savefile_location", "Location") & ": " & tmpProfile.Location, New Vector2(displayRect.X + 30, displayRect.Y + 150), Color.White, 0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0F)
|
|
Else
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, Localization.GetString("main_menu_savefile_name", "Player Name") & ": " & tmpProfile.Name & Environment.NewLine &
|
|
Localization.GetString("main_menu_savefile_gamemode", "GameMode") & ": " & tmpProfile.GameMode, New Vector2(displayRect.X + 30, displayRect.Y + 20), Color.White, 0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0F)
|
|
|
|
SpriteBatch.Draw(_menuTexture, New Rectangle(displayRect.X + 30, displayRect.Y + 70, 32, 32), New Rectangle(0, 32, 32, 32), Color.White)
|
|
Dim errorText As String
|
|
|
|
If tmpProfile.IsGameJolt() Then
|
|
errorText = Localization.GetString("main_menu_error_gamejolt_1", "Download failed. Press Accept to try again.") & Environment.NewLine & Environment.NewLine &
|
|
Localization.GetString("main_menu_error_gamejolt_2", "If the problem persists, please try again later") & Environment.NewLine &
|
|
Localization.GetString("main_menu_error_gamejolt_3", "or contact us in our Discord server:") & Environment.NewLine & Environment.NewLine &
|
|
Localization.GetString("main_menu_error_gamejolt_4", "http://www.discord.me/p3d")
|
|
Else
|
|
errorText = Localization.GetString("main_menu_error_gamemode_profile", "The required GameMode does not exist!")
|
|
End If
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, errorText, New Vector2(displayRect.X + 70, displayRect.Y + 78), Color.White, 0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0F)
|
|
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DrawOptionsProfiles(IsGameJoltOptions As Boolean)
|
|
' Draw profiles.
|
|
For x = 0 To _OptionsProfiles.Count - 1
|
|
Dim xOffset As Single = _screenOrigin.X + _optionsOffset.X + x * 180
|
|
|
|
_OptionsProfiles(x).Draw(New Vector2(CInt(xOffset), CInt(_screenOrigin.Y)), CInt(_fadeInOptions * 255), (x = _selectedProfile), _menuTexture)
|
|
Next
|
|
|
|
' Draw arrow.
|
|
Select Case _menuIndex
|
|
Case 2
|
|
SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(_screenOrigin.X + _sliderPosition - 16), CInt(_screenOrigin.Y + 170), 32, 16), New Rectangle(0, 16, 32, 16), Color.White)
|
|
Case 3
|
|
SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(_screenOrigin.X + _sliderPosition - 16), CInt(_screenOrigin.Y + 170), 32, 16), New Rectangle(32, 16, 32, 16), Color.White)
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Function GetSliderTarget(ByVal index As Integer) As Integer
|
|
Select Case _menuIndex
|
|
Case 2, 3
|
|
Return CInt(_optionsOffset.X + index * 180 + 80)
|
|
Case 1
|
|
Return CInt(_gameJoltOffset.X + index * 180 + 80)
|
|
Case Else
|
|
Return CInt(_screenOffset.X + index * 180 + 80)
|
|
End Select
|
|
End Function
|
|
|
|
Public Overrides Sub ChangeTo()
|
|
If _MainProfiles.Count = 0 Then
|
|
'Dim t As New Threading.Thread(AddressOf LoadMainProfiles)
|
|
't.IsBackground = True
|
|
't.Start()
|
|
LoadMainProfiles()
|
|
End If
|
|
If _OptionsProfiles.Count = 0 Then
|
|
LoadOptionProfiles()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LoadMainProfiles()
|
|
_MainProfiles.Add(New GameProfile("", False, True))
|
|
_MainProfiles.Add(New GameProfile("", False, False))
|
|
|
|
Dim files As String() = {"Apricorns.dat", "Berries.dat", "Box.dat", "Daycare.dat", "HallOfFame.dat", "ItemData.dat", "Items.dat", "NPC.dat", "Options.dat", "Party.dat", "Player.dat", "Pokedex.dat", "Register.dat", "RoamingPokemon.dat", "SecretBase.dat", "Statistics.dat"}
|
|
For Each path As String In IO.Directory.GetDirectories(GameController.GamePath & "\Save\")
|
|
|
|
Dim exists As Boolean = True
|
|
For Each file As String In files
|
|
If IO.File.Exists(path & "\" & file) = False Then
|
|
exists = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
If exists = True Then
|
|
_MainProfiles.Add(New GameProfile(path, False, False))
|
|
End If
|
|
Next
|
|
|
|
GameModeManager.SetGameModePointer("Kolben")
|
|
|
|
_MainProfiles.Add(New GameProfile("", True, False))
|
|
|
|
_loading = False
|
|
End Sub
|
|
Private Sub LoadOptionProfiles()
|
|
_OptionsProfiles.Add(New GameProfile("", False, False, 0))
|
|
_OptionsProfiles.Add(New GameProfile("", False, False, 1))
|
|
_OptionsProfiles.Add(New GameProfile("", False, False, 2))
|
|
_OptionsProfiles.Add(New GameProfile("", False, False, 3))
|
|
End Sub
|
|
|
|
Private Class GameProfile
|
|
|
|
Private _isGameJolt As Boolean = False
|
|
Private _loaded As Boolean = False
|
|
Private _isLoading As Boolean = False
|
|
Private _failedGameJoltLoading As Boolean = False
|
|
Public _OptionsMenuIndex As Integer = -1
|
|
Private _path As String = ""
|
|
Private _isNewGameButton As Boolean = False
|
|
Private _IsOptionsMenuButton As Boolean = False
|
|
|
|
Private _name As String = ""
|
|
Private _gameMode As String
|
|
Private _pokedexSeen As Integer
|
|
Private _pokedexCaught As Integer
|
|
Private _badges As Integer
|
|
Private _timePlayed As String
|
|
Private _location As String
|
|
Private _pokemonTextures As New List(Of Texture2D)
|
|
Private _sprite As Texture2D
|
|
Private _gameModeExists As Boolean
|
|
Private _skin As String = ""
|
|
Private _surfing As Boolean = False
|
|
Private _tempSurfSkin As String = ""
|
|
|
|
Private _fontSize As Single = 1.0F
|
|
Private _spriteIndex As Integer = 0
|
|
Private _spriteDelay As Single = 1.5F
|
|
Private _logoBounce As Single = 0F
|
|
Private ReadOnly _spriteOrder As Integer() = {0, 1, 0, 2}
|
|
|
|
Public Property Sprite As Texture2D
|
|
Get
|
|
Return _sprite
|
|
End Get
|
|
Set(value As Texture2D)
|
|
_sprite = value
|
|
End Set
|
|
End Property
|
|
|
|
Public ReadOnly Property IsGameJolt As Boolean
|
|
Get
|
|
Return _isGameJolt
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property IsNewGameButton As Boolean
|
|
Get
|
|
Return _isNewGameButton
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property IsOptionsMenuButton As Boolean
|
|
Get
|
|
Return _IsOptionsMenuButton
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Path() As String
|
|
Get
|
|
Return _path
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Name() As String
|
|
Get
|
|
Return _name
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property GameMode() As String
|
|
Get
|
|
Return _gameMode
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property PokedexSeen() As Integer
|
|
Get
|
|
Return _pokedexSeen
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property PokedexCaught() As Integer
|
|
Get
|
|
Return _pokedexCaught
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Badges() As Integer
|
|
Get
|
|
Return _badges
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property TimePlayed() As String
|
|
Get
|
|
Return _timePlayed
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Location() As String
|
|
Get
|
|
Return _location
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property PokemonTextures() As List(Of Texture2D)
|
|
Get
|
|
Return _pokemonTextures
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Loaded() As Boolean
|
|
Get
|
|
Return _loaded
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property IsLoading() As Boolean
|
|
Get
|
|
Return _isLoading
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property GameModeExists() As Boolean
|
|
Get
|
|
Return _gameModeExists
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub SetToDefault()
|
|
_timePlayed = "00:00:00"
|
|
_location = "Your Room"
|
|
_pokemonTextures.Clear()
|
|
_badges = 0
|
|
End Sub
|
|
|
|
Public Sub New(ByVal path As String, ByVal isNewGameButton As Boolean, ByVal IsOptionsMenuButton As Boolean, Optional ByVal OptionsMenuIndex As Integer = -1)
|
|
If isNewGameButton Then
|
|
_isNewGameButton = True
|
|
_fontSize = 1.0F
|
|
ElseIf IsOptionsMenuButton Then
|
|
_IsOptionsMenuButton = True
|
|
_fontSize = 1.0F
|
|
_sprite = TextureManager.GetTexture("Textures\UI\OptionsMenu")
|
|
Else
|
|
If OptionsMenuIndex <> -1 Then
|
|
_OptionsMenuIndex = OptionsMenuIndex
|
|
Select Case _OptionsMenuIndex
|
|
Case 0
|
|
_sprite = TextureManager.GetTexture("Textures\UI\Options\Language")
|
|
Case 1
|
|
_sprite = TextureManager.GetTexture("Textures\UI\Options\Audio")
|
|
Case 2
|
|
_sprite = TextureManager.GetTexture("Textures\UI\Options\Controls")
|
|
Case 3
|
|
_sprite = TextureManager.GetTexture("Textures\UI\Options\ContentPacks")
|
|
End Select
|
|
Else
|
|
If path = "" Then
|
|
_isGameJolt = True
|
|
_loaded = False
|
|
_sprite = TextureManager.GetTexture("Textures\UI\GameJolt\gameJoltIcon")
|
|
|
|
LoadGameJolt()
|
|
Else
|
|
_path = path
|
|
|
|
LoadFromPlayerData(IO.File.ReadAllText(path & "\Player.dat"))
|
|
LoadContent(IO.File.ReadAllText(path & "\Party.dat"))
|
|
|
|
_loaded = True
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LoadContent(ByVal pokedata As String)
|
|
If GameModeManager.GameModeExists(_gameMode) Then
|
|
_gameModeExists = True
|
|
|
|
GameModeManager.SetGameModePointer(_gameMode)
|
|
PokemonForms.Initialize()
|
|
Dim pokemonData As String() = pokedata.SplitAtNewline()
|
|
For Each line As String In pokemonData
|
|
If line.StartsWith("{") Then
|
|
_pokemonTextures.Add(Pokemon.GetPokemonByData(line).GetMenuTexture(True))
|
|
End If
|
|
Next
|
|
|
|
If _isGameJolt = False Then
|
|
If _surfing Then
|
|
_sprite = TextureManager.GetTexture("Textures\NPC\" & _tempSurfSkin)
|
|
Else
|
|
_sprite = TextureManager.GetTexture("Textures\NPC\" & _skin)
|
|
End If
|
|
End If
|
|
Else
|
|
_gameModeExists = False
|
|
_sprite = TextureManager.GetTexture("GUI\unknownSprite")
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub LoadFromPlayerData(ByVal data As String)
|
|
Dim playerData As String() = data.SplitAtNewline()
|
|
For Each line As String In playerData
|
|
If line.Contains("|") Then
|
|
Dim id As String = line.Split("|"c)(0)
|
|
Dim content As String = line.Split("|"c)(1)
|
|
|
|
Select Case id.ToLower()
|
|
Case "name"
|
|
_name = content
|
|
|
|
While FontManager.InGameFont.MeasureString(_name).X * _fontSize > 140
|
|
_fontSize -= 0.01F
|
|
End While
|
|
Case "badges"
|
|
If content.Length > 0 AndAlso content <> "0" Then
|
|
_badges = content.Split(","c).Length
|
|
Else
|
|
_badges = 0
|
|
End If
|
|
Case "playtime"
|
|
Dim timedata As String() = content.Split(","c)
|
|
|
|
Dim hours As Integer = CInt(timedata(0)) + CInt(timedata(3)) * 24
|
|
Dim minutes As Integer = CInt(timedata(1))
|
|
Dim seconds As Integer = CInt(timedata(2))
|
|
|
|
_timePlayed = hours.ToString("D2") & ":" & minutes.ToString("D2") & ":" & seconds.ToString("D2")
|
|
Case "location"
|
|
_location = content
|
|
Case "gamemode"
|
|
_gameMode = content
|
|
Case "skin"
|
|
_skin = content
|
|
Case "surfing"
|
|
If content = "1" Then
|
|
_surfing = True
|
|
End If
|
|
Case "tempsurfskin"
|
|
_tempSurfSkin = content
|
|
|
|
End Select
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub Draw(ByVal offset As Vector2, ByVal alpha As Integer, ByVal isSelected As Boolean, ByVal t As Texture2D)
|
|
If _isGameJolt Then
|
|
For x = 0 To 9
|
|
For y = 0 To 9
|
|
SpriteBatch.Draw(t, New Rectangle(CInt(x * 16 + offset.X), CInt(y * 16 + offset.Y), 16, 16), New Rectangle(32, 0, 16, 16), New Color(255, 255, 255, alpha))
|
|
Next
|
|
Next
|
|
Canvas.DrawRectangle(New Rectangle(CInt(offset.X), CInt(offset.Y), 160, 3), Screens.UI.ColorProvider.AccentColor(True, alpha))
|
|
|
|
If _isLoading And GameJoltSave.DownloadProgress > 0 Then
|
|
Dim width As Integer = CInt((GameJoltSave.DownloadProgress / (GameJolt.GamejoltSave.SAVEFILECOUNT + GameJolt.GamejoltSave.EXTRADATADOWNLOADCOUNT)) * 160)
|
|
Canvas.DrawRectangle(New Rectangle(CInt(offset.X), CInt(offset.Y + 3), width, 157), New Color(100, 100, 100, 128))
|
|
End If
|
|
ElseIf _menuIndex = 3 Then
|
|
For x = 0 To 9
|
|
For y = 0 To 9
|
|
SpriteBatch.Draw(t, New Rectangle(CInt(x * 16 + offset.X), CInt(y * 16 + offset.Y), 16, 16), New Rectangle(32, 0, 16, 16), New Color(255, 255, 255, alpha))
|
|
Next
|
|
Next
|
|
Canvas.DrawRectangle(New Rectangle(CInt(offset.X), CInt(offset.Y), 160, 3), Screens.UI.ColorProvider.AccentColor(True, alpha))
|
|
Else
|
|
For x = 0 To 9
|
|
For y = 0 To 9
|
|
SpriteBatch.Draw(t, New Rectangle(CInt(x * 16 + offset.X), CInt(y * 16 + offset.Y), 16, 16), New Rectangle(0, 0, 16, 16), New Color(255, 255, 255, alpha))
|
|
Next
|
|
Next
|
|
Canvas.DrawRectangle(New Rectangle(CInt(offset.X), CInt(offset.Y), 160, 3), Screens.UI.ColorProvider.AccentColor(False, alpha))
|
|
End If
|
|
If _isNewGameButton Then
|
|
Dim textA As String = Localization.GetString("main_menu_newgame_line1", "New")
|
|
Dim textB As String = Localization.GetString("main_menu_newgame_line2", "Game")
|
|
|
|
If alpha >= 250 And CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
FontRenderer.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2 + 2), CInt(offset.Y + 72 - FontManager.InGameFont.MeasureString(textA).Y / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
FontRenderer.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2), CInt(offset.Y + 72 - FontManager.InGameFont.MeasureString(textA).Y / 2)), New Color(255, 255, 255, alpha))
|
|
|
|
FontRenderer.DrawString(FontManager.InGameFont, textB, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textB).X) / 2 + 2), CInt(offset.Y + 72 + FontManager.InGameFont.MeasureString(textB).Y / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
FontRenderer.DrawString(FontManager.InGameFont, textB, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textB).X) / 2), CInt(offset.Y + 72 + FontManager.InGameFont.MeasureString(textB).Y / 2)), New Color(255, 255, 255, alpha))
|
|
Else
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2 + 2), CInt(offset.Y + 72 - FontManager.InGameFont.MeasureString(textA).Y / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2), CInt(offset.Y + 72 - FontManager.InGameFont.MeasureString(textA).Y / 2)), New Color(255, 255, 255, alpha))
|
|
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textB, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textB).X) / 2 + 2), CInt(offset.Y + 72 + FontManager.InGameFont.MeasureString(textB).Y / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textB, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textB).X) / 2), CInt(offset.Y + 72 + FontManager.InGameFont.MeasureString(textB).Y / 2)), New Color(255, 255, 255, alpha))
|
|
|
|
End If
|
|
ElseIf _IsOptionsMenuButton Then
|
|
Dim text As String = Localization.GetString("main_menu_options", "Options")
|
|
If alpha >= 250 And CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
FontRenderer.DrawString(FontManager.InGameFont, text, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(text).X) / 2 + 2), CInt(offset.Y + 132 - (FontManager.InGameFont.MeasureString(text).Y) / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
FontRenderer.DrawString(FontManager.InGameFont, text, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(text).X) / 2), CInt(offset.Y + 132 - (FontManager.InGameFont.MeasureString(text).Y) / 2)), New Color(255, 255, 255, alpha))
|
|
Else
|
|
SpriteBatch.DrawString(FontManager.InGameFont, text, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(text).X) / 2 + 2), CInt(offset.Y + 132 - (FontManager.InGameFont.MeasureString(text).Y) / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
SpriteBatch.DrawString(FontManager.InGameFont, text, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(text).X) / 2), CInt(offset.Y + 132 - (FontManager.InGameFont.MeasureString(text).Y) / 2)), New Color(255, 255, 255, alpha))
|
|
End If
|
|
If _menuIndex = 0 Then
|
|
If isSelected Then
|
|
_logoBounce += 0.2F
|
|
Else
|
|
_logoBounce = 0F
|
|
End If
|
|
End If
|
|
SpriteBatch.Draw(_sprite, New Rectangle(CInt(offset.X + 40), CInt(offset.Y + 36 + Math.Sin(_logoBounce) * 8.0F), 80, 80), New Color(255, 255, 255, alpha))
|
|
|
|
ElseIf _OptionsMenuIndex <> -1 Then
|
|
Dim textA As String = ""
|
|
Dim textB As String = ""
|
|
Select Case _OptionsMenuIndex
|
|
Case 0
|
|
textA = Localization.GetString("main_menu_options_language", "Language")
|
|
Case 1
|
|
textA = Localization.GetString("main_menu_options_audio", "Audio")
|
|
Case 2
|
|
textA = Localization.GetString("main_menu_options_controls", "Controls")
|
|
Case 3
|
|
textA = Localization.GetString("main_menu_options_contentpacks_line1", "Content")
|
|
textB = Localization.GetString("main_menu_options_contentpacks_line2", "Packs")
|
|
End Select
|
|
|
|
If _OptionsMenuIndex <> 3 Then
|
|
If alpha >= 250 And CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
FontRenderer.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2 + 2), CInt(offset.Y + 132 - (FontManager.InGameFont.MeasureString(textA).Y) / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
FontRenderer.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2), CInt(offset.Y + 132 - (FontManager.InGameFont.MeasureString(textA).Y) / 2)), New Color(255, 255, 255, alpha))
|
|
Else
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2 + 2), CInt(offset.Y + 132 - (FontManager.InGameFont.MeasureString(textA).Y) / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2), CInt(offset.Y + 132 - (FontManager.InGameFont.MeasureString(textA).Y) / 2)), New Color(255, 255, 255, alpha))
|
|
End If
|
|
Else
|
|
If alpha >= 250 And CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
FontRenderer.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2 + 2), CInt(offset.Y + 116 - (FontManager.InGameFont.MeasureString(textA).Y) / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
FontRenderer.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2), CInt(offset.Y + 116 - (FontManager.InGameFont.MeasureString(textA).Y) / 2)), New Color(255, 255, 255, alpha))
|
|
|
|
FontRenderer.DrawString(FontManager.InGameFont, textB, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textB).X) / 2 + 2), CInt(offset.Y + 116 + FontManager.InGameFont.MeasureString(textB).Y / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
FontRenderer.DrawString(FontManager.InGameFont, textB, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textB).X) / 2), CInt(offset.Y + 116 + FontManager.InGameFont.MeasureString(textB).Y / 2)), New Color(255, 255, 255, alpha))
|
|
Else
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2 + 2), CInt(offset.Y + 116 - (FontManager.InGameFont.MeasureString(textA).Y) / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textA, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textA).X) / 2), CInt(offset.Y + 116 - (FontManager.InGameFont.MeasureString(textA).Y) / 2)), New Color(255, 255, 255, alpha))
|
|
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textB, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textB).X) / 2 + 2), CInt(offset.Y + 116 + FontManager.InGameFont.MeasureString(textB).Y / 2 + 2)), New Color(0, 0, 0, alpha))
|
|
SpriteBatch.DrawString(FontManager.InGameFont, textB, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(textB).X) / 2), CInt(offset.Y + 116 + FontManager.InGameFont.MeasureString(textB).Y / 2)), New Color(255, 255, 255, alpha))
|
|
End If
|
|
End If
|
|
|
|
If _menuIndex = 2 Or _menuIndex = 3 Then
|
|
If isSelected Then
|
|
_logoBounce += 0.2F
|
|
Else
|
|
_logoBounce = 0F
|
|
End If
|
|
End If
|
|
SpriteBatch.Draw(_sprite, New Rectangle(CInt(offset.X + 40), CInt(offset.Y + 24 + Math.Sin(_logoBounce) * 8.0F), 80, 80), New Color(255, 255, 255, alpha))
|
|
|
|
Else
|
|
If _loaded Then
|
|
Dim frameSize As Size
|
|
If _sprite.Width = _sprite.Height / 2 Then
|
|
frameSize = New Size(CInt(_sprite.Width / 2), CInt(_sprite.Height / 4))
|
|
ElseIf _sprite.Width = _sprite.Height Then
|
|
frameSize = New Size(CInt(_sprite.Width / 4), CInt(_sprite.Height / 4))
|
|
Else
|
|
frameSize = New Size(CInt(_sprite.Width / 3), CInt(_sprite.Height / 4))
|
|
End If
|
|
|
|
If isSelected Then
|
|
_spriteDelay -= 0.1F
|
|
If _spriteDelay <= 0F Then
|
|
_spriteDelay = 1.5F
|
|
_spriteIndex += 1
|
|
If _spriteIndex = _spriteOrder.Length Then
|
|
_spriteIndex = 0
|
|
End If
|
|
End If
|
|
Else
|
|
_spriteIndex = 0
|
|
End If
|
|
|
|
SpriteBatch.Draw(_sprite, New Rectangle(CInt(offset.X + 17), CInt(offset.Y - 10), 128, 128), New Rectangle(frameSize.Width * _spriteOrder(_spriteIndex), frameSize.Height * 2, frameSize.Width, frameSize.Height), New Color(255, 255, 255, alpha))
|
|
|
|
If alpha >= 250 And CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
FontRenderer.DrawString(FontManager.InGameFont, _name, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(_name).X * _fontSize) / 2 + 2), CInt(offset.Y + 120 + 2)), New Color(0, 0, 0, alpha), 0F, Vector2.Zero, New Vector2(_fontSize), SpriteEffects.None, 0F)
|
|
FontRenderer.DrawString(FontManager.InGameFont, _name, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(_name).X * _fontSize) / 2), CInt(offset.Y + 120)), New Color(255, 255, 255, alpha), 0F, Vector2.Zero, New Vector2(_fontSize), SpriteEffects.None, 0F)
|
|
Else
|
|
SpriteBatch.DrawString(FontManager.InGameFont, _name, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(_name).X * _fontSize) / 2 + 2), CInt(offset.Y + 120 + 2)), New Color(0, 0, 0, alpha), 0F, Vector2.Zero, New Vector2(_fontSize), SpriteEffects.None, 0F)
|
|
SpriteBatch.DrawString(FontManager.InGameFont, _name, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(_name).X * _fontSize) / 2), CInt(offset.Y + 120)), New Color(255, 255, 255, alpha), 0F, Vector2.Zero, New Vector2(_fontSize), SpriteEffects.None, 0F)
|
|
End If
|
|
Else
|
|
If _menuIndex = 0 Then
|
|
If isSelected Then
|
|
_logoBounce += 0.2F
|
|
Else
|
|
_logoBounce = 0F
|
|
End If
|
|
End If
|
|
Dim text As String = Localization.GetString("global_login", "Log in")
|
|
If _isLoading Then
|
|
text = Localization.GetString("global_loading", "Loading") & "..."
|
|
End If
|
|
|
|
SpriteBatch.Draw(_sprite, New Rectangle(CInt(offset.X + 46), CInt(offset.Y + 36 + Math.Sin(_logoBounce) * 8.0F), 68, 72), New Color(255, 255, 255, alpha))
|
|
|
|
If alpha >= 250 And CurrentScreen.Identification = Identifications.MainMenuScreen Then
|
|
FontRenderer.DrawString(FontManager.InGameFont, text, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(text).X * _fontSize) / 2), CInt(offset.Y + 120)), New Color(255, 255, 255, alpha), 0F, Vector2.Zero, New Vector2(_fontSize), SpriteEffects.None, 0F)
|
|
Else
|
|
SpriteBatch.DrawString(FontManager.InGameFont, text, New Vector2(CInt(offset.X + 80 - (FontManager.InGameFont.MeasureString(text).X * _fontSize) / 2), CInt(offset.Y + 120)), New Color(255, 255, 255, alpha), 0F, Vector2.Zero, New Vector2(_fontSize), SpriteEffects.None, 0F)
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub LoadGameJolt()
|
|
If GameJolt.API.LoggedIn Then
|
|
If _isGameJolt And _loaded = False And _isLoading = False Then
|
|
_isLoading = True
|
|
|
|
GameJoltSave.DownloadSave(GameJolt.LogInScreen.LoadedGameJoltID, True)
|
|
ElseIf _isGameJolt And _loaded = False And _isLoading Then
|
|
If GameJoltSave.DownloadFinished Then
|
|
_loaded = True
|
|
_isLoading = False
|
|
|
|
_sprite = GameJoltSave.DownloadedSprite
|
|
If _sprite Is Nothing Then
|
|
_sprite = GameJolt.Emblem.GetPlayerSprite(GameJolt.Emblem.GetPlayerLevel(GameJoltSave.Points), GameJoltSave.GameJoltID, GameJoltSave.Gender)
|
|
End If
|
|
|
|
LoadFromPlayerData(GameJoltSave.Player)
|
|
LoadContent(GameJoltSave.Party)
|
|
Else
|
|
If GameJoltSave.DownloadFailed Then
|
|
_loaded = True
|
|
_isLoading = False
|
|
_failedGameJoltLoading = True
|
|
|
|
_sprite = TextureManager.GetTexture("GUI\unknownSprite")
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub UnSelectProfile()
|
|
If IsGameJolt AndAlso _loaded Then
|
|
_loaded = False
|
|
_isLoading = False
|
|
_pokemonTextures.Clear()
|
|
_sprite = TextureManager.GetTexture("Textures\UI\GameJolt\gameJoltIcon")
|
|
_fontSize = 1.0F
|
|
GameJolt.API.LoggedIn = False
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub SelectProfile()
|
|
Select Case _menuIndex
|
|
Case 0
|
|
If _isGameJolt And _loaded = False And GameJolt.API.LoggedIn = False Then
|
|
SetScreen(New GameJolt.LogInScreen(CurrentScreen))
|
|
ElseIf _isNewGameButton Then
|
|
World.IsMainMenu = False
|
|
' Prompt GameMode selection screen:
|
|
SetScreen(New GameModeSelectionScreen(CurrentScreen))
|
|
Else
|
|
If _gameModeExists Then
|
|
GameModeManager.SetGameModePointer(_gameMode)
|
|
Localization.ReloadGameModeTokens()
|
|
World.IsMainMenu = False
|
|
If _isGameJolt Then
|
|
Core.Player.IsGameJoltSave = True
|
|
Core.Player.LoadGame("GAMEJOLTSAVE")
|
|
GameJolt.Emblem.GetAchievedEmblems()
|
|
|
|
SetScreen(New JoinServerScreen(CurrentScreen))
|
|
Else
|
|
Core.Player.IsGameJoltSave = False
|
|
Core.Player.LoadGame(IO.Path.GetFileName(_path))
|
|
|
|
SetScreen(New JoinServerScreen(CurrentScreen))
|
|
End If
|
|
Else
|
|
If Me.IsGameJolt Then
|
|
_loaded = False
|
|
_sprite = TextureManager.GetTexture("Textures\UI\GameJolt\gameJoltIcon")
|
|
LoadGameJolt()
|
|
ElseIf IsOptionsMenuButton = False Then
|
|
Dim messageBox As New UI.MessageBox(CurrentScreen)
|
|
messageBox.Show(Localization.GetString("main_menu_error_gamemode_message", "The required GameMode does not exist.~Reaquire the GameMode to play on this profile.").Replace("~", Environment.NewLine))
|
|
Else
|
|
_menuIndex = 2
|
|
_selectedProfileTemp = _selectedProfile
|
|
_selectedProfile = 0
|
|
'SetScreen(New NewOptionScreen(CurrentScreen))
|
|
End If
|
|
End If
|
|
End If
|
|
Case 2, 3
|
|
SetScreen(New NewOptionScreen(CurrentScreen, _OptionsMenuIndex + 1))
|
|
End Select
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Class
|
|
|
|
Public Class GameModeSelectionScreen
|
|
|
|
Inherits Screen
|
|
|
|
Private _gameModes As GameMode()
|
|
Private _index As Integer = 0
|
|
Private _offset As Single = 0F
|
|
|
|
Private tempGameModesDisplay As String = ""
|
|
Private GameModeSplash As Texture2D = Nothing
|
|
|
|
Private Const WIDTH = 320
|
|
Private Const HEIGHT = 64
|
|
Private Const GAP = 32
|
|
|
|
Public Sub New(ByVal currentScreen As Screen)
|
|
Me.Identification = Identifications.GameModeSelectionScreen
|
|
CanBePaused = False
|
|
CanChat = False
|
|
CanDrawDebug = True
|
|
CanGoFullscreen = True
|
|
CanMuteAudio = True
|
|
CanTakeScreenshot = True
|
|
|
|
PreScreen = currentScreen
|
|
|
|
_gameModes = GameModeManager.GetAllGameModes
|
|
End Sub
|
|
|
|
Public Overrides Sub Draw()
|
|
PreScreen.Draw()
|
|
|
|
If GameModeSplash IsNot Nothing Then
|
|
SpriteBatch.Draw(GameModeSplash, windowSize, Color.White)
|
|
End If
|
|
|
|
Dim text = Localization.GetString("gamemode_menu_select1", "Select a GameMode") + Environment.NewLine + Localization.GetString("gamemode_menu_select2", "to start the new game with.")
|
|
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, text, New Vector2(30, 30), Color.White)
|
|
Dim _menuTexture As Texture2D = TextureManager.GetTexture("GUI\Menus\MainMenu")
|
|
|
|
'Draw buttons
|
|
Dim center = CInt(windowSize.Width / 2 + 320)
|
|
For i = 0 To _gameModes.Length - 1
|
|
Dim ButtonY = CInt(i * (HEIGHT + GAP) + _offset + windowSize.Height / 2 - HEIGHT / 2)
|
|
Dim halfWidth = CInt(WIDTH / 2)
|
|
Dim ButtonColor = New Rectangle(0, 0, 16, 16)
|
|
Dim ButtonAccent = Screens.UI.ColorProvider.AccentColor(False, CInt(255))
|
|
If i <> _index Then
|
|
ButtonColor = New Rectangle(40, 48, 16, 16)
|
|
ButtonAccent = New Color(84, 198, 216)
|
|
End If
|
|
|
|
Dim displayText = _gameModes(i).Name.CropStringToWidth(FontManager.InGameFont, WIDTH - 32)
|
|
|
|
If displayText = "Kolben" Then
|
|
displayText = "Pokemon 3D"
|
|
End If
|
|
For x = 0 To CInt(WIDTH / 16)
|
|
For y = 0 To CInt(HEIGHT / 16)
|
|
SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(x * 16 + (center - halfWidth)), CInt(y * 16 + ButtonY - 8), 16, 16), ButtonColor, Color.White)
|
|
Canvas.DrawRectangle(New Rectangle(CInt(center - halfWidth), CInt(ButtonY - 8), WIDTH + 16, 3), ButtonAccent)
|
|
Next
|
|
Next
|
|
|
|
Dim textSize = FontManager.InGameFont.MeasureString(displayText)
|
|
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, displayText, New Vector2(center - halfWidth + 32 + 2, CType(ButtonY + HEIGHT / 2 - (textSize.Y / 2) + 2, Integer)), Color.Black, 0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0F)
|
|
GetFontRenderer().DrawString(FontManager.InGameFont, displayText, New Vector2(center - halfWidth + 32, CType(ButtonY + HEIGHT / 2 - (textSize.Y / 2), Integer)), Color.White, 0F, Vector2.Zero, 1.0F, SpriteEffects.None, 0F)
|
|
Next
|
|
|
|
'Draw GameMode description box
|
|
If tempGameModesDisplay = "" Then
|
|
Dim GameMode As GameMode = GameModeManager.GetGameMode(_gameModes(_index).DirectoryName)
|
|
|
|
Dim dispName As String = GameMode.Name
|
|
If dispName = "Kolben" Then
|
|
dispName = "Pokemon 3D"
|
|
End If
|
|
Dim dispDescription As String = GameMode.Description
|
|
Dim dispVersion As String = GameMode.Version
|
|
Dim dispAuthor As String = GameMode.Author
|
|
|
|
tempGameModesDisplay = Localization.GetString("gamemode_menu_name") & ": " & dispName & Environment.NewLine &
|
|
Localization.GetString("gamemode_menu_version") & ": " & dispVersion & Environment.NewLine &
|
|
Localization.GetString("gamemode_menu_author") & ": " & dispAuthor & Environment.NewLine &
|
|
Localization.GetString("gamemode_menu_description") & ": " & dispDescription
|
|
End If
|
|
|
|
tempGameModesDisplay = tempGameModesDisplay.CropStringToWidth(FontManager.InGameFont, 400)
|
|
Dim displayRect = New Rectangle(CInt(windowSize.Width / 2 - 400 - 32), CInt(windowSize.Height / 2 - FontManager.InGameFont.MeasureString(tempGameModesDisplay).Y / 2 - 32), 480 + 32, CInt(FontManager.InGameFont.MeasureString(tempGameModesDisplay).Y + 64))
|
|
Dim displayWidth = CInt(displayRect.Width / 16)
|
|
Dim displayHeight = CInt(displayRect.Height / 16)
|
|
|
|
For x = 0 To displayWidth
|
|
For y = 0 To displayHeight
|
|
SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(x * 16 + displayRect.X), CInt(y * 16) + displayRect.Y - 8, 16, 16), New Rectangle(0, 0, 16, 16), Color.White)
|
|
Next
|
|
Next
|
|
Canvas.DrawRectangle(New Rectangle(displayRect.X, displayRect.Y - 8, displayWidth * 16 + 16, 3), New Color(84, 198, 216))
|
|
|
|
SpriteBatch.DrawString(FontManager.InGameFont, tempGameModesDisplay, New Vector2(displayRect.X + 32 + 2, displayRect.Y + 32 + 2), Color.Black)
|
|
SpriteBatch.DrawString(FontManager.InGameFont, tempGameModesDisplay, New Vector2(displayRect.X + 32, displayRect.Y + 32), Color.White)
|
|
|
|
'Draw Arrow
|
|
SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(displayRect.X + displayRect.Width + 16), CInt(displayRect.Y + (FontManager.InGameFont.MeasureString(tempGameModesDisplay).Y + 64) / 2 - 16), 16, 32), New Rectangle(64, 0, 16, 32), Color.White)
|
|
|
|
End Sub
|
|
|
|
Public Overrides Sub Update()
|
|
' PreScreen is the MainMenuScreen, so update the previous screen of that to achieve the background world.
|
|
PreScreen.PreScreen.Update()
|
|
|
|
If _index > 0 AndAlso Controls.Up(True, True, True, True, True, True) Then
|
|
_index -= 1
|
|
tempGameModesDisplay = ""
|
|
GameModeSplash = Nothing
|
|
End If
|
|
If _index < _gameModes.Length - 1 AndAlso Controls.Down(True, True, True, True, True, True) Then
|
|
_index += 1
|
|
tempGameModesDisplay = ""
|
|
GameModeSplash = Nothing
|
|
End If
|
|
If KeyBoardHandler.KeyPressed(KeyBindings.EscapeKey) Or KeyBoardHandler.KeyPressed(KeyBindings.BackKey1) Or KeyBoardHandler.KeyPressed(KeyBindings.BackKey2) Or MouseHandler.ButtonPressed(MouseHandler.MouseButtons.RightButton) Or ControllerHandler.ButtonPressed(Buttons.B) Then
|
|
SoundManager.PlaySound("select")
|
|
SetScreen(PreScreen)
|
|
End If
|
|
If Controls.Accept(True, True, True) Then
|
|
GameModeManager.SetGameModePointer(_gameModes(_index).DirectoryName)
|
|
Localization.ReloadGameModeTokens()
|
|
SoundManager.PlaySound("select")
|
|
If GameModeManager.ActiveGameMode.IntroType = "0" Then
|
|
SetScreen(New TransitionScreen(Me.PreScreen, New NewGameScreen(), Color.Black, False))
|
|
Else
|
|
SetScreen(New Screens.MainMenu.NewNewGameScreen(PreScreen))
|
|
End If
|
|
End If
|
|
|
|
Dim targetOffset = GetTargetOffset()
|
|
|
|
If _offset <> targetOffset Then
|
|
_offset = MathHelper.Lerp(_offset, targetOffset, 0.25F)
|
|
If Math.Abs(_offset - targetOffset) <= 0.01F Then
|
|
_offset = targetOffset
|
|
End If
|
|
End If
|
|
|
|
If GameModeSplash Is Nothing Then
|
|
Try
|
|
Dim fileName As String = GameController.GamePath & "\GameModes\" & _gameModes(_index).DirectoryName & "\GameMode.png"
|
|
If IO.File.Exists(fileName) = True Then
|
|
Using stream As IO.Stream = IO.File.Open(fileName, IO.FileMode.OpenOrCreate)
|
|
GameModeSplash = Texture2D.FromStream(GraphicsDevice, stream)
|
|
End Using
|
|
End If
|
|
Catch ex As Exception
|
|
Logger.Log(Logger.LogTypes.ErrorMessage, "MainMenuScreen.vb/UpdateNewGameMenu: An error occurred trying to load the splash image at """ & GameController.GamePath & "\GameModes\" & _gameModes(_index).DirectoryName & "\GameMode.png"". This could have been caused by an invalid file header. (Exception: " & ex.Message & ")")
|
|
End Try
|
|
End If
|
|
End Sub
|
|
|
|
Private Function GetTargetOffset() As Integer
|
|
Return -_index * (HEIGHT + GAP)
|
|
End Function
|
|
|
|
End Class |