1 ;;; Copyright 2009 Christoph Senjak
3 (in-package :uxul-world)
5 (defclass anchor (game-object)
6 ((dungeon :initform nil
9 (:documentation "This object ist just to make it easier to handle
10 positions in the game, i.e. for bounding-rects for
11 burning-marshmallows, etc."))
13 (defclass leaf (bottom)
14 ((animation :initarg :animation
16 :initform (make-animation 0 |leaf|))
17 (width :initarg :width
20 (height :initarg :height
23 (animation-translation :initarg :animation-translation
24 :accessor animation-translation
25 :initform (make-xy -7 -30))
28 (defclass tulip (standing-item)
29 ((animation :initarg :animation
31 :initform (make-animation 10 |tulip| |tulip2| |tulip| |tulip3|))
32 (width :initarg :width
35 (height :initarg :height
39 (defclass key (standing-item)
40 ((animation :initarg :animation
42 :initform (make-animation 0 |key|))
43 (width :initarg :width
46 (height :initarg :height
49 (dungeon :initarg :dungeon
52 :documentation "To provide information in which rooms this key can be used.")))
54 (defclass door (stone)
55 ((animation :initarg :animation
57 :initform (make-animation 0 |door|))
58 (width :initarg :width
61 (height :initarg :height
64 (dungeon :initarg :dungeon
67 :documentation "To provide information in which room this door is.")))