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

Update Daycare.vb 

fix crash when breeding w no item
This commit is contained in:
darkfire006 2022-07-08 16:23:51 -05:00
parent c2d11aa340
commit 7bff97b3f6
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -49,24 +49,24 @@
Select Case DittoAsParent Select Case DittoAsParent
Case 0 Case 0
If parent1.Gender = P3D.Pokemon.Genders.Female Then If parent1.Gender = P3D.Pokemon.Genders.Female Then
If parent1.Item.Name.ToLower() = "everstone" Then If parent1.Item IsNot Nothing AndAlso parent1.Item.Name.ToLower() = "everstone" Then
p.AdditionalData = parent1.AdditionalData p.AdditionalData = parent1.AdditionalData
ElseIf parent2.Number = parent1.Number And parent2.Item.Name.ToLower() = "everstone" Then ElseIf parent2.Number = parent1.Number And parent2.Item IsNot Nothing AndAlso parent2.Item.Name.ToLower() = "everstone" Then
p.AdditionalData = parent2.AdditionalData p.AdditionalData = parent2.AdditionalData
End If End If
Else Else
If parent2.Item.Name.ToLower() = "everstone" Then If parent2.Item IsNot Nothing AndAlso parent2.Item.Name.ToLower() = "everstone" Then
p.AdditionalData = parent2.AdditionalData p.AdditionalData = parent2.AdditionalData
ElseIf parent1.Number = parent2.Number And parent1.Item.Name.ToLower() = "everstone" Then ElseIf parent1.Number = parent2.Number And parent1.Item IsNot Nothing AndAlso parent1.Item.Name.ToLower() = "everstone" Then
p.AdditionalData = parent1.AdditionalData p.AdditionalData = parent1.AdditionalData
End If End If
End If End If
Case 1 Case 1
If parent2.Item.Name.ToLower() = "everstone" Then If parent2.Item IsNot Nothing AndAlso parent2.Item.Name.ToLower() = "everstone" Then
p.AdditionalData = parent2.AdditionalData p.AdditionalData = parent2.AdditionalData
End If End If
Case 2 Case 2
If parent1.Item.Name.ToLower() = "everstone" Then If parent1.Item IsNot Nothing AndAlso parent1.Item.Name.ToLower() = "everstone" Then
p.AdditionalData = parent1.AdditionalData p.AdditionalData = parent1.AdditionalData
End If End If
End Select End Select