X-Git-Url: http://uxul.de/gitweb/?a=blobdiff_plain;f=small-classes.lisp;h=cd597c59ad8cdd1da06180f699127bce7d2d533d;hb=14d2adfb7390a616ed7a9a26bfd406d7d37d6774;hp=647095134310dc21f15e964a1f2e000462942804;hpb=75a52aa3b1969c6e02e417f90dada2db744a1c37;p=uxul-world.git

diff --git a/small-classes.lisp b/small-classes.lisp
index 6470951..cd597c5 100755
--- 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