diff options
| -rw-r--r-- | depre/main.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/depre/main.scm b/depre/main.scm index 85f2ffa..09f6418 100644 --- a/depre/main.scm +++ b/depre/main.scm @@ -10,8 +10,8 @@ ;; Code makes heavy use of functional code and parameters for state. (define max-100 (lambda (x) (if (> x 100) 100 x))) -(define *depression* (make-parameter 50 max-100)) -(define *tiredness* (make-parameter 50 max-100)) +(define *depression* (make-parameter 40 max-100)) +(define *tiredness* (make-parameter 40 max-100)) (define *day* (make-parameter 1)) ;; Show days passed on exit @@ -233,7 +233,7 @@ (combine (answer "You do nothing for a couple of hours and feel guilty \ because you didn't work") - (depress+) + (depress) (rest) (to-state 'morning-2)))))) @@ -248,6 +248,7 @@ (combine (answer "You worked for a couple of hours.") (tire) + (cheer-up) (to-state 'lunch)) (combine (answer "You are too tired to work. You do nothing for a \ @@ -264,8 +265,8 @@ (combine (answer "You do nothing for a couple of hours and feel guilty \ because you didn't work") - (depress+) - (rest) + (depress) + (rest+) (to-state 'lunch)))))) |