139 lines
2.9 KiB
Plaintext
139 lines
2.9 KiB
Plaintext
;"***************************************************************************"
|
|
; "game : Abyss"
|
|
; "file : RETURN2.ZIL"
|
|
; "auth : $Author: DEB $"
|
|
; "date : $Date: 20 Mar 1989 8:44:38 $"
|
|
; "rev : $Revision: 1.2 $"
|
|
; "vers : 1.0"
|
|
;"---------------------------------------------------------------------------"
|
|
; "Second return to Deepcore"
|
|
; "Copyright (C) 1988 Infocom, Inc. All rights reserved."
|
|
;"***************************************************************************"
|
|
|
|
<GLOBAL GL-RETURN2-DONE? <> <> BYTE>
|
|
<GLOBAL GL-COFFEY-SHOOT 0 <> BYTE>
|
|
|
|
<OBJECT TH-GUN
|
|
(LOC CH-COFFEY)
|
|
(DESC "gun")
|
|
(FLAGS FL-TAKEABLE)
|
|
(SYNONYM GUN PISTOL)
|
|
(OWNER CH-COFFEY)
|
|
(SIZE 5)
|
|
(ACTION RT-TH-GUN)
|
|
>
|
|
|
|
<ROUTINE RT-TH-GUN ("OPT" (CONTEXT <>))
|
|
<RFALSE>
|
|
>
|
|
|
|
<OBJECT TH-FBS-SUIT
|
|
(LOC TH-DIVE-LOCKER)
|
|
(DESC "FBS suit")
|
|
(FLAGS FL-CLOTHING FL-TAKEABLE)
|
|
(SYNONYM SUIT)
|
|
(ADJECTIVE FBS FLUID BREATHING SYSTEM)
|
|
(SIZE 5)
|
|
(ACTION RT-TH-FBS-SUIT)
|
|
>
|
|
|
|
<ROUTINE RT-TH-FBS-SUIT ("OPT" (CONTEXT <>))
|
|
<RFALSE>
|
|
>
|
|
|
|
<OBJECT TH-DIVE-LOCKER
|
|
(LOC RM-SUB-BAY)
|
|
(DESC "dive locker")
|
|
(FLAGS FL-CONTAINER FL-LOCKED FL-OPENABLE FL-SEARCH FL-TRY-TAKE)
|
|
(SYNONYM LOCKER)
|
|
(ADJECTIVE DIVE)
|
|
(SIZE 5)
|
|
(ACTION RT-TH-DIVE-LOCKER)
|
|
>
|
|
|
|
<ROUTINE RT-TH-DIVE-LOCKER ("OPT" (CONTEXT <>))
|
|
<COND
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(<VERB? TAKE MOVE PUSH PULL LIFT>
|
|
<TELL " The dive locker is securely anchored to the floor." CR>
|
|
)
|
|
>
|
|
>
|
|
|
|
<OBJECT TH-ELECTRONIC-LOCK
|
|
(LOC TH-DIVE-LOCKER)
|
|
(DESC "lock")
|
|
(SYNONYM LOCK)
|
|
(ADJECTIVE ELECTRONIC)
|
|
(SIZE 5)
|
|
(ACTION RT-TH-ELECTRONIC-LOCK)
|
|
>
|
|
|
|
<ROUTINE RT-TH-ELECTRONIC-LOCK ("OPT" (CONTEXT <>))
|
|
<RFALSE>
|
|
>
|
|
|
|
<OBJECT TH-DEVICE
|
|
(LOC CH-HIPPY)
|
|
(DESC "device")
|
|
(SYNONYM DEVICE)
|
|
(ADJECTIVE REMOTE ELECTRONIC)
|
|
(OWNER CH-HIPPY)
|
|
(SIZE 5)
|
|
(ACTION RT-TH-DEVICE)
|
|
>
|
|
|
|
<ROUTINE RT-TH-DEVICE ("OPT" (CONTEXT <>))
|
|
<RFALSE>
|
|
>
|
|
|
|
; "Cheat verb for causing narcosis for Coffey."
|
|
<SYNTAX $NITROGEN = V-$NITROGEN>
|
|
<ROUTINE V-$NITROGEN ()
|
|
<COND
|
|
(<MC-HERE? ,RM-GAS-MIX-ROOM>
|
|
<COND
|
|
(<FSET? ,LG-CHAMBER-DOOR ,FL-OPEN>
|
|
<TELL "[The compression chamber door must be closed.]|">
|
|
<RFATAL>
|
|
)
|
|
(T
|
|
<COND
|
|
(<ZERO? ,GL-WIRE-SEQUENCE>
|
|
<SETG GL-WIRE-SEQUENCE <RANDOM 4>>
|
|
)
|
|
>
|
|
<TELL
|
|
" Coffey begins to babble incoherently. You can hear him say, \""
|
|
>
|
|
<COND
|
|
(<EQUAL? ,GL-WIRE-SEQUENCE 1>
|
|
<TELL "Oxford rows great big wide yachts.\"" CR>
|
|
)
|
|
(<EQUAL? ,GL-WIRE-SEQUENCE 2>
|
|
<TELL "Yankees rarely win over Green Bay.\"" CR>
|
|
)
|
|
(<EQUAL? ,GL-WIRE-SEQUENCE 3>
|
|
<TELL "Get rid of your wet bananas.\"" CR>
|
|
)
|
|
(<EQUAL? ,GL-WIRE-SEQUENCE 4>
|
|
<TELL "Go west, young boy, or rot.\"" CR>
|
|
)
|
|
>
|
|
)
|
|
>
|
|
)
|
|
(T
|
|
<TELL "[You must be in the gas mix room to use $NITROGEN.]|">
|
|
<RFATAL>
|
|
)
|
|
>
|
|
>
|
|
|
|
;"***************************************************************************"
|
|
; "end of file"
|
|
;"***************************************************************************"
|
|
|