constants.lisp

   1 ;;; Copyright 2009-2011 Christoph Senjak
   2
   3 (in-package :uxul-world)
   4
   5 (defmacro mydefconst (x y)
   6   `(eval-when (:compile-toplevel :load-toplevel)
   7      (when (or (not (boundp ',x))
   8                (not (equal ,y
   9                            (symbol-value ',x))))
  10        (defconstant ,x ,y))))
  11
  12
  13 (mydefconst +screen-width+ 1024)
  14 (mydefconst +screen-height+ 768)
  15
  16 (mydefconst +class-indices+ '(t uxul-world::animation
  17   uxul-world::collision uxul-world::game-object uxul-world::player
  18   uxul-world::room uxul-world::stone uxul-world::xy-coordinates
  19   uxul-world::bottom uxul-world::moving-enemy
  20   uxul-world::standing-enemy uxul-world::moving-item
  21   uxul-world::standing-item uxul-world::game-object-with-animation
  22   uxul-world::teleporter))