Added the possibility to add anchors to levels in the editor.

[uxul-world.git] / small-classes.lisp

diff --git a/small-classes.lisp b/small-classes.lisp
index 6470951..cd597c5 100755 (executable)
--- a/small-classes.lisp
+++ b/small-classes.lisp
@@ -2,6 +2,14 @@
 
 (in-package :uxul-world)
 
+(defclass anchor (game-object)
+  ((dungeon :initform nil
+           :initarg :dungeon
+           :accessor dungeon))
+   (:documentation "This object ist just to make it easier to handle
+   positions in the game, i.e. for bounding-rects for
+   burning-marshmallows, etc."))
+
 (defclass leaf (bottom)
   ((animation :initarg :animation
              :accessor animation