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

fix shops with registers

Browse Source
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 Namespace Items.Machines
<Item(478, "TM 179")> <Item(479, "TM 179")>
Public Class TM179 Public Class TM179
Inherits TechMachine 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)) Me.TradeItems.Add(New TradeItem(itemData(0), ResultAmount, ScriptConversion.ToInteger(itemData(2)), Me.Currency))
End If End If
End If End If
Else
Me.TradeItems.Add(New TradeItem(itemData(0), ScriptConversion.ToInteger(itemData(1)), ScriptConversion.ToInteger(itemData(2)), Me.Currency))
End If End If
Else Else
Me.TradeItems.Add(New TradeItem(itemData(0), ScriptConversion.ToInteger(itemData(1)), ScriptConversion.ToInteger(itemData(2)), Me.Currency)) 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 End If
Dim shopIdentifier As String = "" Dim shopIdentifier As String = ""
If argument.CountSplits() > 4 Then 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 End If
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New TradeScreen(Core.CurrentScreen, storeData, canBuy, canSell, currencyIndicator, shopIdentifier), Color.Black, False)) Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New TradeScreen(Core.CurrentScreen, storeData, canBuy, canSell, currencyIndicator, shopIdentifier), Color.Black, False))