Mail sender name and ot constructs

P3D/World/ActionScript/V2/ScriptConstructs/DoPokemon.vb

@@ -246,6 +246,24 @@
                         data = Core.Player.Pokemons(index).Item.AdditionalData
                     End If
                     Return data
+                Case "mailsendername"
+                    Dim index As Integer = int(argument)
+                    Dim name As String = ""
+                    If Not Core.Player.Pokemons(index).Item Is Nothing Then
+                        If Core.Player.Pokemons(index).Item.IsMail Then
+                            name = Core.Player.Pokemons(index).Item.AdditionalData.GetSplit(1, "\,")
+                        End If
+                    End If
+                    Return name
+                Case "mailsenderot"
+                    Dim index As Integer = int(argument)
+                    Dim ot As String = ""
+                    If Not Core.Player.Pokemons(index).Item Is Nothing Then
+                        If Core.Player.Pokemons(index).Item.IsMail Then
+                            ot = Core.Player.Pokemons(index).Item.AdditionalData.GetSplit(6, "\,")
+                        End If
+                    End If
+                    Return ot
                 Case "counthalloffame"
                     Return HallOfFameScreen.GetHallOfFameCount()
                 Case "learnedtutormove"

P3D/World/ActionScript/V2/ScriptLibrary.vb

@@ -823,6 +823,8 @@ Namespace ScriptVersion2
             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", "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", "mailsendername", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of the sender of a mail if there's one on the Pokémon in the player's party.", ",", True))
+            r(New ScriptCommand("pokemon", "mailsenderot", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the OT of the sender of a mail if there's one on the Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "nickname", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the nickname of a Pokémon in the player's party.", ",", True))
             r(New ScriptCommand("pokemon", "hasnickname", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party has a nickname.", ",", True))
             r(New ScriptCommand("pokemon", "name", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of a Pokémon in the player's party.", ",", True))