From 6997cd0c7a678647fa012685f9ed27816ade8e06 Mon Sep 17 00:00:00 2001 From: Boutade Date: Fri, 18 Oct 2019 18:36:14 -0500 Subject: heh --- the-price-of-a-cup-of-coffee.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'the-price-of-a-cup-of-coffee.lisp') 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!!!")) -- cgit v1.2.3