Pyramid Code
Loaded from cassette at 0x600 (right after text screen memory).
Executed at 0x0600.
Binary size is 14625 bytes.
14625 + 0x600 = 16161 (223 bytes shy of 16K).
The game uses 65 bytes of memory in low memory beginning at 0x01B0 for temporaries. These temporaries are not persisted in a SAVE.
The game is loaded into RAM, and the game modifies data structures within the program's loaded space. Thus the data structures are only initialized at loading. The game must be reloaded to start over.
0600: 10 CE 03 FF LDS #$03FF ; Stack 0604: 8E 01 B1 LDX #$01B1 ; Temporaries (not 1B0 ... interesting) 0607: C6 64 LDB #$64 ; 0x64 bytes 0609: 6F 80 CLR ,X+ ; clear ... 060B: 5A DECB ; ... the ... 060C: 26 FB BNE $0609 ; ... temporaries 060E: 4F CLRA 060F: 8E 04 00 LDX #$0400 ; Start of screen 0612: CE 60 60 LDU #$6060 ; Space - Space 0615: EF 81 STU ,X++ ; Clear ... 0617: 4A DECA ; ... the ... 0618: 26 FB BNE $0615 ; ... screen 061A: 8E 05 E0 LDX #$05E0 ; Cursor ... 061D: 9F 88 STX <cursor ; ... position 061F: 86 0D LDA #$0D ; Scroll ... 0621: B7 01 B0 STA m01B0 ; ... count 0624: 8E 10 21 LDX #$1021 ; "WELCOME TO PYRAMID!!" 0627: BD 08 FC JSR PrintUnpacked ; Print message 062A: BD 09 37 JSR ReadKey ; wait for key 062D: 86 01 LDA #$01 ; Starting ... 062F: B7 18 E5 STA curRoom ; ... room number 0632: BD 0B D2 JSR PrintRoomDescription; Print room description
Main Loop
MainLoop: 0635: 7F 01 E7 CLR m01E7 ; Clear noun (object within reach) 0638: 7F 01 E8 CLR m01E8 ; Clear verb (thorw, north, rub, etc) 063B: 7F 01 E9 CLR m01E9 ; Grammar type (verb, verb+nounInReach, verb+nounInPack) 063E: BD 06 F5 JSR GetInputAndParse ; Get user input and parse 0641: B6 18 E5 LDA curRoom ; Current room 0644: 8E 11 2E LDX #$112E ; Room descriptors 0647: BD 06 85 JSR FourTableOffset ; X = X + (A-1)*4 064A: 30 02 LEAX 2,X ; Command-script ... 064C: AE 84 LDX ,X ; ... to X 064E: BD 06 9D JSR ProcessRoomScript ; Process the command script for the room 0651: 26 0E BNE $0661 ; The room handled it ... move on 0653: 8E 19 45 LDX #$1945 ; Generic command script 0656: BD 06 9D JSR ProcessRoomScript ; Process the input 0659: 26 06 BNE $0661 ; It was handled ... move on 065B: 8E 33 87 LDX #$3387 ; "I DON'T KNOW HOW TO APPLY THAT WORD HERE." 065E: BD 08 D6 JSR PrintPackedMessage ; Print message 0661: BD 0A 51 JSR AfterEveryStep ; Do this stuff after every step 0664: 20 CF BRA MainLoop ; Back to top of loop
Get Object Info
An object has a location -- either because it is directly "there" or because it is contained by another object that is "there". This method looks up the object data of the object or the container and returns the location in B and the object pointer (or container pointer) in X.
Parameters:
- A: object number
Return:
- B: object's location (or location of container)
- X: pointer to object's data (or container's data)
- Z: comparison between object's location and $01BC
GetObjectInfo: 0666: 8E 18 8D LDX #$188D ; Object location table 0669: BD 06 7C JSR TwoTableOffset ; A is location 066C: A6 80 LDA ,X+ ; Get object data 066E: E6 84 LDB ,X ; Get room (or container) 0670: 85 80 BITA #$80 ; Is object contained by another? 0672: 1F 98 TFR B,A ; Room/container to A 0674: 26 F0 BNE GetObjectInfo ; Yes ... lookup the container object 0676: 30 1F LEAX -1,X ; Point to start of object 0678: B1 01 BC CMPA m01BC ; Compare object's location to test location 067B: 39 RTS ; Done
Table Offset Routines
Objects and rooms are numbered beginning with 1. These routines look up two-byte and four-byte values from a table with A as the begins-with-1 offset.
TwoTableOffset: ; X = X + (A-1)*2 ; 067C: 1F 89 TFR A,B ; A extended ... 067E: 4F CLRA ; .. to D 067F: 5A DECB ; Object table is 1 based 0680: 58 LSLB ; D = D ... 0681: 49 ROLA ; ... * 2 0682: 30 8B LEAX D,X ; Add D to X 0684: 39 RTS ; Done FourTableOffset: ; X = X + (A-1)*4 ; 0685: 1F 89 TFR A,B ; A extended ... 0687: 4F CLRA ; ... to D 0688: 5A DECB ; Room table is 1 based 0689: 58 LSLB ; D = D ... 068A: 49 ROLA ; ... * 2 068B: 58 LSLB ; D = D ... 068C: 49 ROLA ; ... * 2 068D: 30 8B LEAX D,X ; Add D to X 068F: 39 RTS ; Done
Move Object
This routine moves an object (or its container) to a new location.
Parameters:
- B: object number
- $01BC: new location
Return:
- X: object pointer
MoveObject: 0690: BD 06 66 JSR GetObjectInfo ; Find object (or object's container) 0693: 30 01 LEAX 1,X ; Object's location 0695: B6 01 BC LDA m01BC ; New value 0698: A7 84 STA ,X ; Move object to new location 069A: 30 1F LEAX -1,X ; Restore object pointer 069C: 39 RTS ; Done
Process Room Script
A room script is a list of verbs with the commands that go with each. This function looks for the one script that matches the verb in $01E8. Then it runs the script. If the script "passes" then this function returns Z=0.
If there is no script to match the verb or if the script "fails" then this function returns Z=1.
Parameters:
- X: points to a list of choices for first-word tokens
Return:
- Z SET (EQ) ... no script found OR script was found but it failed
- Z CLEAR (NE) ... script was found and all commands passed
Format of word/script description list:
AA LL N0 N1 N2 ; First word AA and script comands (N) for AA. LL is size of command list. BB LL N0 N1 ; Second word BB and script commands (N) for BB. LL is size of command list. 00 ; End of list
ProcessRoomScript: 069D: E6 84 LDB ,X ; Get command verb 069F: 27 FB BEQ $069C ; End of list ... out (Z SET (EQ) no matching script) 06A1: F6 01 E8 LDB m01E8 ; User's verb 06A4: E1 80 CMPB ,X+ ; Does this list match the input verb? 06A6: 27 05 BEQ $06AD ; Yes ... run the list 06A8: E6 84 LDB ,X ; Get length 06AA: 3A ABX ; Skip this list 06AB: 20 F0 BRA ProcessRoomScript ; Keep trying lists ; 06AD: BD 06 B4 JSR ProcessCommandList ; Run script (Z CLEAR (NE) all passed, Z SET (EQ) a command failed) 06B0: 26 EA BNE $069C ; If script passed then return Z CLEAR (NE) 06B2: 20 E9 BRA ProcessRoomScript ; Script failed ... try next word/script
Process Command List
This routine processes a list of commands. The list begins with the size of the list (bytes) followed by all the command bytes. The command addresses are looked up from a jump table. Each command returns to either the "!FuncPassed" or the "!FuncFailed".
If a command fails then the processing starts and this script "fails". Otherwise all commands are executed one after the other.
If all commands pass then the script "passes".
List format:
LL A0 A1 B0 B1 B2 B3 C0 C1 ... ; LL is length followed by commands A, B, and C ...
Parameters:
- X: start of script
Return:
- Z SET (EQ) failed
- Z CLEAR (NE) passed
ProcessCommandList: 06B4: 1F 13 TFR X,U ; Hold start of script 06B6: E6 84 LDB ,X ; Length of script 06B8: 3A ABX ; Turn into pointer 06B9: 34 10 PSHS X ; Save pointer to end-of-script position 06BB: 1F 31 TFR U,X ; Start of script back to X 06BD: 30 01 LEAX 1,X ; Skip over script length 06BF: A6 80 LDA ,X+ ; Get command number 06C1: 34 10 PSHS X ; Hold current script pointer 06C3: 8E 0A 17 LDX #$0A17 ; Jump table 06C6: BD 06 7C JSR TwoTableOffset ; Offest 06C9: 6E 94 JMP [,X] ; Indirection here ... processing function word ; ; Return from all script commands come here. We either get FuncPassed in which we ; continue to the next (returning a Z CELAR (NE) "pass" when finished). Or we get ; a FuncFailed in which we abort the list and return Z SET (EQ) "fail". ; ; FuncPassed ; 06CB: 35 10 PULS X ; Script pointer 06CD: 35 20 PULS Y ; End-of-script position 06CF: 10 BF 01 BF STY m01BF ; Have we reached ... 06D3: BC 01 BF CMPX m01BF ; ... the end of current script? 06D6: 26 03 BNE $06DB ; No ... keep processing this script 06D8: 8A 01 ORA #$01 ; Z CLEAR (all script commands passed) 06DA: 39 RTS ; Done ; 06DB: 34 20 PSHS Y ; Put the end-of-script position back on the stack 06DD: 20 E0 BRA $06BF ; Next routine ; ; FuncFailed ; 06DF: 35 10 PULS X ; Script pointer 06E1: 35 10 PULS X ; End=of-script position 06E3: 4F CLRA ; Z SET (a script command failed) 06E4: 39 RTS ; Done
COM_07_stop_if_pass()
This game command runs a subscript. If the subscript passes then the entire script (no matter how many subscripts-deep) ends with a "pass". If the subscript fails then the subscript returns "pass" and the next command in the script is executed.
The GET script, for instance, is a list of subscripts that attempt to process specific gets one at a time. Like GET WATER then GET SERPENT then GET PLANT and so on. If the first fails (like WATER is not in the room) then the subscript ends and the script continues with the next command (the next subscript).
If the second subscript passes (like the SERPENT is here) then the entire script aborts with a "pass".
COM_07_stop_if_pass: 06E5: 35 10 PULS X ; Script pointer 06E7: BD 06 B4 JSR ProcessCommandList ; Run script (Z CLEAR (NE) all passed, Z SET (EQ) a command failed) 06EA: 34 10 PSHS X ; Script pointer back to stack 06EC: 27 DD BEQ $06CB ; A command failed ... continue parent list 06EE: 35 10 PULS X ; Pop script pointer 06F0: 35 10 PULS X ; Pop end-of-script pointer 06F2: 8A 01 ORA #$01 ; Script passed ... completely abort processing (with Z CLEAR (NE) all passed) 06F4: 39 RTS ; Done
Get Input And Parse
This function prompts the user for a command line and parses it. This function does not return until a usable command line has been entered.
Return:
- 01E7 - verb
- 01E8 - object number (noun)
- 01E9 - gramar type
GetInputAndParse: 06F5: BD 09 B3 JSR PromptAndReadLine ; Fill input buffer 06F8: 86 0D LDA #$0D ; Rows left ... 06FA: B7 01 B0 STA m01B0 ; ... until MORE 06FD: BD 07 C6 JSR $07C6 ; Parse the input string 0700: BE 01 B4 LDX m01B4 ; Pointer to noun word data 0703: F6 01 B2 LDB m01B2 ; Number of bytes in word data 0706: B6 01 E9 LDA m01E9 ; Word grammar 0709: 81 03 CMPA #$03 ; Value 3 means nothing in buffer 070B: 27 E8 BEQ GetInputAndParse ; Nothing in buffer ... input again 070D: B6 01 E7 LDA m01E7 ; Noun 0710: 26 29 BNE $073B ; We have a noun ... test it 0712: B6 01 E8 LDA m01E8 ; Action word (throw, rub, get, etc) 0715: 26 15 BNE $072C ; There is a valid action word ... go handle it ; ; General error message ... didn't understand a thing 0717: F6 01 EA LDB m01EA ; Last general error message 071A: 5C INCB ; Point to next 071B: C4 03 ANDB #$03 ; Roll around over 4 messages 071D: F7 01 EA STB m01EA ; For next time 0720: 8E 0F 24 LDX #$0F24 ; Table of general error messages 0723: 58 LSLB ; Index to offset 0724: 3A ABX ; Point to error message 0725: AE 84 LDX ,X ; Get address of general error message 0727: BD 08 FC JSR PrintUnpacked ; Print the error 072A: 20 C9 BRA GetInputAndParse ; Back for more ; 072C: B6 01 E9 LDA m01E9 ; Action word type 072F: 81 C0 CMPA #$C0 ; 11_000_000 means single word command 0731: 27 C1 BEQ $06F4 ; Done 0733: 8E 0F A2 LDX #$0FA2 ; "**verb** WHAT?" 0736: BD 08 FC JSR PrintUnpacked ; Print it (was expecting an object) 0739: 20 BA BRA GetInputAndParse ; Try input again ; ; Validate noun 073B: BF 01 B4 STX m01B4 ; Save pointer to noun word data 073E: B6 01 B1 LDA m01B1 ; Was the last input an object and we asked for a verb? 0741: 26 6F BNE $07B2 ; Yes ... skip checking the noun (use what we have) 0743: 86 FF LDA #$FF ; Location: backpack 0745: B7 01 BC STA m01BC ; Parameter for GetObjectInfo compare 0748: A6 80 LDA ,X+ ; Get object number 074A: BF 01 B4 STX m01B4 ; Hold noun word data pointer 074D: 34 04 PSHS B ; Hold B 074F: BD 06 66 JSR GetObjectInfo ; Find object 0752: 35 04 PULS B ; Restore B 0754: 27 52 BEQ $07A8 ; Object is actually in pack ... go use it 0756: B6 01 E9 LDA m01E9 ; Grammar type 0759: 81 40 CMPA #$40 ; 01_000_000 means noun-in-pack 075B: 27 16 BEQ $0773 ; Yes ... check pack 075D: BE 01 B4 LDX m01B4 ; Noun word pointer 0760: 30 1F LEAX -1,X ; Back up word pointer 0762: B6 18 E5 LDA curRoom ; Current room 0765: B7 01 BC STA m01BC ; Parameter to GetObjectInfo 0768: A6 84 LDA ,X ; Object number 076A: 34 04 PSHS B ; Hold B 076C: BD 06 66 JSR GetObjectInfo ; Find object 076F: 35 04 PULS B ; Restore B 0771: 27 35 BEQ $07A8 ; Yes ... object is in room. Use it. 0773: BE 01 B4 LDX m01B4 ; Restore word data pointer 0776: 5A DECB ; All objects of this name tried? 0777: 26 CA BNE $0743 ; No ... keep looking for matching object ; ; Object not found error (either not in pack or not in room depending on grammar) 0779: B6 01 E9 LDA m01E9 ; Grammar type 077C: 81 40 CMPA #$40 ; 01_000_000 means noun-in-pack 077E: 26 05 BNE $0785 ; Error ... can't find noun in room 0780: 8E 0F 3D LDX #$0F3D ; "YOU AREN'T CARRYING IT." (can't find noun in pack) 0783: 20 19 BRA $079E ; Print and back to try again ; 0785: 8E 0F 2C LDX #$0F2C ; " I SEE NO " 0788: BD 08 FC JSR PrintUnpacked ; Print it 078B: 86 01 LDA #$01 ; Replace '?' with ... 078D: B7 0F A0 STA unknownNounPunct ; ... no-CR terminator 0790: 8E 0F 78 LDX #$0F78 ; User typed object 0793: BD 08 FC JSR PrintUnpacked ; Print the object 0796: 86 3F LDA #$3F ; Restore the ... 0798: B7 0F A0 STA unknownNounPunct ; ... '?' at the end of the message 079B: 8E 0F 36 LDX #$0F36 ; " HERE." 079E: BD 08 FC JSR PrintUnpacked ; Print it 07A1: 4F CLRA ; Zero out ... 07A2: B7 01 E7 STA m01E7 ; ... object 07A5: 7E 06 F5 JMP GetInputAndParse ; Back to try input again ; ; Found object 07A8: BE 01 B4 LDX m01B4 ; Object data pointer 07AB: 30 1F LEAX -1,X ; Back up to start 07AD: A6 84 LDA ,X ; Get object number 07AF: B7 01 E7 STA m01E7 ; Noun 07B2: B6 01 E8 LDA m01E8 ; Verb 07B5: 27 01 BEQ $07B8 ; Noun but no verb ... prompt for the verb 07B7: 39 RTS ; Got verb and noun. Done ; 07B8: 8E 0F 55 LDX #$0F55 ; "WHAT DO YOU WANT ME TO DO WITH THE *****?" 07BB: BD 08 FC JSR PrintUnpacked ; Print message 07BE: 86 01 LDA #$01 ; We got the object .... 07C0: B7 01 B1 STA m01B1 ; ... will take just verb 07C3: 7E 06 F5 JMP GetInputAndParse ; Get user input and parse ; ; Parse the input line 07C6: 8E 01 C6 LDX #$01C6 ; Start of input buffer 07C9: 7F 01 B3 CLR m01B3 ; Nothing in buffer to start with 07CC: 7F 01 E9 CLR m01E9 ; Grammar type 07CF: 10 8E 3C 40 LDY #$3C40 ; Word table 07D3: 10 BF 01 F0 STY m01F0 ; Hold pointer ; ; Skip spaces before a word 07D7: A6 84 LDA ,X ; Next in input 07D9: 81 20 CMPA #$20 ; Skip ... 07DB: 26 04 BNE $07E1 ; ... over ... 07DD: 30 01 LEAX 1,X ; ... white ... 07DF: 20 F6 BRA $07D7 ; ... space ; 07E1: BF 01 F2 STX m01F2 ; Start of token 07E4: 4D TSTA ; End of buffer? 07E5: 10 27 00 A2 LBEQ $088B ; Yes ... done 07E9: 86 01 LDA #$01 ; Flag that something ... 07EB: B7 01 B3 STA m01B3 ; ... is in the buffer 07EE: 34 10 PSHS X ; Remember start of token 07F0: A6 A4 LDA ,Y ; From word table 07F2: 10 27 00 A0 LBEQ $0896 ; Word not found ... clear 1E8 and 1E7 and skip it 07F6: B7 01 F8 STA m01F8 ; Store word's data 07F9: 84 07 ANDA #$07 ; Lower 3 bits 07FB: B7 01 BA STA m01BA ; Token length 07FE: B7 01 F4 STA m01F4 ; Token length again 0801: F6 01 F8 LDB m01F8 ; Original byte 0804: C4 38 ANDB #$38 ; Middle 3 bits (bytes in token data) 0806: 57 ASRB ; Shifted ... 0807: 57 ASRB ; ... to ... 0808: 57 ASRB ; ... lower in B 0809: 10 BF 01 F0 STY m01F0 ; Current word pointer 080D: 31 21 LEAY 1,Y ; Next byte ; ; Check input against current word-table ptr 080F: A6 A4 LDA ,Y ; Get character 0811: A1 84 CMPA ,X ; Matches? 0813: 26 65 BNE $087A ; Nope ... go to next 0815: 30 01 LEAX 1,X ; Next in input 0817: 31 21 LEAY 1,Y ; Next in token 0819: 7A 01 BA DEC m01BA ; All done? 081C: 26 F1 BNE $080F ; No ... check em all 081E: B6 01 F4 LDA m01F4 ; Token length 0821: 81 06 CMPA #$06 ; Token is 6 long and we matched all? 0823: 27 09 BEQ $082E ; Yes ... take it but skip any non checked at end 0825: A6 84 LDA ,X ; Next character from user 0827: 81 20 CMPA #$20 ; A space? 0829: 27 10 BEQ $083B ; Yes ... perfect match 082B: 4D TSTA ; End of user input? 082C: 26 53 BNE $0881 ; No ... skip token data and try next token ; 082E: A6 84 LDA ,X ; Get character 0830: 81 20 CMPA #$20 ; A space? 0832: 27 07 BEQ $083B ; Yes ... found the end 0834: 4D TSTA ; End of buffer? 0835: 27 04 BEQ $083B ; Yes ... found the end 0837: 30 01 LEAX 1,X ; Skip the character 0839: 20 F3 BRA $082E ; Until space or end ; ; Input word matches word-table 083B: B6 01 F8 LDA m01F8 ; Original word data 083E: 84 C0 ANDA #$C0 ; Upper two bits 0840: 27 14 BEQ $0856 ; Go handle object data ; ; Word is a verb (store info) 0842: B7 01 E9 STA m01E9 ; Save the grammar type 0845: A6 A4 LDA ,Y ; Word value ... 0847: B7 01 E8 STA m01E8 ; ... is verb 084A: 34 10 PSHS X ; Hold pointer 084C: 8E 0F A2 LDX #$0FA2 ; Space for printing verb 084F: BD 08 B6 JSR $08B6 ; Copy it over 0852: 35 10 PULS X ; Restore 0854: 20 19 BRA $086F ; Continue with next token if there is a space next ; ; Word is a noun (store info) 0856: A6 A4 LDA ,Y ; Get word data 0858: B7 01 E7 STA m01E7 ; Store object number 085B: 10 BF 01 B4 STY m01B4 ; Store pointer to word data 085F: F7 01 B2 STB m01B2 ; Store size of object data (number of objects) 0862: 7F 01 B1 CLR m01B1 ; We no longer remember a past lone object 0865: 34 10 PSHS X ; Hold pointer 0867: 8E 0F 78 LDX #$0F78 ; "WHAT DO YOU WANT ME TO DO WITH THE ***** ?" 086A: BD 08 B6 JSR $08B6 ; Make the error message in case 086D: 35 10 PULS X ; Restore the pointer 086F: A6 84 LDA ,X ; Next in input buffer 0871: 81 20 CMPA #$20 ; A space means more to process 0873: 35 20 PULS Y ; Drop stacked word pointer 0875: 10 27 FF 56 LBEQ $07CF ; Parse next token 0879: 39 RTS ; Done ; ; Skip over current entry in token table 087A: 31 21 LEAY 1,Y ; Skip to ... 087C: 7A 01 BA DEC m01BA ; ... end of ... 087F: 26 F9 BNE $087A ; ... token text 0881: 31 21 LEAY 1,Y ; Skip to ... 0883: 5A DECB ; ... end of ... 0884: 26 FB BNE $0881 ; ... token data 0886: 35 10 PULS X ; Restore pointer to start of input word 0888: 7E 07 D7 JMP $07D7 ; Keep trying ; 088B: B6 01 B3 LDA m01B3 ; Something in the buffer? 088E: 26 E9 BNE $0879 ; Yes ... go handle it 0890: 86 03 LDA #$03 ; Grammar type 3 means ... 0892: B7 01 E9 STA m01E9 ; ... nothing in buffer 0895: 39 RTS ; Done ; Skip leading space in front of token and then skip to next token. ; If there is another token go back and decode. Otherwise return. 0896: 35 10 PULS X ; Restore pointer to token 0898: 7F 01 E8 CLR m01E8 ; Clear action word 089B: 7F 01 E7 CLR m01E7 ; Clear object number 089E: A6 84 LDA ,X ; Character from token 08A0: 81 20 CMPA #$20 ; Space? 08A2: 26 04 BNE $08A8 ; No ... we found the token 08A4: 30 01 LEAX 1,X ; Yes space. Skip ... 08A6: 20 F6 BRA $089E ; ... to start of token 08A8: A6 84 LDA ,X ; Character from token 08AA: 27 E9 BEQ $0895 ; End of buffer ... done 08AC: 81 20 CMPA #$20 ; Space? 08AE: 10 27 FF 1D LBEQ $07CF ; Yes ... start decoding next token 08B2: 30 01 LEAX 1,X ; Skip character 08B4: 20 F2 BRA $08A8 ; Keep looking ; Copy input word to 40-byte destination buffer. Fill end of the buffer ; with '@' characters which are ignored by printer routine. 08B6: 1E 12 EXG X,Y ; Destination to Y 08B8: BE 01 F2 LDX m01F2 ; Current word in parse buffer 08BB: C6 28 LDB #$28 ; Max size 08BD: A6 84 LDA ,X ; Character from input word 08BF: 27 0D BEQ $08CE ; End of buffer ... end of word 08C1: 81 20 CMPA #$20 ; Space is end ... 08C3: 27 09 BEQ $08CE ; ... of word 08C5: A7 A0 STA ,Y+ ; Copy the input word ... 08C7: 30 01 LEAX 1,X ; ... to the destination 08C9: 5A DECB ; All room ... 08CA: C1 01 CMPB #$01 ; ... taken? 08CC: 26 EF BNE $08BD ; No ... keep going 08CE: 86 40 LDA #$40 ; '@' characters are ignored by printing 08D0: A7 A0 STA ,Y+ ; Fill out ... 08D2: 5A DECB ; ... rest of ... 08D3: 26 F9 BNE $08CE ; ... destination buffer 08D5: 39 RTS ; Done
Print Packed Message
Unpack a message (or multiple packed messages) and print.
Parameters:
- X: pointer to message structure
PrintPackedMessage: 08D6: A6 84 LDA ,X ; Get the length 08D8: 27 FB BEQ $08D5 ; None ... out 08DA: 30 01 LEAX 1,X ; Skip over length 08DC: 10 8E 01 C6 LDY #$01C6 ; Reuse input buffer 08E0: BD 10 66 JSR UnpackMessage ; Unpack and print 08E3: E6 84 LDB ,X ; Get byte 08E5: 27 2C BEQ $0913 ; 0 ... do CR 08E7: C1 01 CMPB #$01 ; 1 ... 08E9: 27 EA BEQ $08D5 ; ... no CR 08EB: 34 10 PSHS X ; Hold pointer 08ED: 1F 98 TFR B,A ; Character to A 08EF: BD 09 45 JSR PrintCharAutoWrap ; Print character to screen 08F2: 35 10 PULS X ; Restore pointer 08F4: A6 80 LDA ,X+ ; Get next byte from unpacked 08F6: 81 0A CMPA #$0A ; Mark for another packing? 08F8: 27 DC BEQ PrintPackedMessage ; Yes ... start again 08FA: 20 E7 BRA $08E3 ; No ... continue this packing
Print an Unpacked Message
Print an uncompressed message pointed to by X.
Any '@' characters are ignored (allows for padding of words added into a message string).
The messages is terminated by either a 0 or a 1. If the terminator is a 0 then a CR is added. If the terminator is a 1 then no CR is added.
PrintUnpacked: 08FC: A6 84 LDA ,X ; Get byte 08FE: 27 13 BEQ $0913 ; End with CR 0900: 81 01 CMPA #$01 ; Just stop printing ... 0902: 27 D1 BEQ $08D5 ; ... with no CR 0904: 81 40 CMPA #$40 ; Is it '@' 0906: 27 07 BEQ $090F ; Just ignore it 0908: 34 10 PSHS X ; Save X 090A: BD 09 45 JSR PrintCharAutoWrap ; A to screen 090D: 35 10 PULS X ; Restore X 090F: 30 01 LEAX 1,X ; Next in message 0911: 20 E9 BRA PrintUnpacked ; Keep going ; ; Print a CR 0913: 86 0D LDA #$0D ; CR 0915: BD 09 45 JSR PrintCharAutoWrap ; Print a CR 0918: 7A 01 B0 DEC m01B0 ; Rows left before more 091B: 2B 01 BMI MorePrompt ; Pause print out with MORE 091D: 39 RTS ; Done
MorePrompt
Print MORE and wait for key.
MorePrompt: 091E: 34 74 PSHS U,Y,X,B ; 0920: 86 0D LDA #$0D ; Reset MORE ... 0922: B7 01 B0 STA m01B0 ; ... row count 0925: 8E 10 19 LDX #$1019 ; " MORE" message 0928: BD 08 FC JSR PrintUnpacked ; Print message 092B: BD 09 37 JSR ReadKey ; Wait for user to press a key 092E: 9E 88 LDX <cursor ; Back pointer ... 0930: 30 19 LEAX -7,X ; ... up 7 over ... 0932: 9F 88 STX <cursor ; ... MORE prompt 0934: 35 74 PULS B,X,Y,U ; 0936: 39 RTS ; ReadKey: ; Read a key from keyboard ; 0937: 34 20 PSHS Y ; Save Y 0939: 7C 01 EB INC m01EB ; Counter 093C: AD 9F A0 00 JSR [POLCAT] ; Get a key 0940: 27 F7 BEQ $0939 ; Keep going till we get one 0942: 35 20 PULS Y ; Restore 0944: 39 RTS ; Out PrintCharAutoWrap: ; Print character in A to screen. This handles auto word-wrapping and ; auto MORE prompting. ; 0945: F6 02 07 LDB m0207 ; Last printed character 0948: C1 20 CMPB #$20 ; Last printed a space? 094A: 26 16 BNE $0962 ; No ... skip on 094C: 81 20 CMPA #$20 ; Printing a second space now? 094E: 27 5B BEQ $09AB ; Yes ... just skip it (More and out) 0950: 81 2E CMPA #$2E ; A '.' ? 0952: 27 08 BEQ $095C ; Yes. Ignore leading space. 0954: 81 3F CMPA #$3F ; A '?' ? 0956: 27 04 BEQ $095C ; Yes. Ignore leading space. 0958: 81 21 CMPA #$21 ; A '!' ? 095A: 26 06 BNE $0962 ; No. Don't ignore space. ; 095C: DE 88 LDU <cursor ; Back screen ... 095E: 33 5F LEAU -1,U ; ... pointer up ... 0960: DF 88 STU <cursor ; ... over ignored space ; 0962: B7 02 07 STA m0207 ; Store last printed character 0965: AD 9F A0 02 JSR [CHROUT] ; Print A to screen 0969: 96 89 LDA <cursor+1 ; LSB of screen position (we know MSB is a 4 or 5) 096B: 81 FE CMPA #$FE ; Have we reached the end of the screen? 096D: 25 3C BCS $09AB ; No ... handle any MORE and out 096F: DE 88 LDU <cursor ; Cursor position 0971: 33 C8 DF LEAU $-21,U ; Back up to end of current row (where it will be after CR) 0974: 86 0D LDA #$0D ; CR ... 0976: AD 9F A0 02 JSR [CHROUT] ; ... to screen 097A: 7A 01 B0 DEC m01B0 ; Rows left until MORE is needed 097D: A6 C4 LDA ,U ; Find the ... 097F: 81 60 CMPA #$60 ; ... space before ... 0981: 27 04 BEQ $0987 ; ... the last ... 0983: 33 5F LEAU -1,U ; ... word ... 0985: 20 F6 BRA $097D ; ... on the line ; 0987: 33 41 LEAU 1,U ; Now pointing to the last word on the line 0989: A6 C4 LDA ,U ; Get next character in buffer 098B: 81 60 CMPA #$60 ; Is it a space? 098D: 27 1C BEQ $09AB ; Yes ... all done 098F: C6 60 LDB #$60 ; Store a space ... 0991: E7 C4 STB ,U ; ... over this on screen 0993: 81 60 CMPA #$60 ; Make sure ... 0995: 25 02 BCS $0999 ; ... upper ... 0997: 80 40 SUBA #$40 ; ... case 0999: B7 02 07 STA m0207 ; Store last printed character 099C: AD 9F A0 02 JSR [CHROUT] ; Print A to screen on new line 09A0: 20 E5 BRA $0987 ; Move overhang to next line ; 09A2: 34 20 PSHS Y ; Send character ... 09A4: AD 9F A0 02 JSR [CHROUT] ; ... to ... 09A8: 35 20 PULS Y ; ... screen 09AA: 39 RTS ; Done ; 09AB: 7D 01 B0 TST m01B0 ; Time for a MORE prompt? 09AE: 10 2B FF 6C LBMI MorePrompt ; Yes ... do it and out 09B2: 39 RTS ; Done PromptAndReadLine: ; Fill input buffer at 1C6 with user input line 09B3: 86 3A LDA #$3A ; A ':' 09B5: BD 09 A2 JSR $09A2 ; Print character without processing 09B8: BD 0A 13 JSR $0A13 ; Print white-ish block 09BB: 8E 01 C6 LDX #$01C6 ; Input buffer 09BE: 7F 01 BA CLR m01BA ; Input buffer is empty 09C1: 34 34 PSHS Y,X,B ; Get ... 09C3: BD 09 37 JSR ReadKey ; ... key from ... 09C6: 35 34 PULS B,X,Y ; ... player 09C8: 1F 89 TFR A,B ; Hold original key 09CA: 81 08 CMPA #$08 ; A backspace? 09CC: 27 2A BEQ $09F8 ; Yes ... handle backspace 09CE: A7 84 STA ,X ; Save the input to the buffer 09D0: BD 09 A2 JSR $09A2 ; Send the character to the screen 09D3: 81 0D CMPA #$0D ; Was it ENTER 09D5: 27 33 BEQ $0A0A ; Yes ... store a 0 on end of buffer and clear cursor and DONE 09D7: 8D 3A BSR $0A13 ; Set cursor to whiteish block 09D9: 7C 01 BA INC m01BA ; Increment character count 09DC: 30 01 LEAX 1,X ; Next in buffer pointer 09DE: 10 8E 01 E4 LDY #$01E4 ; Have ... 09E2: 10 BF 01 BF STY m01BF ; ... we ... 09E6: BC 01 BF CMPX m01BF ; ... reached end of buffer? 09E9: 25 D6 BCS $09C1 ; No ... keep taking keys 09EB: 8D 1F BSR $0A0C ; End of buffer ... 09ED: 86 08 LDA #$08 ; ... pretend ... 09EF: 8D B1 BSR $09A2 ; ... it ... 09F1: BD 0A 13 JSR $0A13 ; ... is ... 09F4: 30 1F LEAX -1,X ; ... backspace 09F6: 20 C9 BRA $09C1 ; Take next key ; ; Backspace 09F8: 30 1F LEAX -1,X ; Back the buffer up one 09FA: 8C 01 C6 CMPX #$01C6 ; Already at the beginning? 09FD: 25 BC BCS $09BB ; Yes ... ignore the backspace 09FF: 8D 0B BSR $0A0C ; Store space character to cursor 0A01: 86 08 LDA #$08 ; Send back-space ... 0A03: BD 09 A2 JSR $09A2 ; ... to screen 0A06: 8D 0B BSR $0A13 ; Show white-ish block cursor 0A08: 20 B7 BRA $09C1 ; Loop back for next key ; 0A0A: 6F 84 CLR ,X ; New end of the input buffer 0A0C: 86 60 LDA #$60 ; Space character 0A0E: A7 9F 00 88 STA [cursor] ; Store to cursor 0A12: 39 RTS ; Done 0A13: 86 CF LDA #$CF ; White-ish block 0A15: 20 F7 BRA $0A0E ; Store to cursor and done
Script Commands
; This lookup table holds the pointers to the individual script commands. Each command
; reads 1 or 2 bytes of data from the script. The number of extra bytes read is show
; for reference in the table.
ScriptCommands:
0A17: 0B 05 ; COM_01_move_look(room_num)
0A19: 0C 68 ; COM_02_is_in_pack(obj_num)
0A1B: 0C 7E ; COM_03_is_in_pack_or_current_room(obj_num)
0A1D: 0D 10 ; COM_04_print(ps_num)
0A1F: 0F 18 ; COM_05_death_and_resurrect()
0A21: 00 00
0A23: 06 E5 ; COM_07_stop_if_pass()
0A25: 0F 12 ; COM_08_print_score()
0A27: 0F 18 ; COM_09_end_of_game()
0A29: 0C C6 ; COM_0A_pyramid_crawl_move_random(value)
0A2B: 0D 1C ; COM_0B_drop_object_print_ok(obj_num)
0A2D: 0C E0 ; COM_0C_move_to_room_if_was_last(room_num)
0A2F: 0C AB ; COM_0D_is_pack_just_emerald()
0A31: 0D 33 ; COM_0E_move_to_last_room()
0A33: 0D 4D ; COM_0F_print_inventory()
0A35: 0D 92 ; COM_10_print_room_description()
0A37: 0D 98 ; COM_11_is_object_user_input(obj_num)
0A39: 0D A6 ; COM_12_get_from_room_print_ok(obj_num)
0A3B: 00 00
0A3D: 0D E8 ; COM_14_print_ok()
0A3F: 0D F1 ; COM_15_move_object_to_room(obj_num, room_num)
0A41: 0C F4 ; COM_16_get_users_object_print_ok()
0A43: 0D E2 ; COM_17_drop_users_object_print_ok()
0A45: 0C 39 ; COM_18_move_object_to_current_room(obj_num)
0A47: 0C 4B ; COM_19_put_object_in_container_print_ok(obj_num, obj_num)
0A49: 0C 97 ; COM_1A_is_in_current_room(obj_num)
0A4B: 0E BB ; COM_1B_load_game()
0A4D: 0E 81 ; COM_1C_save_game()
0A4F: 0F 1D ; COM_1D_scramble_directions_print_ack()
After Every Step
This processing takes place after every user input. 1. Increment the count on the lamp and the number of turns. 2. Warn the player if the lamp is going dim and change the batteries automatically.
AfterEveryStep: 0A51: 86 0F LDA #$0F ; Lamp (lit version) 0A53: 8E 18 8D LDX #$188D ; Object table 0A56: BD 06 7C JSR TwoTableOffset ; Get lamp's data 0A59: 30 01 LEAX 1,X ; Lit-lamp's location 0A5B: A6 84 LDA ,X ; Get the location 0A5D: 27 54 BEQ $0AB3 ; Not turned on ... skip the burn time ; ; Lamp is lit. Increment the burn time. 0A5F: FC 18 E8 LDD lampTime ; Get time 0A62: C3 00 01 ADDD #$0001 ; Bump time ... 0A65: FD 18 E8 STD lampTime ; ... by one 0A68: 81 01 CMPA #$01 ; Has it been burning 256 turns? 0A6A: 26 47 BNE $0AB3 ; No ... skip checks (should be to $0AF2?) 0A6C: C1 22 CMPB #$22 ; Warn the player? 0A6E: 26 08 BNE $0A78 ; No ... 0A70: 8E 38 5A LDX #$385A ; "Your lamp is getting dim. Better start to wrap this up ..." 0A73: BD 08 D6 JSR PrintPackedMessage ; Print message 0A76: 20 7A BRA $0AF2 ; Continue ; 0A78: C1 36 CMPB #$36 ; Really getting dim now? 0A7A: 26 37 BNE $0AB3 ; No ... move on 0A7C: 86 0F LDA #$0F ; Find ... 0A7E: 8E 18 8D LDX #$188D ; ... lamp ... 0A81: BD 06 7C JSR TwoTableOffset ; ... room ... 0A84: 30 01 LEAX 1,X ; ... number 0A86: E6 84 LDB ,X ; Get the number 0A88: F7 01 BA STB m01BA ; Hold it 0A8B: 6F 84 CLR ,X ; Room is now ... nowhere 0A8D: 8E 18 8D LDX #$188D ; Object data 0A90: 86 2C LDA #$2C ; Dead lamp 0A92: BD 06 7C JSR TwoTableOffset ; Offset 0A95: F6 01 BA LDB m01BA ; Lamp's room number 0A98: 30 01 LEAX 1,X ; Dead lamp ... 0A9A: E7 84 STB ,X ; ... to pack 0A9C: 86 23 LDA #$23 ; Batteries 0A9E: C6 FF LDB #$FF ; Pack 0AA0: F7 01 BC STB m01BC ; For find 0AA3: BD 06 66 JSR GetObjectInfo ; Batteries in pack? 0AA6: 27 0B BEQ $0AB3 ; Yes ... change them 0AA8: 8E 38 D8 LDX #$38D8 ; "Your lamp has run out of power." 0AAB: BD 08 D6 JSR PrintPackedMessage ; Print message 0AAE: BD 0B D2 JSR PrintRoomDescription; Print room description (it's dark) 0AB1: 20 3F BRA $0AF2 ; Continue ; ; Attempt to change batteries 0AB3: BE 18 E8 LDX lampTime ; Current lamp time 0AB6: 8C 01 2C CMPX #$012C ; Time to change batteries? 0AB9: 25 37 BCS $0AF2 ; No ... keep going 0ABB: 86 FF LDA #$FF ; Pack 0ABD: B7 01 BC STA m01BC ; For find 0AC0: 86 23 LDA #$23 ; Batteries 0AC2: BD 06 66 JSR GetObjectInfo ; Do we have them? 0AC5: 26 2B BNE $0AF2 ; No ... on 0AC7: 86 2C LDA #$2C ; Dead-lamp 0AC9: BD 06 66 JSR GetObjectInfo ; In pack? 0ACC: 26 24 BNE $0AF2 ; No ... move on 0ACE: 30 01 LEAX 1,X ; Object room 0AD0: 6F 84 CLR ,X ; Get rid of dead-lamp 0AD2: 86 23 LDA #$23 ; Get ... 0AD4: 8E 18 8D LDX #$188D ; ... rid ... 0AD7: BD 06 7C JSR TwoTableOffset ; ... of ... 0ADA: 30 01 LEAX 1,X ; ... the ... 0ADC: 6F 84 CLR ,X ; ... batteries 0ADE: 30 02 LEAX 2,X ; Put worn out batteries ... 0AE0: 86 FF LDA #$FF ; ... in ... 0AE2: A7 84 STA ,X ; ... backpack ... 0AE4: B7 01 BC STA m01BC ; For move 0AE7: 86 0F LDA #$0F ; Move lit-lamp ... 0AE9: BD 06 90 JSR MoveObject ; ... to old lamp's location 0AEC: 8E 39 1D LDX #$391D ; "I'm changing the batteries ..." 0AEF: BD 08 D6 JSR PrintPackedMessage ; Print message ; ; Bump the turn-counter in BCD format 0AF2: B6 18 E7 LDA turnsLSB ; Number of turns LSB 0AF5: 8B 01 ADDA #$01 ; Add one 0AF7: 19 DAA ; Adjust BCD after addition 0AF8: B7 18 E7 STA turnsLSB ; New LSB 0AFB: B6 18 E6 LDA turnsMSB ; Number of turns MSB 0AFE: 89 00 ADCA #$00 ; Add overflow from LSB 0B00: 19 DAA ; Adjust BCD after addition 0B01: B7 18 E6 STA turnsMSB ; New MSB 0B04: 39 RTS ; Done
COM_01_move_look(room_num)
This routine moves the player to a new room. If there is light in the new room or light in the old room then the move always works. Otherwise there is a 60% chance the move kills you.
If there is light in the new room then the room description is printed.
After every move the code checks the pack for treasures. If there are 2 or more treasures then the Mummy moves them all to room 53 (the hard-to-find room in the maze). Then the code moves the chest to room 53. Up till now the chest has been in room 0 (out of play). The only way to make the chest appear in the maze is to encounter the Mummy!
Once the chest is in a room (any room) the Mummy no longer appears. You only see the Mummy once.
COM_01_move_look: 0B05: 35 10 PULS X ; Processing cursor 0B07: E6 80 LDB ,X+ ; Get room number 0B09: 34 10 PSHS X ; Update cursor 0B0B: F7 01 BB STB m01BB ; Remember value for later 0B0E: B6 18 E5 LDA curRoom ; Current room 0B11: B7 01 BC STA m01BC ; For find 0B14: 86 0F LDA #$0F ; Lamp (lit version) 0B16: BD 06 66 JSR GetObjectInfo ; Look for lamp in this room 0B19: 27 44 BEQ $0B5F ; Found it ... there is light 0B1B: 86 FF LDA #$FF ; Backpack value 0B1D: B7 01 BC STA m01BC ; For find 0B20: 86 0F LDA #$0F ; Lamp (lit version) 0B22: BD 06 66 JSR GetObjectInfo ; Look for lamp in backpack 0B25: 27 38 BEQ $0B5F ; Found it ... there is light 0B27: 8E 17 EB LDX #$17EB ; Ambient light table 0B2A: B6 18 E5 LDA curRoom ; Current room 0B2D: BD 06 7C JSR TwoTableOffset ; * 2 0B30: A6 84 LDA ,X ; Get value from table 0B32: 84 40 ANDA #$40 ; Light in room? 0B34: 26 29 BNE $0B5F ; Yes ... no lamp needed 0B36: B6 01 BB LDA m01BB ; New room number 0B39: B7 01 BC STA m01BC ; For find 0B3C: 8E 17 EB LDX #$17EB ; Ambient light table 0B3F: BD 06 7C JSR TwoTableOffset ; * 2 0B42: A6 84 LDA ,X ; Get value 0B44: 84 40 ANDA #$40 ; Light in room? 0B46: 26 17 BNE $0B5F ; Yes ... no lamp needed 0B48: 86 0F LDA #$0F ; Lamp (lit version) 0B4A: BD 06 66 JSR GetObjectInfo ; Get object's data 0B4D: 27 10 BEQ $0B5F ; We found it ... go on ; ; No light ... probable death (60%) 0B4F: B6 01 EB LDA m01EB ; Rolling timer (a random number) 0B52: 81 67 CMPA #$67 ; 103/256 = 40% chance of ... 0B54: 25 09 BCS $0B5F ; ... making it without light 0B56: 8E 37 9A LDX #$379A ; "You fell into a pit and broke ..." 0B59: BD 08 D6 JSR PrintPackedMessage ; Print message 0B5C: 7E 0F 18 JMP COM_05_death_and_resurrect; Endless loop ; ; The move was successful 0B5F: B6 18 E5 LDA curRoom ; Current room ... 0B62: B7 18 EA STA lastRoom ; ... is now the last room 0B65: B6 01 BB LDA m01BB ; New ... 0B68: B7 18 E5 STA curRoom ; ... current room 0B6B: BD 0B D2 JSR PrintRoomDescription; Print room description 0B6E: 86 2A LDA #$2A ; Object number for "Chest" 0B70: 8E 18 8D LDX #$188D ; Look up the ... 0B73: BD 06 7C JSR TwoTableOffset ; ... object 0B76: 30 01 LEAX 1,X ; Get ... 0B78: A6 84 LDA ,X ; ... object location 0B7A: 26 53 BNE $0BCF ; Chest is in the maze ... Mummy only happens once ; ; Count treasures in pack 0B7C: 86 2C LDA #$2C ; Number of objects 0B7E: B7 01 BA STA m01BA ; Counter 0B81: 8E 18 8D LDX #$188D ; Object table 0B84: 5F CLRB ; Count 0B85: A6 80 LDA ,X+ ; Get object data 0B87: 84 20 ANDA #$20 ; Is this treasure? 0B89: 27 07 BEQ $0B92 ; No ... skip this object 0B8B: A6 84 LDA ,X ; Is object ... 0B8D: 81 FF CMPA #$FF ; ... in pack? 0B8F: 26 01 BNE $0B92 ; No skip 0B91: 5C INCB ; Increment the count 0B92: 30 01 LEAX 1,X ; Next object 0B94: 7A 01 BA DEC m01BA ; Do ... 0B97: 26 EC BNE $0B85 ; ... all objects ; 0B99: C1 02 CMPB #$02 ; Got less than 2 treasures? 0B9B: 25 32 BCS $0BCF ; Yes ... don't steal just one ; ; Move all treasures in pack to room 53 (treasure room) 0B9D: 8E 18 8D LDX #$188D ; Object data 0BA0: 86 2C LDA #$2C ; 44 to do 0BA2: B7 01 BA STA m01BA ; Temporary counter 0BA5: A6 80 LDA ,X+ ; Get object data 0BA7: 84 20 ANDA #$20 ; Is this treasure? 0BA9: 27 0D BEQ $0BB8 ; No ... skip it 0BAB: A6 84 LDA ,X ; Object location 0BAD: 81 FF CMPA #$FF ; In pack? 0BAF: 26 07 BNE $0BB8 ; No ... skip it 0BB1: 86 35 LDA #$35 ; Treasure room in the maze 0BB3: A7 84 STA ,X ; Move treasure there 0BB5: 7A 18 EB DEC numInPack ; Minus one object in pack 0BB8: 30 01 LEAX 1,X ; Next object 0BBA: 7A 01 BA DEC m01BA ; All done? 0BBD: 26 E6 BNE $0BA5 ; No ... go back ; ; Now make chest appear in room 53 (treasure room) 0BBF: 86 35 LDA #$35 ; Move ... 0BC1: B7 01 BC STA m01BC ; ... chest ... 0BC4: 86 2A LDA #$2A ; ... to ... 0BC6: BD 06 90 JSR MoveObject ; ... treasure room 0BC9: 8E 39 D6 LDX #$39D6 ; "Mummy steals your treasure ..." 0BCC: BD 08 D6 JSR PrintPackedMessage ; Print message 0BCF: 7E 06 CB JMP $06CB ; OK PrintRoomDescription: ; Print room description 0BD2: B6 18 E5 LDA curRoom ; Current room 0BD5: 8E 17 EB LDX #$17EB ; Ambient light table 0BD8: BD 06 7C JSR TwoTableOffset ; X = X + A*2 0BDB: A6 84 LDA ,X ; Get value 0BDD: 84 40 ANDA #$40 ; Is there light? 0BDF: 26 20 BNE PrintObjectsInRoom ; Yes ... print description 0BE1: B6 18 E5 LDA curRoom ; Current room 0BE4: B7 01 BC STA m01BC ; For find routine 0BE7: 86 0F LDA #$0F ; Lamp (lit version) 0BE9: BD 06 66 JSR GetObjectInfo ; Is lamp in room? 0BEC: 27 13 BEQ PrintObjectsInRoom ; Yes ... print description 0BEE: 86 FF LDA #$FF ; Pack value 0BF0: B7 01 BC STA m01BC ; For find routine 0BF3: 86 0F LDA #$0F ; Lamp (lit version) 0BF5: BD 06 66 JSR GetObjectInfo ; Is it in pack? 0BF8: 27 07 BEQ PrintObjectsInRoom ; Yes ... print room contents 0BFA: 8E 38 0C LDX #$380C ; "It is now pitch black ..." 0BFD: BD 08 D6 JSR PrintPackedMessage ; Print message 0C00: 39 RTS ; Done ; PrintObjectsInRoom: ; Print object descriptions 0C01: B6 18 E5 LDA curRoom ; Current room 0C04: 8E 11 2E LDX #$112E ; Room structures 0C07: BD 06 85 JSR FourTableOffset ; X = X + A * 4 0C0A: AE 84 LDX ,X ; Get description text 0C0C: BD 08 D6 JSR PrintPackedMessage ; Unpack and print message 0C0F: 5F CLRB ; Start with ... 0C10: 5C INCB ; ... object 1 0C11: B6 18 E5 LDA curRoom ; Current room 0C14: B7 01 BC STA m01BC ; For find routine 0C17: C1 2C CMPB #$2C ; Done all objects? 0C19: 24 E5 BHS $0C00 ; Yes ... out 0C1B: 34 04 PSHS B ; Remember count 0C1D: 1F 98 TFR B,A ; Object number 0C1F: BD 06 66 JSR GetObjectInfo ; Get object location 0C22: 35 04 PULS B ; Restore count 0C24: 26 EA BNE $0C10 ; Not current room, go on 0C26: 1F 98 TFR B,A ; Into position 0C28: 34 04 PSHS B ; Hold current object 0C2A: 8E 18 ED LDX #$18ED ; Object number to object description table 0C2D: BD 06 7C JSR TwoTableOffset ; Offset 0C30: AE 84 LDX ,X ; Get the object description 0C32: BD 08 D6 JSR PrintPackedMessage ; Print the object description 0C35: 35 04 PULS B ; Restore count 0C37: 20 D7 BRA $0C10 ; Do all objects
COM_18_move_object_to_current_room(obj_num)
Move the specified object to the current room.
COM_18_move_object_to_current_room: 0C39: 35 10 PULS X ; Current action 0C3B: B6 18 E5 LDA curRoom ; Current room 0C3E: B7 01 BC STA m01BC ; For find 0C41: A6 80 LDA ,X+ ; Value 0C43: 34 10 PSHS X ; New action cursor 0C45: BD 06 90 JSR MoveObject ; Move object to new location 0C48: 7E 06 CB JMP $06CB ; Continue processing
COM_19_put_object_in_container_print_ok(obj_num, obj_num)
Move the specified object into the specified container object.
COM_19_put_object_in_container_print_ok: 0C4B: 35 10 PULS X ; Get object number and container object number 0C4D: EC 81 LDD ,X++ ; ... from cursor 0C4F: 34 10 PSHS X ; New cursor 0C51: F7 01 BB STB m01BB ; Hold this 0C54: 8E 18 8D LDX #$188D ; Object table 0C57: BD 06 7C JSR TwoTableOffset ; * 2 0C5A: A6 84 LDA ,X ; Object data 0C5C: 8A 80 ORA #$80 ; This object is ... 0C5E: A7 80 STA ,X+ ; ... contained 0C60: F6 01 BB LDB m01BB ; Container object 0C63: E7 84 STB ,X ; Set object's container 0C65: 7E 0D E8 JMP COM_14_print_ok ; Print "OK" and pass.
COM_02_is_in_pack(obj_num)
Make sure the specified object is in the pack. The object may be contained by another object in the pack.
COM_02_is_in_pack: 0C68: 35 10 PULS X ; Action cursor 0C6A: A6 80 LDA ,X+ ; Get value 0C6C: 34 10 PSHS X ; Update cursor 0C6E: C6 FF LDB #$FF ; Backpack value 0C70: F7 01 BC STB m01BC ; For find 0C73: BD 06 66 JSR GetObjectInfo ; Get object 0C76: 27 03 BEQ $0C7B ; Got it 0C78: 7E 06 DF JMP $06DF ; Invalid 0C7B: 7E 06 CB JMP $06CB ; Valid
COM_03_is_in_pack_or_current_room(obj_num)
Make sure the specified object is in the current room or in the pack. If so then it is something that player can "see".
The object may be contained by another object in the room or pack.
COM_03_is_in_pack_or_current_room: 0C7E: 35 10 PULS X ; Action cursor 0C80: A6 80 LDA ,X+ ; Get target object 0C82: 34 10 PSHS X ; Update cursor 0C84: B7 01 BB STA m01BB ; Hold this 0C87: F6 18 E5 LDB curRoom ; Current room 0C8A: F7 01 BC STB m01BC ; For find 0C8D: BD 06 66 JSR GetObjectInfo ; Check for object in room 0C90: 27 E9 BEQ $0C7B ; Found it 0C92: B6 01 BB LDA m01BB ; Try ... 0C95: 20 D7 BRA $0C6E ; ... backpack
COM_1A_is_in_current_room(obj_num)
Make sure the specified object is in the current room (either directly or in a container in the room).
COM_1A_is_in_current_room: 0C97: 35 10 PULS X ; Action cursor 0C99: B6 18 E5 LDA curRoom ; Current room 0C9C: B7 01 BC STA m01BC ; For find routine 0C9F: A6 80 LDA ,X+ ; Get object 0CA1: 34 10 PSHS X ; Update cursor 0CA3: BD 06 66 JSR GetObjectInfo ; Check for object in room 0CA6: 27 D3 BEQ $0C7B ; OK ... it's here 0CA8: 7E 06 DF JMP $06DF ; Invalid
COM_0D_is_pack_just_emerald()
Make sure pack is completely empty except for the emerald. In order to get the emerald through a "tight squeeze" everything else must be out of the pack.
COM_0D_is_pack_just_emerald: 0CAB: 8E 18 8D LDX #$188D ; Object data 0CAE: C6 01 LDB #$01 ; First object 0CB0: 30 01 LEAX 1,X ; Point to room location 0CB2: C1 1F CMPB #$1F ; This is the "emerald" object 0CB4: 27 06 BEQ $0CBC ; Don't check that object 0CB6: A6 84 LDA ,X ; Get location 0CB8: 81 FF CMPA #$FF ; In backpack? 0CBA: 27 EC BEQ $0CA8 ; Yes ... fail 0CBC: 30 01 LEAX 1,X ; Next object pointer 0CBE: 5C INCB ; Next object 0CBF: C1 2D CMPB #$2D ; Done them all? 0CC1: 26 ED BNE $0CB0 ; No ... go back 0CC3: 7E 06 CB JMP $06CB ;
COM_0A_pyramid_crawl_move_random(value)
Assert that the random count is greater than the specified value. If so then print "You have crawled around in some little holes ...".
This is used for rooms that have random movement paths.
COM_0A_pyramid_crawl_move_random: 0CC6: 35 10 PULS X ; Cursor 0CC8: E6 80 LDB ,X+ ; Comparrison threshold 0CCA: 34 10 PSHS X ; Update cursor 0CCC: F1 01 EB CMPB m01EB ; Random number 0CCF: 23 03 BLS $0CD4 ; Crossed threshold ... success! 0CD1: 7E 06 DF JMP $06DF ; Didn't cross threshold ... failure! 0CD4: 8E 31 AC LDX #$31AC ; "You have crawled around in some little holes ..." 0CD7: BD 08 D6 JSR PrintPackedMessage ; Print message 0CDA: BD 0B D2 JSR PrintRoomDescription; Print room description 0CDD: 7E 06 CB JMP $06CB ; OK
COM_0C_move_to_room_if_was_last(room_num)
?? TODO is this ever used?
Move player to the specified room, but only if that room was the last room. This is for when you can only go back the way you came.
COM_0C_move_to_room_if_was_last: 0CE0: 35 10 PULS X ; Get cursor 0CE2: E6 80 LDB ,X+ ; Target room 0CE4: 34 10 PSHS X ; Update cursor 0CE6: F1 18 EA CMPB lastRoom ; Did we just come from there? 0CE9: 26 E6 BNE $0CD1 ; No ... fail 0CEB: 35 10 PULS X ; Cursor 0CED: 30 1F LEAX -1,X ; Back it .. 0CEF: 34 10 PSHS X ; ... up 0CF1: 7E 0B 05 JMP COM_01_move_look ; Move to room N
COM_16_get_users_object_print_ok()
Move the specified object to the pack. If the object is already in the pack then print "You are already carying it". Either way this command ALWAYS passes.
This is the last script in the general GET handler.
Note that "You are already carying it" is already being checked in the general input routine.
COM_16_get_users_object_print_ok: 0CF4: 86 FF LDA #$FF ; Pack value 0CF6: B7 01 BC STA m01BC ; For find 0CF9: B6 01 E7 LDA m01E7 ; Object from input (noun) 0CFC: BD 06 66 JSR GetObjectInfo ; Is it already in our pack? 0CFF: 26 09 BNE $0D0A ; Not in our pack ... pick it up 0D01: 8E 34 0B LDX #$340B ; "You are already carying it" 0D04: BD 08 D6 JSR PrintPackedMessage ; Print message 0D07: 7E 06 CB JMP $06CB ; Passed 0D0A: F6 01 E7 LDB m01E7 ; Requested object 0D0D: 7E 0D AC JMP $0DAC ; Pick up object
COM_04_print(ps_num)
Print the specified message (packed message).
COM_04_print: 0D10: 35 20 PULS Y ; Get cursor 0D12: AE A1 LDX ,Y++ ; Get address of message 0D14: 34 20 PSHS Y ; Update cursor 0D16: BD 08 D6 JSR PrintPackedMessage ; Print message 0D19: 7E 06 CB JMP $06CB ; Pass
COM_0B_drop_object_print_ok(obj_num)
Move the specified object from the pack to the current room. This does assume the object is in the pack.
COM_0B_drop_object_print_ok: 0D1C: 35 10 PULS X ; Get object ... 0D1E: E6 80 LDB ,X+ ; ... from cursor 0D20: 34 10 PSHS X ; Restore cursor 0D22: 7A 18 EB DEC numInPack ; No longer in our pack 0D25: B6 18 E5 LDA curRoom ; Where the object is going 0D28: B7 01 BC STA m01BC ; For the move 0D2B: 1F 98 TFR B,A ; FOr the move 0D2D: BD 06 90 JSR MoveObject ; Drop object in current room 0D30: 7E 0D E8 JMP COM_14_print_ok ; OK and out
COM_0E_move_to_last_room()
Move the player to the "last" room. If there is no "last" room then print an error message.
This command always passes.
COM_0E_move_to_last_room: 0D33: F6 18 EA LDB lastRoom ; Last room number 0D36: 27 0C BEQ $0D44 ; There was no last ... error message 0D38: F7 01 BB STB m01BB ; Hold this 0D3B: B6 18 E5 LDA curRoom ; Current room ... 0D3E: B7 18 EA STA lastRoom ; ... is now last-room-number 0D41: 7E 0B 65 JMP $0B65 ; MoveToRoom ... past the room-number-update 0D44: 8E 33 DE LDX #$33DE ; "I don't remember how you got here ..." 0D47: BD 08 D6 JSR PrintPackedMessage ; Print message 0D4A: 7E 06 CB JMP $06CB ; Pass
COM_0F_print_inventory()
List all the objects in the pack. Object that are contained by objects in the pack are printed too.
This command always passes.
COM_0F_print_inventory: 0D4D: B6 18 EB LDA numInPack ; Do we even have anything? 0D50: 26 09 BNE $0D5B ; Yes ... there is something 0D52: 8E 34 4F LDX #$344F ; "You're not carrying anything." 0D55: BD 08 D6 JSR PrintPackedMessage ; Print message 0D58: 7E 06 CB JMP $06CB ; pass ; 0D5B: 8E 34 65 LDX #$3465 ; "You are currently holding the following:" 0D5E: BD 08 D6 JSR PrintPackedMessage ; Print message 0D61: 5F CLRB ; Starting before object 1 0D62: 86 FF LDA #$FF ; Pack value 0D64: B7 01 BC STA m01BC ; For find 0D67: 5C INCB ; Next object 0D68: 1F 98 TFR B,A ; To A 0D6A: 81 2D CMPA #$2D ; Have we checked every object? 0D6C: 24 DC BHS $0D4A ; Yes ... out 0D6E: 34 04 PSHS B ; Hold it 0D70: BD 06 66 JSR GetObjectInfo ; Find the objet 0D73: 35 04 PULS B ; Restore it 0D75: 26 EB BNE $0D62 ; Not in the backpack ... check the others 0D77: 1F 98 TFR B,A ; To A 0D79: 8E 18 ED LDX #$18ED ; Object descriptions 0D7C: 34 04 PSHS B ; Hold it 0D7E: BD 06 7C JSR TwoTableOffset ; Offset to object description 0D81: 35 04 PULS B ; Restore 0D83: AE 84 LDX ,X ; Pointer to 1st in message pair 0D85: A6 80 LDA ,X+ ; Find second ... 0D87: 26 FC BNE $0D85 ; ... message 0D89: 34 04 PSHS B ; Hold object number 0D8B: BD 08 D6 JSR PrintPackedMessage ; Print object description 0D8E: 35 04 PULS B ; Restore object number 0D90: 20 D0 BRA $0D62 ; Do all objects
COM_10_print_room_description()
Print the current room description and contained objects. If the room is dark then print "it is dark".
This command always passes.
COM_10_print_room_description: 0D92: BD 0B D2 JSR PrintRoomDescription; Print room description 0D95: 7E 06 CB JMP $06CB ;
COM_11_is_object_user_input(obj_num)
Make sure the input noun matches the specified object.
COM_11_is_object_user_input: 0D98: 35 10 PULS X ; Get the object ... 0D9A: E6 80 LDB ,X+ ; ... from the cursor 0D9C: 34 10 PSHS X ; Update cursor 0D9E: F1 01 E7 CMPB m01E7 ; Same as user input? 0DA1: 27 F2 BEQ $0D95 ; Yes ... pass 0DA3: 7E 06 DF JMP $06DF ; Fail
COM_12_get_from_room_print_ok(obj_num)
Get the specified object from the current room if there is space in the pack and the object is packable.
- Pack only holds 8 things.
- Some objects are flagged as "non pick-up-able"
COM_12_get_from_room_print_ok: 0DA6: 35 10 PULS X ; Get the object's description from the ... 0DA8: E6 80 LDB ,X+ ; ... cursor 0DAA: 34 10 PSHS X ; Update the cursor 0DAC: 1F 98 TFR B,A ; Needed here by GetObjectInfo 0DAE: F7 01 BB STB m01BB ; Need again in a moment 0DB1: BD 06 66 JSR GetObjectInfo ; Find the object 0DB4: A6 84 LDA ,X ; Object info 0DB6: 84 40 ANDA #$40 ; OK to pick up? 0DB8: 26 09 BNE $0DC3 ; Yes ... keep going 0DBA: 8E 34 82 LDX #$3482 ; "Don't be rediculous." 0DBD: BD 08 D6 JSR PrintPackedMessage ; Print message 0DC0: 7E 06 CB JMP $06CB ; Done 0DC3: B6 18 EB LDA numInPack ; How many do we have? 0DC6: 81 08 CMPA #$08 ; Already got 8 things? 0DC8: 25 08 BCS $0DD2 ; We got less ... go on and take it 0DCA: 8E 34 20 LDX #$3420 ; "You can't carry anything more." 0DCD: BD 08 D6 JSR PrintPackedMessage ; Print message 0DD0: 20 EE BRA $0DC0 ; And out 0DD2: 7C 18 EB INC numInPack ; Got another one 0DD5: 86 FF LDA #$FF ; Pack value 0DD7: B7 01 BC STA m01BC ; For function 0DDA: B6 01 BB LDA m01BB ; Object number 0DDD: BD 06 90 JSR MoveObject ; Move object 0DE0: 20 06 BRA COM_14_print_ok ; Print "OK" and out
COM_17_drop_users_object_print_ok()
Drop the object the user requested from the pack.
COM_17_drop_users_object_print_ok: 0DE2: F6 01 E7 LDB m01E7 ; Value from user word 0DE5: 7E 0D 22 JMP $0D22 ; Drop object
COM_14_print_ok()
Print "OK".
COM_14_print_ok: 0DE8: 8E 33 DA LDX #$33DA ; "OK" 0DEB: BD 08 D6 JSR PrintPackedMessage ; Print message 0DEE: 7E 06 CB JMP $06CB ;
COM_15_move_object_to_room(obj_num, room_num)
Move the specified object to the specified room. This removes the target object from any container it might be in.
COM_15_move_object_to_room: 0DF1: 35 10 PULS X ; Cursor 0DF3: EC 81 LDD ,X++ ; Get object number and room number 0DF5: 34 10 PSHS X ; Update cursor 0DF7: F7 01 BC STB m01BC ; Hold for a second 0DFA: 8E 18 8D LDX #$188D ; Object table 0DFD: BD 06 7C JSR TwoTableOffset ; Offset 0E00: A6 84 LDA ,X ; Object data 0E02: 84 7F ANDA #$7F ; Trun off ... 0E04: A7 80 STA ,X+ ; ... contained bit 0E06: B6 01 BC LDA m01BC ; New location 0E09: A7 84 STA ,X ; Update object location 0E0B: 20 E1 BRA $0DEE ; Pass
Print Score
PrintScore: 0E0D: 7F 02 08 CLR m0208 ; Calculated score LSB 0E10: 7F 02 09 CLR m0209 ; Calculated score MSB 0E13: 8E 18 8D LDX #$188D ; Object data 0E16: C6 2C LDB #$2C ; Object ... 0E18: F7 01 BA STB m01BA ; ... count 0E1B: E6 80 LDB ,X+ ; Get object data 0E1D: C4 20 ANDB #$20 ; Is it a treasure object? 0E1F: 27 1E BEQ $0E3F ; No ... skip 0E21: 86 20 LDA #$20 ; 20 points (BCD) ... 0E23: E6 84 LDB ,X ; ... if object ... 0E25: C1 02 CMPB #$02 ; ... is at ... 0E27: 27 06 BEQ $0E2F ; ... pyramid entrance 0E29: C1 FF CMPB #$FF ; 5 points ... 0E2B: 26 12 BNE $0E3F ; ... if object ... 0E2D: 86 05 LDA #$05 ; ... is in pack 0E2F: BB 02 08 ADDA m0208 ; Add to ... 0E32: 19 DAA ; ... BCD ... 0E33: B7 02 08 STA m0208 ; ... score 0E36: B6 02 09 LDA m0209 ; Extend ... 0E39: 89 00 ADCA #$00 ; ... overflow ... 0E3B: 19 DAA ; ... into ... 0E3C: B7 02 09 STA m0209 ; ... MSB 0E3F: 30 01 LEAX 1,X ; Next obect 0E41: 7A 01 BA DEC m01BA ; All tested? 0E44: 26 D5 BNE $0E1B ; Keep testing 0E46: 86 20 LDA #$20 ; Space .. 0E48: B7 10 41 STA scoreSign ; ... in message. 0E4B: 8E 10 42 LDX #$1042 ; Spot for score in message 0E4E: B6 02 09 LDA m0209 ; Calculated score MSB 0E51: BD 0E 6F JSR $0E6F ; Add 2 digits 0E54: B6 02 08 LDA m0208 ; Calculated score LSB 0E57: BD 0E 6F JSR $0E6F ; Add two digits 0E5A: 8E 10 5A LDX #$105A ; Spot for turn count in message 0E5D: B6 18 E6 LDA turnsMSB ; Store MSB ... 0E60: BD 0E 6F JSR $0E6F ; ... two digits in buffer 0E63: B6 18 E7 LDA turnsLSB ; Store LSB ... 0E66: BD 0E 6F JSR $0E6F ; ... two digits in buffer 0E69: 8E 10 36 LDX #$1036 ; "YOU SCORED **** OUT OF 0220, USING *** TURNS." 0E6C: 7E 08 FC JMP PrintUnpacked ; Print message and return ; ; Two digit BCD to ASCII 0E6F: 1F 89 TFR A,B ; Value to A 0E71: 47 ASRA ; First ... 0E72: 47 ASRA ; ... the ... 0E73: 47 ASRA ; ... upper ... 0E74: 47 ASRA ; Digit 0E75: BD 0E 7A JSR $0E7A ; Convert it 0E78: 1F 98 TFR B,A ; Original back ... do lower digit 0E7A: 84 0F ANDA #$0F ; Only lower 4 bits 0E7C: 8B 30 ADDA #$30 ; Convert to ASCII number 0E7E: A7 80 STA ,X+ ; Store character in buffer 0E80: 39 RTS ; Done
COM_1C_save_game()
Save the current state of the game to tape.
COM_1C_save_game: 0E81: 8E 3C 27 LDX #$3C27 ; "Ready Cassette" 0E84: BD 08 D6 JSR PrintPackedMessage ; Print message 0E87: BD 09 37 JSR ReadKey ; Get a key 0E8A: 81 08 CMPA #$08 ; Backspace ... 0E8C: 27 2A BEQ $0EB8 ; ... abort 0E8E: 81 0D CMPA #$0D ; Wait ... 0E90: 26 F5 BNE $0E87 ; ... for ENTER or BACKSPACE 0E92: AD 9F A0 0C JSR [WRTLDR] ; Turn on cassette and write leader 0E96: 86 01 LDA #$01 ; Block ... 0E98: 97 7C STA <m007C ; ... type 1 0E9A: 86 82 LDA #$82 ; Write ... 0E9C: 97 7D STA <m007D ; ... 0x82 bytes 0E9E: 8E 17 EB LDX #$17EB ; Start at ... 0EA1: 9F 7E STX <m007E ; ... transient data 0EA3: AD 9F A0 08 JSR [BLKOUT] ; Write to tape 0EA7: 9F 7E STX <m007E ; Continue where we left off 0EA9: 86 01 LDA #$01 ; Block ... 0EAB: 97 7C STA <m007C ; ... type 1 0EAD: 86 82 LDA #$82 ; Write ... 0EAF: 97 7D STA <m007D ; ... 0x82 bytes 0EB1: AD 9F A0 08 JSR [BLKOUT] ; Write to tape 0EB5: BD 0F 0C JSR $0F0C ; Turn motor off 0EB8: 7E 06 CB JMP $06CB ;
COM_1B_load_game()
Load the state of the game from tape.
COM_1B_load_game: 0EBB: 8E 3C 27 LDX #$3C27 ; "Ready Cassette" 0EBE: BD 08 D6 JSR PrintPackedMessage ; Print message 0EC1: BD 09 37 JSR ReadKey ; Wait on a key 0EC4: 81 08 CMPA #$08 ; Backspace ... 0EC6: 27 F0 BEQ $0EB8 ; ... abort 0EC8: 81 0D CMPA #$0D ; Wait ... 0ECA: 26 F5 BNE $0EC1 ; ... for enter or abort 0ECC: AD 9F A0 04 JSR [CSRDON] ; Start cassette and sync 0ED0: 8E 17 EB LDX #$17EB ; Start at ... 0ED3: 9F 7E STX <m007E ; ... transient data 0ED5: 86 01 LDA #$01 ; Block ... 0ED7: 97 7C STA <m007C ; ... type 1 0ED9: 86 82 LDA #$82 ; Read ... 0EDB: 97 7D STA <m007D ; ... 0x82 bytes 0EDD: AD 9F A0 06 JSR [BLKIN] ; Read from tape 0EE1: 26 1D BNE $0F00 ; Error ... report and try again 0EE3: 9F 7E STX <m007E ; Keep going 0EE5: 86 01 LDA #$01 ; Block ... 0EE7: 97 7C STA <m007C ; ... type 1 0EE9: 86 82 LDA #$82 ; Read ... 0EEB: 97 7D STA <m007D ; ... 0x82 bytes 0EED: AD 9F A0 06 JSR [BLKIN] ; Read from tape 0EF1: 26 0D BNE $0F00 ; Error ... report and try again 0EF3: BD 0F 0C JSR $0F0C ; Stop motor 0EF6: BD 0B D2 JSR PrintRoomDescription; Print room description 0EF9: 10 CE 03 FF LDS #$03FF ; Reset stack ... 0EFD: 7E 06 35 JMP MainLoop ; ... and pickup at top of game loop 0F00: BD 0F 0C JSR $0F0C ; Turn motor off 0F03: 8E 3C 33 LDX #$3C33 ; "Checksum Error" 0F06: BD 08 D6 JSR PrintPackedMessage ; Print messagge 0F09: 7E 0E BB JMP COM_1B_load_game ; Try again 0F0C: 86 34 LDA #$34 ; Motor ... 0F0E: B7 FF 21 STA PIA1_CA ; ... off 0F11: 39 RTS ;
COM_08_print_score()
Print the current score.
COM_08_print_score: 0F12: BD 0E 0D JSR PrintScore ; Print score 0F15: 7E 06 CB JMP $06CB ;
COM_05_death_and_resurrect() and COM_09_end_of_game()
No resurrection sequence in CoCo version. Just straight to game-over.
Print the score and go into an endless loop. When the player dies the scripts use command 5. When the player quits the scripts use command 9.
COM_05_death_and_resurrect: COM_09_end_of_game(): 0F18: BD 0E 0D JSR PrintScore ; Print score 0F1B: 20 FE BRA $0F1B ; Endless loop
COM_1D_scramble_directions_print_ack()
This is what the old PLUGH command does. The TRS80 version works through the room scripts and scrambles the compass directions. The CoCo version just returns to the top of the game loop (do nothing).
COM_1D_scramble_directions_print_ack: 0F1D: 10 CE 03 FF LDS #$03FF ; Forget where we came from ... 0F21: 7E 06 35 JMP MainLoop ; ... and go back to top of game loop
General Error Messages
The code alternates these for general input failures. The first one used is the second message.
PtrErrorString1: 0F24: 0F CA ; Pointer to "WHAT?" PtrErrorString2: 0F26: 0F D1 ; Pointer to "I DON'T KNOW THAT WORD." PtrErrorString3: 0F28: 0F E9 ; Pointer to "I DON'T UNDERSTAND." PtrErrorString4: 0F2A: 0F FD ; Pointer to "I DON'T KNOW WHAT YOU MEAN." ; "I SEE NO " MsgISeeNo: 0F2C: 49 20 53 45 45 20 4E 4F 20 01 ; " HERE." MsgHere: 0F36: 20 48 45 52 45 2E 00 ; "YOUR AREN'T CARRYING IT." MsgNotCarrying: 0F3D: 59 4F 55 20 41 52 45 4E 27 54 20 43 41 52 52 59 49 4E 47 20 49 54 2E 00 ; "WHAT DO YOU WANT ME TO DO WITH THE " MsgWhatDoWith: 0F55: 57 48 41 54 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 4D 45 20 54 4F 20 44 4F 20 57 49 54 48 20 54 48 45 20 ; 40 byte buffer for unknown noun word unknownNoun: 0F78: 00 00 00 00 00 00 00 00 7E FF 0F82: FF FF FF FF FF FF FF FF FF FF 0F8C: FF FF FF FF FF FF FF FF FF FF 0F96: FF FF FF FF FF FF FF FF FF FF unknownNounPunct: ; "?" 0FA0: 3F 00 unknownVerb: ; 40 byte buffer for unknown verb (followed by WHAT?) 0FA2: FF FF FF FF FF FF FF FF FF FF 0FAC: FF FF FF FF FF FF FF FF FF FF 0FB6: FF FF FF FF FF FF FF FF FF FF 0FC0: 00 00 00 00 00 00 00 00 00 00 ErrorString1: ;" WHAT?" 0FCA: 20 57 48 41 54 3F 00 ErrorString2: ; "I DON'T KNOW THAT WORD." 0FD1: 49 20 44 4F 4E 27 54 20 4B 4E 4F 57 20 54 48 41 54 20 57 4F 52 44 2E 00 ErrorString3: ; "I DON'T UNDERSTAND." 0FE9: 49 20 44 4F 4E 27 54 20 55 4E 44 45 52 53 54 41 4E 44 2E 00 ErrorString4: ; "I DON'T KNOW WHAT YOU MEAN." 0FFD: 49 20 44 4F 4E 27 54 20 4B 4E 4F 57 20 57 48 41 54 20 59 4F 55 20 4D 45 41 4E 2E 00 MsgMore: ; " <MORE>",1 1019: 20 3C 4D 4F 52 45 3E 01 ; "WELCOME TO PYRAMID!!" WelcomeMsg: 1021: 57 45 4C 43 4F 4D 45 20 54 4F 20 50 59 52 41 4D 49 44 21 21 00 ScoreString: ; YOU_SCORED_______OUT_OF_A_POSSIBLE_0220,_USING______TURNS. 1036: 59 4F 55 20 53 43 4F 52 45 44 20 scoreSign: 1041: 20 scoreSpot: 1042: 20 20 20 20 20 4F 55 54 20 4F 46 20 30 32 32 30 2C 20 55 53 49 4E 47 20 turnSpot: 105A: 20 20 20 20 20 54 55 52 4E 53 2E 00
Packed strings
By limiting a character to 40 possible values, we can pack three characters into 2 bytes:
40 x 40 x 40 = 64,000 (just shy of 65,536)
The 40 characters from CharTable: ?!2_"'<>/03ABCDEFGHIJKLMNOPQRSTUVWXYZ-,.
The first byte of a packed string is the number of words to unpack. Other printable characters may be listed after that with a 0 terminating the string.
For instance, PS_02:
; YOU_ARE_IN_THE_DESERT. 07 C7 DE 94 14 4B 5E 96 96 DB 72 F5 59 3E 62 2E 00
There are 7 words to unpack (14 bytes) followed by the "2E" period and the null terminator 0.
Each double word is listed LSB first. The first word to unpack is 0xDEC7.
val = 0x1494 c1 = val % 40 # 31 -> 'U' val //= 40 c2 = val % 40 # 25 -> 'O' val //= 40 c3 = val % 40 # 35 -> 'Y'
Which gives us 'YOU' (reversed order).
Next is 1419:
c1 = 28 -> 'R' c2 = 11 -> 'A' c3 = 3 -> '_' (really the space character)
Bringing us to "YOU_AR", and so on.
UnpackMessage: 1066: B7 01 C1 STA m01C1 ; 1069: 86 01 LDA #$01 ; 106B: B7 01 C5 STA m01C5 ; ; 106E: 10 8E 02 04 LDY #$0204 ; 1072: C6 03 LDB #$03 ; 1074: F7 01 C2 STB m01C2 ; 1077: A6 80 LDA ,X+ ; Next in message 1079: B7 01 FE STA m01FE ; Save it 107C: A6 80 LDA ,X+ ; Next in message 107E: B7 01 FD STA m01FD ; Save it 1081: 31 23 LEAY 3,Y ; ; 1083: CE 00 28 LDU #$0028 ; Number of characters in map 1086: FF 01 C3 STU m01C3 ; 1089: 86 11 LDA #$11 ; 17 passes 108B: B7 02 03 STA m0203 ; 108E: 7F 01 FF CLR m01FF ; 1091: 7F 02 00 CLR m0200 ; ; 1094: 79 01 FE ROL m01FE ; 1097: 79 01 FD ROL m01FD ; 109A: 7A 02 03 DEC m0203 ; All 17 shifts done? (Doesn't change C) 109D: 27 39 BEQ $10D8 ; Yes ... done with next character 109F: 86 00 LDA #$00 ; Start with 0 (Doesn't change C) 10A1: 89 00 ADCA #$00 ; Add in carry from ROL 10A3: 78 02 00 ASL m0200 ; 10A6: 79 01 FF ROL m01FF ; 10A9: BB 02 00 ADDA m0200 ; 10AC: B0 01 C4 SUBA m01C4 ; 10AF: B7 02 02 STA m0202 ; 10B2: B6 01 FF LDA m01FF ; 10B5: B2 01 C3 SBCA m01C3 ; 10B8: B7 02 01 STA m0201 ; 10BB: 24 0B BHS $10C8 ; 10BD: FC 02 01 LDD m0201 ; 10C0: F3 01 C3 ADDD m01C3 ; 10C3: FD 01 FF STD m01FF ; 10C6: 20 06 BRA $10CE ; ; 10C8: FC 02 01 LDD m0201 ; 10CB: FD 01 FF STD m01FF ; ; Compliment C flag and continue 10CE: 25 04 BCS $10D4 ; 10D0: 1A 01 ORCC #$01 ; Clear carry ... 10D2: 20 C0 BRA $1094 ; ... and continue 10D4: 1C FE ANDCC #$FE ; Set carry ... 10D6: 20 BC BRA $1094 ; ... and continue ; Add the character in 0200 to the buffer 10D8: FC 01 FF LDD m01FF ; Character (0 in MSB) 10DB: C3 11 06 ADDD #$1106 ; Offset into character map 10DE: 1F 03 TFR D,U ; Get character ... 10E0: A6 C4 LDA ,U ; ... from map 10E2: A7 A2 STA ,-Y ; Stuff into buffer 10E4: 7A 01 C2 DEC m01C2 ; Do all ... 10E7: 26 9A BNE $1083 ; ... three characters ; 10E9: 10 8E 02 04 LDY #$0204 ; Expansion buffer 10ED: C6 03 LDB #$03 ; 3 characters 10EF: A6 A0 LDA ,Y+ ; Get next byte 10F1: 34 04 PSHS B ; Save B 10F3: BD 09 45 JSR PrintCharAutoWrap ; Print A to screen 10F6: 35 04 PULS B ; Restore B 10F8: 5A DECB ; All 3 done? 10F9: 26 F4 BNE $10EF ; Do all 3 characters in this pair 10FB: 7A 01 C1 DEC m01C1 ; Do all ... 10FE: 10 26 FF 6C LBNE $106E ; ... pairs of bytes 1102: FC 01 BA LDD m01BA ; 1105: 39 RTS ; Done
Character Translation Table
The packed messages in the game are limited to these characters.
; Character compression table
CharTable:
1106: 3F 21 32 20 22 27 3C 3E 2F 30 33 ; ?!2_"'<>/03
1111: 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 ; ABCDEFGHIJKLMNOP
1121: 51 52 53 54 55 56 57 58 59 5A 2D 2C 2E ; QRSTUVWXYZ-,.
Room Table
Each entry is 4 bytes. The first word is the packed room description. The second word is the room's command script.
RoomTable:
; Descr Scrpt RoomName String Notes
112E: 1B 66 12 72 ; RM_01_BEFORE_ENTRANCE PS_00
1132: 1B 9A 12 87 ; RM_02_IN_ENTRANCE PS_01
1136: 1B DE 12 98 ; RM_03_DESERT1 PS_02
113A: 1B DE 12 A9 ; RM_04_DESERT2 PS_02
113E: 1B DE 12 BA ; RM_05_DESERT3 PS_02
1142: 1B DE 12 CB ; RM_06_DESERT4 PS_02
1146: 1B EF 12 DC ; RM_07_BENEATH_A_HOLE PS_03
114A: 1C 67 12 ED ; RM_08_CRAWLING_OVER_PEBBLES PS_04
114E: 1C AC 12 FE ; RM_09_BROKEN_POTTERY PS_05
1152: 1D 00 13 0F ; RM_0A_AWKWARD_SLOPING PS_06
1156: 1D 23 13 24 ; RM_0B_SPLENDID_CHAMBER PS_07
115A: 1D 9E 13 2D ; RM_0C_SMALL_PIT_WHITE_MIST PS_08
115E: 1E 0A 13 43 ; RM_0D_STEPS_LEAD_UP_DOME PS_09
1162: 1E DC 13 6E ; RM_0E_LOW_ROOM_HIEROGLYPH PS_0A
1166: 1F 1E 13 77 ; RM_0F_EAST_BANK_BOTTOMLESS_PIT PS_0B
116A: 1F 7A 13 B3 ; RM_10_PHARAOHS_CHAMBER PS_0C
116E: 1F AB 13 EE ; RM_11_SOUTH_SIDE_CHAMBER PS_0D
1172: 1F C4 13 F7 ; RM_12_HALL_OF_GODS PS_0E
1176: 1F F3 14 36 ; RM_13_LITTLE_PASSAGE_SIX_FEET PS_0F
117A: 20 5D 14 4F ; RM_14_EAST_END_LONG_HALL PS_10
117E: 20 CB 14 64 ; RM_15_WEST_END_FEATURELESS_HALL PS_11
1182: 21 16 14 6D ; RM_16_CROSSOVER PS_12
1186: 21 42 14 7E ; RM_17_DEAD_END1 PS_13
118A: 21 4A 14 87 ; RM_18_THRONE_CHAMBER PS_14
118E: 21 80 14 98 ; RM_19_LOW_NS_PASSAGE PS_15
1192: 21 BE 14 AD ; RM_1A_PANEL_NORTH_WALL PS_16
1196: 22 16 14 BA ; RM_1B_CHAMBER_OF_ANUBIS PS_17
119A: 22 2E 14 C7 ; RM_1C_TWISTY_PASSAGES1 PS_18
119E: 22 2E 14 DC ; RM_1D_TWISTY_PASSAGES2 PS_18
11A2: 22 2E 14 ED ; RM_1E_TWISTY_PASSAGES3 PS_18
11A6: 22 2E 15 06 ; RM_1F_TWISTY_PASSAGES4 PS_18
11AA: 22 2E 15 0F ; RM_20_TWISTY_PASSAGES5 PS_18
11AE: 22 2E 15 1C ; RM_21_TWISTY_PASSAGES6 PS_18
11B2: 22 2E 15 2D ; RM_22_TWISTY_PASSAGES7 PS_18
11B6: 22 2E 15 3E ; RM_23_TWISTY_PASSAGES8 PS_18
11BA: 22 2E 15 57 ; RM_24_TWISTY_PASSAGES9 PS_18
11BE: 22 2E 15 68 ; RM_25_TWISTY_PASSAGES10 PS_18
11C2: 22 2E 15 71 ; RM_26_TWISTY_PASSAGES11 PS_18
11C6: 22 2E 15 82 ; RM_27_TWISTY_PASSAGES12 PS_18
11CA: 22 2E 15 8F ; RM_28_TWISTY_PASSAGES13 PS_18
11CE: 22 2E 15 9C ; RM_29_TWISTY_PASSAGES14 PS_18
11D2: 21 42 15 A9 ; RM_2A_DEAD_END2 PS_13
11D6: 21 42 15 AE ; RM_2B_DEAD_END3 PS_13
11DA: 21 42 15 B3 ; RM_2C_DEAD_END4 PS_13
11DE: 21 42 15 B8 ; RM_2D_DEAD_END5 PS_13
11E2: 21 42 15 BD ; RM_2E_DEAD_END6 PS_13
11E6: 21 42 15 C2 ; RM_2F_DEAD_END7 PS_13
11EA: 21 42 15 C7 ; RM_30_DEAD_END8 PS_13
11EE: 21 42 15 CC ; RM_31_DEAD_END9 PS_13
11F2: 21 42 15 D1 ; RM_32_DEAD_END10 PS_13
11F6: 21 42 15 D6 ; RM_33_DEAD_END11 PS_13
11FA: 22 50 15 E7 ; RM_34_BRINK_OF_LARGE_PIT PS_19
11FE: 21 42 15 FC ; RM_35_DEAD_END12 PS_13
1202: 22 AD 16 01 ; RM_36_DIRTY_BROKEN_PASSAGE PS_1A
1206: 23 06 16 0E ; RM_37_BRINK_OF_CLEAN_PIT PS_1B
120A: 23 38 16 1B ; RM_38_PIT_LITTLE_STREAM PS_1C
120E: 23 7E 16 39 ; RM_39_ROOM_OF_BES PS_1D
1212: 23 D4 16 42 ; RM_3A_COMPLEX_JUNCTION PS_1E
1216: 24 5E 16 57 ; RM_3B_ANTEROOM_OF_SEKER PS_1F
121A: 24 EC 16 64 ; RM_3C_LAND_OF_DEAD PS_20
121E: 25 1B 16 AC ; RM_3D_ANCIENT_DRAWINGS PS_21
1222: 25 C3 16 C7 ; RM_3E_MOON_GOD PS_22
1226: 26 1D 16 D0 ; RM_3F_RAGGED_WALLS PS_23
122A: 26 43 16 D9 ; RM_40_CUL_DE_SAC PS_24
122E: 26 65 16 E2 ; RM_41_CHAMBER_OF_HORUS PS_25
1232: 26 C2 17 0B ; RM_42_FALLEN_SLAB PS_26
1236: 00 00 00 00 ;
123A: 2A EE 17 E1 ; RM_44_CHAMBER_OF_NEKHEBET PS_31
123E: 00 00 00 00 ;
1242: 2A CD 17 D8 ; RM_46_BLOCKED_FALLEN_BLOCK PS_30
1246: 2A 78 17 CB ; RM_47_CHAMBER_OF_OSIRIS PS_2F
124A: 27 54 17 14 ; RM_48_PRIESTS_BEDROOM PS_27
124E: 27 AD 17 1D ; RM_49_HIGH_PRIEST PS_28
1252: 00 00 00 00 ;
1256: 00 00 00 00 ;
125A: 28 1F 17 2C ; RM_4C_EERIE_GREEN_LIGHT PS_29
125E: 2A 12 17 B4 ; RM_4D_PROFUSION_OF_LEAVES PS_2E
1262: 28 68 17 41 ; RM_4E_WEAST_END_TWOPIT PS_2A
1266: 29 42 17 4E ; RM_4F_BOTTOM_EASTERN_PIT PS_2B
126A: 29 6C 17 57 ; RM_50_WEST_END_TWOPIT PS_2C
126E: 29 BC 17 64 ; RM_51_BOTTOM_WEST_PIT PS_2D
Room Scripts
These are the specific room scripts. The user input is tried against the room script first and then the general handler script.
RoomScripts: Script_RM_01_BEFORE_ENTRANCE: ; PS_00 ; YOU ARE STANDING BEFORE THE ENTRANCE OF A PYRAMID. AROUND YOU IS A DESERT. ; 1272: 01 03 ; N 1274: 01 02 ; move_look(RM_02_IN_ENTRANCE) 1276: 02 03 ; E 1278: 01 03 ; move_look(RM_03_DESERT1) 127A: 03 03 ; S 127C: 01 04 ; move_look(RM_04_DESERT2) 127E: 04 03 ; W 1280: 01 05 ; move_look(RM_05_DESERT3) 1282: 0B 03 ; IN 1284: 01 02 ; move_look(RM_02_IN_ENTRANCE) 1286: 00 ; Script_RM_02_IN_ENTRANCE: ; PS_01 ; YOU ARE IN THE ENTRANCE TO THE PYRAMID. A HOLE IN THE FLOOR LEADS TO A PASSAGE BENEATH THE ; SURFACE. ; 1287: 03 03 ; S 1289: 01 01 ; move_look(RM_01_BEFORE_ENTRANCE) 128B: 0A 03 ; D 128D: 01 07 ; move_look(RM_07_BENEATH_A_HOLE) 128F: 0C 03 ; OUT 1291: 01 01 ; move_look(RM_01_BEFORE_ENTRANCE) 1293: 12 03 ; PANEL 1295: 01 1A ; move_look(RM_1A_PANEL_NORTH_WALL) 1297: 00 ; Script_RM_03_DESERT1: ; PS_02 ; YOU ARE IN THE DESERT. ; 1298: 01 03 ; N 129A: 01 06 ; move_look(RM_06_DESERT4) 129C: 02 03 ; E 129E: 01 03 ; move_look(RM_03_DESERT1) 12A0: 03 03 ; S 12A2: 01 04 ; move_look(RM_04_DESERT2) 12A4: 04 03 ; W 12A6: 01 01 ; move_look(RM_01_BEFORE_ENTRANCE) 12A8: 00 ; Script_RM_04_DESERT2: ; PS_02 ; YOU ARE IN THE DESERT. ; 12A9: 01 03 ; N 12AB: 01 01 ; move_look(RM_01_BEFORE_ENTRANCE) 12AD: 02 03 ; E 12AF: 01 03 ; move_look(RM_03_DESERT1) 12B1: 03 03 ; S 12B3: 01 04 ; move_look(RM_04_DESERT2) 12B5: 04 03 ; W 12B7: 01 05 ; move_look(RM_05_DESERT3) 12B9: 00 ; Script_RM_05_DESERT3: ; PS_02 ; YOU ARE IN THE DESERT. ; 12BA: 01 03 ; N 12BC: 01 06 ; move_look(RM_06_DESERT4) 12BE: 02 03 ; E 12C0: 01 01 ; move_look(RM_01_BEFORE_ENTRANCE) 12C2: 03 03 ; S 12C4: 01 04 ; move_look(RM_04_DESERT2) 12C6: 04 03 ; W 12C8: 01 05 ; move_look(RM_05_DESERT3) 12CA: 00 ; Script_RM_06_DESERT4: ; PS_02 ; YOU ARE IN THE DESERT. ; 12CB: 01 03 ; N 12CD: 01 06 ; move_look(RM_06_DESERT4) 12CF: 02 03 ; E 12D1: 01 03 ; move_look(RM_03_DESERT1) 12D3: 03 03 ; S 12D5: 01 01 ; move_look(RM_01_BEFORE_ENTRANCE) 12D7: 04 03 ; W 12D9: 01 05 ; move_look(RM_05_DESERT3) 12DB: 00 ; Script_RM_07_BENEATH_A_HOLE: ; PS_03 ; YOU ARE IN A SMALL CHAMBER BENEATH A HOLE FROM THE SURFACE. A LOW CRAWL LEADS INWARD TO THE WEST. ; HIEROGLYPHICS ON THE WALL TRANSLATE, "CURSE ALL WHO ENTER THIS SACRED CRYPT." ; 12DC: 09 03 ; U 12DE: 01 02 ; move_look(RM_02_IN_ENTRANCE) 12E0: 0C 03 ; OUT 12E2: 01 02 ; move_look(RM_02_IN_ENTRANCE) 12E4: 04 03 ; W 12E6: 01 08 ; move_look(RM_08_CRAWLING_OVER_PEBBLES) 12E8: 0B 03 ; IN 12EA: 01 08 ; move_look(RM_08_CRAWLING_OVER_PEBBLES) 12EC: 00 ; Script_RM_08_CRAWLING_OVER_PEBBLES: ; PS_04 ; YOU ARE CRAWLING OVER PEBBLES IN A LOW PASSAGE. THERE IS A DIM LIGHT AT THE EAST END OF THE ; PASSAGE. ; 12ED: 02 03 ; E 12EF: 01 07 ; move_look(RM_07_BENEATH_A_HOLE) 12F1: 0C 03 ; OUT 12F3: 01 07 ; move_look(RM_07_BENEATH_A_HOLE) 12F5: 04 03 ; W 12F7: 01 09 ; move_look(RM_09_BROKEN_POTTERY) 12F9: 0B 03 ; IN 12FB: 01 09 ; move_look(RM_09_BROKEN_POTTERY) 12FD: 00 ; Script_RM_09_BROKEN_POTTERY: ; PS_05 ; YOU ARE IN A ROOM FILLED WITH BROKEN POTTERY SHARDS OF ANCIENT EGYPTIAN CRAFTS. AN AWKWARD CORRIDOR ; LEADS UPWARD AND WEST. ; 12FE: 02 03 ; E 1300: 01 08 ; move_look(RM_08_CRAWLING_OVER_PEBBLES) 1302: 0B 03 ; IN 1304: 01 0A ; move_look(RM_0A_AWKWARD_SLOPING) 1306: 09 03 ; U 1308: 01 0A ; move_look(RM_0A_AWKWARD_SLOPING) 130A: 04 03 ; W 130C: 01 0A ; move_look(RM_0A_AWKWARD_SLOPING) 130E: 00 ; Script_RM_0A_AWKWARD_SLOPING: ; PS_06 ; YOU ARE IN AN AWKWARD SLOPING EAST/WEST CORRIDOR. ; 130F: 0A 03 ; D 1311: 01 09 ; move_look(RM_09_BROKEN_POTTERY) 1313: 02 03 ; E 1315: 01 09 ; move_look(RM_09_BROKEN_POTTERY) 1317: 0B 03 ; IN 1319: 01 0B ; move_look(RM_0B_SPLENDID_CHAMBER) 131B: 04 03 ; W 131D: 01 0B ; move_look(RM_0B_SPLENDID_CHAMBER) 131F: 09 03 ; U 1321: 01 0B ; move_look(RM_0B_SPLENDID_CHAMBER) 1323: 00 ; Script_RM_0B_SPLENDID_CHAMBER: ; PS_07 ; YOU ARE IN A SPLENDID CHAMBER THIRTY FEET HIGH. THE WALLS ARE FROZEN RIVERS OF ORANGE STONE. AN ; AWKWARD CORRIDOR AND A GOOD PASSAGE EXIT FROM THE EAST AND WEST SIDES OF THE CHAMBER. ; 1324: 02 03 ; E 1326: 01 0A ; move_look(RM_0A_AWKWARD_SLOPING) 1328: 04 03 ; W 132A: 01 0C ; move_look(RM_0C_SMALL_PIT_WHITE_MIST) 132C: 00 ; Script_RM_0C_SMALL_PIT_WHITE_MIST: ; PS_08 ; AT YOUR FEET IS A SMALL PIT BREATHING TRACES OF WHITE MIST. AN EAST PASSAGE ENDS HERE EXCEPT FOR A ; SMALL CRACK LEADING ON. ROUGH STONE STEPS LEAD DOWN THE PIT. ; 132D: 02 03 ; E 132F: 01 0B ; move_look(RM_0B_SPLENDID_CHAMBER) 1331: 0A 0B ; D 1333: 07 07 ; stop_if_pass ... 1335: 02 25 ; is_in_pack(OBJ_25_GOLD) 1337: 04 30 8A ; print(PS_6B) YOU ARE AT THE BOTTOM OF THE PIT WITH A BROKEN NECK. 133A: 05 ; death_and_resurrect() 133B: 01 0D ; move_look(RM_0D_STEPS_LEAD_UP_DOME) 133D: 04 04 ; W 133F: 04 30 AF ; print(PS_6C) THE CRACK IS FAR TOO SMALL FOR YOU TO FOLLOW. 1342: 00 ; Script_RM_0D_STEPS_LEAD_UP_DOME: ; PS_09 ; YOU ARE AT ONE END OF A VAST HALL STRETCHING FORWARD OUT OF SIGHT TO THE WEST. THERE ARE OPENINGS TO ; EITHER SIDE. NEARBY, A WIDE STONE STAIRCASE LEADS DOWNWARD. THE HALL IS VERY MUSTY AND A COLD WIND ; BLOWS UP THE STAIRCASE. THERE IS A PASSAGE AT THE TOP OF A DOME BEHIND YOU. ROUGH STONE STEPS LEAD ; UP THE DOME. ; 1343: 03 03 ; S 1345: 01 0E ; move_look(RM_0E_LOW_ROOM_HIEROGLYPH) 1347: 04 03 ; W 1349: 01 0F ; move_look(RM_0F_EAST_BANK_BOTTOMLESS_PIT) 134B: 0A 03 ; D 134D: 01 10 ; move_look(RM_10_PHARAOHS_CHAMBER) 134F: 01 03 ; N 1351: 01 10 ; move_look(RM_10_PHARAOHS_CHAMBER) 1353: 09 0A ; U 1355: 07 06 ; stop_if_pass ... 1357: 02 25 ; is_in_pack(OBJ_25_GOLD) 1359: 04 30 CF ; print(PS_6D) THE DOME IS UNCLIMBABLE. 135C: 01 0C ; move_look(RM_0C_SMALL_PIT_WHITE_MIST) 135E: 02 0A ; E 1360: 07 06 ; stop_if_pass ... 1362: 02 25 ; is_in_pack(OBJ_25_GOLD) 1364: 04 30 CF ; print(PS_6D) THE DOME IS UNCLIMBABLE. 1367: 01 0C ; move_look(RM_0C_SMALL_PIT_WHITE_MIST) 1369: 20 03 ; ??20?? 136B: 01 1A ; move_look(RM_1A_PANEL_NORTH_WALL) 136D: 00 ; Script_RM_0E_LOW_ROOM_HIEROGLYPH: ; PS_0A ; THIS IS A LOW ROOM WITH A HIEROGLYPH ON THE WALL. IT TRANSLATES "YOU WON'T GET IT UP THE STEPS". ; 136E: 0C 03 ; OUT 1370: 01 0D ; move_look(RM_0D_STEPS_LEAD_UP_DOME) 1372: 01 03 ; N 1374: 01 0D ; move_look(RM_0D_STEPS_LEAD_UP_DOME) 1376: 00 ; Script_RM_0F_EAST_BANK_BOTTOMLESS_PIT: ; PS_0B ; YOU ARE ON THE EAST BANK OF A BOTTOMLESS PIT STRETCHING ACROSS THE HALL. THE MIST IS QUITE THICK ; HERE, AND THE PIT IS TOO WIDE TO JUMP. ; 1377: 02 03 ; E 1379: 01 0D ; move_look(RM_0D_STEPS_LEAD_UP_DOME) 137B: 10 0C ; JUMP 137D: 07 06 ; stop_if_pass ... 137F: 03 01 ; is_in_pack_or_current_room(OBJ_01_BRIDGE_ROOM_0F) 1381: 04 30 E1 ; print(PS_6E) I RESPECTFULLY SUGGEST YOU GO ACROSS THE BRIDGE INSTEAD OF JUMPING. 1384: 04 31 10 ; print(PS_6F) YOU DIDN'T MAKE IT. 1387: 05 ; death_and_resurrect() 1388: 04 0A ; W 138A: 07 05 ; stop_if_pass ... 138C: 03 01 ; is_in_pack_or_current_room(OBJ_01_BRIDGE_ROOM_0F) 138E: 01 12 ; move_look(RM_12_HALL_OF_GODS) 1390: 04 31 1F ; print(PS_70) THERE IS NO WAY ACROSS THE BOTTOMLESS PIT. 1393: 0D 05 ; CROSS 1395: 03 01 ; is_in_pack_or_current_room(OBJ_01_BRIDGE_ROOM_0F) 1397: 01 12 ; move_look(RM_12_HALL_OF_GODS) 1399: 23 18 ; WAVE 139B: 11 11 ; is_object_user_input(OBJ_11_SCEPTER) 139D: 07 0C ; stop_if_pass ... 139F: 03 01 ; is_in_pack_or_current_room(OBJ_01_BRIDGE_ROOM_0F) 13A1: 15 01 00 ; move_object_to_room(OBJ_01_BRIDGE_ROOM_0F, RM_00_nowhere) 13A4: 15 02 00 ; move_object_to_room(OBJ_02_BRIDGE_ROOM_12, RM_00_nowhere) 13A7: 04 3A 5E ; print(PS_AE) THE STONE BRIDGE HAS RETRACTED! 13AA: 18 01 ; move_object_to_current_room(OBJ_01_BRIDGE_ROOM_0F) 13AC: 15 02 12 ; move_object_to_room(OBJ_02_BRIDGE_ROOM_12, RM_12_HALL_OF_GODS) 13AF: 04 3A 75 ; print(PS_AF) A STONE BRIDGE NOW SPANS THE BOTTOMLESS PIT. 13B2: 00 ; Script_RM_10_PHARAOHS_CHAMBER: ; PS_0C ; YOU ARE IN THE PHARAOH'S CHAMBER, WITH PASSAGES OFF IN ALL DIRECTIONS. ; 13B3: 09 03 ; U 13B5: 01 0D ; move_look(RM_0D_STEPS_LEAD_UP_DOME) 13B7: 02 03 ; E 13B9: 01 0D ; move_look(RM_0D_STEPS_LEAD_UP_DOME) 13BB: 03 0A ; S 13BD: 07 06 ; stop_if_pass ... 13BF: 03 0B ; is_in_pack_or_current_room(OBJ_0B_SERPENT) 13C1: 04 31 3D ; print(PS_71) YOU CAN'T GET BY THE SERPENT. 13C4: 01 11 ; move_look(RM_11_SOUTH_SIDE_CHAMBER) 13C6: 01 0A ; N 13C8: 07 06 ; stop_if_pass ... 13CA: 03 0B ; is_in_pack_or_current_room(OBJ_0B_SERPENT) 13CC: 04 31 3D ; print(PS_71) YOU CAN'T GET BY THE SERPENT. 13CF: 01 19 ; move_look(RM_19_LOW_NS_PASSAGE) 13D1: 04 0A ; W 13D3: 07 06 ; stop_if_pass ... 13D5: 03 0B ; is_in_pack_or_current_room(OBJ_0B_SERPENT) 13D7: 04 31 3D ; print(PS_71) YOU CAN'T GET BY THE SERPENT. 13DA: 01 18 ; move_look(RM_18_THRONE_CHAMBER) 13DC: 26 10 ; THROW 13DE: 11 14 ; is_object_user_input(OBJ_14_BIRD_IN_BOX) 13E0: 03 0B ; is_in_pack_or_current_room(OBJ_0B_SERPENT) 13E2: 15 0B 00 ; move_object_to_room(OBJ_0B_SERPENT, RM_00_nowhere) 13E5: 18 13 ; move_object_to_current_room(OBJ_13_BIRD) 13E7: 15 14 00 ; move_object_to_room(OBJ_14_BIRD_IN_BOX, RM_00_nowhere) 13EA: 04 3B 21 ; print(PS_B4) THE BIRD STATUE COMES TO LIFE AND ATTACKS THE SERPENT AND IN AN ASTOUNDING FLURRY, DRIVES THE ; SERPENT AWAY. THE BIRD TURNS BACK INTO A STATUE. 13ED: 00 ; Script_RM_11_SOUTH_SIDE_CHAMBER: ; PS_0D ; YOU ARE IN THE SOUTH SIDE CHAMBER. ; 13EE: 01 03 ; N 13F0: 01 10 ; move_look(RM_10_PHARAOHS_CHAMBER) 13F2: 0C 03 ; OUT 13F4: 01 10 ; move_look(RM_10_PHARAOHS_CHAMBER) 13F6: 00 ; Script_RM_12_HALL_OF_GODS: ; PS_0E ; YOU ARE ON THE WEST SIDE OF THE BOTTOMLESS PIT IN THE HALL OF GODS. ; 13F7: 10 0C ; JUMP 13F9: 07 06 ; stop_if_pass ... 13FB: 03 02 ; is_in_pack_or_current_room(OBJ_02_BRIDGE_ROOM_12) 13FD: 04 30 E1 ; print(PS_6E) I RESPECTFULLY SUGGEST YOU GO ACROSS THE BRIDGE INSTEAD OF JUMPING. 1400: 04 31 10 ; print(PS_6F) YOU DIDN'T MAKE IT. 1403: 05 ; death_and_resurrect() 1404: 02 0A ; E 1406: 07 05 ; stop_if_pass ... 1408: 03 02 ; is_in_pack_or_current_room(OBJ_02_BRIDGE_ROOM_12) 140A: 01 0F ; move_look(RM_0F_EAST_BANK_BOTTOMLESS_PIT) 140C: 04 31 1F ; print(PS_70) THERE IS NO WAY ACROSS THE BOTTOMLESS PIT. 140F: 01 06 ; N 1411: 04 31 53 ; print(PS_72) YOU HAVE CRAWLED THROUGH A VERY LOW WIDE PASSAGE PARALLEL TO AND NORTH OF THE HALL OF GODS. 1414: 01 13 ; move_look(RM_13_LITTLE_PASSAGE_SIX_FEET) 1416: 0D 05 ; CROSS 1418: 03 02 ; is_in_pack_or_current_room(OBJ_02_BRIDGE_ROOM_12) 141A: 01 0F ; move_look(RM_0F_EAST_BANK_BOTTOMLESS_PIT) 141C: 23 18 ; WAVE 141E: 11 11 ; is_object_user_input(OBJ_11_SCEPTER) 1420: 07 0C ; stop_if_pass ... 1422: 03 02 ; is_in_pack_or_current_room(OBJ_02_BRIDGE_ROOM_12) 1424: 15 02 00 ; move_object_to_room(OBJ_02_BRIDGE_ROOM_12, RM_00_nowhere) 1427: 15 01 00 ; move_object_to_room(OBJ_01_BRIDGE_ROOM_0F, RM_00_nowhere) 142A: 04 3A 5E ; print(PS_AE) THE STONE BRIDGE HAS RETRACTED! 142D: 18 02 ; move_object_to_current_room(OBJ_02_BRIDGE_ROOM_12) 142F: 15 01 0F ; move_object_to_room(OBJ_01_BRIDGE_ROOM_0F, RM_0F_EAST_BANK_BOTTOMLESS_PIT) 1432: 04 3A 75 ; print(PS_AF) A STONE BRIDGE NOW SPANS THE BOTTOMLESS PIT. 1435: 00 ; Script_RM_13_LITTLE_PASSAGE_SIX_FEET: ; PS_0F ; YOU ARE AT THE WEST END OF THE HALL OF GODS. A LOW WIDE PASS CONTINUES WEST AND ANOTHER GOES NORTH. ; TO THE SOUTH IS A LITTLE PASSAGE SIX FEET OFF THE FLOOR. ; 1436: 03 03 ; S 1438: 01 1C ; move_look(RM_1C_TWISTY_PASSAGES1) 143A: 09 03 ; U 143C: 01 1C ; move_look(RM_1C_TWISTY_PASSAGES1) 143E: 11 03 ; CLIMB 1440: 01 1C ; move_look(RM_1C_TWISTY_PASSAGES1) 1442: 02 03 ; E 1444: 01 12 ; move_look(RM_12_HALL_OF_GODS) 1446: 01 03 ; N 1448: 01 12 ; move_look(RM_12_HALL_OF_GODS) 144A: 04 03 ; W 144C: 01 14 ; move_look(RM_14_EAST_END_LONG_HALL) 144E: 00 ; Script_RM_14_EAST_END_LONG_HALL: ; PS_10 ; YOU ARE AT EAST END OF A VERY LONG HALL APPARENTLY WITHOUT SIDE CHAMBERS. TO THE EAST A LOW WIDE ; CRAWL SLANTS UP. TO THE NORTH A ROUND TWO FOOT HOLE SLANTS DOWN. ; 144F: 02 03 ; E 1451: 01 13 ; move_look(RM_13_LITTLE_PASSAGE_SIX_FEET) 1453: 09 03 ; U 1455: 01 13 ; move_look(RM_13_LITTLE_PASSAGE_SIX_FEET) 1457: 04 03 ; W 1459: 01 15 ; move_look(RM_15_WEST_END_FEATURELESS_HALL) 145B: 01 03 ; N 145D: 01 16 ; move_look(RM_16_CROSSOVER) 145F: 0A 03 ; D 1461: 01 16 ; move_look(RM_16_CROSSOVER) 1463: 00 ; Script_RM_15_WEST_END_FEATURELESS_HALL: ; PS_11 ; YOU ARE AT THE WEST END OF A VERY LONG FEATURELESS HALL. THE HALL JOINS UP WITH A NARROW NORTH/SOUTH ; PASSAGE. ; 1464: 02 03 ; E 1466: 01 14 ; move_look(RM_14_EAST_END_LONG_HALL) 1468: 01 03 ; N 146A: 01 16 ; move_look(RM_16_CROSSOVER) 146C: 00 ; Script_RM_16_CROSSOVER: ; PS_12 ; YOU ARE AT A CROSSOVER OF A HIGH N/S PASSAGE AND A LOW E/W ONE. ; 146D: 04 03 ; W 146F: 01 14 ; move_look(RM_14_EAST_END_LONG_HALL) 1471: 01 03 ; N 1473: 01 17 ; move_look(RM_17_DEAD_END1) 1475: 02 03 ; E 1477: 01 18 ; move_look(RM_18_THRONE_CHAMBER) 1479: 03 03 ; S 147B: 01 15 ; move_look(RM_15_WEST_END_FEATURELESS_HALL) 147D: 00 ; Script_RM_17_DEAD_END1: ; PS_13 ; DEAD END. ; 147E: 03 03 ; S 1480: 01 16 ; move_look(RM_16_CROSSOVER) 1482: 0C 03 ; OUT 1484: 01 16 ; move_look(RM_16_CROSSOVER) 1486: 00 ; Script_RM_18_THRONE_CHAMBER: ; PS_14 ; YOU ARE IN THE WEST THRONE CHAMBER. A PASSAGE CONTINUES WEST AND UP FROM HERE. ; 1487: 02 03 ; E 1489: 01 10 ; move_look(RM_10_PHARAOHS_CHAMBER) 148B: 0C 03 ; OUT 148D: 01 10 ; move_look(RM_10_PHARAOHS_CHAMBER) 148F: 04 03 ; W 1491: 01 16 ; move_look(RM_16_CROSSOVER) 1493: 09 03 ; U 1495: 01 16 ; move_look(RM_16_CROSSOVER) 1497: 00 ; Script_RM_19_LOW_NS_PASSAGE: ; PS_15 ; YOU ARE IN A LOW N/S PASSAGE AT A HOLE IN THE FLOOR. THE HOLE GOES DOWN TO AN E/W PASSAGE. ; 1498: 0C 03 ; OUT 149A: 01 10 ; move_look(RM_10_PHARAOHS_CHAMBER) 149C: 03 03 ; S 149E: 01 10 ; move_look(RM_10_PHARAOHS_CHAMBER) 14A0: 01 03 ; N 14A2: 01 1A ; move_look(RM_1A_PANEL_NORTH_WALL) 14A4: 20 03 ; ??20?? 14A6: 01 1A ; move_look(RM_1A_PANEL_NORTH_WALL) 14A8: 0A 03 ; D 14AA: 01 36 ; move_look(RM_36_DIRTY_BROKEN_PASSAGE) 14AC: 00 ; Script_RM_1A_PANEL_NORTH_WALL: ; PS_16 ; YOU ARE IN A LARGE ROOM, WITH A PASSAGE TO THE SOUTH, AND A WALL OF BROKEN ROCK TO THE EAST. THERE ; IS A PANEL ON THE NORTH WALL. ; 14AD: 12 03 ; PANEL 14AF: 01 02 ; move_look(RM_02_IN_ENTRANCE) 14B1: 03 03 ; S 14B3: 01 19 ; move_look(RM_19_LOW_NS_PASSAGE) 14B5: 02 03 ; E 14B7: 01 1B ; move_look(RM_1B_CHAMBER_OF_ANUBIS) 14B9: 00 ; Script_RM_1B_CHAMBER_OF_ANUBIS: ; PS_17 ; YOU ARE IN THE CHAMBER OF ANUBIS. ; 14BA: 0A 03 ; D 14BC: 01 1A ; move_look(RM_1A_PANEL_NORTH_WALL) 14BE: 20 03 ; ??20?? 14C0: 01 1A ; move_look(RM_1A_PANEL_NORTH_WALL) 14C2: 09 03 ; U 14C4: 01 0D ; move_look(RM_0D_STEPS_LEAD_UP_DOME) 14C6: 00 ; Script_RM_1C_TWISTY_PASSAGES1: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 14C7: 01 03 ; N 14C9: 01 1C ; move_look(RM_1C_TWISTY_PASSAGES1) 14CB: 02 03 ; E 14CD: 01 20 ; move_look(RM_20_TWISTY_PASSAGES5) 14CF: 03 03 ; S 14D1: 01 1E ; move_look(RM_1E_TWISTY_PASSAGES3) 14D3: 04 03 ; W 14D5: 01 1D ; move_look(RM_1D_TWISTY_PASSAGES2) 14D7: 09 03 ; U 14D9: 01 13 ; move_look(RM_13_LITTLE_PASSAGE_SIX_FEET) 14DB: 00 ; Script_RM_1D_TWISTY_PASSAGES2: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 14DC: 01 03 ; N 14DE: 01 1C ; move_look(RM_1C_TWISTY_PASSAGES1) 14E0: 02 03 ; E 14E2: 01 33 ; move_look(RM_33_DEAD_END11) 14E4: 03 03 ; S 14E6: 01 1D ; move_look(RM_1D_TWISTY_PASSAGES2) 14E8: 04 03 ; W 14EA: 01 1D ; move_look(RM_1D_TWISTY_PASSAGES2) 14EC: 00 ; Script_RM_1E_TWISTY_PASSAGES3: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 14ED: 01 03 ; N 14EF: 01 20 ; move_look(RM_20_TWISTY_PASSAGES5) 14F1: 02 03 ; E 14F3: 01 2A ; move_look(RM_2A_DEAD_END2) 14F5: 03 03 ; S 14F7: 01 2B ; move_look(RM_2B_DEAD_END3) 14F9: 04 03 ; W 14FB: 01 1C ; move_look(RM_1C_TWISTY_PASSAGES1) 14FD: 09 03 ; U 14FF: 01 1F ; move_look(RM_1F_TWISTY_PASSAGES4) 1501: 0A 03 ; D 1503: 01 1F ; move_look(RM_1F_TWISTY_PASSAGES4) 1505: 00 ; Script_RM_1F_TWISTY_PASSAGES4: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 1506: 09 03 ; U 1508: 01 1E ; move_look(RM_1E_TWISTY_PASSAGES3) 150A: 0A 03 ; D 150C: 01 1E ; move_look(RM_1E_TWISTY_PASSAGES3) 150E: 00 ; Script_RM_20_TWISTY_PASSAGES5: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 150F: 02 03 ; E 1511: 01 1E ; move_look(RM_1E_TWISTY_PASSAGES3) 1513: 03 03 ; S 1515: 01 21 ; move_look(RM_21_TWISTY_PASSAGES6) 1517: 04 03 ; W 1519: 01 1C ; move_look(RM_1C_TWISTY_PASSAGES1) 151B: 00 ; Script_RM_21_TWISTY_PASSAGES6: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 151C: 01 03 ; N 151E: 01 2C ; move_look(RM_2C_DEAD_END4) 1520: 02 03 ; E 1522: 01 20 ; move_look(RM_20_TWISTY_PASSAGES5) 1524: 03 03 ; S 1526: 01 22 ; move_look(RM_22_TWISTY_PASSAGES7) 1528: 0A 03 ; D 152A: 01 2D ; move_look(RM_2D_DEAD_END5) 152C: 00 ; Script_RM_22_TWISTY_PASSAGES7: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 152D: 02 03 ; E 152F: 01 21 ; move_look(RM_21_TWISTY_PASSAGES6) 1531: 03 03 ; S 1533: 01 23 ; move_look(RM_23_TWISTY_PASSAGES8) 1535: 04 03 ; W 1537: 01 25 ; move_look(RM_25_TWISTY_PASSAGES10) 1539: 0A 03 ; D 153B: 01 26 ; move_look(RM_26_TWISTY_PASSAGES11) 153D: 00 ; Script_RM_23_TWISTY_PASSAGES8: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 153E: 01 03 ; N 1540: 01 24 ; move_look(RM_24_TWISTY_PASSAGES9) 1542: 02 03 ; E 1544: 01 26 ; move_look(RM_26_TWISTY_PASSAGES11) 1546: 03 03 ; S 1548: 01 23 ; move_look(RM_23_TWISTY_PASSAGES8) 154A: 04 03 ; W 154C: 01 22 ; move_look(RM_22_TWISTY_PASSAGES7) 154E: 09 03 ; U 1550: 01 27 ; move_look(RM_27_TWISTY_PASSAGES12) 1552: 0A 03 ; D 1554: 01 2F ; move_look(RM_2F_DEAD_END7) 1556: 00 ; Script_RM_24_TWISTY_PASSAGES9: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 1557: 01 03 ; N 1559: 01 24 ; move_look(RM_24_TWISTY_PASSAGES9) 155B: 02 03 ; E 155D: 01 34 ; move_look(RM_34_BRINK_OF_LARGE_PIT) 155F: 04 03 ; W 1561: 01 23 ; move_look(RM_23_TWISTY_PASSAGES8) 1563: 0A 03 ; D 1565: 01 30 ; move_look(RM_30_DEAD_END8) 1567: 00 ; Script_RM_25_TWISTY_PASSAGES10: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 1568: 02 03 ; E 156A: 01 22 ; move_look(RM_22_TWISTY_PASSAGES7) 156C: 04 03 ; W 156E: 01 26 ; move_look(RM_26_TWISTY_PASSAGES11) 1570: 00 ; Script_RM_26_TWISTY_PASSAGES11: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 1571: 02 03 ; E 1573: 01 23 ; move_look(RM_23_TWISTY_PASSAGES8) 1575: 03 03 ; S 1577: 01 27 ; move_look(RM_27_TWISTY_PASSAGES12) 1579: 04 03 ; W 157B: 01 25 ; move_look(RM_25_TWISTY_PASSAGES10) 157D: 09 03 ; U 157F: 01 22 ; move_look(RM_22_TWISTY_PASSAGES7) 1581: 00 ; Script_RM_27_TWISTY_PASSAGES12: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 1582: 01 03 ; N 1584: 01 23 ; move_look(RM_23_TWISTY_PASSAGES8) 1586: 03 03 ; S 1588: 01 2E ; move_look(RM_2E_DEAD_END6) 158A: 04 03 ; W 158C: 01 26 ; move_look(RM_26_TWISTY_PASSAGES11) 158E: 00 ; Script_RM_28_TWISTY_PASSAGES13: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 158F: 01 03 ; N 1591: 01 34 ; move_look(RM_34_BRINK_OF_LARGE_PIT) 1593: 04 03 ; W 1595: 01 29 ; move_look(RM_29_TWISTY_PASSAGES14) 1597: 08 03 ; NW 1599: 01 35 ; move_look(RM_35_DEAD_END12) 159B: 00 ; Script_RM_29_TWISTY_PASSAGES14: ; PS_18 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. ; 159C: 02 03 ; E 159E: 01 28 ; move_look(RM_28_TWISTY_PASSAGES13) 15A0: 03 03 ; S 15A2: 01 34 ; move_look(RM_34_BRINK_OF_LARGE_PIT) 15A4: 04 03 ; W 15A6: 01 32 ; move_look(RM_32_DEAD_END10) 15A8: 00 ; Script_RM_2A_DEAD_END2: ; PS_13 ; DEAD END. ; 15A9: 04 03 ; W 15AB: 01 1E ; move_look(RM_1E_TWISTY_PASSAGES3) 15AD: 00 ; Script_RM_2B_DEAD_END3: ; PS_13 ; DEAD END. ; 15AE: 02 03 ; E 15B0: 01 1E ; move_look(RM_1E_TWISTY_PASSAGES3) 15B2: 00 ; Script_RM_2C_DEAD_END4: ; PS_13 ; DEAD END. ; 15B3: 03 03 ; S 15B5: 01 21 ; move_look(RM_21_TWISTY_PASSAGES6) 15B7: 00 ; Script_RM_2D_DEAD_END5: ; PS_13 ; DEAD END. ; 15B8: 09 03 ; U 15BA: 01 21 ; move_look(RM_21_TWISTY_PASSAGES6) 15BC: 00 ; Script_RM_2E_DEAD_END6: ; PS_13 ; DEAD END. ; 15BD: 04 03 ; W 15BF: 01 27 ; move_look(RM_27_TWISTY_PASSAGES12) 15C1: 00 ; Script_RM_2F_DEAD_END7: ; PS_13 ; DEAD END. ; 15C2: 09 03 ; U 15C4: 01 23 ; move_look(RM_23_TWISTY_PASSAGES8) 15C6: 00 ; Script_RM_30_DEAD_END8: ; PS_13 ; DEAD END. ; 15C7: 09 03 ; U 15C9: 01 24 ; move_look(RM_24_TWISTY_PASSAGES9) 15CB: 00 ; Script_RM_31_DEAD_END9: ; PS_13 ; DEAD END. ; 15CC: 02 03 ; E 15CE: 01 34 ; move_look(RM_34_BRINK_OF_LARGE_PIT) 15D0: 00 ; Script_RM_32_DEAD_END10: ; PS_13 ; DEAD END. ; 15D1: 02 03 ; E 15D3: 01 29 ; move_look(RM_29_TWISTY_PASSAGES14) 15D5: 00 ; Script_RM_33_DEAD_END11: ; PS_13 ; DEAD END. ; 15D6: 04 03 ; W 15D8: 01 1D ; move_look(RM_1D_TWISTY_PASSAGES2) 15DA: 21 0B ; DROP 15DC: 11 29 ; is_object_user_input(OBJ_29_COINS) 15DE: 15 29 00 ; move_object_to_room(OBJ_29_COINS, RM_00_nowhere) 15E1: 18 23 ; move_object_to_current_room(OBJ_23_BATTERIES_FRESH) 15E3: 04 3A D8 ; print(PS_B2) THERE ARE NOW SOME FRESH BATTERIES HERE.\ 15E6: 00 ; Script_RM_34_BRINK_OF_LARGE_PIT: ; PS_19 ; YOU ARE ON THE BRINK OF A LARGE PIT. YOU COULD CLIMB DOWN, BUT YOU WOULD NOT BE ABLE TO CLIMB BACK ; UP. THE MAZE CONTINUES ON THIS LEVEL. ; 15E7: 01 03 ; N 15E9: 01 29 ; move_look(RM_29_TWISTY_PASSAGES14) 15EB: 02 03 ; E 15ED: 01 28 ; move_look(RM_28_TWISTY_PASSAGES13) 15EF: 03 03 ; S 15F1: 01 31 ; move_look(RM_31_DEAD_END9) 15F3: 04 03 ; W 15F5: 01 24 ; move_look(RM_24_TWISTY_PASSAGES9) 15F7: 0A 03 ; D 15F9: 01 0B ; move_look(RM_0B_SPLENDID_CHAMBER) 15FB: 00 ; Script_RM_35_DEAD_END12: ; PS_13 ; DEAD END. ; 15FC: 06 03 ; SE 15FE: 01 28 ; move_look(RM_28_TWISTY_PASSAGES13) 1600: 00 ; Script_RM_36_DIRTY_BROKEN_PASSAGE: ; PS_1A ; YOU ARE IN A DIRTY BROKEN PASSAGE. TO THE EAST IS A CRAWL. TO THE WEST IS A LARGE PASSAGE. ABOVE YOU ; IS A HOLE TO ANOTHER PASSAGE. ; 1601: 02 03 ; E 1603: 01 37 ; move_look(RM_37_BRINK_OF_CLEAN_PIT) 1605: 04 03 ; W 1607: 01 39 ; move_look(RM_39_ROOM_OF_BES) 1609: 09 03 ; U 160B: 01 19 ; move_look(RM_19_LOW_NS_PASSAGE) 160D: 00 ; Script_RM_37_BRINK_OF_CLEAN_PIT: ; PS_1B ; YOU ARE ON THE BRINK OF A SMALL CLEAN CLIMBABLE PIT. A CRAWL LEADS WEST. ; 160E: 04 03 ; W 1610: 01 36 ; move_look(RM_36_DIRTY_BROKEN_PASSAGE) 1612: 0A 03 ; D 1614: 01 38 ; move_look(RM_38_PIT_LITTLE_STREAM) 1616: 11 03 ; CLIMB 1618: 01 38 ; move_look(RM_38_PIT_LITTLE_STREAM) 161A: 00 ; Script_RM_38_PIT_LITTLE_STREAM: ; PS_1C ; YOU ARE IN THE BOTTOM OF A SMALL PIT WITH A LITTLE STREAM, WHICH ENTERS AND EXITS THROUGH TINY ; SLITS. ; 161B: 09 03 ; U 161D: 01 37 ; move_look(RM_37_BRINK_OF_CLEAN_PIT) 161F: 0C 03 ; OUT 1621: 01 37 ; move_look(RM_37_BRINK_OF_CLEAN_PIT) 1623: 11 03 ; CLIMB 1625: 01 37 ; move_look(RM_37_BRINK_OF_CLEAN_PIT) 1627: 0A 04 ; D 1629: 04 31 92 ; print(PS_73) YOU DON'T FIT THROUGH TWO-INCH SLIT! 162C: 27 0B ; FILL 162E: 07 06 ; stop_if_pass ... 1630: 02 1C ; is_in_pack(OBJ_1C_WATER) 1632: 04 39 C1 ; print(PS_AC) YOUR BOTTLE IS ALREADY FULL. 1635: 19 1C 1B ; put_object_in_container_print_ok(OBJ_1C_WATER, OBJ_1B_BOTTLE) 1638: 00 ; Script_RM_39_ROOM_OF_BES: ; PS_1D ; YOU ARE IN A THE ROOM OF BES, WHOSE PICTURE IS ON THE WALL. THERE IS A BIG HOLE IN THE FLOOR. THERE ; IS A PASSAGE LEADING EAST. ; 1639: 02 03 ; E 163B: 01 36 ; move_look(RM_36_DIRTY_BROKEN_PASSAGE) 163D: 0A 03 ; D 163F: 01 3A ; move_look(RM_3A_COMPLEX_JUNCTION) 1641: 00 ; Script_RM_3A_COMPLEX_JUNCTION: ; PS_1E ; YOU ARE AT A COMPLEX JUNCTION. A LOW HANDS AND KNEES PASSAGE FROM THE NORTH JOINS A HIGHER CRAWL ; FROM THE EAST TO MAKE A WALKING PASSAGE GOING WEST. THERE IS ALSO A LARGE ROOM ABOVE. THE AIR IS ; DAMP HERE. ; 1642: 01 03 ; N 1644: 01 3D ; move_look(RM_3D_ANCIENT_DRAWINGS) 1646: 02 03 ; E 1648: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 164A: 04 03 ; W 164C: 01 41 ; move_look(RM_41_CHAMBER_OF_HORUS) 164E: 09 03 ; U 1650: 01 39 ; move_look(RM_39_ROOM_OF_BES) 1652: 11 03 ; CLIMB 1654: 01 39 ; move_look(RM_39_ROOM_OF_BES) 1656: 00 ; Script_RM_3B_ANTEROOM_OF_SEKER: ; PS_1F ; YOU ARE IN THE UNDERWORLD ANTEROOM OF SEKER. PASSAGES GO EAST, WEST, AND UP. HUMAN BONES ARE STREWN ; ABOUT ON THE FLOOR. HIEROGLYPHICS ON THE WALL ROUGHLY TRANSLATE TO "THOSE WHO PROCEED EAST MAY NEVER ; RETURN." ; 1657: 02 03 ; E 1659: 01 3C ; move_look(RM_3C_LAND_OF_DEAD) 165B: 04 03 ; W 165D: 01 41 ; move_look(RM_41_CHAMBER_OF_HORUS) 165F: 09 03 ; U 1661: 01 3A ; move_look(RM_3A_COMPLEX_JUNCTION) 1663: 00 ; Script_RM_3C_LAND_OF_DEAD: ; PS_20 ; YOU ARE AT THE LAND OF DEAD. PASSAGES LEAD OFF IN >ALL< DIRECTIONS. ; 1664: 01 07 ; N 1666: 07 03 ; stop_if_pass ... 1668: 0A F0 ; pyramid_crawl_move_random(0xF0) 166A: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 166C: 02 07 ; E 166E: 07 03 ; stop_if_pass ... 1670: 0A F0 ; pyramid_crawl_move_random(0xF0) 1672: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 1674: 03 07 ; S 1676: 07 03 ; stop_if_pass ... 1678: 0A F0 ; pyramid_crawl_move_random(0xF0) 167A: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 167C: 05 07 ; NE 167E: 07 03 ; stop_if_pass ... 1680: 0A F0 ; pyramid_crawl_move_random(0xF0) 1682: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 1684: 06 07 ; SE 1686: 07 03 ; stop_if_pass ... 1688: 0A F0 ; pyramid_crawl_move_random(0xF0) 168A: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 168C: 07 07 ; SW 168E: 07 03 ; stop_if_pass ... 1690: 0A F0 ; pyramid_crawl_move_random(0xF0) 1692: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 1694: 08 07 ; NW 1696: 07 03 ; stop_if_pass ... 1698: 0A F0 ; pyramid_crawl_move_random(0xF0) 169A: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 169C: 09 07 ; U 169E: 07 03 ; stop_if_pass ... 16A0: 0A F0 ; pyramid_crawl_move_random(0xF0) 16A2: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 16A4: 04 06 ; W 16A6: 04 31 E6 ; print(PS_75) YOU HAVE CRAWLED AROUND IN SOME LITTLE HOLES AND FOUND YOUR WAY BLOCKED BY A FALLEN SLAB. YOU ARE ; NOW BACK IN THE MAIN PASSAGE. 16A9: 01 3C ; move_look(RM_3C_LAND_OF_DEAD) 16AB: 00 ; Script_RM_3D_ANCIENT_DRAWINGS: ; PS_21 ; YOU'RE IN A LARGE ROOM WITH ANCIENT DRAWINGS ON ALL WALLS. THE PICTURES DEPICT ATUM, A PHARAOH ; WEARING THE DOUBLE CROWN. A SHALLOW PASSAGE PROCEEDS DOWNWARD, AND A SOMEWHAT STEEPER ONE LEADS UP. ; A LOW HANDS AND KNEES PASSAGE ENTERS FROM THE SOUTH. ; 16AC: 03 11 ; S 16AE: 07 06 ; stop_if_pass ... 16B0: 02 17 ; is_in_pack(OBJ_17_SARCOPH_FULL) 16B2: 04 32 3D ; print(PS_76) YOU CAN'T FIT THIS BIG SARCOPHAGUS THROUGH THAT LITTLE PASSAGE! 16B5: 07 06 ; stop_if_pass ... 16B7: 02 18 ; is_in_pack(OBJ_18_SARCOPH_EMPTY) 16B9: 04 32 3D ; print(PS_76) YOU CAN'T FIT THIS BIG SARCOPHAGUS THROUGH THAT LITTLE PASSAGE! 16BC: 01 3A ; move_look(RM_3A_COMPLEX_JUNCTION) 16BE: 09 03 ; U 16C0: 01 3E ; move_look(RM_3E_MOON_GOD) 16C2: 0A 03 ; D 16C4: 01 3F ; move_look(RM_3F_RAGGED_WALLS) 16C6: 00 ; Script_RM_3E_MOON_GOD: ; PS_22 ; YOU ARE IN A CHAMBER WHOSE WALL CONTAINS A PICTURE OF A MAN WEARING THE LUNAR DISK ON HIS HEAD. HE ; IS THE GOD KHONS, THE MOON GOD. ; 16C7: 0A 03 ; D 16C9: 01 3D ; move_look(RM_3D_ANCIENT_DRAWINGS) 16CB: 0C 03 ; OUT 16CD: 01 3D ; move_look(RM_3D_ANCIENT_DRAWINGS) 16CF: 00 ; Script_RM_3F_RAGGED_WALLS: ; PS_23 ; YOU ARE IN A LONG SLOPING CORRIDOR WITH RAGGED WALLS. ; 16D0: 09 03 ; U 16D2: 01 3D ; move_look(RM_3D_ANCIENT_DRAWINGS) 16D4: 0A 03 ; D 16D6: 01 40 ; move_look(RM_40_CUL_DE_SAC) 16D8: 00 ; Script_RM_40_CUL_DE_SAC: ; PS_24 ; YOU ARE IN A CUL-DE-SAC ABOUT EIGHT FEET ACROSS. ; 16D9: 09 03 ; U 16DB: 01 3F ; move_look(RM_3F_RAGGED_WALLS) 16DD: 0C 03 ; OUT 16DF: 01 3F ; move_look(RM_3F_RAGGED_WALLS) 16E1: 00 ; Script_RM_41_CHAMBER_OF_HORUS: ; PS_25 ; YOU ARE IN THE CHAMBER OF HORUS, A LONG EAST/WEST PASSAGE WITH HOLES EVERYWHERE. TO EXPLORE AT ; RANDOM, SELECT NORTH, SOUTH, UP, OR DOWN. ; 16E2: 02 03 ; E 16E4: 01 3A ; move_look(RM_3A_COMPLEX_JUNCTION) 16E6: 04 03 ; W 16E8: 01 4E ; move_look(RM_4E_WEAST_END_TWOPIT) 16EA: 09 07 ; U 16EC: 07 03 ; stop_if_pass ... 16EE: 0A CC ; pyramid_crawl_move_random(0xCC) 16F0: 01 48 ; move_look(RM_48_PRIESTS_BEDROOM) 16F2: 01 07 ; N 16F4: 07 03 ; stop_if_pass ... 16F6: 0A CC ; pyramid_crawl_move_random(0xCC) 16F8: 01 49 ; move_look(RM_49_HIGH_PRIEST) 16FA: 03 07 ; S 16FC: 07 03 ; stop_if_pass ... 16FE: 0A CC ; pyramid_crawl_move_random(0xCC) 1700: 01 42 ; move_look(RM_42_FALLEN_SLAB) 1702: 0A 07 ; D 1704: 07 03 ; stop_if_pass ... 1706: 0A CC ; pyramid_crawl_move_random(0xCC) 1708: 01 3B ; move_look(RM_3B_ANTEROOM_OF_SEKER) 170A: 00 ; Script_RM_42_FALLEN_SLAB: ; PS_26 ; YOU ARE IN A LARGE LOW CIRCULAR CHAMBER WHOSE FLOOR IS AN IMMENSE SLAB FALLEN FROM THE CEILING. EAST ; AND WEST THERE ONCE WERE LARGE PASSAGES, BUT THEY ARE NOW FILLED WITH SAND. LOW SMALL PASSAGES GO ; NORTH AND SOUTH. ; 170B: 01 03 ; N 170D: 01 41 ; move_look(RM_41_CHAMBER_OF_HORUS) 170F: 03 03 ; S 1711: 01 50 ; move_look(RM_50_WEST_END_TWOPIT) 1713: 00 ; Script_RM_48_PRIESTS_BEDROOM: ; PS_27 ; YOU ARE IN THE PRIEST'S BEDROOM. THE WALLS ARE COVERED WITH CURTAINS, THE FLOOR WITH A THICK PILE ; CARPET. MOSS COVERS THE CEILING. ; 1714: 04 03 ; W 1716: 01 41 ; move_look(RM_41_CHAMBER_OF_HORUS) 1718: 0C 03 ; OUT 171A: 01 41 ; move_look(RM_41_CHAMBER_OF_HORUS) 171C: 00 ; Script_RM_49_HIGH_PRIEST: ; PS_28 ; THIS IS THE CHAMBER OF THE HIGH PRIEST. ANCIENT DRAWINGS COVER THE WALLS. AN EXTREMELY TIGHT TUNNEL ; LEADS WEST. IT LOOKS LIKE A TIGHT SQUEEZE. ANOTHER PASSAGE LEADS SE. ; 171D: 04 09 ; W 171F: 07 04 ; stop_if_pass ... 1721: 0D ; is_pack_just_emerald() 1722: 01 4C ; move_look(RM_4C_EERIE_GREEN_LIGHT) 1724: 04 32 69 ; print(PS_77) SOMETHING YOU'RE CARRYING WON'T FIT THROUGH THE TUNNEL WITH YOU. YOU'D BEST TAKE INVENTORY AND DROP ; SOMETHING. 1727: 06 03 ; SE 1729: 01 41 ; move_look(RM_41_CHAMBER_OF_HORUS) 172B: 00 ; Script_RM_4C_EERIE_GREEN_LIGHT: ; PS_29 ; YOU ARE IN THE HIGH PRIEST'S TREASURE ROOM LIT BY AN EERIE GREEN LIGHT. A NARROW TUNNEL EXITS TO THE ; EAST. ; 172C: 02 09 ; E 172E: 07 04 ; stop_if_pass ... 1730: 0D ; is_pack_just_emerald() 1731: 01 49 ; move_look(RM_49_HIGH_PRIEST) 1733: 04 32 69 ; print(PS_77) SOMETHING YOU'RE CARRYING WON'T FIT THROUGH THE TUNNEL WITH YOU. YOU'D BEST TAKE INVENTORY AND DROP ; SOMETHING. 1736: 0C 09 ; OUT 1738: 07 04 ; stop_if_pass ... 173A: 0D ; is_pack_just_emerald() 173B: 01 49 ; move_look(RM_49_HIGH_PRIEST) 173D: 04 32 69 ; print(PS_77) SOMETHING YOU'RE CARRYING WON'T FIT THROUGH THE TUNNEL WITH YOU. YOU'D BEST TAKE INVENTORY AND DROP ; SOMETHING. 1740: 00 ; Script_RM_4E_WEAST_END_TWOPIT: ; PS_2A ; YOU ARE AT THE EAST END OF THE TWOPIT ROOM. THE FLOOR HERE IS LITTERED WITH THIN ROCK SLABS, WHICH ; MAKE IT EASY TO DESCEND THE PITS. THERE IS A PATH HERE BYPASSING THE PITS TO CONNECT PASSAGES EAST ; AND WEST. THERE ARE HOLES ALL OVER, BUT THE ONLY BIG ONE IS ON THE WALL DIRECTLY OVER THE WEST PIT ; WHERE YOU CAN'T GET TO IT. ; 1741: 02 03 ; E 1743: 01 41 ; move_look(RM_41_CHAMBER_OF_HORUS) 1745: 04 03 ; W 1747: 01 50 ; move_look(RM_50_WEST_END_TWOPIT) 1749: 0A 03 ; D 174B: 01 4F ; move_look(RM_4F_BOTTOM_EASTERN_PIT) 174D: 00 ; Script_RM_4F_BOTTOM_EASTERN_PIT: ; PS_2B ; YOU ARE AT THE BOTTOM OF THE EASTERN PIT IN THE TWOPIT ROOM. ; 174E: 09 03 ; U 1750: 01 4E ; move_look(RM_4E_WEAST_END_TWOPIT) 1752: 0C 03 ; OUT 1754: 01 4E ; move_look(RM_4E_WEAST_END_TWOPIT) 1756: 00 ; Script_RM_50_WEST_END_TWOPIT: ; PS_2C ; YOU ARE AT THE WEST END OF THE TWOPIT ROOM. THERE IS A LARGE HOLE IN THE WALL ABOVE THE PIT AT THIS ; END OF THE ROOM. ; 1757: 02 03 ; E 1759: 01 4E ; move_look(RM_4E_WEAST_END_TWOPIT) 175B: 04 03 ; W 175D: 01 42 ; move_look(RM_42_FALLEN_SLAB) 175F: 0A 03 ; D 1761: 01 51 ; move_look(RM_51_BOTTOM_WEST_PIT) 1763: 00 ; Script_RM_51_BOTTOM_WEST_PIT: ; PS_2D ; YOU ARE AT THE BOTTOM OF THE WEST PIT IN THE TWOPIT ROOM. THERE IS A LARGE HOLE IN THE WALL ABOUT ; TWENTY FIVE FEET ABOVE YOU. ; 1764: 09 03 ; U 1766: 01 50 ; move_look(RM_50_WEST_END_TWOPIT) 1768: 0C 03 ; OUT 176A: 01 50 ; move_look(RM_50_WEST_END_TWOPIT) 176C: 11 16 ; CLIMB 176E: 07 08 ; stop_if_pass ... 1770: 03 09 ; is_in_pack_or_current_room(OBJ_09_PLANT_LARGE) 1772: 04 32 B5 ; print(PS_78) YOU CLAMBER UP THE PLANT AND SCURRY THROUGH THE HOLE AT THE TOP. 1775: 01 4D ; move_look(RM_4D_PROFUSION_OF_LEAVES) 1777: 07 06 ; stop_if_pass ... 1779: 03 08 ; is_in_pack_or_current_room(OBJ_08_PLANT_MEDIUM) 177B: 04 32 E2 ; print(PS_79) YOU'VE CLIMBED UP THE PLANT AND OUT OF THE PIT. 177E: 01 50 ; move_look(RM_50_WEST_END_TWOPIT) 1780: 04 3B FB ; print(PS_B8) THERE IS NOTHING HERE TO CLIMB. USE UP OR OUT TO LEAVE THE PIT. 1783: 24 2F ; POUR 1785: 11 1C ; is_object_user_input(OBJ_1C_WATER) 1787: 15 1C 00 ; move_object_to_room(OBJ_1C_WATER, RM_00_nowhere) 178A: 07 0E ; stop_if_pass ... 178C: 03 07 ; is_in_pack_or_current_room(OBJ_07_PLANT_SMALL) 178E: 15 07 00 ; move_object_to_room(OBJ_07_PLANT_SMALL, RM_00_nowhere) 1791: 18 08 ; move_object_to_current_room(OBJ_08_PLANT_MEDIUM) 1793: 04 3B 82 ; print(PS_B5) THE PLANT SPURTS INTO FURIOUS GROWTH FOR A FEW SECONDS. 1796: 04 2D 8A ; print(PS_4C) THERE IS A TWELVE FOOT BEAN STALK STRETCHING UP OUT OF THE PIT, BELLOWING "WATER... WATER..." 1799: 07 0E ; stop_if_pass ... 179B: 03 08 ; is_in_pack_or_current_room(OBJ_08_PLANT_MEDIUM) 179D: 15 08 00 ; move_object_to_room(OBJ_08_PLANT_MEDIUM, RM_00_nowhere) 17A0: 18 09 ; move_object_to_current_room(OBJ_09_PLANT_LARGE) 17A2: 04 3B A9 ; print(PS_B6) THE PLANT GROWS EXPLOSIVELY, ALMOST FILLING THE BOTTOM OF THE PIT. 17A5: 04 2D CA ; print(PS_4D) THERE IS A GIGANTIC BEAN STALK STRETCHING ALL THE WAY UP TO THE HOLE. 17A8: 15 09 00 ; move_object_to_room(OBJ_09_PLANT_LARGE, RM_00_nowhere) 17AB: 18 07 ; move_object_to_current_room(OBJ_07_PLANT_SMALL) 17AD: 04 3B D7 ; print(PS_B7) YOU'VE OVER-WATERED THE PLANT! IT'S SHRIVELING UP! 17B0: 04 2D 5E ; print(PS_4B) THERE IS A TINY PLANT IN THE PIT, MURMURING "WATER, WATER, ..." 17B3: 00 ; Script_RM_4D_PROFUSION_OF_LEAVES: ; PS_2E ; YOU ARE IN A LONG, NARROW CORRIDOR STRETCHING OUT OF SIGHT TO THE WEST. AT THE EASTERN END IS A HOLE ; THROUGH WHICH YOU CAN SEE A PROFUSION OF LEAVES. ; 17B4: 02 03 ; E 17B6: 01 51 ; move_look(RM_51_BOTTOM_WEST_PIT) 17B8: 0A 03 ; D 17BA: 01 51 ; move_look(RM_51_BOTTOM_WEST_PIT) 17BC: 11 03 ; CLIMB 17BE: 01 51 ; move_look(RM_51_BOTTOM_WEST_PIT) 17C0: 10 05 ; JUMP 17C2: 04 30 8A ; print(PS_6B) YOU ARE AT THE BOTTOM OF THE PIT WITH A BROKEN NECK. 17C5: 05 ; death_and_resurrect() 17C6: 04 03 ; W 17C8: 01 47 ; move_look(RM_47_CHAMBER_OF_OSIRIS) 17CA: 00 ; Script_RM_47_CHAMBER_OF_OSIRIS: ; PS_2F ; YOU ARE IN THE CHAMBER OF OSIRIS. THE CEILING IS TOO HIGH UP FOR YOUR LAMP TO SHOW IT. PASSAGES LEAD ; EAST, NORTH, AND SOUTH. ; 17CB: 01 03 ; N 17CD: 01 44 ; move_look(RM_44_CHAMBER_OF_NEKHEBET) 17CF: 02 03 ; E 17D1: 01 46 ; move_look(RM_46_BLOCKED_FALLEN_BLOCK) 17D3: 03 03 ; S 17D5: 01 4D ; move_look(RM_4D_PROFUSION_OF_LEAVES) 17D7: 00 ; Script_RM_46_BLOCKED_FALLEN_BLOCK: ; PS_30 ; THE PASSAGE HERE IS BLOCKED BY A FALLEN BLOCK. ; 17D8: 03 03 ; S 17DA: 01 47 ; move_look(RM_47_CHAMBER_OF_OSIRIS) 17DC: 0C 03 ; OUT 17DE: 01 47 ; move_look(RM_47_CHAMBER_OF_OSIRIS) 17E0: 00 ; Script_RM_44_CHAMBER_OF_NEKHEBET: ; PS_31 ; YOU ARE IN THE CHAMBER OF NEKHEBET, A WOMAN WITH THE HEAD OF A VULTURE, WEARING THE CROWN OF EGYPT. ; A PASSAGE EXITS TO THE SOUTH. ; 17E1: 03 03 ; S 17E3: 01 47 ; move_look(RM_47_CHAMBER_OF_OSIRIS) 17E5: 0C 03 ; OUT 17E7: 01 47 ; move_look(RM_47_CHAMBER_OF_OSIRIS) 17E9: 00 ; 17EA: FF
Ambient Light Table
2 bytes per room:
- 0x4000 means there is light in the room (no need for a lamp)
- 0x0000 means you better have a lamp
AmbientLightTable:
; Room Light
17EB: 40 00 ; RM_01_BEFORE_ENTRANCE natural light
17ED: 40 00 ; RM_02_IN_ENTRANCE natural light
17EF: 40 00 ; RM_03_DESERT1 natural light
17F1: 40 00 ; RM_04_DESERT2 natural light
17F3: 40 00 ; RM_05_DESERT3 natural light
17F5: 40 00 ; RM_06_DESERT4 natural light
17F7: 40 00 ; RM_07_BENEATH_A_HOLE natural light
17F9: 00 00 ; RM_08_CRAWLING_OVER_PEBBLES dark
17FB: 00 00 ; RM_09_BROKEN_POTTERY dark
17FD: 00 00 ; RM_0A_AWKWARD_SLOPING dark
17FF: 00 00 ; RM_0B_SPLENDID_CHAMBER dark
1801: 00 00 ; RM_0C_SMALL_PIT_WHITE_MIST dark
1803: 00 00 ; RM_0D_STEPS_LEAD_UP_DOME dark
1805: 00 00 ; RM_0E_LOW_ROOM_HIEROGLYPH dark
1807: 00 00 ; RM_0F_EAST_BANK_BOTTOMLESS_PIT dark
1809: 00 00 ; RM_10_PHARAOHS_CHAMBER dark
180B: 00 00 ; RM_11_SOUTH_SIDE_CHAMBER dark
180D: 00 00 ; RM_12_HALL_OF_GODS dark
180F: 00 00 ; RM_13_LITTLE_PASSAGE_SIX_FEET dark
1811: 00 00 ; RM_14_EAST_END_LONG_HALL dark
1813: 00 00 ; RM_15_WEST_END_FEATURELESS_HALL dark
1815: 00 00 ; RM_16_CROSSOVER dark
1817: 00 00 ; RM_17_DEAD_END1 dark
1819: 00 00 ; RM_18_THRONE_CHAMBER dark
181B: 00 00 ; RM_19_LOW_NS_PASSAGE dark
181D: 00 00 ; RM_1A_PANEL_NORTH_WALL dark
181F: 00 00 ; RM_1B_CHAMBER_OF_ANUBIS dark
1821: 00 00 ; RM_1C_TWISTY_PASSAGES1 dark
1823: 00 00 ; RM_1D_TWISTY_PASSAGES2 dark
1825: 00 00 ; RM_1E_TWISTY_PASSAGES3 dark
1827: 00 00 ; RM_1F_TWISTY_PASSAGES4 dark
1829: 00 00 ; RM_20_TWISTY_PASSAGES5 dark
182B: 00 00 ; RM_21_TWISTY_PASSAGES6 dark
182D: 00 00 ; RM_22_TWISTY_PASSAGES7 dark
182F: 00 00 ; RM_23_TWISTY_PASSAGES8 dark
1831: 00 00 ; RM_24_TWISTY_PASSAGES9 dark
1833: 00 00 ; RM_25_TWISTY_PASSAGES10 dark
1835: 00 00 ; RM_26_TWISTY_PASSAGES11 dark
1837: 00 00 ; RM_27_TWISTY_PASSAGES12 dark
1839: 00 00 ; RM_28_TWISTY_PASSAGES13 dark
183B: 00 00 ; RM_29_TWISTY_PASSAGES14 dark
183D: 00 00 ; RM_2A_DEAD_END2 dark
183F: 00 00 ; RM_2B_DEAD_END3 dark
1841: 00 00 ; RM_2C_DEAD_END4 dark
1843: 00 00 ; RM_2D_DEAD_END5 dark
1845: 00 00 ; RM_2E_DEAD_END6 dark
1847: 00 00 ; RM_2F_DEAD_END7 dark
1849: 00 00 ; RM_30_DEAD_END8 dark
184B: 00 00 ; RM_31_DEAD_END9 dark
184D: 00 00 ; RM_32_DEAD_END10 dark
184F: 00 00 ; RM_33_DEAD_END11 dark
1851: 00 00 ; RM_34_BRINK_OF_LARGE_PIT dark
1853: 00 00 ; RM_35_DEAD_END12 dark
1855: 00 00 ; RM_36_DIRTY_BROKEN_PASSAGE dark
1857: 00 00 ; RM_37_BRINK_OF_CLEAN_PIT dark
1859: 00 00 ; RM_38_PIT_LITTLE_STREAM dark
185B: 00 00 ; RM_39_ROOM_OF_BES dark
185D: 00 00 ; RM_3A_COMPLEX_JUNCTION dark
185F: 00 00 ; RM_3B_ANTEROOM_OF_SEKER dark
1861: 00 00 ; RM_3C_LAND_OF_DEAD dark
1863: 00 00 ; RM_3D_ANCIENT_DRAWINGS dark
1865: 00 00 ; RM_3E_MOON_GOD dark
1867: 00 00 ; RM_3F_RAGGED_WALLS dark
1869: 00 00 ; RM_40_CUL_DE_SAC dark
186B: 00 00 ; RM_41_CHAMBER_OF_HORUS dark
186D: 00 00 ; RM_42_FALLEN_SLAB dark
186F: 00 00 ; RM_43_
1871: 00 00 ; RM_44_CHAMBER_OF_NEKHEBET dark
1873: 00 00 ; RM_45_
1875: 00 00 ; RM_46_BLOCKED_FALLEN_BLOCK dark
1877: 00 00 ; RM_47_CHAMBER_OF_OSIRIS dark
1879: 00 00 ; RM_48_PRIESTS_BEDROOM dark
187B: 00 00 ; RM_49_HIGH_PRIEST dark
187D: 00 00 ; RM_4A_
187F: 00 00 ; RM_4B_
1881: 40 00 ; RM_4C_EERIE_GREEN_LIGHT "LIT_BY_AN_ERRIE_GREEN_LIGHT"
1883: 00 00 ; RM_4D_PROFUSION_OF_LEAVES dark
1885: 00 00 ; RM_4E_WEAST_END_TWOPIT dark
1887: 00 00 ; RM_4F_BOTTOM_EASTERN_PIT dark
1889: 00 00 ; RM_50_WEST_END_TWOPIT dark
188B: 00 00 ; RM_51_BOTTOM_WEST_PIT dark
Object Data
; This two-byte table contains the object's attributes ("isTreasure" and "isGettable")
; and the object's current location (a room or inside another object).
;
; The code references the objects by numeric id, but I have given them unique names
; in the table below. All object names begin with "#". All word names begin with "_".
;
; The format of the two bytes are:
;
; MCT----- RRRRRRRR
;
; M - if set, the second byte is an object number (container). if clear, the second byte is a room number.
; C - if set, object can be picked up.
; T - if set, object is treasure
;
; RRRRRRRR - Second byte is the object's location (containing object or room number).
ObjectData:
; MCT Name Start location
188D: 00 00 ; 000..... OBJ_01_BRIDGE_ROOM_0F *
188F: 00 00 ; 000..... OBJ_02_BRIDGE_ROOM_12 *
1891: 00 00 ;
1893: 00 00 ;
1895: 00 00 ;
1897: 00 33 ; 000..... OBJ_06_VENDING_MACHINE RM_33_DEAD_END11
1899: 00 51 ; 000..... OBJ_07_PLANT_SMALL RM_51_BOTTOM_WEST_PIT
189B: 00 00 ; 000..... OBJ_08_PLANT_MEDIUM *
189D: 00 00 ; 000..... OBJ_09_PLANT_LARGE *
189F: 00 00 ;
18A1: 00 10 ; 000..... OBJ_0B_SERPENT RM_10_PHARAOHS_CHAMBER
18A3: 00 00 ;
18A5: 00 00 ;
18A7: 40 02 ; 010..... OBJ_0E_LAMP_OFF RM_02_IN_ENTRANCE
18A9: 40 00 ; 010..... OBJ_0F_LAMP_ON *
18AB: 40 08 ; 010..... OBJ_10_BOX RM_08_CRAWLING_OVER_PEBBLES
18AD: 40 09 ; 010..... OBJ_11_SCEPTER RM_09_BROKEN_POTTERY
18AF: 40 48 ; 010..... OBJ_12_PILLOW RM_48_PRIESTS_BEDROOM
18B1: 40 0B ; 010..... OBJ_13_BIRD RM_0B_SPLENDID_CHAMBER
18B3: 00 00 ; 000..... OBJ_14_BIRD_IN_BOX *
18B5: 00 00 ; 000..... OBJ_15_POTTERY *
18B7: 60 00 ; 011..... OBJ_16_PEARL *
18B9: 40 3D ; 010..... OBJ_17_SARCOPH_FULL RM_3D_ANCIENT_DRAWINGS
18BB: 40 00 ; 010..... OBJ_18_SARCOPH_EMPTY *
18BD: 40 3B ; 010..... OBJ_19_MAGAZINES RM_3B_ANTEROOM_OF_SEKER
18BF: 40 02 ; 010..... OBJ_1A_FOOD RM_02_IN_ENTRANCE
18C1: 40 02 ; 010..... OBJ_1B_BOTTLE RM_02_IN_ENTRANCE
18C3: C0 1B ; 110..... OBJ_1C_WATER RM_1B_CHAMBER_OF_ANUBIS
18C5: 00 00 ;
18C7: 00 38 ; 000..... OBJ_1E_STREAM_ROOM_38 RM_38_PIT_LITTLE_STREAM
18C9: 60 4C ; 011..... OBJ_1F_EMERALD RM_4C_EERIE_GREEN_LIGHT
18CB: 60 00 ; 011..... OBJ_20_VASE_ON_PILLOW *
18CD: 60 49 ; 011..... OBJ_21_VASE RM_49_HIGH_PRIEST
18CF: 60 44 ; 011..... OBJ_22_KEY RM_44_CHAMBER_OF_NEKHEBET
18D1: 40 00 ; 010..... OBJ_23_BATTERIES_FRESH *
18D3: 40 00 ; 010..... OBJ_24_BATTERIES_WORN *
18D5: 60 0E ; 011..... OBJ_25_GOLD RM_0E_LOW_ROOM_HIEROGLYPH
18D7: 60 11 ; 011..... OBJ_26_DIAMONDS RM_11_SOUTH_SIDE_CHAMBER
18D9: 60 19 ; 011..... OBJ_27_SILVER RM_19_LOW_NS_PASSAGE
18DB: 60 12 ; 011..... OBJ_28_JEWELRY RM_12_HALL_OF_GODS
18DD: 60 18 ; 011..... OBJ_29_COINS RM_18_THRONE_CHAMBER
18DF: 60 00 ; 011..... OBJ_2A_CHEST *
18E1: 60 47 ; 011..... OBJ_2B_NEST_EGGS RM_47_CHAMBER_OF_OSIRIS
18E3: 40 00 ; 010..... OBJ_2C_LAMP_DEAD *
Game Variables
currentRoom: 18E5: 01 ; RoomNumber (start in room 1) bcdTurnCountMSB: 18E6: 00 ; TurnCountMSB (BCD format) bcdTurnCountLSB: 18E7: 00 ; TurnCountLSB (BCD format) lampOnTurnCount: 18E8: 00 00 ; LampTime LSB lastRoom: 18EA: 00 ; LastRoomNumber numObjInPack: 18EB: 00 ; NumInPack ; This is "numResurrected" in the TRS80 version 18EC: 00 ; * NOT USED *
Object Info
; Object descriptions (44 objects) ; For packable objects each slot points to a message pair. The first is the long ; description and the second is the short description for the backpack. ; ; Five of the objects have no descriptions -- their description points to a 0x00 ; in memory, which ends the print process. The TRS80 version of code points to ; a zero in the program itself. The CoCo version points to 0x01F9, which does ; contain a 0x0000. I'm not sure why the author used this particular double 0 ; instead of one in the code.
ObjectDescriptions:
; Name Desc Notes
18ED: 2C 70 ; OBJ_01_BRIDGE_ROOM_0F PS_40 Stone bridge room 15
18EF: 2C 70 ; OBJ_02_BRIDGE_ROOM_12 PS_40 Stone bridge room 18
18F1: 01 F9 ; -Never used (points to empty string)
18F3: 01 F9 ; -Never used (points to empty string)
18F5: 01 F9 ; -Never used (points to empty string)
18F7: 2D FA ; OBJ_06_VENDING_MACHINE PS_4E Vending Machine
18F9: 2D 5E ; OBJ_07_PLANT_SMALL PS_4B Tiny plant
18FB: 2D 8A ; OBJ_08_PLANT_MEDIUM PS_4C Twelve foot beanstalk
18FD: 2D CA ; OBJ_09_PLANT_LARGE PS_4D Giant beanstalk
18FF: 00 00 ; -Never used (points to null)
1901: 2C 52 ; OBJ_0B_SERPENT PS_3F Serpent bars the way
1903: 00 00 ; -Never used (points to null)
1905: 00 00 ; -Never used (points to null)
1907: 2B 46 ; OBJ_0E_LAMP_OFF PS_32 Lamp (not lit)
1909: 2B 6B ; OBJ_0F_LAMP_ON PS_34 Lamp (lit)
190B: 2B 8D ; OBJ_10_BOX PS_36 Statue box
190D: 2B B6 ; OBJ_11_SCEPTER PS_38 Scepter
190F: 2C 2A ; OBJ_12_PILLOW PS_3D Pillow
1911: 2B E5 ; OBJ_13_BIRD PS_3A Statue
1913: 2C 03 ; OBJ_14_BIRD_IN_BOX PS_3B Statue in box
1915: 30 06 ; OBJ_15_POTTERY PS_66 Pottery
1917: 30 60 ; OBJ_16_PEARL PS_69 Pearl
1919: 2C 90 ; OBJ_17_SARCOPH_FULL PS_41 Sarcophagus with pearl
191B: 2C 90 ; OBJ_18_SARCOPH_EMPTY PS_41 Sarcophagus empty
191D: 2C C9 ; OBJ_19_MAGAZINES PS_43 Magazines
191F: 2D 05 ; OBJ_1A_FOOD PS_45 Food
1921: 2D 1D ; OBJ_1B_BOTTLE PS_47 Bottle
1923: 2D 39 ; OBJ_1C_WATER PS_49 Water in the bottle
1925: 01 F9 ; -Never used (points to empty string)
1927: 01 F9 ; OBJ_1E_STREAM_ROOM_38 Empty (no description)
1929: 30 2D ; OBJ_1F_EMERALD PS_67 Emerald
192B: 2F DE ; OBJ_20_VASE_ON_PILLOW PS_65 Vase on pillow
192D: 2F BB ; OBJ_21_VASE PS_63 Vase
192F: 2F 97 ; OBJ_22_KEY PS_61 Key
1931: 2E 49 ; OBJ_23_BATTERIES_FRESH PS_4F Batteries
1933: 2E 68 ; OBJ_24_BATTERIES_WORN PS_51 Worn-out batteries
1935: 2E 94 ; OBJ_25_GOLD PS_53 Gold Nugget
1937: 2E C4 ; OBJ_26_DIAMONDS PS_55 Diamonds
1939: 2E E3 ; OBJ_27_SILVER PS_57 Silver
193B: 2F 03 ; OBJ_28_JEWELRY PS_59 Jewelry
193D: 2F 27 ; OBJ_29_COINS PS_5B Coins
193F: 2F 44 ; OBJ_2A_CHEST PS_5D Chest
1941: 2F 6B ; OBJ_2B_NEST_EGGS PS_5F Nest of golden eggs
1943: 2B 46 ; OBJ_2C_LAMP_DEAD PS_32 Lamp (dead)
General Command Handler
This script is used when the room doesn't have a script for the input command.
1945: 01 04 ; N 1947: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 194A: 02 04 ; E 194C: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 194F: 03 04 ; S 1951: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 1954: 04 04 ; W 1956: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 1959: 05 04 ; NE 195B: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 195E: 06 04 ; SE 1960: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 1963: 07 04 ; SW 1965: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 1968: 08 04 ; NW 196A: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 196D: 09 04 ; U 196F: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 1972: 0A 04 ; D 1974: 04 33 04 ; print(PS_7A) THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. 1977: 0B 04 ; IN 1979: 04 33 24 ; print(PS_7B) I DON'T KNOW IN FROM OUT HERE. USE COMPASS POINTS. 197C: 0C 04 ; OUT 197E: 04 33 24 ; print(PS_7B) I DON'T KNOW IN FROM OUT HERE. USE COMPASS POINTS. 1981: 0E 04 ; LEFT 1983: 04 33 48 ; print(PS_7C) I AM UNSURE HOW YOU ARE FACING. USE COMPASS POINTS. 1986: 0F 04 ; RIGHT 1988: 04 33 48 ; print(PS_7C) I AM UNSURE HOW YOU ARE FACING. USE COMPASS POINTS. 198B: 12 04 ; PANEL 198D: 04 33 6C ; print(PS_7D) NOTHING HAPPENS. 1990: 14 02 ; BACK 1992: 0E ; move_to_last_room() 1993: 16 04 ; SWIM 1995: 04 33 79 ; print(PS_7E) I DON'T KNOW HOW. 1998: 17 18 ; ON 199A: 07 0C ; stop_if_pass ... 199C: 02 0E ; is_in_pack(OBJ_0E_LAMP_OFF) 199E: 15 0E 00 ; move_object_to_room(OBJ_0E_LAMP_OFF, RM_00_nowhere) 19A1: 15 0F FF ; move_object_to_room(OBJ_0F_LAMP_ON, BACKPACK) 19A4: 04 33 A5 ; print(PS_80) YOUR LAMP IS NOW ON. 19A7: 07 06 ; stop_if_pass ... 19A9: 02 0F ; is_in_pack(OBJ_0F_LAMP_ON) 19AB: 04 33 A5 ; print(PS_80) YOUR LAMP IS NOW ON. 19AE: 04 33 B5 ; print(PS_81) YOU HAVE NO SOURCE OF LIGHT. 19B1: 18 18 ; OFF 19B3: 07 0C ; stop_if_pass ... 19B5: 02 0F ; is_in_pack(OBJ_0F_LAMP_ON) 19B7: 15 0F 00 ; move_object_to_room(OBJ_0F_LAMP_ON, RM_00_nowhere) 19BA: 15 0E FF ; move_object_to_room(OBJ_0E_LAMP_OFF, BACKPACK) 19BD: 04 33 CA ; print(PS_82) YOUR LAMP IS NOW OFF. 19C0: 07 06 ; stop_if_pass ... 19C2: 02 0E ; is_in_pack(OBJ_0E_LAMP_OFF) 19C4: 04 33 CA ; print(PS_82) YOUR LAMP IS NOW OFF. 19C7: 04 33 B5 ; print(PS_81) YOU HAVE NO SOURCE OF LIGHT. 19CA: 19 02 ; QUIT 19CC: 09 ; end_of_game() 19CD: 1A 02 ; SCORE 19CF: 08 ; print_score() 19D0: 1B 02 ; INVENT 19D2: 0F ; print_inventory() 19D3: 1C 02 ; LOOK 19D5: 10 ; print_room_description() 19D6: 28 47 ; TAKE 19D8: 07 06 ; stop_if_pass ... 19DA: 11 07 ; is_object_user_input(OBJ_07_PLANT_SMALL) 19DC: 04 38 EF ; print(PS_A8) THE PLANT HAS EXCEPTIONALLY DEEP ROOTS AND CANNOT BE PULLED FREE. 19DF: 07 17 ; stop_if_pass ... 19E1: 11 13 ; is_object_user_input(OBJ_13_BIRD) 19E3: 07 06 ; stop_if_pass ... 19E5: 02 11 ; is_in_pack(OBJ_11_SCEPTER) 19E7: 04 39 52 ; print(PS_AA) AS YOU APPROACH THE STATUE, IT COMES TO LIFE AND FLIES ACROSS THE CHAMBER WHERE IT LANDS AND RETURNS ; TO STONE. 19EA: 07 09 ; stop_if_pass ... 19EC: 02 10 ; is_in_pack(OBJ_10_BOX) 19EE: 15 13 00 ; move_object_to_room(OBJ_13_BIRD, RM_00_nowhere) 19F1: 19 14 10 ; put_object_in_container_print_ok(OBJ_14_BIRD_IN_BOX, OBJ_10_BOX) 19F4: 04 39 9E ; print(PS_AB) YOU CAN LIFT THE STATUE, BUT YOU CANNOT CARRY IT. 19F7: 07 0A ; stop_if_pass ... 19F9: 11 20 ; is_object_user_input(OBJ_20_VASE_ON_PILLOW) 19FB: 12 21 ; get_from_room_print_ok(OBJ_21_VASE) 19FD: 15 20 00 ; move_object_to_room(OBJ_20_VASE_ON_PILLOW, RM_00_nowhere) 1A00: 18 12 ; move_object_to_current_room(OBJ_12_PILLOW) 1A02: 07 0D ; stop_if_pass ... 1A04: 11 1E ; is_object_user_input(OBJ_1E_STREAM_ROOM_38) 1A06: 07 06 ; stop_if_pass ... 1A08: 02 1C ; is_in_pack(OBJ_1C_WATER) 1A0A: 04 39 C1 ; print(PS_AC) YOUR BOTTLE IS ALREADY FULL. 1A0D: 19 1C 1B ; put_object_in_container_print_ok(OBJ_1C_WATER, OBJ_1B_BOTTLE) 1A10: 07 0C ; stop_if_pass ... 1A12: 11 12 ; is_object_user_input(OBJ_12_PILLOW) 1A14: 1A 20 ; is_in_current_room(OBJ_20_VASE_ON_PILLOW) 1A16: 15 20 00 ; move_object_to_room(OBJ_20_VASE_ON_PILLOW, RM_00_nowhere) 1A19: 18 21 ; move_object_to_current_room(OBJ_21_VASE) 1A1B: 12 12 ; get_from_room_print_ok(OBJ_12_PILLOW) 1A1D: 16 ; get_users_object_print_ok() 1A1E: 21 17 ; DROP 1A20: 07 14 ; stop_if_pass ... 1A22: 11 21 ; is_object_user_input(OBJ_21_VASE) 1A24: 15 21 00 ; move_object_to_room(OBJ_21_VASE, RM_00_nowhere) 1A27: 07 08 ; stop_if_pass ... 1A29: 1A 12 ; is_in_current_room(OBJ_12_PILLOW) 1A2B: 18 20 ; move_object_to_current_room(OBJ_20_VASE_ON_PILLOW) 1A2D: 04 3A 95 ; print(PS_B0) THE VASE IS NOW RESTING, DELICATELY, ON A VELVET PILLOW. 1A30: 18 15 ; move_object_to_current_room(OBJ_15_POTTERY) 1A32: 04 3A BD ; print(PS_B1) THE VASE DROPS WITH A DELICATE CRASH. 1A35: 17 ; drop_users_object_print_ok() 1A36: 26 0E ; THROW 1A38: 07 0B ; stop_if_pass ... 1A3A: 11 21 ; is_object_user_input(OBJ_21_VASE) 1A3C: 15 21 00 ; move_object_to_room(OBJ_21_VASE, RM_00_nowhere) 1A3F: 18 15 ; move_object_to_current_room(OBJ_15_POTTERY) 1A41: 04 3A F5 ; print(PS_B3) YOU HAVE TAKEN THE VASE AND HURLED IT DELICATELY TO THE GROUND. 1A44: 17 ; drop_users_object_print_ok() 1A45: 29 36 ; OPEN 1A47: 07 1C ; stop_if_pass ... 1A49: 11 17 ; is_object_user_input(OBJ_17_SARCOPH_FULL) 1A4B: 07 06 ; stop_if_pass ... 1A4D: 02 17 ; is_in_pack(OBJ_17_SARCOPH_FULL) 1A4F: 04 35 A4 ; print(PS_94) I'D ADVISE YOU TO PUT DOWN THE SARCOPHAGUS BEFORE OPENING IT!! 1A52: 07 0E ; stop_if_pass ... 1A54: 02 22 ; is_in_pack(OBJ_22_KEY) 1A56: 04 35 61 ; print(PS_93) A GLISTENING PEARL FALLS OUT OF THE SARCOPHAGUS AND ROLLS AWAY. THE SARCOPHAGUS SNAPS SHUT ; AGAIN. 1A59: 15 16 40 ; move_object_to_room(OBJ_16_PEARL, RM_40_CUL_DE_SAC) 1A5C: 15 17 00 ; move_object_to_room(OBJ_17_SARCOPH_FULL, RM_00_nowhere) 1A5F: 18 18 ; move_object_to_current_room(OBJ_18_SARCOPH_EMPTY) 1A61: 04 36 0A ; print(PS_96) YOU DON'T HAVE ANYTHING STRONG ENOUGH TO OPEN THE SARCOPHAGUS. 1A64: 07 14 ; stop_if_pass ... 1A66: 11 18 ; is_object_user_input(OBJ_18_SARCOPH_EMPTY) 1A68: 07 06 ; stop_if_pass ... 1A6A: 02 18 ; is_in_pack(OBJ_18_SARCOPH_EMPTY) 1A6C: 04 35 A4 ; print(PS_94) I'D ADVISE YOU TO PUT DOWN THE SARCOPHAGUS BEFORE OPENING IT!! 1A6F: 07 06 ; stop_if_pass ... 1A71: 02 22 ; is_in_pack(OBJ_22_KEY) 1A73: 04 35 D0 ; print(PS_95) THE SARCOPHAGUS CREAKS OPEN, REVEALING NOTHING INSIDE. IT PROMPTLY SNAPS SHUT AGAIN. 1A76: 04 36 0A ; print(PS_96) YOU DON'T HAVE ANYTHING STRONG ENOUGH TO OPEN THE SARCOPHAGUS. 1A79: 04 36 36 ; print(PS_97) I DON'T KNOW HOW TO LOCK OR UNLOCK SUCH A THING. 1A7C: 23 04 ; WAVE 1A7E: 04 33 6C ; print(PS_7D) NOTHING HAPPENS. 1A81: 24 0E ; POUR 1A83: 07 09 ; stop_if_pass ... 1A85: 11 1C ; is_object_user_input(OBJ_1C_WATER) 1A87: 15 1C 00 ; move_object_to_room(OBJ_1C_WATER, RM_00_nowhere) 1A8A: 04 34 92 ; print(PS_8C) YOUR BOTTLE IS EMPTY AND THE GROUND IS WET. 1A8D: 04 34 B1 ; print(PS_8D) YOU CAN'T POUR THAT. 1A90: 25 12 ; RUB 1A92: 07 06 ; stop_if_pass ... 1A94: 11 0E ; is_object_user_input(OBJ_0E_LAMP_OFF) 1A96: 04 34 C1 ; print(PS_8E) RUBBING THE ELECTRIC LAMP IS NOT PARTICULARLY REWARDING. ANYWAY, NOTHING EXCITING HAPPENS. 1A99: 07 06 ; stop_if_pass ... 1A9B: 11 0F ; is_object_user_input(OBJ_0F_LAMP_ON) 1A9D: 04 34 C1 ; print(PS_8E) RUBBING THE ELECTRIC LAMP IS NOT PARTICULARLY REWARDING. ANYWAY, NOTHING EXCITING HAPPENS. 1AA0: 04 34 FF ; print(PS_8F) PECULIAR. NOTHING UNEXPECTED HAPPENS. 1AA3: 27 12 ; FILL 1AA5: 07 06 ; stop_if_pass ... 1AA7: 11 1B ; is_object_user_input(OBJ_1B_BOTTLE) 1AA9: 04 35 1A ; print(PS_90) THERE IS NOTHING HERE WITH WHICH TO FILL THE BOTTLE. 1AAC: 07 06 ; stop_if_pass ... 1AAE: 11 21 ; is_object_user_input(OBJ_21_VASE) 1AB0: 04 34 82 ; print(PS_8B) DON'T BE RIDICULOUS! 1AB3: 04 35 51 ; print(PS_92) YOU CAN'T FILL THAT. 1AB6: 2C 2D ; ATTACK 1AB8: 07 09 ; stop_if_pass ... 1ABA: 11 13 ; is_object_user_input(OBJ_13_BIRD) 1ABC: 15 13 00 ; move_object_to_room(OBJ_13_BIRD, RM_00_nowhere) 1ABF: 04 36 58 ; print(PS_98) THE BIRD STATUE IS NOW DEAD. ITS BODY DISAPPEARS. 1AC2: 07 09 ; stop_if_pass ... 1AC4: 11 14 ; is_object_user_input(OBJ_14_BIRD_IN_BOX) 1AC6: 15 14 00 ; move_object_to_room(OBJ_14_BIRD_IN_BOX, RM_00_nowhere) 1AC9: 04 36 58 ; print(PS_98) THE BIRD STATUE IS NOW DEAD. ITS BODY DISAPPEARS. 1ACC: 07 06 ; stop_if_pass ... 1ACE: 11 17 ; is_object_user_input(OBJ_17_SARCOPH_FULL) 1AD0: 04 36 7B ; print(PS_99) THE STONE IS VERY STRONG AND IS IMPERVIOUS TO ATTACK. 1AD3: 07 06 ; stop_if_pass ... 1AD5: 11 18 ; is_object_user_input(OBJ_18_SARCOPH_EMPTY) 1AD7: 04 36 7B ; print(PS_99) THE STONE IS VERY STRONG AND IS IMPERVIOUS TO ATTACK. 1ADA: 07 06 ; stop_if_pass ... 1ADC: 11 0B ; is_object_user_input(OBJ_0B_SERPENT) 1ADE: 04 36 A1 ; print(PS_9A) ATTACKING THE SERPENT BOTH DOESN'T WORK AND IS VERY DANGEROUS. 1AE1: 04 36 CD ; print(PS_9B) YOU CAN'T BE SERIOUS! 1AE4: 30 04 ; BREAK 1AE6: 04 36 DD ; print(PS_9C) IT IS BEYOND YOUR POWER TO DO THAT. 1AE9: 2E 23 ; EAT 1AEB: 07 09 ; stop_if_pass ... 1AED: 11 1A ; is_object_user_input(OBJ_1A_FOOD) 1AEF: 15 1A 00 ; move_object_to_room(OBJ_1A_FOOD, RM_00_nowhere) 1AF2: 04 36 F7 ; print(PS_9D) THANK YOU, IT WAS DELICIOUS! 1AF5: 07 06 ; stop_if_pass ... 1AF7: 11 0A ; is_object_user_input(OBJ_0A_UNKNOWN_0A??) 1AF9: 04 37 0C ; print(PS_9E) I THINK I JUST LOST MY APPETITE. 1AFC: 07 06 ; stop_if_pass ... 1AFE: 11 13 ; is_object_user_input(OBJ_13_BIRD) 1B00: 04 37 0C ; print(PS_9E) I THINK I JUST LOST MY APPETITE. 1B03: 07 06 ; stop_if_pass ... 1B05: 11 14 ; is_object_user_input(OBJ_14_BIRD_IN_BOX) 1B07: 04 37 0C ; print(PS_9E) I THINK I JUST LOST MY APPETITE. 1B0A: 04 34 82 ; print(PS_8B) DON'T BE RIDICULOUS! 1B0D: 2F 15 ; DRINK 1B0F: 07 09 ; stop_if_pass ... 1B11: 11 1C ; is_object_user_input(OBJ_1C_WATER) 1B13: 15 1C 00 ; move_object_to_room(OBJ_1C_WATER, RM_00_nowhere) 1B16: 04 35 3F ; print(PS_91) THE BOTTLE IS NOW EMPTY. 1B19: 07 06 ; stop_if_pass ... 1B1B: 11 1E ; is_object_user_input(OBJ_1E_STREAM_ROOM_38) 1B1D: 04 37 24 ; print(PS_9F) YOU HAVE TAKEN A DRINK FROM THE STREAM. THE WATER TASTES STRONGLY OF MINERALS, BUT IS NOT ; UNPLEASANT. IT IS EXTREMELY COLD. 1B20: 04 36 CD ; print(PS_9B) YOU CAN'T BE SERIOUS! 1B23: 2D 38 ; FEED 1B25: 07 06 ; stop_if_pass ... 1B27: 11 13 ; is_object_user_input(OBJ_13_BIRD) 1B29: 04 37 78 ; print(PS_A0) IT'S NOT HUNGRY. BESIDES, YOU HAVE NO BIRD SEED. 1B2C: 07 06 ; stop_if_pass ... 1B2E: 11 14 ; is_object_user_input(OBJ_14_BIRD_IN_BOX) 1B30: 04 37 78 ; print(PS_A0) IT'S NOT HUNGRY. BESIDES, YOU HAVE NO BIRD SEED. 1B33: 07 10 ; stop_if_pass ... 1B35: 11 0B ; is_object_user_input(OBJ_0B_SERPENT) 1B37: 07 09 ; stop_if_pass ... 1B39: 02 14 ; is_in_pack(OBJ_14_BIRD_IN_BOX) 1B3B: 15 14 00 ; move_object_to_room(OBJ_14_BIRD_IN_BOX, RM_00_nowhere) 1B3E: 04 37 C1 ; print(PS_A2) THE SERPENT HAS NOW DEVOURED YOUR BIRD STATUE. 1B41: 04 37 E2 ; print(PS_A3) THERE IS NOTHING HERE IT WANTS TO EAT - EXCEPT PERHAPS YOU. 1B44: 07 06 ; stop_if_pass ... 1B46: 11 17 ; is_object_user_input(OBJ_17_SARCOPH_FULL) 1B48: 04 38 3D ; print(PS_A5) I'M GAME. WOULD YOU CARE TO EXPLAIN HOW? 1B4B: 07 06 ; stop_if_pass ... 1B4D: 11 18 ; is_object_user_input(OBJ_18_SARCOPH_EMPTY) 1B4F: 04 38 3D ; print(PS_A5) I'M GAME. WOULD YOU CARE TO EXPLAIN HOW? 1B52: 07 06 ; stop_if_pass ... 1B54: 11 0D ; is_object_user_input(OBJ_0D_UNKNOWN_0D??) 1B56: 04 37 E2 ; print(PS_A3) THERE IS NOTHING HERE IT WANTS TO EAT - EXCEPT PERHAPS YOU. 1B59: 04 34 82 ; print(PS_8B) DON'T BE RIDICULOUS! 1B5C: 39 02 ; PLUGH 1B5E: 1D ; scramble_directions_print_ack() 1B5F: 3A 02 ; LOAD 1B61: 1B ; load_game() 1B62: 3B 02 ; SAVE 1B64: 1C ; save_game() 1B65: 00 ;
Room Descriptions
; YOU ARE STANDING BEFORE THE ENTRANCE OF A PYRAMID. AROUND YOU IS A DESERT. PS_00: ; RM_01_BEFORE_ENTRANCE 1B66: 18 C7 DE 94 14 55 5E 50 BD 90 5A C4 6A 59 60 5B B1 5F BE 30 15 EB BF 17 98 B8 16 7B 14 14 A8 6B 1B86: 48 9B 5D 39 49 8E C5 51 18 4B C2 C3 B5 FF 14 B4 B7 54 2E 00 ; YOU ARE IN THE ENTRANCE TO THE PYRAMID. A HOLE IN THE FLOOR LEADS TO A PASSAGE BENEATH THE ; SURFACE. PS_01: ; RM_02_IN_ENTRANCE 1B9A: 21 C7 DE 94 14 4B 5E 96 96 DB 72 9E 61 D0 B0 9B 53 6B BF 5F BE F3 16 CF B0 17 79 7B 14 7E 74 4B 1BBA: 5E 96 96 DB 72 89 67 A3 A0 E3 8B 0B 5C 6B BF 52 45 65 49 77 47 AF 14 63 98 53 BE 5F BE 67 17 8B 1BDA: B1 BF 53 00 ; YOU ARE IN THE DESERT. PS_02: ; RM_03_DESERT1, RM_04, RM_05, RM_06 1BDE: 07 C7 DE 94 14 4B 5E 96 96 DB 72 F5 59 3E 62 2E 00 ; YOU ARE IN A SMALL CHAMBER BENEATH A HOLE FROM THE SURFACE. A LOW CRAWL LEADS INWARD TO THE WEST. ; HIEROGLYPHICS ON THE WALL TRANSLATE, "CURSE ALL WHO ENTER THIS SACRED CRYPT." PS_03: ; RM_07_BENEATH_A_HOLE 1BEF: 3A C7 DE 94 14 4B 5E 83 96 5F 17 46 48 DA 14 64 48 23 62 70 4D 96 5F 03 71 A9 15 DB 8B 79 68 56 1C0F: 90 DB 72 34 BA C5 65 DB 63 4E 45 6B A1 AB 55 B3 D1 E3 8B 0B 5C A1 7A 2E 49 89 17 82 17 59 5E 66 1C2F: 62 3B F4 87 73 F9 B2 12 8F 85 73 D1 B5 96 96 DB 72 0E D0 16 8A D0 B0 BB B8 FE BD 6D 13 3D C6 43 1C4F: 5E F3 8C 29 D1 30 15 F4 BD 82 17 4B 7B 05 B7 66 B1 E4 14 EE DE 2E 22 00 ; YOU ARE CRAWLING OVER PEBBLES IN A LOW PASSAGE. THERE IS A DIM LIGHT AT THE EAST END OF THE ; PASSAGE. PS_04: ; RM_08_CRAWLING_OVER_PEBBLES 1C67: 21 C7 DE 94 14 45 5E D9 B0 90 8C D1 6A 74 CA DF 16 F6 4C 4B 62 83 7A 4E 45 6B A1 55 A4 09 B7 DB 1C87: 63 5F BE 5B B1 4B 7B 46 45 5B 7A 89 8C 33 75 73 49 5F BE 23 15 F3 B9 8E 61 B8 16 82 17 52 5E 65 1CA7: 49 77 47 2E 00 ; YOU ARE IN A ROOM FILLED WITH BROKEN POTTERY SHARDS OF ANCIENT EGYPTIAN CRAFTS. AN AWKWARD CORRIDOR ; LEADS UPWARD AND WEST. PS_05: ; RM_09_BROKEN_POTTERY 1CAC: 28 C7 DE 94 14 4B 5E 83 96 39 17 DB 9F 0E 67 E6 8B FB 17 53 BE 79 4F B0 85 E9 16 3F C0 7B B4 1B 1CCC: B8 4D B1 B8 16 90 14 47 54 B3 9A 8B 60 43 A7 83 48 AB 55 CD 68 43 F4 83 96 A9 D1 2E 49 E1 14 73 1CEC: B3 84 5B 3F 16 0D 47 B2 17 14 D0 03 58 33 98 B5 D0 54 2E 00 ; YOU ARE IN AN AWKWARD SLOPING EAST/WEST CORRIDOR. PS_06: ; RM_0A_AWKWARD_SLOPING 1D00: 10 C7 DE 94 14 4B 5E 83 96 83 96 A9 D1 2E 49 5E 17 63 A0 AB 98 95 5F E1 BC 66 62 E1 14 73 B3 84 1D20: 5B 2E 00 ; YOU ARE IN A SPLENDID CHAMBER THIRTY FEET HIGH. THE WALLS ARE FROZEN RIVERS OF ORANGE STONE. AN ; AWKWARD CORRIDOR AND A GOOD PASSAGE EXIT FROM THE EAST AND WEST SIDES OF THE CHAMBER. PS_07: ; RM_0B_SPLENDID_CHAMBER 1D23: 3C C7 DE 94 14 4B 5E 83 96 62 17 F0 8B 86 5A DA 14 64 48 23 62 63 BE D3 B3 4F 15 73 62 89 73 9B 1D43: 76 5F BE F3 17 0D 8D 94 14 48 5E 0C B3 83 61 18 B2 3D 62 B8 16 C4 16 91 48 55 5E 80 BF DB 63 83 1D63: 48 FD 49 14 D0 05 58 BC A0 09 79 83 AF 33 98 49 45 36 A0 DB 16 D3 B9 9B 6C 23 63 08 BC FF B2 82 1D83: 17 47 5E 66 49 90 14 19 58 66 62 5B 17 F5 59 B8 16 82 17 45 5E 4F 72 74 4D 2E 00 ; AT YOUR FEET IS A SMALL PIT BREATHING TRACES OF WHITE MIST. AN EAST PASSAGE ENDS HERE EXCEPT FOR A ; SMALL CRACK LEADING ON. ROUGH STONE STEPS LEAD DOWN THE PIT. PS_08: ; RM_0C_SMALL_PIT_WHITE_MIST 1D9E: 35 73 49 C7 DE 88 AF 36 60 D5 15 7B 14 E3 B8 F3 8C 96 A5 BC 14 96 5F 90 73 D6 6A C5 B0 4B 62 C3 1DBE: 9E 23 D1 DB BD D5 92 9B C1 83 48 95 5F 12 BC 65 49 77 47 30 15 0B 5C F4 72 47 5E 97 D6 33 A7 04 1DDE: 68 7B 14 E3 B8 F3 8C AB 55 8B 54 E3 8B 90 5A D1 6A 1B 9C 07 B3 13 6D 09 BA 5B 98 FF B9 0B A7 E3 1DFE: 8B 06 58 80 A1 82 17 52 5E 97 7B 00 ; YOU ARE AT ONE END OF A VAST HALL STRETCHING FORWARD OUT OF SIGHT TO THE WEST. THERE ARE OPENINGS TO ; EITHER SIDE. NEARBY, A WIDE STONE STAIRCASE LEADS DOWNWARD. THE HALL IS VERY MUSTY AND A COLD WIND ; BLOWS UP THE STAIRCASE. THERE IS A PASSAGE AT THE TOP OF A DOME BEHIND YOU. ROUGH STONE STEPS LEAD ; UP THE DOME. PS_09: ; RM_0D_STEPS_LEAD_UP_DOME 1E0A: 67 C7 DE 94 14 43 5E 11 BC 5B 98 8E 61 B8 16 7B 14 D5 C9 0A BC 46 48 66 17 76 B1 23 54 AB 98 04 1E2A: 68 14 D0 11 58 73 C6 C3 9E 49 B8 33 75 6B BF 5F BE F7 17 17 BA 82 17 2F 62 94 14 51 5E F0 A4 91 1E4A: 7A D6 B5 C7 9C 82 7B 23 62 46 B8 DB 63 63 98 03 B1 03 EE FB 17 DB 59 09 BA 5B 98 FB B9 2D 7B 57 1E6A: 49 3F 16 0D 47 09 15 21 D2 2E 49 56 F4 DB 72 4E 72 0B 8A D8 B5 43 62 77 16 13 BA 90 14 03 58 E1 1E8A: 14 B3 8B 50 D1 04 58 89 8D D7 B5 16 A3 DB 72 FB B9 2D 7B 57 49 56 F4 F4 72 4B 5E C3 B5 DB 16 D3 1EAA: B9 9B 6C 73 49 5F BE 89 17 11 A3 83 64 09 15 1B 92 6A 4D 8E 7A 51 18 DB C7 07 B3 13 6D 09 BA 5B 1ECA: 98 FF B9 0B A7 E3 8B 17 58 16 A3 DB 72 7F 5B 45 2E 00 ; THIS IS A LOW ROOM WITH A HIEROGLYPH ON THE WALL. IT TRANSLATES "YOU WON'T GET IT UP THE STEPS". PS_0A: ; RM_0E_LOW_ROOM_HIEROGLYPH 1EDC: 20 63 BE CB B5 C3 B5 49 16 D4 CE 3F A0 FB 17 53 BE 4A 45 34 79 FE 9E E2 DE C0 16 82 17 59 5E 46 1EFC: 48 4B F4 16 BC D0 B0 BB B8 F5 BD 83 13 1B A1 40 D2 F3 23 B6 6C D6 15 B2 17 82 17 55 5E F2 BD 07 1F1C: B6 00 ; YOU ARE ON THE EAST BANK OF A BOTTOMLESS PIT STRETCHING ACROSS THE HALL. THE MIST IS QUITE THICK ; HERE, AND THE PIT IS TOO WIDE TO JUMP. PS_0B: ; RM_0F_EAST_BANK_BOTTOMLESS_PIT 1F1E: 2D C7 DE 94 14 51 5E 96 96 DB 72 95 5F 04 BC 95 48 B8 16 7B 14 06 4F 7F BF F5 8B D2 B5 73 7B 0C 1F3E: BA 7D 62 90 73 C3 6A B9 55 CB B9 5F BE 9B 15 17 8D 82 17 4F 5E 66 7B D5 15 17 17 7F 7B 82 17 DD 1F5E: 78 9F 15 7E B1 90 14 16 58 DB 72 96 A5 D5 15 89 17 D9 9C FF 78 89 17 FF 15 F7 93 00 ; YOU ARE IN THE PHARAOH'S CHAMBER, WITH PASSAGES OFF IN ALL DIRECTIONS. PS_0C: ; RM_10_PHARAOHS_CHAMBER 1F7A: 17 C7 DE 94 14 4B 5E 96 96 DB 72 5B A5 D1 B0 65 71 DA 14 64 48 46 62 FB 17 53 BE 55 A4 09 B7 4B 1F9A: 62 D0 9E D0 15 8E 14 06 8A 2F 7B 03 56 1D A0 2E 00 ; YOU ARE IN THE SOUTH SIDE CHAMBER. PS_0D: ; RM_11_SOUTH_SIDE_CHAMBER 1FAB: 0B C7 DE 94 14 4B 5E 96 96 DB 72 47 B9 53 BE 46 B8 45 5E 4F 72 74 4D 2E 00 ; YOU ARE ON THE WEST SIDE OF THE BOTTOMLESS PIT IN THE HALL OF GODS. PS_0E: ; RM_12_HALL_OF_GODS 1FC4: 16 C7 DE 94 14 51 5E 96 96 DB 72 B5 D0 15 BC FF 78 B8 16 82 17 44 5E 0E A1 EE 9F 65 62 E3 16 0B 1FE4: BC 96 96 DB 72 4E 72 11 8A 89 64 8D 9E 2E 00 ; YOU ARE AT THE WEST END OF THE HALL OF GODS. A LOW WIDE PASS CONTINUES WEST AND ANOTHER GOES NORTH. ; TO THE SOUTH IS A LITTLE PASSAGE SIX FEET OFF THE FLOOR. PS_0F: ; RM_13_LITTLE_PASSAGE_SIX_FEET 1FF3: 34 C7 DE 94 14 43 5E 16 BC DB 72 B5 D0 07 BC 33 98 C3 9E 5F BE 9B 15 F3 8C C3 9E 36 6E 5B BB 4E 2013: 45 6B A1 46 D1 52 5E 65 49 E1 14 C3 9A E7 9A D9 B5 66 62 90 14 03 58 06 9A F4 72 81 15 4B 62 04 2033: 9A 77 BE 89 17 82 17 55 5E 36 A1 0B 71 C3 B5 43 16 46 C0 52 5E 65 49 77 47 5B 17 08 D5 36 60 B8 2053: 16 96 64 DB 72 89 67 C7 A0 00 ; YOU ARE AT EAST END OF A VERY LONG HALL APPARENTLY WITHOUT SIDE CHAMBERS. TO THE EAST A LOW WIDE ; CRAWL SLANTS UP. TO THE NORTH A ROUND TWO FOOT HOLE SLANTS DOWN. PS_10: ; RM_14_EAST_END_LONG_HALL 205D: 35 C7 DE 94 14 43 5E 07 BC 66 49 30 15 11 58 83 64 CF 17 7B B4 80 8D CA 6A 46 48 92 14 54 A4 9E 207D: 61 FB 8E 56 D1 87 74 15 BC FF 78 DA 14 64 48 3D 62 56 F4 D6 9C DB 72 95 5F 03 BC 49 16 D9 CE FF 209D: 78 E4 14 FE 49 5E 17 9E 48 D7 B5 9B A8 6B BF 5F BE 99 16 C2 B3 7B 14 07 B3 33 98 C1 C0 59 15 F3 20BD: A0 7E 74 55 5E 50 8B 0B C0 89 5B 4E 2E 00 ; YOU ARE AT THE WEST END OF A VERY LONG FEATURELESS HALL. THE HALL JOINS UP WITH A NARROW NORTH/SOUTH ; PASSAGE. PS_11: ; RM_15_WEST_END_FEATURELESS_HALL 20CB: 24 C7 DE 94 14 43 5E 16 BC DB 72 B5 D0 07 BC 33 98 C3 9E 58 45 43 62 49 16 AB 98 63 66 74 C0 3F 20EB: 61 CB B9 4E 72 9B 8F 5F BE 9B 15 F3 8C FB 80 8B 9A D3 C5 56 D1 03 71 8B 16 79 B3 D0 CE BE A0 DD 210B: 71 36 A1 12 71 65 49 77 47 2E 00 ; YOU ARE AT A CROSSOVER OF A HIGH N/S PASSAGE AND A LOW E/W ONE. PS_12: ; RM_16_CROSSOVER 2116: 15 C7 DE 94 14 43 5E 03 BC E4 14 E5 A0 4F A1 91 AF 83 64 A3 15 13 6D 5D 97 DB 16 D3 B9 9B 6C 8E 2136: 48 7B 14 89 8D 20 15 D1 CE 7F 98 00 ; DEAD END. PS_13: ; RM_17_DEAD_END1, RM_2A, RM_2B, RM_2C, RM_2D, RM_2E, RM_2F, RM_30, RM_31, RM_32, RM_33, RM_35 2142: 03 E3 59 07 58 57 98 00 ; YOU ARE IN THE WEST THRONE CHAMBER. A PASSAGE CONTINUES WEST AND UP FROM HERE. PS_14: ; RM_18_THRONE_CHAMBER 214A: 1A C7 DE 94 14 4B 5E 96 96 DB 72 B5 D0 16 BC F9 74 5B 98 1B 54 AF 91 1B B5 52 45 65 49 77 47 E1 216A: 14 C3 9A E7 9A D9 B5 66 62 90 14 17 58 08 A3 FF B2 9F 15 7F B1 00 ; YOU ARE IN A LOW N/S PASSAGE AT A HOLE IN THE FLOOR. THE HOLE GOES DOWN TO AN E/W PASSAGE. PS_15: ; RM_19_LOW_NS_PASSAGE 2180: 1E C7 DE 94 14 4B 5E 83 96 49 16 D0 CE 8B 36 55 A4 09 B7 43 5E 03 BC A9 15 DB 8B 83 7A 5F BE 56 21A0: 15 44 A0 56 F4 DB 72 7E 74 49 5E B5 9E 09 15 03 D2 6B BF 83 48 21 5F DB 16 D3 B9 BF 6C 00 ; YOU ARE IN A LARGE ROOM, WITH A PASSAGE TO THE SOUTH, AND A WALL OF BROKEN ROCK TO THE EAST. THERE ; IS A PANEL ON THE NORTH WALL. PS_16: ; RM_1A_PANEL_NORTH_WALL 21BE: 2A C7 DE 94 14 4B 5E 83 96 3B 16 B7 B1 39 17 FE 9F FB 17 53 BE 52 45 65 49 77 47 89 17 82 17 55 21DE: 5E 36 A1 73 76 8E 48 7B 14 0E D0 11 8A 84 64 FD B2 83 61 F5 B2 D6 83 D6 9C DB 72 95 5F 9B C1 5F 21FE: BE 5B B1 4B 7B 52 45 8F 48 11 8A 96 96 DB 72 04 9A 53 BE 0E D0 4C 2E 00 ; YOU ARE IN THE CHAMBER OF ANUBIS. PS_17: ; RM_1B_CHAMBER_OF_ANUBIS 2216: 0B C7 DE 94 14 4B 5E 96 96 DB 72 1B 54 AF 91 91 AF 83 64 E4 9A 6F 7B 00 ; YOU ARE IN A MAZE OF TWISTY PASSAGES, ALL ALIKE. PS_18: ; RM_1C_TWISTY_PASSAGES1, RM_1D, RM_1E, RM_1F, RM_20, RM_21, RM_22, RM_23, RM_24, RM_25, RM_26, RM_27, RM_28, RM_29 222E: 10 C7 DE 94 14 4B 5E 83 96 63 16 5B E3 C3 9E BB C0 13 BA DB 16 D3 B9 B5 6C 03 EE F3 8C 43 48 BF 224E: 85 00 ; YOU ARE ON THE BRINK OF A LARGE PIT. YOU COULD CLIMB DOWN, BUT YOU WOULD NOT BE ABLE TO CLIMB BACK ; UP. THE MAZE CONTINUES ON THIS LEVEL. PS_19: ; RM_34_BRINK_OF_LARGE_PIT 2250: 2D C7 DE 94 14 51 5E 96 96 DB 72 73 4F 4B 99 C3 9E 4E 45 31 49 52 5E 97 7B 51 18 45 C2 2E A1 05 2270: 58 8F 8C 86 4B 80 A1 04 EE 73 C6 C7 DE 01 18 3E C5 99 16 04 BC 43 5E 7F 4E 89 17 DE 14 64 7A AB 2290: 14 8B 54 F7 C5 82 17 4F 5E 6F 4A E1 14 C3 9A E7 9A D1 B5 96 96 95 73 3F 16 6E CA 2E 00 ; YOU ARE IN A DIRTY BROKEN PASSAGE. TO THE EAST IS A CRAWL. TO THE WEST IS A LARGE PASSAGE. ABOVE YOU ; IS A HOLE TO ANOTHER PASSAGE. PS_1A: ; RM_36_DIRTY_BROKEN_PASSAGE 22AD: 2B C7 DE 94 14 4B 5E 83 96 03 15 D3 B3 BC 14 97 9F 92 96 65 49 77 47 56 F4 D6 9C DB 72 95 5F 0B 22CD: BC C3 B5 E4 14 FE 49 56 F4 D6 9C DB 72 B5 D0 0B BC C3 B5 3B 16 B7 B1 DB 16 D3 B9 BF 6C 84 14 4F 22ED: A1 51 18 4B C2 C3 B5 A9 15 DB 8B 6B BF 99 48 5F BE 92 AF 65 49 77 47 2E 00 ; YOU ARE ON THE BRINK OF A SMALL CLEAN CLIMBABLE PIT. A CRAWL LEADS WEST. PS_1B: ; RM_37_BRINK_OF_CLEAN_PIT 2306: 18 C7 DE 94 14 51 5E 96 96 DB 72 73 4F 4B 99 C3 9E 55 45 8E 91 05 8A E3 8B 85 96 8F 8C C4 4C DB 2326: 8B 96 A5 43 F4 E4 14 FE 49 3F 16 0D 47 F7 17 17 BA 00 ; YOU ARE IN THE BOTTOM OF A SMALL PIT WITH A LITTLE STREAM, WHICH ENTERS AND EXITS THROUGH TINY ; SLITS. PS_1C: ; RM_38_PIT_LITTLE_STREAM 2338: 21 C7 DE 94 14 4B 5E 96 96 DB 72 06 4F 7F BF B8 16 7B 14 E3 B8 F3 8C 96 A5 FB 17 53 BE 4E 45 8E 2358: 7B DB 8B 0C BA 8F 5F 19 EE 85 73 07 71 BF 9A 8B B3 8E 48 3A 15 8D 7B 82 17 07 B3 13 6D 90 BE 55 2378: DB 96 8C 53 2E 00 ; YOU ARE IN A THE ROOM OF BES, WHOSE PICTURE IS ON THE WALL. THERE IS A BIG HOLE IN THE FLOOR. THERE ; IS A PASSAGE LEADING EAST. PS_1D: ; RM_39_ROOM_OF_BES 237E: 2A C7 DE 94 14 4B 5E 83 96 82 17 54 5E 3F A0 B8 16 AF 14 33 BB 29 D1 9B B7 85 A5 74 C0 4B 5E D1 239E: B5 96 96 DB 72 0E D0 9B 8F 5F BE 5B B1 4B 7B 44 45 6B 79 7E 74 4B 5E 96 96 DB 72 89 67 C7 A0 82 23BE: 17 2F 62 D5 15 7B 14 55 A4 09 B7 4E 5E 86 5F 91 7A 23 15 17 BA 00 ; YOU ARE AT A COMPLEX JUNCTION. A LOW HANDS AND KNEES PASSAGE FROM THE NORTH JOINS A HIGHER CRAWL ; FROM THE EAST TO MAKE A WALKING PASSAGE GOING WEST. THERE IS ALSO A LARGE ROOM ABOVE. THE AIR IS ; DAMP HERE. PS_1E: ; RM_3A_COMPLEX_JUNCTION 23D4: 44 C7 DE 94 14 43 5E 03 BC E1 14 E6 93 13 63 F0 81 03 56 27 A0 7B 14 89 8D 9B 15 4D 98 90 14 0D 23F4: 58 67 98 D2 B5 65 49 77 47 5C 15 DB 9F 5F BE 99 16 C2 B3 F9 15 9D 7A 7B 14 89 73 F4 72 E4 14 FE 2414: 49 5C 15 DB 9F 5F BE 23 15 F3 B9 6B BF 8D 91 43 5E F3 17 DB 8C AB 98 55 A4 09 B7 49 5E 50 9F D9 2434: 6A 66 62 56 F4 F4 72 4B 5E C3 B5 21 8E 7B 14 54 8B 9B 6C 01 B3 43 90 08 4F DB 63 5F BE 8B 14 8B 2454: AF C6 B5 72 48 9F 15 7F B1 00 ; YOU ARE IN THE UNDERWORLD ANTEROOM OF SEKER. PASSAGES GO EAST, WEST, AND UP. HUMAN BONES ARE STREWN ; ABOUT ON THE FLOOR. HIEROGLYPHICS ON THE WALL ROUGHLY TRANSLATE TO "THOSE WHO PROCEED EAST MAY NEVER ; RETURN." PS_1F: ; RM_3B_ANTEROOM_OF_SEKER 245E: 45 C7 DE 94 14 4B 5E 96 96 DB 72 8E C5 41 62 B6 A0 03 58 BF 9A 01 B3 51 90 95 64 17 61 1B B5 55 247E: A4 09 B7 4B 62 2B 6E 95 5F 73 C1 B5 D0 73 C1 8E 48 B2 17 4A F4 63 C5 84 96 0F A0 C3 B5 5B B1 0C 249E: BA 00 63 84 14 36 A1 C0 16 82 17 48 5E 81 8D 1B B5 87 73 F9 B2 12 8F 85 73 D1 B5 96 96 DB 72 0E 24BE: D0 14 8A 29 A1 13 74 8C 17 9D 48 56 8B 56 5E BC 9C 69 BE 9B B7 29 D1 EC 16 57 9E F3 5F 95 5F 0F 24DE: BC 3B 4A 78 98 23 62 76 B1 38 C6 2E 22 00 ; YOU ARE AT THE LAND OF DEAD. PASSAGES LEAD OFF IN >ALL< DIRECTIONS. PS_20: ; RM_3C_LAND_OF_DEAD 24EC: 16 C7 DE 94 14 43 5E 16 BC DB 72 50 8B 11 58 86 64 86 5F 52 F4 65 49 77 47 CE B5 86 5F B8 16 8B 250C: 64 7F 96 46 48 06 26 2F 7B 03 56 1D A0 2E 00 ; YOU'RE IN A LARGE ROOM WITH ANCIENT DRAWINGS ON ALL WALLS. THE PICTURES DEPICT ATUM, A PHARAOH ; WEARING THE DOUBLE CROWN. A SHALLOW PASSAGE PROCEEDS DOWNWARD, AND A SOMEWHAT STEEPER ONE LEADS UP. ; A LOW HANDS AND KNEES PASSAGE ENTERS FROM THE SOUTH. PS_21: ; RM_3D_ANCIENT_DRAWINGS 251B: 52 C7 DE AF 23 D0 15 7B 14 54 8B 9B 6C 01 B3 59 90 82 7B 90 14 47 54 B3 9A EB 5B 50 D1 CB 6E 03 253B: A0 46 48 F3 17 0D 8D 56 F4 DB 72 85 A5 74 C0 4B 62 F2 59 E6 78 96 14 7E C5 7B 14 5B A5 D1 B0 19 255B: 71 94 5F 91 7A 82 17 46 5E 24 A1 DB 8B B9 55 27 D2 7B 14 1B B8 09 8D D2 CE 65 49 77 47 EC 16 57 257B: 9E 0D 60 09 15 21 D2 2E 49 03 EE 33 98 55 45 E7 9F 1B D1 15 BC E7 BD F4 A4 C0 16 4E 5E 86 5F D7 259B: B5 9B A8 4E 45 6B A1 50 72 0B 5C 8E 48 20 16 35 60 DB 16 D3 B9 9B 6C 9E 61 3D 62 5C 15 DB 9F 5F 25BB: BE 61 17 82 C6 2E 20 00 ; YOU ARE IN A CHAMBER WHOSE WALL CONTAINS A PICTURE OF A MAN WEARING THE LUNAR DISK ON HIS HEAD. HE ; IS THE GOD KHONS, THE MOON GOD. PS_22: ; RM_3E_MOON_GOD 25C3: 2B C7 DE 94 14 4B 5E 83 96 DA 14 64 48 23 62 29 D1 9B B7 0E D0 05 8A 1E A0 D0 47 C3 B5 E3 16 0F 25E3: 56 5B B1 C3 9E 4F 45 83 48 A3 D0 10 B2 D6 6A DB 72 70 8E 23 49 95 5A D1 83 8A 96 4B 7B E3 72 9B 2603: 5D 9F 15 D5 15 82 17 49 5E 73 9E 29 86 AE 9A 82 17 4F 5E 40 A0 81 15 44 2E 00 ; YOU ARE IN A LONG SLOPING CORRIDOR WITH RAGGED WALLS. PS_23: ; RM_3F_RAGGED_WALLS 261D: 11 C7 DE 94 14 4B 5E 83 96 49 16 AB 98 C9 B8 90 A5 C5 6A BC A0 09 79 99 AF 82 7B 2B 17 F7 6C 19 263D: 58 46 48 53 2E 00 ; YOU ARE IN A CUL-DE-SAC ABOUT EIGHT FEET ACROSS. PS_24: ; RM_40_CUL_DE_SAC 2643: 10 C7 DE 94 14 4B 5E 83 96 E7 14 56 8F A5 63 CB 46 B9 46 73 C6 C9 60 33 75 67 66 03 BC B9 55 EF 2663: B9 00 ; YOU ARE IN THE CHAMBER OF HORUS, A LONG EAST/WEST PASSAGE WITH HOLES EVERYWHERE. TO EXPLORE AT ; RANDOM, SELECT NORTH, SOUTH, UP, OR DOWN. PS_25: ; RM_41_CHAMBER_OF_HORUS 2665: 2D C7 DE 94 14 4B 5E 96 96 DB 72 1B 54 AF 91 91 AF 8A 64 BF A0 33 BB 4E 45 11 A0 23 15 F8 B9 B5 2685: D0 12 BC 65 49 77 47 FB 17 53 BE 7E 74 4B 62 CF 62 99 B4 F4 72 DB 63 6B BF 2A 63 84 8D 43 5E 14 26A5: BC 8E 48 FE 9F 57 17 E5 8B 10 BC BE A0 73 76 47 B9 76 BE B2 17 11 EE 86 AF 80 A1 2E 00 ; YOU ARE IN A LARGE LOW CIRCULAR CHAMBER WHOSE FLOOR IS AN IMMENSE SLAB FALLEN FROM THE CEILING. EAST ; AND WEST THERE ONCE WERE LARGE PASSAGES, BUT THEY ARE NOW FILLED WITH SAND. LOW SMALL PASSAGES GO ; NORTH AND SOUTH. PS_26: ; RM_42_FALLEN_SLAB 26C2: 47 C7 DE 94 14 4B 5E 83 96 3B 16 B7 B1 49 16 C5 CE 2D 7B 3B C5 85 AF 4F 72 74 4D FA 17 D7 A0 56 26E2: 15 44 A0 D5 15 90 14 CF 15 30 92 9B B7 BB B8 88 4B 46 48 83 61 79 68 56 90 DB 72 AB 53 90 8C 5B 2702: 70 95 5F 03 BC 33 98 B5 D0 16 BC F4 72 51 5E 17 98 F7 17 5B B1 54 8B 9B 6C 55 A4 09 B7 6E 62 BF 2722: 14 16 BC FB 72 94 14 50 5E 6B A1 0E 67 E6 8B FB 17 53 BE 10 B7 9B 5D 89 8D 5F 17 46 48 DB 16 D3 2742: B9 B5 6C 81 15 99 16 C2 B3 90 14 15 58 36 A1 48 2E 00 ; YOU ARE IN THE PRIEST'S BEDROOM. THE WALLS ARE COVERED WITH CURTAINS, THE FLOOR WITH A THICK PILE ; CARPET. MOSS COVERS THE CEILING. PS_27: ; RM_48_PRIESTS_BEDROOM 2754: 2B C7 DE 94 14 4B 5E 96 96 DB 72 F3 A6 66 62 CB 23 66 4D 01 B3 DB 95 5F BE F3 17 0D 8D 94 14 45 2774: 5E 4F A1 66 B1 FB 17 53 BE 34 56 4B BD AE 9A 82 17 48 5E 81 8D 99 AF 82 7B 7B 14 63 BE 8B 54 8E 2794: A5 45 5E 3A 49 97 62 71 16 CB B9 48 55 3D 62 82 17 45 5E CE 60 91 7A 2E 00 ; THIS IS THE CHAMBER OF THE HIGH PRIEST. ANCIENT DRAWINGS COVER THE WALLS. AN EXTREMELY TIGHT TUNNEL ; LEADS WEST. IT LOOKS LIKE A TIGHT SQUEEZE. ANOTHER PASSAGE LEADS SE. PS_28: ; RM_49_HIGH_PRIEST 27AD: 38 63 BE CB B5 D6 B5 DB 72 1B 54 AF 91 91 AF 96 64 DB 72 89 73 12 71 07 B2 17 BA 90 14 47 54 B3 27CD: 9A EB 5B 50 D1 CB 6E 48 55 23 62 5F BE F3 17 0D 8D 43 F4 87 96 4C D9 67 61 FB 8E 89 BE 33 75 70 27ED: C0 6E 98 3F 16 0D 47 F7 17 17 BA D6 15 49 16 A5 9F 43 16 9B 85 56 45 7A 79 15 BC A7 AD 6F 63 43 280D: F4 06 9A F4 72 DB 16 D3 B9 9B 6C E3 8B 0B 5C BF B7 00 ; YOU ARE IN THE HIGH PRIEST'S TREASURE ROOM LIT BY AN EERIE GREEN LIGHT. A NARROW TUNNEL EXITS TO THE ; EAST. PS_29: ; RM_4C_EERIE_GREEN_LIGHT 281F: 23 C7 DE 94 14 4B 5E 96 96 DB 72 89 73 12 71 07 B2 F5 B9 D6 B5 63 B1 34 BA 54 5E 3F A0 43 16 04 283F: BC 43 DB 87 96 33 62 49 5E 67 B1 8E 96 7A 79 9B C1 50 45 3C 49 6B A1 70 C0 6E 98 3A 15 8D 7B 89 285F: 17 82 17 47 5E 66 49 2E 00 ; YOU ARE AT THE EAST END OF THE TWOPIT ROOM. THE FLOOR HERE IS LITTERED WITH THIN ROCK SLABS, WHICH ; MAKE IT EASY TO DESCEND THE PITS. THERE IS A PATH HERE BYPASSING THE PITS TO CONNECT PASSAGES EAST ; AND WEST. THERE ARE HOLES ALL OVER, BUT THE ONLY BIG ONE IS ON THE WALL DIRECTLY OVER THE WEST PIT ; WHERE YOU CAN'T GET TO IT. PS_2A: ; RM_4E_WEAST_END_TWOPIT 2868: 6B C7 DE 94 14 43 5E 16 BC DB 72 95 5F 07 BC 33 98 C3 9E 5F BE 91 17 63 A0 14 BC 3F A0 56 F4 DB 2888: 72 89 67 A3 A0 F4 72 4B 5E CE B5 8E 7B 2F 62 19 58 82 7B 82 17 83 7A F5 B2 D5 83 44 8B 33 BB 23 28A8: D1 13 54 8D 91 4B 5E 07 BC 6B 49 89 17 FF 14 57 B7 33 98 5F BE E3 16 2F C0 82 17 2F 62 D5 15 7B 28C8: 14 56 A4 0A 71 2F 62 C3 14 55 A4 50 B8 D6 6A DB 72 96 A5 D6 B5 C5 9C 18 A0 E6 5F DB 16 D3 B9 B5 28E8: 6C 23 15 F3 B9 8E 48 F7 17 17 BA 82 17 2F 62 94 14 4A 5E BF 9F C3 B5 F3 8C 4F A1 F3 B4 F6 4F 82 2908: 17 51 5E 93 99 B3 14 D1 6A 5B 98 4B 7B 03 A0 5F BE F3 17 F3 8C 94 5A E6 5F FB 8E 4F A1 96 AF DB 2928: 72 B5 D0 12 BC 73 7B 1F D1 5B B1 C7 DE D3 14 E6 96 77 15 16 BC CB 9C 54 2E 00 ; YOU ARE AT THE BOTTOM OF THE EASTERN PIT IN THE TWOPIT ROOM. PS_2B: ; RM_4F_BOTTOM_EASTERN_PIT 2942: 14 C7 DE 94 14 43 5E 16 BC DB 72 06 4F 7F BF B8 16 82 17 47 5E 66 49 38 62 E3 16 0B BC 96 96 DB 2962: 72 C1 C0 96 A5 39 17 FF 9F 00 ; YOU ARE AT THE WEST END OF THE TWOPIT ROOM. THERE IS A LARGE HOLE IN THE WALL ABOVE THE PIT AT THIS ; END OF THE ROOM. PS_2C: ; RM_50_WEST_END_TWOPIT 296C: 26 C7 DE 94 14 43 5E 16 BC DB 72 B5 D0 07 BC 33 98 C3 9E 5F BE 91 17 63 A0 14 BC 3F A0 56 F4 F4 298C: 72 4B 5E C3 B5 3B 16 B7 B1 A9 15 DB 8B 83 7A 5F BE F3 17 F3 8C B9 46 5B CA 5F BE E3 16 03 BC 16 29AC: BC 95 73 30 15 11 58 96 64 DB 72 01 B3 4D 2E 00 ; YOU ARE AT THE BOTTOM OF THE WEST PIT IN THE TWOPIT ROOM. THERE IS A LARGE HOLE IN THE WALL ABOUT ; TWENTY FIVE FEET ABOVE YOU. PS_2D: ; RM_51_BOTTOM_WEST_PIT 29BC: 29 C7 DE 94 14 43 5E 16 BC DB 72 06 4F 7F BF B8 16 82 17 59 5E 66 62 E3 16 0B BC 96 96 DB 72 C1 29DC: C0 96 A5 39 17 FF 9F 82 17 2F 62 D5 15 7B 14 54 8B 9B 6C 7E 74 4B 5E 96 96 DB 72 0E D0 03 8A 07 29FC: 4F 16 BC B0 D0 FB C0 18 67 48 5E 36 60 84 14 4F A1 51 18 55 2E 00 ; YOU ARE IN A LONG, NARROW CORRIDOR STRETCHING OUT OF SIGHT TO THE WEST. AT THE EASTERN END IS A HOLE ; THROUGH WHICH YOU CAN SEE A PROFUSION OF LEAVES. PS_2E: ; RM_4D_PROFUSION_OF_LEAVES 2A12: 31 C7 DE 94 14 4B 5E 83 96 49 16 CE 98 8B 16 79 B3 C5 CE BC A0 09 79 95 AF EF BF 9A BD 91 7A C7 2A32: 16 11 BC 95 64 7A 79 16 BC D6 9C DB 72 B5 D0 9B C1 73 49 5F BE 23 15 FF B9 C3 B2 8E 61 D5 15 7B 2A52: 14 7E 74 56 5E F9 74 7A C4 FA 17 DA 78 51 18 45 C2 83 48 A7 B7 7B 14 F9 A6 F5 68 C0 7A B8 16 3F 2A72: 16 CF 49 53 2E 00 ; YOU ARE IN THE CHAMBER OF OSIRIS. THE CEILING IS TOO HIGH UP FOR YOUR LAMP TO SHOW IT. PASSAGES LEAD ; EAST, NORTH, AND SOUTH. PS_2F: ; RM_47_CHAMBER_OF_OSIRIS 2A78: 29 C7 DE 94 14 4B 5E 96 96 DB 72 1B 54 AF 91 91 AF 91 64 54 B8 6F 7B 82 17 45 5E CE 60 91 7A D5 2A98: 15 89 17 CA 9C 7A 79 B2 17 59 15 9B AF 34 A1 3B 16 D3 93 6B BF 29 B8 CB CE 9B C1 55 A4 09 B7 4B 2AB8: 62 E3 8B 07 58 66 49 10 EE BE A0 73 76 8E 48 61 17 82 C6 2E 00 ; THE PASSAGE HERE IS BLOCKED BY A FALLEN BLOCK. PS_30: ; RM_46_BLOCKED_FALLEN_BLOCK 2ACD: 0F 5F BE DB 16 D3 B9 9B 6C F4 72 4B 5E C4 B5 75 8D A6 85 C3 14 7B 14 CE 65 F0 8B B6 14 5D 9E 2E 2AED: 00 ; YOU ARE IN THE CHAMBER OF NEKHEBET, A WOMAN WITH THE HEAD OF A VULTURE, WEARING THE CROWN OF EGYPT. ; A PASSAGE EXITS TO THE SOUTH. PS_31: ; RM_44_CHAMBER_OF_NEKHEBET 2AEE: 2B C7 DE 94 14 4B 5E 96 96 DB 72 1B 54 AF 91 91 AF 90 64 1A 61 AF 5F 73 C1 59 45 E3 9F 99 96 82 2B0E: 7B 82 17 4A 5E 86 5F B8 16 7B 14 EE CC 74 C0 B3 63 A3 D0 10 B2 D6 6A DB 72 B9 55 03 D2 C3 9E 8B 2B2E: 60 57 A7 7B 14 55 A4 09 B7 47 5E 96 D7 D6 B5 D6 9C DB 72 47 B9 77 BE 00
Object Descriptions
These are the long (in a room description) and short (in the inventory) strings for each object.
; THERE IS A SHINY BRASS LAMP NEARBY. PS_32: 2B46: 0B 5F BE 5B B1 4B 7B 55 45 90 73 44 DB D5 B0 CE B5 72 48 8F 16 2C 49 59 2E 00 ; BRASS LANTERN PS_33: 2B60: 04 6B 4F CB B9 50 8B F4 BD 4E 00 ; THERE IS A LAMP SHINING NEARBY. PS_34: 2B6B: 0A 5F BE 5B B1 4B 7B 4E 45 72 48 5A 17 93 7A AB 98 63 98 03 B1 2E 00 ; BRASS LANTERN PS_35: 2B82: 04 6B 4F CB B9 50 8B F4 BD 4E 00 ; THERE IS A SMALL STATUE BOX DISCARDED NEARBY. PS_36: 2B8D: 0F 5F BE 5B B1 4B 7B 55 45 8E 91 15 8A 56 BD 1B C4 0A 4F 03 15 53 B7 3F B1 10 58 94 5F 9F 50 00 ; STATUE BOX PS_37: 2BAD: 03 FB B9 67 C0 B9 14 58 00 ; A THREE FOOT SCEPTER WITH AN ANKH ON AN END LIES NEARBY. PS_38: 2BB6: 12 56 45 EF 74 48 5E 46 A0 55 17 EE 61 23 62 56 D1 03 71 83 96 5A 99 C0 16 90 14 30 15 0E 58 35 2BD6: 79 8F 16 2C 49 59 2E 00 ; SCEPTER PS_39: 2BDE: 02 57 B7 3F A7 52 00 ; A STATUE OF THE BIRD GOD IS SITTING HERE. PS_3A: 2BE5: 0D 55 45 56 BD 1B C4 C3 9E 5F BE B3 14 33 B1 36 6E D5 15 5B 17 43 C0 AB 98 F4 72 45 2E 00 ; THERE IS A BIRD STATUE IN THE BOX. PS_3B: 2C03: 0B 5F BE 5B B1 4B 7B 44 45 2E 7B 66 17 8F 49 4B 5E 96 96 DB 72 0A 4F 2E 00 ; BIRD STATUE IN BOX PS_3C: 2C1C: 06 14 4E 15 58 56 BD 1B C4 83 7A 0A 4F 00 ; A SMALL VELVET PILLOW LIES ON THE FLOOR. PS_3D: 2C2A: 0D 55 45 8E 91 18 8A 50 61 73 62 8E A5 89 8D 43 16 4B 62 03 A0 5F BE 56 15 44 A0 2E 00 ; VELVET PILLOW PS_3E: 2C47: 04 6E CA 76 CA E3 16 09 8D 57 00 ; A HUGE GREEN FIERCE SERPENT BARS THE WAY! PS_3F: 2C52: 0D 4A 45 77 C4 84 15 30 60 53 15 2D 62 55 5E 3A 62 9E 61 AB 14 8B B3 5F BE F3 17 59 21 00 ; A STONE BRIDGE NOW SPANS THE BOTTOMLESS PIT. PS_40: 2C70: 0E 55 45 80 BF 44 5E 06 B2 9B 6C 09 9A 62 17 9D 48 82 17 44 5E 0E A1 EE 9F 65 62 E3 16 54 2E 00 ; THERE IS A SARCOPHAGUS HERE WITH IT'S COVER TIGHTLY CLOSED. PS_41: 2C90: 13 5F BE 5B B1 4B 7B 55 45 2D 49 62 A0 87 47 CA B5 2F 62 FB 17 53 BE 75 7B C5 B5 4F A1 96 AF 7A 2CB0: 79 13 BF DE 14 D7 A0 44 2E 00 ; SARCOPHAGUS >GROAN< PS_42: 2CBA: 06 14 B7 42 55 49 72 4B C6 84 2E 10 9E 3C 00 ; THERE ARE A FEW RECENT ISSUES OF "EGYPTIAN WEEKLY" MAGAZINE HERE. PS_43: 2CC9: 15 5F BE 5B B1 2F 49 7B 14 79 66 2F 17 B0 53 0B BC E7 B9 4B 62 C3 9E 69 1B EE DE 90 78 F7 17 1E 2CE9: 61 63 DB 89 91 73 4A 5B 98 F4 72 45 2E 00 ; "EGYPTIAN WEEKLY" PS_44: 2CF7: 05 69 1B EE DE 90 78 F7 17 1E 61 59 22 00 ; THERE IS FOOD HERE. PS_45: 2D05: 06 5F BE 5B B1 4B 7B 01 68 0A 58 2F 62 2E 00 ; TASTY FOOD PS_46: 2D14: 03 55 BD FB C0 01 68 44 00 ; THERE IS A BOTTLE HERE. PS_47: 2D1D: 07 5F BE 5B B1 4B 7B 44 45 0E A1 DB 8B F4 72 45 2E 00 ; SMALL BOTTLE PS_48: 2D2F: 04 E3 B8 F3 8C 06 4F FF BE 00 ; THERE IS WATER IN THE BOTTLE. PS_49: 2D39: 09 5F BE 5B B1 4B 7B 16 D0 23 62 83 7A 5F BE B9 14 46 C0 45 2E 00 ; WATER IN THE BOTTLE PS_4A: 2D4F: 06 16 D0 23 62 83 7A 5F BE B9 14 46 C0 45 00 ; THERE IS A TINY PLANT IN THE PIT, MURMURING "WATER, WATER, ..." PS_4B: 2D5E: 15 5F BE 5B B1 4B 7B 56 45 A3 7A E6 16 9E 48 D0 15 82 17 52 5E 96 7B 77 16 B7 B2 10 B2 BC 6A 16 2D7E: D0 46 62 F3 17 F4 BD 1F EE DC F9 00 ; THERE IS A TWELVE FOOT BEAN STALK STRETCHING UP OUT OF THE PIT, BELLOWING "WATER... WATER..." PS_4C: 2D8A: 1F 5F BE 5B B1 4B 7B 56 45 AE D0 5B CA 01 68 04 BC 90 5F 66 17 45 48 66 17 76 B1 23 54 AB 98 D3 2DAA: C5 36 A1 B8 16 82 17 52 5E 96 7B AF 14 09 8D 50 D1 BC 6A 16 D0 47 62 DB F9 16 D0 47 62 DC F9 00 ; THERE IS A GIGANTIC BEAN STALK STRETCHING ALL THE WAY UP TO THE HOLE. PS_4D: 2DCA: 17 5F BE 5B B1 4B 7B 49 45 73 79 C3 9A C4 51 90 5F 66 17 45 48 66 17 76 B1 23 54 AB 98 46 48 82 2DEA: 17 59 5E 3B 4A D3 C5 6B BF 5F BE A9 15 FF 8B 00 ; THERE IS A MASSIVE VENDING MACHINE HERE. THE INSTRUCTIONS ON IT READ- "DROP COINS HERE TO RECIEVE ; FRESH BATTERIES". PS_4E: 2DFA: 26 5F BE 5B B1 4B 7B 4F 45 65 49 CF 7B CF 17 43 98 AB 98 85 91 90 73 4A 5E 2F 62 56 F4 DB 72 9D 2E1A: 7A FF BF 03 56 1D A0 C0 16 D6 15 2F 17 15 47 6E 13 02 B3 E1 14 9D 7A 9F 15 5B B1 6B BF 65 B1 38 2E3A: 79 48 5E 75 B1 04 71 8E 49 33 62 4C 62 2E 00 ; THERE ARE FRESH BATTERIES HERE. PS_4F: 2E49: 0A 5F BE 5B B1 2F 49 5C 15 5A 62 AB 14 3F C0 07 B2 CA B5 2F 62 2E 00 ; BATTERIES PS_50: 2E60: 03 D6 4C F4 BD 35 79 00 ; SOME WORN-OUT BATTERIES HAVE BEEN DISCARDED NEARBY. PS_51: 2E68: 11 3F B9 59 5E B8 A0 47 EB 04 BC 8E 49 33 62 4B 62 58 72 44 5E 30 60 03 15 53 B7 3F B1 10 58 94 2E88: 5F 9F 50 00 ; BATTERIES PS_52: 2E8C: 03 D6 4C F4 BD 35 79 00 ; THERE IS A LARGE SPARKLING NUGGET OF GOLD HERE! PS_53: 2E94: 0F 5F BE 5B B1 4B 7B 4E 45 31 49 55 5E 54 A4 C3 86 AB 98 E9 9A B6 6C B8 16 81 15 B3 8B F4 72 45 2EB4: 21 00 ; LARGE GOLD NUGGET PS_54: 2EB6: 05 54 8B 9B 6C 3E 6E 10 58 79 C4 45 54 00 ; THERE ARE DIAMONDS HERE! PS_55: 2EC4: 08 5F BE 5B B1 2F 49 03 15 71 48 4D 98 9F 15 59 B1 00 ; SEVERAL DIAMONDS PS_56: 2ED6: 05 B8 B7 2B 62 06 8A 8F 78 0E A0 53 00 ; THERE ARE BARS OF SILVER HERE! PS_57: 2EE3: 0A 5F BE 5B B1 2F 49 AB 14 8B B3 C3 9E 4E B8 74 CA 9F 15 59 B1 00 ; SILVER BARS PS_58: 2EF9: 03 4E B8 74 CA AB 14 52 53 00 ; THERE IS PRECIOUS JEWELRY HERE! PS_59: 2F03: 0A 5F BE 5B B1 4B 7B EF A6 51 54 4B C6 79 7F 4C 61 4A DB 2F 62 21 00 ; PRECIOUS JEWELRY PS_5A: 2F1A: 05 EF A6 51 54 4B C6 79 7F 4C 61 59 00 ; THERE ARE MANY COINS HERE! PS_5B: 2F27: 08 5F BE 5B B1 2F 49 63 16 7B 9B 3B 55 8B 9A F4 72 45 21 00 ; RARE COINS PS_5C: 2F3B: 03 D4 B0 45 5E 50 9F 53 00 ; THE PHARAOH'S TREASURE CHEST IS HERE! PS_5D: 2F44: 0C 5F BE E2 16 2B 49 15 9F D6 B5 63 B1 34 BA 45 5E F5 72 0B BC CA B5 2F 62 21 00 ; TREASURE CHEST PS_5E: 2F5F: 04 EF BF 67 49 5B B1 1F 54 53 54 00 ; THERE IS A LARGE NEST HERE, FULL OF GOLDEN EGGS! PS_5F: 2F6B: 10 5F BE 5B B1 4B 7B 4E 45 31 49 50 5E 66 62 9F 15 7E B1 5F 15 F3 8C C3 9E 3E 6E F0 59 29 15 C9 2F8B: 6E 00 ; GOLDEN EGGS PS_60: 2F8D: 03 3E 6E F0 59 29 15 47 53 00 ; THERE IS A JEWEL-ENCRUSTED KEY HERE! PS_61: 2F97: 0C 5F BE 5B B1 4B 7B 4C 45 F7 62 57 8F 24 98 66 C6 F3 5F BB 85 9F 15 59 B1 00 ; JEWELED KEY PS_62: 2FB1: 03 79 7F 3F 61 0D 58 45 59 00 ; THERE IS A DELICATE, PRECIOUS, VASE HERE! PS_63: 2FBB: 0D 5F BE 5B B1 4B 7B 46 45 43 61 16 53 B3 63 EF A6 51 54 6E C6 CB 17 9B B7 F4 72 45 21 00 ; VASE PS_64: 2FD9: 01 D5 C9 45 00 ; THE VASE IS NOW RESTING, DELICATELY, ON A VELVET PILLOW. PS_65: 2FDE: 12 5F BE CB 17 9B B7 4B 7B 09 9A 2F 17 03 BA CE 98 FF 14 85 8C 7F 49 1E 8F C0 16 7B 14 6E CA 76 2FFE: CA E3 16 09 8D 57 2E 00 ; THE FLOOR IS LITTERED WITH WORTHLESS SHARDS OF POTTERY. PS_66: 3006: 12 5F BE 56 15 44 A0 D5 15 43 16 3F C0 66 B1 FB 17 53 BE 44 D2 66 BE 65 62 5A 17 2E 49 D1 B5 92 3026: 64 0E A1 43 62 2E 00 ; THERE IS AN EMERALD HERE THE SIZE OF A PLOVER'S EGG! PS_67: 302D: 11 5F BE 5B B1 4B 7B 83 48 67 61 CE B0 0A 58 2F 62 82 17 55 5E 6F 7C B8 16 7B 14 09 A6 74 CA CB 304D: 23 79 60 21 00 ; EGG-SIZED EMERALD PS_68: 3052: 05 79 60 DB EB 66 E3 2F 15 2B 62 4C 44 00 ; OFF TO ONE SIDE LIES A GLISTENING PEARL! PS_69: 3060: 0D D0 9E 89 17 C0 16 55 5E FF 78 43 16 4B 62 49 45 95 8C F0 BD 91 7A DF 16 36 49 21 00 ; GLISTENING PEARL PS_6A: 307D: 05 C3 6D FF B9 10 99 D2 6A 94 5F 4C 00
Misc Messages and Errors
; YOU ARE AT THE BOTTOM OF THE PIT WITH A BROKEN NECK. PS_6B: 308A: 11 C7 DE 94 14 43 5E 16 BC DB 72 06 4F 7F BF B8 16 82 17 52 5E 73 7B 56 D1 03 71 BC 14 97 9F 90 30AA: 96 DD 5F 2E 00 ; THE CRACK IS FAR TOO SMALL FOR YOU TO FOLLOW. PS_6C: 30AF: 0F 5F BE E4 14 DD 46 D5 15 4B 15 96 AF 2B A0 E3 B8 F3 8C 04 68 51 18 56 C2 C8 9C C6 9F 8F A1 00 ; THE DOME IS UNCLIMBABLE. PS_6D: 30CF: 08 5F BE 09 15 1B 92 4B 7B 8D C5 8F 8C C4 4C FF 8B 00 ; I RESPECTFULLY SUGGEST YOU GO ACROSS THE BRIDGE INSTEAD OF JUMPING. PS_6E: 30E1: 16 54 77 62 62 E6 5F EE 68 FB 8E 29 BA B5 6C 1B BC 1B A1 2B 6E E4 46 E5 A0 82 17 44 5E 06 B2 9B 3101: 6C 9D 7A E3 BD 11 58 8C 64 72 C5 91 7A 2E 00 ; YOU DIDN'T MAKE IT. PS_6F: 3110: 06 C7 DE 03 15 45 5B 0F BC 17 48 D6 15 2E 00 ; THERE IS NO WAY ACROSS THE BOTTOMLESS PIT. PS_70: 311F: 0E 5F BE 5B B1 4B 7B EB 99 1B D0 85 14 05 B3 D6 B5 DB 72 06 4F 7F BF F5 8B D2 B5 97 7B 00 ; YOU CAN'T GET BY THE SERPENT. PS_71: 313D: 09 C7 DE D3 14 E6 96 77 15 04 BC 56 DB DB 72 B4 B7 F0 A4 54 2E 00 ; YOU HAVE CRAWLED THROUGH A VERY LOW WIDE PASSAGE PARALLEL TO AND NORTH OF THE HALL OF GODS. PS_72: 3153: 1E C7 DE 9B 15 5B CA AB 55 BF D1 16 58 F9 74 7A C4 7B 14 74 CA 4E DB 6B A1 46 D1 52 5E 65 49 77 3173: 47 DB 16 CE B0 EE 8B 89 17 90 14 10 58 BE A0 11 71 96 64 DB 72 4E 72 11 8A 89 64 8D 9E 2E 00 ; YOU DON'T FIT THROUGH TWO-INCH SLIT! PS_73: 3192: 0C C7 DE 09 15 E6 96 53 15 16 BC F9 74 7A C4 91 17 1B A2 1A 98 5E 17 71 7B 00 ; YOU HAVE CRAWLED AROUND IN SOME LITTLE HOLES AND WOUND UP BACK IN THE MAIN PASSAGE. PS_74: 31AC: 1B C7 DE 9B 15 5B CA AB 55 BF D1 03 58 07 B3 33 98 83 7A 3F B9 4E 5E 8E 7B DB 8B 7E 74 4B 62 8E 31CC: 48 01 18 8E C5 B2 17 AB 14 8B 54 83 7A 5F BE 63 16 83 7A 55 A4 09 B7 45 2E 00 ; YOU HAVE CRAWLED AROUND IN SOME LITTLE HOLES AND FOUND YOUR WAY BLOCKED BY A FALLEN SLAB. YOU ARE ; NOW BACK IN THE MAIN PASSAGE. PS_75: 31E6: 2A C7 DE 9B 15 5B CA AB 55 BF D1 03 58 07 B3 33 98 83 7A 3F B9 4E 5E 8E 7B DB 8B 7E 74 4B 62 8E 3206: 48 59 15 8E C5 51 18 23 C6 1B D0 B6 14 5D 9E F3 5F 7B 50 48 45 46 48 83 61 BB B8 1B 51 C7 DE 94 3226: 14 50 5E 6B A1 C5 4C CB 83 96 96 DB 72 8B 91 92 96 65 49 77 47 2E 00 ; YOU CAN'T FIT THIS BIG SARCOPHAGUS THROUGH THAT LITTLE PASSAGE! PS_76: 323D: 15 C7 DE D3 14 E6 96 53 15 16 BC 95 73 B3 14 D5 6A 2D 49 62 A0 87 47 D6 B5 F9 74 7A C4 82 17 73 325D: 49 96 8C FF BE DB 16 D3 B9 99 6C 00 ; SOMETHING YOU'RE CARRYING WON'T FIT THROUGH THE TUNNEL WITH YOU. YOU'D BEST TAKE INVENTORY AND DROP ; SOMETHING. PS_77: 3269: 24 3F B9 82 62 91 7A 51 18 A4 C2 45 5E 3C 49 D0 DD D9 6A 05 A0 08 BC 73 7B 6C BE 29 A1 16 71 DB 3289: 72 70 C0 6E 98 FB 17 53 BE C7 DE 5B F4 1D A1 04 58 66 62 7B 17 9B 85 A0 7A 9E 61 C3 A0 90 14 06 32A9: 58 02 B3 61 17 36 92 90 73 47 2E 00 ; YOU CLAMBER UP THE PLANT AND SCURRY THROUGH THE HOLE AT THE TOP. PS_78: 32B5: 15 C7 DE DE 14 64 48 23 62 D3 C5 5F BE E6 16 9E 48 90 14 15 58 34 56 7B B4 6C BE 29 A1 16 71 DB 32D5: 72 7E 74 43 5E 16 BC DB 72 82 BF 2E 00 ; YOU'VE CLIMBED UP THE PLANT AND OUT OF THE PIT. PS_79: 32E2: 0F C7 DE 4F 24 DE 14 64 7A F3 5F D3 C5 5F BE E6 16 9E 48 90 14 11 58 73 C6 C3 9E 5F BE E3 16 54 3302: 2E 00 ; THERE IS NO WAY FOR YOU TO GO THAT DIRECTION. PS_7A: 3304: 0F 5F BE 5B B1 4B 7B EB 99 1B D0 59 15 9B AF 1B A1 6B BF 2B 6E 5B BE 06 BC 2F 7B 03 56 27 A0 00 ; I DON'T KNOW IN FROM OUT HERE. USE COMPASS POINTS. PS_7B: 3324: 10 46 77 05 A0 0D BC 09 9A D0 15 5C 15 DB 9F 36 A1 9F 15 7F B1 B5 17 45 5E F2 9F 65 49 E9 16 9E 3344: 7A 53 2E 00 ; I AM UNSURE HOW YOU ARE FACING. USE COMPASS POINTS. PS_7C: 3348: 11 43 77 57 90 A7 9A 5B B1 89 74 51 18 43 C2 5B B1 C5 65 91 7A 57 F4 9B B7 3F 55 55 A4 D2 B5 50 3368: 9F 2F C0 00 ; NOTHING HAPPENS. PS_7D: 336C: 05 06 9A 90 73 CA 6A EA 48 9D 61 2E 00 ; I DON'T KNOW HOW. PS_7E: 3379: 05 46 77 05 A0 0D BC 09 9A A9 15 57 2E 00 ; I DON'T KNOW HOW TO APPLY THAT WORD HERE. PS_7F: 3387: 0D 46 77 05 A0 0D BC 09 9A A9 15 D6 CE C3 9C A6 A6 56 DB 56 72 01 18 33 B1 F4 72 45 2E 00 ; YOUR LAMP IS NOW ON. PS_80: 33A5: 06 C7 DE 8E AF 72 48 D5 15 99 16 D1 CE 4E 2E 00 ; YOU HAVE NO SOURCE OF LIGHT. PS_81: 33B5: 09 C7 DE 9B 15 5B CA EB 99 47 B9 17 B1 B8 16 43 16 2E 6D 2E 00 ; YOUR LAMP IS NOW OFF. PS_82: 33CA: 07 C7 DE 8E AF 72 48 D5 15 99 16 D1 CE A7 66 00 ; In the TRS80 version but not here in CoCo: ; PS_83 PS_84 detailed error messages ; OK PS_85: 33DA: 01 8B 9F 00 ; SORRY, BUT I NO LONGER SEEM TO REMEMBER HOW IT WAS YOU GOT HERE. PS_86: 33DE: 15 44 B9 9E B4 BF 14 0B BC 99 16 49 16 B7 98 95 AF 2F 60 89 17 2F 17 2F 92 74 4D A9 15 CB CE 19 33FE: BC 4B 49 C7 DE 81 15 0A BC 2F 62 2E 00 ; YOU ARE ALREADY CARRYING IT. PS_87: 340B: 09 C7 DE 94 14 43 5E EF 8D 13 47 D3 14 83 B3 91 7A D6 15 2E 00 ; YOU CAN'T CARRY ANYTHING MORE. YOU'LL HAVE TO DROP SOMETHING FIRST. PS_88: 3420: 16 C7 DE D3 14 E6 96 D3 14 83 B3 90 14 82 DF 91 7A 71 16 7F B1 51 18 9E C2 0A 8A CF 49 89 17 0C 3440: 15 53 A0 3F B9 82 62 91 7A 53 15 A6 B3 2E 00 ; YOU'RE NOT CARRYING ANYTHING. PS_89: 344F: 09 C7 DE AF 23 99 16 05 BC 3C 49 D0 DD C3 6A 96 9B 90 73 47 2E 00 ; YOU ARE CURRENTLY HOLDING THE FOLLOWING: PS_8A: 3465: 0D C7 DE 94 14 45 5E 3C C6 9E 61 FB 8E 7E 74 90 5A D6 6A DB 72 FE 67 89 8D 91 7A 3A 00 ; DON'T BE RIDICULOUS! PS_8B: 3482: 06 80 5B F3 23 5B 4D 06 B2 E7 78 87 8D 53 21 00 ; YOUR BOTTLE IS EMPTY AND THE GROUND IS WET. PS_8C: 3492: 0E C7 DE 84 AF 0E A1 DB 8B 4B 7B 72 61 FB C0 8E 48 82 17 49 5E 07 B3 33 98 4B 7B B6 D0 2E 00 ; YOU CAN'T POUR THAT. PS_8D: 34B1: 06 C7 DE D3 14 E6 96 E9 16 23 C6 5B BE 54 2E 00 ; RUBBING THE ELECTRIC LAMP IS NOT PARTICULARLY REWARDING. ANYWAY, NOTHING EXCITING HAPPENS. PS_8E: 34C1: 1E E4 B3 10 4E D6 6A DB 72 3F 61 0C 56 CB 78 4F 8B 0B A3 D0 B5 F3 A0 54 A4 85 BE 3B C5 93 B2 2F 34E1: 17 14 D0 90 5A 5B 70 A3 48 1B D0 10 EE 02 A1 91 7A 3A 15 56 54 91 7A 9B 15 9F A6 AF 9A 00 ; PECULIAR. NOTHING UNEXPECTED HAPPENS. PS_8F: 34FF: 0C E5 A4 43 C5 47 49 99 16 63 BE AB 98 8F C5 9F D8 FF 55 0A 58 EA 48 9D 61 2E 00 ; THERE IS NOTHING HERE WITH WHICH TO FILL THE BOTTLE. PS_90: 351A: 11 5F BE 5B B1 4B 7B 06 9A 90 73 CA 6A 2F 62 FB 17 53 BE 23 D1 13 54 6B BF 0E 67 16 8A DB 72 06 353A: 4F FF BE 2E 00 ; THE BOTTLE IS NOW EMPTY. PS_91: 353F: 08 5F BE B9 14 46 C0 4B 5E D0 B5 6B A1 72 61 1F C1 00 ; YOU CAN'T FILL THAT. PS_92: 3551: 06 C7 DE D3 14 E6 96 53 15 F3 8C 5B BE 54 2E 00 ; A GLISTENING PEARL FALLS OUT OF THE SARCOPHAGUS AND ROLLS AWAY. THE SARCOPHAGUS SNAPS SHUT ; AGAIN. PS_93: 3561: 20 49 45 95 8C F0 BD 91 7A DF 16 36 49 4B 15 0D 8D C7 16 11 BC 96 64 DB 72 14 B7 42 55 49 72 4B 3581: C6 8E 48 39 17 0D 8D 99 14 5F 4A 82 17 55 5E 2D 49 62 A0 87 47 D5 B5 D2 97 D5 B5 76 75 89 14 D0 35A1: 47 2E 00 ; I'D ADVISE YOU TO PUT DOWN THE SARCOPHAGUS BEFORE OPENING IT!! PS_94: 35A4: 14 96 77 86 14 15 CB 5B 5E 1B A1 6B BF 76 A7 09 15 03 D2 5F BE 53 17 21 B1 5B A5 35 6F AF 14 04 35C4: 68 51 5E F0 A4 91 7A D6 15 21 21 00 ; THE SARCOPHAGUS CREAKS OPEN, REVEALING NOTHING INSIDE. IT PROMPTLY SNAPS SHUT AGAIN. PS_95: 35D0: 1C 5F BE 53 17 21 B1 5B A5 35 6F E4 14 8D 5F D1 B5 F0 A4 14 EE CF 62 43 48 AB 98 06 9A 90 73 CB 35F0: 6A 9B 9A FF 59 D6 15 EC 16 F2 9F 13 BF 60 17 ED 48 5A 17 73 C6 73 47 A7 7A 00 ; YOU DON'T HAVE ANYTHING STRONG ENOUGH TO OPEN THE SARCOPHAGUS. PS_96: 360A: 14 C7 DE 09 15 E6 96 9B 15 5B CA A3 48 63 BE AB 98 0C BA 11 A0 30 15 29 A1 16 71 D1 9C F0 A4 82 362A: 17 55 5E 2D 49 62 A0 87 47 53 2E 00 ; I DON'T KNOW HOW TO LOCK OR UNLOCK SUCH A THING. PS_97: 3636: 10 46 77 05 A0 0D BC 09 9A A9 15 D6 CE CE 9C 5D 9E C4 16 B0 17 75 8D D5 83 DA C3 7B 14 63 BE CF 3656: 98 00 ; THE BIRD STATUE IS NOW DEAD. ITS BODY DISAPPEARS. PS_98: 3658: 10 5F BE B3 14 33 B1 FB B9 67 C0 D5 15 99 16 C6 CE 86 5F 4B F4 0B C0 F6 4E 46 DB 53 7B 9F A6 3D 3678: 49 2E 00 ; THE STONE IS VERY STRONG AND IS IMPERVIOUS TO ATTACK. PS_99: 367B: 11 5F BE 66 17 0F A0 D5 15 CF 17 7B B4 0C BA 11 A0 90 14 0B 58 CB B5 DF 93 13 B4 35 A1 89 17 96 369B: 14 45 BD 4B 2E 00 ; ATTACKING THE SERPENT BOTH DOESN'T WORK AND IS VERY DANGEROUS. PS_9A: 36A1: 14 8E 49 DD 46 91 7A 82 17 55 5E 3A 62 9E 61 B9 14 53 BE 77 5B 05 B9 19 BC B5 A0 90 14 0B 58 D8 36C1: B5 43 62 FB 14 B7 98 07 B3 53 2E 00 ; YOU CAN'T BE SERIOUS! PS_9B: 36CD: 07 C7 DE D3 14 E6 96 AF 14 57 17 11 B2 49 C6 00 ; IT IS BEYOND YOUR POWER TO DO THAT. PS_9C: 36DD: 0B 73 7B 4B 7B 7B 4D 0E A0 51 18 23 C6 89 A6 23 62 6B BF 6B 5B 5B BE 54 2E 00 ; THANK YOU, IT WAS DELICIOUS! PS_9D: 36F7: 09 5B BE 4B 99 C7 DE 0B EE 19 BC 4B 49 EE 59 DB 78 35 A1 21 00 ; I THINK I JUST LOST MY APPETITE. PS_9E: 370C: 0A 56 77 90 73 CB 83 FF 15 F3 B9 85 8D 0F BC 43 DB 9F A6 96 BE 45 2E 00 ; YOU HAVE TAKEN A DRINK FROM THE STREAM. THE WATER TASTES STRONGLY OF MINERALS, BUT IS NOT ; UNPLEASANT. IT IS EXTREMELY COLD. PS_9F: 3724: 29 C7 DE 9B 15 5B CA 4D BD 83 61 46 45 10 B2 C8 83 FF B2 82 17 55 5E EF BF 7F 48 82 17 59 5E 7F 3744: 49 96 AF 66 49 4B 62 0C BA 11 A0 FB 8E C3 9E D0 92 2B 62 2E 8E BF 14 0B BC D0 B5 F3 A0 9A C5 E3 3764: 8B 10 B7 9B C1 73 7B 4B 7B 2E 63 6F B1 53 61 E1 14 D7 8B 00 ; IT'S NOT HUNGRY. BESIDES, YOU HAVE NO BIRD SEED. PS_A0: 3778: 10 75 7B D0 B5 F3 A0 70 75 C3 6E 44 F4 5B 62 F5 59 1B EE 1B A1 58 72 50 5E C4 9C 2E 7B 57 17 17 3798: 60 00 ; YOU FELL INTO A PIT AND BROKE EVERY BONE IN YOUR BODY. PS_A1: 379A: 12 C7 DE 4F 15 F3 8C 9E 7A C3 9C E3 16 03 BC 33 98 79 4F 9B 85 CF 62 7B B4 00 4F 4B 5E 9B 96 34 37BA: A1 B9 14 1F 5D 20 00 ; THE SERPENT HAS NOW DEVOURED YOUR BIRD STATUE. PS_A2: 37C1: 0F 5F BE 57 17 1F B3 B3 9A 55 72 99 16 C6 CE D9 62 2F C6 1B 58 34 A1 B3 14 33 B1 FB B9 67 C0 2E 37E1: 00 ; THERE IS NOTHING HERE IT WANTS TO EAT - EXCEPT PERHAPS YOU. PS_A3: 37E2: 13 5F BE 5B B1 4B 7B 06 9A 90 73 CA 6A 2F 62 D6 15 F3 17 CD 9A 89 17 23 15 1D BC 3A 15 B2 53 12 3802: BC 32 62 ED 48 51 18 55 2E 00 ; IT IS NOW PITCH DARK. IF YOU PROCEED, YOU WILL LIKELY FALL INTO A PIT. PS_A4: 380C: 17 73 7B 4B 7B 09 9A E3 16 9A BD FB 14 6F B2 C8 15 51 18 52 C2 F5 B2 26 60 1B EE 1B A1 4E D1 0E 382C: 8A 17 7A FB 8E CE 65 0B 8A C9 9A 7B 14 96 A5 2E 00 ; I'M GAME. WOULD YOU CARE TO EXPLAIN HOW? PS_A5: 383D: 0D 9F 77 73 15 3F 92 01 18 3E C5 51 18 45 C2 2F 49 89 17 3A 15 FB A5 83 7A 89 74 3F 00 ; YOUR LAMP IS GETTING DIM. YOU'D BEST START WRAPPING THIS UP, UNLESS YOU CAN FIND SOME FRESH ; BATTERIES. I SEEM TO RECALL THERE IS A VENDING MACHINE IN THE MAZE. BRING SOME COINS WITH YOU. PS_A6: 385A: 3E C7 DE 8E AF 72 48 D5 15 77 15 43 C0 AB 98 8F 5A 5B F4 1D A1 04 58 66 62 66 17 3E 49 04 18 EA 387A: 48 91 7A 82 17 4B 7B F6 C5 B0 17 F5 8B DB B5 1B A1 10 53 53 15 33 98 3F B9 48 5E 75 B1 04 71 8E 389A: 49 33 62 6F 62 BB 15 A7 B7 56 90 D4 9C D3 5F F3 8C 5F BE 5B B1 4B 7B 58 45 8E 61 91 7A 63 16 23 38BA: 54 5B 98 83 7A 5F BE 63 16 7F E3 BC 14 91 7A 61 17 1B 92 3B 55 8B 9A 56 D1 1B 71 3F A1 00 ; YOUR LAMP HAS RUN OUT OF POWER. PS_A7: 38D8: 0A C7 DE 8E AF 72 48 9B 15 D4 B5 83 C5 36 A1 B8 16 E9 16 B4 D0 2E 00 ; THE PLANT HAS EXCEPTIONALLY DEEP ROOTS AND CANNOT BE PULLED FREE. PS_A8: 38EF: 15 5F BE E6 16 9E 48 9B 15 C7 B5 97 D6 43 A7 0B A0 13 8D FF 14 D3 61 01 B3 0B C0 8E 48 D3 14 D9 390F: 99 04 BC 52 5E 46 C5 F3 5F 6F 68 45 2E 00 ; YOUR LAMP IS GETTING DIM. I'M TAKING THE LIBERTY OF REPLACING THE BATTERIES. PS_A9: 391D: 19 C7 DE 8E AF 72 48 D5 15 77 15 43 C0 AB 98 8F 5A 4B F4 DB 22 4D BD 91 7A 82 17 4E 5E AF 78 D3 393D: B3 B8 16 2F 17 FB A5 50 54 D6 6A DB 72 D6 4C F4 BD 35 79 2E 00 ; AS YOU APPROACH THE STATUE, IT COMES TO LIFE AND FLIES ACROSS THE CHAMBER WHERE IT LANDS AND RETURNS ; TO STONE. PS_AA: 3952: 24 4B 49 C7 DE 92 14 F9 A6 DA 46 82 17 55 5E 56 BD 3E C4 D6 15 E1 14 35 92 89 17 43 16 5B 66 8E 3972: 48 56 15 35 79 85 14 05 B3 D6 B5 DB 72 1B 54 AF 91 99 AF F4 72 4B 5E 0E BC 8E 48 C3 B5 33 98 76 3992: B1 38 C6 D6 B5 D5 9C 80 BF 45 2E 00 ; YOU CAN LIFT THE STATUE, BUT YOU CANNOT CARRY IT. PS_AB: 399E: 10 C7 DE D3 14 8E 96 5E 79 82 17 55 5E 56 BD 3E C4 BF 14 1B BC 1B A1 10 53 06 9A D3 14 83 B3 D6 39BE: 15 2E 00 ; YOUR BOTTLE IS ALREADY FULL. PS_AC: 39C1: 09 C7 DE 84 AF 0E A1 DB 8B 4B 7B 4C 48 86 5F 48 DB 46 C5 2E 00 ; SUDDENLY, A MUMMY CREEPS UP BEHIND YOU!! "I'M THE KEEPER OF THE TOMB", HE WAILS, "I TAKE THESE ; TREASURES AND PUT THEM IN THE CHEST DEEP IN THE MAZE!" HE GRABS YOUR TREASURE AND VANISHES INTO THE ; GLOOM. PS_AD: 39D6: 43 26 BA F0 59 1E 8F 7B 14 AF 94 3B 95 AF 55 ED 61 B2 17 AF 14 90 73 1B 58 19 A1 BC 06 9F 77 82 39F6: 17 4D 5E 32 60 23 62 C3 9E 5F BE 89 17 A4 91 0A EE 59 5E CE 47 33 BB FB 1B 4D BD 56 5E F5 72 56 3A16: 5E 63 B1 34 BA 4B 62 8E 48 EF 16 16 BC EF 72 D0 15 82 17 45 5E F5 72 06 BC 32 60 D0 15 82 17 4F 3A36: 5E 6F 4A E3 06 DB 72 AB 6E 8B 4F C7 DE 96 AF 63 B1 34 BA 43 5E 33 98 D0 C9 5A 7B 4B 62 9E 7A D6 3A56: 9C DB 72 C9 6D FF 9F 00 ; THE STONE BRIDGE HAS RETRACTED! PS_AE: 3A5E: 0A 5F BE 66 17 0F A0 BC 14 01 79 4A 5E 4B 49 76 B1 C5 B0 E6 BD 21 00 ; A STONE BRIDGE NOW SPANS THE BOTTOMLESS PIT. PS_AF: 3A75: 0E 55 45 80 BF 44 5E 06 B2 9B 6C 09 9A 62 17 9D 48 82 17 44 5E 0E A1 EE 9F 65 62 E3 16 54 2E 00 ; THE VASE IS NOW RESTING, DELICATELY, ON A VELVET PILLOW. PS_B0: 3A95: 12 5F BE CB 17 9B B7 4B 7B 09 9A 2F 17 03 BA CE 98 FF 14 85 8C 7F 49 1E 8F C0 16 7B 14 6E CA 76 3AB5: CA E3 16 09 8D 57 2E 00 ; THE VASE DROPS WITH A DELICATE CRASH. PS_B1: 3ABD: 0C 5F BE CB 17 9B B7 F9 5B 0B A7 56 D1 03 71 FF 14 85 8C 7F 49 E4 14 5A 49 2E 00 ; THERE ARE NOW SOME FRESH BATTERIES HERE.\ PS_B2: 3AD8: 0D 5F BE 5B B1 2F 49 99 16 D5 CE E7 9F 5C 15 5A 62 AB 14 3F C0 07 B2 CA B5 2F 62 2E 00 ; YOU HAVE TAKEN THE VASE AND HURLED IT DELICATELY TO THE GROUND. PS_B3: 3AF5: 15 C7 DE 9B 15 5B CA 4D BD 83 61 5F BE CB 17 9B B7 8E 48 AF 15 7F B2 0B 58 06 BC 43 61 16 53 53 3B15: 61 89 17 82 17 49 5E 07 B3 57 98 00 ; THE BIRD STATUE COMES TO LIFE AND ATTACKS THE SERPENT AND IN AN ASTOUNDING FLURRY, DRIVES THE ; SERPENT AWAY. THE BIRD TURNS BACK INTO A STATUE. PS_B4: 3B21: 2F 5F BE B3 14 33 B1 FB B9 67 C0 E1 14 35 92 89 17 43 16 5B 66 8E 48 96 14 45 BD CB 87 5F BE 57 3B41: 17 1F B3 B3 9A 8E 48 D0 15 90 14 95 14 87 BF 43 98 AB 98 8F 67 83 B3 06 EE 18 B2 4B 62 5F BE 57 3B61: 17 1F B3 B3 9A F3 49 DB E0 5F BE B3 14 33 B1 74 C0 8B 9A C5 4C CB 83 C9 9A 7B 14 FB B9 67 C0 2E 3B81: 00 ; THE PLANT SPURTS INTO FURIOUS GROWTH FOR A FEW SECONDS. PS_B5: 3B82: 12 5F BE E6 16 9E 48 62 17 3E C6 CB B5 C9 9A 5F 15 11 B2 4B C6 B9 6E 02 D3 59 15 83 AF 4F 15 D5 3BA2: CE E1 5F 4D 98 2E 00 ; THE PLANT GROWS EXPLOSIVELY, ALMOST FILLING THE BOTTOM OF THE PIT. PS_B6: 3BA9: 16 5F BE E6 16 9E 48 84 15 85 A1 3A 15 09 A6 58 B8 53 61 03 EE 31 8D F3 B9 0E 67 90 8C D6 6A DB 3BC9: 72 06 4F 7F BF B8 16 82 17 52 5E 97 7B 00 ; YOU'VE OVER-WATERED THE PLANT! IT'S SHRIVELING UP! PS_B7: 3BD7: 10 C7 DE 4F 24 C8 16 45 62 16 D0 2F 62 16 58 DB 72 FB A5 B1 9A D6 15 CB 23 2C B8 CF 7B 90 8C D7 3BF7: 6A 50 21 00 ; THERE IS NOTHING HERE TO CLIMB. USE UP OR OUT TO LEAVE THE PIT. PS_B8: 3BFB: 15 5F BE 5B B1 4B 7B 06 9A 90 73 CA 6A 2F 62 89 17 DE 14 64 7A 57 F4 9B B7 D3 C5 A3 A0 36 A1 89 3C1B: 17 3F 16 CF 49 82 17 52 5E 97 7B 00 ; READY CASSETTE PS_BE: 3C27: 04 63 B1 FB 5C 15 53 B6 B7 54 45 00 ; CHECKSUM ERROR PS_BF: 3C33: 04 1F 54 A5 54 5B C5 3C 62 4F 52 00 ; In the TRS80 version but not here in CoCo: ; PS_C0 for plugh ; PS_B9 PS_BA PS_BB PS_BC PS_BD for resurrection sequence 3C3F: 00
Word Table
Pyramid has a table of known words. Every word has a grammar that describes how it can be used. For instance, LAMP is a noun. The verb NORTH is a single-word command that requires no noun (in fact it is an error to give one). The verb DROP requires a noun that is in the inventory, but the verb DRINK works on a noun that is in the room or the pack.
Multiple words can refer to the same thing. LAMP and LANTERN, for instance, mean the same thing. So do GET and STEAL.
Since multiple nouns can have the same word for a name the game logic must be careful not to ever have two nouns with the same noun in the same place. The "dead lamp", for instance, is never around when the "lit lamp" is. When checking to see if a noun is accessible the code must check every noun since multiple nouns can have the same name.
The input routine parses the user input and returns a VERB and a NOUN based on the grammar of the words. The game scripts are assured that the grammar is correct and the noun is something the user has access to (in the pack or room).
; Info + text + data
; Info byte:
; AA_BBB_CCC
;
; AA = Grammar
; 0 = Noun
; 1 = Verb (and needs noun in pack)
; 2 = Verb (and needs noun in pack or room)
; 3 = Verb (stand alone)
;
; BBB = number of bytes in token data
; CCC = number of bytes in token text
;
; Object words
; A single name can refer to several objects. The object data is
; the search order for finding objects in the pack or room. For
; instance, the LAMP refers to:
; 1) 0x0E unlit lamp
; 2) 0x0F lit lamp
; 3) 0x2C dead lamp
;
WordTable:
; Nouns
; Objects AA BBB CCC Word
3C40: 1C 4C 41 4D 50 0E 0F 2C ; 00_011_100 LAMP
3C48: 1E 4C 41 4E 54 45 52 0E 0F 2C ; 00_011_110 LANTER
3C52: 0B 42 4F 58 10 ; 00_001_011 BOX
3C57: 0F 53 43 45 50 54 45 52 11 ; 00_001_111 SCEPTER
3C60: 14 42 49 52 44 13 14 ; 00_010_100 BIRD
3C67: 16 53 54 41 54 55 45 13 14 ; 00_010_110 STATUE
3C70: 0E 50 49 4C 4C 4F 57 12 ; 00_001_110 PILLOW
3C78: 0E 56 45 4C 56 45 54 12 ; 00_001_110 VELVET
3C80: 0E 53 45 52 50 45 4E 0B ; 00_001_110 SERPEN
3C88: 16 53 41 52 43 4F 50 17 18 ; 00_010_110 SARCOP
3C91: 0E 4D 41 47 41 5A 49 19 ; 00_001_110 MAGAZI
3C99: 0D 49 53 53 55 45 19 ; 00_001_101 ISSUE
3CA0: 0E 45 47 59 50 54 49 19 ; 00_001_110 EGYPTI
3CA8: 0C 46 4F 4F 44 1A ; 00_001_100 FOOD
3CAE: 0E 42 4F 54 54 4C 45 1B ; 00_001_110 BOTTLE
3CB6: 15 57 41 54 45 52 1C 1E ; 00_010_101 WATER
3CBE: 1D 50 4C 41 4E 54 07 08 09 ; 00_011_101 PLANT
3CC7: 1E 42 45 41 4E 53 54 07 08 09 ; 00_011_110 BEANST
3CD1: 0E 4D 41 43 48 49 4E 06 ; 00_001_110 MACHIN
3CD9: 0E 56 45 4E 44 49 4E 06 ; 00_001_110 VENDIN
3CE1: 16 42 41 54 54 45 52 23 24 ; 00_010_110 BATTER
3CEA: 0C 47 4F 4C 44 25 ; 00_001_100 GOLD
3CF0: 0E 4E 55 47 47 45 54 25 ; 00_001_110 NUGGET
3CF8: 0E 44 49 41 4D 4F 4E 26 ; 00_001_110 DIAMON
3D00: 0E 53 49 4C 56 45 52 27 ; 00_001_110 SILVER
3D08: 0C 42 41 52 53 27 ; 00_001_100 BARS
3D0E: 0E 4A 45 57 45 4C 52 28 ; 00_001_110 JEWELR
3D16: 0D 43 4F 49 4E 53 29 ; 00_001_101 COINS
3D1D: 0D 43 48 45 53 54 2A ; 00_001_101 CHEST
3D24: 0E 54 52 45 41 53 55 2A ; 00_001_110 TREASU
3D2C: 0C 45 47 47 53 2B ; 00_001_100 EGGS
3D32: 0B 45 47 47 2B ; 00_001_011 EGG
3D37: 0C 4E 45 53 54 2B ; 00_001_100 NEST
3D3D: 0B 4B 45 59 22 ; 00_001_011 KEY
3D42: 14 56 41 53 45 20 21 ; 00_010_100 VASE
3D49: 0E 53 48 41 52 44 53 15 ; 00_001_110 SHARDS
3D51: 0E 50 4F 54 54 45 52 15 ; 00_001_110 POTTER
3D59: 0E 45 4D 45 52 41 4C 1F ; 00_001_110 EMERAL
3D61: 0D 50 45 41 52 4C 16 ; 00_001_101 PEARL
;
; Verbs
3D68: C9 4E 01 ; 11_001_001 N
3D6B: CD 4E 4F 52 54 48 01 ; 11_001_101 NORTH
3D72: C9 45 02 ; 11_001_001 E
3D75: CC 45 41 53 54 02 ; 11_001_100 EAST
3D7B: C9 53 03 ; 11_001_001 S
3D7E: CD 53 4F 55 54 48 03 ; 11_001_101 SOUTH
3D85: C9 57 04 ; 11_001_001 W
3D88: CC 57 45 53 54 04 ; 11_001_100 WEST
3D8E: CA 4E 45 05 ; 11_001_010 NE
3D92: CE 4E 4F 52 54 48 45 05 ; 11_001_110 NORTHE
3D9A: CA 53 45 06 ; 11_001_010 SE
3D9E: CE 53 4F 55 54 48 45 06 ; 11_001_110 SOUTHE
3DA6: CA 53 57 07 ; 11_001_010 SW
3DAA: CE 53 4F 55 54 48 57 07 ; 11_001_110 SOUTHW
3DB2: CA 4E 57 08 ; 11_001_010 NW
3DB6: CE 4E 4F 52 54 48 57 08 ; 11_001_110 NORTHW
3DBE: C9 55 09 ; 11_001_001 U
3DC1: CA 55 50 09 ; 11_001_010 UP
3DC5: C9 44 0A ; 11_001_001 D
3DC8: CC 44 4F 57 4E 0A ; 11_001_100 DOWN
3DCE: CA 49 4E 0B ; 11_001_010 IN
3DD2: CE 49 4E 53 49 44 45 0B ; 11_001_110 INSIDE
3DDA: CB 4F 55 54 0C ; 11_001_011 OUT
3DDF: CE 4F 55 54 53 49 44 0C ; 11_001_110 OUTSID
3DE7: CD 43 52 4F 53 53 0D ; 11_001_101 CROSS
3DEE: CC 4C 45 46 54 0E ; 11_001_100 LEFT
3DF4: CD 52 49 47 48 54 0F ; 11_001_101 RIGHT
3DFB: CC 4A 55 4D 50 10 ; 11_001_100 JUMP
3E01: CD 43 4C 49 4D 42 11 ; 11_001_101 CLIMB
3E08: CD 50 41 4E 45 4C 12 ; 11_001_101 PANEL
3E0F: CC 42 41 43 4B 14 ; 11_001_100 BACK
3E15: CC 53 57 49 4D 16 ; 11_001_100 SWIM
3E1B: CA 4F 4E 17 ; 11_001_010 ON
3E1F: CB 4F 46 46 18 ; 11_001_011 OFF
3E24: CC 51 55 49 54 19 ; 11_001_100 QUIT
3E2A: CC 53 54 4F 50 19 ; 11_001_100 STOP
3E30: CD 53 43 4F 52 45 1A ; 11_001_101 SCORE
3E37: CE 49 4E 56 45 4E 54 1B ; 11_001_110 INVENT
3E3F: CC 4C 4F 4F 4B 1C ; 11_001_100 LOOK
3E45: 4C 44 52 4F 50 21 ; 01_001_100 DROP
3E4B: 4E 52 45 4C 45 41 53 21 ; 01_001_110 RELEAS
3E53: 4C 46 52 45 45 21 ; 01_001_100 FREE
3E59: 4E 44 49 53 43 41 52 21 ; 01_001_110 DISCAR
3E61: CD 4C 49 47 48 54 17 ; 11_001_101 LIGHT
3E68: 4C 57 41 56 45 23 ; 01_001_100 WAVE
3E6E: 4D 53 48 41 4B 45 23 ; 01_001_101 SHAKE
3E75: 4D 53 57 49 4E 47 23 ; 01_001_101 SWING
3E7C: 4C 50 4F 55 52 24 ; 01_001_100 POUR
3E82: 4B 52 55 42 25 ; 01_001_011 RUB
3E87: 4D 54 48 52 4F 57 26 ; 01_001_101 THROW
3E8E: 4C 54 4F 53 53 26 ; 01_001_100 TOSS
3E94: 4C 46 49 4C 4C 27 ; 01_001_100 FILL
3E9A: 8C 54 41 4B 45 28 ; 10_001_100 TAKE
3EA0: 8B 47 45 54 28 ; 10_001_011 GET
3EA5: 8D 43 41 52 52 59 28 ; 10_001_101 CARRY
3EAC: 8D 43 41 54 43 48 28 ; 10_001_101 CATCH
3EB3: 8D 53 54 45 41 4C 28 ; 10_001_101 STEAL
3EBA: 8E 43 41 50 54 55 52 28 ; 10_001_110 CAPTUR
3EC2: 8C 4F 50 45 4E 29 ; 10_001_100 OPEN
3EC8: 8E 41 54 54 41 43 4B 2C ; 10_001_110 ATTACK
3ED0: 8C 4B 49 4C 4C 2C ; 10_001_100 KILL
3ED6: 8B 48 49 54 2C ; 10_001_011 HIT
3EDB: 8D 46 49 47 48 54 2C ; 10_001_101 FIGHT
3EE2: 8C 46 45 45 44 2D ; 10_001_100 FEED
3EE8: 8B 45 41 54 2E ; 10_001_011 EAT
3EED: 8D 44 52 49 4E 4B 2F ; 10_001_101 DRINK
3EF4: 8D 42 52 45 41 4B 30 ; 10_001_101 BREAK
3EFB: 8D 53 4D 41 53 48 30 ; 10_001_101 SMASH
3F02: CC 4C 4F 41 44 3A ; 11_001_100 LOAD
3F08: CC 53 41 56 45 3B ; 11_001_100 SAVE
3F0E: CD 50 4C 55 47 48 39 ; 11_001_101 PLUGH
3F15: 00
Unused
Unused:
; Unused data on end of program
3F16: 0D 00 02 88 88 80 FA 00 00 4F 88