Minor text fixes for consistency (World folder).

Outside of changing comments to be consistent, I also had the credits screen and credits.txt match eachother, because there's no reason why they shouldn't match.

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

@@ -48,8 +48,9 @@ Public Class CreditsScreen
         MediaPlayer.IsRepeating = False
     End Sub
 
+    ' The text that shows during the credits:
     Private Sub InitializeCreditsPages(ByVal ending As String)
-        CreditsPages.Add(New CreditsPage("Pokémon3D staff", Color.White, Color.Black))
+        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()))
@@ -60,24 +61,25 @@ Public Class CreditsScreen
         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("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("Graphics", 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("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()))
+        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()))
         CreditsPages.Add(New CreditsPage("Actionscript", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Andrew Leach", "Jason Houston", "Yong Jian Ming", """Aragas""" }.ToList()))
-        CreditsPages.Add(New CreditsPage("Script System development", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Yong Jian Ming", """Aragas"""}.ToList()))
+        CreditsPages.Add(New CreditsPage("Script System Development", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Yong Jian Ming", """Aragas"""}.ToList()))
-        CreditsPages.Add(New CreditsPage("KolbenWindowWidget development", Color.White, Color.Black, {"Jason Houston"}.ToList()))
+        CreditsPages.Add(New CreditsPage("KolbenWindowWidget Development & LUA Implementation", Color.White, Color.Black, {"Jason Houston"}.ToList()))
-        CreditsPages.Add(New CreditsPage("Launcher programming", Color.White, Color.Black, {"Nils Drescher", "Daniel Billing", """ThuxCommix""", """Aragas"""}.ToList()))
+        CreditsPages.Add(New CreditsPage("Launcher Programming", Color.White, Color.Black, {"Nils Drescher", "Daniel Billing", """ThuxCommix""", """Aragas"""}.ToList()))
         CreditsPages.Add(New CreditsPage("Pokéditor Programming", Color.White, Color.Black, {"Nils Drescher", "Jason Houston", "Hunter Graves"}.ToList()))
-        CreditsPages.Add(New CreditsPage("Website Host/Server maintenance", Color.White, Color.Black, {"Daniel Billing", "Daniel Laube"}.ToList()))
+        CreditsPages.Add(New CreditsPage("Website Host/Server Maintenance", Color.White, Color.Black, {"Daniel Billing", "Daniel Laube"}.ToList()))
-        CreditsPages.Add(New CreditsPage("GameJolt Service/API programming", Color.White, Color.Black, {"David DeCarmine", "Nils Drescher"}.ToList()))
+        CreditsPages.Add(New CreditsPage("GameJolt Service/API Programming", Color.White, Color.Black, {"David DeCarmine", "Nils Drescher"}.ToList()))
-        CreditsPages.Add(New CreditsPage("Debug testing", Color.White, Color.Black, {"Jan Mika Eine", "Tim Drescher", "Daniel Steinborn", "Andrew Leach", "Marc Boisvert-Dupras", "Matt Chambers", "Hunter Graves", "Benjamin Smith", "William Hunn", "Torben Carrington", """oXFantaXo""", "Conner Brewster"}.ToList()))
+        CreditsPages.Add(New CreditsPage("Debug Testing", Color.White, Color.Black, {"Jan Mika Eine", "Tim Drescher", "Daniel Steinborn", "Andrew Leach", "Marc Boisvert-Dupras", "Matt Chambers", "Hunter Graves", "Benjamin Smith", "William Hunn", "Torben Carrington", """oXFantaXo""", "Conner Joseph Brewster"}.ToList()))
         CreditsPages.Add(New CreditsPage("Special Thanks", Color.White, Color.Black, {"""MunchingOrange""", """TheFlamingSpade""", """SlyFoxHound""", """ArsenioDev""", """TrUShade""", """Isaaking6"""}.ToList()))
-        CreditsPages.Add(New CreditsPage("Special Thanks", Color.White, Color.Black, {"Davey Van Raaij", "Diego López", "The GameJolt team", "The AppSharp team", "The Smogon University Team"}.ToList()))
+        CreditsPages.Add(New CreditsPage("Special Thanks", Color.White, Color.Black, {"Davey Van Raaij", "Diego López", "The GameJolt Team", "The AppSharp Team", "The Smogon University Team"}.ToList()))
         CreditsPages.Add(New CreditsPage("", Color.White, Color.Black, {"And probably a lot more.", "Especially all the awesome people from", "the pokemon3d.net community.", "Thanks for helping and playing this great game."}.ToList()))
         CreditsPages.Add(New CreditsPage("", Color.White, Color.Black))
         CreditsPages.Add(New CreditsPage("", Color.White, Color.Black))
         CreditsPages.Add(New CreditsPage("THE END", Color.White, Color.Black, {"Thank you for playing!"}.ToList()))
     End Sub
 
+    ' Credit camera starting positions:
     Private Sub InitializeCameraLevels(ByVal ending As String)
         Select Case ending.ToLower()
             Case "johto"

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/World/ActionScript/ActionScript.vb

@@ -94,10 +94,10 @@ nextScript:
     Public Shared IsInsightScript As Boolean = False
 
     ''' <summary>
-    ''' Starts a script
+    ''' Starts a script.
     ''' </summary>
-    ''' <param name="Input">The input string</param>
+    ''' <param name="Input">The input string.</param>
-    ''' <param name="InputType">Type of information; 0: Script path, 1: Text, 2: Direct input</param>
+    ''' <param name="InputType">Type of information; 0: Script path, 1: Text, 2: Direct input.</param>
     Public Sub StartScript(ByVal Input As String, ByVal InputType As Integer, Optional ByVal CheckDelay As Boolean = True, Optional ByVal ResetInsight As Boolean = True)
         ScriptLevelIndex += 1
 
@@ -114,7 +114,7 @@ nextScript:
 
         If reDelay = 0.0F Or CheckDelay = False Then
             Select Case InputType
-                Case 0 'Start script from file
+                Case 0 ' Start a script from a file.
                     Logger.Debug("Start script (ID: " & Input & ")")
                     l.ScriptName = "Type: Script; Input: " & Input
 
@@ -132,7 +132,7 @@ nextScript:
                     Else
                         Logger.Log(Logger.LogTypes.ErrorMessage, "ActionScript.vb: The script file """ & path & """ doesn't exist!")
                     End If
-                Case 1 'Display text
+                Case 1 ' Display text.
                     Logger.Debug("Start Script (Text: " & Input & ")")
                     l.ScriptName = "Type: Text; Input: " & Input
 
@@ -141,7 +141,7 @@ nextScript:
                     Dim ScriptData() As String = Data.Split(CChar("^"))
 
                     AddScriptLines(ScriptData)
-                Case 2 'Start script from direct input
+                Case 2 ' Start a script from direct input.
                     Dim activator As String = Environment.StackTrace.Split(vbNewLine)(3)
                     activator = activator.Remove(activator.IndexOf("("))
 

2.5DHero/2.5DHero/World/ActionScript/ScriptConversion.vb

@@ -46,7 +46,7 @@ Public Class ScriptConversion
     End Function
 
     ''' <summary>
-    ''' Evaluates a math expression in the postfix notation. Example: 2 3 +
+    ''' Evaluates a math expression in the postfix notation. Example: "2 3 +".
     ''' </summary>
     ''' <param name="input">The postfix string.</param>
     Private Shared Function EvaluatePostfix(ByVal input As String, Optional ByRef hasError As Boolean = False) As Double
@@ -123,7 +123,7 @@ Public Class ScriptConversion
     ''' <summary>
     ''' Converts an infix notation to postfix notation.
     ''' </summary>
-    ''' <param name="input">The infix notation. Example: 2+3</param>
+    ''' <param name="input">The infix notation. Example: "2+3".</param>
     Private Shared Function ToPostfix(ByVal input As String, Optional ByRef hasError As Boolean = False) As String
         If input.Trim().StartsWith("-") Then
             input = "0" & input
@@ -143,7 +143,7 @@ Public Class ScriptConversion
             If IsNumber(token) = True Then
                 cNumber &= token.ToString()
             ElseIf cNumber.Length > 0 Then
-                output &= cNumber.ToString() & " " 'Add to the output
+                output &= cNumber.ToString() & " " ' Add to the output.
                 cNumber = ""
             End If
 
@@ -152,7 +152,7 @@ Public Class ScriptConversion
                 cNumber = ""
             End If
 
-            'Token is an operator
+            ' Token is an operator:
             If IsOperator(token) = True Then
                 Dim o1 As Char = token
 
@@ -163,11 +163,11 @@ Public Class ScriptConversion
 
                 stack.Insert(0, o1)
             End If
-            'Token is a left parenthesis
+            ' Token is a left parenthesis:
             If token = "("c Then
                 stack.Insert(0, token)
             End If
-            'Token is a right parenthesis
+            ' Token is a right parenthesis:
             If token = ")"c Then
                 If stack.Count > 0 Then
                     While stack.Count > 0

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommander.vb

@@ -49,7 +49,7 @@ Namespace ScriptVersion2
         ''' <summary>
         ''' Executes a command.
         ''' </summary>
-        ''' <param name="ScriptV2">The primitive script (v2).</param>
+        ''' <param name="ScriptV2">The primitive script (V2).</param>
         ''' <param name="inputString">The input command.</param>
         Public Shared Sub ExecuteCommand(ByRef ScriptV2 As ScriptV2, ByVal inputString As String)
             ScriptCommander.ScriptV2 = ScriptV2
@@ -141,7 +141,7 @@ Namespace ScriptVersion2
                     Logger.Log(Logger.LogTypes.Message, "ScriptCommander.vb: This class (" & mainClass & ") doesn't exist.")
                     IsReady = True
             End Select
-        End Sub 'crash handle
+        End Sub ' Crash handler.
 
         ''' <summary>
         ''' Generates a script line that gets inserted infront of the current script to turn the player into the correct orientation.

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoDayCare.vb

@@ -131,7 +131,7 @@
             End Select
 
             IsReady = True
-        End Sub 'crash handle
+        End Sub ' Crash Handler
 
     End Class
 

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoNPC.vb

@@ -136,8 +136,8 @@
                 Case "spawn"
                     Dim args() As String = argument.Split(CChar(","))
 
-                    'required parameters: position
+                    ' Required parameters: position
-                    'optional parameters: actionvalue, additionalvalue, textureid, animateidle, rotation, name, id, movement
+                    ' Optional parameters: actionvalue, additionalvalue, textureid, animateidle, rotation, name, id, movement
 
                     Dim position As Vector3 = New Vector3(sng(args(0)), sng(args(1)), sng(args(2)))
                     Dim actionValue As Integer = 0

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoPokedex.vb

@@ -18,7 +18,7 @@
             End Select
 
             IsReady = True
-        End Sub 'crash handle
+        End Sub ' Crash Handler
 
     End Class
 

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoRadio.vb

@@ -25,7 +25,7 @@
             End Select
 
             IsReady = True
-        End Sub 'crash handle
+        End Sub ' Crash Handler
 
     End Class
 

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoScreen.vb

@@ -31,7 +31,7 @@
                     Dim currencyIndicator As String = "P"
 
                     If argument.CountSplits() > 3 Then
-                        currencyIndicator = argument.GetSplit(3)            'p for pokedollars, bp for battle points
+                        currencyIndicator = argument.GetSplit(3)            ' p for PokéDollars, bp for Battle Points.
                     End If
 
                     Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New TradeScreen(Core.CurrentScreen, storeData, canBuy, canSell, currencyIndicator), Color.Black, False))
@@ -127,11 +127,11 @@
                     Dim args() As String = argument.Split(CChar(","))
 
                     If args.Length = 1 Then
-                        'Show screen with all tutor moves
+                        ' Show screen with all tutor moves.
 
                         Core.SetScreen(New TeachMovesScreen(Core.CurrentScreen, int(argument)))
                     ElseIf args.Length > 1 Then
-                        'Show screen with all moves listed
+                        ' Show screen with all moves listed.
                         Dim pokeIndex As Integer = int(args(0))
 
                         Dim moves As New List(Of BattleSystem.Attack)

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoTitle.vb

@@ -19,15 +19,15 @@
                         For i = 0 To args.Count - 1
                             Dim arg As String = args(i)
                             Select Case i
-                                Case 0 'text
+                                Case 0 ' Text
                                     t.Text = arg
-                                Case 1 'delay
+                                Case 1 ' Delay
                                     t.Delay = sng(arg)
-                                Case 2 'R
+                                Case 2 ' Red
                                     t.TextColor = New Color(CByte(int(arg).Clamp(0, 255)), t.TextColor.G, t.TextColor.B)
-                                Case 3 'G
+                                Case 3 ' Green
                                     t.TextColor = New Color(t.TextColor.R, CByte(int(arg).Clamp(0, 255)), t.TextColor.B)
-                                Case 4 'B
+                                Case 4 ' Blue
                                     t.TextColor = New Color(t.TextColor.R, t.TextColor.G, CByte(int(arg).Clamp(0, 255)))
                                 Case 5 ' Scale
                                     t.Scale = sng(arg)

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoPokemon.vb

@@ -285,7 +285,7 @@
                     p.Generate(level, True)
                     Return p.GetSaveData().Replace(",", "§")
                 Case "otmatch"
-                    'arguments: has: returns boolean, ID: returns pokedex number, Name: returns name, maxhits: returns the max number of equal chars
+                    ' Arguments: has: returns boolean, ID: returns Pokédex number, Name: returns name, maxhits: returns the maximum number of equal chars.
 
                     Dim maxDigits As Integer = 0
                     Dim maxName As String = "[EMPTY]"

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptLibrary.vb

@@ -127,15 +127,15 @@ Namespace ScriptVersion2
                                                    New ScriptArgument("focusID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Focuses the camera on an object. "))
             r(New ScriptCommand("camera", "setfocustype", {New ScriptArgument("focusType", ScriptArgument.ArgumentTypes.Str, {"player", "npc", "entity"})}.ToList(), "Sets the focus type for the camera."))
             r(New ScriptCommand("camera", "setfocusid", {New ScriptArgument("focusID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the ID of the focus target for the camera."))
-            r(New ScriptCommand("camera", "settoplayerfacing", "Sets the yaw of the camera to accommodate the player's facing."))
+            r(New ScriptCommand("camera", "settoplayerfacing", "Sets the Yaw of the camera to accommodate the player's facing."))
 
             ' Constructs:
             r(New ScriptCommand("camera", "isfixed", "bool", "Returns if the camera is fixed to a specific position.", ",", True))
-            r(New ScriptCommand("camera", "x", "sng", "Returns the current x position of the camera.", ",", True))
+            r(New ScriptCommand("camera", "x", "sng", "Returns the current X position of the camera.", ",", True))
-            r(New ScriptCommand("camera", "y", "sng", "Returns the current y position of the camera.", ",", True))
+            r(New ScriptCommand("camera", "y", "sng", "Returns the current Y position of the camera.", ",", True))
-            r(New ScriptCommand("camera", "z", "sng", "Returns the current z position of the camera.", ",", True))
+            r(New ScriptCommand("camera", "z", "sng", "Returns the current Z position of the camera.", ",", True))
-            r(New ScriptCommand("camera", "yaw", "sng", "Returns the current yaw rotation of the camera.", ",", True))
+            r(New ScriptCommand("camera", "yaw", "sng", "Returns the current Yaw rotation of the camera.", ",", True))
-            r(New ScriptCommand("camera", "pitch", "sng", "Returns the current pitch rotation of the camera.", ",", True))
+            r(New ScriptCommand("camera", "pitch", "sng", "Returns the current Pitch rotation of the camera.", ",", True))
             r(New ScriptCommand("camera", "thirdperson", "bool", "Returns if the camera is in third person mode.", ",", True))
         End Sub
 
@@ -206,8 +206,8 @@ Namespace ScriptVersion2
             r(New ScriptCommand("level", "mapfile", "str", "Returns the mapfile of the currently loaded map.", ",", True))
             r(New ScriptCommand("level", "levelfile", "str", "Returns the mapfile of the currently loaded map.", ",", True))
             r(New ScriptCommand("level", "filename", "str", "Returns only the name of the current map file, without path and extension.", ",", True))
-            r(New ScriptCommand("level", "riding", "bool", "Returns if the player is riding a Pokémon right now.", ",", True))
+            r(New ScriptCommand("level", "riding", "bool", "Returns if the player is Riding a Pokémon right now.", ",", True))
-            r(New ScriptCommand("level", "surfing", "bool", "Returns if the player is suring on a Pokémon right now.", ",", True))
+            r(New ScriptCommand("level", "surfing", "bool", "Returns if the player is Suring on a Pokémon right now.", ",", True))
         End Sub
 
         Private Shared Sub DoEntity()
@@ -274,7 +274,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("item", "clearitem", {New ScriptArgument("ItemID", ScriptArgument.ArgumentTypes.Int, True, "")}.ToList(), "Clears all items with the given ID from the player's inventory. Clears the whole inventory if ItemID is empty."))
             r(New ScriptCommand("item", "messagegive", {New ScriptArgument("ItemID", ScriptArgument.ArgumentTypes.Int),
                                              New ScriptArgument("Amount", ScriptArgument.ArgumentTypes.Int, True, "1")}.ToList(), "Displays a message for getting the specified amount of items."))
-            r(New ScriptCommand("item", "repel", {New ScriptArgument("RepelItemID", ScriptArgument.ArgumentTypes.Int, {"20", "42", "43"})}.ToList(), "Adds the steps of the repel to the repel steps of the player."))
+            r(New ScriptCommand("item", "repel", {New ScriptArgument("RepelItemID", ScriptArgument.ArgumentTypes.Int, {"20", "42", "43"})}.ToList(), "Adds the steps of the Repel to the Repel steps of the player."))
         End Sub
 
         Private Shared Sub DoInventory()
@@ -303,12 +303,12 @@ Namespace ScriptVersion2
             r(New ScriptCommand("screen", "fadein", {New ScriptArgument("fadeSpeed", ScriptArgument.ArgumentTypes.Int, True, "5")}.ToList(), "Fades the screen back in."))
             r(New ScriptCommand("screen", "fadeout", {New ScriptArgument("fadeSpeed", ScriptArgument.ArgumentTypes.Int, True, "5")}.ToList(), "Fades the screen to black."))
             r(New ScriptCommand("screen", "setfade", {New ScriptArgument("fadeValue", ScriptArgument.ArgumentTypes.Int, {"0-255"})}.ToList(), "Sets the alpha value of the screen fade."))
-            r(New ScriptCommand("screen", "credits", {New ScriptArgument("ending", ScriptArgument.ArgumentTypes.Str, True, "Johto")}.ToList(), "Displays a credits scene."))
+            r(New ScriptCommand("screen", "credits", {New ScriptArgument("ending", ScriptArgument.ArgumentTypes.Str, True, "Johto")}.ToList(), "Displays the credits scene."))
             r(New ScriptCommand("screen", "halloffame", {New ScriptArgument("displayEntryIndex", ScriptArgument.ArgumentTypes.Int, True, "")}.ToList(), "Displays the Hall of Fame. If the argument ""displayEntryIndex"" is not empty, it displays only that entry."))
             r(New ScriptCommand("screen", "teachmoves", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                      New ScriptArgument("moveIDs", ScriptArgument.ArgumentTypes.IntArr, True, "")}.ToList(), "Displays a move learn screen. If the argument ""moveIDs"" is left empty, it defaults to the Pokémon's tutor moves."))
             r(New ScriptCommand("screen", "mailsystem", "Opens the PC Inbox screen."))
-            r(New ScriptCommand("screen", "pvp", "Opens the PVP lobby screen (not finished yet, don't use)."))
+            r(New ScriptCommand("screen", "pvp", "Opens the PvP lobby screen (not finished yet, don't use)."))
             r(New ScriptCommand("screen", "input", {New ScriptArgument("defaultName", ScriptArgument.ArgumentTypes.Str, True, ""),
                                                 New ScriptArgument("inputMode", ScriptArgument.ArgumentTypes.Str, {"0-2", "name", "text", "numbers"}, True, "0"),
                                                 New ScriptArgument("currentText", ScriptArgument.ArgumentTypes.Str, True, ""),
@@ -459,14 +459,14 @@ Namespace ScriptVersion2
                                                       New ScriptArgument("y", ScriptArgument.ArgumentTypes.Int),
                                                       New ScriptArgument("z", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the direction the player will move next regardless of facing."))
             r(New ScriptCommand("player", "resetmovement", "Resets the player movement to the default movement directions."))
-            r(New ScriptCommand("player", "getbadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given badge to the player's badges and displays a message."))
+            r(New ScriptCommand("player", "getbadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given Badge to the player's Badges and displays a message."))
-            r(New ScriptCommand("player", "removebadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the given badge from the player's badges."))
+            r(New ScriptCommand("player", "removebadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the given Badge from the player's Badges."))
-            r(New ScriptCommand("player", "addbadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given badge from the player's badges."))
+            r(New ScriptCommand("player", "addbadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given Badge from the player's Badges."))
             r(New ScriptCommand("player", "achieveemblem", {New ScriptArgument("emblemName", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Makes the player achieve an emblem (GameJolt only)."))
             r(New ScriptCommand("player", "addbp", {New ScriptArgument("amount", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given amount to the player's Battle Points."))
-            r(New ScriptCommand("player", "showrod", {New ScriptArgument("rodID", ScriptArgument.ArgumentTypes.Int, {"0-2"})}.ToList(), "Displays a rod on the screen."))
+            r(New ScriptCommand("player", "showrod", {New ScriptArgument("rodID", ScriptArgument.ArgumentTypes.Int, {"0-2"})}.ToList(), "Displays a Fishing Rod on the screen."))
-            r(New ScriptCommand("player", "hiderod", "Hides the fishing rod."))
+            r(New ScriptCommand("player", "hiderod", "Hides the Fishing Rod."))
-            r(New ScriptCommand("player", "showpokemonfollow", "Shows up the following Pokémon."))
+            r(New ScriptCommand("player", "showpokemonfollow", "Shows the following Pokémon."))
             r(New ScriptCommand("player", "hidepokemonfollow", "Hides the following Pokémon."))
             r(New ScriptCommand("player", "togglepokemonfollow", "Toggles the following Pokémon's visibility."))
             r(New ScriptCommand("player", "save", "Saves the game."))
@@ -474,8 +474,8 @@ Namespace ScriptVersion2
             r(New ScriptCommand("player", "setopacity", {New ScriptArgument("opacity", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Sets the player entity's opacity."))
 
             ' Constructs:
-            r(New ScriptCommand("player", "position", "sngarr", {New ScriptArgument("coordinate", ScriptArgument.ArgumentTypes.StrArr, {"x", "y", "z"}, True, "")}.ToList(), "Returns the position of the player. The normal coordinate combination is ""x,y,z"".", ",", True))
+            r(New ScriptCommand("player", "position", "sngarr", {New ScriptArgument("coordinate", ScriptArgument.ArgumentTypes.StrArr, {"x", "y", "z"}, True, "")}.ToList(), "Returns the position of the player. The normal coordinate combination is ""X,Y,Z"".", ",", True))
-            r(New ScriptCommand("player", "hasbadge", "bool", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the player owns a specific badge.", ",", True))
+            r(New ScriptCommand("player", "hasbadge", "bool", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the player owns a specific Badge.", ",", True))
             r(New ScriptCommand("player", "skin", "str", "Returns the current skin the player wears.", ",", True))
             r(New ScriptCommand("player", "velocity", "sng", "Returns the player's velocity (steps until the player movement ends).", ",", True))
             r(New ScriptCommand("player", "ismoving", "bool", "Returns if the player moves.", ",", True))
@@ -485,11 +485,11 @@ Namespace ScriptVersion2
             r(New ScriptCommand("player", "name", "str", "Returns the player's name", ",", True))
             r(New ScriptCommand("player", "gender", "int", "Returns the player's gender (0=male, 1=female)", ",", True))
             r(New ScriptCommand("player", "bp", "int", "Returns the amount of Battle Points the player owns.", ",", True))
-            r(New ScriptCommand("player", "badges", "int", "Returns the amount of badges the player owns", ",", True))
+            r(New ScriptCommand("player", "badges", "int", "Returns the amount of Badges the player owns", ",", True))
             r(New ScriptCommand("player", "thirdperson", "bool", "Returns if the game is currently played in third person.", ",", True))
             r(New ScriptCommand("player", "rival", "str", "Returns the rival's name.", ",", True))
             r(New ScriptCommand("player", "rivalname", "str", "Returns the rival's name.", ",", True))
-            r(New ScriptCommand("player", "ot", "str", "Returns the player's OT.", ",", True))
+            r(New ScriptCommand("player", "ot", "str", "Returns the player's Original Trainer value.", ",", True))
             r(New ScriptCommand("player", "gamejoltid", "str", "Returns the player's GameJolt ID.", ",", True))
             r(New ScriptCommand("player", "haspokedex", "bool", "Returns if the player received the Pokédex.", ",", True))
             r(New ScriptCommand("player", "haspokegear", "bool", "Returns if the player received the Pokégear.", ",", True))
@@ -554,8 +554,8 @@ Namespace ScriptVersion2
 
         Private Shared Sub DoRadio()
             ' Commands:
-            r(New ScriptCommand("radio", "allowchannel", {New ScriptArgument("channel", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Allows a channel on the map."))
+            r(New ScriptCommand("radio", "allowchannel", {New ScriptArgument("channel", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Allows a Radio channel on the map."))
-            r(New ScriptCommand("radio", "blockchannel", {New ScriptArgument("channel", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Blocks a channel on the map."))
+            r(New ScriptCommand("radio", "blockchannel", {New ScriptArgument("channel", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Blocks a Radio channel on the map."))
             ' Constructs:
             r(New ScriptCommand("radio", "currentchannel", "str", "Returns the name of the channel that is currently playing.", "", True))
         End Sub
@@ -566,7 +566,7 @@ Namespace ScriptVersion2
             ' Constructs:
             r(New ScriptCommand("pokedex", "caught", "int", "Returns the amount of Pokémon registered as caught by the player.", "", True))
             r(New ScriptCommand("pokedex", "seen", "int", "Returns the amount of Pokémon registered as seen by the player.", "", True))
-            r(New ScriptCommand("pokedex", "shiny", "int", "Returns the amount of Pokémon registered as shiny by the player.", "", True))
+            r(New ScriptCommand("pokedex", "shiny", "int", "Returns the amount of Pokémon registered as Shiny by the player.", "", True))
             r(New ScriptCommand("pokedex", "dexcaught", "int", {New ScriptArgument("dexIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of Pokémon registered as caught by the player for a specific Pokédex.", "", True))
             r(New ScriptCommand("pokedex", "dexseen", "int", {New ScriptArgument("dexIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of Pokémon registered as seen by the player for a specific Pokédex.", "", True))
         End Sub
@@ -595,38 +595,38 @@ Namespace ScriptVersion2
 
         Private Shared Sub DoDaycare()
             ' Commands:
-            r(New ScriptCommand("daycare", "takeegg", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the egg from the daycare and adds it to the player's party."))
+            r(New ScriptCommand("daycare", "takeegg", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the Egg from the Day Care and adds it to the player's party."))
             r(New ScriptCommand("daycare", "takepokemon", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                                 New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Takes a Pokémon from the daycare to the player's party."))
+                                                                 New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Takes a Pokémon from the Day Care to the player's party."))
             r(New ScriptCommand("daycare", "leavepokemon", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
                                                                   New ScriptArgument("PokemonDaycareIndex", ScriptArgument.ArgumentTypes.Int),
                                                                   New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes a Pokémon from the player's party and fills the given PokemonDaycareIndex with that Pokémon."))
-            r(New ScriptCommand("daycare", "removeegg", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the egg from the daycare."))
+            r(New ScriptCommand("daycare", "removeegg", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the Egg from the Day Care."))
-            r(New ScriptCommand("daycare", "clean", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Cleans all data for the given daycare. This doesn't remove the data, just rearranges it."))
+            r(New ScriptCommand("daycare", "clean", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Cleans all data for the given Day Care. This doesn't remove the data, just rearranges it."))
-            r(New ScriptCommand("daycare", "call", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Initializes a call with the daycare. This checks if the daycare is registered in the Pokégear."))
+            r(New ScriptCommand("daycare", "call", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Initializes a call with the Day Care. This checks if the Day Care is registered in the Pokégear."))
-            r(New ScriptCommand("daycare", "cleardata", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Clears all the data for one daycare. That includes the Pokémon stored there and a potential egg."))
+            r(New ScriptCommand("daycare", "cleardata", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Clears all the data for one Day Care. That includes the Pokémon stored there and a potential Egg."))
 
             ' Constructs:
             r(New ScriptCommand("daycare", "pokemonID", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon ID of a Pokémon in the daycare.", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon ID of a Pokémon in the Day Care.", ",", True))
             r(New ScriptCommand("daycare", "pokemonName", "str", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of a Pokémon in the daycare.", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of a Pokémon in the Day Care.", ",", True))
             r(New ScriptCommand("daycare", "pokemonSprite", "str", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the sprite of a Pokémon in the daycare.", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the sprite of a Pokémon in the Day Care.", ",", True))
             r(New ScriptCommand("daycare", "shinyIndicator", "str", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Shiny Indicator of a Pokémon in the daycare (either ""N"" or ""S"").", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Shiny Indicator of a Pokémon in the Day Care (either ""N"" or ""S"").", ",", True))
-            r(New ScriptCommand("daycare", "countpokemon", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of Pokémon in the daycare.", ",", True))
+            r(New ScriptCommand("daycare", "countpokemon", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of Pokémon in the Day Care.", ",", True))
             r(New ScriptCommand("daycare", "haspokemon", "bool", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon ID of a Pokémon in the daycare.", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon ID of a Pokémon in the Day Care.", ",", True))
             r(New ScriptCommand("daycare", "canswim", "bool", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Pokémon in the daycare can swim.", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Pokémon in the Day Care can swim.", ",", True))
-            r(New ScriptCommand("daycare", "hasegg", "bool", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the daycare has an egg.", ",", True))
+            r(New ScriptCommand("daycare", "hasegg", "bool", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Day Care has an Egg.", ",", True))
             r(New ScriptCommand("daycare", "grownlevels", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of levels the Pokémon has grown in the daycare.", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of levels the Pokémon has grown in the Day Care.", ",", True))
             r(New ScriptCommand("daycare", "currentlevel", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the current level of the Pokémon in the daycare.", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the current level of the Pokémon in the Day Care.", ",", True))
             r(New ScriptCommand("daycare", "canbreed", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
-                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the chance the Pokémon in the daycare can breed (in %).", ",", True))
+                                                               New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the chance the Pokémon in the Day Care can breed (in %).", ",", True))
         End Sub
 
         Private Shared Sub DoPokemon()
@@ -657,7 +657,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "addattack", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                      New ScriptArgument("attackID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the move to a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "setshiny", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
-                                                    New ScriptArgument("shiny", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets the shiny value of a Pokémon in the player's party."))
+                                                    New ScriptArgument("shiny", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets the Shiny value of a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "changelevel", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                        New ScriptArgument("newLevel", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the level of a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "gainexp", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
@@ -688,7 +688,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "setfriendship", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Str),
                                                          New ScriptArgument("friendship", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the friendship value for a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "addfriendship", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Str),
-                                                         New ScriptArgument("friendship", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds to the frienship of a Pokémon in the player's party."))
+                                                         New ScriptArgument("friendship", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds to the frienship value of a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "select", {New ScriptArgument("canExit", ScriptArgument.ArgumentTypes.Bool),
                                                          New ScriptArgument("canChooseEgg", ScriptArgument.ArgumentTypes.Bool),
                                                          New ScriptArgument("canChooseFainted", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Opens the Pokémon select screen."))
@@ -701,16 +701,16 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "setgender", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                        New ScriptArgument("genderID", ScriptArgument.ArgumentTypes.Int, {"0-2"})}.ToList(), "Sets a Pokémon's gender."))
             r(New ScriptCommand("pokemon", "setability", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
-                                                       New ScriptArgument("abilityID", ScriptArgument.ArgumentTypes.Int, {"0-188"})}.ToList(), "Sets the ability of a Pokémon in the player's party."))
+                                                       New ScriptArgument("abilityID", ScriptArgument.ArgumentTypes.Int, {"0-188"})}.ToList(), "Sets the Ability of a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "setev", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                        New ScriptArgument("evStat", ScriptArgument.ArgumentTypes.Str, {"hp", "atk", "attack", "def", "defense", "spatk", "specialattack", "spattack", "spdef", "specialdefense", "spdefense", "speed"}),
-                                                       New ScriptArgument("evValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the value of the EV stat of a Pokémon in the player's party."))
+                                                       New ScriptArgument("evValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the value of the Effort Value stat of a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "setiv", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                        New ScriptArgument("ivStat", ScriptArgument.ArgumentTypes.Str, {"hp", "atk", "attack", "def", "defense", "spatk", "specialattack", "spattack", "spdef", "specialdefense", "spdefense", "speed"}),
-                                                       New ScriptArgument("ivValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the value of the IV stat of a Pokémon in the player's party."))
+                                                       New ScriptArgument("ivValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the value of the Individual Value stat of a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "registerhalloffame", "Registers the current party as new Hall of Fame entry."))
             r(New ScriptCommand("pokemon", "setOT", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
-                                                       New ScriptArgument("newOT", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the OT of a Pokémon in the player's party."))
+                                                       New ScriptArgument("newOT", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the Original Trainer of a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "setItem", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                        New ScriptArgument("itemID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the item of a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "setItemData", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
@@ -728,7 +728,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "newroaming", {New ScriptArgument("pokemonID", ScriptArgument.ArgumentTypes.Int),
                                                       New ScriptArgument("level", ScriptArgument.ArgumentTypes.Int),
                                                       New ScriptArgument("regionID", ScriptArgument.ArgumentTypes.Int),
-                                                      New ScriptArgument("startMap", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Adds a new roaming Pokémon to the list of roaming Pokémon.", "|", False))
+                                                      New ScriptArgument("startMap", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Adds a new Roaming Pokémon to the list of Roaming Pokémon.", "|", False))
             r(New ScriptCommand("pokemon", "evolve", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                   New ScriptArgument("evolutionTrigger", ScriptArgument.ArgumentTypes.Str, {"level", "none", "item", "trade"}, True, "level"),
                                                   New ScriptArgument("evolutionArgument", ScriptArgument.ArgumentTypes.Str, True, "")}.ToList(), "Tries to evolve a Pokémon with the given conditions."))
@@ -741,25 +741,25 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "number", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "data", "pokemonData", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the save data for a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "level", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the level of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "hasfullhp", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party has full HP.", ",", True))
+            r(New ScriptCommand("pokemon", "hasfullhp", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party has a full Hit Point count.", ",", True))
-            r(New ScriptCommand("pokemon", "hp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the HP of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "hp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Hit Points of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "atk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the atk stat of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "atk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack stat of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "def", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the def stat of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "def", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense stat of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "spatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the spatk stat of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "spatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack stat of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "spdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the spdef stat of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "spdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense stat of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "speed", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the speed stat of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "speed", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Speed stat of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "maxhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the max hp of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "maxhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Maximum Hit Points of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "isegg", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon in the players party is an egg.", ",", True))
+            r(New ScriptCommand("pokemon", "isegg", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon in the players party is an Egg.", ",", True))
             r(New ScriptCommand("pokemon", "additionaldata", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the additional data for the Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "nickname", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the nickname of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "hasnickname", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party has a nickname.", ",", True))
             r(New ScriptCommand("pokemon", "name", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "ot", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the OT of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "ot", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Original Trainer of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "trainer", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the trainer of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "itemid", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of the item of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "friendship", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the friendship value of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "itemname", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the item name of the item of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "catchball", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of the Pokéball the Pokémon was caught in.", ",", True))
+            r(New ScriptCommand("pokemon", "catchball", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of the Poké Ball the Pokémon was caught in.", ",", True))
             r(New ScriptCommand("pokemon", "catchmethod", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the method the Pokémon was caught.", ",", True))
             r(New ScriptCommand("pokemon", "catchlocation", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the location the Pokémon was caught in.", ",", True))
             r(New ScriptCommand("pokemon", "hasattack", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
@@ -767,7 +767,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "countattacks", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Counts the moves the Pokémon knows.", ",", True))
             r(New ScriptCommand("pokemon", "attackname", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                              New ScriptArgument("moveIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of the move of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "isShiny", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Pokémon is shiny.", ",", True))
+            r(New ScriptCommand("pokemon", "isShiny", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Pokémon is Shiny.", ",", True))
             r(New ScriptCommand("pokemon", "nature", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the nature of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "ownpokemon", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party was caught by the player.", ",", True))
             r(New ScriptCommand("pokemon", "islegendary", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party is a legendary Pokémon.", ",", True))
@@ -778,19 +778,19 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "has", "bool", {New ScriptArgument("pokemonID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the player has the specified Pokémon in their party.", ",", True))
             r(New ScriptCommand("pokemon", "selected", "int", "Returns the index of the selector in the player's party. (Set with @pokemon.select)", ",", True))
             r(New ScriptCommand("pokemon", "selectedmove", "int", "Returns the index of the move selected. (Set with @pokemon.selectmove)", ",", True))
-            r(New ScriptCommand("pokemon", "hasegg", "bool", "Returns if the player has an egg in their party.", ",", True))
+            r(New ScriptCommand("pokemon", "hasegg", "bool", "Returns if the player has an Egg in their party.", ",", True))
             r(New ScriptCommand("pokemon", "maxpartylevel", "int", "Returns the maximum level a Pokémon has in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "evhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the HP EVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "evhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Hit Point Effort Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "evatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack EVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "evatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack Effort Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "evdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense EVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "evdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense Effort Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "evspatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack EVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "evspatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack Effort Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "evspdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense EVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "evspdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense Effort Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "evspeed", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Speed EVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "evspeed", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Speed Effort Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "ivhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the HP IVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "ivhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Jit Point Individual Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "ivatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack IVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "ivatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack Individual Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "ivdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense IVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "ivdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense Individual Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "ivspatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack IVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "ivspatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack Individual Values of a Pokémon in the player's party.", ",", True))
-            r(New ScriptCommand("pokemon", "ivspdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense IVs of a Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "ivspdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense Individual Values of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "spawnwild", "pokemonData", "Returns the data for a Pokémon that can spawn in the current location.", ",", True))
             r(New ScriptCommand("pokemon", "itemdata", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the data of the item of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "countHallofFame", "int", "Counts the Hall of Fame entries.", ",", True))
@@ -805,7 +805,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "spawn", "pokemonData", {New ScriptArgument("pokemonID", ScriptArgument.ArgumentTypes.Int),
                                                                 New ScriptArgument("level", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the data for a Pokémon.", ",", True))
             r(New ScriptCommand("pokemon", "OTmatch", "bool,int,str", {New ScriptArgument("checkOT", ScriptArgument.ArgumentTypes.Str),
-                                                           New ScriptArgument("returnType", ScriptArgument.ArgumentTypes.Str, {"has", "id", "number", "name", "maxhits"})}.ToList(), "Returns if the player owns a Pokémon with the given OT.", ",", True))
+                                                           New ScriptArgument("returnType", ScriptArgument.ArgumentTypes.Str, {"has", "id", "number", "name", "maxhits"})}.ToList(), "Returns if the player owns a Pokémon with the given Original Trainer.", ",", True))
             r(New ScriptCommand("pokemon", "randomOT", "str", "Returns a random OT (5 digit number).", ",", True))
             r(New ScriptCommand("pokemon", "status", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the status condition of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "canevolve", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),

2.5DHero/2.5DHero/World/ActionScript/V2/ScriptV2.vb

@@ -160,8 +160,8 @@
     End Sub
 
     Private Sub DoWhile()
-        'if T equals false, go straight to :endwhile and clear any existing while query, else initialize a while query that collects every single script line that gets executed starting with :while and ending with :endwhile
+        ' If T equals false, go straight to :endwhile and clear any existing while query, else initialize a while query that collects every single script line that gets executed starting with :while and ending with :endwhile.
-        'a exitwhile directly goes to :endwhile and clears the query
+        ' A exitwhile directly goes to :endwhile and clears the query.
         Dim T As Boolean = CheckCondition()
 
         If T = True Then

2.5DHero/2.5DHero/World/Badge.vb

@@ -1,5 +1,5 @@
 ''' <summary>
-''' This class handles all actions regarding badge loading and displaying.
+''' This class handles all actions regarding Badge loading and displaying.
 ''' </summary>
 Public Class Badge
 
@@ -19,7 +19,7 @@ Public Class Badge
     Private Shared Badges As New List(Of BadgeDeclaration)
 
     ''' <summary>
-    ''' This describes one badge loaded by a GameMode with ID, Name, Texture and Arguments
+    ''' This describes one Badge loaded by a GameMode with ID, Name, Texture and Arguments.
     ''' </summary>
     Private Class BadgeDeclaration
 
@@ -86,7 +86,7 @@ Public Class Badge
     End Class
 
     ''' <summary>
-    ''' Loads the badges. Only use after the GameMode got set.
+    ''' Loads the Badges. Only use after the GameMode got set.
     ''' </summary>
     Public Shared Sub Load()
         Badges.Clear()
@@ -104,9 +104,9 @@ Public Class Badge
 #Region "GetFunctions"
 
     ''' <summary>
-    ''' Gets the badge name.
+    ''' Gets the Badge name.
     ''' </summary>
-    ''' <param name="ID">The ID of the badge.</param>
+    ''' <param name="ID">The ID of the Badge.</param>
     Public Shared Function GetBadgeName(ByVal ID As Integer) As String
         For Each b As BadgeDeclaration In Badges
             If b.ID = ID Then
@@ -144,9 +144,9 @@ Public Class Badge
     End Function
 
     ''' <summary>
-    ''' Checks if the player is able to perform a certain HM move.
+    ''' Checks if the player is able to perform a certain Hidden Machine move.
     ''' </summary>
-    ''' <param name="HM">The HM move the player tries to use.</param>
+    ''' <param name="HM">The Hidden Machine move the player tries to use.</param>
     Public Shared Function CanUseHMMove(ByVal HM As HMMoves) As Boolean
         Dim trainerBadges As List(Of Integer) = Core.Player.Badges
         For Each b As BadgeDeclaration In Badges
@@ -160,7 +160,7 @@ Public Class Badge
     ''' <summary>
     ''' Gets the region.
     ''' </summary>
-    ''' <param name="index">The index of the region in the badges enumeration.</param>
+    ''' <param name="index">The index of the region in the Badges enumeration.</param>
     Public Shared Function GetRegion(ByVal index As Integer) As String
         Dim regions As New List(Of String)
         For Each b As BadgeDeclaration In Badges
@@ -176,9 +176,9 @@ Public Class Badge
     End Function
 
     ''' <summary>
-    ''' Gets the amount of badges in a certain region.
+    ''' Gets the amount of Badges in a certain region.
     ''' </summary>
-    ''' <param name="region">The region to count the badges.</param>
+    ''' <param name="region">The region to count the Badges.</param>
     Public Shared Function GetBadgesCount(ByVal region As String) As Integer
         Dim c As Integer = 0
         For Each b As BadgeDeclaration In Badges
@@ -203,10 +203,10 @@ Public Class Badge
     End Function
 
     ''' <summary>
-    ''' Gets the ID of a badge.
+    ''' Gets the ID of a Badge.
     ''' </summary>
-    ''' <param name="region">The region this badge is from.</param>
+    ''' <param name="region">The region this Badge is from.</param>
-    ''' <param name="index">The index of this badge.</param>
+    ''' <param name="index">The index of this Badge.</param>
     Public Shared Function GetBadgeID(ByVal region As String, ByVal index As Integer) As Integer
         Dim cBadges As New List(Of BadgeDeclaration)
         For Each b As BadgeDeclaration In Badges
@@ -222,7 +222,7 @@ Public Class Badge
     End Function
 
     ''' <summary>
-    ''' Checks if the player has a certain badge.
+    ''' Checks if the player has a certain Badge.
     ''' </summary>
     ''' <param name="BadgeID">The Badge ID to check for.</param>
     Public Shared Function PlayerHasBadge(ByVal BadgeID As Integer) As Boolean

2.5DHero/2.5DHero/World/Level.vb

@@ -98,7 +98,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Indicates wether the player is surfing.
+    ''' Indicates whether the player is Surfing.
     ''' </summary>
     Public Property Surfing() As Boolean
         Get
@@ -110,7 +110,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Indicates wether the player is riding.
+    ''' Indicates whether the player is Riding.
     ''' </summary>
     Public Property Riding() As Boolean
         Get
@@ -122,7 +122,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Indicates wether the player used Strength already.
+    ''' Indicates whether the player used Strength already.
     ''' </summary>
     Public Property UsedStrength() As Boolean
         Get
@@ -257,7 +257,7 @@ Public Class Level
     ''' <summary>
     ''' The default background music for this level.
     ''' </summary>
-    ''' <remarks>Doesn't play for surfing, riding and radio.</remarks>
+    ''' <remarks>Doesn't play for Surfing, Riding and Radio.</remarks>
     Public Property MusicLoop() As String
         Get
             Return Me._musicLoop
@@ -281,7 +281,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the player can use the move Teleport.
+    ''' Whether the player can use the move Teleport.
     ''' </summary>
     Public Property CanTeleport As Boolean
         Get
@@ -293,7 +293,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the player can use the move Dig or an Escape Rope.
+    ''' Whether the player can use the move Dig or an Escape Rope.
     ''' </summary>
     Public Property CanDig As Boolean
         Get
@@ -305,7 +305,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the player can use the move Fly.
+    ''' Whether the player can use the move Fly.
     ''' </summary>
     Public Property CanFly As Boolean
         Get
@@ -355,7 +355,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the player can encounter wild Pokémon in the Grass entities.
+    ''' Whether the player can encounter wild Pokémon in the Grass entities.
     ''' </summary>
     Public Property WildPokemonGrass As Boolean
         Get
@@ -367,7 +367,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the player can encounter wild Pokémon on every floor tile.
+    ''' Whether the player can encounter wild Pokémon on every floor tile.
     ''' </summary>
     Public Property WildPokemonFloor As Boolean
         Get
@@ -379,7 +379,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the player can encounter wild Pokémon while surfing.
+    ''' Whether the player can encounter wild Pokémon while Surfing.
     ''' </summary>
     Public Property WildPokemonWater As Boolean
         Get
@@ -391,7 +391,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the map is dark, and needs to be lightened up by Flash.
+    ''' Whether the map is dark, and needs to be lightened up by Flash.
     ''' </summary>
     Public Property IsDark As Boolean
         Get
@@ -403,7 +403,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the Overworld Pokémon is visible.
+    ''' Whether the Overworld Pokémon is visible.
     ''' </summary>
     Public Property ShowOverworldPokemon As Boolean
         Get
@@ -440,7 +440,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Chance of a Hidden Ability being on a wild pokemon.
+    ''' Chance of a Hidden Ability being on a wild Pokémon.
     ''' </summary>
     Public Property HiddenAbilityChance As Integer
         Get
@@ -464,7 +464,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the map is a part of the SafariZone. This changes the Battle Menu and the MenuScreen.
+    ''' Whether the map is a part of the Safari Zone. This changes the Battle Menu and the Menu Screen.
     ''' </summary>
     Public Property IsSafariZone As Boolean
         Get
@@ -476,7 +476,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the map is a part of the BugCatchingContest. This changes the Battle Menu and the MenuScreen.
+    ''' Whether the map is a part of the Bug Catching Contest. This changes the Battle Menu and the Menu Screen.
     ''' </summary>
     Public Property IsBugCatchingContest As Boolean
         Get
@@ -532,7 +532,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Wether the radio is currently activated.
+    ''' Whether the Radio is currently activated.
     ''' </summary>
     Public Property IsRadioOn() As Boolean
         Get
@@ -544,7 +544,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' The currently selected radio station. If possible, this will replace the MusicLoop.
+    ''' The currently selected Radio station. If possible, this will replace the Music Loop.
     ''' </summary>
     Public Property SelectedRadioStation() As GameJolt.PokegearScreen.RadioStation
         Get
@@ -556,7 +556,7 @@ Public Class Level
     End Property
 
     ''' <summary>
-    ''' Allowed radio channels on this map.
+    ''' Allowed Radio channels on this map.
     ''' </summary>
     Public Property AllowedRadioChannels() As List(Of Decimal)
         Get
@@ -625,7 +625,7 @@ Public Class Level
     End Structure
 
     ''' <summary>
-    ''' A structure to store wild pokémon encounter data in.
+    ''' A structure to store wild Pokémon encounter data in.
     ''' </summary>
     Public Structure PokemonEcounterDataStruct
         ''' <summary>
@@ -634,7 +634,7 @@ Public Class Level
         Public Position As Vector3
 
         ''' <summary>
-        ''' Wether the player encountered a Pokémon.
+        ''' Whether the player encountered a Pokémon.
         ''' </summary>
         Public EncounteredPokemon As Boolean
 
@@ -695,11 +695,11 @@ Public Class Level
     ''' </summary>
     ''' <param name="Levelpath">The path to load the level from. Start with "|" to prevent loading a levelfile.</param>
     Public Sub Load(ByVal Levelpath As String)
-        'Create a parameter array to pass over to the LevelLoader.
+        ' Create a parameter array to pass over to the LevelLoader:
         Dim params As New List(Of Object)
         params.AddRange({Levelpath, False, New Vector3(0, 0, 0), 0, New List(Of String)})
 
-        'Create the world and load the level.
+        ' Create the world and load the level:
         World = New World(0, 0)
 
         If Levelpath.StartsWith("|") = False Then
@@ -710,7 +710,7 @@ Public Class Level
             Logger.Debug("Don't attempt to load a levelfile.")
         End If
 
-        'Create own player entity and OverworldPokémon entity and add them to the entity enumeration.
+        ' Create own player entity and OverworldPokémon entity and add them to the entity enumeration:
         OwnPlayer = New OwnPlayer(0, 0, 0, {net.Pokemon3D.Game.TextureManager.DefaultTexture}, Core.Player.Skin, 0, 0, "", "Gold", 0)
         OverworldPokemon = New OverworldPokemon(Screen.Camera.Position.X, Screen.Camera.Position.Y, Screen.Camera.Position.Z + 1)
         OverworldPokemon.ChangeRotation()
@@ -726,11 +726,11 @@ Public Class Level
     Public Sub Draw()
         Me._backdropRenderer.Draw()
 
-        'Set the effect's View and Projection matrices.
+        ' Set the effect's View and Projection matrices:
         Screen.Effect.View = Screen.Camera.View
         Screen.Effect.Projection = Screen.Camera.Projection
 
-        'Reset the Debug values.
+        ' Reset the Debug values:
         DebugDisplay.DrawnVertices = 0
         DebugDisplay.MaxVertices = 0
         DebugDisplay.MaxDistance = 0
@@ -739,7 +739,7 @@ Public Class Level
             Me.RenderOffsetMap() ' Only render offset maps if they are activated.
         End If
 
-        'Render floors.
+        'Render floors:
         For i = 0 To Me.Floors.Count - 1
             If i <= Me.Floors.Count - 1 Then
                 Me.Floors(i).Render()
@@ -747,7 +747,7 @@ Public Class Level
             End If
         Next
 
-        'Render all other entities.
+        'Render all other entities:
         For i = 0 To Me.Entities.Count - 1
             If i <= Me.Entities.Count - 1 Then
                 Me.Entities(i).Render()
@@ -769,7 +769,7 @@ Public Class Level
         Me.UpdatePlayerWarp()
         Me._pokemonEncounter.TriggerBattle()
 
-        'Reload map from file (debug/sandbox):
+        ' Reload map from file (Debug or Sandbox Mode):
         If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then
             If KeyBoardHandler.KeyPressed(Keys.R) = True And Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
                 Core.OffsetMaps.Clear()
@@ -851,7 +851,7 @@ Public Class Level
 
                 Me._offsetMapUpdateDelay = Core.GameOptions.LoadOffsetMaps - 1 'Set the new delay
 
-                'Remove entities that CanBeRemoved (see what I did there?)
+                ' Remove entities that CanBeRemoved (see what I did there?):
                 For i = 0 To OffsetmapEntities.Count - 1
                     If i <= OffsetmapEntities.Count - 1 Then
                         If OffsetmapEntities(i).CanBeRemoved = True Then
@@ -863,14 +863,14 @@ Public Class Level
                     End If
                 Next
 
-                'Call UpdateEntity on all offset map entities.
+                ' Call UpdateEntity on all offset map entities:
                 For i = Me.OffsetmapEntities.Count - 1 To 0 Step -1
                     If i <= Me.OffsetmapEntities.Count - 1 Then
                         Me.OffsetmapEntities(i).UpdateEntity()
                     End If
                 Next
 
-                'Call UpdateEntity on all offset map floors.
+                ' Call UpdateEntity on all offset map floors:
                 For i = Me.OffsetmapFloors.Count - 1 To 0 Step -1
                     If i <= Me.OffsetmapFloors.Count - 1 Then
                         Me.OffsetmapFloors(i).UpdateEntity()
@@ -924,7 +924,7 @@ Public Class Level
             Me._wildPokemonFloor = False
             Me.PokemonEncounterData.EncounteredPokemon = False
 
-            'Set the surfing flag for the next map:
+            ' Set the Surfing flag for the next map:
             Core.Player.startSurfing = Surfing
 
             ' Change the player position:
@@ -947,10 +947,10 @@ Public Class Level
             levelLoader.LoadLevel(params.ToArray())
 
             Core.Player.AddVisitedMap(Me.LevelFile) ' Add new map to visited maps list.
-            UsedStrength = False 'Disable strength usuage upon map switch.
+            UsedStrength = False ' Disable Strength usuage upon map switch.
-            Me.Surfing = Core.Player.startSurfing 'Set the surfing property after map switch.
+            Me.Surfing = Core.Player.startSurfing ' Set the Surfing property after map switch.
 
-            'Create player and Pokémon entities.
+            ' Create player and Pokémon entities:
             OwnPlayer = New OwnPlayer(0, 0, 0, {net.Pokemon3D.Game.TextureManager.DefaultTexture}, Core.Player.Skin, 0, 0, "", "Gold", 0)
             OwnPlayer.SetTexture(Core.Player.Skin, usingGameJoltTexture)
 
@@ -959,7 +959,7 @@ Public Class Level
             OverworldPokemon.warped = True
             Entities.AddRange({OwnPlayer, OverworldPokemon})
 
-            'Set ride skin, if needed.
+            ' Set Ride skin, if needed:
             If Riding = True And CanRide() = False Then
                 Riding = False
                 OwnPlayer.SetTexture(Core.Player.TempRideSkin, True)
@@ -969,10 +969,10 @@ Public Class Level
             ' If any turns after the warp are defined, apply them:
             Screen.Camera.InstantTurn(WarpData.WarpRotations)
 
-            'Make the routesign appear:
+            ' Make the RouteSign appear:
             Me._routeSign.Setup(MapName)
 
-            'Play the correct music track.
+            ' Play the correct music track:
             If IsRadioOn = True AndAlso GameJolt.PokegearScreen.StationCanPlay(Me.SelectedRadioStation) = True Then
                 MusicManager.PlayMusic(SelectedRadioStation.Music, True)
             Else
@@ -991,7 +991,7 @@ Public Class Level
             ' Initialize the world with newly loaded environment variables:
             World.Initialize(Screen.Level.EnvironmentType, Screen.Level.WeatherType)
 
-            'If this map is on the restplaces list, set the player's last restplace to this map.
+            ' If this map is on the restplaces list, set the player's last restplace to this map:
             Dim restplaces As List(Of String) = System.IO.File.ReadAllLines(GameModeManager.GetMapPath("restplaces.dat")).ToList()
 
             For Each line As String In restplaces
@@ -1002,21 +1002,21 @@ Public Class Level
                 End If
             Next
 
-            'If the warp happened through a warp block, make the player walk one step forward after switching to the new map.
+            ' If the warp happened through a warp block, make the player walk one step forward after switching to the new map:
             If Screen.Camera.IsMoving = True And WarpData.IsWarpBlock = True Then
                 Screen.Camera.StopMovement()
                 Screen.Camera.Move(1.0F)
             End If
 
-            'Because of the map change, Roaming Pokémon are moving to their next location on the world map.
+            ' Because of the map change, Roaming Pokémon are moving to their next location on the world map:
             RoamingPokemon.ShiftRoamingPokemon(-1)
 
-            'Check if the enter sound should be played by checking if CanDig or CanFly properties are different from the last map.
+            ' Check if the enter sound should be played by checking if CanDig or CanFly properties are different from the last map:
             If tempProperties <> Me.CanDig.ToString() & "," & Me.CanFly.ToString() Then
                 SoundManager.PlaySound("enter", False)
             End If
 
-            'Unlock the yaw on the camera.
+            ' Unlock the yaw on the camera:
             CType(Screen.Camera, OverworldCamera).YawLocked = False
             NetworkPlayer.ScreenRegionChanged()
 
@@ -1096,7 +1096,7 @@ Public Class Level
     End Sub
 
     ''' <summary>
-    ''' Determines wether the player can use Ride on this map.
+    ''' Determines whether the player can use Ride on this map.
     ''' </summary>
     Public Function CanRide() As Boolean
         If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then 'Always true for Sandboxmode and Debug mode.
@@ -1118,7 +1118,7 @@ Public Class Level
     End Function
 
     ''' <summary>
-    ''' Wether the player can move based on the entity around him.
+    ''' Whether the player can move based on the entity around him.
     ''' </summary>
     Public Function CanMove() As Boolean
         For Each e As Entity In Me.Entities

2.5DHero/2.5DHero/World/LevelLoader.vb

@@ -25,11 +25,11 @@
     Dim MapOrigin As String = ""
     Dim sessionMapsLoaded As New List(Of String) ' Prevents infinite loops when loading more than one offset map level.
 
-    'Store these so other classes can get them.
+    ' Store these so other classes can get them:
     Private Entities As New List(Of Entity)
     Private Floors As New List(Of Entity)
 
-    'A counter across all LevelLoader instances to count how many instances across the program are active.
+    ' A counter across all LevelLoader instances to count how many instances across the program are active:
     Shared Busy As Integer = 0
 
     Public Shared ReadOnly Property IsBusy() As Boolean
@@ -256,7 +256,7 @@
         timer.Stop()
         Logger.Debug("Map loading time: " & timer.ElapsedTicks & " Ticks; " & timer.ElapsedMilliseconds & " Milliseconds.")
 
-        'Dim xmlLevelLoader As New XmlLevelLoader
+        ' Dim xmlLevelLoader As New XmlLevelLoader.
         ' xmlLevelLoader.Load(My.Computer.FileSystem.SpecialDirectories.Desktop & "\t.xml", _5DHero.XmlLevelLoader.LevelTypes.Default, Vector3.Zero)
 
         Busy -= 1
@@ -969,7 +969,7 @@
             Screen.Level.WeatherType = 0
         End If
 
-        'It's not my fault I swear. The keyboard was slippy, I was partly sick and there was fog on the road and I couldnt see.
+        ' It's not my fault, I swear. The keyboard was slippy, I was partly sick, and there was fog on the road and I couldn't see.
         Dim lightningExists As Boolean = TagExists(Tags, "Lightning")
         Dim lightingExists As Boolean = TagExists(Tags, "Lighting")
 
@@ -1015,7 +1015,7 @@
                 If CType(CurrentScreen, OverworldScreen).ActionScript.IsReady = True Then
                     CType(CurrentScreen, OverworldScreen).ActionScript.reDelay = 0.0F
                     CType(CurrentScreen, OverworldScreen).ActionScript.StartScript(scriptName, 0)
-                Else 'A script intro is playing (fly)
+                Else ' A script intro is playing (such as Fly).
                     MapScript = scriptName
                 End If
             Else ' Must be a direct save load from the main menu.

2.5DHero/2.5DHero/World/Lighting.vb

@@ -40,9 +40,9 @@ Public Class Lighting
             ' LightType results:
             ' 0 = Night
             ' 1 = Morning
-            '2 = day
+            ' 2 = Day
-            '3 = evening
+            ' 3 = Evening
-            'everything above = no lighting
+            ' Anything higher than 3 = No Lighting
 
             Select Case GetLightingType()
                 Case 0 ' Night
@@ -77,7 +77,7 @@ Public Class Lighting
                     refEffect.LightingEnabled = False
             End Select
         Else
-            'Disable lighting if the effect isn't supposed to be lighted.
+            ' Disable lighting if the effect isn't supposed to have light.
             refEffect.LightingEnabled = False
         End If
     End Sub
@@ -86,17 +86,17 @@ Public Class Lighting
         Dim LightType As Integer = CInt(World.GetTime()) ' Determine default lighting type by the world time.
 
         ' Level's lighttype values:
-        '0 = get lighting from the current time of day
+        ' 0 = Get lighting from the current time of day.
-        '1 = disable lighting
+        ' 1 = Disable lighting
-        '2 = always night
+        ' 2 = Always Night
-        '3 = always morning
+        ' 3 = Always Morning
-        '4 = always day
+        ' 4 = Always Day
-        '5 = always evening
+        ' 5 = Always Evening
 
-        If Screen.Level.LightingType = 1 Then 'If the level lighting type is 1, disable lighting (set index to 99)
+        If Screen.Level.LightingType = 1 Then ' If the level lighting type is 1, disable lighting (set index to 99).
             LightType = 99
         End If
-        If Screen.Level.LightingType > 1 And Screen.Level.LightingType < 6 Then 'If the level's lighting type is 2, 3, 4 or 5, set to respective LightType (set time of day)
+        If Screen.Level.LightingType > 1 And Screen.Level.LightingType < 6 Then ' If the level's lighting type is 2, 3, 4 or 5, set to the respective LightType (set time of day).
             LightType = Screen.Level.LightingType - 2
         End If
 

2.5DHero/2.5DHero/World/OffsetMap.vb

@@ -38,7 +38,7 @@ Public Class OffsetMap
         _MapName = MapName
 
         ' Set the identifier:
-        '             Offset map       Map weather                                  Region weather                          Time                    Season
+        '             Offset Map                   Map Weather                             Region Weather                       Time                   Season
         _Identifier = _MapName & "|" & Screen.Level.World.CurrentMapWeather & "|" & World.GetCurrentRegionWeather() & "|" & World.GetTime() & "|" & World.CurrentSeason()
     End Sub
 

2.5DHero/2.5DHero/World/PokemonEncounter.vb

@@ -5,7 +5,7 @@ Public Class PokemonEncounter
 
 #Region "Fields and Constants"
 
-    'Stores a reference to the level instance.
+    ' Stores a reference to the level instance:
     Private _levelReference As Level
 
 #End Region
@@ -33,39 +33,39 @@ Public Class PokemonEncounter
     Public Sub TryEncounterWildPokemon(ByVal Position As Vector3, ByVal Method As Spawner.EncounterMethods, ByVal pokeFile As String)
         With Me._levelReference
 
-            If .WalkedSteps > 3 Then 'Only after walking 3 steps, try to encounter a wild Pokémon.
+            If .WalkedSteps > 3 Then ' Three Step Rule - Only after walking 3 steps, try to encounter a wild Pokémon:
-                'Compose the correct .poke file from the levelfile, if the pokeFile parameter is empty.
+                ' Compose the correct .poke file from the levelfile, if the pokeFile parameter is empty:
                 If pokeFile = "" Then
                     pokeFile = .LevelFile.Remove(.LevelFile.Length - 4, 4) & ".poke"
                 End If
 
-                If System.IO.File.Exists(GameModeManager.GetPokeFilePath(pokeFile)) = True Then 'Only try to register a wild battle if the .poke file exists.
+                If System.IO.File.Exists(GameModeManager.GetPokeFilePath(pokeFile)) = True Then ' Only try to register a wild battle if the .poke file exists:
                     Dim startRandomValue As Integer = 12
                     Dim minRandomValue As Integer = 5
 
                     If Core.Player.Pokemons.Count > 0 Then
                         Dim p As Pokemon = Core.Player.Pokemons(0)
 
-                        'Arena Trap/Illuminate/No Guard/Swarm ability:
+                        ' Arena Trap/Illuminate/No Guard/Swarm Ability:
                         If p.Ability.Name.ToLower() = "arena trap" Or p.Ability.Name.ToLower() = "illuminate" Or p.Ability.Name.ToLower() = "no guard" Or p.Ability.Name.ToLower() = "swarm" Then
                             startRandomValue = 6
                             minRandomValue = 3
                         End If
 
-                        'Intimidate/Keen Eye/Quick Feet/Stench/White Smoke ability:
+                        ' Intimidate/Keen Eye/Quick Feet/Stench/White Smoke Ability:
                         If p.Ability.Name.ToLower() = "intimidate" Or p.Ability.Name.ToLower() = "keen eye" Or p.Ability.Name.ToLower() = "quick feet" Or p.Ability.Name.ToLower() = "stench" Or p.Ability.Name.ToLower() = "white smoke" Then
                             startRandomValue = 24
                             minRandomValue = 10
                         End If
 
-                        'Sand Veil ability:
+                        'Sand Veil Ability:
                         If .WeatherType = 7 And p.Ability.Name.ToLower() = "sand veil" Then
                             If Core.Random.Next(0, 100) < 50 Then
                                 Exit Sub
                             End If
                         End If
 
-                        'Snow Cloak ability:
+                        'Snow Cloak Ability:
                         If p.Ability.Name.ToLower() = "snow cloak" Then
                             If .WeatherType = 2 Or .WeatherType = 9 Then
                                 If Core.Random.Next(0, 100) < 50 Then
@@ -75,12 +75,12 @@ Public Class PokemonEncounter
                         End If
                     End If
 
-                    'Do some shit to determine if the wild Pokémon will be met or not:
+                    ' Determine if the wild Pokémon will be met or not:
                     Dim randomValue As Integer = startRandomValue - .WalkedSteps
                     randomValue = CInt(MathHelper.Clamp(randomValue, minRandomValue, startRandomValue))
 
                     If Core.Random.Next(0, randomValue * 2) = 0 Then
-                        'Don't encounter a Pokémon if the left ctrl key is held down.
+                        ' Don't encounter a Pokémon if the left control key is held down, for Debug or Sandbox Mode:
                         If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then
                             If KeyBoardHandler.KeyDown(Keys.LeftControl) = True Then
                                 Exit Sub
@@ -104,11 +104,11 @@ Public Class PokemonEncounter
     ''' Triggers a battle with a wild Pokémon if the requirements are met.
     ''' </summary>
     Public Sub TriggerBattle()
-        'If the encounter check is true.
+        ' If the encounter check is true:
         If Me._levelReference.PokemonEncounterData.EncounteredPokemon = True And Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
             ' If the player met the set position:
             If Screen.Camera.Position.X = Me._levelReference.PokemonEncounterData.Position.X And Screen.Camera.Position.Z = Me._levelReference.PokemonEncounterData.Position.Z Then
-                'Make the player stop and set encounter check to false.
+                ' Make the player stop and set encounter check to false:
                 Me._levelReference.PokemonEncounterData.EncounteredPokemon = False
                 Screen.Camera.StopMovement()
 
@@ -118,7 +118,7 @@ Public Class PokemonEncounter
                 If Not Pokemon Is Nothing And CType(Core.CurrentScreen, OverworldScreen).TrainerEncountered = False And CType(Core.CurrentScreen, OverworldScreen).ActionScript.IsReady = True Then
                     Screen.Level.RouteSign.Hide() ' When a battle starts, hide the Route sign.
 
-                    'If the player has a repel going and the first Pokémon's level is greater than the wild Pokémon's level, don't start the battle.
+                    ' If the player has a Repel going and the first Pokémon in the party's level is greater than the wild Pokémon's level, don't start the battle:
                     If Core.Player.RepelSteps > 0 Then
                         Dim p As Pokemon = Core.Player.GetWalkPokemon()
                         If Not p Is Nothing Then
@@ -128,7 +128,7 @@ Public Class PokemonEncounter
                         End If
                     End If
 
-                    'Cleanse Tag prevents wild Pokémon if held by first Pokémon in party.
+                    ' Cleanse Tag prevents wild Pokémon encounters if held by the first Pokémon in the party:
                     If Core.Player.Pokemons(0).Level >= Pokemon.Level Then
                         If Not Core.Player.Pokemons(0).Item Is Nothing Then
                             If Core.Player.Pokemons(0).Item.ID = 94 Then
@@ -139,7 +139,7 @@ Public Class PokemonEncounter
                         End If
                     End If
 
-                     'Pure Incense Lowers the chance of encountering wild Pokémon if held by first Pokémon in party.
+                    ' Pure Incense lowers the chance of encountering wild Pokémon if held by the first Pokémon in the party:
                     If Core.Player.Pokemons(0).Level >= Pokemon.Level Then
                         If Not Core.Player.Pokemons(0).Item Is Nothing Then
                             If Core.Player.Pokemons(0).Item.ID = 291 Then
@@ -150,10 +150,10 @@ Public Class PokemonEncounter
                         End If
                     End If
 
-                    'Register wild Pokémon in the Pokédex.
+                    ' Register the wild Pokémon as Seen in the Pokédex:
                     Core.Player.PokedexData = Pokedex.ChangeEntry(Core.Player.PokedexData, Pokemon.Number, 1)
 
-                    'Determine wild intro type. If it's a roaming battle, set 12.
+                    ' Determine wild Pokémon intro type. If it's a Roaming Pokémon battle, set to 12:
                     Dim introType As Integer = Core.Random.Next(0, 10)
                     If BattleSystem.BattleScreen.RoamingBattle = True Then
                         introType = 12

2.5DHero/2.5DHero/World/SkyDome.vb

@@ -61,13 +61,13 @@
     Public Sub Draw(ByVal FOV As Single)
         If Core.GameOptions.GraphicStyle = 1 Then
             If Screen.Level.World.EnvironmentType = World.EnvironmentTypes.Outside Then
-                If World.GetWeatherFromWeatherType(Screen.Level.WeatherType) <> World.Weathers.Fog Then 'Don't render the sky if weather is set to Fog
+                If World.GetWeatherFromWeatherType(Screen.Level.WeatherType) <> World.Weathers.Fog Then ' Don't render the sky if the weather is set to Fog.
-                    RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch() + Math.PI), True, TextureSun, 100, Me.GetSunAlpha()) 'Draw sun
+                    RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch() + Math.PI), True, TextureSun, 100, Me.GetSunAlpha()) ' Draw the Sun.
-                    RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), True, TextureMoon, 100, GetStarsAlpha()) 'Draw moon
+                    RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), True, TextureMoon, 100, GetStarsAlpha()) ' Draw the Moon.
-                    RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), True, TextureDown, 50, GetStarsAlpha()) 'Draw stars half 1
+                    RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), True, TextureDown, 50, GetStarsAlpha()) ' Draw the first half of the stars.
-                    RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), False, TextureDown, 50, GetStarsAlpha()) 'Draw stars half 2
+                    RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), False, TextureDown, 50, GetStarsAlpha()) ' Draw the second half of the stars.
-                    RenderHalf(FOV, MathHelper.TwoPi - Yaw, 0.0F, True, GetCloudsTexture(), 15, GetCloudAlpha()) 'Draw clouds back layer
+                    RenderHalf(FOV, MathHelper.TwoPi - Yaw, 0.0F, True, GetCloudsTexture(), 15, GetCloudAlpha()) ' Draw the back layer of the clouds.
-                    RenderHalf(FOV, Yaw, 0.0F, True, TextureUp, 10, GetCloudAlpha()) 'Draw clouds front layer
+                    RenderHalf(FOV, Yaw, 0.0F, True, TextureUp, 10, GetCloudAlpha()) ' Draw the front layer of the clouds.
                 End If
             Else
                 RenderHalf(FOV, Yaw, 0.0F, True, TextureUp, 8.0F, 1.0F)
@@ -190,22 +190,22 @@
         Dim progress As Integer = GetTimeValue()
 
         If progress >= 1080 And progress < 1140 Then
-            'Between 6PM and 7PM, the sun fades away in 60 stages:
+            ' Between 6:00:00 PM and 7:00:00 PM, the Sun will fade away with 60 stages:
             Dim i As Single = progress - 1080
             Dim percent As Single = i / 60 * 100
 
             Return 1.0F - percent / 100.0F
         ElseIf progress >= 300 And progress < 360 Then
-            'Between 5AM and 6AM, the sun fades in in 60 stages:
+            ' Between 5:00:00 AM and 6:00:00 Am, the Sun will fade in with 60 stages:
             Dim i As Single = progress - 300
             Dim percent As Single = i / 60 * 100
 
             Return percent / 100.0F
         ElseIf progress >= 1140 Or progress < 300 Then
-            'Between 7PM and 5AM, the sun is invisible:
+            ' Between 7:00:00 PM and 5:00:00 AM, the Sun will be invisible:
             Return 0.0F
         Else
-            'Between 6AM and 6PM, the sun is fully visible:
+            ' Between 6:00:00 AM and 6:00:00 PM, the Sun will be fully visible:
             Return 1.0F
         End If
     End Function

2.5DHero/2.5DHero/World/World.vb

@@ -428,11 +428,11 @@ endsub:
                 Return Weathers.Fog
             Case 7 ' Sandstorm
                 Return Weathers.Sandstorm
-            Case 8
+            Case 8 ' Ash
                 Return Weathers.Ash
-            Case 9
+            Case 9 ' Blizzard
                 Return Weathers.Blizzard
-            Case 10
+            Case 10 ' Thunderstorm
                 Return Weathers.Thunderstorm
         End Select
         Return Weathers.Clear
@@ -477,7 +477,7 @@ endsub:
             Case 0 ' Overworld
                 Me.EnvironmentType = EnvironmentTypes.Outside
                 Me.UseLightning = True
-            Case 1 'Day always
+            Case 1 ' Permanent Day
                 Me.EnvironmentType = EnvironmentTypes.Inside
                 Me.UseLightning = False
             Case 2 ' Cave
@@ -486,7 +486,7 @@ endsub:
                     Me.CurrentMapWeather = Weathers.Clear
                 End If
                 Me.UseLightning = False
-            Case 3 'Night always
+            Case 3 ' Permanent Night
                 Me.EnvironmentType = EnvironmentTypes.Dark
                 If WeatherType = 0 Then
                     Me.CurrentMapWeather = Weathers.Clear
@@ -857,7 +857,7 @@ endsub:
 
     Public Shared ServerSeason As Seasons = Seasons.Spring
     Public Shared ServerWeather As Weathers = Weathers.Clear
-    Public Shared ServerTimeData As String = "0,0,0" 'Format: Hour,Minute,Second
+    Public Shared ServerTimeData As String = "0,0,0" ' Format: Hours,Minutes,Seconds
     Public Shared LastServerDataReceived As Date = Date.Now
 
     Public Shared ReadOnly Property SecondsOfDay() As Integer

2.5DHero/2.5DHero/credits.txt

@@ -2,7 +2,7 @@ Pok
 
 Pokémon3D staff
 created by Kolben Games
-Trademark (TM) 2012 - 2014
+Trademark (TM) 2012 - 2015
 	Team Kolben
 		Nils Drescher
 		Andrew Leach
@@ -16,10 +16,21 @@ Trademark (TM) 2012 - 2014
 	Director
 		Nils Drescher
 
+	Open Source Development Team
+		Benjamin Smith 
+		Yong Jian Ming
+		"Aragas"
+		"oXFantaXo" 
+		Jorge Luis Espinoza
+
 	Programming
 		Nils Drescher
 		Jason Houston
 		Benjamin Smith
+		William Lang
+		Yong Jian Ming
+		Jorge Luis Espinoza
+		"Aragas"
 
 	Graphic Design
 		Nils Drescher
@@ -41,6 +52,7 @@ Trademark (TM) 2012 - 2014
 		Maximilian Schröder
 		Jan Mika Eine
 		Jason Houston
+		"oXFantaXo"
 		
 	Actionscript
 		Nils Drescher
@@ -48,24 +60,34 @@ Trademark (TM) 2012 - 2014
 		Hunter Graves
 		Andrew Leach
 		Jason Houston
+		Yong Jian Ming
+		"Aragas"
 
 	Script System Development
 		Nils Drescher
 		Benjamin Smith
 		Hunter Graves
+		Yong Jian Ming
+		"Aragas"
 
-	KolbenWindowWidget Development & LUA implementation
+	KolbenWindowWidget Development & LUA Implementation
 		Jason Houston
 
 	Launcher Programming
 		Nils Drescher
 		Daniel Billing
 		"ThuxCommix"
+		"Aragas"
 
-	Server application Programming
+	Pokéditor Programming
+		Nils Drescher 
+		Jason Houston 
+		Hunter Graves
+
+	Server Application Programming
 		Nils Drescher
 
-	Website Host/Server maintenance
+	Website Host/Server Maintenance
 		Daniel Billing
 		Daniel Laube
 
@@ -74,7 +96,8 @@ Trademark (TM) 2012 - 2014
 		Nils Drescher
 
 	Debug Testing
-		Jan Mika Eine Tim Drescher
+		Jan Mika Eine 
+		Tim Drescher
 		Daniel Steinborn
 		Andrew Leach
 		Marc Boisvert-Dupras
@@ -84,6 +107,7 @@ Trademark (TM) 2012 - 2014
 		William Hunn
 		Torben Carrington
 		"oXFantaXo"
+		Conner Joseph Brewster
 
 	Special Thanks
 		"MunchingOrange"
@@ -94,8 +118,8 @@ Trademark (TM) 2012 - 2014
 		"Isaaking6"
 		Davey Van Raaij
 		Diego López
-		The GameJolt team
+		The GameJolt Team
-		The AppSharp team
+		The AppSharp Team
 		The Smogon University Team
 
 Gen 6 Pokémon sprite art: