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

Prevent usage of berries that can't be used

Browse Source
This commit is contained in:
JappaWakka 2023-10-01 14:28:32 +02:00
parent d08b472b35
commit f55f910f3b
14 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
P3D/Pokemon/Items/Berries/BelueBerry.vb
View File

@ -4,7 +4,8 @@ Namespace Items.Berries
Public Class BelueBerry Public Class BelueBerry
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Belue.", "11.8cm", "Very Soft", 1, 2) MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Belue.", "11.8cm", "Very Soft", 1, 2)

2
P3D/Pokemon/Items/Berries/BlukBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Bluk.", "10.8cm", "Soft", 3, 6) MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Bluk.", "10.8cm", "Soft", 3, 6)

2
P3D/Pokemon/Items/Berries/CornnBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(21600, "Pokéblock ingredient. Plant in loamy soil to grow Cornn.", "7.5cm", "Hard", 2, 4) MyBase.New(21600, "Pokéblock ingredient. Plant in loamy soil to grow Cornn.", "7.5cm", "Hard", 2, 4)

2
P3D/Pokemon/Items/Berries/DurinBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Durin.", "28.0m", "Hard", 1, 2) MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Durin.", "28.0m", "Hard", 1, 2)

2
P3D/Pokemon/Items/Berries/MagostBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(21600, "Pokéblock ingredient. Plant in loamy soil to grow Magost.", "14.0cm", "Hard", 2, 4) MyBase.New(21600, "Pokéblock ingredient. Plant in loamy soil to grow Magost.", "14.0cm", "Hard", 2, 4)

2
P3D/Pokemon/Items/Berries/NanabBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Nanab.", "7.7cm", "Very Hard", 2, 3) MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Nanab.", "7.7cm", "Very Hard", 2, 3)

2
P3D/Pokemon/Items/Berries/NomelBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(21600, "Pokéblock ingredient. Plant in loamy soil to grow Nomel.", "28.5cm", "Soft", 2, 4) MyBase.New(21600, "Pokéblock ingredient. Plant in loamy soil to grow Nomel.", "28.5cm", "Soft", 2, 4)

2
P3D/Pokemon/Items/Berries/PamtreBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Pamtre.", "24.4cm", "Very Soft", 1, 2) MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Pamtre.", "24.4cm", "Very Soft", 1, 2)

2
P3D/Pokemon/Items/Berries/PinapBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Pinap.", "8.0cm", "Hard", 3, 6) MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Pinap.", "8.0cm", "Hard", 3, 6)

2
P3D/Pokemon/Items/Berries/RabutaBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(21600, "Pokéblock ingredient. Plant in loamy soil to grow Rabuta.", "22.6cm", "Soft", 2, 4) MyBase.New(21600, "Pokéblock ingredient. Plant in loamy soil to grow Rabuta.", "22.6cm", "Soft", 2, 4)

2
P3D/Pokemon/Items/Berries/RazzBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Razz.", "12.0cm", "Very Hard", 2, 3) MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Razz.", "12.0cm", "Very Hard", 2, 3)

2
P3D/Pokemon/Items/Berries/SpelonBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(64800, "Pokéblock ingredient." & Environment.NewLine & "Plant in loamy soil to grow Spelon.", "13.2cm", "Soft", 1, 2) MyBase.New(64800, "Pokéblock ingredient." & Environment.NewLine & "Plant in loamy soil to grow Spelon.", "13.2cm", "Soft", 1, 2)

2
P3D/Pokemon/Items/Berries/WatmelBerry.vb
View File

@ -5,6 +5,8 @@ Public Class WatmelBerry
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Watmel.", "25.0cm", "Soft", 1, 2) MyBase.New(64800, "Pokéblock ingredient. Plant in loamy soil to grow Watmel.", "25.0cm", "Soft", 1, 2)

2
P3D/Pokemon/Items/Berries/WepearBerry.vb
View File

@ -5,6 +5,8 @@ Namespace Items.Berries
Inherits Berry Inherits Berry
Public Overrides ReadOnly Property CanBeUsed As Boolean = False
Public Overrides ReadOnly Property CanBeUsedInBattle As Boolean = False
Public Sub New() Public Sub New()
MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Wepear.", "7.4cm", "Super Hard", 3, 6) MyBase.New(3600, "Pokéblock ingredient. Plant in loamy soil to grow Wepear.", "7.4cm", "Super Hard", 3, 6)