tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-26 23:34:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Mostly comment revision for the Screens folder

Browse Source 
Also includes Security folder. Some strings were also modified to make more sense/match the main games.

Updated credits with the correct year, etc.
This commit is contained in:
Conner Joseph Brewster 2017-01-21 17:01:31 -06:00
parent 6fa8578aea
commit 2e5a135abe
35 changed files with 349 additions and 346 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2.5DHero/2.5DHero/Screens/Battle/BattleCatchScreen.vb
View File

@ -169,9 +169,9 @@
Case 9
AnimationIndex = 10
Core.SetScreen(New NameObjectScreen(Core.CurrentScreen, p))
Case 10 'After Catch
Case 10 ' After Catch
If p.CatchBall.ID = 186 Then
p.FullRestore() 'Heal Ball
p.FullRestore() ' Heal Ball
End If
PlayerStatistics.Track("Caught Pokemon", 1)
@ -181,7 +181,7 @@
Core.SetScreen(Me.PreScreen)
BattleSystem.Battle.Won = True
CType(Core.CurrentScreen, BattleSystem.BattleScreen).EndBattle(False)
Case 20 'Failed
Case 20 ' Failed
If Core.Player.Pokemons.Count < 6 Then
Dim p As Pokemon = BattleScreen.OppPokemon
p.SetCatchInfos(Me.Ball, "Illegally caught!")
@ -190,7 +190,7 @@
End If
ResetVisibility()
Core.SetScreen(Me.PreScreen)
Case 21 'After Break
Case 21 ' After Break
ResetVisibility()
Core.SetScreen(Me.PreScreen)
CType(Core.CurrentScreen, BattleSystem.BattleScreen).Battle.InitializeRound(CType(Core.CurrentScreen, BattleSystem.BattleScreen), New BattleSystem.Battle.RoundConst() With {.StepType = BattleSystem.Battle.RoundConst.StepTypes.Text, .Argument = "It broke free!"})
@ -282,7 +282,7 @@
Animations.Add(New BARotation(New Vector3(BattleScreen.OppPokemonNPC.Position.X - 0.05F, -0.35F, BattleScreen.OppPokemonNPC.Position.Z), Ball.Texture, New Vector3(0.3F), New Vector3(0, 0, 0.05F), New Vector3(0, 0, 1.0F), 0.0F, 4.0F, False, False, True, True))
Case 4, 6
Animations.Add(New BARotation(New Vector3(BattleScreen.OppPokemonNPC.Position.X - 0.05F, -0.35F, BattleScreen.OppPokemonNPC.Position.Z), Ball.Texture, New Vector3(0.3F), New Vector3(0, 0, -0.05F), New Vector3(0, 0, -1.0F), 0.0F, 4.0F, False, False, True, True))
Case 7 'Catch Animation
Case 7 ' Catch Animation
For i = 0 To 2
Dim v As Vector3 = New Vector3(BattleScreen.OppPokemonNPC.Position.X - 0.05F, -0.35F, BattleScreen.OppPokemonNPC.Position.Z)
@ -291,7 +291,7 @@
Animations.Add(New BAMove(New Vector3(BattleScreen.OppPokemonNPC.Position.X - 0.05F, -0.35F, BattleScreen.OppPokemonNPC.Position.Z), Ball.Texture, New Vector3(0.3F), New Vector3(BattleScreen.OppPokemonNPC.Position.X - 0.05F, -0.35F, BattleScreen.OppPokemonNPC.Position.Z), 0.02F, 0.0F, 6.0F))
Case 8
Animations.Add(New BAOpacity(New Vector3(BattleScreen.OppPokemonNPC.Position.X - 0.05F, -0.35F, BattleScreen.OppPokemonNPC.Position.Z), Ball.Texture, New Vector3(0.3F), 0.01F, False, 0.0F, 0.0F, 0.0F))
Case 21 'Break Animation
Case 21 ' Break Animation
End Select
End Sub

6
2.5DHero/2.5DHero/Screens/Battle/BattleGrowStatsScreen.vb
View File

@ -45,11 +45,11 @@
If Delay >= 3.0F Then
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Max HP: " & OldStats(0).ToString(), New Vector2(p.X + 32, p.Y + 84), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Attack: " & OldStats(1).ToString(), New Vector2(p.X + 32, p.Y + 124), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Attack: " & OldStats(1).ToString(), New Vector2(p.X + 32, p.Y + 124), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Defense: " & OldStats(2).ToString(), New Vector2(p.X + 32, p.Y + 164), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Sp Attack: " & OldStats(3).ToString(), New Vector2(p.X + 32, p.Y + 204), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Sp Defense: " & OldStats(4).ToString(), New Vector2(p.X + 32, p.Y + 244), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Speed: " & OldStats(5).ToString(), New Vector2(p.X + 32, p.Y + 284), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Sp Defense: " & OldStats(4).ToString(), New Vector2(p.X + 32, p.Y + 244), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Speed: " & OldStats(5).ToString(), New Vector2(p.X + 32, p.Y + 284), Color.Black)
End If
If Delay >= 5.0F Then
Core.SpriteBatch.DrawString(FontManager.MiniFont, "+ " & newMaxHP, New Vector2(p.X + 200, p.Y + 84), Color.Black)

2
2.5DHero/2.5DHero/Screens/Battle/BlackOutScreen.vb
View File

@ -142,7 +142,7 @@
Public Overrides Sub ChangeTo()
MusicManager.PlayMusic("nomusic", False)
Core.Player.Inventory.RemoveItem(177) 'Remove all Park Balls.
Core.Player.Inventory.RemoveItem(177) ' Remove all Park Balls (happens regardless of whether or not the player was currently in the Bug-Catching Contest).
PlayerStatistics.Track("Blackouts", 1)
End Sub

10
2.5DHero/2.5DHero/Screens/Credits/CreditsScreen.vb
View File

@ -2,7 +2,7 @@ Public Class CreditsScreen
Inherits Screen
Private Const COPYRIGHTYEAR As String = "2015"
Private Const COPYRIGHTYEAR As String = "2017"
Dim CreditsPages As New List(Of CreditsPage)
Dim CurrentPageIndex As Integer = 0
@ -53,13 +53,13 @@ Public Class CreditsScreen
CreditsPages.Add(New CreditsPage("Pokémon3D Staff", Color.White, Color.Black))
CreditsPages.Add(New CreditsPage("Pokémon", Color.White, Color.Black, {"made by", "Nintendo", "Game Freak", "The Pokémon Company"}.ToList()))
If GameModeManager.ActiveGameMode.IsDefaultGamemode = True Then
CreditsPages.Add(New CreditsPage("Pokémon3D", Color.White, Color.Black, {"Trademark (TM) 2012 - " & COPYRIGHTYEAR, "made by Kolben Games"}.ToList()))
CreditsPages.Add(New CreditsPage("Pokémon 3D", Color.White, Color.Black, {"Trademark (TM) 2012 - " & COPYRIGHTYEAR, "made by Kolben Games"}.ToList()))
Else
CreditsPages.Add(New CreditsPage("Pokémon3D", Color.White, Color.Black, {"Trademark (TM) 2012 - " & COPYRIGHTYEAR, "made by Kolben Games", "", "GameMode made by", GameModeManager.ActiveGameMode.Author}.ToList()))
CreditsPages.Add(New CreditsPage("Pokémon 3D", Color.White, Color.Black, {"Trademark (TM) 2012 - " & COPYRIGHTYEAR, "made by Kolben Games", "", "GameMode made by", GameModeManager.ActiveGameMode.Author}.ToList()))
End If
CreditsPages.Add(New CreditsPage("Team Kolben", Color.White, Color.Black, {"Nils Drescher", "Andrew Leach", "Marc Boisvert-Dupras", "Grant Garrett", "Jason Houston", "Daniel Billing", "Benjamin Smith", "Hunter Graves"}.ToList()))
CreditsPages.Add(New CreditsPage("Director", Color.White, Color.Black, {"Nils Drescher"}.ToList()))
CreditsPages.Add(New CreditsPage("Open Source Development Team", Color.White, Color.Black, {"Benjamin Smith", "Yong Jian Ming", """Aragas""", """oXFantaXo""", "Jorge Luis Espinoza"}.ToList()))
CreditsPages.Add(New CreditsPage("Open Source Development Team", Color.White, Color.Black, {"Benjamin Smith", "Yong Jian Ming", """Aragas""", """oXFantaXo""", "Jorge Luis Espinoza", "Conner Joseph Brewster"}.ToList()))
CreditsPages.Add(New CreditsPage("Programming", Color.White, Color.Black, {"Nils Drescher", "Jason Houston", "William Lang", "Benjamin Smith", "Yong Jian Ming", "Jorge Luis Espinoza", """Aragas"""}.ToList()))
CreditsPages.Add(New CreditsPage("Graphic Design", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", """Godeken""", "Caleb Coleman", "Robert Nobbmann", "Manuel Lampe", "Miguel Nunez", "Grant Garrett", """Anvil555"""}.ToList()))
CreditsPages.Add(New CreditsPage("Map Design", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Manuel Lampe", "Robert Nobbmann", "Maximilian Schröder", "Jan Mika Eine", "Jason Houston", """oXFantaXo"""}.ToList()))
@ -291,4 +291,4 @@ Public Class CreditsScreen
MediaPlayer.IsRepeating = False
End Sub
End Class
End Class

6
2.5DHero/2.5DHero/Screens/GUI/Canvas.vb
View File

@ -152,7 +152,7 @@
Private Structure GradientConfiguration
Private Texture As Texture2D 'Stores the generated texture
Private Texture As Texture2D ' Stores the generated texture
Private Width As Integer
Private Height As Integer
@ -213,7 +213,7 @@
cA = 255 + cA
End If
If Horizontal = True Then 'left to right gradient
If Horizontal = True Then ' Left to right gradiant.
Dim c As Color = New Color(cR, cG, cB, cA)
Dim length As Integer = CInt(Math.Ceiling(stepSize))
@ -258,7 +258,7 @@
Shared gradientConfigs As New List(Of GradientConfiguration)
Public Shared Sub DrawGradient(ByVal Rectangle As Rectangle, ByVal fromColor As Color, ByVal toColor As Color, ByVal Horizontal As Boolean, ByVal Steps As Integer)
Horizontal = Not Horizontal 'because fuck you.
Horizontal = Not Horizontal
Dim gConfig As GradientConfiguration = Nothing
Dim foundConfig As Boolean = False

2
2.5DHero/2.5DHero/Screens/HistoryScreen.vb
View File

@ -34,7 +34,7 @@
dateString = day & "-" & month & "-" & year & "_" & hour & "." & minute & "." & second
End With
'Date|IsScriptOrigin|Name|Data|ShowOnTimeline
' Date|IsScriptOrigin|Name|Data|ShowOnTimeline
Core.Player.HistoryData &= dateString & "|" & IsScriptOrigin.ToNumberString() & "|" & Name & "|" & Data & "|" & ShowOnTimeline.ToNumberString()
End Sub

4
2.5DHero/2.5DHero/Screens/Inventory/ChoosePokemonScreen.vb
View File

@ -190,7 +190,7 @@
Core.SpriteBatch.Draw(Item.Texture, New Rectangle(78, 124, 48, 48), Color.White)
If Me.canExit = True Then
Core.SpriteBatch.DrawString(FontManager.MiniFont, "PRESS E TO GO BACK", New Vector2(710, 580), Color.DarkGray)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Press the E key to go back.", New Vector2(710, 580), Color.DarkGray)
End If
For i = 0 To Me.PokemonList.Count - 1
@ -330,7 +330,7 @@
If LearnType > 0 Then
AttackLable = "Unable!"
Select Case LearnType
Case 1 'TM/HM
Case 1 ' Technical/Hidden Machine
If CType(moveLearnArg, Items.TechMachine).CanTeach(Pokemon) = "" Then
AttackLable = "Able!"
End If

28
2.5DHero/2.5DHero/Screens/Inventory/PokegearScreen.vb
View File

@ -4,8 +4,8 @@
Inherits Screen
Public Shared TradeRequestData As Integer = -1 'This data gets set to the network ID of the user that requests a trade.
Public Shared BattleRequestData As Integer = -1 'This data gets set to the network ID of the user that requests a battle.
Public Shared TradeRequestData As Integer = -1 ' This data gets set to the network ID of the user that requests a trade.
Public Shared BattleRequestData As Integer = -1 ' This data gets set to the network ID of the user that requests a battle.
Enum MenuScreens As Integer
Main = 0
@ -94,7 +94,7 @@
End Sub
Private Sub InitializeUserView(ByVal Data() As Object)
'Data: NetworkID, GameJoltID, Name, Sprite
' Data: NetworkID, GameJoltID, Name, Sprite
UserEmblem = Nothing
UserSprite = CType(Data(3), Texture2D)
@ -107,7 +107,7 @@
End Sub
Private Sub InitializeTradeRequest(ByVal Data() As Object)
'Data: NetworkID of the requester, GameJoltID
' Data: NetworkID of the requester, GameJoltID
menuIndex = MenuScreens.TradeRequest
Me.TradeRequestNetworkID = CInt(Data(0))
@ -117,7 +117,7 @@
End Sub
Private Sub InitializeBattleRequest(ByVal Data() As Object)
'Data: NetworkID of the requester, GameJoltID
' Data: NetworkID of the requester, GameJoltID
menuIndex = MenuScreens.BattleRequest
Me.BattleRequestNetworkID = CInt(Data(0))
@ -428,7 +428,7 @@
Core.SpriteBatch.DrawString(FontManager.MiniFont, "PSS Ranklist", New Vector2(CInt(startPos.X + 50), CInt(startPos.Y + 45)), Color.Black)
If Core.Player.IsGamejoltSave = True Then
'Draw own information:
' Draw own information:
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\pokegear"), New Rectangle(CInt(startPos.X + 220), CInt(startPos.Y + 40), 16, 32), New Rectangle(96, 112, 8, 16), Color.White)
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\pokegear"), New Rectangle(CInt(startPos.X + 220 + 16), CInt(startPos.Y + 40), 304, 32), New Rectangle(102, 112, 4, 16), Color.White)
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\pokegear"), New Rectangle(CInt(startPos.X + 220 + 16 + 304), CInt(startPos.Y + 40), 16, 32), New Rectangle(104, 112, 8, 16), Color.White)
@ -622,7 +622,7 @@
Core.SpriteBatch.DrawString(FontManager.MiniFont, "PSS Friendlist", New Vector2(CInt(startPos.X + 50), CInt(startPos.Y + 45)), Color.Black)
If Core.Player.IsGamejoltSave = True Then
'Draw own information:
' Draw own information:
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\pokegear"), New Rectangle(CInt(startPos.X + 220), CInt(startPos.Y + 40), 16, 32), New Rectangle(96, 112, 8, 16), Color.White)
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\pokegear"), New Rectangle(CInt(startPos.X + 220 + 16), CInt(startPos.Y + 40), 304, 32), New Rectangle(102, 112, 4, 16), Color.White)
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\pokegear"), New Rectangle(CInt(startPos.X + 220 + 16 + 304), CInt(startPos.Y + 40), 16, 32), New Rectangle(104, 112, 8, 16), Color.White)
@ -1464,11 +1464,11 @@
Me.FrontierList.Add(New FrontierSymbol() With {.Name = "Gold Ability", .Description = "You defeated the Frontier Brain of" & vbNewLine & "Battle Tower a second time and you've" & vbNewLine & "your real strength when it comes to battles.", .Texture = TextureManager.GetTexture("GUI\Badges", New Rectangle(50, 200, 50, 50), "")})
Else
If ActionScript.IsRegistered("silver ability") = True Then
Me.FrontierList.Add(New FrontierSymbol() With {.Name = "Silver Ability", .Description = "You defeated the Frontier Brain of" & vbNewLine & "Battle Tower and showed him how" & vbNewLine & "you and your POKéMON really are.", .Texture = TextureManager.GetTexture("GUI\Badges", New Rectangle(0, 200, 50, 50), "")})
Me.FrontierList.Add(New FrontierSymbol() With {.Name = "Silver Ability", .Description = "You defeated the Frontier Brain of" & vbNewLine & "Battle Tower and showed him how" & vbNewLine & "you and your Pokémon really are.", .Texture = TextureManager.GetTexture("GUI\Badges", New Rectangle(0, 200, 50, 50), "")})
End If
End If
If ActionScript.IsRegistered("gold knowledge") = True Then
Me.FrontierList.Add(New FrontierSymbol() With {.Name = "Gold Knowledge", .Description = "This Emblem displays how great you can" & vbNewLine & "interact with POKéMON and how well" & vbNewLine & "you can adapt your strategy to a new situation.", .Texture = TextureManager.GetTexture("GUI\Badges", New Rectangle(150, 200, 50, 50), "")})
Me.FrontierList.Add(New FrontierSymbol() With {.Name = "Gold Knowledge", .Description = "This Emblem displays how great you can" & vbNewLine & "interact with Pokémon and how well" & vbNewLine & "you can adapt your strategy to a new situation.", .Texture = TextureManager.GetTexture("GUI\Badges", New Rectangle(150, 200, 50, 50), "")})
Else
If ActionScript.IsRegistered("silver knowledge") = True Then
Me.FrontierList.Add(New FrontierSymbol() With {.Name = "Silver Knowledge", .Description = "Only few trainers achieved this emblem" & vbNewLine & "which shows what strength lies" & vbNewLine & "inside them.", .Texture = TextureManager.GetTexture("GUI\Badges", New Rectangle(100, 200, 50, 50), "")})
@ -1582,7 +1582,7 @@
End Sub
Public Function CanListen() As Boolean
'Need to check: Daytime, Region, Expansion Card, Activation
' Need to check: Daytime, Region, Expansion Card, Activation
If Me.DayTimes.Contains(World.GetTime) = False Then
Return False
@ -1602,12 +1602,12 @@
Next
Select Case Activation
Case "1" 'needs register in the level channels (only works when minChannel = maxChannel)
Case "1" ' Needs register in the level channels (only works when minChannel = maxChannel)
If Screen.Level.AllowedRadioChannels.Contains(Me.ChannelMin) = False Then
Return False
End If
Case "0"
'Channel is always available.
' Channel is always available.
End Select
If Me.ActivationRegister <> "0" Then
@ -1667,7 +1667,7 @@
If chosenID > -1 Then
Dim p As Pokemon = Pokemon.GetPokemonByID(chosenID)
output = "Welcome to the POKéDEX Show! Today, we are going to look at the entry of " & p.GetName() & "! Its entry reads:~""" & p.PokedexEntry.Text & """~Wow, that is interesting! Also, " & p.GetName() & " is " & p.PokedexEntry.Height & "m high and weights " & p.PokedexEntry.Weight & "kg.~Isn't that amazing?~" & p.GetName() & " is part of the " & p.PokedexEntry.Species & " species.~That's all the information we have. Tune in next time!"
output = "Welcome to the Pokédex Show! Today, we are going to look at the entry of " & p.GetName() & "! Its entry reads:~""" & p.PokedexEntry.Text & """~Wow, that is interesting! Also, " & p.GetName() & " is " & p.PokedexEntry.Height & "m high and weights " & p.PokedexEntry.Weight & "kg.~Isn't that amazing?~" & p.GetName() & " is part of the " & p.PokedexEntry.Species & " species.~That's all the information we have. Tune in next time!"
End If
Case "[randompokemon]"
Dim levels() As String = {"route29.dat", "route30.dat", "route31.dat", "route32.dat", "route33.dat", "route36.dat", "route37.dat", "route38.dat", "route39.dat", "routes\route34.dat", "routes\route35.dat", "routes\route42.dat", "routes\route43.dat", "routes\route44.dat", "routes\route45.dat", "routes\route46.dat"}
@ -1683,7 +1683,7 @@
levelName = levelName.Substring(0, 5) & " " & levelName.Remove(0, 5)
If Not p Is Nothing Then
output = "Professor Oak's POKéMON Talk! With Mary!~~Professor Oak: " & p.GetName() & " has been spotted on " & levelName & ".~Mary: " & p.GetName() & "! How smart! How inspiring!"
output = "Professor Oak's Pokémon Talk! With Mary!~~Professor Oak: " & p.GetName() & " has been spotted on " & levelName & ".~Mary: " & p.GetName() & "! How smart! How inspiring!"
End If
Case "[unown]"
Dim words() As String = {"doom", "dark", "help", "join us", "stay", "lost", "vanish", "always there", "no eyes"}

4
2.5DHero/2.5DHero/Screens/MainMenu/IntroScreen.vb
View File

@ -40,8 +40,8 @@
Me.Update3DMoveIn()
End Select
'In the end, do this:
' Core.SetScreen(New MainMenuScreen())
' In the end, do this:
'Core.SetScreen(New MainMenuScreen())
End Sub
Private Sub UpdateRevealPokemon()

10
2.5DHero/2.5DHero/Screens/MainMenu/JoinServerScreen.vb
View File

@ -93,7 +93,7 @@ Public Class JoinServerScreen
Canvas.DrawScrollBar(New Vector2(CSng(Core.ScreenSize.Width / 2 + 266), 100), Me.ServerList.Count, 1, selectIndex, New Size(8, Core.ScreenSize.Height - 300), False, Color.Black, Color.Gray, True)
End If
'Draw default first:
' Draw default first:
For i = 0 To endX
Dim index As Integer = i + scrollIndex
@ -154,7 +154,7 @@ Public Class JoinServerScreen
Dim vS As String = "Protocol version: " & Servers.ServersManager.PROTOCOLVERSION
Core.SpriteBatch.DrawInterfaceString(FontManager.MiniFont, vS, New Vector2(Core.ScreenSize.Width - FontManager.MiniFont.MeasureString(vS).X - 4, Core.ScreenSize.Height - FontManager.MiniFont.MeasureString(vS).Y - 1), Color.White)
'Draw player list tooltip after everything else:
' Draw player list tooltip after everything else:
For i = 0 To endX
Dim index As Integer = i + scrollIndex
@ -408,9 +408,9 @@ Public Class JoinServerScreen
Dim sw As New Stopwatch()
sw.Start()
'TTL: 10000 ticks, usually at 60 Hz => 10000/60 seconds
' TTL: 10000 ticks, usually at 60 Hz => 10000/60 seconds
While sw.ElapsedMilliseconds < 10000 And Me.Pinged = False
'wait for server connection in main thread.
'Wait for server connection in the main thread.
Threading.Thread.Sleep(1)
End While
@ -568,7 +568,7 @@ Public Class JoinServerScreen
Core.SpriteBatch.DrawInterfaceString(FontManager.MiniFont, Me.CurrentPlayersOnline & "/" & Me.MaxPlayersOnline, New Vector2(CInt(startPos.X) + width - 36 - FontManager.MiniFont.MeasureString(Me.CurrentPlayersOnline & "/" & Me.MaxPlayersOnline).X, CInt(startPos.Y) + 7), Color.LightGray)
Core.SpriteBatch.DrawInterface(TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(80 + 14 * (4 - GetPingLevel()), 238, 14, 14), ""), New Rectangle(CInt(startPos.X) + width - 32, CInt(startPos.Y) + 3, 28, 28), Color.White)
'Ping result tool tip:
' Ping result tool tip:
If New Rectangle(CInt(startPos.X) + width - 32, CInt(startPos.Y) + 3, 28, 28).Contains(MouseHandler.MousePosition) = True Then
Canvas.DrawRectangle(New Rectangle(MouseHandler.MousePosition.X + 10, MouseHandler.MousePosition.Y + 10, 160, 32), Color.Black)
Canvas.DrawBorder(3, New Rectangle(MouseHandler.MousePosition.X + 10, MouseHandler.MousePosition.Y + 10, 160, 32), Color.Gray)

16
2.5DHero/2.5DHero/Screens/MainMenu/MainMenuScreen.vb
View File

@ -57,8 +57,8 @@
SkyDome = New SkyDome()
Camera = New MainMenuCamera()
'renderTarget = New RenderTarget2D(Core.GraphicsDevice, Core.windowSize.Width, Core.windowSize.Height, False, Core.GraphicsDevice.PresentationParameters.BackBufferFormat, DepthFormat.Depth24)
'blurEffect = Core.Content.Load(Of Effect)("Effects\BlurEffect")
' renderTarget = New RenderTarget2D(Core.GraphicsDevice, Core.windowSize.Width, Core.windowSize.Height, False, Core.GraphicsDevice.PresentationParameters.BackBufferFormat, DepthFormat.Depth24)
' blurEffect = Core.Content.Load(Of Effect)("Effects\BlurEffect")
Core.Player.Skin = "Hilbert"
Level = New Level()
@ -810,7 +810,7 @@
Dim downloadProgress As Integer = Core.GameJoltSave.DownloadProgress
Dim total As Integer = Core.GameJoltSave.TotalDownloadItems
Dim downloadtext As String = "Downloading profile"
Dim downloadtext As String = "Downloading profile..."
Core.SpriteBatch.DrawInterfaceString(FontManager.MainFont, downloadtext & LoadingDots.Dots, New Vector2(CSng(Core.ScreenSize.Width / 2 - FontManager.MainFont.MeasureString(downloadtext).X / 2) + 2, 322), Color.Black)
Core.SpriteBatch.DrawInterfaceString(FontManager.MainFont, downloadtext & LoadingDots.Dots, New Vector2(CSng(Core.ScreenSize.Width / 2 - FontManager.MainFont.MeasureString(downloadtext).X / 2), 320), Color.White)
@ -824,7 +824,7 @@
End If
If ControllerHandler.IsConnected() = False Then
Dim text As String = "Right-Click to quit to the main menu"
Dim text As String = "Right-Click to quit to the main menu."
Core.SpriteBatch.DrawInterfaceString(FontManager.MainFont, text, New Vector2(CSng(Core.ScreenSize.Width / 2 - FontManager.MainFont.MeasureString(text).X / 2) + 2, 502), Color.Black)
Core.SpriteBatch.DrawInterfaceString(FontManager.MainFont, text, New Vector2(CSng(Core.ScreenSize.Width / 2 - FontManager.MainFont.MeasureString(text).X / 2), 500), Color.White)
End If
@ -1178,15 +1178,15 @@
If MouseHandler.ButtonPressed(MouseHandler.MouseButtons.LeftButton) = True Then
Select Case packsMenuIndex(1)
Case 2 'up
Case 2 ' Up
Me.ButtonUp()
Case 3 'down
Case 3 ' Down
Me.ButtonDown()
Case 4 'toggle
Case 4 ' Toggle
If PackNames.Count > 0 Then
Me.ButtonToggle(PackNames(packsMenuIndex(0)))
End If
Case 5 'packinformation
Case 5 ' ContentPack information
Me.ButtonPackInformation()
End Select
End If

2
2.5DHero/2.5DHero/Screens/MainMenu/OfflineGameWarningScreen.vb
View File

@ -24,7 +24,7 @@
Core.SpriteBatch.DrawString(FontManager.InGameFont, "Start a new offline game", New Vector2(CSng(Core.windowSize.Width / 2 - 280), 130), Color.White)
Dim t As String = "If you start a game in ""Offline Mode"" by pressing the ""New Game"" button, you cannot access online features of Pokémon3D such as Trading and Trainer Customization. Click on the GameJolt button in the lower right corner in order to start a game in ""Online Mode""."
Dim t As String = "If you start a game in ""Offline Mode"" by pressing the ""New Game"" button, you cannot access the online features of Pokémon 3D such as trading and trainer customization. Click on the GameJolt button in the lower right corner in order to start a game in ""Online Mode""."
t = t.CropStringToWidth(FontManager.MainFont, 450)
Core.SpriteBatch.DrawString(FontManager.MainFont, t, New Vector2(CSng(Core.windowSize.Width / 2 - 310) + 50, 240), Color.White)

2
2.5DHero/2.5DHero/Screens/MainMenu/SplashScreen.vb
View File

@ -63,7 +63,7 @@ Friend Class SplashScreen
Else
Core.SetScreen(New MainMenuScreen())
End If
'Core.SetScreen(New TransitionScreen(Me, New IntroScreen(), Color.Black, False))
' Core.SetScreen(New TransitionScreen(Me, New IntroScreen(), Color.Black, False))
End If
End If

14
2.5DHero/2.5DHero/Screens/MapScreen.vb
View File

@ -233,7 +233,7 @@
If Not String.IsNullOrWhiteSpace(Core.Player.RoamingPokemonData) Then
If Core.Player.RoamingPokemonData.Length > 0 AndAlso Core.Player.RoamingPokemonData.Contains("|") Then
For Each Pokes As String In Core.Player.RoamingPokemonData.SplitAtNewline
'PokémonID,Level,regionID,startLevelFile,MusicLoop,PokemonData
' PokémonID,Level,regionID,startLevelFile,MusicLoop,PokemonData
Dim TempData() As String = Pokes.Split("|")
Dim MapFiles() As String = Tags("mapfiles").Split(",")
Dim PokeCurrentLocation As String = TempData(3)
@ -373,7 +373,7 @@
regionPointer = 0
End If
'regionPointer = regionPointer.Clamp(0, Me.regions.Count - 1)
' regionPointer = regionPointer.Clamp(0, Me.regions.Count - 1)
If regionPointer <> cPointer Then
Me.currentRegion = regions(regionPointer)
@ -480,7 +480,7 @@
Dim regionString As String = Localization.GetString(Me.currentRegion(0).ToString().ToUpper() & Me.currentRegion.Remove(0, 1))
If Me.regions.Count > 1 Then
regionString &= " (Press Shift/Shoulder Buttons to switch between regions)"
regionString &= " (Press the Shift/Shoulder Buttons to switch between regions.)"
End If
Core.SpriteBatch.DrawString(FontManager.InGameFont, regionString, New Vector2(MapScreen.mapOffsetX + 3, MapScreen.mapOffsetY - 30), Color.Black)
@ -491,7 +491,7 @@
End Sub
Private Sub DrawSwitch()
'Cities:
' Cities:
Dim r As New Rectangle(104, 0, 12, 12)
If drawObjects(0) = False Then
r = New Rectangle(116, 0, 12, 12)
@ -499,7 +499,7 @@
Core.SpriteBatch.Draw(Me.objectsTexture, New Rectangle(Core.windowSize.Width - 170, 100, 24, 24), r, New Color(255, 255, 255, 220))
Core.SpriteBatch.DrawString(FontManager.MiniFont, Localization.GetString("map_screen_cities"), New Vector2(Core.windowSize.Width - 137, 103), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, Localization.GetString("map_screen_cities"), New Vector2(Core.windowSize.Width - 140, 100), Color.White)
'Routes:
' Routes:
r = New Rectangle(104, 12, 12, 12)
If drawObjects(1) = False Then
r = New Rectangle(116, 12, 12, 12)
@ -507,7 +507,7 @@
Core.SpriteBatch.Draw(Me.objectsTexture, New Rectangle(Core.windowSize.Width - 170, 130, 24, 24), r, New Color(255, 255, 255, 220))
Core.SpriteBatch.DrawString(FontManager.MiniFont, Localization.GetString("map_screen_routes"), New Vector2(Core.windowSize.Width - 137, 133), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, Localization.GetString("map_screen_routes"), New Vector2(Core.windowSize.Width - 140, 130), Color.White)
'Places:
' Places:
r = New Rectangle(104, 24, 12, 12)
If drawObjects(2) = False Then
r = New Rectangle(116, 24, 12, 12)
@ -515,7 +515,7 @@
Core.SpriteBatch.Draw(Me.objectsTexture, New Rectangle(Core.windowSize.Width - 170, 160, 24, 24), r, New Color(255, 255, 255, 220))
Core.SpriteBatch.DrawString(FontManager.MiniFont, Localization.GetString("map_screen_places"), New Vector2(Core.windowSize.Width - 137, 163), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, Localization.GetString("map_screen_places"), New Vector2(Core.windowSize.Width - 140, 160), Color.White)
'Roaming:
' Roaming:
r = New Rectangle(111, 64, 17, 16)
If drawObjects(3) = False Then
r = New Rectangle(111, 80, 17, 16)

2
2.5DHero/2.5DHero/Screens/NewGameScreen.vb
View File

@ -16,7 +16,7 @@
Dim SkinIndex As Integer = 0
Dim skinTexture As Texture2D
Dim enterCorrectName As Boolean = False
Dim nameMessage As String = "This name is too short"
Dim nameMessage As String = "This name is too short."
Dim mainTexture As Texture2D
Dim pokeTexture As Texture2D

26
2.5DHero/2.5DHero/Screens/OptionScreen.vb
View File

@ -110,7 +110,7 @@
YScroll = 0
Select Case Me.ScreenIndex
Case 0
Case 0 ' Main Options menu.
Me.ControlList.Add(New CommandButton(New Vector2(100, 200), 6, "Game", AddressOf SwitchToGame))
Me.ControlList.Add(New CommandButton(New Vector2(340, 200), 6, "Graphics", AddressOf SwitchToGraphics))
Me.ControlList.Add(New CommandButton(New Vector2(580, 200), 6, "Battle", AddressOf SwitchToBattle))
@ -119,14 +119,14 @@
Me.ControlList.Add(New CommandButton(New Vector2(120, 480), 6, "Apply", AddressOf Apply))
Me.ControlList.Add(New CommandButton(New Vector2(630, 480), 6, "Close", AddressOf Close))
Case 1
Me.ControlList.Add(New ScrollBar(New Vector2(100, 200), 400, "Textspeed", Me.TextSpeed, 1, 3, AddressOf ChangeTextspeed))
Case 1 ' "Game" from the Options menu.
Me.ControlList.Add(New ScrollBar(New Vector2(100, 200), 400, "Text Speed", Me.TextSpeed, 1, 3, AddressOf ChangeTextspeed))
If CBool(GameModeManager.GetGameRuleValue("LockDifficulty", "0")) = False Then
Dim d As New Dictionary(Of Integer, String)
d.Add(0, "Easy")
d.Add(1, "Hard")
d.Add(2, "S-Hard")
d.Add(2, "Super Hard")
Me.ControlList.Add(New ScrollBar(New Vector2(100, 250), 400, "Difficulty", Me.Difficulty, 0, 2, AddressOf ChangeDifficulty, d))
End If
@ -134,7 +134,7 @@
Me.ControlList.Add(New ToggleButton(New Vector2(100, 300), 8, "View Bobbing", Me.ViewBobbing, AddressOf ToggleBobbing, {"Off", "On"}.ToList()))
Me.ControlList.Add(New CommandButton(New Vector2(364, 480), 6, "Back", AddressOf SwitchToMain))
Case 2
Case 2 ' "Graphics" from the Options menu.
Me.ControlList.Add(New ScrollBar(New Vector2(100, 200), 400, "Field of View", CInt(Me.FOV), 45, 120, AddressOf ChangeFOV))
Dim d As New Dictionary(Of Integer, String)
@ -143,23 +143,23 @@
d.Add(2, "Normal")
d.Add(3, "Far")
d.Add(4, "Extreme")
Me.ControlList.Add(New ScrollBar(New Vector2(100, 250), 400, "Renderdistance", Me.RenderDistance, 0, 4, AddressOf ChangeRenderDistance, d))
Me.ControlList.Add(New ScrollBar(New Vector2(100, 250), 400, "Render Distance", Me.RenderDistance, 0, 4, AddressOf ChangeRenderDistance, d))
Dim d1 As New Dictionary(Of Integer, String)
d1.Add(0, "Off")
Me.ControlList.Add(New ScrollBar(New Vector2(100, 300), 400, "Offset map quality", Me.LoadOffsetMaps, 0, 100, AddressOf ChangeOffsetMaps, d1))
Me.ControlList.Add(New ScrollBar(New Vector2(100, 300), 400, "Offset Map Quality", Me.LoadOffsetMaps, 0, 100, AddressOf ChangeOffsetMaps, d1))
Me.ControlList.Add(New ToggleButton(New Vector2(100, 350), 8, "Graphics", CBool(Me.GraphicStyle), AddressOf ToggleGraphicsStyle, {"Fast", "Fancy"}.ToList()))
Me.ControlList.Add(New ToggleButton(New Vector2(400, 350), 8, "Multi Sampling", Me.PreferMultiSampling, AddressOf ToggleMultiSampling, {"Off", "On"}.ToList()))
Me.ControlList.Add(New CommandButton(New Vector2(364, 480), 6, "Back", AddressOf SwitchToMain))
Case 3
Case 3 ' "Battle" from the Options menu.
Me.ControlList.Add(New ToggleButton(New Vector2(100, 200), 8, "3D Models", CBool(ShowModels), AddressOf ToggleShowModels, {"Off", "On"}.ToList()))
Me.ControlList.Add(New ToggleButton(New Vector2(400, 200), 8, "Animations", CBool(Me.ShowBattleAnimations), AddressOf ToggleAnimations, {"Off", "On"}.ToList()))
Me.ControlList.Add(New ToggleButton(New Vector2(100, 320), 8, "Battle Style", CBool(Me.BattleStyle), AddressOf ToggleBattleStyle, {"Shift", "Set"}.ToList()))
Me.ControlList.Add(New CommandButton(New Vector2(364, 480), 6, "Back", AddressOf SwitchToMain))
Case 4
Case 4 ' "Controls" from the Options menu.
Dim d As New Dictionary(Of Integer, String)
d.Add(1, "...Slow...")
d.Add(12, "Standard")
@ -167,12 +167,12 @@
d.Add(50, "SPEED OF LIGHT!")
Me.ControlList.Add(New ScrollBar(New Vector2(100, 200), 400, "Mouse Speed", Me.MouseSpeed, 1, 50, AddressOf ChangeMouseSpeed, d))
Me.ControlList.Add(New CommandButton(New Vector2(100, 250), 9, "Reset Key Bindings", AddressOf ResetKeyBindings))
Me.ControlList.Add(New ToggleButton(New Vector2(100, 370), 12, "XBOX 360 gamepad", Me.GamePadEnabled, AddressOf ToggleXBOX360Controller, {"Disabled", "Enabled"}.ToList()))
Me.ControlList.Add(New ToggleButton(New Vector2(100, 370), 12, "Xbox 360 Gamepad", Me.GamePadEnabled, AddressOf ToggleXBOX360Controller, {"Disabled", "Enabled"}.ToList()))
Me.ControlList.Add(New CommandButton(New Vector2(364, 480), 6, "Back", AddressOf SwitchToMain))
Case 5
Me.ControlList.Add(New ScrollBar(New Vector2(100, 200), 400, "Music volume", Me.Music, 0, 100, AddressOf ChangeMusicVolume))
Me.ControlList.Add(New ScrollBar(New Vector2(100, 250), 400, "Sound volume", Me.Sound, 0, 100, AddressOf ChangeSoundVolume))
Case 5 ' "Volume" from the Options menu.
Me.ControlList.Add(New ScrollBar(New Vector2(100, 200), 400, "Music Volume", Me.Music, 0, 100, AddressOf ChangeMusicVolume))
Me.ControlList.Add(New ScrollBar(New Vector2(100, 250), 400, "Sound Volume", Me.Sound, 0, 100, AddressOf ChangeSoundVolume))
Me.ControlList.Add(New ToggleButton(New Vector2(100, 300), 8, "Muted", CBool(Me.Muted), AddressOf ToggleMute, {"No", "Yes"}.ToList()))
Me.ControlList.Add(New CommandButton(New Vector2(364, 480), 6, "Back", AddressOf SwitchToMain))

6
2.5DHero/2.5DHero/Screens/PC/HallOfFameScreen.vb
View File

@ -267,9 +267,9 @@
Level.Update()
Select Case menuState
Case 0 'Menu updates
Case 0 ' Menu updates.
Me.UpdateMenu()
Case 1 'Menu fade/appear
Case 1 ' Menu fade/appear.
Me.alpha += (3 * Me.alphaFade)
If Me.alpha >= 255 Then
Me.alpha = 255
@ -278,7 +278,7 @@
Me.alpha = 0
Me.menuState = 2
End If
Case 2 'Level updates
Case 2 ' Level updates.
Me.UpdateCamera()
End Select

2
2.5DHero/2.5DHero/Screens/PC/MailSystemScreen.vb
View File

@ -332,7 +332,7 @@
Select Case ID
Case 0
T.Name = "Won a GTS competition."
T.Description = "You are the winner of a competition that took place at the GTS. It might has been an important competition."
T.Description = "You are the winner of a competition that took place at the GTS. It must have been an important competition."
TexturePosition = New Vector2(0, 0)
Case 1
T.Name = "Won a GTS competition."

170
2.5DHero/2.5DHero/Screens/PC/StorageSystemScreen.vb
View File

@ -318,15 +318,15 @@ Public Class StorageSystemScreen
If Me.BoxChooseMode = True Then
Me.BoxChooseMode = False
Else
Dim e As New MenuEntry(3, "CHOOSE BOX", False, AddressOf Me.ChooseBox)
Dim e1 As New MenuEntry(4, "CHANGE MODE", False, AddressOf Me.ChangemodeMenu)
Dim e As New MenuEntry(3, "Choose Box", False, AddressOf Me.ChooseBox)
Dim e1 As New MenuEntry(4, "Change Mode", False, AddressOf Me.ChangemodeMenu)
If GetBox(CurrentBox).IsBattleBox = True Then
Dim e4 As New MenuEntry(5, "CANCEL", True, Nothing)
Dim e4 As New MenuEntry(5, "Cancel", True, Nothing)
Me.SetupMenu({e, e1, e4}, "What do you want to do?")
Else
Dim e2 As New MenuEntry(5, "WALLPAPER", False, AddressOf WallpaperMain)
Dim e3 As New MenuEntry(6, "NAME", False, AddressOf SelectNameBox)
Dim e4 As New MenuEntry(7, "CANCEL", True, Nothing)
Dim e2 As New MenuEntry(5, "Wallpaper", False, AddressOf WallpaperMain)
Dim e3 As New MenuEntry(6, "Name", False, AddressOf SelectNameBox)
Dim e4 As New MenuEntry(7, "Cancel", True, Nothing)
Me.SetupMenu({e, e1, e2, e3, e4}, "What do you want to do?")
End If
End If
@ -355,11 +355,11 @@ Public Class StorageSystemScreen
#Region "ChangeMode"
Private Sub ChangemodeMenu()
Dim e As New MenuEntry(3, "WITHDRAW", False, AddressOf SelectWithdraw)
Dim e1 As New MenuEntry(4, "DEPOSIT", False, AddressOf SelectDeposit)
Dim e2 As New MenuEntry(5, "SINGLE MOVE", False, AddressOf Me.SelectSingleMove)
Dim e3 As New MenuEntry(6, "EASY MOVE", False, AddressOf Me.SelectEasyMove)
Dim e4 As New MenuEntry(7, "CANCEL", True, AddressOf Me.ChooseObject)
Dim e As New MenuEntry(3, "Withdraw", False, AddressOf SelectWithdraw)
Dim e1 As New MenuEntry(4, "Deposit", False, AddressOf SelectDeposit)
Dim e2 As New MenuEntry(5, "Single Move", False, AddressOf Me.SelectSingleMove)
Dim e3 As New MenuEntry(6, "Easy Move", False, AddressOf Me.SelectEasyMove)
Dim e4 As New MenuEntry(7, "Cancel", True, AddressOf Me.ChooseObject)
Me.SetupMenu({e, e1, e2, e3, e4}, "Choose a mode to use.")
End Sub
@ -404,71 +404,71 @@ Public Class StorageSystemScreen
Select Case badges
Case 0, 1
Dim e As New MenuEntry(3, "PACKAGE 1", False, AddressOf WallpaperPackage1)
Dim e4 As New MenuEntry(4, "CANCEL", True, AddressOf ChooseObject)
Dim e As New MenuEntry(3, "Package 1", False, AddressOf WallpaperPackage1)
Dim e4 As New MenuEntry(4, "Cancel", True, AddressOf ChooseObject)
SetupMenu({e, e4}, "Please pick a theme.")
Case 2, 3, 4
Dim e As New MenuEntry(3, "PACKAGE 1", False, AddressOf WallpaperPackage1)
Dim e1 As New MenuEntry(4, "PACKAGE 2", False, AddressOf WallpaperPackage2)
Dim e4 As New MenuEntry(5, "CANCEL", True, AddressOf ChooseObject)
Dim e As New MenuEntry(3, "Package 1", False, AddressOf WallpaperPackage1)
Dim e1 As New MenuEntry(4, "Package 2", False, AddressOf WallpaperPackage2)
Dim e4 As New MenuEntry(5, "Cancel", True, AddressOf ChooseObject)
SetupMenu({e, e1, e4}, "Please pick a theme.")
Case 5, 6, 7
Dim e As New MenuEntry(3, "PACKAGE 1", False, AddressOf WallpaperPackage1)
Dim e1 As New MenuEntry(4, "PACKAGE 2", False, AddressOf WallpaperPackage2)
Dim e2 As New MenuEntry(5, "PACKAGE 3", False, AddressOf WallpaperPackage3)
Dim e4 As New MenuEntry(6, "CANCEL", True, AddressOf ChooseObject)
Dim e As New MenuEntry(3, "Package 1", False, AddressOf WallpaperPackage1)
Dim e1 As New MenuEntry(4, "Package 2", False, AddressOf WallpaperPackage2)
Dim e2 As New MenuEntry(5, "Package 3", False, AddressOf WallpaperPackage3)
Dim e4 As New MenuEntry(6, "Cancel", True, AddressOf ChooseObject)
SetupMenu({e, e1, e2, e4}, "Please pick a theme.")
Case Else
Dim e As New MenuEntry(3, "PACKAGE 1", False, AddressOf WallpaperPackage1)
Dim e1 As New MenuEntry(4, "PACKAGE 2", False, AddressOf WallpaperPackage2)
Dim e2 As New MenuEntry(5, "PACKAGE 3", False, AddressOf WallpaperPackage3)
Dim e3 As New MenuEntry(6, "PACKAGE 4", False, AddressOf WallpaperPackage4)
Dim e4 As New MenuEntry(7, "CANCEL", True, AddressOf ChooseObject)
Dim e As New MenuEntry(3, "Package 1", False, AddressOf WallpaperPackage1)
Dim e1 As New MenuEntry(4, "Package 2", False, AddressOf WallpaperPackage2)
Dim e2 As New MenuEntry(5, "Package 3", False, AddressOf WallpaperPackage3)
Dim e3 As New MenuEntry(6, "Package 4", False, AddressOf WallpaperPackage4)
Dim e4 As New MenuEntry(7, "Cancel", True, AddressOf ChooseObject)
SetupMenu({e, e1, e2, e3, e4}, "Please pick a theme.")
End Select
End Sub
Private Sub WallpaperPackage1()
Dim e As New MenuEntry(3, "FOREST", False, AddressOf PickWallpaper, 0)
Dim e1 As New MenuEntry(4, "CITY", False, AddressOf PickWallpaper, 1)
Dim e2 As New MenuEntry(5, "DESERT", False, AddressOf PickWallpaper, 2)
Dim e3 As New MenuEntry(6, "SAVANNA", False, AddressOf PickWallpaper, 3)
Dim e4 As New MenuEntry(7, "CAVE", False, AddressOf PickWallpaper, 8)
Dim e5 As New MenuEntry(8, "RIVER", False, AddressOf PickWallpaper, 11)
Dim e6 As New MenuEntry(9, "CANCEL", True, AddressOf WallpaperMain)
Dim e As New MenuEntry(3, "Forest", False, AddressOf PickWallpaper, 0)
Dim e1 As New MenuEntry(4, "City", False, AddressOf PickWallpaper, 1)
Dim e2 As New MenuEntry(5, "Desert", False, AddressOf PickWallpaper, 2)
Dim e3 As New MenuEntry(6, "Savanna", False, AddressOf PickWallpaper, 3)
Dim e4 As New MenuEntry(7, "Cave", False, AddressOf PickWallpaper, 8)
Dim e5 As New MenuEntry(8, "River", False, AddressOf PickWallpaper, 11)
Dim e6 As New MenuEntry(9, "Cancel", True, AddressOf WallpaperMain)
SetupMenu({e, e1, e2, e3, e4, e5, e6}, "Pick the wallpaper.")
End Sub
Private Sub WallpaperPackage2()
Dim e As New MenuEntry(3, "VOLCANO", False, AddressOf PickWallpaper, 5)
Dim e1 As New MenuEntry(4, "SNOW", False, AddressOf PickWallpaper, 6)
Dim e2 As New MenuEntry(5, "BEACH", False, AddressOf PickWallpaper, 9)
Dim e3 As New MenuEntry(6, "SEAFLOOR", False, AddressOf PickWallpaper, 10)
Dim e4 As New MenuEntry(7, "CRAG", False, AddressOf PickWallpaper, 4)
Dim e5 As New MenuEntry(8, "STEEL", False, AddressOf PickWallpaper, 7)
Dim e6 As New MenuEntry(9, "CANCEL", True, AddressOf WallpaperMain)
Dim e As New MenuEntry(3, "Volcano", False, AddressOf PickWallpaper, 5)
Dim e1 As New MenuEntry(4, "Snow", False, AddressOf PickWallpaper, 6)
Dim e2 As New MenuEntry(5, "Beach", False, AddressOf PickWallpaper, 9)
Dim e3 As New MenuEntry(6, "Seafloor", False, AddressOf PickWallpaper, 10)
Dim e4 As New MenuEntry(7, "Crag", False, AddressOf PickWallpaper, 4)
Dim e5 As New MenuEntry(8, "Steel", False, AddressOf PickWallpaper, 7)
Dim e6 As New MenuEntry(9, "Cancel", True, AddressOf WallpaperMain)
SetupMenu({e, e1, e2, e3, e4, e5, e6}, "Pick the wallpaper.")
End Sub
Private Sub WallpaperPackage3()
Dim e As New MenuEntry(3, "VOLCANO 2", False, AddressOf PickWallpaper, 14)
Dim e1 As New MenuEntry(4, "CITY 2", False, AddressOf PickWallpaper, 15)
Dim e2 As New MenuEntry(5, "SNOW 2", False, AddressOf PickWallpaper, 16)
Dim e3 As New MenuEntry(6, "DESERT 2", False, AddressOf PickWallpaper, 17)
Dim e4 As New MenuEntry(7, "SAVANNA 2", False, AddressOf PickWallpaper, 18)
Dim e5 As New MenuEntry(8, "STEEL 2", False, AddressOf PickWallpaper, 19)
Dim e6 As New MenuEntry(9, "CANCEL", True, AddressOf WallpaperMain)
Dim e As New MenuEntry(3, "Volcano 2", False, AddressOf PickWallpaper, 14)
Dim e1 As New MenuEntry(4, "City 2", False, AddressOf PickWallpaper, 15)
Dim e2 As New MenuEntry(5, "Snow 2", False, AddressOf PickWallpaper, 16)
Dim e3 As New MenuEntry(6, "Desert 2", False, AddressOf PickWallpaper, 17)
Dim e4 As New MenuEntry(7, "Savanna 2", False, AddressOf PickWallpaper, 18)
Dim e5 As New MenuEntry(8, "Steel 2", False, AddressOf PickWallpaper, 19)
Dim e6 As New MenuEntry(9, "Cancel", True, AddressOf WallpaperMain)
SetupMenu({e, e1, e2, e3, e4, e5, e6}, "Pick the wallpaper.")
End Sub
Private Sub WallpaperPackage4()
Dim e As New MenuEntry(3, "SYSTEM", False, AddressOf PickWallpaper, 22)
Dim e1 As New MenuEntry(4, "SIMPLE", False, AddressOf PickWallpaper, 13)
Dim e2 As New MenuEntry(5, "CHECKS", False, AddressOf PickWallpaper, 12)
Dim e3 As New MenuEntry(6, "SEASONS", False, AddressOf PickWallpaper, 23)
Dim e4 As New MenuEntry(7, "RETRO 1", False, AddressOf PickWallpaper, 20)
Dim e5 As New MenuEntry(8, "RETRO 2", False, AddressOf PickWallpaper, 21)
Dim e6 As New MenuEntry(9, "CANCEL", True, AddressOf WallpaperMain)
Dim e As New MenuEntry(3, "System", False, AddressOf PickWallpaper, 22)
Dim e1 As New MenuEntry(4, "Simple", False, AddressOf PickWallpaper, 13)
Dim e2 As New MenuEntry(5, "Checks", False, AddressOf PickWallpaper, 12)
Dim e3 As New MenuEntry(6, "Seasons", False, AddressOf PickWallpaper, 23)
Dim e4 As New MenuEntry(7, "Retro 1", False, AddressOf PickWallpaper, 20)
Dim e5 As New MenuEntry(8, "Retro 2", False, AddressOf PickWallpaper, 21)
Dim e6 As New MenuEntry(9, "Cancel", True, AddressOf WallpaperMain)
SetupMenu({e, e1, e2, e3, e4, e5, e6}, "Pick the wallpaper.")
End Sub
@ -663,7 +663,7 @@ Public Class StorageSystemScreen
If GetBox(PickupBox).IsBattleBox = True Then
GetBox(PickupBox).Pokemon.Add(GetBox(PickupBox).Pokemon.Count, New PokemonWrapper(Me.MovingPokemon)) ' Me.MovingPokemon))
Else
GetBox(PickupBox).Pokemon.Add(id, New PokemonWrapper(Me.MovingPokemon)) 'Me.MovingPokemon)
GetBox(PickupBox).Pokemon.Add(id, New PokemonWrapper(Me.MovingPokemon)) ' Me.MovingPokemon)
End If
CurrentBox = PickupBox
@ -834,16 +834,16 @@ Public Class StorageSystemScreen
Select Case Me.SelectionMode
Case SelectionModes.Withdraw
e = New MenuEntry(3, "WITHDRAW", False, AddressOf WithdrawPokemon)
e = New MenuEntry(3, "Withdraw", False, AddressOf WithdrawPokemon)
Case SelectionModes.Deposit
e = New MenuEntry(3, "DEPOSIT", False, AddressOf DepositPokemon)
e = New MenuEntry(3, "Deposit", False, AddressOf DepositPokemon)
Case Else
e = New MenuEntry(3, "MOVE", False, AddressOf PickupPokemon)
e = New MenuEntry(3, "Move", False, AddressOf PickupPokemon)
End Select
Dim e1 As New MenuEntry(4, "SUMMARY", False, AddressOf SummaryPokemon)
Dim e2 As New MenuEntry(5, "RELEASE", False, AddressOf ReleasePokemon)
Dim e3 As New MenuEntry(6, "CANCEL", True, Nothing)
Dim e1 As New MenuEntry(4, "Summary", False, AddressOf SummaryPokemon)
Dim e2 As New MenuEntry(5, "Release", False, AddressOf ReleasePokemon)
Dim e3 As New MenuEntry(6, "Cancel", True, Nothing)
SetupMenu({e, e1, e2, e3}, p.GetDisplayName() & " is selected.")
End If
Else
@ -931,7 +931,7 @@ Public Class StorageSystemScreen
Else
Me.MovingPokemon.FullRestore()
Dim sPokemon As Pokemon = GetBox(CurrentBox).Pokemon(id).GetPokemon()
GetBox(CurrentBox).Pokemon(id) = New PokemonWrapper(Me.MovingPokemon) 'Me.MovingPokemon
GetBox(CurrentBox).Pokemon(id) = New PokemonWrapper(Me.MovingPokemon) ' Me.MovingPokemon
Me.MovingPokemon = sPokemon
End If
Else
@ -939,9 +939,9 @@ Public Class StorageSystemScreen
Me.MovingPokemon.FullRestore()
If GetBox(CurrentBox).IsBattleBox = True Then
GetBox(CurrentBox).Pokemon.Add(GetBox(CurrentBox).Pokemon.Count, New PokemonWrapper(Me.MovingPokemon)) 'Me.MovingPokemon)
GetBox(CurrentBox).Pokemon.Add(GetBox(CurrentBox).Pokemon.Count, New PokemonWrapper(Me.MovingPokemon)) ' Me.MovingPokemon)
Else
GetBox(CurrentBox).Pokemon.Add(id, New PokemonWrapper(Me.MovingPokemon)) 'Me.MovingPokemon)
GetBox(CurrentBox).Pokemon.Add(id, New PokemonWrapper(Me.MovingPokemon)) ' Me.MovingPokemon)
End If
Me.MovingPokemon = Nothing
@ -992,7 +992,7 @@ Public Class StorageSystemScreen
nextIndex += 1
End While
Core.Player.Pokemons(CInt(Me.CursorPosition.Y)).FullRestore()
GetBox(CurrentBox).Pokemon.Add(nextIndex, New PokemonWrapper(Core.Player.Pokemons(CInt(Me.CursorPosition.Y)))) 'Core.Player.Pokemons(CInt(Me.CursorPosition.Y)))
GetBox(CurrentBox).Pokemon.Add(nextIndex, New PokemonWrapper(Core.Player.Pokemons(CInt(Me.CursorPosition.Y)))) ' Core.Player.Pokemons(CInt(Me.CursorPosition.Y)))
Core.Player.Pokemons.RemoveAt(CInt(Me.CursorPosition.Y))
Else
Dim e As New MenuEntry(3, "OK", True, Nothing)
@ -1048,11 +1048,11 @@ Public Class StorageSystemScreen
End If
If p.IsEgg() = False Then
Dim e1 As New MenuEntry(3, "NO", True, AddressOf SelectPokemon)
Dim e As New MenuEntry(4, "YES", False, AddressOf ConfirmRelease)
Dim e1 As New MenuEntry(3, "No", True, AddressOf SelectPokemon)
Dim e As New MenuEntry(4, "Yes", False, AddressOf ConfirmRelease)
Me.SetupMenu({e1, e}, "Release " & p.GetDisplayName() & "?")
Else
Me.SetupMenu({New MenuEntry(3, "OK", True, Nothing)}, "Cannot release an egg.")
Me.SetupMenu({New MenuEntry(3, "OK", True, Nothing)}, "Cannot release an Egg.")
End If
Else
Me.SetupMenu({New MenuEntry(3, "OK", True, Nothing)}, "Cannot release the last Pokémon.")
@ -1074,7 +1074,7 @@ Public Class StorageSystemScreen
b.Pokemon.Clear()
For i = 0 To p.Count - 1
b.Pokemon.Add(i, New PokemonWrapper(p(i))) 'p(i))
b.Pokemon.Add(i, New PokemonWrapper(p(i))) ' p(i))
Next
End If
End Sub
@ -1084,7 +1084,7 @@ Public Class StorageSystemScreen
#Region "Draw"
Public Overrides Sub Draw()
'Draw3DModel()
' Draw3DModel()
DrawMainWindow()
DrawPokemonStatus()
@ -1270,7 +1270,7 @@ Public Class StorageSystemScreen
maxPokemon = 6
End If
Dim t As String = "BOX: " & box.Name & vbNewLine & "POKéMON: " & box.Pokemon.Count & " / " & maxPokemon & vbNewLine & "LEVEL: " & levelString
Dim t As String = "Box: " & box.Name & vbNewLine & "Pokémon: " & box.Pokemon.Count & " / " & maxPokemon & vbNewLine & "Level: " & levelString
Core.SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(667, 417), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(665, 415), Color.White)
@ -1329,8 +1329,8 @@ Public Class StorageSystemScreen
Canvas.DrawRectangle(New Rectangle(660, 410, 200, 210), c)
If p.IsEgg() = True Then
Core.SpriteBatch.DrawString(FontManager.MiniFont, "EGG", New Vector2(667, 417), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "EGG", New Vector2(665, 415), Color.White)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Egg", New Vector2(667, 417), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Egg", New Vector2(665, 415), Color.White)
Else
Dim itemString As String = "None"
If Not p.Item Is Nothing Then
@ -1508,7 +1508,7 @@ Public Class StorageSystemScreen
End Function
''' <summary>
''' Adds a pokemon to the next free spot and returns the index of that box
''' Adds a Pokémon to the next free spot and returns the index of that box.
''' </summary>
Public Shared Function DepositPokemon(ByVal p As Pokemon, Optional ByVal BoxIndex As Integer = -1) As Integer
p.FullRestore()
@ -1523,7 +1523,7 @@ Public Class StorageSystemScreen
If GetBox(i, Boxes).Pokemon.Count < 30 Then
For l = 0 To 29
If GetBox(i, Boxes).Pokemon.Keys.Contains(l) = False Then
GetBox(i, Boxes).Pokemon.Add(l, New PokemonWrapper(p)) 'p)
GetBox(i, Boxes).Pokemon.Add(l, New PokemonWrapper(p)) ' p)
Exit For
End If
Next
@ -1537,7 +1537,7 @@ Public Class StorageSystemScreen
If GetBox(i, Boxes).Pokemon.Count < 30 Then
For l = 0 To 29
If GetBox(i, Boxes).Pokemon.Keys.Contains(l) = False Then
GetBox(i, Boxes).Pokemon.Add(l, New PokemonWrapper(p)) 'p)
GetBox(i, Boxes).Pokemon.Add(l, New PokemonWrapper(p)) ' p)
Exit For
End If
Next
@ -1798,7 +1798,7 @@ Public Class StorageSystemScreen
End If
Next
'Prevent more than 6 pokemon:
' Prevent more than six Pokémon:
While PokemonList.Count > 6
PokemonList.RemoveAt(PokemonList.Count - 1)
End While
@ -2153,7 +2153,7 @@ Public Class StorageSystemFilterScreen
Private Sub SelectPokemonLetter(ByVal s As SelectMenu)
Select Case s.SelectedItem
Case "Back"
'go back
' Go back.
Case "Clear"
For Each Filter As StorageSystemScreen.Filter In Me.Filters
If Filter.FilterType = StorageSystemScreen.FilterTypes.Pokémon Then
@ -2223,7 +2223,7 @@ Public Class StorageSystemFilterScreen
Private Sub SelectType1Type(ByVal s As SelectMenu)
Select Case s.SelectedItem
Case "Back"
'Go back
' Go back.
Case "Clear"
For Each Filter As StorageSystemScreen.Filter In Me.Filters
If Filter.FilterType = StorageSystemScreen.FilterTypes.Type1 Then
@ -2270,7 +2270,7 @@ Public Class StorageSystemFilterScreen
Private Sub SelectType2Type(ByVal s As SelectMenu)
Select Case s.SelectedItem
Case "Back"
'Go back
' Go back.
Case "Clear"
For Each Filter As StorageSystemScreen.Filter In Me.Filters
If Filter.FilterType = StorageSystemScreen.FilterTypes.Type2 Then
@ -2319,7 +2319,7 @@ Public Class StorageSystemFilterScreen
Private Sub SelectMoveLetter(ByVal s As SelectMenu)
Select Case s.SelectedItem
Case "Back"
'go back
' Go back.
Case "Clear"
For Each Filter As StorageSystemScreen.Filter In Me.Filters
If Filter.FilterType = StorageSystemScreen.FilterTypes.Move Then
@ -2391,7 +2391,7 @@ Public Class StorageSystemFilterScreen
Private Sub SelectAbilityLetter(ByVal s As SelectMenu)
Select Case s.SelectedItem
Case "Back"
'go back
' Go back.
Case "Clear"
For Each Filter As StorageSystemScreen.Filter In Me.Filters
If Filter.FilterType = StorageSystemScreen.FilterTypes.Ability Then
@ -2461,7 +2461,7 @@ Public Class StorageSystemFilterScreen
Private Sub SelectNatureType(ByVal s As SelectMenu)
Select Case s.SelectedItem
Case "Back"
'Go back
' Go back.
Case "Clear"
For Each Filter As StorageSystemScreen.Filter In Me.Filters
If Filter.FilterType = StorageSystemScreen.FilterTypes.Nature Then
@ -2508,7 +2508,7 @@ Public Class StorageSystemFilterScreen
Private Sub SelectGenderType(ByVal s As SelectMenu)
Select Case s.SelectedItem
Case "Back"
'Go back
' Go back.
Case "Clear"
For Each Filter As StorageSystemScreen.Filter In Me.Filters
If Filter.FilterType = StorageSystemScreen.FilterTypes.Gender Then
@ -2546,7 +2546,7 @@ Public Class StorageSystemFilterScreen
Private Sub SelectHeldItemType(ByVal s As SelectMenu)
Select Case s.SelectedItem
Case "Back"
'Go back
' Go back.
Case "Clear"
For Each Filter As StorageSystemScreen.Filter In Me.Filters
If Filter.FilterType = StorageSystemScreen.FilterTypes.HeldItem Then
@ -2568,4 +2568,4 @@ Public Class StorageSystemFilterScreen
#End Region
End Class
End Class

20
2.5DHero/2.5DHero/Screens/Pokedex/PokedexScreen.vb
View File

@ -26,7 +26,7 @@
End Sub
Private Sub AchievePokedexEmblems()
'Eevee:
' Eevee:
Dim eevee() As Integer = {134, 135, 136, 196, 197, 470, 471}
Dim hasEevee As Boolean = True
For Each e As Integer In eevee
@ -39,7 +39,7 @@
GameJolt.Emblem.AchieveEmblem("eevee")
End If
'Pokedex:
' Pokédex:
If Core.Player.IsGameJoltSave = True Then
If Me.Profiles(0).Pokedex.Obtained >= Me.Profiles(0).Pokedex.Count Then
GameJolt.Emblem.AchieveEmblem("pokedex")
@ -394,7 +394,7 @@ Public Class PokedexScreen
Dim pokeSearchList As New List(Of Integer)
If CHabitat Is Nothing Then
'Add any external Pokémon if specified to do so:
' Add any external Pokémon if specified to do so:
If Profile.Pokedex.IncludeExternalPokemon = True Then
For i = 1 To Pokedex.POKEMONCOUNT
If Me.Profile.Pokedex.HasPokemon(i, False) = False Then
@ -1049,7 +1049,7 @@ Public Class PokedexScreen
Public Daytimes() As Integer
End Structure
Dim MergeData() As String = {} 'Temp data storage if needs to merge.
Dim MergeData() As String = {} ' Temporary data storage if needs to merge.
Public File As String = ""
Public Name As String = ""
@ -1625,18 +1625,18 @@ Public Class PokedexViewScreen
Return 0
End If
If count Mod 2 = 1 Then
'count = 7, c = 7
' count = 7, c = 7
Dim middle As Integer = CInt(Math.Ceiling(count / 2))
'middle = 4
' middle = 4
Dim stat As Integer = c - middle
'stat = 3
' stat = 3
Return stat
Else
'count = 4, c = 1
' count = 4, c = 1
Dim middle As Double = count / 2
'middle = 2
' middle = 2
Dim stat As Double = c - middle - 0.5D
'stat = -1.5
' stat = -1.5
Return stat
End If
End Function

36
2.5DHero/2.5DHero/Screens/Pokemon/Daycare.vb
View File

@ -32,10 +32,10 @@
p.SetCatchInfos(Item.GetItemByID(5), "obtained at")
p.CatchBall = Item.GetItemByID(GetEggPokeballID({parent1, parent2}.ToList()))
'adding egg moves:
' Adding Egg Moves:
Dim EggMoves As New List(Of BattleSystem.Attack)
'Level-Up moves:
' Level-Up moves:
If DittoAsParent = 0 Then
For Each m1 As BattleSystem.Attack In parent1.Attacks
For Each m2 As BattleSystem.Attack In parent2.Attacks
@ -47,7 +47,7 @@
Next
End If
'TM-HM Moves:
' Technical/Hidden Machine moves:
Dim male As Integer = -1
If parent1.Gender = net.Pokemon3D.Game.Pokemon.Genders.Male Then
male = 0
@ -73,7 +73,7 @@
Next
End If
'Egg Moves:
' Egg Moves:
male = -1
If parent1.Gender = net.Pokemon3D.Game.Pokemon.Genders.Male Then
male = 0
@ -100,7 +100,7 @@
Next
Next
End If
'Volt Tackle on Pikachu
' Volt Tackle for Pikachu:
If (parent1.Item IsNot Nothing AndAlso parent1.Item.Name.ToLower = "light ball") OrElse (parent2.Item IsNot Nothing AndAlso parent2.Item.Name.ToLower = "light ball") Then
Dim newAttack As BattleSystem.Attack = BattleSystem.Attack.GetAttackByID(344)
EggMoves.Add(newAttack)
@ -132,7 +132,7 @@
End If
Next
'Inherit stats:
' Inherit stats:
Dim IV1 As New List(Of String)
Dim IV2 As New List(Of String)
@ -249,7 +249,7 @@
End Select
Next
'Natures:
' Natures:
Dim EStone1 As Boolean = False
Dim EStone2 As Boolean = False
@ -276,7 +276,7 @@
End If
End If
'Abilities:
' Abilities:
If DittoAsParent = 0 Then
Dim female As Pokemon = parent1
If parent2.Gender = net.Pokemon3D.Game.Pokemon.Genders.Female Then
@ -288,7 +288,7 @@
End If
End If
'Hidden Ability'
' Hidden Ability:
If DittoAsParent <> 0 Then
If DittoAsParent = 1 Then
If parent2.IsUsingHiddenAbility = True And p.HasHiddenAbility = True And Core.Random.Next(0, 100) < 80 Then
@ -310,7 +310,7 @@
End If
End If
'Shiny:
' Shiny:
Dim Shiny1 As Boolean = parent1.IsShiny
Dim Shiny2 As Boolean = parent2.IsShiny
@ -469,39 +469,39 @@
Dim p1 As Pokemon = Pokemon(0)
Dim p2 As Pokemon = Pokemon(1)
'First Pokémon is Ditto.
' First Pokémon is Ditto:
If p1.EggGroup1 = net.Pokemon3D.Game.Pokemon.EggGroups.Ditto Or p1.EggGroup2 = net.Pokemon3D.Game.Pokemon.EggGroups.Ditto Then
'If first Pokémon is Ditto, then the other Pokémon must be female to inherit the ball.
' If the first Pokémon is Ditto, then the other Pokémon must be female to inherit the Poké Ball.
If p2.Gender = net.Pokemon3D.Game.Pokemon.Genders.Female Then
ballID = p2.CatchBall.ID
End If
End If
'Second Pokémon is Ditto.
If p2.EggGroup1 = net.Pokemon3D.Game.Pokemon.EggGroups.Ditto Or p2.EggGroup2 = net.Pokemon3D.Game.Pokemon.EggGroups.Ditto Then
'If second Pokémon is Ditto, then the other Pokémon must be female to inherit the ball.
'If the second Pokémon is Ditto, then the other Pokémon must be female to inherit the Poké Ball.
If p1.Gender = net.Pokemon3D.Game.Pokemon.Genders.Female Then
ballID = p1.CatchBall.ID
End If
End If
'No Pokémon is Ditto:
' No Pokémon is Ditto:
If p1.EggGroup1 <> net.Pokemon3D.Game.Pokemon.EggGroups.Ditto And p1.EggGroup2 <> net.Pokemon3D.Game.Pokemon.EggGroups.Ditto And p2.EggGroup1 <> net.Pokemon3D.Game.Pokemon.EggGroups.Ditto And p2.EggGroup2 <> net.Pokemon3D.Game.Pokemon.EggGroups.Ditto Then
'First Pokémon is female:
' First Pokémon is female:
If p1.Gender = net.Pokemon3D.Game.Pokemon.Genders.Female Then
ballID = p1.CatchBall.ID
End If
'Second Pokémon is female:
' Second Pokémon is female:
If p2.Gender = net.Pokemon3D.Game.Pokemon.Genders.Female Then
ballID = p2.CatchBall.ID
End If
End If
'Check for: Masterball, Cherish Ball: Set to Pokéball
' Check for: Master Ball, Cherish Ball: Set to Poké Ball
If ballID = 1 Or ballID = 45 Then
ballID = 5
End If
End If
'Return BallID (Standard is 5 for Pokéball)
' Return BallID (Standard is 5 for Pokéball):
Return ballID
End Function

6
2.5DHero/2.5DHero/Screens/Pokemon/EvolutionScreen.vb
View File

@ -2,6 +2,8 @@
Inherits Screen
' Old Evolution System:
'Private FromBattle As Boolean = False
'Private EvolutionArgument As String = ""
'Private EvolutionTrigger As EvolutionCondition.EvolutionTrigger
@ -222,7 +224,7 @@
Sparks.Clear()
evolutionReady = True
brokeEvolution = True
TextBox.Show("Your " & currentPokemon.GetDisplayName() & "~didn't evolve.", {}, False, False)
TextBox.Show("Huh? " & currentPokemon.GetDisplayName() & "~stopped evolving!", {}, False, False)
End If
End If
Else
@ -285,7 +287,7 @@
Private Sub Endscene()
If brokeEvolution = False Then
'Nincada's evolution to Shedinja if Pokéball is in Inventory and free space in party:
' Nincada's evolution to Shedinja if a Poké Ball is in the player's Bag and free space is available in the player's party:
If Shedinja.CanEvolveInto(Me.evolvedPokemon, Me.EvolutionTrigger) = True Then
Core.Player.Pokemons.Add(Shedinja.GenerateNew(evolvedPokemon))
Core.Player.Inventory.RemoveItem(5, 1)

4
2.5DHero/2.5DHero/Screens/Pokemon/LearnAttackScreen.vb
View File

@ -175,7 +175,7 @@
Else
drawText = "Forget """ & Pokemon.Attacks(AttackIndex).Name & """ to learn """ & newAttack.Name & """?"
If canForget = False Then
drawText = "Cannot forget the move " & Pokemon.Attacks(AttackIndex).Name & " because" & vbNewLine & "it's an HM move."
drawText = "Cannot forget the move " & Pokemon.Attacks(AttackIndex).Name & " because" & vbNewLine & "it's a Hidden Machine move."
End If
End If
@ -270,7 +270,7 @@
If AttackIndex <> 4 Then
TeachMovesScreen.LearnedMove = True
Text = "1...2...3...and*Poof!*" & Pokemon.GetDisplayName() & " forgot~" & Pokemon.Attacks(AttackIndex).Name & "! And..."
Text = "1...2...3...and*Ta-da!*" & Pokemon.GetDisplayName() & " forgot~" & Pokemon.Attacks(AttackIndex).Name & "! And..."
Pokemon.Attacks.RemoveAt(AttackIndex)
Pokemon.Attacks.Insert(AttackIndex, newAttack)

34
2.5DHero/2.5DHero/Screens/Pokemon/NameObjectScreen.vb
View File

@ -6,17 +6,17 @@ Public Class NameObjectScreen
Inherits Screen
Private _pokemon As Pokemon 'Temporarly stores the Pokémon to rename.
Private _currentText As String = "" 'The current Text in the textbox.
Private _mainTexture As Texture2D 'The temporary texture. Loads "GUI\Menus\Menu"
Private _pokemon As Pokemon ' Temporarly stores the Pokémon to rename.
Private _currentText As String = "" ' The current Text in the textbox.
Private _mainTexture As Texture2D ' The temporary texture. Loads "GUI\Menus\Menu".
Private _index As Integer = 0 'the button index (0 or 1)
Private _askedRename As Boolean = False 'If the question to rename is answered or not.
Private _renamePokemon As Boolean = False 'If a Pokémon is getting renamed.
Private _index As Integer = 0 ' The button index (0 or 1).
Private _askedRename As Boolean = False ' If the question to rename is answered or not.
Private _renamePokemon As Boolean = False ' If a Pokémon is getting renamed.
Private _canChooseNo As Boolean = True 'if the player can choose to not rename the object.
Private _defaultName As String = "Name" 'The default name (that also gets mentioned in the question).
Private _delay As Single = 0.0F 'The delay until the question can be answered.
Private _canChooseNo As Boolean = True ' If the player can choose to not rename the object.
Private _defaultName As String = "Name" ' The default name (that also gets mentioned in the question).
Private _delay As Single = 0.0F ' The delay until the question can be answered.
''' <summary>
''' Handles the NameAccept event which fires if the object gets renamed.
@ -32,7 +32,7 @@ Public Class NameObjectScreen
''' <param name="CurrentScreen">The currently active screen.</param>
''' <param name="Pokemon">The Pokémon reference to rename.</param>
Public Sub New(ByVal CurrentScreen As Screen, ByVal Pokemon As Pokemon)
'Set default values:
' Set default values:
Me.Identification = Identifications.NameObjectScreen
Me.PreScreen = CurrentScreen
Me.MouseVisible = True
@ -44,10 +44,10 @@ Public Class NameObjectScreen
Me._defaultName = Pokemon.GetDisplayName()
Me._renamePokemon = True
'Load texture:
' Load texture:
Me._mainTexture = TextureManager.GetTexture("GUI\Menus\Menu")
'Show the Pokémon image:
' Show the Pokémon image:
Screen.PokemonImageView.Show(Pokemon, True)
End Sub
@ -232,20 +232,20 @@ Public Class NameObjectScreen
''' <param name="text">The name string.</param>
''' <remarks>Only numbers and alphabetic characters are allowed (0-9, a-z, A-Z)</remarks>
Private Function ReplaceInvalidChars(ByVal text As String) As String
'Creating the char array.
' Creating the char array:
Dim chars() As Char = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
'Create a new string to store the "purified" text in. YOU SHALL NOT PASS, EXTENDED LATIN
' Create a new string to store the "purified" text in. YOU SHALL NOT PASS, EXTENDED LATIN.
Dim newText As String = ""
'Loop through all of the original text and only put in the allowed ones.
' Loop through all of the original text and only put in the allowed ones.
For i = 0 To text.Length - 1
If chars.Contains(text(i)) = True Then
newText &= text(i).ToString()
End If
Next
'Return the newly created string.
' Return the newly created string.
Return newText
End Function
@ -284,4 +284,4 @@ Public Class NameObjectScreen
Me._currentText = input
End Sub
End Class
End Class

8
2.5DHero/2.5DHero/Screens/Pokemon/PokemonScreen.vb
View File

@ -503,7 +503,7 @@
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New MapScreen(Core.CurrentScreen, startRegion, {"Fly", Core.Player.Pokemons(index)}), Color.White, False))
End If
Else
TextBox.Show("You cannot fly~from here!", {}, True, False)
TextBox.Show("You cannot Fly~from here!", {}, True, False)
End If
End Sub
@ -523,7 +523,7 @@
Screen.Level.Entities.Remove(e)
Next
Else
TextBox.Show("There is no grass~to be cut!", {}, True, False)
TextBox.Show("There is nothing~to be Cut!", {}, True, False)
End If
End Sub
@ -572,7 +572,7 @@
MusicManager.PlayMusic("ride", True)
End If
Else
TextBox.Show("You cannot ride here!", {}, True, False)
TextBox.Show("You cannot Ride here!", {}, True, False)
End If
End If
End Sub
@ -666,7 +666,7 @@
End Sub
Private Sub CheckForLegendaryEmblem()
'This sub checks if Ho-Oh, Lugia and Suicune are in the player's party.
' This sub checks if Ho-Oh, Lugia and Suicune are in the player's party.
Dim hasHoOh As Boolean = False
Dim hasLugia As Boolean = False
Dim hasSuicune As Boolean = False

22
2.5DHero/2.5DHero/Screens/Pokemon/PokemonScreenV2.vb
View File

@ -26,7 +26,7 @@
MyBase.Draw()
If FadedIn = True Then
'Draw first Pokémon:
' Draw first Pokémon:
DrawFirstPokemon()
End If
End Sub
@ -36,10 +36,10 @@
Dim topLeft As Vector2 = Me.GetPositionInWindowTopLeft(0, 0)
'Shadow:
' Shadow:
Canvas.DrawRectangle(Me.OffsetRectangle(New Rectangle(topLeft.X.ToInteger() + 43, topLeft.Y.ToInteger() + 123, 80 * 3, 32 * 3)), New Color(0, 0, 0, 90))
'Box:
' Box:
Core.SpriteBatch.Draw(Me.texture,
Me.OffsetRectangle(New Rectangle(topLeft.X.ToInteger() + 40, topLeft.Y.ToInteger() + 120, 80 * 3, 32 * 3)),
New Rectangle(48, 16, 80, 32),
@ -47,24 +47,24 @@
Dim pTexture As Texture2D = poke.GetMenuTexture()
'Pokemon:
' Pokémon:
Core.SpriteBatch.Draw(pTexture, Me.OffsetRectangle(New Rectangle(topLeft.X.ToInteger() + 40, topLeft.Y.ToInteger() + 120, pTexture.Width * 2, pTexture.Height * 2)), Color.White)
'Name:
' Name:
Core.SpriteBatch.DrawString(FontManager.MiniFont, poke.GetDisplayName(), Me.OffsetVector(New Vector2(topLeft.X + 108, topLeft.Y + 134)), Color.White, 0.0F, Vector2.Zero, 1.2F, SpriteEffects.None, 0.0F)
'Level:
' Level:
Core.SpriteBatch.DrawString(FontManager.MiniFont, "Lv. " & poke.Level.ToString(), Me.OffsetVector(New Vector2(topLeft.X + 44, topLeft.Y + 188)), Color.White)
'Item:
' Item:
If poke.Item IsNot Nothing Then
Core.SpriteBatch.Draw(poke.Item.Texture, Me.OffsetRectangle(New Rectangle(topLeft.X.ToInteger() + 80, topLeft.Y.ToInteger() + 160, 24, 24)), Color.White)
End If
'"HP":
' Hit Points:
Core.SpriteBatch.Draw(Me.battleTexture,
Me.OffsetRectangle(New Rectangle(topLeft.X.ToInteger() + 108, topLeft.Y.ToInteger() + 170, 13 * 2, 6 * 2)),
New Rectangle(6, 37, 13, 6),
Color.White)
'HP bar:
' Hit Points bar:
Dim HPpercentage As Single = (100.0F / poke.MaxHP) * poke.HP
Dim HPlength As Integer = CInt(Math.Ceiling(140 / 100 * HPpercentage.Clamp(1, 999)))
@ -100,10 +100,10 @@
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Battle\Interface"), New Rectangle(CInt(pos.X) + HPlength - 2, CInt(pos.Y), 2, 12), New Rectangle(cX, 37, 1, 6), Color.White)
End If
'HP text:
' Hit Points text:
Core.SpriteBatch.DrawString(FontManager.MiniFont, poke.HP & " / " & poke.MaxHP, Me.OffsetVector(New Vector2(topLeft.X + 140, topLeft.Y + 188)), Color.White)
'Status:
' Status:
Dim StatusTexture As Texture2D = BattleStats.GetStatImage(poke.Status)
If Not StatusTexture Is Nothing Then
Core.SpriteBatch.Draw(StatusTexture, Me.OffsetRectangle(New Rectangle(CInt(topLeft.X + 235), CInt(topLeft.Y + 192), 38, 12)), Color.White)

16
2.5DHero/2.5DHero/Screens/Pokemon/PokemonStatusScreen.vb
View File

@ -195,7 +195,7 @@
Private Sub DrawHeader()
Dim CanvasTexture As Texture2D = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 0, 48, 48), "")
'EVColors:
' Effort Value colors:
With Me.Pokemon
Dim AllEVs As Integer = .EVHP + .EVAttack + .EVDefense + .EVSpAttack + .EVSpDefense + .EVSpeed
@ -241,7 +241,7 @@
Core.SpriteBatch.Draw(Pokemon.Item.Texture, New Rectangle(118, 150, 28, 28), Color.White)
End If
'Portray
' Portray:
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(60, 196, 128, 128))
Core.SpriteBatch.Draw(Pokemon.GetTexture(FrontView), New Rectangle(74, 208, 124, 124), Color.White)
Core.SpriteBatch.Draw(Pokemon.CatchBall.Texture, New Rectangle(74, 318, 24, 24), Color.White)
@ -249,7 +249,7 @@
Core.SpriteBatch.Draw(MainTexture, New Rectangle(78, 218, 18, 18), New Rectangle(118, 4, 9, 9), Color.White)
End If
'Other:
' Other:
If Me.Pokemon.EggSteps = 0 Then
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(60, 356, 128, 224))
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Menus\Types"), New Rectangle(76, 380, 48, 16), Me.Pokemon.Type1.GetElementImage(), Color.White)
@ -285,7 +285,7 @@
Dim p As Vector2 = New Vector2(140, 180)
With Core.SpriteBatch
'Stats:
' Stats:
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(220, 196, 320, 256))
Dim barX As Integer = CInt((Pokemon.HP / Pokemon.MaxHP) * 150)
Dim barRectangle As Rectangle
@ -353,7 +353,7 @@
.DrawString(FontManager.MiniFont, blueText, New Vector2(CInt(p.X + 100), CInt(p.Y + 68)), Color.Blue)
.DrawString(FontManager.MiniFont, Pokemon.HP & " / " & Pokemon.MaxHP & vbNewLine & vbNewLine & Pokemon.Attack & vbNewLine & vbNewLine & Pokemon.Defense & vbNewLine & vbNewLine & Pokemon.SpAttack & vbNewLine & vbNewLine & Pokemon.SpDefense & vbNewLine & vbNewLine & Pokemon.Speed, New Vector2(CInt(p.X + 280), CInt(p.Y + 68)), Color.Black)
'Experience:
' Experience Points:
If Pokemon.Level < CInt(GameModeManager.GetGameRuleValue("MaxLevel", "100")) Then
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(220, 484, 320, 96))
@ -404,13 +404,13 @@
Dim CanvasTexture As Texture2D = TextureManager.GetTexture("GUI\Menus\Menu", New Rectangle(0, 0, 48, 48), "")
Dim p As Vector2 = New Vector2(140, 180)
'Catchinfos
' Capture Information:
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(220, 196, 320, 96))
With Core.SpriteBatch
.DrawString(FontManager.MiniFont, Localization.GetString("poke_status_screen_OT") & ": " & Pokemon.OT & " /" & Pokemon.CatchTrainerName & vbNewLine & vbNewLine & Pokemon.CatchMethod & vbNewLine & Pokemon.CatchLocation, New Vector2(238, 214), Color.DarkBlue)
End With
'Item:
' Item:
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(220, 324, 320, 128))
If Me.Pokemon.EggSteps = 0 Then
If Not Pokemon.Item Is Nothing Then
@ -422,7 +422,7 @@
End If
End If
'Ability:
' Ability:
Canvas.DrawImageBorder(CanvasTexture, 2, New Rectangle(220, 484, 320, 96))
If Me.Pokemon.EggSteps = 0 Then
With Core.SpriteBatch

90
2.5DHero/2.5DHero/Screens/Screen.vb
View File

@ -99,7 +99,7 @@ Public MustInherit Class Screen
Private Shared _globalPokemonImageView As New PokemonImageView
''' <summary>
''' A global camera instance, that carries over screen instances.
''' A global camera instance that carries over screen instances.
''' </summary>
Public Shared Property Camera() As Camera
Get
@ -111,7 +111,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' A global level instance, that carries over screen instances.
''' A global level instance that carries over screen instances.
''' </summary>
Public Shared Property Level() As Level
Get
@ -123,7 +123,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' A global BasicEffect instance, that carries over screen instances.
''' A global BasicEffect instance that carries over screen instances.
''' </summary>
Public Shared Property Effect() As BasicEffect
Get
@ -135,7 +135,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' A global SkyDome instance, that carries over screen instances.
''' A global SkyDome instance that carries over screen instances.
''' </summary>
Public Shared Property SkyDome() As SkyDome
Get
@ -147,7 +147,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' A global TextBox instance, that carries over screen instances.
''' A global TextBox instance that carries over screen instances.
''' </summary>
Public Shared Property TextBox() As TextBox
Get
@ -159,7 +159,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' A global ChooseBox instance, that carries over screen instances.
''' A global ChooseBox instance that carries over screen instances.
''' </summary>
Public Shared Property ChooseBox() As ChooseBox
Get
@ -171,7 +171,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' A global PokemonImageView instance, that carries over screen instances.
''' A global PokemonImageView instance that carries over screen instances.
''' </summary>
Public Shared Property PokemonImageView() As PokemonImageView
Get
@ -187,7 +187,7 @@ Public MustInherit Class Screen
#Region "Fields"
Private _preScreen As Screen = Nothing
Private _identification As Identifications = Identifications.MainMenuScreen 'Some default value I guess...
Private _identification As Identifications = Identifications.MainMenuScreen ' Some default value I guess...
Private _mouseVisible As Boolean = False
Private _canBePaused As Boolean = True
@ -222,7 +222,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' Wether the mouse is visible on the screen.
''' Whether the mouse cursor is visible on the screen.
''' </summary>
''' <remarks>The default value is "False".</remarks>
Public Property MouseVisible() As Boolean
@ -235,7 +235,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' Wether the game can be paused when pressing Escape.
''' Whether the game can be paused when pressing the Escape key.
''' </summary>
''' <remarks>The default value is "True".</remarks>
Public Property CanBePaused() As Boolean
@ -248,7 +248,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' Wether the game can be muted by pressing M (default).
''' Whether the game can be muted by pressing the M key (default).
''' </summary>
''' <remarks>The default value is "True".</remarks>
Public Property CanMuteMusic() As Boolean
@ -261,7 +261,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' Wether the ChatScreen can be opened by pressing T (default).
''' Whether the ChatScreen can be opened by pressing the T key (default).
''' </summary>
''' <remarks>The default value is "True".</remarks>
Public Property CanChat() As Boolean
@ -274,7 +274,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' Wether a screenshot can be taken by pressing F2 (default).
''' Whether a screenshot can be taken by pressing the F2 key (default).
''' </summary>
''' <remarks>The default value is "True".</remarks>
Public Property CanTakeScreenshot() As Boolean
@ -287,7 +287,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' Wether the debug information can be drawn on the screen.
''' Whether the debug information can be drawn on the screen.
''' </summary>
''' <remarks>The default value is "True".</remarks>
Public Property CanDrawDebug() As Boolean
@ -300,7 +300,7 @@ Public MustInherit Class Screen
End Property
''' <summary>
''' Wether the game can switch its fullscreen state by pressing F11 (default).
''' Whether the game can switch its fullscreen state by pressing the F11 key (default).
''' </summary>
''' <remarks>The default value is "True".</remarks>
Public Property CanGoFullscreen() As Boolean
@ -312,8 +312,8 @@ Public MustInherit Class Screen
End Set
End Property
Public UpdateFadeOut As Boolean = False 'Sets if the screen gets updated during its set as a FadeOut screen on the TransitionScreen.
Public UpdateFadeIn As Boolean = False 'Sets if the screen gets updated during its set as a FadeIn screen on the TransitionScreen.
Public UpdateFadeOut As Boolean = False ' Sets if the screen gets updated during its set as a FadeOut screen on the TransitionScreen.
Public UpdateFadeIn As Boolean = False ' Sets if the screen gets updated during its set as a FadeIn screen on the TransitionScreen.
#End Region
@ -321,13 +321,13 @@ Public MustInherit Class Screen
''' Sets all default fields of the screen instance.
''' </summary>
''' <param name="Identification">The ID of the screen.</param>
''' <param name="MouseVisible">Sets if the mouse is visible on the screen.</param>
''' <param name="CanBePaused">Sets if the PauseScreen can be opened by pressing Escape.</param>
''' <param name="CanMuteMusic">Sets if the M button (default) can mute the music.</param>
''' <param name="CanChat">Sets if the T button (default) can open the chat screen.</param>
''' <param name="CanTakeScreenshot">Sets if the F2 button (default) can take a screenshot.</param>
''' <param name="MouseVisible">Sets if the mouse cursor is visible on the screen.</param>
''' <param name="CanBePaused">Sets if the PauseScreen can be opened by pressing the Escape key.</param>
''' <param name="CanMuteMusic">Sets if the M key (default) can mute the music.</param>
''' <param name="CanChat">Sets if the T key (default) can open the chat screen.</param>
''' <param name="CanTakeScreenshot">Sets if the F2 key (default) can take a screenshot.</param>
''' <param name="CanDrawDebug">Sets if the debug information can be drawn on this screen.</param>
''' <param name="CanGoFullscreen">Sets if the F11 button (default) can sets the game to fullscreen (or back).</param>
''' <param name="CanGoFullscreen">Sets if the F11 key (default) can sets the game to fullscreen (or back).</param>
Private Sub Setup(ByVal Identification As Identifications, ByVal MouseVisible As Boolean, ByVal CanBePaused As Boolean, ByVal CanMuteMusic As Boolean, ByVal CanChat As Boolean, ByVal CanTakeScreenshot As Boolean, ByVal CanDrawDebug As Boolean, ByVal CanGoFullscreen As Boolean)
Me.Identification = Identification
Me.MouseVisible = MouseVisible
@ -382,7 +382,7 @@ Public MustInherit Class Screen
''' Returns if this screen instance is the currently active screen (set in the global Basic.CurrentScreen).
''' </summary>
Public Function IsCurrentScreen() As Boolean
If Core.CurrentScreen.Identification = Me.Identification Then 'If the screen stored in the CurrentScreen field has the same ID as this screen, return true.
If Core.CurrentScreen.Identification = Me.Identification Then ' If the screen stored in the CurrentScreen field has the same ID as this screen, return true.
Return True
Else
Return False
@ -409,21 +409,21 @@ Public MustInherit Class Screen
''' An event that is getting raised when the Escape button is getting pressed. The PauseScreen is getting brought up if the CanBePaused field is set to true.
''' </summary>
Public Overridable Sub EscapePressed()
'If the game can be paused on this screen, open the PauseScreen.
' If the game can be paused on this screen, open the PauseScreen.
If Core.CurrentScreen.CanBePaused = True Then
Core.SetScreen(New PauseScreen(Core.CurrentScreen))
End If
End Sub
''' <summary>
''' Draws XBOX controls on the bottom right of the screen.
''' Draws Xbox controls on the bottom right of the screen.
''' </summary>
''' <param name="Descriptions">The button types and descriptions.</param>
''' <remarks>Calculates the position and calls DrawGamePadControls(Descriptions,Position)</remarks>
Friend Sub DrawGamePadControls(ByVal Descriptions As Dictionary(Of Microsoft.Xna.Framework.Input.Buttons, String))
Dim x As Integer = Core.windowSize.Width 'Store the x position of the start of the controls render.
Dim x As Integer = Core.windowSize.Width ' Store the X position at the start of the controls render.
'Loop through the buttons and add to the x location.
' Loop through the buttons and add to the X location:
For i = 0 To Descriptions.Count - 1
Select Case Descriptions.Keys(i)
Case Buttons.A, Buttons.B, Buttons.X, Buttons.Y, Buttons.Start, Buttons.LeftStick, Buttons.RightStick, Buttons.LeftTrigger, Buttons.RightTrigger
@ -432,33 +432,33 @@ Public MustInherit Class Screen
x -= 64 + 4
End Select
'Add to the x location for the length of the string and a separator.
' Add to the X location for the length of the string and a separator:
x -= CInt(FontManager.MainFont.MeasureString(Descriptions.Values(i)).X) + 16
Next
'Finally, render the buttons:
' Finally, render the buttons:
DrawGamePadControls(Descriptions, New Vector2(x, Core.windowSize.Height - 40))
End Sub
''' <summary>
''' Generic void to render XBOX Gamepad controls on the screen.
''' Generic void to render Xbox Gamepad controls on the screen.
''' </summary>
''' <param name="Descriptions">The button types and descriptions.</param>
''' <param name="Position">The position to draw the buttons.</param>
Friend Sub DrawGamePadControls(ByVal Descriptions As Dictionary(Of Microsoft.Xna.Framework.Input.Buttons, String), ByVal Position As Vector2)
'Only if a Gamepad is connected and the screen is active, render the buttons:
' Only if a Gamepad is connected and the screen is active, render the buttons:
If GamePad.GetState(PlayerIndex.One).IsConnected = True And Core.GameOptions.GamePadEnabled = True And Me.IsCurrentScreen() = True Then
'Transform the position to integers and store the current drawing position:
' Transform the position to integers and store the current drawing position:
Dim x As Integer = CInt(Position.X)
Dim y As Integer = CInt(Position.Y)
'Loop through the button list:
' Loop through the button list:
For i = 0 To Descriptions.Count - 1
Dim t As String = "GUI\GamePad\xboxController" 'Store the texture path.
Dim width As Integer = 32 'Store the width of the image.
Dim height As Integer = 32 'Store the height of the image.
Dim t As String = "GUI\GamePad\xboxController" ' Store the texture path.
Dim width As Integer = 32 ' Store the width of the image.
Dim height As Integer = 32 ' Store the height of the image.
'Get the correct button image and size (currently, all buttons use the same size of 32x32 pixels).
' Get the correct button image and size (currently, all buttons use the same size of 32x32 pixels).
Select Case Descriptions.Keys(i)
Case Buttons.A
t &= "ButtonA"
@ -484,18 +484,18 @@ Public MustInherit Class Screen
t &= "Start"
End Select
'Draw the buttons (first, the "shadow" with a black color, then the real button).
' Draw the buttons (first, the "shadow" with a black color, then the real button):
Core.SpriteBatch.Draw(TextureManager.GetTexture(t), New Rectangle(x + 2, y + 2, width, height), Color.Black)
Core.SpriteBatch.Draw(TextureManager.GetTexture(t), New Rectangle(x, y, width, height), Color.White)
'Add the button width and a little offset to the drawing position:
' Add the button width and a little offset to the drawing position:
x += width + 4
'Draw the button description (again, with a shadow):
' Draw the button description (again, with a shadow):
Core.SpriteBatch.DrawString(FontManager.MainFont, Descriptions.Values(i), New Vector2(x + 3, y + 7), Color.Black)
Core.SpriteBatch.DrawString(FontManager.MainFont, Descriptions.Values(i), New Vector2(x, y + 4), Color.White)
'Add the text width and the offset for the next button description to the drawing position:
' Add the text width and the offset for the next button description to the drawing position:
x += CInt(FontManager.MainFont.MeasureString(Descriptions.Values(i)).X) + 16
Next
End If
@ -505,7 +505,7 @@ Public MustInherit Class Screen
''' Returns the screen status of the current screen. Override this function to return a screen state.
''' </summary>
Public Overridable Function GetScreenStatus() As String
'// Return the generic "not implemented" message:
' // Return the generic "not implemented" message:
Return "Screen state not implemented for screen class: " & Me.Identification.ToString()
End Function
@ -514,8 +514,8 @@ Public MustInherit Class Screen
''' </summary>
''' <remarks>The default size is 800x620 pixels.</remarks>
Public Overridable Function GetScreenScaleMinimum() As Size
'// Default size: 800x620 pixels.
' // Default size: 800x620 pixels.
Return New Size(800, 620)
End Function
End Class
End Class

64
2.5DHero/2.5DHero/Screens/TradeScreen.vb
View File

@ -550,21 +550,21 @@ Public Class TradeScreen
End If
Next
'Item Description:
' Item description:
If New Rectangle(736, 160, 256, 256).Contains(MouseHandler.MousePosition) = True Then
Me.BuyItemsShowDescription = Not Me.BuyItemsShowDescription
End If
'- button:
' - button:
If New Rectangle(664, 484, 64, 64).Contains(MouseHandler.MousePosition) = True Then
Me.ButtonBuyItemsMinus()
End If
'+ button:
' + button:
If New Rectangle(856, 484, 64, 64).Contains(MouseHandler.MousePosition) = True Then
Me.ButtonBuyItemsPlus()
End If
'Buy button:
' Buy button:
If New Rectangle(664 + 64, 484 + 64 + 22, 64 * 3, 64).Contains(MouseHandler.MousePosition) = True Then
Me.ButtonBuyItemsBuy()
End If
@ -628,12 +628,12 @@ Public Class TradeScreen
Me.ChangeCurrencyAmount(-(tradeItem.Price * Me.BuyItemsAmount))
Core.Player.Inventory.AddItem(tradeItem.ItemID, Me.BuyItemsAmount)
'add a Premier Ball (ID=3) if the player bought 10 or more Poké Balls (ID=5):
' Add a Premier Ball (ID=3) if the player bought 10 or more Poké Balls (ID=5):
If tradeItem.ItemID = 5 And Me.BuyItemsAmount >= 10 Then
Core.Player.Inventory.AddItem(3, 1)
End If
'Remove trade item from seller's side if the rest amount is smaller than 0:
' Remove trade item from seller's side if the rest amount is smaller than 0:
If tradeItem.Amount > -1 Then
For i = 0 To Me.TradeItems.Count - 1
If Me.TradeItems(i).ItemID = tradeItem.ItemID And tradeItem.Amount = Me.TradeItems(i).Amount Then
@ -679,7 +679,7 @@ Public Class TradeScreen
End Function
Private Sub DrawBuyItems()
'Item selection menu:
' Item selection menu:
For i = Scroll To Scroll + 5
If i <= Me.BuyItemsList.Count - 1 Then
Dim p As Integer = i - Scroll
@ -691,7 +691,7 @@ Public Class TradeScreen
If Me.BuyItemsList.Count > 0 Then
Dim selectedItem As TradeItem = Me.BuyItemsList(Scroll + Cursor)
'Item Preview:
' Item preview:
Core.SpriteBatch.EndBatch()
Core.SpriteBatch.Begin(SpriteSortMode.Deferred, BlendState.AlphaBlend, SamplerState.PointClamp, DepthStencilState.Default, RasterizerState.CullCounterClockwise)
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Box\Sparkle"), New Rectangle(736 + 128, 160 + 128, 256, 256), Nothing, Color.White, BuySellSparkleRotation, New Vector2(128, 128), SpriteEffects.None, 0.0F)
@ -707,7 +707,7 @@ Public Class TradeScreen
SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(736 + 30, 160 + 30), Color.White)
End If
'Amount of item in bag:
' Amount of the selected item in the player's Bag:
Dim amount As String = Core.Player.Inventory.GetItemAmount(selectedItem.ItemID).ToString()
While amount.Length < 3
amount = "0" & amount
@ -718,11 +718,11 @@ Public Class TradeScreen
End If
Me.DrawBanner(New Vector2(665, 430), 30, "In Inventory: " & amount & bannerText, FontManager.MiniFont, 400)
'- button:
' - button:
Core.SpriteBatch.Draw(texture, New Rectangle(664, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, "-", New Vector2(664 + 23, 484 + 2), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
'amount field:
' Amount field:
Canvas.DrawRectangle(New Rectangle(740, 492, 104, 48), New Color(77, 147, 198))
Canvas.DrawRectangle(New Rectangle(744, 496, 96, 40), New Color(232, 240, 248))
Dim amountString As String = Me.BuyItemsAmount.ToString()
@ -732,14 +732,14 @@ Public Class TradeScreen
amountString = "x" & amountString
Core.SpriteBatch.DrawString(FontManager.MainFont, amountString, New Vector2(792 - FontManager.MainFont.MeasureString(amountString).X / 2.0F, 504), Color.Black)
'+ button:
' + button:
Core.SpriteBatch.Draw(texture, New Rectangle(856, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, "+", New Vector2(856 + 19, 484 + 6), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
Core.SpriteBatch.DrawString(FontManager.MainFont, "Per Item: " & selectedItem.Price.ToString() & GetCurrencyShort() & vbNewLine &
"Total: " & (BuyItemsAmount * selectedItem.Price).ToString() & GetCurrencyShort(), New Vector2(930, 490), Color.White)
'Buy button:
' Buy button:
If Me.BuyItemsAmount > 0 Then
If ControllerHandler.IsConnected() = True Then
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\GamePad\xboxControllerButtonA"), New Rectangle(664 + 12, 484 + 64 + 34, 40, 40), Color.White)
@ -749,10 +749,10 @@ Public Class TradeScreen
End If
End If
'Current balance:
' Current balance:
Me.DrawBanner(New Vector2(665, 110), 30, "Current balance: " & GetCurrencyDisplay(), FontManager.MiniFont, 400)
'Cursor draw:
' Cursor draw:
Me.DrawMainCursor()
End Sub
@ -919,21 +919,21 @@ Public Class TradeScreen
End If
Next
'Item Description:
' Item description:
If New Rectangle(736, 160, 256, 256).Contains(MouseHandler.MousePosition) = True Then
Me.SellItemsShowDescription = Not Me.SellItemsShowDescription
End If
'- button:
' - button:
If New Rectangle(664, 484, 64, 64).Contains(MouseHandler.MousePosition) = True Then
Me.ButtonSellItemsMinus()
End If
'+ button:
' + button:
If New Rectangle(856, 484, 64, 64).Contains(MouseHandler.MousePosition) = True Then
Me.ButtonSellItemsPlus()
End If
'Buy button:
' Buy button:
If New Rectangle(664 + 64, 484 + 64 + 22, 64 * 3, 64).Contains(MouseHandler.MousePosition) = True Then
Me.ButtonSellItemsSell()
End If
@ -1020,7 +1020,7 @@ Public Class TradeScreen
End Sub
Private Sub DrawSellItems()
'Item selection menu:
' Item selection menu:
For i = Scroll To Scroll + 5
If i <= Me.SellItemsList.Count - 1 Then
Dim p As Integer = i - Scroll
@ -1032,7 +1032,7 @@ Public Class TradeScreen
If Me.SellItemsList.Count > 0 Then
Dim selectedItem As TradeItem = Me.SellItemsList(Scroll + Cursor)
'Item Preview:
' Item preview:
Core.SpriteBatch.EndBatch()
Core.SpriteBatch.Begin(SpriteSortMode.Deferred, BlendState.AlphaBlend, SamplerState.PointClamp, DepthStencilState.Default, RasterizerState.CullCounterClockwise)
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\Box\Sparkle"), New Rectangle(736 + 128, 160 + 128, 256, 256), Nothing, Color.White, BuySellSparkleRotation, New Vector2(128, 128), SpriteEffects.None, 0.0F)
@ -1048,18 +1048,18 @@ Public Class TradeScreen
SpriteBatch.DrawString(FontManager.MiniFont, t, New Vector2(736 + 30, 160 + 30), Color.White)
End If
'Amount of item in bag:
' Amount of the selected item in the player's Bag:
Dim amount As String = Core.Player.Inventory.GetItemAmount(selectedItem.ItemID).ToString()
While amount.Length < 3
amount = "0" & amount
End While
Me.DrawBanner(New Vector2(665, 430), 30, "In Inventory: " & amount, FontManager.MiniFont, 400)
Me.DrawBanner(New Vector2(665, 430), 30, "In Bag " & amount, FontManager.MiniFont, 400)
'- button:
' - button:
Core.SpriteBatch.Draw(texture, New Rectangle(664, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, "-", New Vector2(664 + 23, 484 + 2), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
'amount field:
' Amount field:
Canvas.DrawRectangle(New Rectangle(740, 492, 104, 48), New Color(77, 147, 198))
Canvas.DrawRectangle(New Rectangle(744, 496, 96, 40), New Color(232, 240, 248))
Dim amountString As String = Me.SellItemsAmount.ToString()
@ -1069,14 +1069,14 @@ Public Class TradeScreen
amountString = "x" & amountString
Core.SpriteBatch.DrawString(FontManager.MainFont, amountString, New Vector2(792 - FontManager.MainFont.MeasureString(amountString).X / 2.0F, 504), Color.Black)
'+ button:
' + button:
Core.SpriteBatch.Draw(texture, New Rectangle(856, 484, 64, 64), New Rectangle(16, 32, 16, 16), Color.White)
Core.SpriteBatch.DrawString(FontManager.MainFont, "+", New Vector2(856 + 19, 484 + 6), Color.Black, 0.0F, Vector2.Zero, 2.0F, SpriteEffects.None, 0.0F)
Core.SpriteBatch.DrawString(FontManager.MainFont, "Per Item: " & selectedItem.SellPrice().ToString() & GetCurrencyShort() & vbNewLine &
"Total: " & (SellItemsAmount * selectedItem.SellPrice()).ToString() & GetCurrencyShort(), New Vector2(930, 490), Color.White)
'Sell button:
' Sell button:
If Me.SellItemsAmount > 0 Then
If ControllerHandler.IsConnected() = True Then
Core.SpriteBatch.Draw(TextureManager.GetTexture("GUI\GamePad\xboxControllerButtonA"), New Rectangle(664 + 12, 484 + 64 + 34, 40, 40), Color.White)
@ -1086,10 +1086,10 @@ Public Class TradeScreen
End If
End If
'Current balance:
' Current balance:
Me.DrawBanner(New Vector2(665, 110), 30, "Current balance: " & GetCurrencyDisplay(), FontManager.MiniFont, 400)
'Cursor draw:
' Cursor draw:
Me.DrawMainCursor()
End Sub
@ -1153,7 +1153,7 @@ Public Class TradeScreen
DrawButton(New Vector2(Core.windowSize.Width / 2.0F - 192, Core.windowSize.Height / 2.0F - 60), 4, "Sell", 16, Nothing)
DrawButton(New Vector2(Core.windowSize.Width / 2.0F - 192, Core.windowSize.Height / 2.0F + 36), 4, "Cancel", 16, Nothing)
'Cursor:
' Cursor:
Dim cPosition As Vector2 = New Vector2(Core.windowSize.Width / 2.0F - 192 + 280, Core.windowSize.Height / 2.0F - 60 + Me.sellItemsConfirmationCursor * 96 - 42)
Dim t As Texture2D = TextureManager.GetTexture("GUI\Menus\General", New Rectangle(0, 0, 16, 16), "")
@ -1259,7 +1259,7 @@ Public Class TradeScreen
Case Currencies.BattlePoints
Return GetCurrencyAmount().ToString() & " Battle Points"
Case Currencies.Pokédollar
Return GetCurrencyAmount().ToString() & " Pokédollar"
Return GetCurrencyAmount().ToString() & " Pokémon Dollars"
End Select
Return ""
End Function
@ -1283,4 +1283,4 @@ Public Class TradeScreen
End Select
End Sub
End Class
End Class

48
2.5DHero/2.5DHero/Screens/WindowScreen.vb
View File

@ -5,7 +5,7 @@ Public MustInherit Class WindowScreen
Inherits Screen
'Shared controller to check if any other window screen is drawing a gradient already. If so, don't draw another gradient on top.
' Shared controller to check if any other window screen is drawing a gradient already. If so, don't draw another gradient on top:
Public Shared IsDrawingGradients As Boolean = False
Const STARTWINDOWSINK As Integer = -35
@ -16,10 +16,10 @@ Public MustInherit Class WindowScreen
Private _isCentered As Boolean = False
Private _texture As Texture2D
Private _windowElementsX As Integer = 8
Private _windowElementsY As Integer = 7 'includes title bar
Private _windowElementsY As Integer = 7 ' Includes the title bar.
Private _textureScale As Single = 5.0F
Private _title As String = "{WindowTitle}"
Private _drawingGradient As Boolean = False 'Checks if this window screen is drawing the gradient.
Private _drawingGradient As Boolean = False ' Checks if this window screen is drawing the gradient.
Private _closing As Boolean = False
Public Sub New(ByVal PreScreen As Screen, ByVal Identification As Identifications, ByVal Title As String)
@ -66,55 +66,55 @@ Public MustInherit Class WindowScreen
startPosition = New Vector2(CSng(Core.windowSize.Width / 2 - windowWidth / 2), CSng(Core.windowSize.Height / 2 - windowHeight / 2))
End If
'Frame:
' Frame:
For x = 0 To _windowElementsX - 1
For y = 0 To _windowElementsY - 1
'Grab texture and sprite effect:
' Grab texture and sprite effect:
Dim r As New Vector2(0, 64)
Dim e As SpriteEffects = SpriteEffects.None
If x = 0 And y = 0 Then 'Title, left
If x = 0 And y = 0 Then ' Title, left
r = New Vector2(0, 64)
ElseIf x = 1 And y = 0 Then 'Title, left2
ElseIf x = 1 And y = 0 Then ' Title, left2
r = New Vector2(16, 64)
ElseIf x > 1 And x < _windowElementsX - 2 And y = 0 Then 'Title, center
ElseIf x > 1 And x < _windowElementsX - 2 And y = 0 Then ' Title, center
r = New Vector2(32, 64)
ElseIf x = _windowElementsX - 2 And y = 0 Then 'Title right2
ElseIf x = _windowElementsX - 2 And y = 0 Then ' Title right2
r = New Vector2(16, 64)
e = SpriteEffects.FlipHorizontally
ElseIf x = _windowElementsX - 1 And y = 0 Then 'Title, right
ElseIf x = _windowElementsX - 1 And y = 0 Then ' Title, right
r = New Vector2(0, 64)
e = SpriteEffects.FlipHorizontally
ElseIf x = 0 And y = 1 Then 'Window, up left
ElseIf x = 0 And y = 1 Then ' Window, up left
r = New Vector2(0, 80)
ElseIf x = _windowElementsX - 1 And y = 1 Then 'Window, up right
ElseIf x = _windowElementsX - 1 And y = 1 Then ' Window, up right
r = New Vector2(32, 80)
ElseIf x = 0 And y = _windowElementsY - 1 Then 'Window, down left
ElseIf x = 0 And y = _windowElementsY - 1 Then ' Window, down left
r = New Vector2(0, 112)
ElseIf x = _windowElementsX - 1 And y = _windowElementsY - 1 Then 'Window, down right
ElseIf x = _windowElementsX - 1 And y = _windowElementsY - 1 Then ' Window, down right
r = New Vector2(32, 112)
ElseIf x > 0 And x < _windowElementsX - 1 And y = 1 Then 'Window, up
ElseIf x > 0 And x < _windowElementsX - 1 And y = 1 Then ' Window, up
r = New Vector2(16, 80)
ElseIf x = 0 And y > 1 And y < _windowElementsY - 1 Then 'Window, left
ElseIf x = 0 And y > 1 And y < _windowElementsY - 1 Then ' Window, left
r = New Vector2(0, 96)
ElseIf x = _windowElementsX - 1 And y > 1 And y < _windowElementsY - 1 Then 'Window, right
ElseIf x = _windowElementsX - 1 And y > 1 And y < _windowElementsY - 1 Then ' Window, right
r = New Vector2(32, 96)
ElseIf x > 0 And x < _windowElementsX - 1 And y = _windowElementsY - 1 Then 'Window, down
ElseIf x > 0 And x < _windowElementsX - 1 And y = _windowElementsY - 1 Then ' Window, down
r = New Vector2(16, 112)
Else 'Window, center
Else ' Window, center
r = New Vector2(16, 96)
End If
'Render:
' Render:
Core.SpriteBatch.Draw(Me._texture, New Rectangle(CInt(startPosition.X + x * GetWindowElementSize()), CInt(startPosition.Y + y * GetWindowElementSize()) + _windowSink, GetWindowElementSize(), GetWindowElementSize()), New Rectangle(CInt(r.X), CInt(r.Y), 16, 16), Color.White, 0.0F, Vector2.Zero, e, 0.0F)
Next
Next
'Title:
Dim titleStartX As Integer = CInt(32 * _textureScale + startPosition.X) 'Skip first two panels
' Title:
Dim titleStartX As Integer = CInt(32 * _textureScale + startPosition.X) ' Skip the first two panels
Dim titleStartY As Integer = CInt(startPosition.Y)
Dim titleAreaWidth As Integer = CInt((_windowElementsX - 4) * GetWindowElementSize()) 'Width of the window minus two panels on each side.
Dim titleAreaWidth As Integer = CInt((_windowElementsX - 4) * GetWindowElementSize()) ' Width of the window minus the two panels on each side.
Dim titleAreaHeight As Integer = GetWindowElementSize()
Dim FontSize As Vector2 = FontManager.MainFont.MeasureString(_title)
@ -223,4 +223,4 @@ Public MustInherit Class WindowScreen
End If
End Sub
End Class
End Class

4
2.5DHero/2.5DHero/Security/FileValidation.vb
View File

@ -6,8 +6,8 @@
Shared _valid As Boolean = False
Const RUNVALIDATION As Boolean = False
Const EXPECTEDSIZE As Integer = 42308840
Const METAHASH As String = "MzJEODhGNkEwNzY0MzJCMTNERTlFMDM4REE3MDA5RjI="
Const EXPECTEDSIZE As Integer = 42308847
Const METAHASH As String = "ODU1QkIwNDI1Q0U0Q0QwNkRCNUU4MzM2QTQ2Q0M3QTc="
Public Shared ReadOnly Property IsValid(ByVal ForceResult As Boolean) As Boolean
Get

10
2.5DHero/2.5DHero/Security/HackerAlerts.vb
View File

@ -14,16 +14,16 @@
Private Shared Sub TimerTick()
t.Stop()
Dim text As String = "Hey, we have detected that you attempted to hack the game. Please don't do that. We are trying to create an online experience where everyone is set equal, where everyone can play the game and achieve about the same things by playing the same amount of time.
So please reconsider utilizing certain RAM editing tools in Pokémon3D.
Dim text As String = "Hello. We have detected that you attempted to hack the game. Please don't do that. We are trying to create an online experience where everyone is set equal, where everyone can play the game and achieve about the same things by playing the same amount of time.
So please reconsider utilizing certain RAM editing tools in Pokémon 3D.
Of course, you are free to use those whenever you want in Offline Mode, since that is essentially a Sandbox for you to play around in.
To remove these messages and the reverse texture effects, contact a staff member on the forums here:
To remove these messages and the reverse texture effects, consider following this link:
http://www.pokemon3d.net/forum/
http://pokemon3d.net/forum/faq/44/
Thank you for your cooperation."
MsgBox(text, MsgBoxStyle.OkOnly, "Pokémon3D Injection Shield")
MsgBox(text, MsgBoxStyle.OkOnly, "Pokémon 3D Injection Shield")
t.Start()
End Sub

2
2.5DHero/2.5DHero/Security/HashSecureBase.vb
View File

@ -58,4 +58,4 @@ Namespace Security
End Class
End Namespace
End Namespace

5
2.5DHero/2.5DHero/credits.txt
View File

@ -1,8 +1,8 @@
Pokémon created by Nintendo, Game Freak and The Pokémon Company / Creatures Inc.
Pokémon3D staff
Pokémon 3D staff
created by Kolben Games
Trademark (TM) 2012 - 2015
Trademark (TM) 2012 - 2017
Team Kolben
Nils Drescher
Andrew Leach
@ -22,6 +22,7 @@ Trademark (TM) 2012 - 2015
"Aragas"
"oXFantaXo"
Jorge Luis Espinoza
Conner Joseph Brewster
Programming
Nils Drescher

2
2.5DHero/2.5DHeroContent/meta
View File

File diff suppressed because one or more lines are too long