Adjust difficulty

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))))))