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

Added Status EvolutionCondition

Browse Source
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 InPartyType
Weather Weather
Region Region
Status
End Enum End Enum
Public Structure Condition Public Structure Condition
@ -69,6 +70,8 @@ Public Class EvolutionCondition
c.ConditionType = ConditionTypes.Weather c.ConditionType = ConditionTypes.Weather
Case "region" Case "region"
c.ConditionType = ConditionTypes.Region c.ConditionType = ConditionTypes.Region
Case "status"
c.ConditionType = ConditionTypes.Status
End Select End Select
Me.Conditions.Add(c) Me.Conditions.Add(c)
End Sub End Sub
@ -267,6 +270,27 @@ Public Class EvolutionCondition
End If End If
End If End If
Next 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 End Select
Next Next
End If End If