mirror of
https://github.com/historicalsource/abyss
synced 2024-04-26 22:19:24 +03:00
602 lines
11 KiB
Plaintext
602 lines
11 KiB
Plaintext
;"***************************************************************************"
|
|
; "game : Abyss"
|
|
; "file : GLOBAL.ZIL"
|
|
; "auth : $Author: DEB $"
|
|
; "date : $Date: 13 Mar 1989 19:20:32 $"
|
|
; "rev : $Revision: 1.6 $"
|
|
; "vers : 1.0"
|
|
;"---------------------------------------------------------------------------"
|
|
; "Global objects"
|
|
; "Copyright (C) 1988 Infocom, Inc. All rights reserved."
|
|
;"***************************************************************************"
|
|
|
|
<GLOBAL HERE:OBJECT RM-SUB-BAY <> BYTE>
|
|
<GLOBAL OHERE:OBJECT <> <> BYTE>
|
|
|
|
<OBJECT ROOMS
|
|
(DESC "that")
|
|
(FLAGS FL-NO-ARTICLE)
|
|
>
|
|
|
|
<OBJECT GLOBAL-OBJECTS
|
|
(DESC "GO")
|
|
; (FDESC 0)
|
|
(GENERIC 0)
|
|
(GLOBAL 0)
|
|
(OWNER 0)
|
|
; (TEXT 0)
|
|
(THINGS 0)
|
|
(CAPACITY 0)
|
|
(SCORE 0)
|
|
(FLAGS
|
|
FL-ALIVE ; 1
|
|
FL-ASLEEP ; 2
|
|
FL-AUTO-ENTER ; 3
|
|
FL-AUTO-OPEN ; 4
|
|
FL-BODY-PART ; 5
|
|
FL-BROKEN ; 6
|
|
FL-BURNABLE ; 7
|
|
FL-BY-HAND ; 8
|
|
FL-CLOTHING ; 9
|
|
FL-COLLECTIVE ; 10
|
|
FL-CONTAINER ; 11
|
|
FL-DOOR ; 12
|
|
FL-FEMALE ; 13
|
|
FL-HAS-LDESC ; 14
|
|
FL-HAS-SDESC ; 15
|
|
FL-INDOORS ; 16
|
|
FL-INVISIBLE ; 17
|
|
FL-KEY ; 18
|
|
FL-KNIFE ; 19
|
|
FL-LAMP ; 20
|
|
FL-LIGHTED ; 21
|
|
FL-LOCKED ; 22
|
|
FL-NO-ALL ; 23
|
|
FL-NO-ARTICLE ; 24
|
|
FL-NO-DESC ; 25
|
|
FL-ON ; 26
|
|
FL-OPEN ; 27
|
|
FL-OPENABLE ; 28
|
|
FL-PERSON ; 29
|
|
FL-PLURAL ; 30
|
|
FL-READABLE ; 31
|
|
; FL-ROOMS ; 32
|
|
FL-SEARCH ; 33
|
|
FL-SEEN ; 34
|
|
FL-SURFACE ; 35
|
|
FL-TAKEABLE ; 36
|
|
FL-TOOL ; 37
|
|
FL-TOUCHED ; 38
|
|
FL-TRANSPARENT ; 39
|
|
FL-TRY-TAKE ; 40
|
|
FL-VEHICLE ; 41
|
|
FL-VOWEL ; 42
|
|
FL-WATER ; 43
|
|
FL-WEAPON ; 44
|
|
FL-WORN ; 45
|
|
FL-YOUR ; 46
|
|
; FL-FLAG-47 ; 47
|
|
; FL-FLAG-48 ; 48
|
|
)
|
|
>
|
|
|
|
<OBJECT LOCAL-GLOBALS
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "LG")
|
|
(SYNONYM L.G)
|
|
(FLAGS FL-NO-ARTICLE)
|
|
>
|
|
|
|
<OBJECT GLOBAL-HERE
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "here")
|
|
(FLAGS FL-NO-ARTICLE)
|
|
(SYNONYM HERE PLACE ROOM AREA)
|
|
(ACTION RT-GLOBAL-HERE)
|
|
>
|
|
|
|
<ROUTINE RT-GLOBAL-HERE ("OPT" (CONTEXT <>) "AUX" P)
|
|
<COND
|
|
(,HERE
|
|
<COND
|
|
(<SET P <GETP ,HERE ,P?ACTION>>
|
|
<APPLY .P .CONTEXT>
|
|
)
|
|
>
|
|
)
|
|
>
|
|
>
|
|
|
|
<OBJECT IT
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "it")
|
|
(SYNONYM IT THIS)
|
|
(FLAGS FL-NO-ARTICLE FL-VOWEL)
|
|
>
|
|
|
|
<OBJECT THEM
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "them")
|
|
(SYNONYM THEM)
|
|
(FLAGS FL-NO-ARTICLE FL-PLURAL)
|
|
>
|
|
|
|
<OBJECT INTNUM
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "number")
|
|
(SYNONYM INT.NUM)
|
|
>
|
|
|
|
<OBJECT YOU
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "you")
|
|
(SYNONYM YOU YOURSELF)
|
|
(ACTION RT-YOU)
|
|
>
|
|
|
|
<ROUTINE RT-YOU ("OPT" (CONTEXT <>))
|
|
<COND
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(,NOW-PRSI
|
|
<PERFORM ,PRSA ,PRSO ,WINNER>
|
|
)
|
|
(T
|
|
<PERFORM ,PRSA ,WINNER ,PRSI>
|
|
)
|
|
>
|
|
>
|
|
|
|
<OBJECT HER
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "her")
|
|
(SYNONYM HER)
|
|
(FLAGS FL-NO-ARTICLE)
|
|
>
|
|
|
|
<OBJECT HIM
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "him")
|
|
(SYNONYM HIM)
|
|
(FLAGS FL-NO-ARTICLE)
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-HUMAN-BODY"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-HUMAN-BODY
|
|
(LOC GLOBAL-OBJECTS)
|
|
(FLAGS FL-HAS-SDESC FL-NO-ARTICLE)
|
|
(SYNONYM
|
|
BODY
|
|
SKIN
|
|
ARM ARMS
|
|
HAND HANDS
|
|
LEG LEGS
|
|
ANKLE ANKLES
|
|
FOOT FEET
|
|
HEAD
|
|
HAIR
|
|
EYE EYES
|
|
EAR EARS
|
|
NOSE
|
|
FACE
|
|
CHEEK CHEEKS
|
|
LIP LIPS
|
|
MOUTH
|
|
NECK
|
|
SHOULDER SHOULDERS
|
|
CHEST
|
|
TORSO
|
|
BACK
|
|
WAIST
|
|
)
|
|
(ADJECTIVE LEFT RIGHT)
|
|
(OWNER K-BODY-OWNER-TBL)
|
|
(GENERIC RT-GN-BODY)
|
|
(ACTION RT-TH-HUMAN-BODY)
|
|
>
|
|
|
|
<CONSTANT K-BODY-OWNER-TBL
|
|
<TABLE (PURE LENGTH)
|
|
CH-COFFEY
|
|
CH-LINDSEY
|
|
>
|
|
>
|
|
|
|
<CONSTANT K-NO-REFER-MSG "[You don't need to refer to ">
|
|
|
|
<ROUTINE RT-TH-HUMAN-BODY ("OPT" (CONTEXT <>) "AUX" TMP (PERSON <>))
|
|
<COND
|
|
(<MC-CONTEXT? ,M-OBJDESC>
|
|
<TELL "their body">
|
|
)
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(T
|
|
<COND
|
|
(<SET TMP <NP-ADJS <GET-NP>>>
|
|
<SET PERSON <ADJS-POSS .TMP>>
|
|
)
|
|
>
|
|
<COND
|
|
(<AND .PERSON
|
|
<NOT <VISIBLE? .PERSON>>
|
|
>
|
|
<NP-CANT-SEE>
|
|
)
|
|
(T
|
|
<TELL ,K-NO-REFER-MSG>
|
|
<COND
|
|
; (<EQUAL? .PERSON>
|
|
<TELL "that">
|
|
)
|
|
(T
|
|
<TELL "any">
|
|
)
|
|
>
|
|
<TELL " part of">
|
|
<COND
|
|
(.PERSON
|
|
<TELL the .PERSON !\'>
|
|
<COND
|
|
(<OR <NOT <FSET? .PERSON ,FL-PLURAL>>
|
|
<FSET? .PERSON ,FL-COLLECTIVE>
|
|
>
|
|
<TELL !\s>
|
|
)
|
|
>
|
|
)
|
|
(T
|
|
<TELL " their">
|
|
)
|
|
>
|
|
<TELL " body.]" CR>
|
|
)
|
|
>
|
|
<RFATAL>
|
|
)
|
|
>
|
|
>
|
|
|
|
<ROUTINE RT-GN-BODY (TBL FINDER "AUX" (PART <>))
|
|
<REPEAT (
|
|
(PTR <REST-TO-SLOT .TBL FIND-RES-OBJ1>)
|
|
(N <FIND-RES-COUNT .TBL>)
|
|
)
|
|
<COND
|
|
(<DLESS? N 0>
|
|
<RFALSE>
|
|
)
|
|
(<NOT <SET PART <ZGET .PTR 0>>>)
|
|
(<FSET? .PART ,FL-YOUR>
|
|
<RETURN>
|
|
)
|
|
(<EQUAL? .PART ,TH-PLAYER-BODY>
|
|
<RETURN>
|
|
)
|
|
(<NOT <EQUAL? .PART ,TH-HUMAN-BODY>>
|
|
<RETURN>
|
|
)
|
|
>
|
|
<SET PTR <ZREST .PTR 2>>
|
|
>
|
|
<RETURN .PART>
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-PLAYER-BODY"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-PLAYER-BODY
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "body")
|
|
(FLAGS FL-BODY-PART FL-YOUR)
|
|
(SYNONYM
|
|
BODY
|
|
SKIN
|
|
ARM ARMS
|
|
ANKLE ANKLES
|
|
FOOT FEET
|
|
HAIR
|
|
EYE EYES
|
|
EAR EARS
|
|
NOSE
|
|
FACE
|
|
CHEEK CHEEKS
|
|
LIP LIPS
|
|
TONGUE
|
|
NECK
|
|
SHOULDER SHOULDERS
|
|
CHEST
|
|
TORSO
|
|
BACK
|
|
WAIST
|
|
)
|
|
(ADJECTIVE LEFT RIGHT)
|
|
(OWNER CH-PLAYER)
|
|
(GENERIC RT-GN-BODY)
|
|
(ACTION RT-TH-PLAYER-BODY)
|
|
>
|
|
|
|
<ROUTINE RT-TH-PLAYER-BODY ("OPT" (CONTEXT <>))
|
|
<COND
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(T
|
|
<TELL ,K-NO-REFER-MSG "that part of your body.]" CR>
|
|
<RFATAL>
|
|
)
|
|
>
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-HEAD"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-HEAD
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "head")
|
|
(FLAGS FL-BODY-PART FL-YOUR)
|
|
(SYNONYM HEAD)
|
|
(OWNER CH-PLAYER)
|
|
(GENERIC RT-GN-BODY)
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-HANDS"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-HANDS
|
|
(LOC GLOBAL-OBJECTS)
|
|
(DESC "hands")
|
|
(FLAGS FL-BODY-PART FL-BY-HAND FL-PLURAL FL-TOOL FL-WEAPON FL-YOUR)
|
|
(SYNONYM HAND HANDS)
|
|
(ADJECTIVE LEFT RIGHT)
|
|
(OWNER CH-PLAYER)
|
|
(GENERIC RT-GN-BODY)
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-GROUND"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-GROUND
|
|
(LOC GLOBAL-OBJECTS)
|
|
(SYNONYM GROUND FLOOR)
|
|
(FLAGS FL-HAS-SDESC FL-SEARCH FL-SURFACE)
|
|
(ACTION RT-TH-GROUND)
|
|
>
|
|
|
|
<ROUTINE RT-TH-GROUND ("OPT" (CONTEXT <>) (ART <>) (CAP? <>))
|
|
<COND
|
|
(<MC-CONTEXT? ,M-OBJDESC>
|
|
<COND
|
|
(.ART
|
|
<RT-PRINT-ARTICLE ,TH-GROUND .ART .CAP?>
|
|
)
|
|
>
|
|
<COND
|
|
(<EQUAL? .ART <> ,K-ART-THE ,K-ART-A ,K-ART-ANY>
|
|
<COND
|
|
(.ART
|
|
<TELL !\ >
|
|
)
|
|
>
|
|
<COND
|
|
(<FSET? ,HERE ,FL-INDOORS>
|
|
<TELL "floor">
|
|
)
|
|
(T
|
|
<TELL "ground">
|
|
)
|
|
>
|
|
)
|
|
>
|
|
)
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(<VERB? EXAMINE LOOK-ON>
|
|
<COND
|
|
(<RT-SEE-ANYTHING-IN? ,HERE>
|
|
<TELL "You see">
|
|
<RT-PRINT-CONTENTS ,HERE>
|
|
<TELL " on" the ,TH-GROUND !\. CR>
|
|
)
|
|
>
|
|
)
|
|
>
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-SKY"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-SKY
|
|
(LOC GLOBAL-OBJECTS)
|
|
(SYNONYM SKY CEILING)
|
|
(FLAGS FL-HAS-SDESC)
|
|
(ACTION RT-TH-SKY)
|
|
>
|
|
|
|
<ROUTINE RT-TH-SKY ("OPT" (CONTEXT <>) (ART <>) (CAP? <>) "AUX" RM)
|
|
<COND
|
|
(<MC-CONTEXT? ,M-OBJDESC>
|
|
<COND
|
|
(.ART
|
|
<RT-PRINT-ARTICLE ,TH-SKY .ART .CAP?>
|
|
)
|
|
>
|
|
<COND
|
|
(<EQUAL? .ART <> ,K-ART-THE ,K-ART-A ,K-ART-ANY>
|
|
<COND
|
|
(.ART
|
|
<TELL !\ >
|
|
)
|
|
>
|
|
<COND
|
|
(<FSET? ,HERE ,FL-INDOORS>
|
|
<TELL "ceiling">
|
|
)
|
|
(T
|
|
<TELL "sky">
|
|
)
|
|
>
|
|
)
|
|
>
|
|
)
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(<NOT <EVERYWHERE-VERB? <COND (,NOW-PRSI 2) (T 1)>>>
|
|
<COND
|
|
(<FSET? ,HERE ,FL-INDOORS>
|
|
<COND
|
|
(<NOUN-USED? ,TH-SKY ,W?SKY>
|
|
<NP-CANT-SEE>
|
|
)
|
|
>
|
|
)
|
|
(T
|
|
<COND
|
|
(<NOUN-USED? ,TH-SKY ,W?CEILING>
|
|
<NP-CANT-SEE>
|
|
)
|
|
>
|
|
)
|
|
>
|
|
)
|
|
>
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-TIME"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-TIME
|
|
(LOC GENERIC-OBJECTS)
|
|
(DESC "time")
|
|
(SYNONYM TURN TURNS MINUTE MINUTES MIN HOUR HOURS)
|
|
(ADJECTIVE INT.NUM)
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "LG-WALL"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT LG-WALL
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "wall")
|
|
(SYNONYM WALL WALLS BULKHEAD)
|
|
(ADJECTIVE FORE AFT PORT STARBOARD)
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-FLATBED"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-FLATBED
|
|
(LOC GENERIC-OBJECTS)
|
|
(DESC "Flatbed")
|
|
(FLAGS FL-NO-ARTICLE)
|
|
(SYNONYM FLATBED)
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "TH-UFO"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT TH-UFO
|
|
(LOC GENERIC-OBJECTS)
|
|
(DESC "UFO")
|
|
(SYNONYM UFO)
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "LG-DEEPCORE"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT LG-DEEPCORE
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "Deepcore")
|
|
(SYNONYM DEEPCORE)
|
|
(ACTION RT-LG-DEEPCORE)
|
|
>
|
|
|
|
<ROUTINE RT-LG-DEEPCORE ("OPT" (CONTEXT <>))
|
|
<COND
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(<VERB? EXAMINE>
|
|
<TELL "It looks like Deepcore." CR>
|
|
)
|
|
>
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "LG-TROUGH"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT LG-TROUGH
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "Cayman trough")
|
|
(SYNONYM TROUGH)
|
|
(ACTION RT-LG-TROUGH)
|
|
>
|
|
|
|
<ROUTINE RT-LG-TROUGH ("OPT" (CONTEXT <>))
|
|
<COND
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(<VERB? EXAMINE>
|
|
<TELL "It looks like the Cayman trough." CR>
|
|
)
|
|
>
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "LG-MONTANA"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT LG-MONTANA
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "Montana")
|
|
(SYNONYM MONTANA SUBMARINE SUB)
|
|
(ADJECTIVE NAVY USS OHIO CLASS)
|
|
(ACTION RT-LG-MONTANA)
|
|
>
|
|
|
|
<ROUTINE RT-LG-MONTANA ("OPT" (CONTEXT <>))
|
|
<COND
|
|
(.CONTEXT
|
|
<RFALSE>
|
|
)
|
|
(<VERB? EXAMINE>
|
|
<TELL "It looks like the Montana." CR>
|
|
)
|
|
>
|
|
>
|
|
|
|
;"---------------------------------------------------------------------------"
|
|
; "LG-OUTLET"
|
|
;"---------------------------------------------------------------------------"
|
|
|
|
<OBJECT LG-OUTLET
|
|
(LOC LOCAL-GLOBALS)
|
|
(DESC "outlet")
|
|
(SYNONYM OUTLET SOCKET)
|
|
(ADJECTIVE WALL ELECTRICAL)
|
|
>
|
|
|
|
;"***************************************************************************"
|
|
; "end of file"
|
|
;"***************************************************************************"
|
|
|