tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 15:54:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Hide HP/Status when using medicine item in battle

Browse Source
This commit is contained in:
JappaWakka 2025-04-17 18:16:46 +02:00
parent e011432856
commit 8ab41db738
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
P3D/Pokemon/Items/MedicineItem.vb
View File

@ -37,6 +37,14 @@ Namespace Items
Return False Return False
Else Else
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen AndAlso s.PreScreen IsNot Nothing
s = s.PreScreen
End While
If s.Identification = Screen.Identifications.BattleScreen Then
CType(s, BattleSystem.BattleScreen).BattleMenu.Visible = False
End If
Dim diff As Integer = Pokemon.MaxHP - Pokemon.HP Dim diff As Integer = Pokemon.MaxHP - Pokemon.HP
diff = CInt(MathHelper.Clamp(diff, 1, HP)) diff = CInt(MathHelper.Clamp(diff, 1, HP))
@ -73,6 +81,14 @@ Namespace Items
Return False Return False
ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Poison Or Pokemon.Status = P3D.Pokemon.StatusProblems.BadPoison Then ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Poison Or Pokemon.Status = P3D.Pokemon.StatusProblems.BadPoison Then
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen AndAlso s.PreScreen IsNot Nothing
s = s.PreScreen
End While
If s.Identification = Screen.Identifications.BattleScreen Then
CType(s, BattleSystem.BattleScreen).BattleMenu.Visible = False
End If
Pokemon.Status = P3D.Pokemon.StatusProblems.None Pokemon.Status = P3D.Pokemon.StatusProblems.None
Screen.TextBox.reDelay = 0.0F Screen.TextBox.reDelay = 0.0F
@ -110,6 +126,14 @@ Namespace Items
Return False Return False
ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Sleep Then ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Sleep Then
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen AndAlso s.PreScreen IsNot Nothing
s = s.PreScreen
End While
If s.Identification = Screen.Identifications.BattleScreen Then
CType(s, BattleSystem.BattleScreen).BattleMenu.Visible = False
End If
Pokemon.Status = P3D.Pokemon.StatusProblems.None Pokemon.Status = P3D.Pokemon.StatusProblems.None
Screen.TextBox.reDelay = 0.0F Screen.TextBox.reDelay = 0.0F
@ -147,6 +171,14 @@ Namespace Items
Return False Return False
ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Burn Then ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Burn Then
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen AndAlso s.PreScreen IsNot Nothing
s = s.PreScreen
End While
If s.Identification = Screen.Identifications.BattleScreen Then
CType(s, BattleSystem.BattleScreen).BattleMenu.Visible = False
End If
Pokemon.Status = P3D.Pokemon.StatusProblems.None Pokemon.Status = P3D.Pokemon.StatusProblems.None
Screen.TextBox.reDelay = 0.0F Screen.TextBox.reDelay = 0.0F
@ -184,6 +216,14 @@ Namespace Items
Return False Return False
ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Freeze Then ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Freeze Then
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen AndAlso s.PreScreen IsNot Nothing
s = s.PreScreen
End While
If s.Identification = Screen.Identifications.BattleScreen Then
CType(s, BattleSystem.BattleScreen).BattleMenu.Visible = False
End If
Pokemon.Status = P3D.Pokemon.StatusProblems.None Pokemon.Status = P3D.Pokemon.StatusProblems.None
Core.Player.Inventory.RemoveItem(Me.ID.ToString, 1) Core.Player.Inventory.RemoveItem(Me.ID.ToString, 1)
@ -223,6 +263,14 @@ Namespace Items
Return False Return False
ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Paralyzed Then ElseIf Pokemon.Status = P3D.Pokemon.StatusProblems.Paralyzed Then
Dim s As Screen = Core.CurrentScreen
While s.Identification <> Screen.Identifications.BattleScreen AndAlso s.PreScreen IsNot Nothing
s = s.PreScreen
End While
If s.Identification = Screen.Identifications.BattleScreen Then
CType(s, BattleSystem.BattleScreen).BattleMenu.Visible = False
End If
Pokemon.Status = P3D.Pokemon.StatusProblems.None Pokemon.Status = P3D.Pokemon.StatusProblems.None
Core.Player.Inventory.RemoveItem(Me.ID.ToString, 1) Core.Player.Inventory.RemoveItem(Me.ID.ToString, 1)