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