mirror of
https://github.com/historicalsource/infocom-sampler
synced 2024-05-14 23:18:40 +03:00
13 lines
295 B
Plaintext
13 lines
295 B
Plaintext
|
|
<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)
|
|
#DECL ((ASK?) <OR ATOM <PRIMTYPE LIST>> (SCOR) FIX)
|
|
<V-SCORE>
|
|
<COND (.ASK?
|
|
<SAY-SURE>
|
|
<TELL "leave the story now?">
|
|
<COND (<YES?>
|
|
<QUIT>)
|
|
(T
|
|
<TELL ,OKAY "the story continues..." CR>)>)
|
|
(T
|
|
<QUIT>)>> |