From d72faf5b2098d81f24fee1a586338c4c379d88aa Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Sat, 5 Nov 2022 18:36:28 +0100 Subject: Adjust difficulty --- depre/main.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'depre/main.scm') 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)))))) -- cgit v1.2.3