add juice properties to berries

2025-07-30 17:25:22 +02:00 · 2023-05-30 17:54:26 -05:00 · 2023-05-30 17:54:26 -05:00 · 4e4b1bac73
commit 4e4b1bac73
parent a6170d0e01
69 changed files with 165 additions and 8 deletions
--- a/P3D/Pokemon/Items/Berries/AguavBerry.vb
+++ b/P3D/Pokemon/Items/Berries/AguavBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dragon
            Me.Power = 80
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/ApicotBerry.vb
+++ b/P3D/Pokemon/Items/Berries/ApicotBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ground
            Me.Power = 100
+            Me.JuiceColor = "blue"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/AspearBerry.vb
+++ b/P3D/Pokemon/Items/Berries/AspearBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ice
            Me.Power = 80
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 1
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/BabiriBerry.vb
+++ b/P3D/Pokemon/Items/Berries/BabiriBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Steel
            Me.Power = 80
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/BelueBerry.vb
+++ b/P3D/Pokemon/Items/Berries/BelueBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Electric
            Me.Power = 100
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/BlukBerry.vb
+++ b/P3D/Pokemon/Items/Berries/BlukBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fire
            Me.Power = 90
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/ChartiBerry.vb
+++ b/P3D/Pokemon/Items/Berries/ChartiBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Rock
            Me.Power = 80
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/CheriBerry.vb
+++ b/P3D/Pokemon/Items/Berries/CheriBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fire
            Me.Power = 80
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 1
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/ChestoBerry.vb
+++ b/P3D/Pokemon/Items/Berries/ChestoBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Water
            Me.Power = 80
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 1
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/ChilanBerry.vb
+++ b/P3D/Pokemon/Items/Berries/ChilanBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Normal
            Me.Power = 80
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/ChopleBerry.vb
+++ b/P3D/Pokemon/Items/Berries/ChopleBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fighting
            Me.Power = 80
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/CobaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/CobaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Flying
            Me.Power = 80
+            Me.JuiceColor = "blue"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/ColburBerry.vb
+++ b/P3D/Pokemon/Items/Berries/ColburBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dark
            Me.Power = 80
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/CornnBerry.vb
+++ b/P3D/Pokemon/Items/Berries/CornnBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Bug
            Me.Power = 90
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/CustapBerry.vb
+++ b/P3D/Pokemon/Items/Berries/CustapBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ghost
            Me.Power = 100
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/DurinBerry.vb
+++ b/P3D/Pokemon/Items/Berries/DurinBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Water
            Me.Power = 100
+            Me.JuiceColor = "grass"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/EnigmaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/EnigmaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Bug
            Me.Power = 100
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/FigyBerry.vb
+++ b/P3D/Pokemon/Items/Berries/FigyBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Bug
            Me.Power = 80
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/GanlonBerry.vb
+++ b/P3D/Pokemon/Items/Berries/GanlonBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ice
            Me.Power = 100
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/GrepaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/GrepaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Flying
            Me.Power = 90
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 3
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/HabanBerry.vb
+++ b/P3D/Pokemon/Items/Berries/HabanBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dragon
            Me.Power = 80
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/HondewBerry.vb
+++ b/P3D/Pokemon/Items/Berries/HondewBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ground
            Me.Power = 90
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 3
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/IapapaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/IapapaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dark
            Me.Power = 80
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/JabocaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/JabocaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dragon
            Me.Power = 100
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/KasibBerry.vb
+++ b/P3D/Pokemon/Items/Berries/KasibBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ghost
            Me.Power = 80
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/KebiaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/KebiaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Poison
            Me.Power = 80
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/KeeBerry.vb
+++ b/P3D/Pokemon/Items/Berries/KeeBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fairy
            Me.Power = 100
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/KelpsyBerry.vb
+++ b/P3D/Pokemon/Items/Berries/KelpsyBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fighting
            Me.Power = 90
+            Me.JuiceColor = "blue"
+            Me.JuiceGroup = 3
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/LansatBerry.vb
+++ b/P3D/Pokemon/Items/Berries/LansatBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Flying
            Me.Power = 100
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/LeppaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/LeppaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fighting
            Me.Power = 80
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 1
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/LiechiBerry.vb
+++ b/P3D/Pokemon/Items/Berries/LiechiBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Grass
            Me.Power = 100
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/LumBerry.vb
+++ b/P3D/Pokemon/Items/Berries/LumBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Flying
            Me.Power = 80
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 2
        End Sub
        Public Overrides Sub Use()
            Dim selScreen = New PartyScreen(Core.CurrentScreen, Me, AddressOf Me.UseOnPokemon, "Use " & Me.Name, True) With {.Mode = Screens.UI.ISelectionScreen.ScreenMode.Selection, .CanExit = True}
--- a/P3D/Pokemon/Items/Berries/MagoBerry.vb
+++ b/P3D/Pokemon/Items/Berries/MagoBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ghost
            Me.Power = 80
+            Me.JuiceColor = "pink"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/MagostBerry.vb
+++ b/P3D/Pokemon/Items/Berries/MagostBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Rock
            Me.Power = 90
+            Me.JuiceColor = "pink"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/MarangaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/MarangaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dark
            Me.Power = 100
+            Me.JuiceColor = "blue"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/MicleBerry.vb
+++ b/P3D/Pokemon/Items/Berries/MicleBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Rock
            Me.Power = 100
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/NanabBerry.vb
+++ b/P3D/Pokemon/Items/Berries/NanabBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Water
            Me.Power = 90
+            Me.JuiceColor = "pink"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/NomelBerry.vb
+++ b/P3D/Pokemon/Items/Berries/NomelBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dragon
            Me.Power = 90
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/OccaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/OccaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fire
            Me.Power = 80
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/OranBerry.vb
+++ b/P3D/Pokemon/Items/Berries/OranBerry.vb
@ -18,6 +18,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Poison
            Me.Power = 80
+            Me.JuiceColor = "blue"
+            Me.JuiceGroup = 1
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/PamtreBerry.vb
+++ b/P3D/Pokemon/Items/Berries/PamtreBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Steel
            Me.Power = 90
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/PasshoBerry.vb
+++ b/P3D/Pokemon/Items/Berries/PasshoBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Water
            Me.Power = 80
+            Me.JuiceColor = "blue"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/PayapaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/PayapaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Psychic
            Me.Power = 80
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/PechaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/PechaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Electric
            Me.Power = 80
+            Me.JuiceColor = "pink"
+            Me.JuiceGroup = 1
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/PersimBerry.vb
+++ b/P3D/Pokemon/Items/Berries/PersimBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ground
            Me.Power = 80
+            Me.JuiceColor = "pink"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/PetayaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/PetayaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Poison
            Me.Power = 100
+            Me.JuiceColor = "pink"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/PinapBerry.vb
+++ b/P3D/Pokemon/Items/Berries/PinapBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Grass
            Me.Power = 90
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/PomegBerry.vb
+++ b/P3D/Pokemon/Items/Berries/PomegBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ice
            Me.Power = 90
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 3
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/QualotBerry.vb
+++ b/P3D/Pokemon/Items/Berries/QualotBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Poison
            Me.Power = 90
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 3
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/RabutaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/RabutaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ghost
            Me.Power = 90
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/RawstBerry.vb
+++ b/P3D/Pokemon/Items/Berries/RawstBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Grass
            Me.Power = 80
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 1
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/RazzBerry.vb
+++ b/P3D/Pokemon/Items/Berries/RazzBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Steel
            Me.Power = 80
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/RindoBerry.vb
+++ b/P3D/Pokemon/Items/Berries/RindoBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Grass
            Me.Power = 80
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/RoseliBerry.vb
+++ b/P3D/Pokemon/Items/Berries/RoseliBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fairy
            Me.Power = 80
+            Me.JuiceColor = "pink"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/RowapBerry.vb
+++ b/P3D/Pokemon/Items/Berries/RowapBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dark
            Me.Power = 100
+            Me.JuiceColor = "blue"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/SalacBerry.vb
+++ b/P3D/Pokemon/Items/Berries/SalacBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Fighting
            Me.Power = 100
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/ShucaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/ShucaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ground
            Me.Power = 80
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/SitrusBerry.vb
+++ b/P3D/Pokemon/Items/Berries/SitrusBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Psychic
            Me.Power = 80
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 2
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/SpelonBerry.vb
+++ b/P3D/Pokemon/Items/Berries/SpelonBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Dark
            Me.Power = 90
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/StarfBerry.vb
+++ b/P3D/Pokemon/Items/Berries/StarfBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Psychic
            Me.Power = 100
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/TamatoBerry.vb
+++ b/P3D/Pokemon/Items/Berries/TamatoBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Psychic
            Me.Power = 90
+            Me.JuiceColor = "red"
+            Me.JuiceGroup = 3
        End Sub

        Public Overrides Sub Use()
--- a/P3D/Pokemon/Items/Berries/TangaBerry.vb
+++ b/P3D/Pokemon/Items/Berries/TangaBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Bug
            Me.Power = 80
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/WacanBerry.vb
+++ b/P3D/Pokemon/Items/Berries/WacanBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Electric
            Me.Power = 80
+            Me.JuiceColor = "yellow"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/WatmelBerry.vb
+++ b/P3D/Pokemon/Items/Berries/WatmelBerry.vb
@ -5,19 +5,22 @@ Public Class WatmelBerry

    Inherits Berry

-    Public Sub New()
+        Public Sub New()
            MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Watmel.", "25.0cm", "Soft", 1, 2)

-        Me.Spicy = 0
-        Me.Dry = 0
-        Me.Sweet = 30
-        Me.Bitter = 10
-        Me.Sour = 0
+            Me.Spicy = 0
+            Me.Dry = 0
+            Me.Sweet = 30
+            Me.Bitter = 10
+            Me.Sour = 0

-        Me.Type = Element.Types.Fire
+            Me.Type = Element.Types.Fire
            Me.Power = 100
+            Me.JuiceColor = "pink"
+            Me.JuiceGroup = 1
+
        End Sub

-End Class
+    End Class

 End Namespace
--- a/P3D/Pokemon/Items/Berries/WepearBerry.vb
+++ b/P3D/Pokemon/Items/Berries/WepearBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Electric
            Me.Power = 90
+            Me.JuiceColor = "green"
+            Me.JuiceGroup = 1
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/WikiBerry.vb
+++ b/P3D/Pokemon/Items/Berries/WikiBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Rock
            Me.Power = 80
+            Me.JuiceColor = "purple"
+            Me.JuiceGroup = 3
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berries/YacheBerry.vb
+++ b/P3D/Pokemon/Items/Berries/YacheBerry.vb
@ -16,6 +16,8 @@ Namespace Items.Berries

            Me.Type = Element.Types.Ice
            Me.Power = 80
+            Me.JuiceColor = "blue"
+            Me.JuiceGroup = 2
        End Sub

    End Class
--- a/P3D/Pokemon/Items/Berry.vb
+++ b/P3D/Pokemon/Items/Berry.vb
@ -34,6 +34,9 @@
        Public Type As Element.Types
        Public Power As Integer = 80

+        Public JuiceColor As String = "red"
+        Public JuiceGroup As Integer = 1
+
        Public Overrides ReadOnly Property PokeDollarPrice As Integer = 100
        Public Overrides ReadOnly Property FlingDamage As Integer = 10
        Public Overrides ReadOnly Property ItemType As ItemTypes = ItemTypes.Plants
--- a/P3D/World/ActionScript/V2/ScriptConstructs/DoInventory.vb
+++ b/P3D/World/ActionScript/V2/ScriptConstructs/DoInventory.vb
@ -40,6 +40,25 @@
                        Return item.ID
                    End If
                    Return 0
+                Case "juicecolor"
+                    Dim ItemID As String = argument.GetSplit(0)
+                    If Item.GetItemByID(ItemID).PluralName.ToLower.EndsWith("berries") Then
+                        Dim b As Items.Berry = CType(Item.GetItemByID(ItemID), Items.Berry)
+
+                        Return b.JuiceColor
+                    End If
+
+                    Return "black"
+                Case "juicegroup"
+                    Dim ItemID As String = argument.GetSplit(0)
+                    If Item.GetItemByID(ItemID).PluralName.ToLower.EndsWith("berries") Then
+                        Dim b As Items.Berry = CType(Item.GetItemByID(ItemID), Items.Berry)
+
+                        Return b.JuiceGroup
+                    End If
+
+                    Return 0
+
            End Select
            Return DEFAULTNULL
        End Function