How to make an adventure game built on Scheme vol.1

取りあえず何も疑問を抱かずに上のリンクの方針に従う。

(define (main)
  (display "シナリオ1\n")
  (display "選択肢1 -> 1 選択肢2 -> 2\n")
  (let loop ()
    (let ((i (read)))
      (cond
       ((not (integer? i))
 (display "間違った入力です\n")
 (loop))
       ((= i 1)
 (display "シナリオ4\n"))
       (else
 (display "シナリオ5\n")))))
  (display "エンドシナリオ\n"))

vol.2があるかどうかは知らない。