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

Unown menu logic fix 

Also minor change to join server screen
This commit is contained in:
Ruan Pablo 2020-09-12 04:39:49 -03:00
parent 7f94b874b4
commit b361c496a2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
P3D/Pokemon/Monster/Resource/PokemonForms.vb
View File

@ -1070,7 +1070,7 @@ Public Class PokemonForms
Dim x As Integer = 0 Dim x As Integer = 0
Dim y As Integer = 0 Dim y As Integer = 0
Select Case CInt(P.AdditionalData) Select Case CInt(P.AdditionalData)
Case 1 To 16 Case 0 To 15
y = 0 y = 0
x = CInt(P.AdditionalData) x = CInt(P.AdditionalData)
Case Else Case Else

4
P3D/Screens/MainMenu/JoinServerScreen.vb
View File

@ -40,7 +40,7 @@ Public Class JoinServerScreen
Private Sub LoadServers() Private Sub LoadServers()
Me.ServerList.Clear() Me.ServerList.Clear()
Dim localServer As New Server("Local", "127.0.0.1") Dim localServer As New Server("Local Server", "127.0.0.1")
localServer.IsLocal = True localServer.IsLocal = True
Me.ServerList.Add(localServer) Me.ServerList.Add(localServer)
@ -88,7 +88,7 @@ Public Class JoinServerScreen
Canvas.DrawRectangle(New Rectangle(0, 75, Core.ScreenSize.Width, Core.ScreenSize.Height - 240), New Color(0, 0, 0, 128), True) Canvas.DrawRectangle(New Rectangle(0, 75, Core.ScreenSize.Width, Core.ScreenSize.Height - 240), New Color(0, 0, 0, 128), True)
Core.SpriteBatch.DrawInterfaceString(FontManager.MainFont, "Join A Server", New Vector2(CSng(Core.ScreenSize.Width / 2 - FontManager.MainFont.MeasureString("Join A Server").X), 14), Color.White, 0.0F, New Vector2(0), 2.0F, SpriteEffects.None, 0.0F) Core.SpriteBatch.DrawInterfaceString(FontManager.MainFont, "Join a server:", New Vector2(CSng(Core.ScreenSize.Width / 2 - FontManager.MainFont.MeasureString("Join A Server").X), 14), Color.White, 0.0F, New Vector2(0), 2.0F, SpriteEffects.None, 0.0F)
Dim endX As Integer = ServerList.Count - 1 Dim endX As Integer = ServerList.Count - 1
endX = CInt(MathHelper.Clamp(endX, 0, ServersToDisplay - 1)) endX = CInt(MathHelper.Clamp(endX, 0, ServersToDisplay - 1))