1 ;;; Copyright 2009 Christoph Senjak
3 (in-package :uxul-world)
5 (defclass leaf (bottom)
6 ((animation :initarg :animation
8 :initform (make-animation 0 |leaf|))
12 (height :initarg :height
15 (animation-translation :initarg :animation-translation
16 :accessor animation-translation
17 :initform (make-xy -7 -30))
20 (defclass tulip (standing-item)
21 ((animation :initarg :animation
23 :initform (make-animation 10 |tulip| |tulip2| |tulip| |tulip3|))
24 (width :initarg :width
27 (height :initarg :height
31 (defclass key (standing-item)
32 ((animation :initarg :animation
34 :initform (make-animation 0 |key|))
35 (width :initarg :width
38 (height :initarg :height
41 (dungeon :initarg :dungeon
44 :documentation "To provide information in which rooms this key can be used.")))
46 (defclass door (stone)
47 ((animation :initarg :animation
49 :initform (make-animation 0 |door|))
50 (width :initarg :width
53 (height :initarg :height
56 (dungeon :initarg :dungeon
59 :documentation "To provide information in which room this door is.")))