constants.lisp

   1 ;;; Copyright 2009 Christoph Senjak
   2
   3 (in-package :uxul-world)
   4
   5 (defconstant +screen-width+ 1024)
   6 (defconstant +screen-height+ 768)
   7
   8 (defconstant +class-indices+ '(t uxul-world::animation
   9   uxul-world::collision uxul-world::game-object uxul-world::player
  10   uxul-world::room uxul-world::stone uxul-world::xy-coordinates
  11   uxul-world::bottom uxul-world::moving-enemy
  12   uxul-world::standing-enemy uxul-world::moving-item
  13   uxul-world::standing-item uxul-world::game-object-with-animation))