add juice properties to berries

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

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

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()

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

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

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

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

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()

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()

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

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

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

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

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

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

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

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

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

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

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()

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

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()

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

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

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

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

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

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()

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

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()

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

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}

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

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

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

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

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

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

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

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()

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

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

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

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()

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

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

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

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()

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()

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

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()

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

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

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

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

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

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

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()

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

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

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()

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

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

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.Spicy = 0
-        Me.Dry = 0
+            Me.Dry = 0
-        Me.Sweet = 30
+            Me.Sweet = 30
-        Me.Bitter = 10
+            Me.Bitter = 10
-        Me.Sour = 0
+            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

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

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

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

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

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