worlds/haxima-1.002/money.scm

   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)