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

Updated Eggmoves inheriting to Gen 6 (#28)

Browse Source
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 male = 1
End If End If
If male > -1 Then 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 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 If m1.ID = BreedMove Then
GameJolt.Emblem.AchieveEmblem("eggsplosion") GameJolt.Emblem.AchieveEmblem("eggsplosion")