Code: Select all
<Invoke>
(block (amount)
(setq amount (multiply (itmGetCharges gItem) 1000))
(objSendMessage gSource Nil (cat amount " credits deposited to your
account."))
(plyCredit gPlayer amount)
; Identify the item
(itmSetKnown gItem)
; Remove ROM
(objRemoveItem gSource gItem 1)
)
</Invoke>