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

Preliminary Destiny Knot implementation

Browse Source 
very rough add
This commit is contained in:
darkfire006 2021-09-29 18:08:24 -05:00
parent bb8bf084b1
commit f16fee3a7a
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
P3D/Screens/Pokemon/Daycare.vb
View File

@ -140,7 +140,9 @@
Dim EVStat1 As String = "" Dim EVStat1 As String = ""
Dim EVStat2 As String = "" Dim EVStat2 As String = ""
Dim EVItems() As String = {"power weight", "power bracer", "power belt", "power lens", "power band", "power anklet"} Dim DKnot As Boolean = False
Dim EVItems() As String = {"power weight", "power bracer", "power belt", "power lens", "power band", "power anklet", "destiny knot"}
If Not parent1.Item Is Nothing Then If Not parent1.Item Is Nothing Then
If EVItems.Contains(parent1.Item.Name.ToLower()) = True Then If EVItems.Contains(parent1.Item.Name.ToLower()) = True Then
Select Case parent1.Item.Name.ToLower() Select Case parent1.Item.Name.ToLower()
@ -156,6 +158,8 @@
EVStat1 = "Special Defense" EVStat1 = "Special Defense"
Case "power anklet" Case "power anklet"
EVStat1 = "Speed" EVStat1 = "Speed"
Case "destiny knot"
DKnot = True
End Select End Select
End If End If
End If End If
@ -174,6 +178,8 @@
EVStat2 = "Special Defense" EVStat2 = "Special Defense"
Case "power anklet" Case "power anklet"
EVStat2 = "Speed" EVStat2 = "Speed"
Case "destiny knot"
DKnot = True
End Select End Select
End If End If
End If End If
@ -190,7 +196,7 @@
End If End If
End If End If
While IV1.Count + IV2.Count < 3 While IV1.Count + IV2.Count < (3 + CInt(DKnot) * 2)
Dim newStat As String = "" Dim newStat As String = ""
While newStat = "" Or IV1.Contains(newStat) = True Or IV2.Contains(newStat) = True While newStat = "" Or IV1.Contains(newStat) = True Or IV2.Contains(newStat) = True
Select Case Core.Random.Next(0, 6) Select Case Core.Random.Next(0, 6)