1;; ----------------------------------------------------------------------------
2;; money.scm - items that convert to gold
3;; ----------------------------------------------------------------------------
4
5(kern-mk-sprite-set 'ss_money 32 32 1 1 0 0 "money.png")
6
7(kern-mk-sprite 's_gold_coins ss_money 1 0 #f 0)
8
9(define money-ifc
10  (ifc '()
11       (method 'amount (lambda () 1))
12       (method 'get (lambda (kobj getter)
13                      (kern-obj-inc-ref kobj)
14                      (kern-obj-remove kobj)
15                      (kern-obj-add-gold getter
16                                         (* ((kobj-ifc kobj) 'amount)
17                                            (kern-obj-get-count kobj)))
18                      (kern-obj-dec-ref kobj)))))
19
20(mk-obj-type 't_gold_coins "gold coin" s_gold_coins layer-item money-ifc)
21