tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add Safari Balls & optional Steps counter to menu

This commit is contained in:
JappaWakka 2024-12-29 10:28:08 +01:00
parent 2e2af670e3
commit aba304e5d4
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
P3D/Screens/NewMenuScreen.vb
View File

@ -118,9 +118,23 @@
'Draw buttons:
If _gradientFade = 255 Then
If Core.Player.IsGameJoltSave = True Then
GameJolt.Emblem.Draw(GameJolt.API.username, Core.GameJoltSave.GameJoltID, Core.GameJoltSave.Points, Core.GameJoltSave.Gender, Core.GameJoltSave.Emblem, New Vector2(CSng(Core.windowSize.Width / 2 - 256), 30), 4, Core.GameJoltSave.DownloadedSprite)
GameJolt.Emblem.Draw(GameJolt.API.username, Core.GameJoltSave.GameJoltID, Core.GameJoltSave.Points, Core.GameJoltSave.Gender, Core.GameJoltSave.Emblem, New Vector2(CInt(Core.windowSize.Width / 2 - 256), 30), 4, Core.GameJoltSave.DownloadedSprite)
End If
Dim RemainingText As String = ""
If Core.Player.ScriptDelayDisplaySteps = True Then
RemainingText &= Localization.GetString("global_steps_left", "Steps left:") & " " & Core.Player.ScriptDelaySteps
End If
If Screen.Level.IsSafariZone Then
If RemainingText <> "" Then
RemainingText &= Environment.NewLine
End If
RemainingText &= Localization.GetString("global_safari_balls_remaining", "Safari Balls x") & " " & Core.Player.Inventory.GetItemAmount(181.ToString)
End If
Core.SpriteBatch.DrawString(FontManager.MainFont, RemainingText, New Vector2(CInt(Core.windowSize.Width / 2 - FontManager.MainFont.MeasureString(RemainingText).X) + 4, CInt(Core.windowSize.Height / 2 - 272 - FontManager.MainFont.MeasureString(RemainingText).Y) + 4), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
Core.SpriteBatch.DrawString(FontManager.MainFont, RemainingText, New Vector2(CInt(Core.windowSize.Width / 2 - FontManager.MainFont.MeasureString(RemainingText).X), CInt(Core.windowSize.Height / 2 - 272 - FontManager.MainFont.MeasureString(RemainingText).Y)), Color.White, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
For i = 0 To _menuOptions.Count - 1
Dim text As String = _menuOptions(i).Replace("|||", "")