1;; ----------------------------------------------------------------------------
2;; Beds
3;;
4;; Player can k)amp in beds to sleep in town. The kernel identifies bed objects
5;; by their layer.
6;;
7;; ----------------------------------------------------------------------------
8
9(mk-obj-type 't_bed    ;; tag
10             "bed"     ;; name
11             s_bed     ;; sprite
12             layer-bed ;; layer
13             nil       ;; interface
14             )
15
16(define (mk-bed) (kern-mk-obj t_bed 1))
17