X-Git-Url: http://uxul.de/gitweb/?a=blobdiff_plain;f=small-classes.lisp;fp=small-classes.lisp;h=cd597c59ad8cdd1da06180f699127bce7d2d533d;hb=c883c787eb1ff282fa754941b1411b9b2f27b95b;hp=647095134310dc21f15e964a1f2e000462942804;hpb=ba577c103beb04443011b05a2956fd8bb63dc765;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