From 0dac5afee0ff6187cc82e27473498a7bfe7148b6 Mon Sep 17 00:00:00 2001
From: darkfire006 <blazer257@live.com>
Date: Sun, 10 Apr 2022 16:41:15 -0500
Subject: [PATCH] exposed the canbreed property in pokemon save data

---
 P3D/Pokemon/Monster/Pokemon.vb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/P3D/Pokemon/Monster/Pokemon.vb b/P3D/Pokemon/Monster/Pokemon.vb
index 416dbd494..46f1f12e4 100644
--- a/P3D/Pokemon/Monster/Pokemon.vb
+++ b/P3D/Pokemon/Monster/Pokemon.vb
@@ -1581,6 +1581,8 @@ Public Class Pokemon
                     End Select
                 Case "eggsteps"
                     Me.EggSteps = CInt(tagValue)
+                Case "canbreed"
+                    Me.CanBreed = CBool(tagValue)
                 Case "item"
                     If StringHelper.IsNumeric(tagValue) Then
                         Me.Item = Item.GetItemByID(CInt(tagValue))
@@ -1794,6 +1796,7 @@ Public Class Pokemon
         "{""OriginalNumber""[" & Me.OriginalNumber & "]}" &
         "{""Experience""[" & Me.Experience & "]}" &
         "{""Gender""[" & SaveGender & "]}" &
+        "{""CanBreed""[" & Me.CanBreed.ToNumberString() & "]}" &
         "{""EggSteps""[" & Me.EggSteps & "]}" &
         "{""Item""[" & SaveItemID & "]}" &
         "{""ItemData""[" & ItemData & "]}" &