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 Status EvolutionCondition

This commit is contained in:
JappaWakka 2023-12-03 15:58:07 +01:00
parent 864fa7f508
commit bc8ad24353
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
P3D/Pokemon/Monster/EvolutionCondition.vb
View File

@ -17,6 +17,7 @@ Public Class EvolutionCondition
InPartyType
Weather
Region
Status
End Enum
Public Structure Condition
@ -69,6 +70,8 @@ Public Class EvolutionCondition
c.ConditionType = ConditionTypes.Weather
Case "region"
c.ConditionType = ConditionTypes.Region
Case "status"
c.ConditionType = ConditionTypes.Status
End Select
Me.Conditions.Add(c)
End Sub
@ -267,6 +270,27 @@ Public Class EvolutionCondition
End If
End If
Next
Case ConditionTypes.Status
Dim RequiredStatus As Pokemon.StatusProblems = Nothing
Select Case c.Argument
Case "brn"
RequiredStatus = Pokemon.StatusProblems.Burn
Case "frz"
RequiredStatus = Pokemon.StatusProblems.Freeze
Case "prz"
RequiredStatus = Pokemon.StatusProblems.Paralyzed
Case "psn"
RequiredStatus = Pokemon.StatusProblems.Poison
Case "bpsn"
RequiredStatus = Pokemon.StatusProblems.BadPoison
Case "slp"
RequiredStatus = Pokemon.StatusProblems.Sleep
Case "fnt"
RequiredStatus = Pokemon.StatusProblems.Fainted
End Select
If RequiredStatus <> Nothing AndAlso p.Status <> RequiredStatus Then
canEvolve = False
End If
End Select
Next
End If