tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-04-08 18:35:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Evo Items and Stones now get removed when used

Browse Source 
from the inventory
This commit is contained in:
JappaWakka 2023-05-30 15:38:13 +02:00
parent 2d0ad05048
commit 551a1f3659
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -421,12 +421,11 @@ Public Class GameModeItem
End If
Dim p As Pokemon = Core.Player.Pokemons(PokeIndex)
If p.IsEgg() = False And p.CanEvolve(EvolutionCondition.EvolutionTrigger.ItemUse, Me.gmID) = True Then
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New EvolutionScreen(Core.CurrentScreen, {PokeIndex}.ToList(), Me.gmID, EvolutionCondition.EvolutionTrigger.ItemUse), Color.Black, False))
RemoveItem()
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New EvolutionScreen(Core.CurrentScreen, {PokeIndex}.ToList(), Me.gmID, EvolutionCondition.EvolutionTrigger.ItemUse), Color.Black, False))
Return True
Else
Screen.TextBox.Show("Cannot use on~" & p.GetDisplayName(), {}, False, False)

3
P3D/Pokemon/Items/StoneItem.vb
View File

@ -27,10 +27,11 @@ Namespace Items
Dim p As Pokemon = Core.Player.Pokemons(PokeIndex)
If p.IsEgg() = False And p.CanEvolve(EvolutionCondition.EvolutionTrigger.ItemUse, Me.ID.ToString()) = True Then
RemoveItem()
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New EvolutionScreen(Core.CurrentScreen, {PokeIndex}.ToList(), Me.ID.ToString(), EvolutionCondition.EvolutionTrigger.ItemUse), Color.Black, False))
PlayerStatistics.Track("[22]Evolution stones used", 1)
RemoveItem()
Return True
Else