tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix shops with registers

This commit is contained in:
darkfire006 2023-12-21 00:09:49 -06:00
parent 26ea58df47
commit f655939510
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
P3D/Pokemon/Items/Machines/TM179.vb
View File

@ -1,6 +1,6 @@
Namespace Items.Machines
<Item(478, "TM 179")>
<Item(479, "TM 179")>
Public Class TM179
Inherits TechMachine

2
P3D/Screens/TradeScreen.vb
View File

@ -164,6 +164,8 @@ Public Class TradeScreen
Me.TradeItems.Add(New TradeItem(itemData(0), ResultAmount, ScriptConversion.ToInteger(itemData(2)), Me.Currency))
End If
End If
Else
Me.TradeItems.Add(New TradeItem(itemData(0), ScriptConversion.ToInteger(itemData(1)), ScriptConversion.ToInteger(itemData(2)), Me.Currency))
End If
Else
Me.TradeItems.Add(New TradeItem(itemData(0), ScriptConversion.ToInteger(itemData(1)), ScriptConversion.ToInteger(itemData(2)), Me.Currency))

2
P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb
View File

@ -53,7 +53,7 @@
End If
Dim shopIdentifier As String = ""
If argument.CountSplits() > 4 Then
shopIdentifier = argument.GetSplit(4) ' p for PokéDollars, bp for Battle Points, c for coins.
shopIdentifier = argument.GetSplit(4)
End If
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New TradeScreen(Core.CurrentScreen, storeData, canBuy, canSell, currencyIndicator, shopIdentifier), Color.Black, False))