tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Added Able/Unable label when using evolution stone

This commit is contained in:
JappaWakka 2023-01-27 18:21:27 +01:00
parent 9b7e52e9e6
commit 5b7147c720
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,6 +12,7 @@ Namespace Items
AddHandler selScreen.SelectedObject, AddressOf UseItemhandler AddHandler selScreen.SelectedObject, AddressOf UseItemhandler
Core.SetScreen(selScreen) Core.SetScreen(selScreen)
CType(CurrentScreen, PartyScreen).EvolutionItemID = Me.ID
End Sub End Sub
Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean Public Overrides Function UseOnPokemon(ByVal PokeIndex As Integer) As Boolean

12
P3D/Screens/Pokemon/PartyScreen.vb
View File

@ -75,6 +75,7 @@ Public Class PartyScreen
Public LearnType As Integer = 0 Public LearnType As Integer = 0
Dim moveLearnArg As Object = Nothing Dim moveLearnArg As Object = Nothing
Public EvolutionItemID As Integer = -1
'Stuff related to blurred PreScreens 'Stuff related to blurred PreScreens
Private _preScreenTexture As RenderTarget2D Private _preScreenTexture As RenderTarget2D
Private _preScreenTarget As RenderTarget2D Private _preScreenTarget As RenderTarget2D
@ -373,6 +374,17 @@ Public Class PartyScreen
SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(position.X) + 78, CInt(position.Y) + 32, 24, 15), New Rectangle(0, 32, 16, 10), New Color(255, 255, 255, CInt(255 * _interfaceFade))) SpriteBatch.Draw(_menuTexture, New Rectangle(CInt(position.X) + 78, CInt(position.Y) + 32, 24, 15), New Rectangle(0, 32, 16, 10), New Color(255, 255, 255, CInt(255 * _interfaceFade)))
End If End If
'Able/unable display (when using an Evolution Item)
Dim ItemLabel As String = ""
If EvolutionItemID <> -1 Then
ItemLabel = "Unable!"
If p.IsEgg() = False And p.CanEvolve(EvolutionCondition.EvolutionTrigger.ItemUse, EvolutionItemID.ToString()) = True Then
ItemLabel = "Able!"
End If
End If
GetFontRenderer().DrawString(FontManager.MainFont, ItemLabel, New Vector2(position.X + 216, position.Y + 28), New Color(255, 255, 255, CInt(255 * _interfaceFade)))
'Able/unable display (when using TM/HM) 'Able/unable display (when using TM/HM)
Dim AttackLabel As String = "" Dim AttackLabel As String = ""
If LearnType > 0 Then If LearnType > 0 Then