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

Added example and fixed some small things

Browse Source
This commit is contained in:
JappaWakka 2023-05-30 12:00:18 +02:00
parent e30d5b017d
commit 5363db90cf
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
P3D/Content/Data/Items/example.dat Normal file
View File

Binary file not shown.

BIN
P3D/Content/Data/Moves/example.dat
View File

Binary file not shown.

8
P3D/Pokemon/Items/GameModeItemLoader.vb
View File

@ -74,14 +74,14 @@ Public Class GameModeItemLoader
Case "description" Case "description"
item.gmDescription = value item.gmDescription = value
Case "type" Case "type"
Select Case value Select Case value.ToLower()
Case "standard", "0" Case "standard", "0"
item.gmItemType = ItemTypes.Standard item.gmItemType = ItemTypes.Standard
Case "medicine", "1" Case "medicine", "1"
item.gmItemType = ItemTypes.Medicine item.gmItemType = ItemTypes.Medicine
Case "plants", "2" Case "plants", "2"
item.gmItemType = ItemTypes.Plants item.gmItemType = ItemTypes.Plants
Case "balls", "pokeballs", "pokéballs", "3" Case "balls", "pokeballs", "3"
item.gmItemType = ItemTypes.Pokéballs item.gmItemType = ItemTypes.Pokéballs
Case "machines", "4" Case "machines", "4"
item.gmItemType = ItemTypes.Machines item.gmItemType = ItemTypes.Machines
@ -109,7 +109,7 @@ Public Class GameModeItemLoader
Case "battlepointsprice" Case "battlepointsprice"
item.gmBattlePointsPrice = CInt(value) item.gmBattlePointsPrice = CInt(value)
Case "catchmultiplier" Case "catchmultiplier"
item.gmCatchMultiplier = CSng(value) item.gmCatchMultiplier = CSng(value.ReplaceDecSeparator)
Case "maxstack" Case "maxstack"
item.gmMaxStack = CInt(value) item.gmMaxStack = CInt(value)
Case "flingdamage" Case "flingdamage"
@ -123,7 +123,7 @@ Public Class GameModeItemLoader
Dim valueSplit As String() = value.Split(",") Dim valueSplit As String() = value.Split(",")
For i = 0 To valueSplit.Count - 1 For i = 0 To valueSplit.Count - 1
Select Case valueSplit(i).ToLower Select Case valueSplit(i).ToLower
Case "brn", "frz", "prz", "psn", "bpsn", "slp", "fnt", "cfs", "allwithoutfnt", "all" Case "brn", "frz", "prz", "psn", "bpsn", "slp", "fnt", "confusion", "allwithoutfnt", "all"
StatusEffectList.Add(valueSplit(i)) StatusEffectList.Add(valueSplit(i))
End Select End Select
Next Next