worlds/haxima-1.002/beds.scm

   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))