diff options
| -rw-r--r-- | depre/main.scm | 52 |
1 files changed, 32 insertions, 20 deletions
diff --git a/depre/main.scm b/depre/main.scm index 964fca3..cdb2092 100644 --- a/depre/main.scm +++ b/depre/main.scm @@ -2,6 +2,9 @@ (define-module (depre main) #:use-module (ice-9 textual-ports)) +;; Clean indentation from strings +(read-enable 'hungry-eol-escapes) + ;; Random seed (set! *random-state* (random-state-from-platform)) @@ -116,7 +119,8 @@ (register-state 'morning-1 - (state "It's early in the morning. You have time to do whatever you want right now. What do you want to do?" + (state "It's early in the morning. You have time to do whatever you want \ + right now. What do you want to do?" (list (cons "Work." (rest)) @@ -125,31 +129,39 @@ (register-state 'morning-2 - (state "It's late in the morning. You still have some time before having lunch. What do you want to do?" + (state "It's late in the morning. You still have some time before having \ + lunch. What do you want to do?" (list (cons "nope" (rest))))) (register-state 'wake-up (state "Good morning. It's time to wake up, what do you want to do?" - (list (cons "Wake up and start your day." - (f-or-tired - (combine - (answer "You just woke up, had your shower, had some breakfast and now you are ready for anything.") - (cheer-up) - (tire) - (to-state 'morning-1)) - (combine - (answer "You are too tired for waking up now. You stay at bed instead and your day starts in mid morning.") - (depress) - (rest) - (to-state 'morning-2)))) - - (cons "Stay in bed" + (list + (cons "Wake up and start your day." + (f-or-tired + (combine + (answer "You just woke up, had your shower, had some \ + breakfast and now you are ready for \ + anything.") + (cheer-up) + (tire) + (to-state 'morning-1)) (combine - (answer "You rest for a little bit more, but you feel bad because you have a hard time waking up like a normal person") - (depress) - (rest) - (to-state 'morning-2)))))) + (answer "You are too tired for waking up now. You \ + stay at bed instead and your day starts in \ + mid morning.") + (depress) + (rest) + (to-state 'morning-2)))) + + (cons "Stay in bed" + (combine + (answer "You rest for a little bit more, but you feel \ + bad because you have a hard time waking up \ + like a normal person.") + (depress) + (rest) + (to-state 'morning-2)))))) (register-state 'start |