28 lines
619 B
Plaintext
28 lines
619 B
Plaintext
"INTERRUPTS for
|
|
The Lurking Horror
|
|
(c) Copyright 1986 Infocom, Inc. All Rights Reserved."
|
|
|
|
;"GENERICS"
|
|
|
|
<GLOBAL LOAD-MAX 150>
|
|
<GLOBAL LOAD-ALLOWED 150>
|
|
|
|
<GLOBAL AWAKE -1>
|
|
|
|
<ROUTINE I-TIRED ("AUX" (FORG <>))
|
|
<QUEUE I-TIRED 25>
|
|
<COND (<G? ,LOAD-ALLOWED 10>
|
|
<SETG LOAD-ALLOWED <- ,LOAD-ALLOWED 10>>)>
|
|
<COND (<G? ,FUMBLE-NUMBER 1>
|
|
<SETG FUMBLE-NUMBER <- ,FUMBLE-NUMBER 1>>)>
|
|
<SETG AWAKE <+ ,AWAKE 1>>
|
|
<CRLF>
|
|
<COND (<G? ,AWAKE 8>
|
|
<TELL
|
|
"You are so exhausted you can't stay awake any longer." CR>
|
|
<CRLF>
|
|
<V-SLEEP T>
|
|
<RFATAL>)
|
|
(T
|
|
<TELL "You are " <GET ,TIRED-TELL ,AWAKE> ,PERIOD>)>>
|