diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-10-18 18:36:14 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-10-18 18:36:14 -0500 |
| commit | 6997cd0c7a678647fa012685f9ed27816ade8e06 (patch) | |
| tree | 6aa8d39166154baa7706c9d3658a3b3c5177899a /the-price-of-a-cup-of-coffee.lisp | |
| parent | 2e84bcc4be74da0fd1fcd439dee05c1341cd1c54 (diff) | |
heh
Diffstat (limited to 'the-price-of-a-cup-of-coffee.lisp')
| -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!!!")) |