Add option to not add item to player ship

kronosaur · Apr 23, 2016 · 4daa8c0 · 4daa8c0
1 parent a776baf
commit 4daa8c0
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/TransCore/RPGCode.xml b/TransCore/RPGCode.xml
@@ -34,17 +34,19 @@
 					)
 				))
 
-			(setq rpgBuyItem (lambda (theObj theItem thePrice theCurrency)
+			(setq rpgBuyItem (lambda (theObj theItem thePrice theCurrency options)
 				(block Nil
 					; Add to player ship
-					(objAddItem gPlayerShip theItem)
+                    (if (not (@ options 'noAddItem))
+					    (objAddItem gPlayerShip theItem)
+                        )
 
 					; Charge the player
 					(objCharge gPlayerShip theCurrency thePrice)
 					(plyRecordBuyItem gPlayer theItem theCurrency thePrice)
 
 					; Add to station balance
-					(objCredit gSource theCurrency thePrice)
+					(objCredit theObj theCurrency thePrice)
 
 					; If the player bought items at a black market station then
 					; increase xp