tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-26 23:34:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Removed unneccessary item use sounds

Browse Source
This commit is contained in:
Jasper "JappaWakka" Speelman 2022-02-05 10:28:48 +01:00
parent 5c9a5e6644
commit dde6cb5c34
1 changed files with 26 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
P3D/Battle/BattleSystemV2/Battle.vb
View File

@ -978,48 +978,35 @@
'Potion,Super Point,Hyper Potion,Full Heal,Full Restore,Burn Heal,Antidote,Paralyze heal,Awakening,Ice Heal,Revive,Max Revive,Max Potion 'Potion,Super Point,Hyper Potion,Full Heal,Full Restore,Burn Heal,Antidote,Paralyze heal,Awakening,Ice Heal,Revive,Max Revive,Max Potion
Select Case ItemID Select Case ItemID
Case 18 'Potion Case 18 'Potion
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) Me.GainHP(20, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Potion on " & p.GetDisplayName() & "!", "item:potion")
Me.GainHP(20, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Potion on " & p.GetDisplayName() & "!", "item:potion") Case 17 'Super Potion
Case 17 'Super Potion Me.GainHP(50, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Super Potion on " & p.GetDisplayName() & "!", "item:superpotion")
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) Case 16 'Hyper Potion
Me.GainHP(50, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Super Potion on " & p.GetDisplayName() & "!", "item:superpotion") Me.GainHP(100, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Hyper Potion on " & p.GetDisplayName() & "!", "item:hyperpotion")
Case 16 'Hyper Potion Case 15 'Max Potion
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) Me.GainHP(p.MaxHP, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Max Potion on " & p.GetDisplayName() & "!", "item:maxpotion")
Me.GainHP(100, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Hyper Potion on " & p.GetDisplayName() & "!", "item:hyperpotion") Case 14 'Full Restore
Case 15 'Max Potion Me.GainHP(p.MaxHP, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Full Restore on " & p.GetDisplayName() & "!", "item:fullrestore")
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False))
Me.GainHP(p.MaxHP, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Max Potion on " & p.GetDisplayName() & "!", "item:maxpotion")
Case 14 'Full Restore
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False))
Me.GainHP(p.MaxHP, False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Full Restore on " & p.GetDisplayName() & "!", "item:fullrestore")
Me.CureStatusProblem(False, False, BattleScreen, "", "item:fullrestore") Me.CureStatusProblem(False, False, BattleScreen, "", "item:fullrestore")
Case 38 'Full Heal Case 38 'Full Heal
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Full Heal on " & p.GetDisplayName() & "!", "item:fullheal")
Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Full Heal on " & p.GetDisplayName() & "!", "item:fullheal") Case 9 'Antidote
Case 9 'Antidote Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used an Antidote on " & p.GetDisplayName() & "!", "item:antidote")
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) Case 10 'Burn Heal
Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used an Antidote on " & p.GetDisplayName() & "!", "item:antidote") Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Burn Heal on " & p.GetDisplayName() & "!", "item:burnheal")
Case 10 'Burn Heal Case 11 'Ice Heal
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used an Ice Heal on " & p.GetDisplayName() & "!", "item:iceheal")
Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Burn Heal on " & p.GetDisplayName() & "!", "item:burnheal") Case 12 'Awakening
Case 11 'Ice Heal Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used an Awakening on " & p.GetDisplayName() & "!", "item:awakening")
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) Case 13 'Paralyze Heal
Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used an Ice Heal on " & p.GetDisplayName() & "!", "item:iceheal") Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Paralyze Heal on " & p.GetDisplayName() & "!", "item:paralyzeheal")
Case 12 'Awakening Case 39 'Revive
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) BattleScreen.BattleQuery.Add(New TextQueryObject(BattleScreen.Trainer.Name & " used a Revive on " & p.GetDisplayName() & "!"))
Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used an Awakening on " & p.GetDisplayName() & "!", "item:awakening")
Case 13 'Paralyze Heal
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False))
Me.CureStatusProblem(False, False, BattleScreen, BattleScreen.Trainer.Name & " used a Paralyze Heal on " & p.GetDisplayName() & "!", "item:paralyzeheal")
Case 39 'Revive
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False))
BattleScreen.BattleQuery.Add(New TextQueryObject(BattleScreen.Trainer.Name & " used a Revive on " & p.GetDisplayName() & "!"))
p.Status = Pokemon.StatusProblems.None p.Status = Pokemon.StatusProblems.None
p.HP = CInt(Math.Ceiling(p.MaxHP / 2)) p.HP = CInt(Math.Ceiling(p.MaxHP / 2))
Case 40 'Max Revive Case 40 'Max Revive
BattleScreen.BattleQuery.Add(New PlaySoundQueryObject("Use_Item", False)) BattleScreen.BattleQuery.Add(New TextQueryObject(BattleScreen.Trainer.Name & " used a Revive on " & p.GetDisplayName() & "!"))
BattleScreen.BattleQuery.Add(New TextQueryObject(BattleScreen.Trainer.Name & " used a Revive on " & p.GetDisplayName() & "!"))
p.Status = Pokemon.StatusProblems.None p.Status = Pokemon.StatusProblems.None
p.HP = p.MaxHP p.HP = p.MaxHP
End Select End Select