tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 15:54:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Minor visual fixes

Browse Source
This commit is contained in:
CaptainSegis 2018-08-16 18:53:49 -05:00
parent 18425ed8d3
commit a1aff31089
4 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Battle/BattleSystemV2/BattleMenu.vb
View File

@ -83,8 +83,8 @@
End If End If
'HP indicator: 'HP indicator:
Core.SpriteBatch.DrawString(FontManager.MiniFont, p.HP & "/" & p.MaxHP, New Vector2(pos.X + 102, pos.Y + 37), New Color(0, 0, 0, _moveMenuAlpha)) Core.SpriteBatch.DrawString(FontManager.MiniFont, p.HP & "/" & p.MaxHP, New Vector2(pos.X + 102, pos.Y + 37 + 3), New Color(0, 0, 0, _moveMenuAlpha))
Core.SpriteBatch.DrawString(FontManager.MiniFont, p.HP & "/" & p.MaxHP, New Vector2(pos.X + 100, pos.Y + 35), shinyHue) Core.SpriteBatch.DrawString(FontManager.MiniFont, p.HP & "/" & p.MaxHP, New Vector2(pos.X + 100, pos.Y + 35 + 3), shinyHue)
'EXP Bar: 'EXP Bar:
If BattleScreen.CanReceiveEXP = True Then If BattleScreen.CanReceiveEXP = True Then

2
P3D/Battle/BattleSystemV2/BattleScreen.vb
View File

@ -827,7 +827,7 @@ nextIndex:
Next Next
End If End If
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Battle system not final!", New Vector2(0, Core.windowSize.Height - 20), Color.White) 'Core.SpriteBatch.DrawString(FontManager.MiniFont, "Battle system not final!", New Vector2(0, Core.windowSize.Height - 20), Color.White)
TextBox.Draw() TextBox.Draw()

3
P3D/Screens/MainMenu/PressStartScreen.vb
View File

@ -211,7 +211,8 @@ Public Class PressStartScreen
If ControllerHandler.IsConnected() Then If ControllerHandler.IsConnected() Then
text = "Press to start." text = "Press to start."
Else Else
text = "Press " & KeyBindings.EnterKey1.ToString() & ", " & KeyBindings.EnterKey2.ToString() & ", or primary mouse button to start." text = "Press " & KeyBindings.EnterKey1.ToString().ToUpper & " to start."
'text = "Press " & KeyBindings.EnterKey1.ToString() & ", " & KeyBindings.EnterKey2.ToString() & ", or primary mouse button to start."
End If End If
Dim textSize As Vector2 = FontManager.GameJoltFont.MeasureString(text) Dim textSize As Vector2 = FontManager.GameJoltFont.MeasureString(text)

BIN
lib/build/Pokemon3D.exe
View File

Binary file not shown.