diff options
| -rw-r--r-- | the-price-of-a-cup-of-coffee.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/the-price-of-a-cup-of-coffee.lisp b/the-price-of-a-cup-of-coffee.lisp index a22f7e5..a48d4d5 100644 --- a/the-price-of-a-cup-of-coffee.lisp +++ b/the-price-of-a-cup-of-coffee.lisp @@ -417,14 +417,16 @@ (cdr vec)))) (push pause *tweens*))) +(defparameter +coffee-cost+ 0.55) + (defun enough-for-coffee-p () - (<= 0.45 (percent *money-meter*))) + (<= +coffee-cost+ (percent *money-meter*))) (defun enough-for-food-p () (<= 1.0 (percent *money-meter*))) (defun get-coffee! () - (decf (percent *money-meter*) 0.45) + (decf (percent *money-meter*) +coffee-cost+) (play-track *looking-up-track*) (emote *nance* "coffee") (setf *collision-on-p* nil) @@ -441,7 +443,6 @@ (setf *collision-on-p* t) (setf *on-coffee-break* nil))))) - (print "Getting Coffee!!!")) (defun get-food! () (print "Getting Food!!!")) |