util.lisp

;;; util.lisp --- handy utilities for xe2 users

;; Copyright (C) 2010  David O'Toole

;; Author: David O'Toole <dto@gnu.org>
;; Keywords: 

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

(in-package :xe2)

;; (defgame :cons 
;;     :title "CONS" :description "A roguelike action game about lisp."
;;   :dt 10 :physics-function #'cons-physics
;;   :held-keys t
;;   :splash-resource "splash" 
;;   :splash-function #'spacebar
;;   :splash-music "cons"
;;   :help-resource "help-message" 
;;   :screen-width 800 :screen-height 600
;;   :keybindings '(("KP8" nil "aim :north .")
;; 		 ("KP4" nil "aim :west .")
;; 		 ("KP6" nil "aim :east .")
;; 		 ("KP2" nil "aim :south .")
;; 		 ;; arrows
;; 		 ("UP" nil "aim :north .")
;; 		 ("LEFT" nil "aim :west .")
;; 		 ("RIGHT" nil "aim :east .")
;; 		 ("DOWN" nil "aim :south .")))
  
;; (defmacro defgame (module-name 
;; 		   (&key title description
;; 			 (prompt-prototype =prompt=)
;; 			 dt physics-function
;; 			 held-keys 
;; 			 splash-image splash-function splash-music
;; 			 screen-width screen-height
;; 			 keybindings pages)
;; 		   &body startup-forms)
  
  
		   


;;; util.lisp ends here