Mostly comment revision for the Screens folder

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

Updated credits with the correct year, etc.

2.5DHero/2.5DHero/Screens/Battle/BlackOutScreen.vb

@@ -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
 

2.5DHero/2.5DHero/Screens/Credits/CreditsScreen.vb

@@ -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
@@ -59,7 +59,7 @@ Public Class CreditsScreen
         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()))

2.5DHero/2.5DHero/Screens/GUI/Canvas.vb

@@ -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.5DHero/2.5DHero/Screens/Inventory/ChoosePokemonScreen.vb

@@ -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

2.5DHero/2.5DHero/Screens/Inventory/PokegearScreen.vb

@@ -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), "")})
@@ -1602,7 +1602,7 @@
                 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
@@ -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"}

2.5DHero/2.5DHero/Screens/MainMenu/JoinServerScreen.vb

@@ -410,7 +410,7 @@ Public Class JoinServerScreen
 
             ' 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
 

2.5DHero/2.5DHero/Screens/MainMenu/MainMenuScreen.vb

@@ -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.5DHero/2.5DHero/Screens/MainMenu/OfflineGameWarningScreen.vb

@@ -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.5DHero/2.5DHero/Screens/MapScreen.vb

@@ -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)

2.5DHero/2.5DHero/Screens/NewGameScreen.vb

@@ -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

2.5DHero/2.5DHero/Screens/OptionScreen.vb

@@ -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
+            Case 1 ' "Game" from the Options menu.
-                Me.ControlList.Add(New ScrollBar(New Vector2(100, 200), 400, "Textspeed", Me.TextSpeed, 1, 3, AddressOf ChangeTextspeed))
+                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
+            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, 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 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))

2.5DHero/2.5DHero/Screens/PC/HallOfFameScreen.vb

@@ -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.5DHero/2.5DHero/Screens/PC/MailSystemScreen.vb

@@ -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."

2.5DHero/2.5DHero/Screens/PC/StorageSystemScreen.vb

@@ -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 e As New MenuEntry(3, "Choose Box", False, AddressOf Me.ChooseBox)
-                            Dim e1 As New MenuEntry(4, "CHANGE MODE", False, AddressOf Me.ChangemodeMenu)
+                            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 e2 As New MenuEntry(5, "Wallpaper", False, AddressOf WallpaperMain)
-                                Dim e3 As New MenuEntry(6, "NAME", False, AddressOf SelectNameBox)
+                                Dim e3 As New MenuEntry(6, "Name", False, AddressOf SelectNameBox)
-                                Dim e4 As New MenuEntry(7, "CANCEL", True, Nothing)
+                                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 e As New MenuEntry(3, "Withdraw", False, AddressOf SelectWithdraw)
-        Dim e1 As New MenuEntry(4, "DEPOSIT", False, AddressOf SelectDeposit)
+        Dim e1 As New MenuEntry(4, "Deposit", False, AddressOf SelectDeposit)
-        Dim e2 As New MenuEntry(5, "SINGLE MOVE", False, AddressOf Me.SelectSingleMove)
+        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 e3 As New MenuEntry(6, "Easy Move", False, AddressOf Me.SelectEasyMove)
-        Dim e4 As New MenuEntry(7, "CANCEL", True, AddressOf Me.ChooseObject)
+        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 e As New MenuEntry(3, "Package 1", False, AddressOf WallpaperPackage1)
-                Dim e4 As New MenuEntry(4, "CANCEL", True, AddressOf ChooseObject)
+                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 e As New MenuEntry(3, "Package 1", False, AddressOf WallpaperPackage1)
-                Dim e1 As New MenuEntry(4, "PACKAGE 2", False, AddressOf WallpaperPackage2)
+                Dim e1 As New MenuEntry(4, "Package 2", False, AddressOf WallpaperPackage2)
-                Dim e4 As New MenuEntry(5, "CANCEL", True, AddressOf ChooseObject)
+                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 e As New MenuEntry(3, "Package 1", False, AddressOf WallpaperPackage1)
-                Dim e1 As New MenuEntry(4, "PACKAGE 2", False, AddressOf WallpaperPackage2)
+                Dim e1 As New MenuEntry(4, "Package 2", False, AddressOf WallpaperPackage2)
-                Dim e2 As New MenuEntry(5, "PACKAGE 3", False, AddressOf WallpaperPackage3)
+                Dim e2 As New MenuEntry(5, "Package 3", False, AddressOf WallpaperPackage3)
-                Dim e4 As New MenuEntry(6, "CANCEL", True, AddressOf ChooseObject)
+                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 e As New MenuEntry(3, "Package 1", False, AddressOf WallpaperPackage1)
-                Dim e1 As New MenuEntry(4, "PACKAGE 2", False, AddressOf WallpaperPackage2)
+                Dim e1 As New MenuEntry(4, "Package 2", False, AddressOf WallpaperPackage2)
-                Dim e2 As New MenuEntry(5, "PACKAGE 3", False, AddressOf WallpaperPackage3)
+                Dim e2 As New MenuEntry(5, "Package 3", False, AddressOf WallpaperPackage3)
-                Dim e3 As New MenuEntry(6, "PACKAGE 4", False, AddressOf WallpaperPackage4)
+                Dim e3 As New MenuEntry(6, "Package 4", False, AddressOf WallpaperPackage4)
-                Dim e4 As New MenuEntry(7, "CANCEL", True, AddressOf ChooseObject)
+                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 e As New MenuEntry(3, "Forest", False, AddressOf PickWallpaper, 0)
-        Dim e1 As New MenuEntry(4, "CITY", False, AddressOf PickWallpaper, 1)
+        Dim e1 As New MenuEntry(4, "City", False, AddressOf PickWallpaper, 1)
-        Dim e2 As New MenuEntry(5, "DESERT", False, AddressOf PickWallpaper, 2)
+        Dim e2 As New MenuEntry(5, "Desert", False, AddressOf PickWallpaper, 2)
-        Dim e3 As New MenuEntry(6, "SAVANNA", False, AddressOf PickWallpaper, 3)
+        Dim e3 As New MenuEntry(6, "Savanna", False, AddressOf PickWallpaper, 3)
-        Dim e4 As New MenuEntry(7, "CAVE", False, AddressOf PickWallpaper, 8)
+        Dim e4 As New MenuEntry(7, "Cave", False, AddressOf PickWallpaper, 8)
-        Dim e5 As New MenuEntry(8, "RIVER", False, AddressOf PickWallpaper, 11)
+        Dim e5 As New MenuEntry(8, "River", False, AddressOf PickWallpaper, 11)
-        Dim e6 As New MenuEntry(9, "CANCEL", True, AddressOf WallpaperMain)
+        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 e As New MenuEntry(3, "Volcano", False, AddressOf PickWallpaper, 5)
-        Dim e1 As New MenuEntry(4, "SNOW", False, AddressOf PickWallpaper, 6)
+        Dim e1 As New MenuEntry(4, "Snow", False, AddressOf PickWallpaper, 6)
-        Dim e2 As New MenuEntry(5, "BEACH", False, AddressOf PickWallpaper, 9)
+        Dim e2 As New MenuEntry(5, "Beach", False, AddressOf PickWallpaper, 9)
-        Dim e3 As New MenuEntry(6, "SEAFLOOR", False, AddressOf PickWallpaper, 10)
+        Dim e3 As New MenuEntry(6, "Seafloor", False, AddressOf PickWallpaper, 10)
-        Dim e4 As New MenuEntry(7, "CRAG", False, AddressOf PickWallpaper, 4)
+        Dim e4 As New MenuEntry(7, "Crag", False, AddressOf PickWallpaper, 4)
-        Dim e5 As New MenuEntry(8, "STEEL", False, AddressOf PickWallpaper, 7)
+        Dim e5 As New MenuEntry(8, "Steel", False, AddressOf PickWallpaper, 7)
-        Dim e6 As New MenuEntry(9, "CANCEL", True, AddressOf WallpaperMain)
+        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 e As New MenuEntry(3, "Volcano 2", False, AddressOf PickWallpaper, 14)
-        Dim e1 As New MenuEntry(4, "CITY 2", False, AddressOf PickWallpaper, 15)
+        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 e2 As New MenuEntry(5, "Snow 2", False, AddressOf PickWallpaper, 16)
-        Dim e3 As New MenuEntry(6, "DESERT 2", False, AddressOf PickWallpaper, 17)
+        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 e4 As New MenuEntry(7, "Savanna 2", False, AddressOf PickWallpaper, 18)
-        Dim e5 As New MenuEntry(8, "STEEL 2", False, AddressOf PickWallpaper, 19)
+        Dim e5 As New MenuEntry(8, "Steel 2", False, AddressOf PickWallpaper, 19)
-        Dim e6 As New MenuEntry(9, "CANCEL", True, AddressOf WallpaperMain)
+        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 e As New MenuEntry(3, "System", False, AddressOf PickWallpaper, 22)
-        Dim e1 As New MenuEntry(4, "SIMPLE", False, AddressOf PickWallpaper, 13)
+        Dim e1 As New MenuEntry(4, "Simple", False, AddressOf PickWallpaper, 13)
-        Dim e2 As New MenuEntry(5, "CHECKS", False, AddressOf PickWallpaper, 12)
+        Dim e2 As New MenuEntry(5, "Checks", False, AddressOf PickWallpaper, 12)
-        Dim e3 As New MenuEntry(6, "SEASONS", False, AddressOf PickWallpaper, 23)
+        Dim e3 As New MenuEntry(6, "Seasons", False, AddressOf PickWallpaper, 23)
-        Dim e4 As New MenuEntry(7, "RETRO 1", False, AddressOf PickWallpaper, 20)
+        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 e5 As New MenuEntry(8, "Retro 2", False, AddressOf PickWallpaper, 21)
-        Dim e6 As New MenuEntry(9, "CANCEL", True, AddressOf WallpaperMain)
+        Dim e6 As New MenuEntry(9, "Cancel", True, AddressOf WallpaperMain)
         SetupMenu({e, e1, e2, e3, e4, e5, e6}, "Pick the wallpaper.")
     End Sub
 
@@ -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 e1 As New MenuEntry(4, "Summary", False, AddressOf SummaryPokemon)
-                        Dim e2 As New MenuEntry(5, "RELEASE", False, AddressOf ReleasePokemon)
+                        Dim e2 As New MenuEntry(5, "Release", False, AddressOf ReleasePokemon)
-                        Dim e3 As New MenuEntry(6, "CANCEL", True, Nothing)
+                        Dim e3 As New MenuEntry(6, "Cancel", True, Nothing)
                         SetupMenu({e, e1, e2, e3}, p.GetDisplayName() & " is selected.")
                     End If
                 Else
@@ -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 e1 As New MenuEntry(3, "No", True, AddressOf SelectPokemon)
-                Dim e As New MenuEntry(4, "YES", False, AddressOf ConfirmRelease)
+                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.")
@@ -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(667, 417), Color.Black)
-                    Core.SpriteBatch.DrawString(FontManager.MiniFont, "EGG", New Vector2(665, 415), Color.White)
+                    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()
@@ -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

2.5DHero/2.5DHero/Screens/Pokedex/PokedexScreen.vb

@@ -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")
@@ -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 = ""

2.5DHero/2.5DHero/Screens/Pokemon/Daycare.vb

@@ -32,7 +32,7 @@
             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:
@@ -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
@@ -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)
@@ -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
@@ -469,16 +469,16 @@
             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
@@ -495,13 +495,13 @@
                 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
 

2.5DHero/2.5DHero/Screens/Pokemon/EvolutionScreen.vb

@@ -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)

2.5DHero/2.5DHero/Screens/Pokemon/LearnAttackScreen.vb

@@ -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)
 

2.5DHero/2.5DHero/Screens/Pokemon/NameObjectScreen.vb

@@ -8,13 +8,13 @@ Public Class NameObjectScreen
 
     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 _mainTexture As Texture2D ' The temporary texture. Loads "GUI\Menus\Menu".
 
-    Private _index As Integer = 0 'the button index (0 or 1)
+    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 _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.
 
@@ -232,10 +232,10 @@ 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.

2.5DHero/2.5DHero/Screens/Pokemon/PokemonScreen.vb

@@ -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

2.5DHero/2.5DHero/Screens/Pokemon/PokemonScreenV2.vb

@@ -47,7 +47,7 @@
 
         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:
         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)
@@ -59,12 +59,12 @@
             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,7 +100,7 @@
             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:

2.5DHero/2.5DHero/Screens/Pokemon/PokemonStatusScreen.vb

@@ -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)
@@ -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,7 +404,7 @@
         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)

2.5DHero/2.5DHero/Screens/Screen.vb

@@ -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
@@ -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
@@ -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="MouseVisible">Sets if the mouse cursor is visible on the screen.</param>
-    ''' <param name="CanBePaused">Sets if the PauseScreen can be opened by pressing Escape.</param>
+    ''' <param name="CanBePaused">Sets if the PauseScreen can be opened by pressing the Escape key.</param>
-    ''' <param name="CanMuteMusic">Sets if the M button (default) can mute the music.</param>
+    ''' <param name="CanMuteMusic">Sets if the M key (default) can mute the music.</param>
-    ''' <param name="CanChat">Sets if the T button (default) can open the chat screen.</param>
+    ''' <param name="CanChat">Sets if the T key (default) can open the chat screen.</param>
-    ''' <param name="CanTakeScreenshot">Sets if the F2 button (default) can take a screenshot.</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
@@ -416,14 +416,14 @@ Public MustInherit Class Screen
     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,7 +432,7 @@ 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
 
@@ -441,7 +441,7 @@ Public MustInherit Class Screen
     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>
@@ -484,7 +484,7 @@ 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)
 

2.5DHero/2.5DHero/Screens/TradeScreen.vb

@@ -550,7 +550,7 @@ 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
@@ -628,7 +628,7 @@ 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
@@ -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
@@ -722,7 +722,7 @@ Public Class TradeScreen
             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()
@@ -919,7 +919,7 @@ 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
@@ -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:
             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()
@@ -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

2.5DHero/2.5DHero/Screens/WindowScreen.vb

@@ -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,7 +16,7 @@ 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.
@@ -112,9 +112,9 @@ Public MustInherit Class WindowScreen
             Next
 
             ' Title:
-            Dim titleStartX As Integer = CInt(32 * _textureScale + startPosition.X) 'Skip first two panels
+            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)
 

2.5DHero/2.5DHero/Security/FileValidation.vb

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

2.5DHero/2.5DHero/Security/HackerAlerts.vb

@@ -14,12 +14,12 @@
 
         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.
+            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."
 

2.5DHero/2.5DHero/credits.txt

@@ -2,7 +2,7 @@ Pok
 
 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