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

Updated Eggmoves inheriting to Gen 6 (#28)

This commit is contained in:
Zottelchen 2020-07-23 18:54:50 +02:00 committed by GitHub
parent eeeeb18e94
commit 01bd460e3c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -82,15 +82,16 @@
male = 1
End If
If male > -1 Then
Dim cParent As Pokemon = Nothing
Select Case male
Case 0
cParent = parent1
Case 1
cParent = parent2
End Select
For Each BreedMove As Integer In p.EggMoves
For Each m1 As BattleSystem.Attack In cParent.Attacks
For Each m1 As BattleSystem.Attack In parent1.Attacks
If m1.ID = BreedMove Then
GameJolt.Emblem.AchieveEmblem("eggsplosion")
Dim newAttack As BattleSystem.Attack = BattleSystem.Attack.GetAttackByID(m1.ID)
EggMoves.Add(newAttack)
End If
Next
For Each m1 As BattleSystem.Attack In parent2.Attacks
If m1.ID = BreedMove Then
GameJolt.Emblem.AchieveEmblem("eggsplosion")