I just want to have posibility to exchange rins into money, and money into rins. That's all.

All I know is the Credit to Rin is : 5 credits to 1 Rin :Datal wrote:Does anyone know, how to make a currency exchange in T ? (code?)
I just want to have posibility to exchange rins into money, and money into rins. That's all.
Code: Select all
; get data form screen counter
(setq credits (scrGetCounter gScreen))
; do the rest for the math
(setq rin (divide credits 5))
(objIncData gPlayerShip "rins" rin)
(plyCharge gPlayer credits)
; finally tell the player what happend
(setq desc (cat " " credits " credits have been withdwarn from you account and " rin " rins have been deposited. "))
Code: Select all
; get data form screen counter
(setq credits (scrGetCounter gScreen))
; get a % fee
(setq rate (random 2 5))
(setq fee (multiply (divide credits 100) rate ))
; do the rest for the math
(setq rin (divide credits 5))
(objIncData gPlayerShip "rins" rin)
(setq total (add fee credits))
(plyCharge gPlayer total)
; tell player
(setq desc (cat " " credits " credits have been withdrawn from you account and " rin " rins have been deposited. A fee of " fee " credits was automatically removed form you account"))