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

Add EnvironmentType Evolution Condition

Browse Source
This commit is contained in:
JappaWakka 2023-12-04 16:36:22 +01:00
parent 48c7d9b214
commit 860241e774
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,6 +18,7 @@ Public Class EvolutionCondition
Weather Weather
Region Region
Status Status
EnvironmentType
End Enum End Enum
Public Structure Condition Public Structure Condition
@ -72,6 +73,8 @@ Public Class EvolutionCondition
c.ConditionType = ConditionTypes.Region c.ConditionType = ConditionTypes.Region
Case "status" Case "status"
c.ConditionType = ConditionTypes.Status c.ConditionType = ConditionTypes.Status
Case "environment"
c.ConditionType = ConditionTypes.EnvironmentType
End Select End Select
Me.Conditions.Add(c) Me.Conditions.Add(c)
End Sub End Sub
@ -291,6 +294,10 @@ Public Class EvolutionCondition
If RequiredStatus <> Nothing AndAlso p.Status <> RequiredStatus Then If RequiredStatus <> Nothing AndAlso p.Status <> RequiredStatus Then
canEvolve = False canEvolve = False
End If End If
Case ConditionTypes.EnvironmentType
If Screen.Level.EnvironmentType <> CInt(c.Argument) Then
canEvolve = False
End If
End Select End Select
Next Next
End If End If