summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--depre/main.scm11
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))))))