worlds/haxima-1.002/reagents.scm

   1 (kern-mk-sprite-set 'ss_reagents 32 32 1 9 0 0 "reagents.png")
   2
   3 (kern-mk-sprite 's_spider_silk ss_reagents    1 0 #f 0)
   4 (kern-mk-sprite 's_sulphorous_ash ss_reagents 1 1 #f 0)
   5 (kern-mk-sprite 's_ginseng ss_reagents        1 2 #f 0)
   6 (kern-mk-sprite 's_blood_moss ss_reagents     1 3 #f 0)
   7 (kern-mk-sprite 's_garlic ss_reagents         1 4 #f 0)
   8 (kern-mk-sprite 's_black_pearl ss_reagents    1 5 #f 0)
   9 (kern-mk-sprite 's_nightshade ss_reagents     1 6 #f 0)
  10 (kern-mk-sprite 's_mandrake ss_reagents       1 7 #f 0)
  11 (kern-mk-sprite 's_royal_cape ss_reagents 1 8 #f 0)
  12
  13
  14 ;; Extend the basic object interface to support mixing. Currently mix does
  15 ;; nothing in the script, but it's important to let the kernel know that this
  16 ;; type of object can be used with the M)ix command.
  17 (define reagent-ifc
  18   (ifc obj-ifc
  19        (method 'mix (lambda () '()))))
  20
  21 (define (mk-reagent-type tag name sprite)
  22   (mk-obj-type tag name sprite layer-item reagent-ifc))
  23
  24 (define reagent-types
  25   (list
  26    (list 'sulphorous_ash "sulphurous ash" s_sulphorous_ash)
  27    (list 'ginseng        "ginseng"        s_ginseng)
  28    (list 'garlic         "garlic"         s_garlic)
  29    (list 'spider_silk    "spider silk"    s_spider_silk)
  30    (list 'blood_moss     "blood moss"     s_blood_moss)
  31    (list 'black_pearl    "black pearl"    s_black_pearl)
  32    (list 'nightshade     "nightshade"     s_nightshade)
  33    (list 'mandrake       "mandrake"       s_mandrake)
  34    (list 't_royal_cape   "royal cape mushroom" s_royal_cape)
  35    ))
  36
  37 (map (lambda (type) (apply mk-reagent-type type)) reagent-types)