/[the-feebs-war]/package.lisp
ViewVC logotype

Diff of /package.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by gmilare, Sun Dec 30 01:30:32 2007 UTC revision 11 by gmilare, Mon Dec 31 21:35:35 2007 UTC
# Line 33  Line 33 
33  (defpackage :feebs  (defpackage :feebs
34    (:use :common-lisp)    (:use :common-lisp)
35    ;; Export everything we want the players to get their hands on.    ;; Export everything we want the players to get their hands on.
36    (:export *number-of-feebs* *game-length*    (:export *game-length*
            *number-of-auto-feebs*  
37    
38             ;; Strategic quantities             ;; Strategic quantities
39             *points-for-killing* *points-for-dying*             *points-for-killing* *points-for-dying*
# Line 48  Line 47 
47             *number-of-mushrooms*             *number-of-mushrooms*
48    
49             ;; Probabilities             ;; Probabilities
            *carcass-guaranteed-lifetime*  
            *carcass-rot-probability*  
50             *fireball-guaranteed-lifetime*             *fireball-guaranteed-lifetime*
51             *fireball-dissipation-probability*             *fireball-dissipation-probability*
52             *fireball-reflection-probability*             *fireball-reflection-probability*
# Line 80  Line 77 
77             feeb-image-p feeb-image-name             feeb-image-p feeb-image-name
78             feeb-image-facing feeb-image-peeking             feeb-image-facing feeb-image-peeking
79             fireball-image-p fireball-image-direction             fireball-image-p fireball-image-direction
80    
81             ;; Functions             ;; Parameters
82               get-feeb-parm change-feeb-parm
83             list-parameter-settings             list-parameter-settings
84    
85               ;; Settings
86             define-feeb delete-feeb             define-feeb delete-feeb
87             feebs             feebs
88             change-layout             change-layout
# Line 93  Line 93 
93    
94             ;; Some layouts (can be find in mazes.lisp)             ;; Some layouts (can be find in mazes.lisp)
95             *maze-1* *maze-2* *maze-3* *maze-4* *maze-5*             *maze-1* *maze-2* *maze-3* *maze-4* *maze-5*
96             *maze-template*             make-template generate-maze
97    
98             ;; Graphics             ;; Graphics
99             create-graphics             create-graphics
# Line 119  Line 119 
119    
120  ;;; Directions  ;;; Directions
121    
122    (deftype direction ()
123      `(integer 0 3))
124    
125  (defconstant north 0)  (defconstant north 0)
126  (defconstant east  1)  (defconstant east  1)
127  (defconstant south 2)  (defconstant south 2)
# Line 178  Line 181 
181      "XXXXX XXXXXXXXXXXXX            X"      "XXXXX XXXXXXXXXXXXX            X"
182      "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"))      "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"))
183    
184  (defparameter *maze-x-size* 32  
185    "Horizontal size of the maze")  
186  (defparameter *maze-y-size* 32  ;;; Map size
187    "Vertical size of the maze")  
188    (def-feeb-parm 'maze-x-size 32
189      "Horizontal size of the maze.")
190    
191    (def-feeb-parm 'maze-y-size 32
192      "Vertical size of the maze.")
193    
194    (defvar *maze-x-size* 32)
195    (defvar *maze-y-size* 32)
196    
197    
198  ;;; Quantities during the game  ;;; Quantities during the game
# Line 197  Line 208 
208  (defvar *dead-feebs*)  (defvar *dead-feebs*)
209  (defvar *carcasses*)  (defvar *carcasses*)
210    
211  (defvar *continue*)  ;;; Current feeb playing
212    (defvar *playing-feeb*)
213    
214    (defmacro aif (test then &optional else)
215      `(let ((it ,test))
216         (if it ,then ,else)))
217    
218    (defmacro awhen (test &rest body)
219      `(let ((it ,test))
220         (when it ,@body)))

Legend:
Removed from v.7  
changed lines
  Added in v.11

  ViewVC Help
Powered by ViewVC 1.1.5