summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--depre/main.scm56
1 files changed, 41 insertions, 15 deletions
diff --git a/depre/main.scm b/depre/main.scm
index a35411c..964fca3 100644
--- a/depre/main.scm
+++ b/depre/main.scm
@@ -2,6 +2,9 @@
(define-module (depre main)
#:use-module (ice-9 textual-ports))
+;; Random seed
+(set! *random-state* (random-state-from-platform))
+
;; 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))
@@ -112,29 +115,52 @@
`(lambda () ((hash-ref %states ,name))))
(register-state
- 'beginning
- (state "This is the game beginning, as a test"
- (list (cons "Return to start"
+ '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?"
+ (list
+ (cons "Work."
+ (rest))
+ (cons "Relax."
+ (rest)))))
+
+(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?"
+ (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 "Alright, you can do that.")
- (rest)
- (to-state 'start))
+ (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 that")
+ (answer "You are too tired for waking up now. You stay at bed instead and your day starts in mid morning.")
(depress)
- (to-state 'start)))))))
+ (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
(state "Hi, game starts"
- (list (cons "Start game"
- (combine
- (answer "Let's start, then. You are getting tired.")
- (tire)
- (to-state 'beginning)))
- (cons "Quit game"
- (answer "Good bye!")))
+ (list
+ (cons "Start game"
+ (combine
+ (answer "Let's start, then. Press [ENTER] to continue.")
+ (to-state 'wake-up)))
+ (cons "Quit game"
+ (answer "Good bye!")))
#:hide-status))
((to-state 'start))