1 (kern-mk-sprite-set 'ss_reagents 32 32 1 9 0 0 "reagents.png")
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)
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.
19 (method 'mix (lambda () '()))))
21 (define (mk-reagent-type tag name sprite)
22 (mk-obj-type tag name sprite layer-item reagent-ifc))
26 (list 'sulphorous_ash "ⲫ¤Î³¥" s_sulphorous_ash)
27 (list 'ginseng "¿Í»²" s_ginseng)
28 (list 'garlic "ÂçÉÇ" s_garlic)
29 (list 'spider_silk "ÃØéá¤Î»å" s_spider_silk)
30 (list 'blood_moss "·ì¤ÎÂÝ" s_blood_moss)
31 (list 'black_pearl "¹õ¿¿¼î" s_black_pearl)
32 (list 'nightshade "¥Ê¥¤¥È¥·¥§¥¤¥É" s_nightshade)
33 (list 'mandrake "¥Þ¥ó¥É¥ì¥¤¥¯" s_mandrake)
34 (list 't_royal_cape "¥í¥¤¥ä¥ë¥±¡¼¥×Âû" s_royal_cape)
37 (map (lambda (type) (apply mk-reagent-type type)) reagent-types)