(fate_version 1)

(require player.fate)

(global player player)

(global (lambda text (int)) coins_word)

(set coins_word
   (lambda ((int i))
      (if_else (= (var i) 1)
         (text a single coin )
         (text (var i) coins )
      )
   )
)

(declare_text_effect action_description)

(define_sequence money_acquisition ((int amount))
   (set player.money (+ (var player.money) (var amount)))
   (if (> (var amount) 0)
      (text_effect action_description
         You acquired (eval coins_word (var amount))!
      )
   )
)

(define_sequence money_loss ((int amount))
   (set player.money (- (var player.money) (var amount)))
   (if (> (var amount) 0)
      (text_effect action_description
         You lost (eval coins_word (var amount)).
      )
   )
)