GameMode Items can also be Mail now

P3D/Pokemon/Items/GameModeItem.vb

@@ -247,6 +247,10 @@ Public Class GameModeItem
     ''' </summary>
     Public Overrides Sub Use()
         If gmScriptPath = "" Then
+            If IsMail = True Then
+                Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New MailSystemScreen(Core.CurrentScreen, Me.gmID), Color.Black, False))
+            End If
+
             If gmIsTM = True And gmTeachMove IsNot Nothing Then
                 SoundManager.PlaySound("PC\LogOn", False)
                 Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}

P3D/Pokemon/Items/GameModeItemLoader.vb

@@ -120,6 +120,8 @@ Public Class GameModeItemLoader
                             item.gmFlingDamage = CInt(value)
                         Case "ishealingitem"
                             item.gmIsHealingItem = CBool(value)
+                        Case "ismail"
+                            item.gmIsMail = CBool(value)
                         Case "healhpamount"
                             item.gmHealHPAmount = CInt(value)
                         Case "curestatus"

P3D/Pokemon/Items/MailItem.vb

@@ -43,7 +43,7 @@ Namespace Items
         End Function
 
         Public Shared Function GetStringFromMail(ByVal mail As MailData) As String
-            Dim s As String = mail.MailID.ToString() & "\," &
+            Dim s As String = mail.MailID & "\," &
                 mail.MailSender & "\," &
                 mail.MailHeader & "\," &
                 mail.MailText & "\," &