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/Script.vb

@@ -1,7 +1,7 @@
 Public Class Script
 
     Public Enum ScriptTypes As Integer
-        'V1:
+        ' V1:
         Move = 0
         MoveAsync = 1
         MovePlayer = 2
@@ -46,7 +46,7 @@
         SwitchEndIf = 39
         SwitchEnd = 40
 
-        'V2:
+        ' V2:
         Command = 100
 
         [if] = 101

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
@@ -139,11 +139,11 @@ Public Class ScriptConversion
             Dim token As Char = tokens(0)
             tokens.RemoveAt(0)
 
-            'Token is a number:
+            ' Token is a number:
             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

@@ -4,7 +4,7 @@ Namespace ScriptVersion2
 
         Shared ScriptV2 As ScriptV2
 
-        Shared Value As String = "" 'Stores a value that the ScriptCommander keeps across script calls and scripts.
+        Shared Value As String = "" ' Stores a value that the ScriptCommander keeps across script calls and scripts.
 
         Public Shared Function Parse(ByVal input As String) As Object
             Return ScriptComparer.EvaluateConstruct(input)
@@ -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.
@@ -178,11 +178,11 @@ Namespace ScriptVersion2
         End Sub
 
 
-        '//////////////////////////////////////////////////////////
+        ' //////////////////////////////////////////////////////////
-        '//
+        ' //
-        '// Shortens the ScriptConversion methods to shorter names.
+        ' // Shortens the ScriptConversion methods to shorter names.
-        '//
+        ' //
-        '//////////////////////////////////////////////////////////
+        ' //////////////////////////////////////////////////////////
 
         Private Shared Function int(ByVal expression As Object) As Integer
             Return ScriptConversion.ToInteger(expression)

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @battle commands.
+        ' Contains the @battle commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoBattle(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -87,11 +87,11 @@
 
                     CanContinue = False
                 Case "wild"
-                    'ID,    Level,  [shiny],    [musicloop],    [introtype]
+                    ' ID,    Level,  [shiny],    [musicloop],    [introtype]
-                    'int    int     -1 or bool  string          int
+                    ' int    int     -1 or bool  string          int
 
-                    'optional:
+                    ' optional:
-                    '{pokemondata},             [musicloop],    [introtype]
+                    ' {pokemondata},             [musicloop],    [introtype]
 
                     Dim p As Pokemon = Nothing
                     Dim musicLoop As String = ""

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @camera commands.
+        ' Contains the @camera commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoCamera(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @chat commands.
+        ' Contains the @chat commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoChat(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @daycare commands.
+        ' Contains the @daycare commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoDayCare(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -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/DoEntity.vb

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @entity commands.
+        ' Contains the @entity commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoEntity(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -93,7 +93,7 @@
                             Case "setcollision"
                                 ent.Collision = CBool(argument.GetSplit(1))
                             Case "settexture"
-                                'Data structure for the entire argument: entID,textureID,[texturename,x,y,width,height]
+                                ' Data structure for the entire argument: entID,textureID,[texturename,x,y,width,height]
                                 Dim textureID As Integer = int(argument.GetSplit(1))
 
                                 Dim textureData As String = argument.Remove(0, argument.IndexOf("[") + 1)

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @environment commands.
+        ' Contains the @environment commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoEnvironment(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @item commands.
+        ' Contains the @item commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoItem(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @level commands.
+        ' Contains the @level commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoLevel(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @music commands.
+        ' Contains the @music commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoMusic(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @npc commands.
+        ' Contains the @npc commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoNPC(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -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/DoOptions.vb

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @options commands.
+        ' Contains the @options commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoOptions(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @overworldpokemon commands.
+        ' Contains the @overworldpokemon commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoOverworldPokemon(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @player commands.
+        ' Contains the @player commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoPlayer(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @pokedex commands.
+        ' Contains the @pokedex commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoPokedex(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -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/DoPokemon.vb

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @pokemon commands.
+        ' Contains the @pokemon commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoPokemon(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -23,7 +23,7 @@
                         Core.Player.Pokemons.RemoveAt(index)
                     End If
                 Case "add"
-                    'PokemonID,Level,Method,Ball,Location,IsEgg,TrainerName
+                    ' PokemonID,Level,Method,Ball,Location,IsEgg,TrainerName
 
                     If argument.StartsWith("{") = True Or argument.Remove(0, 1).StartsWith(",{") = True Then
                         Dim insertIndex As Integer = Core.Player.Pokemons.Count
@@ -525,7 +525,7 @@
                         Core.Player.Pokemons(Index).CatchLocation = place
                     End If
                 Case "newroaming"
-                    'PokémonID,Level,regionID,startLevelFile,MusicLoop
+                    ' PokémonID,Level,regionID,startLevelFile,MusicLoop
                     Dim data() As String = argument.Split(CChar(","))
                     Dim p As Pokemon = Pokemon.GetPokemonByID(CInt(data(0)))
                     p.Generate(CInt(data(1)), True)

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @radio commands.
+        ' Contains the @radio commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoRadio(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -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/DoRegister.vb

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @register commands.
+        ' Contains the @register commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoRegister(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -30,7 +30,7 @@
                     ActionScript.ChangeRegister(args(0), args(1))
                 Case "registertime"
                     Dim args() As String = argument.Split(CChar(","))
-                    '0=register name, 1=value, 2=format
+                    ' 0=register name, 1=value, 2=format
 
                     Dim format As String = "days"
                     Dim isValidFormat As Boolean = True

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @screen commands.
+        ' Contains the @screen commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoScreen(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -24,14 +24,14 @@
 
                     CanContinue = False
                 Case "trade"
-                    Dim storeData As String = CStr(argument.GetSplit(0))    'e.g. Item ID
+                    Dim storeData As String = CStr(argument.GetSplit(0))    ' e.g. Item ID
                     Dim canBuy As Boolean = CBool(argument.GetSplit(1))     ' 
                     Dim canSell As Boolean = CBool(argument.GetSplit(2))    ' 
 
                     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/DoScript.vb

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @script commands.
+        ' Contains the @script commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoScript(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @sound commands.
+        ' Contains the @sound commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoSound(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @storage commands.
+        ' Contains the @storage commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoStorage(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @text commands.
+        ' Contains the @text commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoText(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -36,7 +36,7 @@
                                 Screen.TextBox.TextColor = TextBox.PlayerColor
                             Case "defaultcolor", "default"
                                 Screen.TextBox.TextColor = TextBox.DefaultColor
-                            Case Else 'Try to convert the input color name into a color: (https://msdn.microsoft.com/en-us/library/system.drawing.knowncolor%28v=vs.110%29.aspx)
+                            Case Else ' Try to convert the input color name into a color: (https://msdn.microsoft.com/en-us/library/system.drawing.knowncolor%28v=vs.110%29.aspx)
                                 Screen.TextBox.TextColor = Drawing.Color.FromName(args(0)).ToXNA()
                         End Select
                     ElseIf args.Length = 3 Then

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptCommander
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the @title commands.
+        ' Contains the @title commands.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Sub DoTitle(ByVal subClass As String)
             Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@@ -19,23 +19,23 @@
                         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
+                                Case 5 ' Scale
                                     t.Scale = sng(arg)
-                                Case 6 'IsCentered
+                                Case 6 ' IsCentered
                                     t.IsCentered = CBool(arg)
-                                Case 7 'X
+                                Case 7 ' X
                                     t.Position = New Vector2(sng(arg), t.Position.Y)
-                                Case 8 'Y
+                                Case 8 ' Y
                                     t.Position = New Vector2(t.Position.X, sng(arg))
                             End Select
                         Next

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

@@ -10,7 +10,7 @@ Namespace ScriptVersion2
         Public Class DefaultNullObj
 
             Public Overrides Function ToString() As String
-                Return "return:void" 'Just return "void" when this gets used as string to indicate that this type got returned.
+                Return "return:void" ' Just return "void" when this gets used as string to indicate that this type got returned.
             End Function
 
         End Class
@@ -321,11 +321,11 @@ Namespace ScriptVersion2
         End Function
 
 
-        '//////////////////////////////////////////////////////////
+        ' //////////////////////////////////////////////////////////
-        '//
+        ' //
-        '// Shortens the ScriptConversion methods to shorter names.
+        ' // Shortens the ScriptConversion methods to shorter names.
-        '//
+        ' //
-        '//////////////////////////////////////////////////////////
+        ' //////////////////////////////////////////////////////////
 
         Private Shared Function int(ByVal expression As Object) As Integer
             Return ScriptConversion.ToInteger(expression)

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <battle> constructs.
+        ' Contains the <battle> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoBattle(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <camera> constructs.
+        ' Contains the <camera> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoCamera(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <daycare> constructs.
+        ' Contains the <daycare> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoDaycare(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <entity> constructs.
+        ' Contains the <entity> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoEntity(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <environment> constructs.
+        ' Contains the <environment> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoEnvironment(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <filesystem> constructs.
+        ' Contains the <filesystem> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoFileSystem(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <inventory> constructs.
+        ' Contains the <inventory> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoInventory(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <level> constructs.
+        ' Contains the <level> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoLevel(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <math> constructs.
+        ' Contains the <math> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoMath(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <npc> constructs.
+        ' Contains the <npc> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoNPC(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <overworldpokemon> constructs.
+        ' Contains the <overworldpokemon> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoOverworldPokemon(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <phone> constructs.
+        ' Contains the <phone> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoPhone(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <player> constructs.
+        ' Contains the <player> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoPlayer(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <pokedex> constructs.
+        ' Contains the <pokedex> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoPokedex(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <pokemon> constructs.
+        ' Contains the <pokemon> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoPokemon(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command
@@ -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/ScriptConstructs/DoRadio.vb

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <radio> constructs.
+        ' Contains the <radio> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoRadio(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <register> constructs.
+        ' Contains the <register> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoRegister(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <rival> constructs.
+        ' Contains the <rival> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoRival(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <storage> constructs.
+        ' Contains the <storage> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoStorage(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,9 +2,9 @@
 
     Partial Class ScriptComparer
 
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
-        'Contains the <system> constructs.
+        ' Contains the <system> constructs.
-        '--------------------------------------------------------------------------------------------------------------------------
+        ' --------------------------------------------------------------------------------------------------------------------------
 
         Private Shared Function DoSystem(ByVal subClass As String) As Object
             Dim command As String = GetSubClassArgumentPair(subClass).Command

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

@@ -2,7 +2,7 @@ Namespace ScriptVersion2
 
     Public Class ScriptLibrary
 
-        'Last Library update: 0.52.1
+        ' Last Library update: 0.52.1
 
 #Region "Initialize"
 
@@ -77,7 +77,7 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoFileSystem()
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("filesystem", "pathsplit", "str", {New ScriptArgument("index", ScriptArgument.ArgumentTypes.Int),
                                                                New ScriptArgument("path", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the part of the path that is at the position of index.", ",", True))
             r(New ScriptCommand("filesystem", "pathsplitcount", "int", {New ScriptArgument("path", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the amount of parts in the given path.", ",", True))
@@ -85,7 +85,7 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoTitle()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("title", "add", {New ScriptArgument("text", ScriptArgument.ArgumentTypes.Str, True, "Sample Text"),
                                               New ScriptArgument("delay", ScriptArgument.ArgumentTypes.Sng, True, "20.0"),
                                               New ScriptArgument("R", ScriptArgument.ArgumentTypes.Int, True, "255"),
@@ -99,7 +99,7 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoCamera()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("camera", "set", {New ScriptArgument("x", ScriptArgument.ArgumentTypes.Sng),
                                               New ScriptArgument("y", ScriptArgument.ArgumentTypes.Sng),
                                               New ScriptArgument("z", ScriptArgument.ArgumentTypes.Sng),
@@ -127,27 +127,27 @@ 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:
+            ' 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
 
         Private Shared Sub DoOptions()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("options", "show", {New ScriptArgument("options", ScriptArgument.ArgumentTypes.StrArr),
                                                 New ScriptArgument("flag", ScriptArgument.ArgumentTypes.Str, {"[TEXT=FALSE]"}, True, "")}.ToList(), "Displays a choose box with the given options."))
             r(New ScriptCommand("options", "setcancelindex", {New ScriptArgument("index", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the cancel index of the next choose box. This index gets choosen when the player presses a back key."))
         End Sub
 
         Private Shared Sub DoText()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("text", "show", {New ScriptArgument("text", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Displays a textbox with the given text."))
             r(New ScriptCommand("text", "setfont", {New ScriptArgument("font", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Changes the font of the textbox. All fonts from loaded ContentPacks, GameModes and the standard game can be loaded."))
             r(New ScriptCommand("text", "debug", {New ScriptArgument("text", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Prints the ""text"" argument to the immediate window console."))
@@ -166,7 +166,7 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoMusic()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("music", "play", {New ScriptArgument("musicFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Changes the currently playing music to a new one."))
             r(New ScriptCommand("music", "setmusicloop", {New ScriptArgument("musicFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the map musicloop to a new musicfile."))
             r(New ScriptCommand("music", "stop", "Stops the music playback."))
@@ -175,7 +175,7 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoBattle()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("battle", "starttrainer", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Initializes a trainer interaction and checks if the player has already beaten that trainer."))
             r(New ScriptCommand("battle", "trainer", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Initializes a trainer battle."))
             r(New ScriptCommand("battle", "wild", {New ScriptArgument("pokemonData", ScriptArgument.ArgumentTypes.PokemonData),
@@ -187,7 +187,7 @@ Namespace ScriptVersion2
                                                New ScriptArgument("introtype", ScriptArgument.ArgumentTypes.Int, True, "0-10")}.ToList(), "Initializes the battle with a wild Pokémon."))
             r(New ScriptCommand("battle", "setvar", {New ScriptArgument("varName", ScriptArgument.ArgumentTypes.Str, {"canrun", "cancatch", "canblackout", "canreceiveexp", "canuseitems", "frontiertrainer", "divebattle", "inversebattle, custombattlemusic, hiddenabilitychance"}),
                                                  New ScriptArgument("varValue", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets a battle value."))
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("battle", "defeatmessage", "str", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the defeat message of the trainer loaded from the given ""trainerFile"".", ",", True))
             r(New ScriptCommand("battle", "intromessage", "str", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the intro message of the trainer loaded from the given ""trainerFile"".", ",", True))
             r(New ScriptCommand("battle", "outromessage", "str", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the outro message of the trainer loaded from the given ""trainerFile"".", ",", True))
@@ -195,23 +195,23 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoLevel()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("level", "wait", {New ScriptArgument("ticks", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Makes the level idle for the duration of the given ticks."))
             r(New ScriptCommand("level", "update", "Updates the level and all entities once."))
             r(New ScriptCommand("level", "waitforevents", "Makes the level idle until every NPC movement is done."))
             r(New ScriptCommand("level", "waitforsave", "Makes the level idle until the current saving of an GameJolt save is done."))
             r(New ScriptCommand("level", "reload", "Reloads the current map."))
             r(New ScriptCommand("level", "setsafari", {New ScriptArgument("safari", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets if the current map is a Safari Zone (influences battle style)."))
-            'Constructs:
+            ' Constructs:
             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()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("entity", "showmessagebulb", {New ScriptArgument("bulbID", ScriptArgument.ArgumentTypes.Int, {"0-11"}),
                                                           New ScriptArgument("x", ScriptArgument.ArgumentTypes.Sng),
                                                           New ScriptArgument("y", ScriptArgument.ArgumentTypes.Sng),
@@ -246,7 +246,7 @@ Namespace ScriptVersion2
                                                          New ScriptArgument("x", ScriptArgument.ArgumentTypes.Sng),
                                                          New ScriptArgument("y", ScriptArgument.ArgumentTypes.Sng),
                                                          New ScriptArgument("z", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Adds the given coordinates to the position of the given entity."))
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("entity", "visible", "bool", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the selected entity is visible.", ",", True))
             r(New ScriptCommand("entity", "opacity", "int", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the opacity property of the selected entity.", ",", True))
             r(New ScriptCommand("entity", "position", "sngArr", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the position of the selected entity in the pattern ""x,y,z"".", ",", True))
@@ -259,13 +259,13 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoPhone()
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("phone", "callflag", "str", "Returns, if the Pokégear is calling or getting called. Values: ""calling"", ""receiving""", ",", True))
             r(New ScriptCommand("phone", "got", "bool", "Returns if the player got the Pokégear.", ",", True))
         End Sub
 
         Private Shared Sub DoItem()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("item", "give", {New ScriptArgument("ItemID", ScriptArgument.ArgumentTypes.Int),
                                              New ScriptArgument("Amount", ScriptArgument.ArgumentTypes.Int, True, "1")}.ToList(), "Adds the given amount of items to the player's inventory."))
             r(New ScriptCommand("item", "remove", {New ScriptArgument("ItemID", ScriptArgument.ArgumentTypes.Int),
@@ -274,11 +274,11 @@ 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()
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("inventory", "countitem", "int", {New ScriptArgument("itemID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of the Item with the given ID in the player's inventory.", ",", True))
             r(New ScriptCommand("inventory", "countitems", "int", "Counts all items in the player's inventory.", ",", True))
             r(New ScriptCommand("inventory", "name", "str", {New ScriptArgument("itemID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of an Item by its ItemID.", ",", True))
@@ -286,12 +286,12 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoChat()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("chat", "clear", "Clears the chat."))
         End Sub
 
         Private Shared Sub DoScreen()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("screen", "storagesystem", "Opens the storage system."))
             r(New ScriptCommand("screen", "apricornkurt", "Opens the Apricorn Screen."))
             r(New ScriptCommand("screen", "trade", {New ScriptArgument("tradeItems", ScriptArgument.ArgumentTypes.ItemCollection),
@@ -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, ""),
@@ -318,14 +318,14 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoScript()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("script", "start", {New ScriptArgument("scriptFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Starts a script with the given filename (without file extension)."))
             r(New ScriptCommand("script", "text", {New ScriptArgument("text", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Starts a script with a simple text to display."))
             r(New ScriptCommand("script", "run", {New ScriptArgument("scriptContent", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Runs script content. New lines are represented with ""^""."))
         End Sub
 
         Private Shared Sub DoRegister()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("register", "register", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Registers a new register with the given name."))
             r(New ScriptCommand("register", "register", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str),
                                                      New ScriptArgument("type", ScriptArgument.ArgumentTypes.Str, {"str", "int", "sng", "bool"}),
@@ -337,7 +337,7 @@ Namespace ScriptVersion2
                                                          New ScriptArgument("time", ScriptArgument.ArgumentTypes.Int),
                                                          New ScriptArgument("timeFormat", ScriptArgument.ArgumentTypes.Str, {"days", "hours", "minutes", "seconds", "years", "weeks", "months", "dayofweek"})}.ToList(), "Registers a time based register."))
 
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("register", "registered", "bool", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Checks if a register with the given name is registered.", ",", True))
             r(New ScriptCommand("register", "count", "int", "Counts all registers.", ",", True))
             r(New ScriptCommand("register", "type", "str", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the type of a register with the given name.", ",", True))
@@ -345,7 +345,7 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoStorage()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("storage", "set", {New ScriptArgument("type", ScriptArgument.ArgumentTypes.Str, {"pokemon", "item", "string", "integer", "boolean", "single", "str", "int", "bool", "sng"}),
                                                New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str),
                                                New ScriptArgument("value", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Creates or overwrites a storage with the given name and type."))
@@ -355,14 +355,14 @@ Namespace ScriptVersion2
                                                New ScriptArgument("operation", ScriptArgument.ArgumentTypes.Str, {"add", "substract", "multiply", "divide"}),
                                                New ScriptArgument("value", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Updates the value in a storage with the given name and type."))
 
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("storage", "get", "str", {New ScriptArgument("type", ScriptArgument.ArgumentTypes.Str, {"pokemon", "item", "string", "integer", "boolean", "single", "str", "int", "bool", "sng"}),
                                                       New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the value for the storage with the type ""type"" and name ""name"".", ",", True))
             r(New ScriptCommand("storage", "count", "int", {New ScriptArgument("type", ScriptArgument.ArgumentTypes.Str, {"pokemon", "item", "string", "integer", "boolean", "single", "str", "int", "bool", "sng"})}.ToList(), "Returns the amount of items in the storage for a specific type.", ",", True))
         End Sub
 
         Private Shared Sub DoSystem()
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("system", "random", "int", {New ScriptArgument("min", ScriptArgument.ArgumentTypes.Int, True, "1"),
                                                         New ScriptArgument("max", ScriptArgument.ArgumentTypes.Int, True, "2")}.ToList(), "Generates a random number between min and max, inclusive.", ",", True))
             r(New ScriptCommand("system", "unixtimestamp", "int", "Returns the UNIX timestamp for the current computer time.", ",", True))
@@ -386,7 +386,7 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoEnvironment()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("environment", "setweather", {New ScriptArgument("weatherType", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Changes the weather type of the current map."))
             r(New ScriptCommand("environment", "setregionweather", {New ScriptArgument("weatherID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Changes the weather of the current region."))
             r(New ScriptCommand("environment", "setcanfly", {New ScriptArgument("canfly", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets the ""CanFly"" parameter of the current map."))
@@ -399,7 +399,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("environment", "setrenderdistance", {New ScriptArgument("distance", ScriptArgument.ArgumentTypes.Str, {"0-4", "tiny", "small", "normal", "far", "extreme"})}.ToList(), "Sets the render distance."))
             r(New ScriptCommand("environment", "toggledarkness", "Toggles the ""IsDark"" parameter of the current map."))
 
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("environment", "daytime", "str", "Returns the current DayTime of the game.", ",", True))
             r(New ScriptCommand("environment", "daytimeID", "int", "Returns the current DayTimeID of the game.", ",", True))
             r(New ScriptCommand("environment", "season", "str", "Returns the current Season of the game.", ",", True))
@@ -428,7 +428,7 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoPlayer()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("player", "receivepokedex", "Makes the Pokédex accessible for the player."))
             r(New ScriptCommand("player", "receivepokegear", "Makes the Pokégear accessible for the player."))
             r(New ScriptCommand("player", "renamerival", "Opens the rival rename screen."))
@@ -459,23 +459,23 @@ 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 BattlePoints."))
+            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."))
             r(New ScriptCommand("player", "setrivalname", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the rival's name."))
             r(New ScriptCommand("player", "setopacity", {New ScriptArgument("opacity", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Sets the player entity's opacity."))
 
-            'Constructs:
+            ' 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))
@@ -484,19 +484,19 @@ Namespace ScriptVersion2
             r(New ScriptCommand("player", "money", "int", "Returns the player's money.", ",", True))
             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 BattlePoints the player owns.", ",", 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 GameJoltID.", ",", 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))
         End Sub
 
         Private Shared Sub DoNPC()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("npc", "remove", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the selected NPC from the map."))
             r(New ScriptCommand("npc", "position", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int),
                                                 New ScriptArgument("x", ScriptArgument.ArgumentTypes.Sng),
@@ -536,7 +536,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("npc", "setspeed", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int),
                                                 New ScriptArgument("speed", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Sets the speed of an NPC. The default is ""1""."))
 
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("npc", "position", "sngArr", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the position of the selected NPC.", ",", True))
             r(New ScriptCommand("npc", "exists", "bool", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if an NPC with the given ID exists on the map.", ",", True))
             r(New ScriptCommand("npc", "ismoving", "bool", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the selected NPC is moving.", ",", True))
@@ -553,26 +553,26 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoRadio()
-            'Commands:
+            ' 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:
+            ' Constructs:
             r(New ScriptCommand("radio", "currentchannel", "str", "Returns the name of the channel that is currently playing.", "", True))
         End Sub
 
         Private Shared Sub DoPokedex()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("pokedex", "setautodetect", {New ScriptArgument("autodetect", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets if the Pokédex registers seen Pokémon in wild or trainer battles."))
-            'Constructs:
+            ' 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
 
         Private Shared Sub DoMath()
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("math", "int", "int", {New ScriptArgument("expression", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Converts the argument to an integer.", "", True))
             r(New ScriptCommand("math", "sng", "sng", {New ScriptArgument("expression", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Converts the argument to a single.", "", True))
             r(New ScriptCommand("math", "abs", "sng", {New ScriptArgument("expression", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Returns the absolute value of a number.", "", True))
@@ -589,48 +589,48 @@ Namespace ScriptVersion2
         End Sub
 
         Private Shared Sub DoRival()
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("rival", "name", "str", "Returns the rival's name", "", True))
         End Sub
 
         Private Shared Sub DoDaycare()
-            'Commands:
+            ' 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:
+            ' 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()
-            'Commands:
+            ' Commands:
             r(New ScriptCommand("pokemon", "cry", {New ScriptArgument("pokemonID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Plays the cry of the given Pokémon."))
             r(New ScriptCommand("pokemon", "remove", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the Pokémon at the given party index."))
             r(New ScriptCommand("pokemon", "add", {New ScriptArgument("pokemonData", ScriptArgument.ArgumentTypes.PokemonData)}.ToList(), "Adds the Pokémon to the player's party."))
@@ -646,7 +646,7 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "setadditionaldata", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                               New ScriptArgument("data", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Set the additional data for a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "setnickname", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
-                                                       New ScriptArgument("nickName", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Set the nick name for a Pokémon in the player's party."))
+                                                       New ScriptArgument("nickName", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Set the nickname for a Pokémon in the player's party."))
             r(New ScriptCommand("pokemon", "setstat", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
                                                    New ScriptArgument("statName", ScriptArgument.ArgumentTypes.Str, {"maxhp", "hp", "chp", "atk", "attack", "def", "defense", "spatk", "specialattack", "spattack", "spdef", "specialdefense", "spdefense", "speed"}),
                                                    New ScriptArgument("statValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Set the value of a stat for a Pokémon in the player's party."))
@@ -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),
@@ -682,13 +682,13 @@ Namespace ScriptVersion2
                                                     New ScriptArgument("register", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Trades a Pokémon with an NPC.", "|", False))
             r(New ScriptCommand("pokemon", "hide", "Hides the following Pokémon."))
             r(New ScriptCommand("pokemon", "rename", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Str, {"0-5", "last"}),
-                                                  New ScriptArgument("OTcheck", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Opens the NameRater rename feature."))
+                                                  New ScriptArgument("OTcheck", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Opens the Name Rater rename feature."))
             r(New ScriptCommand("pokemon", "read", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Str, {"[empty],0-5"})}.ToList(), "Displays the reader's dialogue."))
             r(New ScriptCommand("pokemon", "heal", {New ScriptArgument("pokemonIndicies", ScriptArgument.ArgumentTypes.IntArr)}.ToList(), "Heals the given Pokémon."))
             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."))
@@ -736,30 +736,30 @@ Namespace ScriptVersion2
             r(New ScriptCommand("pokemon", "clone", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Clones the given Pokémon in the player's party."))
 
 
-            'Constructs:
+            ' Constructs:
             r(New ScriptCommand("pokemon", "id", "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", "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 nick name of a 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 nick name.", ",", 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
@@ -171,7 +171,7 @@
             ActionScript.CSL().WhileQuery.Clear()
             ActionScript.CSL().WhileQueryInitialized = False
 
-            'Skip to endwhile:
+            ' Skip to endwhile:
 
             Dim oS As OverworldScreen = CType(Core.CurrentScreen, OverworldScreen)
             While oS.ActionScript.Scripts.Count > 0 AndAlso oS.ActionScript.Scripts(0).ScriptV2.ScriptType <> ScriptTypes.endwhile
@@ -186,7 +186,7 @@
         ActionScript.CSL().WhileQuery.Clear()
         ActionScript.CSL().WhileQueryInitialized = True
 
-        'Skip to endwhile:
+        ' Skip to endwhile:
 
         Dim oS As OverworldScreen = CType(Core.CurrentScreen, OverworldScreen)
         While oS.ActionScript.Scripts.Count > 0 AndAlso oS.ActionScript.Scripts(0).ScriptV2.ScriptType <> ScriptTypes.endwhile

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

@@ -19,16 +19,16 @@ Public Class Level
     ''' </summary>
     Public PokemonEncounterData As PokemonEcounterDataStruct
 
-    'Level states:
+    ' Level states:
     Private _isSurfing As Boolean = False
     Private _isRiding As Boolean = False
     Private _usedStrength As Boolean = False
     Private _isDark As Boolean = False
     Private _walkedSteps As Integer = 0
 
-    Private _offsetMapUpdateDelay As Integer = 50 'Ticks until the next Offset Map update occurs.
+    Private _offsetMapUpdateDelay As Integer = 50 ' Ticks until the next Offset Map update occurs.
 
-    'Map properties:
+    ' Map properties:
     Private _terrain As Terrain = New Terrain(net.Pokemon3D.Game.Terrain.TerrainTypes.Plain)
     Private _mapName As String = ""
     Private _musicLoop As String = ""
@@ -52,7 +52,7 @@ Public Class Level
     Private _bugCatchingContestData As String = ""
     Private _battleMapData As String = ""
 
-    'Entity enumerations:
+    ' Entity enumerations:
     Private _ownPlayer As OwnPlayer
     Private _ownOverworldPokemon As OverworldPokemon
 
@@ -67,7 +67,7 @@ Public Class Level
     Private _offsetMapEntities As New List(Of Entity)
     Private _offsetMapFloors As New List(Of Entity)
 
-    'Radio:
+    ' Radio:
     Private _isRadioOn As Boolean = False
     Private _selectedRadioStation As GameJolt.PokegearScreen.RadioStation = Nothing
     Private _radioChannels As New List(Of Decimal)
@@ -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
@@ -609,7 +609,7 @@ Public Class Level
         Public DoWarpInNextTick As Boolean
 
         ''' <summary>
-        ''' Amount of 90° rotations counter clockwise.
+        ''' Amount of 90° rotations counterclockwise.
         ''' </summary>
         Public WarpRotations As Integer
 
@@ -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,20 +726,20 @@ 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
 
         If Core.GameOptions.LoadOffsetMaps > 0 Then
-            Me.RenderOffsetMap() 'Only render offset maps if they are activated.
+            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()
@@ -778,12 +778,12 @@ Public Class Level
             End If
         End If
 
-        'Update all network players and Pokémon:
+        ' Update all network players and Pokémon:
         If JoinServerScreen.Online = True Then
             Core.ServersManager.PlayerManager.UpdatePlayers()
         End If
 
-        'Call Update and UpdateEntity methods of all entities:
+        ' Call Update and UpdateEntity methods of all entities:
         Me.UpdateEntities()
     End Sub
 
@@ -791,7 +791,7 @@ Public Class Level
     ''' Updates all entities on the map and offset map and sorts the enumarations.
     ''' </summary>
     Public Sub UpdateEntities()
-        'Update and remove entities:
+        ' Update and remove entities:
         If LevelLoader.IsBusy = False Then
             For i = 0 To Entities.Count - 1
                 If i <= Entities.Count - 1 Then
@@ -809,14 +809,14 @@ Public Class Level
             Next
         End If
 
-        'UpdateEntity for all entities:
+        ' UpdateEntity for all entities:
         For i = 0 To Me.Entities.Count - 1
             If i <= Me.Entities.Count - 1 Then
                 Me.Entities(i).UpdateEntity()
             End If
         Next
 
-        'UpdateEntity for all floors:
+        ' UpdateEntity for all floors:
         For i = 0 To Me.Floors.Count - 1
             If i <= Me.Floors.Count - 1 Then
                 Me.Floors(i).UpdateEntity()
@@ -841,17 +841,17 @@ Public Class Level
     Public Sub UpdateOffsetMap()
         Me._isUpdatingOffsetMaps = True
         If Core.GameOptions.LoadOffsetMaps > 0 Then
-            'The Update function of entities on offset maps are not getting called.
+            ' The Update function of entities on offset maps are not getting called.
 
-            If Me._offsetMapUpdateDelay <= 0 Then 'Only when the delay is 0, update.
+            If Me._offsetMapUpdateDelay <= 0 Then ' Only when the delay is 0, update.
-                'Sort the list:
+                ' Sort the list:
                 If LevelLoader.IsBusy = False Then
                     OffsetmapEntities = (From e In OffsetmapEntities Order By e.CameraDistance Descending).ToList()
                 End If
 
                 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()
@@ -887,7 +887,7 @@ Public Class Level
     ''' Renders offset map entities.
     ''' </summary>
     Private Sub RenderOffsetMap()
-        'Render floors:
+        ' Render floors:
         For i = 0 To Me.OffsetmapFloors.Count - 1
             If i <= Me.OffsetmapFloors.Count - 1 Then
                 If Not Me.OffsetmapFloors(i) Is Nothing Then
@@ -897,7 +897,7 @@ Public Class Level
             End If
         Next
 
-        'Render entities:
+        ' Render entities:
         For i = 0 To Me.OffsetmapEntities.Count - 1
             If i <= Me.OffsetmapEntities.Count - 1 Then
                 If Not Me.OffsetmapEntities(i) Is Nothing Then
@@ -919,24 +919,24 @@ Public Class Level
     ''' Handles warp events for the player.
     ''' </summary>
     Private Sub UpdatePlayerWarp()
-        If WarpData.DoWarpInNextTick = True Then 'If a warp event got scheduled.
+        If WarpData.DoWarpInNextTick = True Then ' If a warp event got scheduled.
-            'Disable wild Pokémon:
+            ' Disable wild Pokémon:
             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:
+            ' Change the player position:
             Screen.Camera.Position = WarpData.WarpPosition
 
-            Dim tempProperties As String = Me.CanDig.ToString() & "," & Me.CanFly.ToString() 'Store properties to determine if the "enter" sound should be played.
+            Dim tempProperties As String = Me.CanDig.ToString() & "," & Me.CanFly.ToString() ' Store properties to determine if the "enter" sound should be played.
 
-            'Store skin values:
+            ' Store skin values:
             Dim usingGameJoltTexture As Boolean = OwnPlayer.UsingGameJoltTexture
             Core.Player.Skin = OwnPlayer.SkinName
 
-            'Load the new level:
+            ' Load the new level:
             Dim params As New List(Of Object)
             params.AddRange({WarpData.WarpDestination, False, New Vector3(0, 0, 0), 0, New List(Of String)})
 
@@ -946,11 +946,11 @@ Public Class Level
             Dim levelLoader As New LevelLoader()
             levelLoader.LoadLevel(params.ToArray())
 
-            Core.Player.AddVisitedMap(Me.LevelFile) 'Add new map to visited maps list.
+            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,20 +959,20 @@ 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)
                 Core.Player.Skin = Core.Player.TempRideSkin
             End If
 
-            'If any turns after the warp are defined, apply them:
+            ' 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
@@ -988,10 +988,10 @@ Public Class Level
                 End If
             End If
 
-            'Initialize the world with newly loaded environment variables:
+            ' 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,33 +1002,33 @@ 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()
 
-            'If a warp occured, update the camera:
+            ' If a warp occured, update the camera:
             Screen.Camera.Update()
 
-            'Disable the warp check:
+            ' Disable the warp check:
             Me.WarpData.DoWarpInNextTick = False
             WarpData.IsWarpBlock = False
 
             If Core.ServersManager.ServerConnection.Connected = True Then
-                'Update network players:
+                ' Update network players:
                 Core.ServersManager.PlayerManager.NeedsUpdate = True
             End If
         End If
@@ -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

@@ -23,13 +23,13 @@
     Dim loadOffsetMap As Boolean = True
     Dim offsetMapLevel As Integer = 0
     Dim MapOrigin As String = ""
-    Dim sessionMapsLoaded As New List(Of String) 'Prevents infinite loops when loading more than one offset map level.
+    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,8 +256,8 @@
         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)
+        ' 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,10 +1015,10 @@
                 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.
+            Else ' Must be a direct save load from the main menu.
                 MapScript = scriptName
             End If
         Else

2.5DHero/2.5DHero/World/Lighting.vb

@@ -31,42 +31,42 @@ Public Class Lighting
     ''' <param name="refEffect">A reference to the BasicEffect that should receive the lighting update.</param>
     ''' <param name="ForceLighting">Checks, if the lighting update on the effect should be forced.</param>
     Public Shared Sub UpdateLighting(ByRef refEffect As BasicEffect, Optional ByVal ForceLighting As Boolean = False)
-        If Core.GameOptions.LightingEnabled = True Or ForceLighting = True Then 'Only update the lighting if either the currently loaded level instance allows this, or it's getting forced.
+        If Core.GameOptions.LightingEnabled = True Or ForceLighting = True Then ' Only update the lighting if either the currently loaded level instance allows this, or it's getting forced.
-            'Set default parameters:
+            ' Set default parameters:
-            refEffect.LightingEnabled = True 'Enable lighting (gets disabled later, if not used)
+            refEffect.LightingEnabled = True ' Enable lighting (gets disabled later, if not used)
-            refEffect.PreferPerPixelLighting = True 'Yes. Please.
+            refEffect.PreferPerPixelLighting = True ' Yes. Please.
             refEffect.SpecularPower = 2000.0F
 
-            'LightType results:
+            ' LightType results:
-            '0 = Night
+            ' 0 = Night
-            '1 = Morning
+            ' 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
+                Case 0 ' Night
                     refEffect.AmbientLightColor = New Vector3(0.8F)
 
                     refEffect.DirectionalLight0.DiffuseColor = New Vector3(0.4F, 0.4F, 0.6F)
                     refEffect.DirectionalLight0.Direction = Vector3.Normalize(New Vector3(-1.0F, 0.0F, 1.0F))
                     refEffect.DirectionalLight0.SpecularColor = New Vector3(0.0F)
                     refEffect.DirectionalLight0.Enabled = True
-                Case 1 'Morning
+                Case 1 ' Morning
                     refEffect.AmbientLightColor = New Vector3(0.7F)
 
                     refEffect.DirectionalLight0.DiffuseColor = Color.Orange.ToVector3()
                     refEffect.DirectionalLight0.Direction = Vector3.Normalize(New Vector3(1.0F, -1.0F, 1.0F))
                     refEffect.DirectionalLight0.SpecularColor = New Vector3(0.0F)
                     refEffect.DirectionalLight0.Enabled = True
-                Case 2 'Day
+                Case 2 ' Day
                     refEffect.AmbientLightColor = New Vector3(1.0F)
 
                     refEffect.DirectionalLight0.DiffuseColor = New Vector3(-0.3F)
                     refEffect.DirectionalLight0.Direction = Vector3.Normalize(New Vector3(1.0F, 1.0F, 1.0F))
                     refEffect.DirectionalLight0.SpecularColor = New Vector3(0.0F)
                     refEffect.DirectionalLight0.Enabled = True
-                Case 3 'Evening
+                Case 3 ' Evening
                     refEffect.AmbientLightColor = New Vector3(1.0F)
 
                     refEffect.DirectionalLight0.DiffuseColor = New Vector3(-0.45F)
@@ -77,26 +77,26 @@ 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
 
     Public Shared Function GetLightingType() As Integer
-        Dim LightType As Integer = CInt(World.GetTime()) 'Determine default lighting type by the world time.
+        Dim LightType As Integer = CInt(World.GetTime()) ' Determine default lighting type by the world time.
 
-        'Level's lighttype values:
+        ' 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

@@ -37,8 +37,8 @@ Public Class OffsetMap
     Public Sub New(ByVal MapName As String)
         _MapName = MapName
 
-        'Set the identifier:
+        ' 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,19 +75,19 @@ 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
                             End If
                         End If
 
-                        'Reset walked steps and set the wild Pokémon data:
+                        ' Reset walked steps and set the wild Pokémon data:
                         .WalkedSteps = 0
 
                         .PokemonEncounterData.Position = Position
@@ -104,21 +104,21 @@ 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 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()
 
-                'Generate new wild Pokémon:
+                ' Generate new wild Pokémon:
                 Dim Pokemon As Pokemon = Spawner.GetPokemon(Screen.Level.LevelFile, Me._levelReference.PokemonEncounterData.Method, True, Me._levelReference.PokemonEncounterData.PokeFile)
 
                 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.
+                    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/Terrain.vb

@@ -99,7 +99,7 @@ Public Class Terrain
                 Return TerrainTypes.PvPBattle
         End Select
 
-        'Default terrain:
+        ' Default terrain:
         Logger.Log(Logger.LogTypes.Warning, "Terrain.vb: Invalid terrain name: """ & input & """. Returning ""Plains"".")
         Return TerrainTypes.Plain
     End Function

2.5DHero/2.5DHero/World/World.vb

@@ -412,27 +412,27 @@ endsub:
 
     Public Shared Function GetWeatherFromWeatherType(ByVal WeatherType As Integer) As Weathers
         Select Case WeatherType
-            Case 0 'RegionWeather
+            Case 0 ' Region Weather
                 Return World.GetCurrentRegionWeather()
-            Case 1 'Clear
+            Case 1 ' Clear
                 Return Weathers.Clear
-            Case 2 'Rain
+            Case 2 ' Rain
                 Return Weathers.Rain
-            Case 3 'Snow
+            Case 3 ' Snow
                 Return Weathers.Snow
-            Case 4 'Underwater
+            Case 4 ' Underwater
                 Return Weathers.Underwater
-            Case 5 'Sunny
+            Case 5 ' Sunny
                 Return Weathers.Sunny
-            Case 6 'Fog
+            Case 6 ' Fog
                 Return Weathers.Fog
-            Case 7 'Sandstorm
+            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
@@ -474,31 +474,31 @@ endsub:
         Me.CurrentMapWeather = GetWeatherFromWeatherType(WeatherType)
 
         Select Case EnvironmentType
-            Case 0 'Overworld
+            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
+            Case 2 ' Cave
                 Me.EnvironmentType = EnvironmentTypes.Cave
                 If WeatherType = 0 Then
                     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
                 End If
                 Me.UseLightning = False
-            Case 4 'Underwater
+            Case 4 ' Underwater
                 Me.EnvironmentType = EnvironmentTypes.Underwater
                 If WeatherType = 0 Then
                     Me.CurrentMapWeather = Weathers.Underwater
                 End If
                 Me.UseLightning = True
-            Case 5 'Forest
+            Case 5 ' Forest
                 Me.EnvironmentType = EnvironmentTypes.Forest
                 Me.UseLightning = True
         End Select
@@ -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: