tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-31 01:35:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

GameMode Items can also be Mail now

Browse Source
This commit is contained in:
JappaWakka 2023-08-02 14:36:19 +02:00
parent acee085383
commit 8f396d0a7a
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
P3D/Pokemon/Items/GameModeItem.vb
View File

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

2
P3D/Pokemon/Items/GameModeItemLoader.vb
View File

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

2
P3D/Pokemon/Items/MailItem.vb
View File

@ -43,7 +43,7 @@ Namespace Items
End Function End Function
Public Shared Function GetStringFromMail(ByVal mail As MailData) As String 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.MailSender & "\," &
mail.MailHeader & "\," & mail.MailHeader & "\," &
mail.MailText & "\," & mail.MailText & "\," &