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

Only play poison sound with poisoned pokémon

Browse Source
This commit is contained in:
JappaWakka 2023-05-02 13:36:57 +02:00
parent 77cfefd598
commit cf437a1e88
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
P3D/Player/Player.vb
View File

@ -1883,7 +1883,16 @@
PoisonSteps -= 4 PoisonSteps -= 4
End If End If
If PoisonAmount > 0 Then If PoisonAmount > 0 Then
Dim PlayPoisonSound As Boolean = False
For i = 0 To Core.Player.Pokemons.Count - 1
If Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.Poison OrElse Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.BadPoison Then
PlayPoisonSound = True
Exit For
End If
Next
If PlayPoisonSound = True Then
SoundManager.PlaySound("OverworldPoison") SoundManager.PlaySound("OverworldPoison")
End If
For i = 0 To Core.Player.Pokemons.Count - 1 For i = 0 To Core.Player.Pokemons.Count - 1
If Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.Poison OrElse Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.BadPoison Then If Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.Poison OrElse Core.Player.Pokemons(i).Status = Pokemon.StatusProblems.BadPoison Then
If Core.Player.Pokemons(i).Ability IsNot Ability.GetAbilityByID(17) Then If Core.Player.Pokemons(i).Ability IsNot Ability.GetAbilityByID(17) Then