HERE
HERE
Bedlam Code
; RAM
; #+0088.. printCursor screen pointer used by BASIC
;
; #+01A7.. tmp1A7 used in decoding the input :B4C,B5A,C17,C23,C32
; #+01A9 tmp1A9 used in comparing X to Y :A99,A9D
; #+01AA not1AA never used
; #+01AB tmp1AB used in lots of places :91F,947,94A,9E8,9F1,A01,A07,A19,A22,A28,A30,A38,A43,A4E,BD3,BF8,C0E,C2F,C38,D3C,D4E,D67,D85,E51,E5C,1069,108F,10CA,10E9,1115,1122,113D,1156,1159,115C,1161,11A6,11A9,11B5,11BB,12E6
; #+01AC not1AC never used
; #+01AD tmp1AD used in the phrase decoding :95F,974
; #+01AE not1AE never used
; #+01AF not1AF never used
; #+01B0 not1B0 never used
; #+01B1 not1B1 never used
; #+01B2 tmp1B2 used in word decoding :64D,868,8CD,915,94F,954,96D
; #+01B3 verbWord input verb word number :650,6E7,6EC,743,792
; #+01B4 perpWord preposition word number :659,738,79E,9A0
; #+01B5 prepGiven preposition given flag :65C,6F5,712,73B,762,7D9,99B
; #+01B6 phrasePrep used in phrase decoding :79B,9B1
; #+01B7 adjWord adjective word number :644,6FF,70F,72E,871,890,8AD,959,980
; #+01B8 commandTarg target object of input command :656,6BF,812
; #+01B9 not1B9 cleared before decode but never used :653
; #+01BA lsbAdj1 screen LSB of 1st adjective :647,704,715,733
; #+01BB lsbVerb screen LSB of verb :64A,7B2,BC7
; #+01BC lsbCursor screen lsb used in decoding the input line :7D1,996,BC4,C2C
; #+01BD lsbError screen lsb used for flashing error messages :7B5,7D4,9BE,9C8,A57
; #+01BE lastChar last character printed to screen :11D5,11F2,1229,1238,1255
; #+01BF VAR_OBJ_NUMBER variable object number :65F,863,8B6,8C0,8DE,CF8,D06,D0F,EF8,F82,FC3,FE2,FFD
; #+01C0.. VAR_OBJ_DATA variable object data :8C3,8DB,CF2,D00,D17,EF5,F06,F17,F7F,FC0,FDF,FFA,1033,10CF,1142
; #+01C2 not1C2 never used
; #+01C3 FIRST_NOUN_NUM first input noun number :662,71A,75C,768,7AD,7C1,801,80F,CF5,D2B,D41,D73,ED2,F5B,F8C
; #+01C4 firstNounAdj first input noun adjective word number
; #+01C5 firstNounLSB first input noun screen LSB :720
; #+01C6.. FIRST_NOUN_DATA first input noun object data :75F,765,809,CEF,D1E,D4B,D80,ECF,F65,F89
; #+01C8 firstNounParams first input noun parameter bits :774
; #+01C9 SECOND_NOUN_NUM second input noun number :665,71D,750,77A,7CC,7E5,80C,D03,D28,D51,D76,EF0,F3F,FB9
; #+01CA secondNounAdj second input noun adjective word number
; #+01CB secondNounLSB second input noun noun screen LSB :723
; #+01CC.. SECOND_NOUN_DATA second input noun object data :753,777,806,CFD,D23,D59,D7B,EED,F44,FB6
; #+01CE secondNounParams second input noun parameter bits :786
; #+01CF tmp1CF another screen pointer used in decode :876,98D,9D1,B85,BB6
; #+01D0 tmp1DO used in making index of data fields :BD6,BFD,1054,105F,1083
; #+01D1 PHRASE_FORM decoded phrase form :7F9,D30,D37,D6E,F00
; #+01D2 ACTIVE_OBJ_NUM active object :617,66A,823,903,D8B,DA5,DBC,E31,E3B,E65,EA8,F0C,1041,1086,116A
; #+01D3.. ACTIVE_OBJ_DATA active object data :670,826,CE0,E41,108C
; #+01D5 CUR_ROOM current room number :678,8EE,CD2,CE6,DCF,F1D,10A3
; #+01D6.. CUR_ROOM_DATA current room data :681,CDD,D96,F28,10AC
; #+01D8.. nextToken used in decoding input :687,93D,95C,BAF,BBB,ED5,EE6
; #+01DA tmp1DA used in unpacking bytes :1276,1285
; #+01DB tmp1DB used in unpacking bytes :1279,1291,129D,12AE,12B6,12C3
; #+01DC tmp1DC used in unpacking bytes :127C,128E,1294
; #+01DD tmp1DD used in unpacking bytes :1269,1282
; #+01DE tmp1DE used in unpacking bytes :1264,127F
; #+01DF tmp1DF used in unpacking bytes :12A3,12A8,12B3
; #+01E0 tmp1EO used in unpacking bytes :129A
; #+01E1 tmp1E1 used in making index of data fields :885,8D3,918,92D,977,A65,A6E
; #+01E2 tmp1E2 used in input processing :888,8BD,8D0
; #+01E3 tillMORE rows left until MORE prompt :602,641,1171,1195,120A,1232,123F
;
; $01E4 inputTokens input token buffer
; $03FF stack top of stack (just below screen memory)
; Start
0600: 86 0D LDA #$0D ; 14 rows left ...
0602: B7 01 E3 STA tillMORE ; ... until MORE prompt
0605: 4F CLRA ; 256 words (512 bytes on screen)
0606: 8E 04 00 LDX #$0400 ; Start of screen
0609: CE 60 60 LDU #$6060 ; Space-space
060C: EF 81 STU ,X++ ; Clear ...
060E: 4A DECA ; ... text ...
060F: 26 FB BNE $60C ; ... screen
0611: 10 CE 03 FFLDS #$03FF ; Stack starts just below screen
0615: 86 13 LDA #$13 ; Player object ...
0617: B7 01 D2 STA ACTIVE_OBJ_NUM; ... is the active object number
061A: 8E 05 E0 LDX #$05E0 ; Set cursor to ...
061D: 9F 88 STX >printCursor ; ... bottom row of screen
061F: 8E 13 55 LDX #$1355 ; Init the game with ...
0622: BD 0C 44 JSR $0C44 ; ... random solution
0625: 86 0D LDA #$0D ; Print ...
0627: BD 11 D5 JSR $11D5 ; .. CR
062A: BD 0B 6C JSR $0B6C ; Get a key
062D: 8E 13 54 LDX #$1354 ; Splash message and ...
0630: BD 0C 44 JSR $0C44 ; ... place player object
0633: 86 0D LDA #$0D ; Print ...
0635: BD 11 D5 JSR $11D5 ; ... CR
; MainLoop
0638: 10 CE 03 FFLDS #$03FF ; Initialize stack
063C: BD 0B 0D JSR $0B0D ; Get user input
063F: 86 0D LDA #$0D ; 14 rows left ...
0641: B7 01 E3 STA tillMORE ; ... until MORE prompt
0644: 7F 01 B7 CLR adjWord ; Adjective word number
0647: 7F 01 BA CLR lsbAdj1 ; LSB of 1st adjective in buffer
064A: 7F 01 BB CLR lsbVerb ; LSB of verb
064D: 7F 01 B2 CLR tmp1B2 ; Misc
0650: 7F 01 B3 CLR verbWord ; Verb word number
0653: 7F 01 B9 CLR not1B9 ; Never used again
0656: 7F 01 B8 CLR commandTarg ; Target object of command
0659: 7F 01 B4 CLR perpWord ; Preposition number
065C: 7F 01 B5 CLR prepGiven ; Preposition given flag (not 0 if given)
065F: 7F 01 BF CLR VAR_OBJ_NUMBER; VAR object number
0662: 7F 01 C3 CLR FIRST_NOUN_NUM; 1st noun word number
0665: 7F 01 C9 CLR SECOND_NOUN_NUM; 2nd noun word number
0668: C6 13 LDB #$13 ; Player object ...
066A: F7 01 D2 STB ACTIVE_OBJ_NUM; ... is active object number
066D: BD 11 7D JSR $117D ; Get player object data
0670: BF 01 D3 STX ACTIVE_OBJ_DATA; Active object's data
0673: BD 0A 83 JSR $0A83 ; Skip length
0676: E6 84 LDB ,X ; Get player location
0678: F7 01 D5 STB CUR_ROOM ; Current room
067B: 8E 15 A1 LDX #$15A1 ; Room scripts
067E: BD 0A 60 JSR $0A60 ; Find sublist ... script for current room
0681: BF 01 D6 STX CUR_ROOM_DATA ; Script for current room
0684: 8E 01 E4 LDX #$01E4 ; Input token list area
0687: BF 01 D8 STX nextToken ; Where decoder fills in
068A: 6F 84 CLR ,X ; Empty token ... clear the list
068C: 8E 05 E0 LDX #$05E0 ; Bottom row is input buffer
068F: BD 0B 83 JSR $0B83 ; Decode input word
0692: 27 0B BEQ $69F ; All words done
0694: A6 80 LDA ,X+ ; Next character
0696: 81 60 CMPA #$60 ; A space?
0698: 27 F5 BEQ $68F ; Decode next
069A: 8C 06 00 CMPX #$0600 ; End of input buffer?
069D: 26 F5 BNE $694 ; No ... look for next word
069F: 8C 06 00 CMPX #$0600 ; End of input buffer?
06A2: 26 EB BNE $68F ; No ... keep looking
06A4: 6F 9F 01 D8CLR [nextToken] ; Terminate token list
06A8: 8E 01 E4 LDX #$01E4 ; Input buffer
06AB: A6 84 LDA ,X ; List number of first word
06AD: 10 27 00 92LBEQ $0743 ; Nothing entered
06B1: 81 02 CMPA #$02 ; First word a noun?
06B3: 26 0F BNE $6C4 ; No ... move on
06B5: 30 01 LEAX 1,X ; Point to word number
06B7: A6 84 LDA ,X ; Get word number
06B9: 30 1F LEAX -1,X ; Back to list number
06BB: 81 09 CMPA #$09 ; Living things (people, dogs, etc) are <9
06BD: 24 05 BCC $6C4 ; Not a living thing
06BF: B7 01 B8 STA commandTarg ; Remember living thing. We are giving them a command so process normally.
06C2: 30 03 LEAX 3,X ; Next word
06C4: A6 80 LDA ,X+ ; Word list
06C6: 27 7B BEQ $743 ; End of list ... go process
06C8: E6 84 LDB ,X ; Word number to B
06CA: EE 81 LDU ,X++ ; LSB to LSB of U
06CC: 34 10 PSHS X ; Hold token buffer
06CE: 4A DECA ; List 1? Verbs?
06CF: 26 21 BNE $6F2 ; No ... continue
; I believe the goal here was to allow multiple verbs given on an input line
; to be translated to a single verb. The code finds a replacement list for the
; newly given verb and then runs the list two bytes at a time comparing one
; of the entries to the last given verb and storing the second byte if there
; is a match. I believe that is what is SUPPOSED to happen, but I believe the
; code has a bug or two. It actually does nothing at all. The replacement
; list for BEDLAM and RAAKATU is empty so the code is never used anyway.
;
06D1: 8E 13 B2 LDX #$13B2 ; Multi verb translation list (empty list for BEDLAM and RAAKATU)
06D4: BD 0A 60 JSR $0A60 ; Look for an entry for the given verb
06D7: 24 13 BCC $6EC ; No entry ... use the word as-is
06D9: BD 0A 83 JSR $0A83 ; Skip length of entry
06DC: BD 0A 99 JSR $0A99 ; End of list?
06DF: 1F 98 TFR B,A ; ?? Held in A but ...
06E1: 24 09 BCC $6EC ; Reached end of list. This input is the verb.
06E3: E6 80 LDB ,X+ ; ??
06E5: A6 80 LDA ,X+ ; ?? ... A is mangled here?
06E7: F1 01 B3 CMPB verbWord ; ?? Compare to 01B3 ...
06EA: 26 F0 BNE $6DC ; Continue running list
06EC: F7 01 B3 STB verbWord ; ?? ... then store if equal?
06EF: 7E 07 3E JMP $073E ; Continue with next word
06F2: 4A DECA ; List 2 Noun
06F3: 26 36 BNE $72B ; Not a noun
06F5: 7D 01 B5 TST prepGiven ; Has prepostion been given?
06F8: 27 20 BEQ $71A ; No ... this is first noun
06FA: 8E 01 C9 LDX #$01C9 ; 2nd noun area
06FD: E7 80 STB ,X+ ; Store word number
06FF: B6 01 B7 LDA adjWord ; Last adjective
0702: A7 80 STA ,X+ ; Keep with noun
0704: B6 01 BA LDA lsbAdj1 ; LSB of adjective
0707: A7 84 STA ,X ; Keep with noun
0709: 26 04 BNE $70F ; There was one ... go on
070B: 1F 30 TFR U,D ; Use LSB of ...
070D: E7 84 STB ,X ; ... noun if no adjective
070F: 7F 01 B7 CLR adjWord ; Adjective moved
0712: 7F 01 B5 CLR prepGiven ; Preposition moved
0715: 7F 01 BA CLR lsbAdj1 ; LSB moved
0718: 20 24 BRA $73E ; Continue with next word
071A: BE 01 C3 LDX FIRST_NOUN_NUM; Copy ...
071D: BF 01 C9 STX SECOND_NOUN_NUM; ... any ...
0720: BE 01 C5 LDX firstNounLSB ; ... first noun ...
0723: BF 01 CB STX secondNounLSB ; ... to second
0726: 8E 01 C3 LDX #$01C3 ; First word area
0729: 20 D2 BRA $6FD ; Go fill out first word
072B: 4A DECA ; List 3 Adjective
072C: 26 0A BNE $738 ; Not a proposition
072E: F7 01 B7 STB adjWord ; Store adjective number
0731: 1F 30 TFR U,D ; Store ...
0733: F7 01 BA STB lsbAdj1 ; ... adjective LSB in buffer
0736: 20 06 BRA $73E ; Continue with next word
0738: F7 01 B4 STB perpWord ; Preposition
073B: F7 01 B5 STB prepGiven ; Preoposition given (noun should follow)
073E: 35 10 PULS X ; Restore token pointer
0740: 7E 06 C4 JMP $06C4 ; Next word
; Process input
0743: 7D 01 B3 TST verbWord ; Verb given?
0746: 10 27 02 8CLBEQ $09D6 ; No ... ?VERB? error
074A: 8E 01 C9 LDX #$01C9 ; Second noun
074D: BD 08 63 JSR $0863 ; Decode it (only returns if OK)
0750: B7 01 C9 STA SECOND_NOUN_NUM; Hold target object index
0753: BF 01 CC STX SECOND_NOUN_DATA; Hold target object pointer
0756: 8E 01 C3 LDX #$01C3 ; First noun
0759: BD 08 63 JSR $0863 ; Decode it (only returns if OK)
075C: B7 01 C3 STA FIRST_NOUN_NUM; Hold target object index
075F: BF 01 C6 STX FIRST_NOUN_DATA; Hold target object pointer
0762: 7F 01 B5 CLR prepGiven ; Clear preposition flag
0765: BE 01 C6 LDX FIRST_NOUN_DATA; Pointer to first noun object data
0768: B6 01 C3 LDA FIRST_NOUN_NUM; First noun index
076B: 27 07 BEQ $774 ; No first noun ... store a 0
076D: BD 0A 83 JSR $0A83 ; Skip ID and load end
0770: 30 02 LEAX 2,X ; Skip 2 bytes
0772: A6 84 LDA ,X ; Object parameter bits
0774: B7 01 C8 STA firstNounParams; Hold first noun's parameter bits
0777: BE 01 CC LDX SECOND_NOUN_DATA; Pointer to second noun object data
077A: B6 01 C9 LDA SECOND_NOUN_NUM; Second noun number
077D: 27 07 BEQ $786 ; No second noun ... store 0
077F: BD 0A 83 JSR $0A83 ; Skip ID and load end
0782: 30 02 LEAX 2,X ; Skip 2 bytes
0784: A6 84 LDA ,X ; Object parameter bits
0786: B7 01 CE STA secondNounParams; Hold second noun's parameter bits
0789: 8E 13 E3 LDX #$13E3 ; Syntax list
078C: A6 84 LDA ,X ; End of list?
078E: 10 27 02 00LBEQ $0992 ; Yes ... "?PHRASE?"
0792: B6 01 B3 LDA verbWord ; Verb ...
0795: A1 80 CMPA ,X+ ; ... matches?
0797: 26 57 BNE $7F0 ; No ... move to next entry
0799: A6 84 LDA ,X ; Phrase's proposition
079B: B7 01 B6 STA phrasePrep ; Hold it
079E: B6 01 B4 LDA perpWord ; Preposition word number
07A1: 27 04 BEQ $7A7 ; None given ... skip prep check
07A3: A1 84 CMPA ,X ; Given prep matches?
07A5: 26 49 BNE $7F0 ; No ... move to next phrase
07A7: 30 01 LEAX 1,X ; Skip to next phrase component
07A9: A6 84 LDA ,X ; First noun required by phrase
07AB: 27 14 BEQ $7C1 ; Not given in phrase ... skip check
07AD: B6 01 C3 LDA FIRST_NOUN_NUM; 1st noun index
07B0: 26 14 BNE $7C6 ; Requested by phrase but not given by user ... next phrase
07B2: B6 01 BB LDA lsbVerb ; LSB of verb ...
07B5: B7 01 BD STA lsbError ; ... to location of error
07B8: 10 8E 01 C3LDY #$01C3 ; Descriptor for 1st noun
07BC: BD 09 13 JSR $0913 ; Decode 1st noun as per phrase
07BF: 20 05 BRA $7C6 ; We just processed a first one. We know it is there.
07C1: B6 01 C3 LDA FIRST_NOUN_NUM; Is there a 1st noun?
07C4: 26 2C BNE $7F2 ; None given ... move to next entry
07C6: 30 01 LEAX 1,X ; Next in phrase
07C8: A6 84 LDA ,X ; Phrase wants a second noun?
07CA: 27 19 BEQ $7E5 ; No ... skip
07CC: B6 01 C9 LDA SECOND_NOUN_NUM; User given 2nd noun
07CF: 26 19 BNE $7EA ; Yes ... use this phrase
07D1: B6 01 BC LDA lsbCursor ; Location of ...
07D4: B7 01 BD STA lsbError ; ... error on screen
07D7: 86 01 LDA #$01 ; Set preposition ...
07D9: B7 01 B5 STA prepGiven ; ... flag to YES
07DC: 10 8E 01 C9LDY #$01C9 ; 2nd noun index
07E0: BD 09 13 JSR $0913 ; Decode 2nd noun as per phrase
07E3: 20 05 BRA $7EA ; Use this
07E5: B6 01 C9 LDA SECOND_NOUN_NUM; Is there a second noun?
07E8: 26 0A BNE $7F4 ; No ... move to next entry
07EA: 30 01 LEAX 1,X ; Get matched ...
07EC: A6 84 LDA ,X ; ... phrase number
07EE: 20 09 BRA $7F9 ; Store and continue
07F0: 30 01 LEAX 1,X ; Skip ...
07F2: 30 01 LEAX 1,X ; ... to ...
07F4: 30 02 LEAX 2,X ; ... next entry
07F6: 7E 07 8C JMP $078C ; Keep looking
; Input processing goes like this:
; If this is a phrase given to someone
; If the target object has field 0B then execute that script
; Otherwise execute the general "other commanded" script at 1356. For
; BEDLAM this script just prints the name. Everybody should have an 0B script.
; else
; Execute the user-script at 2F24
07F9: B7 01 D1 STA PHRASE_FORM ; Store the phrase number
07FC: 8E 05 FF LDX #$05FF ; Move cursor to ...
07FF: 9F 88 STX >printCursor ; ... end of line (force line feed on next print)
0801: B6 01 C3 LDA FIRST_NOUN_NUM; First noun given?
0804: 26 0C BNE $812 ; Yes ... keep what we have
0806: BE 01 CC LDX SECOND_NOUN_DATA; Move 2nd ...
0809: BF 01 C6 STX FIRST_NOUN_DATA; ... noun to ...
080C: B6 01 C9 LDA SECOND_NOUN_NUM; ... first ...
080F: B7 01 C3 STA FIRST_NOUN_NUM; ... descriptor
0812: B6 01 B8 LDA commandTarg ; Command given to someone else?
0815: 27 33 BEQ $84A ; No ... go handle it as user
0817: 8E 01 E5 LDX #$01E5 ; First word (who was commanded)
081A: A6 84 LDA ,X ; Get the object word
081C: 6F 84 CLR ,X ; Clear adjective for commanded
081E: A7 82 STA ,-X ; Make a descriptor out of the 1st word area
0820: BD 08 63 JSR $0863 ; Lookup the object (make sure they are here)
0823: B7 01 D2 STA ACTIVE_OBJ_NUM; Active object
0826: BF 01 D3 STX ACTIVE_OBJ_DATA; Active object data
0829: 86 0D LDA #$0D ; Print ...
082B: BD 11 D5 JSR $11D5 ; ... CR
082E: BD 0A 83 JSR $0A83 ; Skip ID and load end
0831: 30 03 LEAX 3,X ; Skip object data
0833: C6 0B LDB #$0B ; Get handle-request ...
0835: BD 0A 68 JSR $0A68 ; ... script from the object
0838: 25 08 BCS $842 ; There is one ... do it
083A: 8E 13 56 LDX #$1356 ; General handler for ...
083D: BD 0C 44 JSR $0C44 ; ... being commanded
0840: 20 16 BRA $858 ; Allow other objects to move
0842: BD 0A 83 JSR $0A83 ; Skip size
0845: BD 0C 44 JSR $0C44 ; Execute command handler
0848: 20 0E BRA $858 ; Continue with giving objects their turns
084A: 86 0D LDA #$0D ; Print ...
084C: BD 11 D5 JSR $11D5 ; ... CR
084F: 8E 2F 24 LDX #$2F24 ; General command scripts
0852: BD 0A 83 JSR $0A83 ; Skip over end delta
0855: BD 0C 44 JSR $0C44 ; Execute script
;
0858: BD 10 51 JSR $1051 ; Allow objects to move
085B: 86 0D LDA #$0D ; Print ...
085D: BD 11 D5 JSR $11D5 ; ... CR
0860: 7E 06 38 JMP $0638 ; Top of game loop
; This function decodes the NOUN descriptor pointed to by X. The AJECTIVE-NOUN
; pair is compared to all objects in the room (and pack). If no adjective
; is given and there are multiple matching objects (like multiple doors with
; different colors) then the "?WHICH?" prompt is given. If there is no
; matching object then "?WHAT?" is given. If this function returns then
; the mapping was successful.
;
; @param X pointer to the noun descriptor to decode
; @return A index of target object
; @return X pointer to target object data
;
0863: 7F 01 BF CLR VAR_OBJ_NUMBER; Input object number
0866: E6 80 LDB ,X+ ; Word number of noun
0868: F7 01 B2 STB tmp1B2 ; Hold it
086B: 26 02 BNE $86F ; Real object ... go decode
086D: 4F CLRA ; Not found
086E: 39 RTS ; Out
086F: A6 80 LDA ,X+ ; Noun's adjective
0871: B7 01 B7 STA adjWord ; Hold it
0874: A6 84 LDA ,X ; LSB of word in buffer
0876: B7 01 CF STA tmp1CF ; Hold it
0879: 8E 1B 42 LDX #$1B42 ; Object data
087C: BD 0A 60 JSR $0A60 ; Get pointer to next object that matches word
087F: 24 5A BCC $8DB ; Not found
0881: 34 20 PSHS Y ; Hold end of object data
0883: 34 10 PSHS X ; Hold pointer to noun descriptor
0885: B6 01 E1 LDA tmp1E1 ; Index of object in the object list
0888: B7 01 E2 STA tmp1E2 ; Remember this
088B: BD 08 EB JSR $08EB ; Is object in this room or on player?
088E: 26 57 BNE $8E7 ; No ... can't be target ... out
0890: B6 01 B7 LDA adjWord ; Noun's adjective
0893: 27 1F BEQ $8B4 ; No adjective ... skip this
0895: 35 10 PULS X ; Restore pointer to noun descriptor
0897: 34 10 PSHS X ; Hold it again
0899: BD 0A 83 JSR $0A83 ; Skip the id and end
089C: 30 03 LEAX 3,X ; Skip the object data
089E: C6 01 LDB #$01 ; Look up adjective ...
08A0: BD 0A 68 JSR $0A68 ; ... list for object
08A3: 24 0F BCC $8B4 ; No adjective ... ignore
08A5: BD 0A 83 JSR $0A83 ; Skip the id and length
08A8: BD 0A 99 JSR $0A99 ; End of adjective list?
08AB: 24 3A BCC $8E7 ; Yes ... no match ... next object
08AD: B6 01 B7 LDA adjWord ; Adjective
08B0: A1 80 CMPA ,X+ ; In this list?
08B2: 26 F4 BNE $8A8 ; No ... keep searching list
08B4: 35 10 PULS X ; Restore object pointer
08B6: B6 01 BF LDA VAR_OBJ_NUMBER; Last object index that matched
08B9: 10 26 01 10LBNE $09CD ; Multiple matches ... do "?WHICH?"
08BD: B6 01 E2 LDA tmp1E2 ; Object index
08C0: B7 01 BF STA VAR_OBJ_NUMBER; Current guess at matching object index
08C3: BF 01 C0 STX VAR_OBJ_DATA ; Input object data
08C6: BD 0A 83 JSR $0A83 ; Skip id and end
08C9: 1F 21 TFR Y,X ; Next object
08CB: 35 20 PULS Y ; End of object data
08CD: F6 01 B2 LDB tmp1B2 ; Restore word number of noun
08D0: B6 01 E2 LDA tmp1E2 ; Current object index
08D3: B7 01 E1 STA tmp1E1 ; Start count for next pass
08D6: BD 0A 68 JSR $0A68 ; Find next matching object
08D9: 25 A6 BCS $881 ; Got one ... go test it
08DB: BE 01 C0 LDX VAR_OBJ_DATA ; Object data to X
08DE: B6 01 BF LDA VAR_OBJ_NUMBER; Object found?
08E1: 26 03 BNE $8E6 ; Yes ... out
08E3: 7E 09 89 JMP $0989 ; No ... "?WHAT?"
08E6: 39 RTS ; Done
08E7: 35 10 PULS X ; Restore object pointer
08E9: 20 DB BRA $8C6 ; Do next object
; This function checks if the target object is in the current room or being
; held by the active object.
;
; @param X pointer to target object
; @return Z=1 for yes or Z=0 for no
;
08EB: BD 0A 83 JSR $0A83 ; Skip size
08EE: B6 01 D5 LDA CUR_ROOM ; Current room number
08F1: A1 84 CMPA ,X ; Is object in room?
08F3: 27 F1 BEQ $8E6 ; Yes ... return OK
08F5: A6 84 LDA ,X ; Get object's room number
08F7: 27 17 BEQ $910 ; 0 ... fail
08F9: 81 FF CMPA #$FF ; FF ...
08FB: 27 E9 BEQ $8E6 ; ... return OK
08FD: 85 80 BITA #$80 ; Upper bit of object location set ...
08FF: 26 0F BNE $910 ; ... then fail
0901: E6 84 LDB ,X ; Location again
0903: F1 01 D2 CMPB ACTIVE_OBJ_NUM; Being held by the active object?
0906: 27 DE BEQ $8E6 ; Yes ... return OK
0908: 8E 1B 42 LDX #$1B42 ; Strange. 117D does this too.
090B: BD 11 7D JSR $117D ; Get object's container object (if any)
090E: 20 DB BRA $8EB ; Repeat check
0910: 8A 01 ORA #$01 ; Mark failure
0912: 39 RTS ; Out
; This function fills the noun descriptor pointed to by Y with the object
; in current room or on user that matches the parameter value from the
; phrase script. If there is not exactly one such object then flash an error
; like "WITH ?WHAT?" using the current preposition or just "?WHAT?" if there
; isn't one.
;
; @param Y pointer to noun descriptor to fill
; @param X pointer to phrase data
; @return descriptor filled out with object
;
0913: 34 10 PSHS X ; Hold phrase data pointer
0915: 7F 01 B2 CLR tmp1B2 ; Found word flag
0918: 7F 01 E1 CLR tmp1E1 ; Object index starts at 0
091B: 34 20 PSHS Y ; Hold noun descriptor
091D: A6 84 LDA ,X ; Object parameter mask bits
091F: B7 01 AB STA tmp1AB ; Hold
0922: 8E 1B 42 LDX #$1B42 ; Object data
0925: BD 0A 83 JSR $0A83 ; Skip ID and load end
0928: BD 0A 99 JSR $0A99 ; At end of object data?
092B: 24 40 BCC $96D ; Yes ... done
092D: 7C 01 E1 INC tmp1E1 ; Bump object index
0930: 34 20 PSHS Y ; Hold end of object
0932: 34 10 PSHS X ; Hold pointer to object
0934: BD 08 EB JSR $08EB ; Is object in room or on player?
0937: 35 10 PULS X ; Restore pointer to object
0939: 26 2D BNE $968 ; No ... next object
093B: E6 84 LDB ,X ; Object word number
093D: BF 01 D8 STX nextToken ; Pointer to object data
0940: BD 0A 83 JSR $0A83 ; Skip ID and load end
0943: 30 02 LEAX 2,X ; Point to object parameters
0945: A6 84 LDA ,X ; Get parameters
0947: B4 01 AB ANDA tmp1AB ; Compare to phrase data ...
094A: B1 01 AB CMPA tmp1AB ; ... this is a strange way to do it
094D: 26 13 BNE $962 ; Not a match ... next word
094F: B6 01 B2 LDA tmp1B2 ; Already got a word number?
0952: 26 47 BNE $99B ; Yes ... error
0954: F7 01 B2 STB tmp1B2 ; Found word number
0957: A6 84 LDA ,X ; Remember ...
0959: B7 01 B7 STA adjWord ; ... object parameters
095C: BE 01 D8 LDX nextToken ; Remember ...
095F: BF 01 AD STX tmp1AD ; ... object pointer
0962: 1E 12 EXG X,Y ; Start of next object to X
0964: 35 20 PULS Y ; Restore end of object pointer
0966: 20 C0 BRA $928 ; Continue with next object
0968: BD 0A 83 JSR $0A83 ; Skip ID and load end
096B: 20 F5 BRA FindSublist ; Try next object
096D: B6 01 B2 LDA tmp1B2 ; Did we find an object word?
0970: 27 29 BEQ $99B ; No .... error
0972: 35 20 PULS Y ; Noun descriptor
0974: BE 01 AD LDX tmp1AD ; Object data pointer
0977: B6 01 E1 LDA tmp1E1 ; New ...
097A: A7 A4 STA ,Y ; ... object number
097C: 31 23 LEAY 3,Y ; New ...
097E: AF A1 STX ,Y++ ; ... pointer to object data
0980: B6 01 B7 LDA adjWord ; New ...
0983: A7 A4 STA ,Y ; ... object parameters
0985: 35 10 PULS X ; Restore phrase data pointer
0987: 4F CLRA ; Set Z=1
0988: 39 RTS ; Done
0989: 10 8E 13 C3LDY #$13C3 ; "?WHAT?"
098D: B6 01 CF LDA tmp1CF ; LSB of screen location
0990: 20 4A BRA $9DC ; Go flash error and try again
0992: 10 8E 13 D2LDY #$13D2 ; "?PHRASE?"
0996: B6 01 BC LDA lsbCursor ; LSB of screen location
0999: 20 41 BRA $9DC ; Go flash error and try again
099B: B6 01 B5 LDA prepGiven ; Preposition given?
099E: 27 24 BEQ $9C4 ; No ... just plain "?WHAT?"
09A0: B6 01 B4 LDA perpWord ; Preposition word number?
09A3: 26 1F BNE $9C4 ; No word ... just plain "?WHAT?"
09A5: 8E 3E A2 LDX #$3EA2 ; Prepositions list
09A8: E6 84 LDB ,X ; Length of word
09AA: 27 18 BEQ $9C4 ; Reached the end ... do "?WHAT?"
09AC: 34 10 PSHS X ; Hold start of word
09AE: E6 80 LDB ,X+ ; Get length again
09B0: 3A ABX ; Point to end of word
09B1: B6 01 B6 LDA phrasePrep ; Target preposition
09B4: A1 80 CMPA ,X+ ; Matches?
09B6: 27 04 BEQ $9BC ; Yes ... error includes this word
09B8: 35 06 PULS A,B ; Restore stack
09BA: 20 EC BRA $9A8 ; Next word
09BC: 35 20 PULS Y ; Word text to Y
09BE: B6 01 BD LDA lsbError ; LSB of error message
09C1: BD 0A 22 JSR $0A22 ; Push preposition word
09C4: 10 8E 13 C3LDY #$13C3 ; "?WHAT?"
09C8: B6 01 BD LDA lsbError ; LSB of screen location
09CB: 20 0F BRA $9DC ; Go flash error and try again
09CD: 10 8E 13 CALDY #$13CA ; "?WHICH"?
09D1: B6 01 CF LDA tmp1CF ; LSB of screen location
09D4: 20 06 BRA $9DC ; Go flash error and try again
09D6: 10 8E 13 BCLDY #$13BC ; "?VERB?"
;
09DA: 86 E0 LDA #$E0 ; LSB of start of input line
09DC: 10 CE 03 FFLDS #$03FF ; Reset the stack (we jump back into the main loop)
09E0: 8E 05 E0 LDX #$05E0 ; Error goes at start of line
09E3: BD 0A 22 JSR $0A22 ; Push error message on and pause
09E6: A6 A4 LDA ,Y ; Get length
09E8: B7 01 AB STA tmp1AB ; Hold in counter
09EB: 34 10 PSHS X ; Hold X
09ED: 86 60 LDA #$60 ; SPACE
09EF: A7 80 STA ,X+ ; Flash off ...
09F1: 7A 01 AB DEC tmp1AB ; ... error ...
09F4: 26 F7 BNE $9ED ; ... word
09F6: BD 0A 17 JSR $0A17 ; Long delay
09F9: 35 10 PULS X ; Restore insertion point
09FB: 5A DECB ; All flashes done?
09FC: 26 14 BNE $A12 ; No ... keep flashing error word
09FE: A6 A4 LDA ,Y ; Size of error word
0A00: 4C INCA ; Plus the extra space
0A01: B7 01 AB STA tmp1AB ; Hold counter
0A04: BD 0B 1C JSR $0B1C ; Close up the ...
0A07: 7A 01 AB DEC tmp1AB ; ... error ...
0A0A: 26 F8 BNE $A04 ; ... word
0A0C: BD 0A A4 JSR $0AA4 ; Get input line
0A0F: 7E 06 44 JMP $0644 ; Continue processing
0A12: BD 0A 41 JSR $0A41 ; Flash message and pause
0A15: 20 CF BRA $9E6 ; Continue flashing and read new line
;Long delay
0A17: 86 32 LDA #$32 ; Outer loop counts
0A19: 7A 01 AB DEC tmp1AB ; Decrease inner count (doesn't matter what's there)
0A1C: 26 FB BNE $A19 ; Kill inner time
0A1E: 4A DECA ; All 256 loops done?
0A1F: 26 F8 BNE $A19 ; No ... keep pausing
0A21: 39 RTS ; Done
0A22: B7 01 AB STA tmp1AB ; Hold LSB of cursor
0A25: CC 05 E0 LDD #$05E0 ; Start of input line
0A28: F6 01 AB LDB tmp1AB ; Replace LSB
0A2B: 1F 01 TFR D,X ; Place for error word in X
0A2D: A6 A4 LDA ,Y ; Get length of message
0A2F: 4C INCA ; Plus a space after
0A30: B7 01 AB STA tmp1AB ; Store length
0A33: 34 20 PSHS Y ; Hold message
0A35: BD 0B 47 JSR $0B47 ; Slide right past insertion point
0A38: 7A 01 AB DEC tmp1AB ; Space opened up?
0A3B: 26 F8 BNE $A35 ; No ... open all the spaces for the error word
0A3D: 35 20 PULS Y ; Restore pointer
0A3F: C6 08 LDB #$08 ; 8 flashes
0A41: A6 A4 LDA ,Y ; Count again
0A43: B7 01 AB STA tmp1AB ; Size of word
0A46: 34 34 PSHS Y,X,B ; Hold all
0A48: 31 21 LEAY 1,Y ; Skip size
0A4A: A6 A0 LDA ,Y+ ; Copy error word ...
0A4C: A7 80 STA ,X+ ; ... to screen
0A4E: 7A 01 AB DEC tmp1AB ; All done?
0A51: 26 F7 BNE $A4A ; No ... go back and do all
0A53: 30 01 LEAX 1,X ; Bump ...
0A55: 1F 10 TFR X,D ; ... LSB ...
0A57: F7 01 BD STB lsbError ; ... of screen pointer
0A5A: BD 0A 17 JSR $0A17 ; Long pause
0A5D: 35 34 PULS B,X,Y ; Restore
0A5F: 39 RTS ; Done
; FindSublist
; Find a sublist by ID within a master list.
; X=pointer to master list
; B=sublist ID
; Return sublist pointer in X
; Return C=0 if not found, C=1 if found
0A60: 30 01 LEAX 1,X ; Skip list ID
0A62: BD 0A 85 JSR $0A85 ; Read end of list to Y
0A65: 7F 01 E1 CLR tmp1E1 ; Clear index of sublist
0A68: BD 0A 99 JSR $0A99 ; Compare X to Y
0A6B: 25 01 BCS $A6E ; X is smaller ... keep going
0A6D: 39 RTS ; Done (C=0 not found)
0A6E: 7C 01 E1 INC tmp1E1 ; Keep up with index of sublist
0A71: E1 84 CMPB ,X ; Is this the sublist we want?
0A73: 27 0B BEQ $A80 ; Found ... C=1 and out
0A75: 34 20 PSHS Y ; Hold the end
0A77: BD 0A 83 JSR $0A83 ; Skip ID and read end of list to Y
0A7A: 1F 21 TFR Y,X ; Jump to the end of this list
0A7C: 35 20 PULS Y ; Restore the end of the master lsit
0A7E: 20 E8 BRA $A68 ; Keep looking for the sublist
;
0A80: 1A 01 ORCC #$01 ; C=1
0A82: 39 RTS ; Done
; SkipIDLoadEnd
; Skip the ID byte and load the end of the list in Y.
0A83: 30 01 LEAX 1,X ; Bump script pointer
;
; LoadEnd
; Load the end of the list in Y.
0A85: 4F CLRA ; Upper is 0
0A86: 34 04 PSHS B ; Hold lower
0A88: E6 80 LDB ,X+ ; Get lower
0A8A: C5 80 BITB #$80 ; One or two byte value?
0A8C: 27 06 BEQ $A94 ; Just a one byte ... use it
0A8E: C4 7F ANDB #$7F ; This is the ...
0A90: 1F 98 TFR B,A ; ... MSB
0A92: E6 80 LDB ,X+ ; Now get 2nd byte (LSB)
0A94: 31 8B LEAY D,X ; Offset script
0A96: 35 04 PULS B ; Restore B
0A98: 39 RTS ; Done
; CompareXY
; Compare X to Y (flags = X - Y)
0A99: 10 BF 01 A9STY tmp1A9 ; Do compare ...
0A9D: BC 01 A9 CMPX tmp1A9 ; X - Y
0AA0: 39 RTS ; Done
; GetInputLine
0AA1: 8E 05 E0 LDX #$05E0 ; Start of bottom row
0AA4: BD 0B 64 JSR $0B64 ; Slide bottom row to right after cursor and draw cursor
0AA7: BD 0B 6C JSR $0B6C ; Get a key from the keyboard
0AAA: 81 15 CMPA #$15 ;
0AAC: 27 20 BEQ $ACE ; Swap cursor and character to left
0AAE: 81 5D CMPA #$5D ; ']' ?
0AB0: 27 2F BEQ $AE1 ; Swap cursor and character to right
0AB2: 81 09 CMPA #$09 ; Backspace
0AB4: 27 3E BEQ $AF4 ; Go handle backspace
0AB6: 81 0D CMPA #$0D ; CR?
0AB8: 27 4F BEQ $B09 ; Handle it and out
0ABA: 81 0C CMPA #$0C ; BREAK?
0ABC: 27 4F BEQ $B0D ; Yes ... clear the row
0ABE: 81 08 CMPA #$08 ; Backspace?
0AC0: 27 3B BEQ $AFD ; Yes go handle
0AC2: 8C 05 FF CMPX #$05FF ; At the end of the screen?
0AC5: 27 E0 BEQ $AA7 ; Yes ... ignore and get another
0AC7: BD 0B 47 JSR $0B47 ; Slide bottom row beyond insertion
0ACA: A7 80 STA ,X+ ; Store character
0ACC: 20 D9 BRA $AA7 ; Go get another character
;
0ACE: 8C 05 E0 CMPX #$05E0 ; Nothing typed?
0AD1: 27 D4 BEQ $AA7 ; Yes ... ignore and get another
0AD3: 30 1F LEAX -1,X ; Swap ...
0AD5: A6 80 LDA ,X+ ; ... cursor ...
0AD7: A7 84 STA ,X ; ... and ...
0AD9: 30 1F LEAX -1,X ; ... character ...
0ADB: 86 CF LDA #$CF ; ... to the ...
0ADD: A7 84 STA ,X ; ... left
0ADF: 20 C6 BRA $AA7 ; Go get another character
;
0AE1: 8C 05 FF CMPX #$05FF ; End of screen?
0AE4: 27 C1 BEQ $AA7 ; Yes ... go get another key
0AE6: 30 01 LEAX 1,X ; Swap ...
0AE8: A6 84 LDA ,X ; ... cursor ...
0AEA: 30 1F LEAX -1,X ; ... and ...
0AEC: A7 80 STA ,X+ ; ... character ...
0AEE: 86 CF LDA #$CF ; ... to the ...
0AF0: A7 84 STA ,X ; ... right
0AF2: 20 B3 BRA $AA7 ; Go get another key
;
0AF4: BD 0B 1C JSR $0B1C ; Back off trailing cursor block
0AF7: 86 CF LDA #$CF ; Store ...
0AF9: A7 84 STA ,X ; ... cursor block
0AFB: 20 AA BRA $AA7 ; Go get another key
;
0AFD: 8C 05 E0 CMPX #$05E0 ; At the start of the row?
0B00: 27 A5 BEQ $AA7 ; Yes ... go get another key
0B02: 30 1F LEAX -1,X ; Back up one character
0B04: BD 0B 1C JSR $0B1C ; Erase the end
0B07: 20 9E BRA $AA7 ; Go get another key
;
0B09: BD 0B 1C JSR $0B1C ; Back off cursor character
0B0C: 39 RTS ; Done
;
0B0D: 8E 05 E0 LDX #$05E0 ; Start of bottom row
0B10: C6 20 LDB #$20 ; 32 characters on the row
0B12: 86 60 LDA #$60 ; SPACE character
0B14: A7 80 STA ,X+ ; Clear ...
0B16: 5A DECB ; ... the ...
0B17: 26 FB BNE $B14 ; ... bottom row
0B19: 7E 0A A1 JMP $0AA1 ; Go get another key
;
0B1C: 1F 13 TFR X,U ; Hold X
0B1E: 31 01 LEAY 1,X ; Clear trailing ...
0B20: 86 60 LDA #$60 ; ... cursor ...
0B22: A7 84 STA ,X ; ... block
;
0B24: 10 8C 06 00CMPY #$0600 ; End of screen?
0B28: 27 E2 BEQ $B0C ; Yes out
0B2A: 10 8C 06 01CMPY #$0601 ; End of screen?
0B2E: 27 DC BEQ $B0C ; Yes out
0B30: 10 8C 06 02CMPY #$0602 ; End of screen?
0B34: 27 D6 BEQ $B0C ; Yes out
0B36: A6 A0 LDA ,Y+ ; Back ...
0B38: A7 80 STA ,X+ ; ... up ...
0B3A: 10 8C 06 00CMPY #$0600 ; ... row ...
0B3E: 26 F6 BNE $B36 ; ... over cursor
0B40: 86 60 LDA #$60 ; Clear last ...
0B42: A7 84 STA ,X ; ... character
0B44: 1F 31 TFR U,X ; Restore X
0B46: 39 RTS ; Done
;
0B47: 8C 06 00 CMPX #$0600 ; Past end of screen?
0B4A: 27 17 BEQ $B63 ; Yes ... out
0B4C: BF 01 A7 STX tmp1A7 ; Hold insertion point
0B4F: 8E 06 00 LDX #$0600 ; End+1
0B52: 10 8E 05 FFLDY #$05FF ; End
0B56: E6 A2 LDB ,-Y ; Slide bottom row ...
0B58: E7 82 STB ,-X ; ... to the right
0B5A: BC 01 A7 CMPX tmp1A7 ; At the insertion point?
0B5D: 26 F7 BNE $B56 ; No ... slide all
0B5F: C6 60 LDB #$60 ; SPACE
0B61: E7 84 STB ,X ; Clear first character
0B63: 39 RTS ; Done
;
0B64: BD 0B 47 JSR $0B47 ; Slide row over from cursor
0B67: 86 CF LDA #$CF ; Cursor character (white block)
0B69: A7 84 STA ,X ; Cursor to screen
0B6B: 39 RTS ; Done
; GetKey
0B6C: BD 13 19 JSR $1319 ; Get random number every key
0B6F: AD 9F A0 00JSR [$A000] ; Get key from user
0B73: 4D TSTA ; Anything pressed?
0B74: 27 F6 BEQ $B6C ; No ... keep waiting
0B76: 81 41 CMPA #$41 ; Letter 'A'
0B78: 24 06 BCC $B80 ; Greater or equal ... use it
0B7A: 81 20 CMPA #$20 ; Space
0B7C: 25 02 BCS $B80 ; Lower .... use it
0B7E: 8B 40 ADDA #$40 ; Not really sure why. '!' becomes 'a'.
0B80: 39 RTS ; Done
; DecodeBuffer
; X=input buffer on screen (1 before)
; 1D8=pointer to result token list
; Return 1CF LSB of first word
; Return 1BB LSB of next word
; Return list of 3-byte tokens filled into buffer pointed to by 1D8:
; NN WW PP
; NN = list number
; WW = word number
; PP = LSB of word on screen
;
0B81: 30 01 LEAX 1,X ; Next in buffer
;
0B83: 1F 10 TFR X,D ; Hold ...
0B85: F7 01 CF STB tmp1CF ; ... LSB of first word (could be ignored)
0B88: 8C 06 00 CMPX #$0600 ; End of buffer?
0B8B: 27 F3 BEQ $B80 ; Yes ... out
0B8D: A6 84 LDA ,X ; Next in input
0B8F: 81 60 CMPA #$60 ; Valid character?
0B91: 24 EE BCC $B81 ; No ... skip till we find one
0B93: 10 8E 3B D5LDY #$3BD5 ; Word token table
0B97: BD 0B CC JSR $0BCC ; Try first list
0B9A: 27 E7 BEQ $B83 ; Found a match ... ignore it
0B9C: C6 01 LDB #$01 ; Staring list number
0B9E: 31 21 LEAY 1,Y ; Next list of words
0BA0: BD 0B CC JSR $0BCC ; Try and match
0BA3: 27 08 BEQ $BAD ; Found a match ... record it
0BA5: 5C INCB ; Next list of words
0BA6: C1 05 CMPB #$05 ; All tried?
0BA8: 26 F4 BNE $B9E ; No ... go back and try all
0BAA: 8A 01 ORA #$01 ; Not-zero ... error
0BAC: 39 RTS ; Done
0BAD: 1E 12 EXG X,Y ; X to Y
0BAF: BE 01 D8 LDX nextToken ; Current result token pointer
0BB2: E7 80 STB ,X+ ; Store list number
0BB4: A7 80 STA ,X+ ; Store word number
0BB6: B6 01 CF LDA tmp1CF ; Start of word
0BB9: A7 80 STA ,X+ ; Store word start
0BBB: BF 01 D8 STX nextToken ; Bump result token pointer
0BBE: 1E 12 EXG X,Y ; Restore X
0BC0: C1 01 CMPB #$01 ; Is this the first (VERB) list?
0BC2: 26 06 BNE $BCA ; No ... skip marking
0BC4: B6 01 BC LDA lsbCursor ; Mark the input buffer location ...
0BC7: B7 01 BB STA lsbVerb ; ... of the verb
0BCA: 4F CLRA ; OK
0BCB: 39 RTS ; Return
; DecodeWord
; Y=input match table
; X=pointer to input buffer word
; Return word data in A if found
; Return is-zero if found, not-zero if not found
; Return 1AB with word data (if found)
; Return 1BC with LSB of pointer-to-next-word
;
; 1A7,1A8 Temporary
; 1AB Temporary
; 1D0 Temporary
;
0BCC: A6 A4 LDA ,Y ; Length of word
0BCE: 26 03 BNE $BD3 ; It is a word ... go check it
0BD0: 8A 01 ORA #$01 ; End of list ...
0BD2: 39 RTS ; ... return not-zero
0BD3: B7 01 AB STA tmp1AB ; Temporary
0BD6: B7 01 D0 STA tmp1DO ; Temporary
0BD9: 34 10 PSHS X ; Hold pointer to input word
0BDB: 31 21 LEAY 1,Y ; Skip over word length in table
0BDD: A6 84 LDA ,X ; Character from input (from screen)
0BDF: 81 60 CMPA #$60 ; Space?
0BE1: 27 53 BEQ $C36 ; Yes. Didn't match the target word. Next.
0BE3: 8C 06 00 CMPX #$0600 ; Past screen (end of buffer)?
0BE6: 27 4E BEQ $C36 ; Yes. Didn't match the target word. next
0BE8: 81 60 CMPA #$60 ; Valid character?
0BEA: 25 04 BCS $BF0 ; Yes ... do compare
0BEC: 30 01 LEAX 1,X ; No ... skip this
0BEE: 20 ED BRA $BDD ; Look for valid character
0BF0: A1 A4 CMPA ,Y ; Matches target word?
0BF2: 26 42 BNE $C36 ; No ... next word
0BF4: 30 01 LEAX 1,X ; Next in input
0BF6: 31 21 LEAY 1,Y ; Next in match
0BF8: 7A 01 AB DEC tmp1AB ; All done?
0BFB: 26 E0 BNE $BDD ; No ... keep looking
0BFD: B6 01 D0 LDA tmp1DO ; Original length
0C00: 81 06 CMPA #$06 ; Six letter input?
0C02: 27 06 BEQ $C0A ; Yes ... could be truncated. That's enough of a match.
0C04: A6 84 LDA ,X ; Next from screen
0C06: 81 60 CMPA #$60 ; Space? End of word?
0C08: 25 33 BCS $C3D ; No. Try next word
0C0A: A6 A4 LDA ,Y ; Get the word data
0C0C: 35 20 PULS Y ; Drop the input buffer pointer
0C0E: B7 01 AB STA tmp1AB ; Hold the word data
0C11: A6 84 LDA ,X ; Next in input buffer?
0C13: 81 60 CMPA #$60 ; Is it a space?
0C15: 27 0C BEQ $C23 ; Yes ... ready for next word
0C17: BF 01 A7 STX tmp1A7 ; Start of next word (in case end of buffer)
0C1A: 8C 06 00 CMPX #$0600 ; Is this the end of the input buffer?
0C1D: 27 0A BEQ $C29 ; Yes. Done
0C1F: 30 01 LEAX 1,X ; Skip to next input word
0C21: 20 EE BRA $C11 ; Keep looking for input
0C23: BF 01 A7 STX tmp1A7 ; Pointer to ending space
0C26: 7C 01 A8 INC $01A8 ; Point to next character past space (start of next word)
0C29: B6 01 A8 LDA $01A8 ; Keep ...
0C2C: B7 01 BC STA lsbCursor ; ... only LSB
0C2F: B6 01 AB LDA tmp1AB ; Return word data in A
0C32: 7F 01 A7 CLR tmp1A7 ; return is-zero for found
0C35: 39 RTS ; Done
;
0C36: 31 21 LEAY 1,Y ; Skip next in word data
0C38: 7A 01 AB DEC tmp1AB ; All skipped
0C3B: 26 F9 BNE $C36 ; No ... skip all
0C3D: 35 10 PULS X ; Restore pointer to word
0C3F: 31 21 LEAY 1,Y ; Skip word data
0C41: 7E 0B CC JMP $0BCC ; Keep trying
; ProcessCommand
; Either a direct command or a common command
0C44: A6 80 LDA ,X+ ; Next in script
0C46: 1F 89 TFR A,B ; Hold original command
0C48: 85 80 BITA #$80 ; Upper bit set?
0C4A: 27 13 BEQ $C5F ; No ... do commands
0C4C: 34 30 PSHS Y,X ; Hold
0C4E: 8E 33 9C LDX #$339C ; Common commands
0C51: BD 0A 60 JSR $0A60 ; Find common command
0C54: 24 06 BCC $C5C ; Not found ... skip
0C56: BD 0A 83 JSR $0A83 ; Skip length of command
0C59: BD 0C 44 JSR $0C44 ; Execute command
0C5C: 35 30 PULS X,Y ; Restore
0C5E: 39 RTS ; Out
0C5F: 1F 98 TFR B,A ; Hold original command
0C61: 10 8E 13 57LDY #$1357 ; Function table
0C65: 48 ASLA ; Jump to ...
0C66: 6E B6 JMP [A,Y] ; ... command
; Com0D_ExecutePassingList
; Execute a list of commands as long as they pass. Either way end pointing one
; past end.
; Data: LENGTH + list of command
0C68: BD 0A 85 JSR $0A85 ; Read length of command
0C6B: BD 0A 99 JSR $0A99 ; Are we past the end?
0C6E: 24 0C BCC $C7C ; Yes ... end successfully
0C70: 34 20 PSHS Y ; Hold the end
0C72: BD 0C 44 JSR $0C44 ; Execute the command
0C75: 35 20 PULS Y ; Restore the end
0C77: 27 F2 BEQ $C6B ; Command successful? Yes ... keep processing
0C79: 1E 12 EXG X,Y ; Fail ... put us at the end
0C7B: 39 RTS ; Done
0C7C: 1E 12 EXG X,Y ; Point to end of list
0C7E: 4F CLRA ; Z=1 ... success
0C7F: 39 RTS ; Done
; Com0E_ExecuteFailingList
0C80: BD 0A 85 JSR $0A85 ; Load the end
0C83: BD 0A 99 JSR $0A99 ; Reached end of list?
0C86: 24 0C BCC $C94 ; Yes ... error
0C88: 34 20 PSHS Y ; Hold end of command
0C8A: BD 0C 44 JSR $0C44 ; Execute command
0C8D: 35 20 PULS Y ; Restore end
0C8F: 26 F2 BNE $C83 ; Command failed ... try next
0C91: 1E 12 EXG X,Y ; Set script pointer to end of list
0C93: 39 RTS ; Out
;
0C94: 1E 12 EXG X,Y ; Set script pointer to end of list
0C96: 8A 01 ORA #$01 ; Return fail
0C98: 39 RTS ; Done
; Com0B_Switch
0C99: BD 0A 85 JSR $0A85 ; Get size of switch list
0C9C: E6 80 LDB ,X+ ; Get function to call
0C9E: BD 0A 99 JSR $0A99 ; End of options?
0CA1: 24 F1 BCC $C94 ; Yes ... out with error
0CA3: 34 20 PSHS Y ; Hold total switch size
0CA5: 34 04 PSHS B ; Hold function to call
0CA7: 1F 98 TFR B,A ; Call the ...
0CA9: BD 0C 61 JSR $0C61 ; ... target function
0CAC: 35 04 PULS B ; Restore function to call
0CAE: 27 09 BEQ $CB9 ; Got our script ... go do it
0CB0: BD 0A 85 JSR $0A85 ; Size of pass script
0CB3: 1E 12 EXG X,Y ; Skip over this option
0CB5: 35 20 PULS Y ; End of script
0CB7: 20 E5 BRA $C9E ; Keep looking
0CB9: BD 0A 85 JSR $0A85 ; Skip length
0CBC: BD 0C 44 JSR $0C44 ; Execute
0CBF: 35 10 PULS X ; Restore script
0CC1: 39 RTS ; Done
; Com00_MoveActiveObjectToRoomAndLook
0CC2: BD 0C CE JSR $0CCE ; Move active object to new room
0CC5: 34 10 PSHS X ; Hold script
0CC7: BD 0D 8B JSR $0D8B ; Print room description and objects
0CCA: 35 10 PULS X ; Restore script
0CCC: 4F CLRA ; OK
0CCD: 39 RTS ; Done
; Com19_MoveActiveObjectToRoom
0CCE: A6 80 LDA ,X+ ; New room number
0CD0: 34 10 PSHS X ; Hold script
0CD2: B7 01 D5 STA CUR_ROOM ; Store new actvie room number
0CD5: 1F 89 TFR A,B ; Store ...
0CD7: 8E 15 A1 LDX #$15A1 ; ... pointer ...
0CDA: BD 0A 60 JSR $0A60 ; ... to ...
0CDD: BF 01 D6 STX CUR_ROOM_DATA ; ... new room
0CE0: BE 01 D3 LDX ACTIVE_OBJ_DATA; Active object
0CE3: BD 0A 83 JSR $0A83 ; Skip size
0CE6: B6 01 D5 LDA CUR_ROOM ; New location
0CE9: A7 84 STA ,X ; Move object to active room
0CEB: 35 10 PULS X ; Restore script
0CED: 4F CLRA ; OK
0CEE: 39 RTS ; Done
; Com1A_SetVarObjectTo1stNoun
0CEF: FE 01 C6 LDU FIRST_NOUN_DATA; Copy 1st noun ...
0CF2: FF 01 C0 STU VAR_OBJ_DATA ; ... data pointer
0CF5: B6 01 C3 LDA FIRST_NOUN_NUM; Copy 1st noun ...
0CF8: B7 01 BF STA VAR_OBJ_NUMBER; ... object number
0CFB: 4F CLRA ; Z=1 for OK
0CFC: 39 RTS ; Done
; Com1B_SetVarObjectTo2ndNoun
0CFD: FE 01 CC LDU SECOND_NOUN_DATA; Copy 2nd noun ...
0D00: FF 01 C0 STU VAR_OBJ_DATA ; ... data pointer
0D03: B6 01 C9 LDA SECOND_NOUN_NUM; Copy 2nd noun ...
0D06: B7 01 BF STA VAR_OBJ_NUMBER; ... object number
0D09: 4F CLRA ; Z=1 for OK
0D0A: 39 RTS ; Done
; Com1C_SetVarObject
0D0B: E6 80 LDB ,X+ ; Get object number from script
0D0D: 34 10 PSHS X ; Hold script pointer
0D0F: F7 01 BF STB VAR_OBJ_NUMBER; Store target object number
0D12: 27 06 BEQ $D1A ; 0 ... no-object
0D14: BD 11 7D JSR $117D ; Find object data
0D17: BF 01 C0 STX VAR_OBJ_DATA ; Store target object data
0D1A: 35 10 PULS X ; Restore script
0D1C: 4F CLRA ; Return OK
0D1D: 39 RTS ; Done
; Com21_RunGeneralWithTempPhrase
0D1E: FE 01 C6 LDU FIRST_NOUN_DATA; 1st noun data ...
0D21: 34 40 PSHS U ; ... on stack
0D23: FE 01 CC LDU SECOND_NOUN_DATA; 2nd noun data ...
0D26: 34 40 PSHS U ; ... on stack
0D28: B6 01 C9 LDA SECOND_NOUN_NUM; 2nd noun number
0D2B: F6 01 C3 LDB FIRST_NOUN_NUM; 1st noun number
0D2E: 34 06 PSHS B,A ; Hold these
0D30: B6 01 D1 LDA PHRASE_FORM ; Phrase number
0D33: 34 02 PSHS A ; Hold it
0D35: A6 80 LDA ,X+ ; New temporary ...
0D37: B7 01 D1 STA PHRASE_FORM ; ... phrase number
0D3A: EC 81 LDD ,X++ ; Temporary 1st and 2nd noun numbers
0D3C: F7 01 AB STB tmp1AB ; Hold 2nd noun for now
0D3F: 34 10 PSHS X ; Hold script
0D41: B7 01 C3 STA FIRST_NOUN_NUM; Temporary 1st noun
0D44: 1F 89 TFR A,B ; To B (for lookup)
0D46: 27 06 BEQ $D4E ; Not one ... skip
0D48: BD 11 7D JSR $117D ; Lookup object in B
0D4B: BF 01 C6 STX FIRST_NOUN_DATA; Temporary 1st noun data
0D4E: F6 01 AB LDB tmp1AB ; Temporary 2nd noun ...
0D51: F7 01 C9 STB SECOND_NOUN_NUM; ... index
0D54: 27 06 BEQ $D5C ; There isn't one ... skip
0D56: BD 11 7D JSR $117D ; Lookup object in B
0D59: BF 01 CC STX SECOND_NOUN_DATA; Temporary 2nd noun
0D5C: 8E 2F 24 LDX #$2F24 ; General commands
0D5F: BD 0A 83 JSR $0A83 ; Skip ID and length
0D62: BD 0C 44 JSR $0C44 ; Execute general script
0D65: 1F A8 TFR CCR,A ; Hold the result ...
0D67: B7 01 AB STA tmp1AB ; ... for a moment
0D6A: 35 20 PULS Y ;
0D6C: 35 02 PULS A ;
0D6E: B7 01 D1 STA PHRASE_FORM ; Restore ...
0D71: 35 06 PULS A,B ; ... phrase ...
0D73: F7 01 C3 STB FIRST_NOUN_NUM; ... and ...
0D76: B7 01 C9 STA SECOND_NOUN_NUM; ... nouns
0D79: 35 40 PULS U ;
0D7B: FF 01 CC STU SECOND_NOUN_DATA;
0D7E: 35 40 PULS U ;
0D80: FF 01 C6 STU FIRST_NOUN_DATA;
0D83: 1E 12 EXG X,Y ;
0D85: B6 01 AB LDA tmp1AB ;
0D88: 1F 8A TFR A,CCR ; Restore result
0D8A: 39 RTS ; Done
; Print "YOU ARE IN" + description + objects if active object is Player
; Print just description if active object is SYSTEM.
0D8B: B6 01 D2 LDA ACTIVE_OBJ_NUM; Active object number
0D8E: 81 38 CMPA #$38 ; Is this the SYSTEM object?
0D90: 27 04 BEQ $D96 ; Yes ... keep going OK
0D92: 81 13 CMPA #$13 ; Is it the Player object?
0D94: 26 F4 BNE $D8A ; No ... error out
0D96: BE 01 D6 LDX CUR_ROOM_DATA ; Current room script
0D99: BD 0A 83 JSR $0A83 ; Skip length
0D9C: 30 01 LEAX 1,X ;
0D9E: C6 03 LDB #$03 ; You are in DESCRIPTION script
0DA0: BD 0A 68 JSR $0A68 ; Get room description
0DA3: 24 1F BCC $DC4 ; No room description ... print objects in room
0DA5: B6 01 D2 LDA ACTIVE_OBJ_NUM; Active object
0DA8: 81 38 CMPA #$38 ; Is it the SYSTEM object?
0DAA: 27 0A BEQ $DB6 ; Skip leading "THIS IS" or "YOU ARE IN"
0DAC: 34 10 PSHS X ; Hold script
0DAE: 8E 0E 23 LDX #$0E23 ; "THIS IS" or "YOU ARE IN" preamble
0DB1: BD 0C 44 JSR $0C44 ; Execute preamble script
0DB4: 35 10 PULS X ; Restore script
0DB6: BD 0A 83 JSR $0A83 ; Skip script length
0DB9: BD 0C 44 JSR $0C44 ; Execute description script
0DBC: B6 01 D2 LDA ACTIVE_OBJ_NUM; Active object
0DBF: 81 38 CMPA #$38 ; Is this the SYSTEM object?
0DC1: 26 01 BNE $DC4 ; No ... print objects in room
0DC3: 39 RTS ; Done
;
; Print object descriptions
;
0DC4: 8E 1B 42 LDX #$1B42 ; Object data
0DC7: BD 0A 83 JSR $0A83 ; Skip length
0DCA: 34 20 PSHS Y ; Hold end
0DCC: BD 0A 83 JSR $0A83 ; Skip this object's length
0DCF: B6 01 D5 LDA CUR_ROOM ; Current room
0DD2: A1 84 CMPA ,X ; Object in room?
0DD4: 26 41 BNE $E17 ; No ... next object
0DD6: 30 02 LEAX 2,X ; Skip to data
0DD8: A6 80 LDA ,X+ ; Get object data
0DDA: 34 02 PSHS A ; Hold value
0DDC: C6 03 LDB #$03 ; Get description ...
0DDE: BD 0A 68 JSR $0A68 ; ... script
0DE1: 24 32 BCC $E15 ; No script ... skip to next object
0DE3: 34 20 PSHS Y ; Hold end of object
0DE5: BD 0A 83 JSR $0A83 ; Skip length
0DE8: BD 0C 44 JSR $0C44 ; Print object description
0DEB: 35 20 PULS Y ; Restore end of object
0DED: 35 02 PULS A ; Get back ...
0DEF: 34 02 PSHS A ; ... object data
0DF1: 84 08 ANDA #$08 ; Open/close-able?
0DF3: 27 20 BEQ $E15 ; No ... no need for further status
0DF5: 35 02 PULS A ; Get back ...
0DF7: 34 02 PSHS A ; ... object data
0DF9: 84 0A ANDA #$0A ; We already checked 08 bit, but OK ...
0DFB: 88 0A EORA #$0A ; ... see if object is in open state
0DFD: 26 0C BNE $E0B ; Yes ... skip "which is closed" and print period
0DFF: 34 20 PSHS Y ; Hold end of object
0E01: 8E 0E 21 LDX #$0E21 ; "WHICH IS CLOSED."
0E04: BD 0C 44 JSR $0C44 ; Print door closed status.
0E07: 35 20 PULS Y ; Restore end of object
0E09: 20 0A BRA $E15 ; Next object
0E0B: 34 20 PSHS Y ; Hold end of object
0E0D: 8E 0E 22 LDX #$0E22 ; ". "
0E10: BD 0C 44 JSR $0C44 ; Print period and 2 spaces
0E13: 35 20 PULS Y ; Next object pointer
0E15: 35 02 PULS A ; Discard object data
0E17: 1E 12 EXG X,Y ; Move to next object
0E19: 35 20 PULS Y ; End of object data
0E1B: BD 0A 99 JSR $0A99 ; Are we at the end of objects?
0E1E: 25 AA BCS $DCA ; No ... go back and do all
0E20: 39 RTS ; Done
;
0E21: 8A ; "WHICH IS CLOSED."
0E22: 8B ; ". "
0E23: 8C ; "THIS IS" or "YOU ARE IN"
; Com01_IsObjectInPackOrRoom
0E24: E6 80 LDB ,X+ ; Get object number from script
0E26: 34 10 PSHS X ; Hold script pointer
0E28: BD 11 7D JSR $117D ; Get object data
0E2B: BD 08 EB JSR $08EB ; See if it is in pack or room
0E2E: 35 10 PULS X ; Restore script
0E30: 39 RTS ; Out
; Com20_CheckActiveObject
0E31: B6 01 D2 LDA ACTIVE_OBJ_NUM; Active object
0E34: A1 80 CMPA ,X+ ; Matches target?
0E36: 39 RTS ; Done
; Com2C_SetActiveObject
0E37: E6 80 LDB ,X+ ; Get number from script
0E39: 34 10 PSHS X ; Hold script
0E3B: F7 01 D2 STB ACTIVE_OBJ_NUM; Set active object number
0E3E: BD 11 7D JSR $117D ; Get data
0E41: BF 01 D3 STX ACTIVE_OBJ_DATA; Set active object data
0E44: 35 10 PULS X ; Restore script
0E46: 4F CLRA ; Return OK
0E47: 39 RTS ; Done
; Com02_CheckObjectIsOwnedByActive
0E48: E6 80 LDB ,X+ ; Get object number from script
0E4A: 7E 10 4A JMP $104A ; Make sure this object is owned by active object
; Com03_IsObjectYAtX
; Check to see if an object is at a target location.
0E4D: EC 81 LDD ,X++ ; Room and object
0E4F: 34 10 PSHS X ; Hold script
0E51: B7 01 AB STA tmp1AB ; Remember the room
0E54: BD 11 7D JSR $117D ; Locate the object
0E57: BD 0A 83 JSR $0A83 ; Skip the length
0E5A: EC 81 LDD ,X++ ; Get the room to A
0E5C: B1 01 AB CMPA tmp1AB ; Is this object in the target place?
0E5F: 35 10 PULS X ; Restore script
0E61: 39 RTS ; Out
; Com0C_FAIL
; Always fail
0E62: 8A 01 ORA #$01 ; Set the fail flag
0E64: 39 RTS ; Done
; Com04_PrintSYSTEMOrPlayerMessage
0E65: B6 01 D2 LDA ACTIVE_OBJ_NUM; Active object
0E68: 81 38 CMPA #$38 ; Is this the SYSTEM?
0E6A: 27 19 BEQ $E85 ; Yes ... do print
0E6C: 81 13 CMPA #$13 ; Is this the Player?
0E6E: 26 0E BNE $E7E ; No ... skip printing
; Com1F_PrintMessage
0E70: C6 13 LDB #$13 ; Player number
0E72: 34 10 PSHS X ; Hold script
0E74: BD 11 7D JSR $117D ; Look up Player
0E77: BD 08 EB JSR $08EB ; Is Player in current room?
0E7A: 35 10 PULS X ; Restore
0E7C: 27 07 BEQ $E85 ; Yes ... do printing
0E7E: BD 0A 85 JSR $0A85 ; Skip to ...
0E81: 1E 12 EXG X,Y ; ... end of packed message.
0E83: 20 03 BRA $E88 ; Return OK but no printing
0E85: BD 11 99 JSR $1199 ; Print packed message at X
0E88: 4F CLRA ; OK
0E89: 39 RTS ; Done
; Com07_Look
0E8A: BD 0D 8B JSR $0D8B ; Print room description
0E8D: 4F CLRA ; OK
0E8E: 39 RTS ; Done
; Com06_Inventory
0E8F: 34 10 PSHS X ; Hold script pointer
0E91: 86 0D LDA #$0D ; Print ...
0E93: BD 11 D5 JSR $11D5 ; ... CR
0E96: 8E 1B 42 LDX #$1B42 ; Objects
0E99: BD 0A 83 JSR $0A83 ; Skip size of objects
;
0E9C: BD 0A 99 JSR $0A99 ; CompareXY
0E9F: 24 2A BCC $ECB ; End of list ... out
0EA1: 34 20 PSHS Y ; Hold end of master list of objects
0EA3: BD 0A 83 JSR $0A83 ; Get pointer to next object
0EA6: E6 84 LDB ,X ; Object location
0EA8: F1 01 D2 CMPB ACTIVE_OBJ_NUM; Active object?
0EAB: 26 18 BNE $EC5 ; No ... skip this object
0EAD: 30 02 LEAX 2,X ; Do ...
0EAF: A6 80 LDA ,X+ ; ... we print ...
0EB1: 84 20 ANDA #$20 ; ... shortname?
0EB3: 27 10 BEQ $EC5 ; No ... skip
0EB5: C6 02 LDB #$02 ; Find data #2 ...
0EB7: BD 0A 68 JSR $0A68 ; ... the short-name
0EBA: 24 09 BCC $EC5 ; Not found ... out
0EBC: 30 01 LEAX 1,X ; Skip the 02 data id
0EBE: 34 20 PSHS Y ; Hold next-object
0EC0: BD 11 8D JSR $118D ; Print packed message and CR
0EC3: 35 20 PULS Y ; Restore next-object
0EC5: 1E 12 EXG X,Y ; Move to next object
0EC7: 35 20 PULS Y ; End of master list
0EC9: 20 D1 BRA $E9C ; Do all objects
0ECB: 4F CLRA ; Success
0ECC: 35 10 PULS X ; Restore script pointer
0ECE: 39 RTS ; Done
; Com08_CompareObjectToFirstNoun
0ECF: FE 01 C6 LDU FIRST_NOUN_DATA; 1st noun data
0ED2: B6 01 C3 LDA FIRST_NOUN_NUM; 1st noun number
;
0ED5: FF 01 D8 STU nextToken ; Hold
0ED8: 4D TSTA ; Is there an object?
0ED9: 27 10 BEQ $EEB ; No ... error
0EDB: E6 80 LDB ,X+ ; Object number from script
0EDD: 34 10 PSHS X ; Hold script
0EDF: BD 11 7D JSR $117D ; Find object
0EE2: 1E 12 EXG X,Y ; Pointer of found object to Y
0EE4: 35 10 PULS X ; Restore script pointer
0EE6: 10 BC 01 D8CMPY nextToken ; Object the same?
0EEA: 39 RTS ; Done
0EEB: 5D TSTB ; B can't be 0 ... Z=0 error
0EEC: 39 RTS ; Done
; Com09 _CompareObjectToSecondNoun
0EED: FE 01 CC LDU SECOND_NOUN_DATA; 2nd noun data
0EF0: B6 01 C9 LDA SECOND_NOUN_NUM; 2nd noun number
0EF3: 20 E0 BRA $ED5 ; Do compare
; Com2D_CompareObjectToVarNoun
0EF5: FE 01 C0 LDU VAR_OBJ_DATA ; Var noun data
0EF8: B6 01 BF LDA VAR_OBJ_NUMBER; Var noun number
0EFB: 7E 0E D5 JMP $0ED5 ; Do compare
; Com0A_CompareToPhraseForm
0EFE: E6 80 LDB ,X+ ; Compare from script ...
0F00: F1 01 D1 CMPB PHRASE_FORM ; ... to phrase form
0F03: 39 RTS ; Done
; Com0F_PickUpObject
; Move noun object to pack.
0F04: 34 10 PSHS X ; Hold script
0F06: BE 01 C0 LDX VAR_OBJ_DATA ; Pointer to noun object
0F09: BD 0A 83 JSR $0A83 ; Skip length
0F0C: B6 01 D2 LDA ACTIVE_OBJ_NUM; Back pack "location" value
0F0F: A7 84 STA ,X ; Move object to pack
0F11: 4F CLRA ; OK
0F12: 35 10 PULS X ; Restore script
0F14: 39 RTS ; Done
; Com10_DropObject
; Move noun object to current room.
0F15: 34 10 PSHS X ; Hold script
0F17: BE 01 C0 LDX VAR_OBJ_DATA ; Pointer to noun object
0F1A: BD 0A 83 JSR $0A83 ; Skip length
0F1D: B6 01 D5 LDA CUR_ROOM ; Current room
0F20: A7 84 STA ,X ; Move object to room
0F22: 35 10 PULS X ; Restore script
0F24: 4F CLRA ; Done
0F25: 39 RTS ; Out
; Com13_PhraseWithRoom1st2nd
0F26: 34 10 PSHS X ; Save script
0F28: BE 01 D6 LDX CUR_ROOM_DATA ; Current room script
0F2B: BD 0A 83 JSR $0A83 ; Skip id and length
0F2E: 30 01 LEAX 1,X ; Skip
0F30: C6 04 LDB #$04 ; Get ...
0F32: BD 0A 68 JSR $0A68 ; ... phrase script
0F35: 24 08 BCC $F3F ; No phrase script ... skip
0F37: BD 0A 83 JSR $0A83 ; Skip id and length
0F3A: BD 0C 44 JSR $0C44 ; Execute
0F3D: 27 3B BEQ $F7A ; Move passed ... OK and out
0F3F: B6 01 C9 LDA SECOND_NOUN_NUM; Is there a 2nd noun?
0F42: 27 17 BEQ $F5B ; No ... skip
0F44: BE 01 CC LDX SECOND_NOUN_DATA; Second noun data
0F47: BD 0A 83 JSR $0A83 ; Skip ...
0F4A: 30 03 LEAX 3,X ; ... object header
0F4C: C6 06 LDB #$06 ; Get "noun is second" ...
0F4E: BD 0A 68 JSR $0A68 ; ... phrase script
0F51: 24 08 BCC $F5B ; None ... move on
0F53: BD 0A 83 JSR $0A83 ; Skip header
0F56: BD 0C 44 JSR $0C44 ; Execute script
0F59: 27 1F BEQ $F7A ; Script passed ... OK and out
0F5B: B6 01 C3 LDA FIRST_NOUN_NUM; Is there a 1st noun?
0F5E: 26 05 BNE $F65 ; Yes ... go do it
0F60: 35 10 PULS X ; Restore script
0F62: 8A 01 ORA #$01 ; Nobody took the phrase ..
0F64: 39 RTS ; .. error and and out
0F65: BE 01 C6 LDX FIRST_NOUN_DATA; First noun data
0F68: BD 0A 83 JSR $0A83 ; Skip ...
0F6B: 30 03 LEAX 3,X ; ... object header
0F6D: C6 07 LDB #$07 ; Get "noun is first" ...
0F6F: BD 0A 68 JSR $0A68 ; ... phrase script
0F72: 24 EC BCC $F60 ; None ... error and out
0F74: BD 0A 83 JSR $0A83 ; Skip the id and length
0F77: BD 0C 44 JSR $0C44 ; Execute script (use return)
0F7A: 35 10 PULS X ; Restore script pointer
0F7C: 39 RTS ; Done
; Com16_PrintVarShortName
0F7D: 34 10 PSHS X ; Save script pointer
0F7F: BE 01 C0 LDX VAR_OBJ_DATA ; Var noun data
0F82: B6 01 BF LDA VAR_OBJ_NUMBER; Var noun index
0F85: 20 08 BRA $F8F ; Print short name
; Com11_Print1stNounShortName
0F87: 34 10 PSHS X ; Save script pointer
0F89: BE 01 C6 LDX FIRST_NOUN_DATA; 1st noun data
0F8C: B6 01 C3 LDA FIRST_NOUN_NUM; 1st noun index
;
0F8F: 27 E9 BEQ $F7A ; Return Z=1 return
0F91: C6 13 LDB #$13 ; User object
0F93: 34 10 PSHS X ; Hold noun data
0F95: BD 11 7D JSR $117D ; Lookup user object
0F98: BD 08 EB JSR $08EB ; User in current room?
0F9B: 35 10 PULS X ; Restore noun data
0F9D: 26 11 BNE $FB0 ; Not in current room ... skip print
0F9F: BD 0A 83 JSR $0A83 ; Skip object ...
0FA2: 30 03 LEAX 3,X ; ... header
0FA4: C6 02 LDB #$02 ; Get object ...
0FA6: BD 0A 68 JSR $0A68 ; ... short name
0FA9: 24 05 BCC $FB0 ; No short name ... out with OK
0FAB: 30 01 LEAX 1,X ; Skip the 2
0FAD: BD 11 99 JSR $1199 ; Print packed message at X
0FB0: 35 10 PULS X ; Restore script
0FB2: 4F CLRA ; Return ...
0FB3: 39 RTS ; ... OK
; Com12_Print2ndNounShortName
0FB4: 34 10 PSHS X ; Save script pointer
0FB6: BE 01 CC LDX SECOND_NOUN_DATA; 2nd noun data
0FB9: B6 01 C9 LDA SECOND_NOUN_NUM; 2nd noun index
0FBC: 20 D1 BRA $F8F ; Print short name
; Com15_CheckObjBits
; Check target bits in an object.
0FBE: 34 10 PSHS X ; Hold script pointer
0FC0: BE 01 C0 LDX VAR_OBJ_DATA ; Input object pointer
0FC3: B6 01 BF LDA VAR_OBJ_NUMBER; Var object number
0FC6: 27 0E BEQ $FD6 ; No object ... return error
0FC8: BD 0A 83 JSR $0A83 ; Skip the pointer-to-next object
0FCB: 30 02 LEAX 2,X ; Skip to data byte
0FCD: A6 84 LDA ,X ; Get the object data
0FCF: 35 10 PULS X ; Restore the script
0FD1: A4 84 ANDA ,X ; Mask off all but target bits
0FD3: A8 80 EORA ,X+ ; Check target bits (a 1 result in a pass)
0FD5: 39 RTS ; Done
;
0FD6: 35 10 PULS X ; Restore script pointer
0FD8: 30 01 LEAX 1,X ; Skip data
0FDA: 8A 01 ORA #$01 ; Set error
0FDC: 39 RTS ; Return
; Com29_ToggleOpenClosed
; Toggle open/closed bit on object.
0FDD: 34 10 PSHS X ; Hold script pointer
0FDF: BE 01 C0 LDX VAR_OBJ_DATA ; Input object pointer
0FE2: B6 01 BF LDA VAR_OBJ_NUMBER; Var object number
0FE5: 10 27 FF 77LBEQ $0F60 ; No object ... return error
0FE9: BD 0A 83 JSR $0A83 ; Skip the pointer-to-next object
0FEC: 30 02 LEAX 2,X ; Skip to data byte
0FEE: A6 84 LDA ,X ; Get the value
0FF0: 88 02 EORA #$02 ; Flip "open/closed" bit
0FF2: A7 84 STA ,X ; Store the new value
0FF4: 35 10 PULS X ; Restore script
0FF6: 4F CLRA ; OK
0FF7: 39 RTS ; Done
; Com2A_ToggleLockedUnlocked
; Toggle locked/unlocked bit on object.
0FF8: 34 10 PSHS X ; Hold script pointer
0FFA: BE 01 C0 LDX VAR_OBJ_DATA ; Input object pointer
0FFD: B6 01 BF LDA VAR_OBJ_NUMBER; Var object number
1000: 10 27 FF 5CLBEQ $0F60 ; No object ... return error
1004: BD 0A 83 JSR $0A83 ; Skip the pointer-to-next object
1007: 30 02 LEAX 2,X ; Skip to data byte
1009: A6 84 LDA ,X ; Get the value
100B: 88 01 EORA #$01 ; Flip "locked/unlocked" bit
100D: A7 84 STA ,X ; Store the new value
100F: 35 10 PULS X ; Restore script
1011: 4F CLRA ; OK
1012: 39 RTS ; Done
; Com14_ExecuteCommandAndReverseReturn
1013: BD 0C 44 JSR $0C44 ; Execute command
1016: 26 03 BNE $101B ; Command returned a non-zero ... return zero
1018: 8A 01 ORA #$01 ; Command returned a zero ... return non-zerio
101A: 39 RTS ; Done
101B: 4F CLRA ; Zero
101C: 39 RTS ; Done
; Com17_MoveObjectXToLocationY
101D: E6 80 LDB ,X+ ; Get object number
101F: 34 10 PSHS X ; Hold script
1021: BD 11 7D JSR $117D ; Find object
1024: BD 0A 83 JSR $0A83 ; Skip over length
1027: 35 20 PULS Y ; Script to Y
1029: A6 A0 LDA ,Y+ ; Get new location
102B: A7 84 STA ,X ; Set object's new location
102D: 1E 12 EXG X,Y ; X now past data
102F: 4F CLRA ; OK
1030: 39 RTS ; Done
; Com18_CheckVarOwnedByActiveObject
1031: 34 10 PSHS X ; Save script pointer
1033: BE 01 C0 LDX VAR_OBJ_DATA ; Var object data
1036: BD 0A 83 JSR $0A83 ; Skip length
1039: E6 84 LDB ,X ; Location
103B: 35 10 PULS X ; Restore script
103D: 10 27 F8 CFLBEQ $0910 ; Out-of-game ... error and out
1041: F1 01 D2 CMPB ACTIVE_OBJ_NUM; Is this the active object?
1044: 27 EA BEQ $1030 ; Yes ... return OK
1046: C5 80 BITB #$80 ; Test upper bit
1048: 26 E6 BNE $1030 ; It is in a room ... error and out
;
104A: 34 10 PSHS X ; Hold script
104C: BD 11 7D JSR $117D ; Look up owner object
104F: 20 E5 BRA $1036 ; Check again
; Execute any turn-scripts on the objects
1051: 8E 1B 42 LDX #$1B42 ; Start of object data
1054: 7F 01 D0 CLR tmp1DO ; Object number
1057: BD 0A 83 JSR $0A83 ; Skip length
105A: BD 0A 99 JSR $0A99 ; End of objects?
105D: 24 D1 BCC $1030 ; Yes ... out
105F: 7C 01 D0 INC tmp1DO ; Next object number
1062: 34 20 PSHS Y ; Hold end-of-objects
1064: BD 0A 83 JSR $0A83 ; Skip length
1067: A6 84 LDA ,X ; Location
1069: B7 01 AB STA tmp1AB ; Hold
106C: 34 20 PSHS Y ; End of object
106E: A6 84 LDA ,X ; Location
1070: 27 42 BEQ $10B4 ; If it is out-of-game it doesn't get a turn
1072: 30 03 LEAX 3,X ; Skip data
1074: C6 08 LDB #$08 ; Turn-script
1076: BD 0A 68 JSR $0A68 ; Find turn script
1079: 24 39 BCC $10B4 ; Nothing to do ... next object
107B: BD 0A 83 JSR $0A83 ; Skip length
107E: 34 10 PSHS X ; Hold pointer
1080: BD 13 19 JSR $1319 ; Generate random number
1083: F6 01 D0 LDB tmp1DO ; Current object number ...
1086: F7 01 D2 STB ACTIVE_OBJ_NUM; ... is now the active object
1089: BD 11 7D JSR $117D ; Get its data pointer
108C: BF 01 D3 STX ACTIVE_OBJ_DATA; Hold pointer to active object data
108F: F6 01 AB LDB tmp1AB ; Object's location
1092: 5D TSTB ; Check upper bit
1093: 2B 0E BMI $10A3 ; If in a room ... go handle
1095: BD 11 7D JSR $117D ; Get object's owner
1098: BD 0A 83 JSR $0A83 ; Skip length
109B: E6 84 LDB ,X ; Get owner location
109D: 26 F3 BNE $1092 ; Still in game ... find room location of owner chain
109F: 35 10 PULS X ; Restore pointer
10A1: 20 11 BRA $10B4 ; Next object
10A3: F7 01 D5 STB CUR_ROOM ; Objects location
10A6: 8E 15 A1 LDX #$15A1 ; Get room ...
10A9: BD 0A 60 JSR $0A60 ; ... scripts for object
10AC: BF 01 D6 STX CUR_ROOM_DATA ; Hold
10AF: 35 10 PULS X ; Restore turn-script
10B1: BD 0C 44 JSR $0C44 ; Execute turn-script
10B4: 35 10 PULS X ; Restore
10B6: 35 20 PULS Y ; Restore
10B8: 20 A0 BRA $105A ; Next object
; Com05_IsRandomLessOrEqual
10BA: B6 13 B8 LDA $13B8 ; Random value
10BD: A1 80 CMPA ,X+ ; Compare random value to script
10BF: 25 05 BCS $10C6 ; If less than ... OK
10C1: 27 03 BEQ $10C6 ; If the same ... OK
10C3: 8A 01 ORA #$01 ; Greater than ... FAIL
10C5: 39 RTS ; Done
10C6: 4F CLRA ; Less than or equal ... OK
10C7: 39 RTS ; Done
; Com1D_AttackObject
10C8: A6 80 LDA ,X+ ; Get attack value
10CA: B7 01 AB STA tmp1AB ; Hold attack value
10CD: 34 10 PSHS X ; Hold script
10CF: BE 01 C0 LDX VAR_OBJ_DATA ; Target object data
10D2: BD 0A 83 JSR $0A83 ; Skip length
10D5: 30 03 LEAX 3,X ; Skip object data
10D7: 34 10 PSHS X ; Hold X ...
10D9: 34 20 PSHS Y ; ... and Y
10DB: C6 09 LDB #$09 ; Get target's ...
10DD: BD 0A 68 JSR $0A68 ; ... combat info
10E0: 24 29 BCC $110B ; Not found. Do nothing (return OK)
10E2: BD 0A 83 JSR $0A83 ; Skip length
10E5: 30 01 LEAX 1,X ; Hit points
10E7: A6 84 LDA ,X ; Hit points
10E9: B0 01 AB SUBA tmp1AB ; Subtract attack from hit points
10EC: 24 01 BCC $10EF ; Not negative ... keep it
10EE: 4F CLRA ; Floor the hit points
10EF: A7 84 STA ,X ; New hit points
10F1: 35 20 PULS Y ; Restore ...
10F3: 35 10 PULS X ; ... X and Y
10F5: 4D TSTA ; Hit points zero?
10F6: 27 04 BEQ $10FC ; Yes ... object dies
10F8: 35 10 PULS X ; Restore list
10FA: 4F CLRA ; Return OK
10FB: 39 RTS ; Done
;Handle object being killed
10FC: C6 0A LDB #$0A ; Object being killed script
10FE: BD 0A 68 JSR $0A68 ; Find a script for handling being killed
1101: 24 F5 BCC $10F8 ; Not found ... nothing happens (return OK)
1103: BD 0A 83 JSR $0A83 ; Skip id and length
1106: BD 0C 44 JSR $0C44 ; Execute "being killed" script
1109: 20 ED BRA $10F8 ; Done (return OK)
110B: 35 20 PULS Y ; Reset ...
110D: 35 10 PULS X ; ... stack
110F: 20 E7 BRA $10F8 ; Return OK
; Com1E_SwapObjects
1111: E6 80 LDB ,X+ ; 1st object number
1113: A6 80 LDA ,X+ ; 2nd object
1115: B7 01 AB STA tmp1AB ; Hold second object
1118: 34 10 PSHS X ; Hold script
111A: BD 11 7D JSR $117D ; Look up object
111D: BD 0A 83 JSR $0A83 ; Skip length
1120: 1F 13 TFR X,U ; 1st object pointer to U
1122: F6 01 AB LDB tmp1AB ; 2nd object
1125: BD 11 7D JSR $117D ; Look up object
1128: BD 0A 83 JSR $0A83 ; Skip length
112B: A6 84 LDA ,X ; Swap ...
112D: E6 C4 LDB ,U ; ... location ...
112F: A7 C4 STA ,U ; ... of ...
1131: E7 84 STB ,X ; ... objects
1133: 35 10 PULS X ; Restore script
1135: 4F CLRA ; OK
1136: 39 RTS ; Done
1137: 35 10 PULS X ; Restore script pointer
1139: 4F CLRA ; Z=1 OK
113A: 39 RTS ; Done
; Com23_HealVarObject
113B: A6 80 LDA ,X+ ; Get healing value
113D: B7 01 AB STA tmp1AB ; Hold it
1140: 34 10 PSHS X ; Hold script
1142: BE 01 C0 LDX VAR_OBJ_DATA ; Var object data
1145: BD 0A 83 JSR $0A83 ; Skip length
1148: 30 03 LEAX 3,X ; Skip data
114A: C6 09 LDB #$09 ; Get object ...
114C: BD 0A 68 JSR $0A68 ; ... hit points
114F: 24 E6 BCC $1137 ; No entry ... do nothing (but OK)
1151: BD 0A 83 JSR $0A83 ; Skip length
1154: EC 84 LDD ,X ; Get HP info
1156: FB 01 AB ADDB tmp1AB ; Add to health
1159: B7 01 AB STA tmp1AB ; Max value
115C: F1 01 AB CMPB tmp1AB ; Over the max?
115F: 25 03 BCS $1164 ; No ... keep it
1161: F6 01 AB LDB tmp1AB ; Use max value
1164: 30 01 LEAX 1,X ; Store ...
1166: E7 84 STB ,X ; ... new health
1168: 20 CD BRA $1137 ; OK out
; Com22_25_26_27_28_PrintCR
116A: B6 01 D2 LDA ACTIVE_OBJ_NUM; Active object
116D: 81 13 CMPA #$13 ; Is this the Player?
116F: 26 08 BNE $1179 ; No ... ignore
1171: 7A 01 E3 DEC tillMORE ; Decrement rows-till-more-prompt
1174: 86 0D LDA #$0D ; Print ...
1176: BD 11 D5 JSR $11D5 ; ... CR
1179: 4F CLRA ; OK
117A: 39 RTS ; Done
; Com24_EndlessLoop
117B: 20 FE BRA $117B ; Endless loop
; Find object index in B
117D: 8E 1B 42 LDX #$1B42 ; Start of objects
1180: BD 0A 83 JSR $0A83 ; Skip end
1183: 5A DECB ; Found desired object?
1184: 27 F4 BEQ $117A ; Yes ... out OK
1186: BD 0A 83 JSR $0A83 ; Length of object
1189: 1E 12 EXG X,Y ; Next object
118B: 20 F6 BRA $1183 ; Keep looking
; Print packed message and CR
118D: BD 11 99 JSR $1199 ; Print packed message at X
1190: 86 0D LDA #$0D ; Print ...
1192: BD 11 D5 JSR $11D5 ; ... CR
1195: 7A 01 E3 DEC tillMORE ; Rows till MORE PROMPT
1198: 39 RTS ; Done
; PrintPackedMessage
; X points to compressed string. First byte (or two) is the length.
1199: 4F CLRA ; Assume MSB is 0
119A: E6 84 LDB ,X ; Get length
119C: C5 80 BITB #$80 ; Is it single byte length?
119E: 27 04 BEQ $11A4 ; Yes ... use D
11A0: A6 80 LDA ,X+ ; Get the ...
11A2: 84 7F ANDA #$7F ; ... MSB and ...
11A4: E6 80 LDB ,X+ ; ... LSB
11A6: FD 01 AB STD tmp1AB ; Store byte count
11A9: FC 01 AB LDD tmp1AB ; Number of bytes left in message
11AC: 10 83 00 02CMPD #$0002 ; Less than 2?
11B0: 25 0E BCS $11C0 ; Yes ... these aren't compressed
11B2: BD 12 59 JSR $1259 ; Decompress and print two bytes pointed to by X
11B5: FC 01 AB LDD tmp1AB ; Get byte count
11B8: 83 00 02 SUBD #$0002 ; Handled 2
11BB: FD 01 AB STD tmp1AB ; Store count
11BE: 20 E9 BRA $11A9 ; Keep decompressing
11C0: 5D TSTB ; Any characters on the end to print?
11C1: 27 0C BEQ $11CF ; No ... skip
11C3: A6 80 LDA ,X+ ; Get character
11C5: 34 04 PSHS B ; Hold count
11C7: BD 11 D5 JSR $11D5 ; Print character
11CA: 35 04 PULS B ; Restore count
11CC: 5A DECB ; Decrement count
11CD: 20 F1 BRA $11C0 ; Keep going
11CF: 86 20 LDA #$20 ; Print ...
11D1: BD 11 D5 JSR $11D5 ; ... space on end
11D4: 39 RTS ; Done
; PrintCharacterAutoWrap
; Print character in A to screen. This handles auto word-wrapping and
; auto MORE prompting.
;
11D5: F6 01 BE LDB lastChar ; Last printed character
11D8: C1 20 CMPB #$20 ; Last printed a space?
11DA: 26 16 BNE $11F2 ; No ... skip on
11DC: 81 20 CMPA #$20 ; Printing a second space now?
11DE: 27 52 BEQ $1232 ; Yes ... just skip it (MORE and out)
11E0: 81 2E CMPA #$2E ; A '.' ?
11E2: 27 08 BEQ $11EC ; Yes. Ignore leading space.
11E4: 81 3F CMPA #$3F ; A '?' ?
11E6: 27 04 BEQ $11EC ; Yes. Ignore leading space.
11E8: 81 21 CMPA #$21 ; A '!' ?
11EA: 26 06 BNE $11F2 ; Yes. Ignore leading space.
11EC: DE 88 LDU >printCursor ; Back screen ...
11EE: 33 5F LEAU -1,U ; ... pointer up ...
11F0: DF 88 STU >printCursor ; ... over ignored space
11F2: B7 01 BE STA lastChar ; Store last printed character
11F5: AD 9F A0 02JSR [$A002] ; Output a character
11F9: 96 89 LDA >$89 ; LSB of screen position (we know MSB is 4 or 5)
11FB: 81 FE CMPA #$FE ; Have we reached the end of the screen?
11FD: 25 33 BCS $1232 ; No ... handle any MORE and out
11FF: DE 88 LDU >printCursor ; Cursor position
1201: 33 C8 DF LEAU $-21,U ; Back up to end of current row (where it will be after CR)
1204: 86 0D LDA #$0D ; CR ...
1206: AD 9F A0 02JSR [$A002] ; ... to screen
120A: 7A 01 E3 DEC tillMORE ; Rows left until MORE is needed
120D: A6 C4 LDA ,U ; Find the ...
120F: 81 60 CMPA #$60 ; ... space before ...
1211: 27 04 BEQ $1217 ; ... the last ...
1213: 33 5F LEAU -1,U ; ... word ...
1215: 20 F6 BRA $120D ; ... on the line
1217: 33 41 LEAU 1,U ; Now pointing to the last word on the line
1219: A6 C4 LDA ,U ; Get next character in buffer
121B: 81 60 CMPA #$60 ; Is it a space?
121D: 27 13 BEQ $1232 ; Yes ... all done
121F: C6 60 LDB #$60 ; Store a space ...
1221: E7 C4 STB ,U ; ... over this on the screen
1223: 81 60 CMPA #$60 ; Make sure ...
1225: 25 02 BCS $1229 ; ... upper ...
1227: 80 40 SUBA #$40 ; ... case
1229: B7 01 BE STA lastChar ; Store last printed character
122C: AD 9F A0 02JSR [$A002] ; Output a character
1230: 20 E5 BRA $1217 ; Move overhang to next line
1232: 7D 01 E3 TST tillMORE ; Time for a MORE prompt?
1235: 2B 01 BMI $1238 ; Yes ... do it and out
1237: 39 RTS ; Done
; MorePrompt
; Print MORE and wait for key
;
1238: B6 01 BE LDA lastChar ; Last printed character
123B: 34 76 PSHS U,Y,X,B,A ; Hold
123D: 86 0D LDA #$0D ; Reset MORE ...
123F: B7 01 E3 STA tillMORE ; ... row count
1242: 8E 13 DB LDX #$13DB ; " MORE" message
1245: E6 80 LDB ,X+ ; Length
1247: BD 11 C0 JSR $11C0 ; Print message
124A: BD 0B 6C JSR $0B6C ; Get a key
124D: 9E 88 LDX >printCursor ; back pointer ...
124F: 30 18 LEAX -8,X ; ... up 8 over ...
1251: 9F 88 STX >printCursor ; ... MORE prompt
1253: 35 76 PULS A,B,X,Y,U ; Restore
1255: B7 01 BE STA lastChar ; Restore last printed character
1258: 39 RTS ; Done
; UnpackBytes
; Unpack three characters stored in 2 bytes pointed to by X and print to screen.
; Every 2 bytes holds 3 characters. Each character can be from 0 to 39.
; 40*40*40 = 64000 ... totally ingenious.
;
1259: 10 8E 13 15LDY #$1315 ;
125D: C6 03 LDB #$03 ;
125F: F7 13 12 STB $1312 ;
1262: A6 80 LDA ,X+ ;
1264: B7 01 DE STA tmp1DE ;
1267: A6 80 LDA ,X+ ;
1269: B7 01 DD STA tmp1DD ;
126C: 31 23 LEAY 3,Y ;
126E: CE 00 28 LDU #$0028 ;
1271: FF 13 13 STU $1313 ;
1274: 86 11 LDA #$11 ;
1276: B7 01 DA STA tmp1DA ;
1279: 7F 01 DB CLR tmp1DB ;
127C: 7F 01 DC CLR tmp1DC ;
127F: 79 01 DE ROL tmp1DE ;
1282: 79 01 DD ROL tmp1DD ;
1285: 7A 01 DA DEC tmp1DA ;
1288: 27 39 BEQ $12C3 ;
128A: 86 00 LDA #$00 ;
128C: 89 00 ADCA #$00 ; This algorithm is identical to the decompression
128E: 78 01 DC ASL tmp1DC ; used in Pyramid2000. Check the comments there for
1291: 79 01 DB ROL tmp1DB ; more detail.
1294: BB 01 DC ADDA tmp1DC ;
1297: B0 13 14 SUBA $1314 ;
129A: B7 01 E0 STA tmp1EO ;
129D: B6 01 DB LDA tmp1DB ;
12A0: B2 13 13 SBCA $1313 ;
12A3: B7 01 DF STA tmp1DF ;
12A6: 24 0B BCC $12B3 ;
12A8: FC 01 DF LDD tmp1DF ;
12AB: F3 13 13 ADDD $1313 ;
12AE: FD 01 DB STD tmp1DB ;
12B1: 20 06 BRA $12B9 ;
12B3: FC 01 DF LDD tmp1DF ;
12B6: FD 01 DB STD tmp1DB ;
; Compliment C flag and continue
12B9: 25 04 BCS $12BF ;
12BB: 1A 01 ORCC #$01 ;
12BD: 20 C0 BRA $127F ;
12BF: 1C FE ANDCC #$FE ;
12C1: 20 BC BRA $127F ;
; Process the result of the division
12C3: FC 01 DB LDD tmp1DB ;
12C6: C3 12 EA ADDD #$12EA ;
12C9: 1F 03 TFR D,U ;
12CB: A6 C4 LDA ,U ;
12CD: A7 A2 STA ,-Y ;
12CF: 7A 13 12 DEC $1312 ;
12D2: 26 9A BNE $126E ;
12D4: 10 8E 13 15LDY #$1315 ;
12D8: C6 03 LDB #$03 ;
12DA: A6 A0 LDA ,Y+ ;
12DC: 34 04 PSHS B ;
12DE: BD 11 D5 JSR $11D5 ; Print character
12E1: 35 04 PULS B ;
12E3: 5A DECB ;
12E4: 26 F4 BNE $12DA ;
12E6: FC 01 AB LDD tmp1AB ;
12E9: 39 RTS ;
;
; Character translation table
; ? ! 2 . " ' < > / 0 3 A B C D E
12EA: 3F 21 32 20 22 27 3C 3E 2F 30 33 41 42 43 44 45
; F G H I J K L M N O P Q R S T U
12FA: 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55
; V W X Y Z - , .
130A: 56 57 58 59 5A 2D 2C 2E
1312: 00 00 00 00 00 00 00 ; Temporaries for decompression algorithm above
; Com2B_GenerateRandomNumber
1319: 34 14 PSHS X,B ; Random number generator. Uses seed at 13B8.
131B: 8E 13 B8 LDX #$13B8 ;
131E: C6 17 LDB #$17 ;
1320: A6 84 LDA ,X ;
1322: 30 01 LEAX 1,X ;
1324: 1A 01 ORCC #$01 ;
1326: 84 06 ANDA #$06 ;
1328: 27 07 BEQ $1331 ;
132A: 81 06 CMPA #$06 ;
132C: 1A 01 ORCC #$01 ;
132E: 27 01 BEQ $1331 ;
1330: 4F CLRA ;
1331: A6 84 LDA ,X ;
1333: 25 03 BCS $1338 ;
1335: 44 LSRA ;
1336: 20 03 BRA $133B ;
1338: 44 LSRA ;
1339: 8A 80 ORA #$80 ;
133B: A7 84 STA ,X ;
133D: 30 1F LEAX -1,X ;
133F: A6 84 LDA ,X ;
1341: 25 03 BCS $1346 ;
1343: 44 LSRA ;
1344: 20 03 BRA $1349 ;
1346: 44 LSRA ;
1347: 8A 80 ORA #$80 ;
1349: 84 FE ANDA #$FE ;
134B: A7 84 STA ,X ;
134D: 5A DECB ;
134E: 26 D2 BNE $1322 ;
1350: 4F CLRA ;
1351: 35 14 PULS B,X ;
1353: 39 RTS ;
; -----------------------------------------------------------------------------------------------------------------
; Data Here Down
; -----------------------------------------------------------------------------------------------------------------
1354: 94 ; Init game
1355: A3 ; Start of game splash (YOU FEEL AS THOUGH ...)
1356: AC ; Script for command-given-to-someone
; CommandJumpTable
1357: 0C C2 ; 00
1359: 0E 24 ; 01
135B: 0E 48 ; 02
135D: 0E 4D ; 03
135F: 0E 65 ; 04
1361: 10 BA ; 05
1363: 0E 8F ; 06
1365: 0E 8A ; 07
1367: 0E CF ; 08
1369: 0E ED ; 09
136B: 0E FE ; 0A
136D: 0C 99 ; 0B
136F: 0E 62 ; 0C
1371: 0C 68 ; 0D
1373: 0C 80 ; 0E
1375: 0F 04 ; 0F
1377: 0F 15 ; 10
1379: 0F 87 ; 11
137B: 0F B4 ; 12
137D: 0F 26 ; 13
137F: 10 13 ; 14
1381: 0F BE ; 15
1383: 0F 7D ; 16
1385: 10 1D ; 17
1387: 10 31 ; 18
1389: 0C CE ; 19
138B: 0C EF ; 1A
138D: 0C FD ; 1B
138F: 0D 0B ; 1C
1391: 10 C8 ; 1D
1393: 11 11 ; 1E
1395: 0E 70 ; 1F
1397: 0E 31 ; 20
1399: 0D 1E ; 21
139B: 11 6A ; 22
139D: 11 3B ; 23
139F: 11 7B ; 24
13A1: 11 6A ; 25
13A3: 11 6A ; 26
13A5: 11 6A ; 27
13A7: 11 6A ; 28
13A9: 0F DD ; 29
13AB: 0F F8 ; 2A
13AD: 13 19 ; 2B
13AF: 0E 37 ; 2C
13B1: 0E F5 ; 2D
; Multi-verb replacement list (code doesn't work that uses this anyway)
13B3: 00 ; List is the length. List is pointed to by 13B2 which is ignored
; Random number seed
13B4: 12 23 44 1D 27 4D 2D 13
; FeedbackPrompts
; "?VERB?"
13BC: 06 3F 56 45 52 42 3F
;
; "?WHAT?"
13C3: 06 3F 57 48 41 54 3F
;
; "?WHICH?"
13CA: 07 3F 57 48 49 43 48 3F
;
; "?PHRASE?"
13D2: 08 3F 50 48 52 41 53 45 3F
;
; "-<MORE>"
13DB: 07 2D 3C 4D 4F 52 45 3E
; PhraseList
13E3: 05 00 00 00 01 ; 01: NORTH * * *
13E8: 06 00 00 00 02 ; 02: SOUTH * * *
13ED: 07 00 00 00 03 ; 03: EAST * * *
13F2: 08 00 00 00 04 ; 04: WEST * * *
13F7: 09 00 20 00 05 ; 05: GET * ..C..... *
13FC: 09 02 20 20 43 ; 43: GET WITH ..C..... ..C.....
1401: 34 07 00 80 05 ; 05: PICK UP * u.......
1406: 34 07 80 00 05 ; 05: PICK UP u....... *
140B: 0A 00 20 00 06 ; 06: DROP * ..C..... *
1410: 0A 05 80 80 0F ; 0F: DROP IN u....... u.......
1415: 0B 00 00 00 07 ; 07: INVENT * * *
141A: 04 02 10 40 09 ; 09: ATTACK WITH ...P.... .v......
141F: 04 00 10 00 09 ; 09: ATTACK * ...P.... *
1424: 0C 00 00 00 0A ; 0A: LOOK * * *
1429: 0C 03 00 80 0B ; 0B: LOOK AT * u.......
142E: 0C 05 00 80 10 ; 10: LOOK IN * u.......
1433: 03 03 40 10 0D ; 0D: THROW AT .v...... ...P....
1438: 03 08 00 20 06 ; 06: THROW DOWN * ..C.....
143D: 03 01 80 10 0E ; 0E: THROW TO u....... ...P....
1442: 0D 01 80 10 0E ; 0E: GIVE TO u....... ...P....
1447: 0E 00 80 00 0B ; 0B: EXAMIN * u....... *
144C: 0E 05 00 80 0B ; 0B: EXAMIN IN * u.......
1451: 0F 00 02 00 11 ; 11: OPEN * ......O. *
1456: 0F 02 02 80 3A ; 3A: OPEN WITH ......O. u.......
145B: 38 00 08 00 40 ; 40: CLOSE * ....A... *
1460: 39 02 08 80 41 ; 41: LOCK WITH ....A... u.......
1465: 3A 02 01 80 42 ; 42: UNLOCK WITH .......L u.......
146A: 10 00 80 00 12 ; 12: PULL * u....... *
146F: 10 08 80 00 12 ; 12: PULL DOWN u....... *
1474: 10 08 00 80 12 ; 12: PULL DOWN * u.......
1479: 10 06 00 80 05 ; 05: PULL OUT * u.......
147E: 10 06 80 00 05 ; 05: PULL OUT u....... *
1483: 10 07 00 80 2D ; 2D: PULL UP * u.......
1488: 10 07 80 00 2D ; 2D: PULL UP u....... *
148D: 12 00 80 00 15 ; 15: EAT * u....... *
1492: 15 00 80 00 17 ; 17: CLIMB * u....... *
1497: 15 07 00 80 17 ; 17: CLIMB UP * u.......
149C: 15 08 00 80 17 ; 17: CLIMB DOWN * u.......
14A1: 15 09 00 80 17 ; 17: CLIMB OVER * u.......
14A6: 15 0C 00 80 17 ; 17: CLIMB ON * u.......
14AB: 05 01 00 00 01 ; 01: NORTH TO * *
14B0: 06 01 00 00 02 ; 02: SOUTH TO * *
14B5: 07 01 00 00 03 ; 03: EAST TO * *
14BA: 08 01 00 00 04 ; 04: WEST TO * *
14BF: 0A 08 00 20 06 ; 06: DROP DOWN * ..C.....
14C4: 0A 08 20 00 06 ; 06: DROP DOWN ..C..... *
14C9: 0A 0A 20 80 06 ; 06: DROP BEHIND ..C..... u.......
14CE: 0A 04 20 80 06 ; 06: DROP UNDER ..C..... u.......
14D3: 0A 0C 20 80 06 ; 06: DROP ON ..C..... u.......
14D8: 0C 07 00 00 0A ; 0A: LOOK UP * *
14DD: 0C 08 00 00 0A ; 0A: LOOK DOWN * *
14E2: 0C 09 80 00 0B ; 0B: LOOK OVER u....... *
14E7: 0C 09 00 80 0A ; 0A: LOOK OVER * u.......
14EC: 0C 0B 00 00 0A ; 0A: LOOK AROUND * *
14F1: 0C 0A 00 00 0A ; 0A: LOOK BEHIND * *
14F6: 32 00 00 00 21 ; 21: PLUGH * * *
14FB: 2B 00 00 00 22 ; 22: SCREAM * * *
1500: 2D 00 00 00 23 ; 23: QUIT * * *
1505: 3B 00 00 00 44 ; 44: HELLO * * *
150A: 3B 00 10 00 45 ; 45: HELLO * ...P.... *
150F: 3B 01 00 00 44 ; 44: HELLO TO * *
1514: 3B 01 00 10 45 ; 45: HELLO TO * ...P....
1519: 3C 00 00 00 46 ; 46: WHAT * * *
151E: 3C 00 80 00 47 ; 47: WHAT * u....... *
1523: 3B 01 10 00 45 ; 45: HELLO TO ...P.... *
1528: 21 00 00 00 25 ; 25: GO * * *
152D: 21 01 00 80 3D ; 3D: GO TO * u.......
1532: 21 07 00 80 17 ; 17: GO UP * u.......
1537: 21 08 00 80 17 ; 17: GO DOWN * u.......
153C: 21 0B 00 80 26 ; 26: GO AROUND * u.......
1541: 23 00 80 00 27 ; 27: KICK * u....... *
1546: 23 08 00 80 27 ; 27: KICK DOWN * u.......
154B: 23 05 00 80 27 ; 27: KICK IN * u.......
1550: 24 02 10 80 28 ; 28: FEED WITH ...P.... u.......
1555: 24 01 80 10 29 ; 29: FEED TO u....... ...P....
155A: 1C 00 80 00 2D ; 2D: LIFT * u....... *
155F: 1F 00 00 00 2F ; 2F: WAIT * * *
1564: 1F 0B 00 00 2F ; 2F: WAIT AROUND * *
1569: 09 07 00 00 2F ; 2F: GET UP * *
156E: 20 09 00 80 34 ; 34: JUMP OVER * u.......
1573: 3D 00 80 00 48 ; 48: LOWER * u....... *
1578: 3E 08 80 00 48 ; 48: LET DOWN u....... *
157D: 3E 08 00 80 48 ; 48: LET DOWN * u.......
1582: 09 08 00 80 48 ; 48: GET DOWN * u.......
1587: 09 08 80 00 48 ; 48: GET DOWN u....... *
158C: 3F 00 00 00 4A ; 4A: COME * * *
1591: 3F 02 00 00 4A ; 4A: COME WITH * *
1596: 40 00 80 00 49 ; 49: MEET * u....... *
159B: 40 01 80 80 49 ; 49: MEET TO u....... u.......
15A0: 00
; RoomDescriptions
15A1: 00 85 9E ; Script list size=059E
15A4: 81 3A 00 ; Script number=81 size=003A data=00
15A7: 03 2A ; Data tag=03 size=002A
15A9: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
15AA: 28 5F BE 63 16 9E 7A 8B 61 17 98 39 ; THE MAINTENANCE ROOM, A LARGE ROOM WITH
15B6: 17 FE 9F 7B 14 54 8B 9B 6C 01 B3 59 ; EXITS EAST AND WEST.
15C2: 90 82 7B 3A 15 8D 7B 23 15 F3 B9 8E ; .
15CE: 48 F7 17 17 BA ; .
15D3: 04 0B ; Data tag=04 size=000B
15D5: 0B 09 ; Command_0B_SWITCH size=09
15D7: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
15D9: 02 ; IF_NOT_JUMP address=15DC
15DA: 00 95 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=95
15DC: 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
15DD: 02 ; IF_NOT_JUMP address=15E0
15DE: 00 82 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=82
15E0: 82 49 00 ; Script number=82 size=0049 data=00
15E3: 03 35 ; Data tag=03 size=0035
15E5: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
15E6: 33 5F BE 03 15 5F B9 93 9A 9E B4 7B ; THE DISPENSARY, A SMALL SQUARE ROOM WITH
15F2: 14 E3 B8 F3 8C 97 B9 2F 49 39 17 DB ; EXITS TO THE EAST, WEST, AND SOUTH.
15FE: 9F 56 D1 07 71 96 D7 D6 B5 D6 9C DB ; .
160A: 72 95 5F 73 C1 B5 D0 73 C1 8E 48 61 ; .
1616: 17 82 C6 2E ; .
161A: 04 0F ; Data tag=04 size=000F
161C: 0B 0D ; Command_0B_SWITCH size=0D
161E: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
1620: 02 ; IF_NOT_JUMP address=1623
1621: 00 81 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=81
1623: 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
1624: 02 ; IF_NOT_JUMP address=1627
1625: 00 83 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=83
1627: 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
1628: 02 ; IF_NOT_JUMP address=162B
1629: 00 84 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=84
162B: 83 46 00 ; Script number=83 size=0046 data=00
162E: 03 3A ; Data tag=03 size=003A
1630: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1631: 38 5F BE 3A 15 6B 48 D6 97 C0 7A 39 ; THE EXAMINATION ROOM WHERE THE DOCTOR TREATS
163D: 17 DB 9F 1F D1 5B B1 5F BE 09 15 09 ; PATIENTS. THERE IS A SINGLE EXIT NORTH.
1649: 56 96 AF 63 B1 0B C0 56 A4 30 79 2F ; .
1655: C0 82 17 2F 62 D5 15 7B 14 50 B8 BF ; .
1661: 6D 3A 15 73 7B 04 9A 77 BE ; .
166A: 04 07 ; Data tag=04 size=0007
166C: 0B 05 ; Command_0B_SWITCH size=05
166E: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
1670: 02 ; IF_NOT_JUMP address=1673
1671: 00 82 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=82
1673: 84 5B 00 ; Script number=84 size=005B data=00
1676: 03 37 ; Data tag=03 size=0037
1678: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1679: 35 5F BE F7 17 F3 B9 8E 61 B8 16 7B ; THE WEST END OF A VERY LONG EAST-WEST
1685: 14 74 CA 4E DB 11 A0 23 15 15 BA B5 ; HALLWAY. THERE IS AN OPENING TO THE WEST.
1691: D0 0A BC 46 48 1B D0 56 F4 F4 72 4B ; .
169D: 5E C3 B5 91 96 F0 A4 91 7A 89 17 82 ; .
16A9: 17 59 5E 66 62 2E ; .
16AF: 04 1F ; Data tag=04 size=001F
16B1: 0B 1D ; Command_0B_SWITCH size=1D
16B3: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
16B5: 02 ; IF_NOT_JUMP address=16B8
16B6: 00 82 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=82
16B8: 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
16B9: 02 ; IF_NOT_JUMP address=16BC
16BA: 00 87 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=87
16BC: 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
16BD: 08 ; IF_NOT_JUMP address=16C6
16BE: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
16C0: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
16C1: 1C 02 ; Command_1C_SET_VAR_OBJECT object=02 (GreenDoorB)
16C3: 8D ; CommonCommand_8D
16C4: 00 85 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=85
16C6: 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
16C7: 08 ; IF_NOT_JUMP address=16D0
16C8: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
16CA: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
16CB: 1C 03 ; Command_1C_SET_VAR_OBJECT object=03 (RedDoorA)
16CD: 8D ; CommonCommand_8D
16CE: 00 86 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=86
16D0: 85 13 00 ; Script number=85 size=0013 data=00
16D3: 03 01 ; Data tag=03 size=0001
16D5: 81 ; CommonCommand_81
16D6: 04 0D ; Data tag=04 size=000D
16D8: 0B 0B ; Command_0B_SWITCH size=0B
16DA: 0A 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
16DC: 08 ; IF_NOT_JUMP address=16E5
16DD: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
16DF: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
16E0: 1C 01 ; Command_1C_SET_VAR_OBJECT object=01 (GreenDoorA)
16E2: 8D ; CommonCommand_8D
16E3: 00 84 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=84
16E5: 86 13 00 ; Script number=86 size=0013 data=00
16E8: 03 01 ; Data tag=03 size=0001
16EA: 81 ; CommonCommand_81
16EB: 04 0D ; Data tag=04 size=000D
16ED: 0B 0B ; Command_0B_SWITCH size=0B
16EF: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
16F1: 08 ; IF_NOT_JUMP address=16FA
16F2: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
16F4: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
16F5: 1C 04 ; Command_1C_SET_VAR_OBJECT object=04 (RedDoorB)
16F7: 8D ; CommonCommand_8D
16F8: 00 84 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=84
16FA: 87 25 00 ; Script number=87 size=0025 data=00
16FD: 03 01 ; Data tag=03 size=0001
16FF: 82 ; CommonCommand_82
1700: 04 1F ; Data tag=04 size=001F
1702: 0B 1D ; Command_0B_SWITCH size=1D
1704: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
1706: 02 ; IF_NOT_JUMP address=1709
1707: 00 8A ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8A
1709: 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
170A: 02 ; IF_NOT_JUMP address=170D
170B: 00 84 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=84
170D: 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
170E: 08 ; IF_NOT_JUMP address=1717
170F: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1711: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1712: 1C 06 ; Command_1C_SET_VAR_OBJECT object=06 (GreedDoorD)
1714: 8D ; CommonCommand_8D
1715: 00 88 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=88
1717: 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
1718: 08 ; IF_NOT_JUMP address=1721
1719: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
171B: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
171C: 1C 07 ; Command_1C_SET_VAR_OBJECT object=07 (RedDoorC)
171E: 8D ; CommonCommand_8D
171F: 00 89 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=89
1721: 88 42 00 ; Script number=88 size=0042 data=00
1724: 03 30 ; Data tag=03 size=0030
1726: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1727: 2E 55 45 8E 91 15 8A A3 AD 5B B1 01 ; A SMALL SQUARE ROOM. ALL FOUR WALLS ARE
1733: B3 DB 95 46 48 59 15 23 C6 0E D0 0B ; COVERED WITH A THICK PADDING.
173F: 8E 2F 49 E1 14 74 CA F3 5F 56 D1 03 ; .
174B: 71 82 17 DD 78 DB 16 C3 59 CF 98 ; .
1756: 04 0D ; Data tag=04 size=000D
1758: 0B 0B ; Command_0B_SWITCH size=0B
175A: 0A 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
175C: 08 ; IF_NOT_JUMP address=1765
175D: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
175F: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1760: 1C 05 ; Command_1C_SET_VAR_OBJECT object=05 (GreenDoorC)
1762: 8D ; CommonCommand_8D
1763: 00 87 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=87
1765: 89 13 00 ; Script number=89 size=0013 data=00
1768: 03 01 ; Data tag=03 size=0001
176A: 81 ; CommonCommand_81
176B: 04 0D ; Data tag=04 size=000D
176D: 0B 0B ; Command_0B_SWITCH size=0B
176F: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
1771: 08 ; IF_NOT_JUMP address=177A
1772: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1774: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1775: 1C 08 ; Command_1C_SET_VAR_OBJECT object=08 (RedDoorD)
1777: 8D ; CommonCommand_8D
1778: 00 87 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=87
177A: 8A 25 00 ; Script number=8A size=0025 data=00
177D: 03 01 ; Data tag=03 size=0001
177F: 82 ; CommonCommand_82
1780: 04 1F ; Data tag=04 size=001F
1782: 0B 1D ; Command_0B_SWITCH size=1D
1784: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
1786: 02 ; IF_NOT_JUMP address=1789
1787: 00 87 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=87
1789: 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
178A: 02 ; IF_NOT_JUMP address=178D
178B: 00 8C ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8C
178D: 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
178E: 08 ; IF_NOT_JUMP address=1797
178F: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1791: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1792: 1C 0A ; Command_1C_SET_VAR_OBJECT object=0A (GreenDoorF)
1794: 8D ; CommonCommand_8D
1795: 00 8B ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8B
1797: 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
1798: 08 ; IF_NOT_JUMP address=17A1
1799: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
179B: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
179C: 1C 0B ; Command_1C_SET_VAR_OBJECT object=0B (RedDoorE)
179E: 8D ; CommonCommand_8D
179F: 00 8F ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8F
17A1: 8B 13 00 ; Script number=8B size=0013 data=00
17A4: 03 01 ; Data tag=03 size=0001
17A6: 81 ; CommonCommand_81
17A7: 04 0D ; Data tag=04 size=000D
17A9: 0B 0B ; Command_0B_SWITCH size=0B
17AB: 0A 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
17AD: 08 ; IF_NOT_JUMP address=17B6
17AE: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
17B0: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
17B1: 1C 09 ; Command_1C_SET_VAR_OBJECT object=09 (GreenDoorE)
17B3: 8D ; CommonCommand_8D
17B4: 00 8A ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8A
17B6: 8C 41 00 ; Script number=8C size=0041 data=00
17B9: 03 27 ; Data tag=03 size=0027
17BB: 0D 25 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=37
17BD: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
17BE: 0A 5F BE 23 15 F3 B9 8E 61 B8 16 ; THE EAST END OF
17C9: 82 ; CommonCommand_82
17CA: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
17CB: 16 5F BE 5B B1 4B 7B 83 48 5F A0 10 ; THERE IS AN OPENING TO THE EAST.
17D7: 99 D6 6A D6 9C DB 72 95 5F 9B C1 ; .
17E2: 04 15 ; Data tag=04 size=0015
17E4: 0B 13 ; Command_0B_SWITCH size=13
17E6: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
17E8: 02 ; IF_NOT_JUMP address=17EB
17E9: 00 8E ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8E
17EB: 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
17EC: 02 ; IF_NOT_JUMP address=17EF
17ED: 00 8A ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8A
17EF: 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
17F0: 08 ; IF_NOT_JUMP address=17F9
17F1: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
17F3: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
17F4: 1C 0D ; Command_1C_SET_VAR_OBJECT object=0D (GreenDoorH)
17F6: 8D ; CommonCommand_8D
17F7: 00 8D ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8D
17F9: 8D 13 00 ; Script number=8D size=0013 data=00
17FC: 03 01 ; Data tag=03 size=0001
17FE: 81 ; CommonCommand_81
17FF: 04 0D ; Data tag=04 size=000D
1801: 0B 0B ; Command_0B_SWITCH size=0B
1803: 0A 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
1805: 08 ; IF_NOT_JUMP address=180E
1806: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1808: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1809: 1C 0C ; Command_1C_SET_VAR_OBJECT object=0C (GreenDoorG)
180B: 8D ; CommonCommand_8D
180C: 00 8C ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8C
180E: 8E 36 00 ; Script number=8E size=0036 data=00
1811: 03 2A ; Data tag=03 size=002A
1813: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1814: 28 5F BE 2E 15 E6 5F 05 B3 75 74 D6 ; THE ELECTROSHOCK THERAPY ROOM. THERE IS A
1820: 83 F4 72 F3 48 39 17 FF 9F 82 17 2F ; SINGLE EXIT WEST.
182C: 62 D5 15 7B 14 50 B8 BF 6D 3A 15 73 ; .
1838: 7B B5 D0 9B C1 ; .
183D: 04 07 ; Data tag=04 size=0007
183F: 0B 05 ; Command_0B_SWITCH size=05
1841: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
1843: 02 ; IF_NOT_JUMP address=1846
1844: 00 8C ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8C
1846: 8F 30 00 ; Script number=8F size=0030 data=00
1849: 03 10 ; Data tag=03 size=0010
184B: 0D 0E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=14
184D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
184E: 0B 5F BE 99 16 C2 B3 30 15 11 58 46 ; THE NORTH END OF
185A: 83 ; CommonCommand_83
185B: 04 1B ; Data tag=04 size=001B
185D: 0B 19 ; Command_0B_SWITCH size=19
185F: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
1861: 08 ; IF_NOT_JUMP address=186A
1862: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1864: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1865: 1C 0E ; Command_1C_SET_VAR_OBJECT object=0E (RedDoorF)
1867: 8D ; CommonCommand_8D
1868: 00 8A ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8A
186A: 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
186B: 02 ; IF_NOT_JUMP address=186E
186C: 00 91 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=91
186E: 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
186F: 08 ; IF_NOT_JUMP address=1878
1870: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1872: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1873: 1C 0F ; Command_1C_SET_VAR_OBJECT object=0F (BlueDoorA)
1875: 8D ; CommonCommand_8D
1876: 00 90 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=90
1878: 90 13 00 ; Script number=90 size=0013 data=00
187B: 03 01 ; Data tag=03 size=0001
187D: 81 ; CommonCommand_81
187E: 04 0D ; Data tag=04 size=000D
1880: 0B 0B ; Command_0B_SWITCH size=0B
1882: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
1884: 08 ; IF_NOT_JUMP address=188D
1885: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1887: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1888: 1C 10 ; Command_1C_SET_VAR_OBJECT object=10 (BlueDoorB)
188A: 8D ; CommonCommand_8D
188B: 00 8F ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8F
188D: 91 32 00 ; Script number=91 size=0032 data=00
1890: 03 14 ; Data tag=03 size=0014
1892: 0D 12 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=18
1894: 83 ; CommonCommand_83
1895: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1896: 0F 5F BE 5B B1 4B 7B 83 48 23 63 07 ; THERE IS AN EXIT EAST.
18A2: BC 66 49 2E ; .
18A6: 04 19 ; Data tag=04 size=0019
18A8: 0B 17 ; Command_0B_SWITCH size=17
18AA: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
18AC: 02 ; IF_NOT_JUMP address=18AF
18AD: 00 8F ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8F
18AF: 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
18B0: 02 ; IF_NOT_JUMP address=18B3
18B1: 00 96 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=96
18B3: 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
18B4: 02 ; IF_NOT_JUMP address=18B7
18B5: 00 92 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=92
18B7: 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
18B8: 08 ; IF_NOT_JUMP address=18C1
18B9: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
18BB: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
18BC: 1C 11 ; Command_1C_SET_VAR_OBJECT object=11 (BlueDoorC)
18BE: 8D ; CommonCommand_8D
18BF: 00 94 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=94
18C1: 92 38 00 ; Script number=92 size=0038 data=00
18C4: 03 24 ; Data tag=03 size=0024
18C6: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
18C7: 22 5F BE 1B 16 9A BD 83 61 23 D1 13 ; THE KITCHEN WHICH HAS EXITS EAST, WEST, AND
18D3: 54 55 72 3A 15 8D 7B 23 15 16 BA F7 ; SOUTH.
18DF: 17 16 BA 90 14 15 58 36 A1 9B 76 ; .
18EA: 04 0F ; Data tag=04 size=000F
18EC: 0B 0D ; Command_0B_SWITCH size=0D
18EE: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
18F0: 02 ; IF_NOT_JUMP address=18F3
18F1: 00 93 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=93
18F3: 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
18F4: 02 ; IF_NOT_JUMP address=18F7
18F5: 00 97 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=97
18F7: 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
18F8: 02 ; IF_NOT_JUMP address=18FB
18F9: 00 91 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=91
18FB: 93 81 0F 00 ; Script number=93 size=010F data=00
18FF: 03 2B ; Data tag=03 size=002B
1901: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1902: 29 5F BE 17 16 CF 99 9B 8F 5F BE 5B ; THE KENNEL. THERE IS A WEST EXIT AND AN
190E: B1 4B 7B 59 45 66 62 3A 15 73 7B 8E ; OPENING TO THE SOUTH.
191A: 48 90 14 C2 16 93 61 AB 98 6B BF 5F ; .
1926: BE 61 17 82 C6 2E ; .
192C: 04 80 DE ; Data tag=04 size=00DE
192F: 0B 80 DB ; Command_0B_SWITCH size=DB
1932: 0A 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
1934: 80 D3 ; IF_NOT_JUMP address=1A09
1936: 0E 80 D0 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=208
1939: 0D 18 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=24
193B: 01 1A ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=1A(GuardDog)
193D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
193E: 14 5F BE 09 15 D9 6A 46 7A 99 16 0E ; THE DOG WILL NOT LET YOU PASS!
194A: BC 73 62 C7 DE DB 16 C9 B9 ; .
1953: 0D 80 B3 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=179
1956: 0E 80 B0 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=176
1959: 0D 19 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=25
195B: 20 38 ; Command_20_CHECK_ACTIVE_OBJECT object=38(SYSTEM)
195D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
195E: 15 C7 DE 9B 15 5B CA 07 68 33 98 85 ; YOU HAVE FOUND POSSIBLE ESCAPE!
196A: A6 44 B8 DB 8B 55 62 DF 48 21 ; .
1974: 0D 80 92 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=146
1977: 20 13 ; Command_20_CHECK_ACTIVE_OBJECT object=13(Player)
1979: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
197A: 26 4B 49 C7 DE 3F 16 CF 49 15 EE CF ; AS YOU LEAVE, SEVERAL GUARDS POSTED OUTSIDE
1986: 62 CE B0 87 15 2E 49 D2 B5 E6 A0 F3 ; GRAB YOU AND
1992: 5F 36 A1 46 B8 49 5E C4 B0 51 18 43 ; .
199E: C2 33 98 ; .
19A1: 0E 15 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=21
19A3: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
19A4: 0D 05 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=5
19A6: 01 3C ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=3C(DeadDog)
19A8: 17 3C 99 ; Command_17_MOVE_OBJECT_TO_LOCATION object=3C(DeadDog) location=99
19AB: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
19AC: 0B 5F BE FF 14 F3 46 79 5B 90 14 44; THE DEAD DOG AND
19B8: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
19B9: 40 6C BE 6B A1 C7 DE D0 15 7B 14 E3 ; THROW YOU IN A SMALL STORAGE SHED BEHIND THE
19C5: B8 F3 8C 09 BA C9 B0 55 5E E6 72 AF ; BUILDING. YOU HEAR THEM LOCK THE DOOR AND GO
19D1: 14 90 73 16 58 DB 72 EB 4F C3 8B CF ; AWAY.
19DD: 98 51 18 4A C2 94 5F 82 17 5B 61 75 ; .
19E9: 8D D6 83 DB 72 81 5B 83 AF 33 98 2B ; .
19F5: 6E F3 49 DB E0 ; .
19FA: 1C 40 ; Command_1C_SET_VAR_OBJECT object=40 (GreenDoorI)
19FC: 0E 03 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=3
19FE: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
1A00: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
1A01: 0E 03 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=3
1A03: 15 01 ; Command_15_CHECK_OBJECT_BITS bits=01 .......L
1A05: 2A ; Command_2A_TOGGLE_VAR_OBJECT_LOCKED_UNLOCKED
1A06: 17 13 99 ; Command_17_MOVE_OBJECT_TO_LOCATION object=13(Player) location=99
1A09: 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
1A0A: 02 ; IF_NOT_JUMP address=1A0D
1A0B: 00 92 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=92
1A0D: 94 13 00 ; Script number=94 size=0013 data=00
1A10: 03 01 ; Data tag=03 size=0001
1A12: 81 ; CommonCommand_81
1A13: 04 0D ; Data tag=04 size=000D
1A15: 0B 0B ; Command_0B_SWITCH size=0B
1A17: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
1A19: 08 ; IF_NOT_JUMP address=1A22
1A1A: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1A1C: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1A1D: 1C 12 ; Command_1C_SET_VAR_OBJECT object=12 (BlueDoorD)
1A1F: 8D ; CommonCommand_8D
1A20: 00 91 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=91
1A22: 95 29 00 ; Script number=95 size=0029 data=00
1A25: 03 1D ; Data tag=03 size=001D
1A27: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1A28: 1B 5F BE B8 16 05 67 DB 63 5F BE 5B ; THE OFFICE. THERE IS A SINGLE EXIT EAST.
1A34: B1 4B 7B 55 45 91 7A DB 8B 23 63 07 ; .
1A40: BC 66 49 2E ; .
1A44: 04 07 ; Data tag=04 size=0007
1A46: 0B 05 ; Command_0B_SWITCH size=05
1A48: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
1A4A: 02 ; IF_NOT_JUMP address=1A4D
1A4B: 00 81 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=81
1A4D: 96 46 00 ; Script number=96 size=0046 data=00
1A50: 03 32 ; Data tag=03 size=0032
1A52: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1A53: 30 5F BE 61 17 82 C6 30 15 11 58 96 ; THE SOUTH END OF THE NORTH-SOUTH HALLWAY.
1A5F: 64 DB 72 04 9A 75 BE 47 B9 53 BE 4E ; THERE ARE EAST AND WEST EXITS.
1A6B: 72 B3 8E DB E0 5F BE 5B B1 2F 49 23 ; .
1A77: 15 F3 B9 8E 48 F7 17 F3 B9 23 63 2F ; .
1A83: C0 ; .
1A84: 04 0F ; Data tag=04 size=000F
1A86: 0B 0D ; Command_0B_SWITCH size=0D
1A88: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
1A8A: 02 ; IF_NOT_JUMP address=1A8D
1A8B: 00 91 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=91
1A8D: 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
1A8E: 02 ; IF_NOT_JUMP address=1A91
1A8F: 00 98 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=98
1A91: 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
1A92: 02 ; IF_NOT_JUMP address=1A95
1A93: 00 97 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=97
1A95: 97 32 00 ; Script number=97 size=0032 data=00
1A98: 03 22 ; Data tag=03 size=0022
1A9A: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1A9B: 20 5F BE 03 15 10 99 D4 6A 3F A0 56 ; THE DINING ROOM. THERE ARE EXITS NORTH AND
1AA7: F4 F4 72 43 5E 5B B1 23 63 0B C0 04 ; WEST.
1AB3: 9A 53 BE 8E 48 F7 17 17 BA ; .
1ABC: 04 0B ; Data tag=04 size=000B
1ABE: 0B 09 ; Command_0B_SWITCH size=09
1AC0: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
1AC2: 02 ; IF_NOT_JUMP address=1AC5
1AC3: 00 92 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=92
1AC5: 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
1AC6: 02 ; IF_NOT_JUMP address=1AC9
1AC7: 00 96 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=96
1AC9: 98 37 00 ; Script number=98 size=0037 data=00
1ACC: 03 2B ; Data tag=03 size=002B
1ACE: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1ACF: 29 5F BE 2F 17 AF 55 83 49 03 A0 01 ; THE RECREATION ROOM. THERE IS ONLY ONE EXIT
1ADB: B3 DB 95 5F BE 5B B1 4B 7B 16 A0 51 ; WHICH LEADS EAST.
1AE7: DB 5B 98 23 63 19 BC 85 73 0E 71 86 ; .
1AF3: 5F C7 B5 66 49 2E ; .
1AF9: 04 07 ; Data tag=04 size=0007
1AFB: 0B 05 ; Command_0B_SWITCH size=05
1AFD: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
1AFF: 02 ; IF_NOT_JUMP address=1B02
1B00: 00 96 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=96
1B02: 99 3E 00 ; Script number=99 size=003E data=00
1B05: 03 0E ; Data tag=03 size=000E
1B07: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1B08: 0C 5F BE 66 17 AB A0 9B 6C 1F B8 9B ; THE STORAGE SHED.
1B14: 5D ; .
1B15: 04 2B ; Data tag=04 size=002B
1B17: 0B 29 ; Command_0B_SWITCH size=29
1B19: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
1B1B: 26 ; IF_NOT_JUMP address=1B42
1B1C: 0E 24 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=36
1B1E: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
1B1F: 1C 40 ; Command_1C_SET_VAR_OBJECT object=40 (GreenDoorI)
1B21: 8D ; CommonCommand_8D
1B22: 0D 1E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=30
1B24: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1B25: 1B C7 DE 3A 15 73 7B 5F BE 5A 17 F3 ; YOU EXIT THE SHED AND ESCAPE TO FREEDOM!
1B31: 5F 8E 48 35 15 12 53 56 5E C8 9C 67 ; .
1B3D: B1 7F 5B 21 ; .
1B41: 24 ; Command_24_ENDLESS_LOOP
; ENDOF 15A1
; ObjectData
; Objects are referenced by index in this list with the first object being "Object 1".
; The first three data bytes are as follows AA BB CC:
; AA = location. If >80 then it is a room. If <80 then it is held by an object.
; BB = score points (not used in BEDLAM)
; CC = --CPAXOL
; C=1 if object can be carried
; P=1 if object is a person;
; A=1 if open/close-able
; X=1 if lock/unlock-able
; O=1 if closed
; L=1 if locked
;
; Objects can have various fields tagged as follows:
; 01 = list of adjectives (size+bytes)
; 02 = short name (packed string)
; 03 = long description (packed string)
; 04 (never used)
; 05 (never used)
; 06 = command handling if object is second noun (script)
; 07 = command handling if object is first noun (script)
; 08 = turn-script executed for objects turn in game (script)
; 09 = hitpoint information (2 bytess) AA BB. AA=max hit points BB=current hit points
; 0A = script executed with killed (script)
; 0B = script executed if command is given to object (script)
;
1B42: 00 93 DF ; Number=00 size=13DF
; Object_01 GreenDoorA
1B45: 0B 12 ; Number=0B size=0012
1B47: 85 00 88 ; room=85 neverUsed=00 bits=88 u...A...
1B4A: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1B4C: 84 ; CommonCommand_84
1B4D: 01 01 ; 01 ADJECTIVES
1B4F: 14 ; GREEN
1B50: 02 ; 02 SHORT NAME
1B51: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_02 GreenDoorB
1B59: 0B 12 ; Number=0B size=0012
1B5B: 84 00 8A ; room=84 neverUsed=00 bits=8A u...A.O.
1B5E: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1B60: 86 ; CommonCommand_86
1B61: 01 01 ; 01 ADJECTIVES
1B63: 14 ; GREEN
1B64: 02 ; 02 SHORT NAME
1B65: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_03 RedDoorA
1B6D: 0B 11 ; Number=0B size=0011
1B6F: 84 00 8B ; room=84 neverUsed=00 bits=8B u...A.OL
1B72: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1B74: 87 ; CommonCommand_87
1B75: 01 01 ; 01 ADJECTIVES
1B77: 13 ; RED
1B78: 02 ; 02 SHORT NAME
1B79: 06 66 B1 09 15 A3 A0 ; RED DOOR
; Object_04 RedDoorB
1B80: 0B 11 ; Number=0B size=0011
1B82: 86 00 88 ; room=86 neverUsed=00 bits=88 u...A...
1B85: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1B87: 85 ; CommonCommand_85
1B88: 01 01 ; 01 ADJECTIVES
1B8A: 13 ; RED
1B8B: 02 ; 02 SHORT NAME
1B8C: 06 66 B1 09 15 A3 A0 ; RED DOOR
; Object_05 GreenDoorC
1B93: 0B 12 ; Number=0B size=0012
1B95: 88 00 8A ; room=88 neverUsed=00 bits=8A u...A.O.
1B98: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1B9A: 84 ; CommonCommand_84
1B9B: 01 01 ; 01 ADJECTIVES
1B9D: 14 ; GREEN
1B9E: 02 ; 02 SHORT NAME
1B9F: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_06 GreedDoorD
1BA7: 0B 12 ; Number=0B size=0012
1BA9: 87 00 88 ; room=87 neverUsed=00 bits=88 u...A...
1BAC: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1BAE: 86 ; CommonCommand_86
1BAF: 01 01 ; 01 ADJECTIVES
1BB1: 14 ; GREEN
1BB2: 02 ; 02 SHORT NAME
1BB3: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_07 RedDoorC
1BBB: 0B 11 ; Number=0B size=0011
1BBD: 87 00 8B ; room=87 neverUsed=00 bits=8B u...A.OL
1BC0: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1BC2: 87 ; CommonCommand_87
1BC3: 01 01 ; 01 ADJECTIVES
1BC5: 13 ; RED
1BC6: 02 ; 02 SHORT NAME
1BC7: 06 66 B1 09 15 A3 A0 ; RED DOOR
; Object_08 RedDoorD
1BCE: 0B 11 ; Number=0B size=0011
1BD0: 89 00 88 ; room=89 neverUsed=00 bits=88 u...A...
1BD3: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1BD5: 85 ; CommonCommand_85
1BD6: 01 01 ; 01 ADJECTIVES
1BD8: 13 ; RED
1BD9: 02 ; 02 SHORT NAME
1BDA: 06 66 B1 09 15 A3 A0 ; RED DOOR
; Object_09 GreenDoorE
1BE1: 0B 12 ; Number=0B size=0012
1BE3: 8B 00 88 ; room=8B neverUsed=00 bits=88 u...A...
1BE6: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1BE8: 84 ; CommonCommand_84
1BE9: 01 01 ; 01 ADJECTIVES
1BEB: 14 ; GREEN
1BEC: 02 ; 02 SHORT NAME
1BED: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_0A GreenDoorF
1BF5: 0B 12 ; Number=0B size=0012
1BF7: 8A 00 8A ; room=8A neverUsed=00 bits=8A u...A.O.
1BFA: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1BFC: 86 ; CommonCommand_86
1BFD: 01 01 ; 01 ADJECTIVES
1BFF: 14 ; GREEN
1C00: 02 ; 02 SHORT NAME
1C01: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_0B RedDoorE
1C09: 0B 11 ; Number=0B size=0011
1C0B: 8A 00 8B ; room=8A neverUsed=00 bits=8B u...A.OL
1C0E: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1C10: 87 ; CommonCommand_87
1C11: 01 01 ; 01 ADJECTIVES
1C13: 13 ; RED
1C14: 02 ; 02 SHORT NAME
1C15: 06 66 B1 09 15 A3 A0 ; RED DOOR
; Object_0C GreenDoorG
1C1C: 0B 12 ; Number=0B size=0012
1C1E: 8D 00 88 ; room=8D neverUsed=00 bits=88 u...A...
1C21: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1C23: 84 ; CommonCommand_84
1C24: 01 01 ; 01 ADJECTIVES
1C26: 14 ; GREEN
1C27: 02 ; 02 SHORT NAME
1C28: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_0D GreenDoorH
1C30: 0B 12 ; Number=0B size=0012
1C32: 8C 00 8A ; room=8C neverUsed=00 bits=8A u...A.O.
1C35: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1C37: 86 ; CommonCommand_86
1C38: 01 01 ; 01 ADJECTIVES
1C3A: 14 ; GREEN
1C3B: 02 ; 02 SHORT NAME
1C3C: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_0E RedDoorF
1C44: 0B 11 ; Number=0B size=0011
1C46: 8F 00 88 ; room=8F neverUsed=00 bits=88 u...A...
1C49: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1C4B: 85 ; CommonCommand_85
1C4C: 01 01 ; 01 ADJECTIVES
1C4E: 13 ; RED
1C4F: 02 ; 02 SHORT NAME
1C50: 06 66 B1 09 15 A3 A0 ; RED DOOR
; Object_0F BlueDoorA
1C57: 0B 11 ; Number=0B size=0011
1C59: 8F 00 8A ; room=8F neverUsed=00 bits=8A u...A.O.
1C5C: 02 ; 02 SHORT NAME
1C5D: 06 8F 4E 46 5E 44 A0 ; BLUE DOOR
1C64: 01 01 ; 01 ADJECTIVES
1C66: 15 ; BLUE
1C67: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1C69: 88 ; CommonCommand_88
; Object_10 BlueDoorB
1C6A: 0B 11 ; Number=0B size=0011
1C6C: 90 00 88 ; room=90 neverUsed=00 bits=88 u...A...
1C6F: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1C71: 89 ; CommonCommand_89
1C72: 01 01 ; 01 ADJECTIVES
1C74: 15 ; BLUE
1C75: 02 ; 02 SHORT NAME
1C76: 06 8F 4E 46 5E 44 A0 ; BLUE DOOR
; Object_11 BlueDoorC
1C7D: 0B 11 ; Number=0B size=0011
1C7F: 91 00 8A ; room=91 neverUsed=00 bits=8A u...A.O.
1C82: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1C84: 89 ; CommonCommand_89
1C85: 01 01 ; 01 ADJECTIVES
1C87: 15 ; BLUE
1C88: 02 ; 02 SHORT NAME
1C89: 06 8F 4E 46 5E 44 A0 ; BLUE DOOR
; Object_12 BlueDoorD
1C90: 0B 11 ; Number=0B size=0011
1C92: 94 00 88 ; room=94 neverUsed=00 bits=88 u...A...
1C95: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1C97: 88 ; CommonCommand_88
1C98: 01 01 ; 01 ADJECTIVES
1C9A: 15 ; BLUE
1C9B: 02 ; 02 SHORT NAME
1C9C: 06 8F 4E 46 5E 44 A0 ; BLUE DOOR
; Object_13 Player
1CA3: FF 42 ; Number=FF size=0042
1CA5: 88 00 80 ; room=88 neverUsed=00 bits=80 u.......
1CA8: 08 06 ; 08 TURN SCRIPT
1CAA: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
1CAC: 03 13 3A ; Command_03_IS_OBJECT_AT_LOCATION object=3A(Object 3A) location=13
1CAF: 9B ; CommonCommand_9B
1CB0: 0A 31 ; 0A UPON DEATH SCRIPT
1CB2: 0D 2F ; Command_0D_EXECUTE_LIST_WHILE_PASS size=47
1CB4: 1F ; Command_1F_PRINT_MESSAGE
1CB5: 29 C7 DE DB 16 CB B9 36 A1 B0 17 F4 ; YOU PASS OUT UNDER THAT LAST ATTACK. YOU
1CC1: 59 82 17 73 49 55 8B 03 BC 3B C0 AF ; AWAKEN IN YOUR CELL.
1CCD: 54 51 18 43 C2 0D D0 83 61 83 7A C7 ; .
1CD9: DE 85 AF 46 61 2E ; .
1CDF: 2C 13 ; Command_2C_SET_ACTIVE_OBJECT object=13(Player)
1CE1: 19 88 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=88
1CE3: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_14 RedKeyA
1CE7: 16 21 ; Number=16 size=0021
1CE9: 00 00 A0 ; room=00 neverUsed=00 bits=A0 u.C.....
1CEC: 03 12 ; 03 LONG DESCRIPTION SCRIPT
1CEE: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1CEF: 10 5F BE 5B B1 4B 7B 54 45 F3 5F BB ; THERE IS A RED KEY HERE.
1CFB: 85 9F 15 7F B1 ; .
1D00: 01 01 ; 01 ADJECTIVES
1D02: 13 ; RED
1D03: 02 ; 02 SHORT NAME
1D04: 05 66 B1 17 16 59 ; RED KEY
; Object_15 BluePillA
1D0A: 17 11 ; Number=17 size=0011
1D0C: 82 00 A0 ; room=82 neverUsed=00 bits=A0 u.C.....
1D0F: 03 01 ; 03 LONG DESCRIPTION SCRIPT
1D11: 9D ; CommonCommand_9D
1D12: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
1D14: B0 ; CommonCommand_B0
1D15: 02 ; 02 SHORT NAME
1D16: 06 8F 4E 52 5E 46 7A ; BLUE PILL
; Object_16 WindowHook
1D1D: 18 2C ; Number=18 size=002C
1D1F: 81 00 A0 ; room=81 neverUsed=00 bits=A0 u.C.....
1D22: 03 1D ; 03 LONG DESCRIPTION SCRIPT
1D24: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1D25: 1B 5F BE 5B B1 4B 7B 4E 45 11 A0 9B ; THERE IS A LONG HANDLE WINDOW HOOK HERE.
1D31: 15 46 98 59 5E 8E 7A 6B A1 81 74 CA ; .
1D3D: 83 2F 62 2E ; .
1D41: 02 ; 02 SHORT NAME
1D42: 08 50 D1 89 5B A9 15 8B 9F ; WINDOW HOOK
; Object_17 Cabinet
1D4B: 19 80 9C ; Number=19 size=009C
1D4E: 82 00 83 ; room=82 neverUsed=00 bits=83 u.....OL
1D51: 03 2A ; 03 LONG DESCRIPTION SCRIPT
1D53: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1D54: 28 03 A0 0F A0 F3 17 F3 8C 4B 7B 45 ; ON ONE WALL IS A CABINET. THE CABINET HAS A
1D60: 45 B3 46 76 98 56 F4 DB 72 04 53 8F ; TINY HOLE IN IT.
1D6C: 7A 0A BC 4B 49 56 45 A3 7A A9 15 DB ; .
1D78: 8B 83 7A 97 7B ; .
1D7D: 07 64 ; 07 COMMAND HANDLING IF FIRST NOUN
1D7F: 0E 62 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=98
1D81: 0D 23 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=35
1D83: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
1D85: 0A 42 ; Command_0A_COMPARE_TO_PHRASE_FORM val=42 phrase="42: UNLOCK WITH .......L u......."
1D87: 0A 3A ; Command_0A_COMPARE_TO_PHRASE_FORM val=3A phrase="3A: OPEN WITH ......O. u......."
1D89: 0A 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
1D8B: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1D8C: 19 C7 DE D3 14 E6 96 57 17 5B 61 6B ; YOU CAN'T SEEM TO UNLOCK THE CABINET.
1D98: BF 96 C5 5D 9E 82 17 45 5E B3 46 76 ; .
1DA4: 98 2E ; .
1DA6: 0D 3B ; Command_0D_EXECUTE_LIST_WHILE_PASS size=59
1DA8: 0E 04 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=4
1DAA: 0A 10 ; Command_0A_COMPARE_TO_PHRASE_FORM val=10 phrase="10: LOOK IN * u......."
1DAC: 0A 0B ; Command_0A_COMPARE_TO_PHRASE_FORM val=0B phrase="0B: LOOK AT * u......."
1DAE: 03 82 3B ; Command_03_IS_OBJECT_AT_LOCATION object=3B(RedKeyB) location=82
1DB1: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1DB2: 30 0C BA D0 47 91 7A 89 17 57 17 56 ; STRAINING TO SEE THROUGH THE TINY HOLE, YOU
1DBE: 5E F9 74 7A C4 82 17 56 5E A3 7A A9 ; CAN JUST MAKE OUT A RED KEY.
1DCA: 15 FE 8B 51 18 45 C2 83 48 F5 81 0F ; .
1DD6: BC 17 48 C7 16 03 BC 2F 17 0D 58 5F ; .
1DE2: 63 ; .
1DE3: 02 ; 02 SHORT NAME
1DE4: 05 04 53 8F 7A 54 ; CABINET
; Object_18 Refrigerator
1DEA: 1A 80 C9 ; Number=1A size=00C9
1DED: 92 00 8A ; room=92 neverUsed=00 bits=8A u...A.O.
1DF0: 03 2E ; 03 LONG DESCRIPTION SCRIPT
1DF2: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1DF3: 2C 83 7A 5F BE 99 16 C2 B3 95 5F 05 ; IN THE NORTHEAST CORNER OF THE ROOM THERE IS
1DFF: BC B8 A0 23 62 C3 9E 5F BE 39 17 DB ; A LARGE REFRIGERATOR
1E0B: 9F 5F BE 5B B1 4B 7B 4E 45 31 49 54 ; .
1E17: 5E 5C 60 77 79 D6 B0 A3 A0 ; .
1E20: 06 3D ; 06 COMMAND HANDLING IF SECOND NOUN
1E22: 0D 3B ; Command_0D_EXECUTE_LIST_WHILE_PASS size=59
1E24: 0A 0F ; Command_0A_COMPARE_TO_PHRASE_FORM val=0F phrase="0F: DROP IN u....... u......."
1E26: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
1E27: 0D 0C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=12
1E29: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
1E2B: A9 ; CommonCommand_A9
1E2C: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1E2D: 07 4B 7B C9 54 A6 B7 2E ; IS CLOSED.
1E35: A8 ; CommonCommand_A8
1E36: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1E37: 08 CE 65 0B 8E 36 A1 B8 16 ; FALLS OUT OF
1E40: A9 ; CommonCommand_A9
1E41: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1E42: 1A 1E A0 D6 9C DB 72 89 67 A3 A0 68 ; ONTO THE FLOOR BEFOREYOU CAN CLOSE IT.
1E4E: 4D AF A0 C7 DE D3 14 85 96 85 8D 4B ; .
1E5A: 5E 9B C1 ; .
1E5D: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
1E5E: 10 ; Command_10_DROP_OBJECT
1E5F: 07 4B ; 07 COMMAND HANDLING IF FIRST NOUN
1E61: 0D 49 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=73
1E63: 0A 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
1E65: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
1E66: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
1E68: 03 18 42 ; Command_03_IS_OBJECT_AT_LOCATION object=42(Object 42) location=18
1E6B: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
1E6C: 17 19 92 ; Command_17_MOVE_OBJECT_TO_LOCATION object=19(HamburgerMeat) location=92
1E6F: 17 42 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=42(Object 42) location=00
1E72: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1E73: 38 1F D1 9B 96 1B A1 5F A0 96 96 DB ; WHEN YOU OPEN THE REFRIGERATOR, SOME
1E7F: 72 68 B1 09 B2 2B 62 84 BF 15 EE E7 ; HAMBURGER MEAT FALLS OUT OF IT ONTO THE
1E8B: 9F 9B 15 BF 91 B7 B1 8F AF 96 5F 4B ; FLOOR.
1E97: 15 0D 8D C7 16 11 BC 8B 64 11 BC C9 ; .
1EA3: 9A 82 17 48 5E 81 8D 1B B5 ; .
1EAC: 02 ; 02 SHORT NAME
1EAD: 08 68 B1 09 B2 2B 62 84 BF ; REFRIGERATOR
; Object_19 HamburgerMeat
1EB6: 1B 6E ; Number=1B size=006E
1EB8: 00 00 A0 ; room=00 neverUsed=00 bits=A0 u.C.....
1EBB: 03 19 ; 03 LONG DESCRIPTION SCRIPT
1EBD: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1EBE: 17 5F BE 5B B1 4B 7B 3F B9 4A 5E 64 ; THERE IS SOME HAMBURGER MEAT HERE.
1ECA: 48 31 C6 23 62 23 92 0A BC 2F 62 2E ; .
1ED6: 06 16 ; 06 COMMAND HANDLING IF SECOND NOUN
1ED8: 0D 14 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=20
1EDA: 0A 0F ; Command_0A_COMPARE_TO_PHRASE_FORM val=0F phrase="0F: DROP IN u....... u......."
1EDC: 0E 10 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=16
1EDE: 0D 06 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=6
1EE0: 08 15 ; Command_08_COMPARE_OBJECT_TO_FIRST_NOUN object=15(BluePillA
1EE2: 17 15 19 ; Command_17_MOVE_OBJECT_TO_LOCATION object=15(BluePillA) location=19
1EE5: A0 ; CommonCommand_A0
1EE6: 0D 06 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=6
1EE8: 08 39 ; Command_08_COMPARE_OBJECT_TO_FIRST_NOUN object=39(BluePillB
1EEA: 17 39 19 ; Command_17_MOVE_OBJECT_TO_LOCATION object=39(BluePillB) location=19
1EED: A0 ; CommonCommand_A0
1EEE: 07 2A ; 07 COMMAND HANDLING IF FIRST NOUN
1EF0: 0D 28 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=40
1EF2: 0A 15 ; Command_0A_COMPARE_TO_PHRASE_FORM val=15 phrase="15: EAT * u....... * "
1EF4: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1EF5: 21 F4 4F AB A2 AB AD DB BD 41 6E 73 ; BURP! QUITE GOOD, BUT A LITTLE RARE FOR MY
1F01: 5D F6 4F 7B 14 96 8C FF BE 2B 17 5B ; TASTE.
1F0D: B1 04 68 7B 16 7B 17 FF B9 2E ; .
1F17: 17 19 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=19(HamburgerMeat) location=00
1F1A: 02 ; 02 SHORT NAME
1F1B: 0A 4F 72 F4 4F B4 6C 67 16 73 49 ; HAMBURGER MEAT
; Object_1A GuardDog
1F26: 08 81 03 ; Number=08 size=0103
1F29: 93 00 90 ; room=93 neverUsed=00 bits=90 u..P....
1F2C: 03 33 ; 03 LONG DESCRIPTION SCRIPT
1F2E: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
1F2F: 31 58 45 DB 78 35 A1 87 15 2E 49 09 ; A VICIOUS GUARD DOG IS CHAINED TO THE SOUTH
1F3B: 15 CB 6A C5 B5 4B 72 66 98 89 17 82 ; WALL BLOCKING THE SOUTH EXIT.
1F47: 17 55 5E 36 A1 19 71 46 48 B6 14 5D ; .
1F53: 9E 91 7A 82 17 55 5E 36 A1 07 71 96 ; .
1F5F: D7 2E ; .
1F61: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
1F63: A1 ; CommonCommand_A1
1F64: 06 01 ; 06 COMMAND HANDLING IF SECOND NOUN
1F66: A1 ; CommonCommand_A1
1F67: 0A 1C ; 0A UPON DEATH SCRIPT
1F69: 0D 1A ; Command_0D_EXECUTE_LIST_WHILE_PASS size=26
1F6B: 1F ; Command_1F_PRINT_MESSAGE
1F6C: 15 C7 DE 4F 24 63 16 C9 97 F3 5F 6B ; YOU'VE MANAGED TO KILL THE DOG.
1F78: BF 4E 86 16 8A DB 72 79 5B 2E ; .
1F82: 1E 1A 3C ; Command_1E_SWAP_OBJECTS objectA=1A(GuardDog) objectB=3C(DeadDog)
1F85: 08 80 94 ; 08 TURN SCRIPT
1F88: 0E 80 91 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=145
1F8B: 0D 7D ; Command_0D_EXECUTE_LIST_WHILE_PASS size=125
1F8D: 0A 09 ; Command_0A_COMPARE_TO_PHRASE_FORM val=09 phrase="09: ATTACK WITH ...P.... .v......"
1F8F: 1C 13 ; Command_1C_SET_VAR_OBJECT object=13 (Player)
1F91: 0B 77 ; Command_0B_SWITCH size=77
1F93: 05 55 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=55
1F95: 22 ; IF_NOT_JUMP address=1FB8
1F96: 0D 20 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=32
1F98: 1F ; Command_1F_PRINT_MESSAGE
1F99: 1C 5F BE 09 15 D6 6A 94 5F C3 B5 1B ; THE DOG TEARS AT YOUR LEG AND DRAWS BLOOD!
1FA5: BC 34 A1 3F 16 C3 6A 33 98 EB 5B CB ; .
1FB1: D2 89 4E 71 9E ; .
1FB6: 1D 06 ; Command_1D_ATTACK_OBJECT damage=06
1FB8: AF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=AF
1FB9: 26 ; IF_NOT_JUMP address=1FE0
1FBA: 0D 24 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=36
1FBC: 1F ; Command_1F_PRINT_MESSAGE
1FBD: 20 5F BE 09 15 C4 6A 7F 7B DB B5 34 ; THE DOG BITES YOUR ARM AND YOU CRINGE WITH
1FC9: A1 94 14 43 90 33 98 C7 DE E4 14 91 ; PAIN!
1FD5: 7A 59 5E 82 7B DB 16 81 7A ; .
1FDE: 1D 07 ; Command_1D_ATTACK_OBJECT damage=07
1FE0: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
1FE1: 28 ; IF_NOT_JUMP address=200A
1FE2: 1F ; Command_1F_PRINT_MESSAGE
1FE3: 26 5F BE 09 15 CE 6A 91 C5 4B 62 04 ; THE DOG LUNGES FOR YOUR NECK, BUT YOU PULL
1FEF: 68 51 18 23 C6 65 98 33 89 F6 4F 51 ; BACK IN TIME!
1FFB: 18 52 C2 46 C5 AB 14 8B 54 83 7A 8F ; .
2007: BE EB 5D ; .
200A: 1F ; Command_1F_PRINT_MESSAGE
200B: 10 41 1E C3 9E B9 6E B3 D1 41 D2 99 ; "WOOF GROWL WOOF WOOF!"
2017: 64 38 A0 E3 06 ; .
201C: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
2020: 02 ; 02 SHORT NAME
2021: 0A 5F BE D3 17 51 54 4B C6 79 5B ; THE VICIOUS DOG
; Object_1B GreenKeyA
202C: 16 24 ; Number=16 size=0024
202E: 8E 00 A0 ; room=8E neverUsed=00 bits=A0 u.C.....
2031: 03 14 ; 03 LONG DESCRIPTION SCRIPT
2033: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2034: 12 5F BE 5B B1 4B 7B 49 45 67 B1 8D ; THERE IS A GREEN KEY HERE.
2040: 96 3B 63 F4 72 DB 63 ; .
2047: 01 01 ; 01 ADJECTIVES
2049: 14 ; GREEN
204A: 02 ; 02 SHORT NAME
204B: 06 AF 6E 83 61 BB 85 ; GREEN KEY
; Object_1C RayA
2052: 03 81 60 ; Number=03 size=0160
2055: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
2058: 03 18 ; 03 LONG DESCRIPTION SCRIPT
205A: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
205B: 16 DB B0 57 17 75 61 89 17 AF 14 3B ; RAY SEEMS TO BE EYEING THE WALLS.
2067: 15 D0 60 D6 6A DB 72 0E D0 2F 8E ; .
2072: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
2076: 0B 81 2D ; 0B COMMAND HANDLING IF GIVEN COMMAND
2079: 0E 81 2A ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=298
207C: 0D 80 DF ; Command_0D_EXECUTE_LIST_WHILE_PASS size=223
207F: 0E 0A ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=10
2081: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
2083: 0A 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
2085: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
2087: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
2089: 0A 0A ; Command_0A_COMPARE_TO_PHRASE_FORM val=0A phrase="0A: LOOK * * * "
208B: 1F ; Command_1F_PRINT_MESSAGE
208C: 0F DB B0 2F 17 84 A6 0B C0 DB 72 10 ; RAY REPORTS HE CAN SEE
2098: 53 57 17 45 ; .
209C: 1C 38 ; Command_1C_SET_VAR_OBJECT object=38 (SYSTEM)
209E: 10 ; Command_10_DROP_OBJECT
209F: 2C 38 ; Command_2C_SET_ACTIVE_OBJECT object=38(SYSTEM)
20A1: 0E 80 B8 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=184
20A4: 0D 33 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=51
20A6: 01 3D ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=3D(SecretDoor)
20A8: 1F ; Command_1F_PRINT_MESSAGE
20A9: 2E 55 45 E4 5F 73 62 81 5B 8A AF 2F ; A SECRET DOOR HERE, WHICH MAY LEAD TO
20B5: 62 19 EE 85 73 0F 71 3B 4A E3 8B 16 ; ESCAPE. BESIDES THAT, THERE IS
20C1: 58 C7 9C 53 B7 FF A4 AF 14 46 B8 4B ; .
20CD: 62 5B BE 73 C1 5F BE 5B B1 4B 7B ; .
20D8: 0C ; Command_0C_FAIL
20D9: 0D 3D ; Command_0D_EXECUTE_LIST_WHILE_PASS size=61
20DB: 03 00 22 ; Command_03_IS_OBJECT_AT_LOCATION object=22(PicassoA) location=00
20DE: 03 88 1C ; Command_03_IS_OBJECT_AT_LOCATION object=1C(RayA) location=88
20E1: 1F ; Command_1F_PRINT_MESSAGE
20E2: 34 5B BE 04 BC 51 63 33 98 5F BE 99 ; THAT BEYOND THE NORTH WALL IS A POSSIBLE
20EE: 16 C2 B3 F3 17 F3 8C 4B 7B 52 45 E5 ; ESCAPE ROUTE. BESIDES THAT, THERE IS
20FA: A0 B6 78 47 5E 53 B7 DB A4 07 B3 FF ; .
2106: BD AF 14 46 B8 4B 62 5B BE 73 C1 5F ; .
2112: BE 5B B1 4B 7B ; .
2117: 0C ; Command_0C_FAIL
2118: 0D 06 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=6
211A: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
211C: 21 03 00 00 ; Command_21_EXECUTE_PHRASE phrase="03: EAST * * * " first=00(NONE) second=00(NONE)
2120: 0D 06 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=6
2122: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
2124: 21 04 00 00 ; Command_21_EXECUTE_PHRASE phrase="04: WEST * * * " first=00(NONE) second=00(NONE)
2128: 0D 06 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=6
212A: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
212C: 21 01 00 00 ; Command_21_EXECUTE_PHRASE phrase="01: NORTH * * * " first=00(NONE) second=00(NONE)
2130: 0D 06 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=6
2132: 0A 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
2134: 21 02 00 00 ; Command_21_EXECUTE_PHRASE phrase="02: SOUTH * * * " first=00(NONE) second=00(NONE)
2138: 1F ; Command_1F_PRINT_MESSAGE
2139: 22 06 9A 90 73 5B 70 B7 1C F3 B9 5B ; NOTHING. "MUST BE SOME LEAD-LINED WALLS!" HE
2145: 4D 3F B9 4E 5E 86 5F C3 EA 66 98 F3 ; SAYS.
2151: 17 0D 8D E3 06 DB 72 1B B7 5B BB ; .
215C: 2C 1C ; Command_2C_SET_ACTIVE_OBJECT object=1C(RayA)
215E: 0D 45 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=69
2160: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
2162: 0A 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
2164: 0A 42 ; Command_0A_COMPARE_TO_PHRASE_FORM val=42 phrase="42: UNLOCK WITH .......L u......."
2166: 0A 09 ; Command_0A_COMPARE_TO_PHRASE_FORM val=09 phrase="09: ATTACK WITH ...P.... .v......"
2168: 1F ; Command_1F_PRINT_MESSAGE
2169: 3B DB B0 63 16 B5 85 7B 14 67 66 7F ; RAY MAKES A FEEBLE ATTEMPT AND THEN DRAWS
2175: 4E 96 14 EF BD 33 A7 8E 48 82 17 83 ; BACK. "SORRY, I'VE BEEN RATHER ANEMIC
2181: 61 EB 5B CB D2 C5 4C 5B 89 A1 1D 83 ; LATELY!"
218D: B3 0B EE 4F 24 AF 14 83 61 D6 B0 F4 ; .
2199: 72 90 14 6B 61 CE 51 7F 49 F9 8E 22 ; .
21A5: 9A ; CommonCommand_9A
21A6: 08 06 ; 08 TURN SCRIPT
21A8: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
21AA: 9C ; CommonCommand_9C
21AB: 1C 1C ; Command_1C_SET_VAR_OBJECT object=1C (RayA)
21AD: 9E ; CommonCommand_9E
21AE: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
21B0: AB ; CommonCommand_AB
21B1: 02 ; 02 SHORT NAME
21B2: 02 DB B0 ; RAY
; Object_1D RayB
21B5: 03 80 AE ; Number=03 size=00AE
21B8: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
21BB: 03 80 A8 ; 03 LONG DESCRIPTION SCRIPT
21BE: 0D 80 A5 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=165
21C1: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
21C2: 80 9F 4F 45 83 48 83 7A 94 5A FB C0 ; A MAN IN DIRTY OVERALLS AND WEARING GOGGLES
21CE: 4F A1 CE B0 0B 8E 8E 48 F7 17 33 49 ; APPROACHES YOU AND INTRODUCES HIMSELF. "HI!
21DA: AB 98 39 6E BF 6D C3 B5 AC A6 05 9E ; MY NAME IS XRAY JOHNSON, BUT YOU CAN CALL ME
21E6: F5 72 51 18 43 C2 33 98 9E 7A F6 B2 ; RAY. I HAVE XRAY VISION, YOU KNOW. SAY, YOU
21F2: D7 C3 CA B5 75 7A 40 61 3C F4 79 73 ; BETTER HAVE THAT SPOT ON YOUR LEFT LUNG
21FE: 7B 16 8B 16 1B 92 4B 7B EB D8 4C DB ; CHECKED BY A DOCTOR!"
220A: 28 9F 40 B9 04 EE 73 C6 C7 DE D3 14 ; .
2216: 85 96 46 48 67 16 2B 17 DB E0 4A 77 ; .
2222: CF 49 2C 18 3B 4A 15 CB C0 7A 1B EE ; .
222E: 1B A1 19 87 5B D4 1B B7 1B EE 1B A1 ; .
223A: 76 4D F4 BD 9B 15 5B CA 5B BE 15 BC ; .
2246: 86 A6 C0 16 51 18 23 C6 E8 8B 0E BC ; .
2252: 91 C5 DA 14 DD 5F F3 5F 7B 50 46 45 ; .
225E: 66 9E A1 A0 22 ; .
2263: 1E 1C 1D ; Command_1E_SWAP_OBJECTS objectA=1C(RayA) objectB=1D(RayB)
; Object_1E NapoleanA
2266: 02 77 ; Number=02 size=0077
2268: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
226B: 03 01 ; 03 LONG DESCRIPTION SCRIPT
226D: 97 ; CommonCommand_97
226E: 02 ; 02 SHORT NAME
226F: 06 D2 97 BF 9F 03 A0 ; NAPOLEON
2276: 0B 58 ; 0B COMMAND HANDLING IF GIVEN COMMAND
2278: 0E 56 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=86
227A: 0D 53 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=83
227C: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
227E: 0A 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
2280: 0A 42 ; Command_0A_COMPARE_TO_PHRASE_FORM val=42 phrase="42: UNLOCK WITH .......L u......."
2282: 0A 09 ; Command_0A_COMPARE_TO_PHRASE_FORM val=09 phrase="09: ATTACK WITH ...P.... .v......"
2284: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
2285: 15 08 ; Command_15_CHECK_OBJECT_BITS bits=08 ....A...
2287: 1F ; Command_1F_PRINT_MESSAGE
2288: 46 D2 97 BF 9F 03 A0 AB 6E 8B 4F 96 ; NAPOLEON GRABS IT, BUT HE CAN'T BUDGE IT! HE
2294: 7B BF 14 0A BC 45 5E 85 48 04 BC 01 ; TURNS TO YOU AND MUMBLES SOMETHING ABOUT
22A0: C4 4B 5E AB BB DB 72 74 C0 8B 9A 6B ; BEING RATHER TIRED.
22AC: BF C7 DE 90 14 0F 58 64 C5 F5 8B 61 ; .
22B8: 17 36 92 90 73 C3 6A 07 4F 04 BC D0 ; .
22C4: 60 D4 6A 82 49 23 62 94 BE 17 60 ; .
22CF: 9A ; CommonCommand_9A
22D0: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
22D2: AB ; CommonCommand_AB
22D3: 08 06 ; 08 TURN SCRIPT
22D5: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
22D7: 9C ; CommonCommand_9C
22D8: 1C 1E ; Command_1C_SET_VAR_OBJECT object=1E (NapoleanA)
22DA: 9E ; CommonCommand_9E
22DB: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_1F Object 1F
22DF: 02 0B ; Number=02 size=000B
22E1: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
22E4: 03 06 ; 03 LONG DESCRIPTION SCRIPT
22E6: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
22E8: 96 ; CommonCommand_96
22E9: 1E 1E 1F ; Command_1E_SWAP_OBJECTS objectA=1E(NapoleanA) objectB=1F(Object 1F)
; Object_20 NapoleanB
22EC: 02 80 97 ; Number=02 size=0097
22EF: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
22F2: 03 01 ; 03 LONG DESCRIPTION SCRIPT
22F4: 97 ; CommonCommand_97
22F5: 02 ; 02 SHORT NAME
22F6: 06 D2 97 BF 9F 03 A0 ; NAPOLEON
22FD: 0B 78 ; 0B COMMAND HANDLING IF GIVEN COMMAND
22FF: 0E 76 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=118
2301: 0D 73 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=115
2303: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
2305: 0A 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
2307: 0A 42 ; Command_0A_COMPARE_TO_PHRASE_FORM val=42 phrase="42: UNLOCK WITH .......L u......."
2309: 0A 09 ; Command_0A_COMPARE_TO_PHRASE_FORM val=09 phrase="09: ATTACK WITH ...P.... .v......"
230B: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
230C: 15 08 ; Command_15_CHECK_OBJECT_BITS bits=08 ....A...
230E: 0E 66 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=102
2310: 0D 49 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=73
2312: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
2314: 1F ; Command_1F_PRINT_MESSAGE
2315: 0A D2 97 BF 9F 03 A0 AB 6E 8B 4F ; NAPOLEON GRABS
2320: A8 ; CommonCommand_A8
2321: 1F ; Command_1F_PRINT_MESSAGE
2322: 0C 8E 48 BF 14 0D BA D6 15 C2 16 81 ; AND BUSTS IT OPEN!
232E: 61 ; .
232F: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
2330: 0E 29 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=41
2332: 0D 25 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=37
2334: 08 3D ; Command_08_COMPARE_OBJECT_TO_FIRST_NOUN object=3D(SecretDoor
2336: 1F ; Command_1F_PRINT_MESSAGE
2337: 20 5F BE 57 17 AF 55 06 BC 44 A0 3F ; THE SECRET DOOR LEADS TO ESCAPE! YOU'VE MADE
2343: 16 0D 47 89 17 35 15 12 53 EB 5D C7 ; IT!
234F: DE 4F 24 63 16 DB 59 71 7B ; .
2358: 24 ; Command_24_ENDLESS_LOOP
2359: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
235A: 0C ; Command_0C_FAIL
235B: 0D 19 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=25
235D: 1F ; Command_1F_PRINT_MESSAGE
235E: 0E D2 97 BF 9F 03 A0 72 B1 BE A0 D6 ; NAPOLEON REPORTS THAT
236A: B5 56 72 ; .
236D: A8 ; CommonCommand_A8
236E: 1F ; Command_1F_PRINT_MESSAGE
236F: 06 4B 7B 5F A0 1B 9C ; IS OPEN.
2376: 9A ; CommonCommand_9A
2377: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
2379: AB ; CommonCommand_AB
237A: 08 06 ; 08 TURN SCRIPT
237C: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
237E: 9C ; CommonCommand_9C
237F: 1C 20 ; Command_1C_SET_VAR_OBJECT object=20 (NapoleanB)
2381: 9E ; CommonCommand_9E
2382: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_21 Object 21
2386: 02 0B ; Number=02 size=000B
2388: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
238B: 03 06 ; 03 LONG DESCRIPTION SCRIPT
238D: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
238F: 96 ; CommonCommand_96
2390: 1E 20 21 ; Command_1E_SWAP_OBJECTS objectA=20(NapoleanB) objectB=21(Object 21)
; Object_22 PicassoA
2393: 05 25 ; Number=05 size=0025
2395: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
2398: 03 01 ; 03 LONG DESCRIPTION SCRIPT
239A: 99 ; CommonCommand_99
239B: 02 ; 02 SHORT NAME
239C: 05 85 A5 65 49 4F ; PICASSO
23A2: 0B 01 ; 0B COMMAND HANDLING IF GIVEN COMMAND
23A4: 9A ; CommonCommand_9A
23A5: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
23A7: AB ; CommonCommand_AB
23A8: 08 0C ; 08 TURN SCRIPT
23AA: 0E 0A ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=10
23AC: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
23AE: 9C ; CommonCommand_9C
23AF: 1C 22 ; Command_1C_SET_VAR_OBJECT object=22 (PicassoA)
23B1: 9E ; CommonCommand_9E
23B2: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
23B3: 1C 3F ; Command_1C_SET_VAR_OBJECT object=3F (PaintedDoorB)
23B5: 10 ; Command_10_DROP_OBJECT
23B6: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_23 Object 23
23BA: 05 0B ; Number=05 size=000B
23BC: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
23BF: 03 06 ; 03 LONG DESCRIPTION SCRIPT
23C1: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
23C3: 98 ; CommonCommand_98
23C4: 1E 22 23 ; Command_1E_SWAP_OBJECTS objectA=22(PicassoA) objectB=23(Object 23)
; Object_24 PicassoB
23C7: 05 34 ; Number=05 size=0034
23C9: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
23CC: 03 01 ; 03 LONG DESCRIPTION SCRIPT
23CE: 99 ; CommonCommand_99
23CF: 02 ; 02 SHORT NAME
23D0: 05 85 A5 65 49 4F ; PICASSO
23D6: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
23D8: AB ; CommonCommand_AB
23D9: 0B 01 ; 0B COMMAND HANDLING IF GIVEN COMMAND
23DB: 9A ; CommonCommand_9A
23DC: 08 1B ; 08 TURN SCRIPT
23DE: 0E 19 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=25
23E0: 0D 08 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=8
23E2: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
23E3: 03 88 24 ; Command_03_IS_OBJECT_AT_LOCATION object=24(PicassoB) location=88
23E6: 1C 3F ; Command_1C_SET_VAR_OBJECT object=3F (PaintedDoorB)
23E8: 10 ; Command_10_DROP_OBJECT
23E9: 0C ; Command_0C_FAIL
23EA: 0D 07 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=7
23EC: 03 88 24 ; Command_03_IS_OBJECT_AT_LOCATION object=24(PicassoB) location=88
23EF: 17 3E 88 ; Command_17_MOVE_OBJECT_TO_LOCATION object=3E(PaintedDoorA) location=88
23F2: 0C ; Command_0C_FAIL
23F3: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
23F5: 9C ; CommonCommand_9C
23F6: 1C 24 ; Command_1C_SET_VAR_OBJECT object=24 (PicassoB)
23F8: 9E ; CommonCommand_9E
23F9: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_25 Object 25
23FD: 05 0B ; Number=05 size=000B
23FF: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
2402: 03 06 ; 03 LONG DESCRIPTION SCRIPT
2404: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
2406: 98 ; CommonCommand_98
2407: 1E 24 25 ; Command_1E_SWAP_OBJECTS objectA=24(PicassoB) objectB=25(Object 25)
; Object_26 MerlinA
240A: 06 80 FD ; Number=06 size=00FD
240D: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
2410: 03 25 ; 03 LONG DESCRIPTION SCRIPT
2412: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2413: 23 34 92 90 8C D5 15 8F 16 2C 49 B3 ; MERLIN IS NEARBY, CHANTING AND GESTICULATING
241F: E0 1B 54 C3 9A AB 98 8E 48 77 15 03 ; AT YOU.
242B: BA 2E 56 83 49 AB 98 73 49 C7 DE 2E ; .
2437: 02 ; 02 SHORT NAME
2438: 04 34 92 90 8C ; MERLIN
243D: 0B 01 ; 0B COMMAND HANDLING IF GIVEN COMMAND
243F: 9A ; CommonCommand_9A
2440: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
2442: AB ; CommonCommand_AB
2443: 08 80 C0 ; 08 TURN SCRIPT
2446: 0E 80 BD ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=189
2449: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
244B: 9C ; CommonCommand_9C
244C: 1C 26 ; Command_1C_SET_VAR_OBJECT object=26 (MerlinA)
244E: 9E ; CommonCommand_9E
244F: 0B 80 B4 ; Command_0B_SWITCH size=B4
2452: 05 08 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=08
2454: 30 ; IF_NOT_JUMP address=2485
2455: 1F ; Command_1F_PRINT_MESSAGE
2456: 2E 34 92 90 8C 53 17 6E DF 6E 13 71 ; MERLIN SAYS, "DEMON, I COMMAND YOU! REVEAL
2462: 61 F3 9B 45 77 EF 9F 8E 48 51 18 EB ; TO ME THE DOOR OF ESCAPE!"
246E: C1 78 B1 8E 5F 89 17 67 16 82 17 46 ; .
247A: 5E 44 A0 B8 16 35 15 12 53 EC 5D ; .
2485: 10 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=10
2486: 42 ; IF_NOT_JUMP address=24C9
2487: 1F ; Command_1F_PRINT_MESSAGE
2488: 40 34 92 90 8C 77 15 0F BA 75 B1 96 ; MERLIN GESTURES AT YOU AND SAYS, "I CAN'T
2494: 14 51 18 43 C2 33 98 1B B7 33 BB FB ; UNDERSTAND IT. I MUST HAVE CONJURED THE
24A0: 1B 10 53 F3 23 8E C5 3D 62 50 BD 0B ; WRONG DEMON."
24AC: 58 9B C1 4F 77 66 C6 9B 15 5B CA 40 ; .
24B8: 55 F4 81 F3 5F 5F BE 04 18 11 A0 FF ; .
24C4: 14 C0 93 63 F4 ; .
24C9: 18 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=18
24CA: 3B ; IF_NOT_JUMP address=2506
24CB: 1F ; Command_1F_PRINT_MESSAGE
24CC: 39 34 92 90 8C E9 16 9E 7A C3 B5 1B ; MERLIN POINTS AT YOU, "EYE OF NEUTRON, WART
24D8: BC 3E A1 6F 13 1B DD C3 9E 77 98 F9 ; OF HOG, DEMON DO THY WILL, THEN BE GONE!"
24E4: BF F3 9B 14 D0 11 BC 8A 64 0E 9F FF ; .
24F0: 14 C0 93 09 15 82 17 59 DB 46 7A 16 ; .
24FC: EE F0 72 AF 14 81 15 59 98 22 ; .
2506: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_27 MerlinB
250A: 06 6E ; Number=06 size=006E
250C: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
250F: 03 69 ; 03 LONG DESCRIPTION SCRIPT
2511: 0D 67 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=103
2513: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2514: 62 83 48 8D 48 30 79 0F BC 83 48 83 ; AN ANCIENT MAN IN A BLACK CLOAK AND POINTED
2520: 7A 44 45 45 8B C5 83 73 8D C3 83 33 ; HAT GESTURES AT YOU, "DEMON! I HAVE SUMMONED
252C: 98 7B A6 BF 9A 0A 58 73 49 B5 6C 74 ; YOU! I AM YOUR MASTER, MERLIN! YOU MUST OBEY
2538: C0 4B 62 73 49 C7 DE FC ED EF 59 01 ; MY COMMAND!"
2544: A0 BB 15 58 72 55 5E 6F C5 0F A0 1B ; .
2550: 58 19 A1 BB 15 5B 48 C7 DE 8F AF 66 ; .
255C: 49 46 62 67 16 83 B2 2B 96 C7 DE 77 ; .
2568: 16 F3 B9 2F 9E 4F DB 45 DB EF 9F 8E ; .
2574: 48 E3 06 ; .
2577: 1E 26 27 ; Command_1E_SWAP_OBJECTS objectA=26(MerlinA) objectB=27(MerlinB)
; Object_28 UnconsciousDoctorA
257A: 07 54 ; Number=07 size=0054
257C: 00 00 80 ; room=00 neverUsed=00 bits=80 u.......
257F: 03 27 ; 03 LONG DESCRIPTION SCRIPT
2581: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2582: 25 5F BE 7C 13 8E 5F 86 19 66 9E A3 ; THE "REAL" DOCTOR STILL LIES UNCONSCIOUS IN
258E: A0 03 BA F3 8C 87 8C D7 B5 21 98 95 ; THE CORNER.
259A: 9A C7 7A CB B5 96 96 DB 72 44 55 74 ; .
25A6: 98 2E ; .
25A8: 02 ; 02 SHORT NAME
25A9: 0C 8D C5 0D A0 C7 7A C6 B5 66 9E A3 ; UNCONCIOUS DOCTOR
25B5: A0 ; .
25B6: 0B 14 ; 0B COMMAND HANDLING IF GIVEN COMMAND
25B8: 1F ; Command_1F_PRINT_MESSAGE
25B9: 12 5F BE 09 15 09 56 8B AF D7 B5 21 ; THE DOCTOR IS UNCONSCIOUS.
25C5: 98 95 9A C7 7A 5B BB ; .
25CC: 09 02 46 01 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=01
; Object_29 UnconsciousDoctorB
25D0: 07 80 F5 ; Number=07 size=00F5
25D3: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
25D6: 03 80 EF ; 03 LONG DESCRIPTION SCRIPT
25D9: 0D 80 EC ; Command_0D_EXECUTE_LIST_WHILE_PASS size=236
25DC: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
25DD: 80 E6 5F BE 5B B1 4B 7B 4F 45 83 48 ; THERE IS A MAN IN A STRAIT JACKET IN THE
25E9: 83 7A 55 45 EB BF 73 7B C5 7E B6 85 ; CORNER. HE LOOKS UP AT YOU AND MUMBLES,
25F5: D0 15 82 17 45 5E B8 A0 47 62 9F 15 ; "OH...IT IS TERRIBLE...THE DOCTOR HAS BECOME
2601: 49 16 A5 9F B2 17 96 14 51 18 43 C2 ; THE PATIENT AND THE PATIENT THE
260D: 33 98 AF 94 7F 4E 33 BB FA 1C FF F9 ; DOCTOR...LISTEN TO ME...I AM THE
2619: 73 7B 4B 7B F4 BD 04 B2 FF 8B F6 F9 ; DOCTOR...YOU MUST GO TO THE AUTHORITIES AND
2625: DB 72 75 5B 84 BF 9B 15 C4 B5 E1 5F ; TELL THEM OF THIS TRAVESTY! HURRY, BEFORE IT
2631: 1B 92 5F BE DB 16 87 BE B3 9A 8E 48 ; IS TOO LATE." HIS EYES ROLL BACK INTO HIS
263D: 82 17 52 5E 83 49 9E 61 82 17 46 5E ; HEAD AND HE PASSES OUT.
2649: 66 9E C7 A0 EE F9 66 7B 83 61 6B BF ; .
2655: 3F 92 EB F9 8F 14 82 17 46 5E 66 9E ; .
2661: C7 A0 FB F9 1B A1 B5 94 09 BC D6 9C ; .
266D: D6 9C DB 72 B6 49 84 74 83 7B 4B 62 ; .
2679: 8E 48 7F 17 F3 8C 5F BE 51 90 96 64 ; .
2685: 95 73 8C 17 CF 49 13 BA CA 06 3C C6 ; .
2691: B3 E0 68 4D AF A0 D6 15 D5 15 89 17 ; .
269D: CE 9C 7F 49 63 F4 95 73 3B 15 4B 62 ; .
26A9: FE B2 04 8A DD 46 D0 15 6B BF 95 73 ; .
26B5: 9F 15 F3 46 8E 48 9F 15 DB 16 D7 B9 ; .
26C1: D1 B5 97 C6 ; .
26C5: 1E 28 29 ; Command_1E_SWAP_OBJECTS objectA=28(UnconsciousDoctorA) objectB=29(UnconsciousDoctorB)
; Object_2A HoudiniA
26C8: 04 81 0A ; Number=04 size=010A
26CB: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
26CE: 03 29 ; 03 LONG DESCRIPTION SCRIPT
26D0: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
26D1: 27 87 74 90 5A 4B 77 D9 B5 16 B2 90 ; HOUDINI IS WRITHING. "I'LL BE DOWN FROM HERE
26DD: 73 5B 70 FD 1B F3 8C 5B 4D 89 5B 88 ; IN A MINUTE!"
26E9: 96 FF B2 9F 15 5B B1 83 7A 4F 45 9F ; .
26F5: 7A D9 BD 22 ; .
26F9: 02 ; 02 SHORT NAME
26FA: 05 87 74 90 5A 49 ; HOUDINI
2700: 07 80 CB ; 07 COMMAND HANDLING IF FIRST NOUN
2703: 0D 80 C8 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=200
2706: 0E 04 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=4
2708: 0A 48 ; Command_0A_COMPARE_TO_PHRASE_FORM val=48 phrase="48: LOWER * u....... * "
270A: 0A 12 ; Command_0A_COMPARE_TO_PHRASE_FORM val=12 phrase="12: PULL * u....... * "
270C: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
270D: 80 BC C7 DE 3F 16 0A BC 26 A1 93 7A ; YOU LET HOUDINI DOWN, BUT YOU ARE UNABLE TO
2719: 09 15 26 D2 BF 14 1B BC 1B A1 2F 49 ; REMOVE HIS STRAIT JACKET. HOUDINI SAYS, "YOU
2725: B0 17 B6 46 56 5E D4 9C 71 61 5B CA ; DIDN'T HAVE TO DO THAT! I WOULD HAVE BEEN
2731: 95 73 66 17 CB B0 0C BC DD 46 97 62 ; DOWN IN A MINUTE. BUT I'LL STILL TAKE YOU
273D: A9 15 03 C4 FB 98 1B B7 33 BB 91 1E ; WITH ME WHEN I ESCAPE, JUST AS SOON AS I GET
2749: 46 C2 08 79 F3 23 58 72 56 5E C6 9C ; OUT OF THIS THING!" HE BEGINS WRESTLING WITH
2755: D6 9C 56 72 CB 06 01 18 3E C5 9B 15 ; HIS STRAIT JACKET.
2761: 5B CA 67 4D 86 96 80 A1 D0 15 7B 14 ; .
276D: D0 92 7F C6 44 F4 73 C6 9E 77 15 8A ; .
2779: 8E BE 16 8A 17 48 51 18 59 C2 82 7B ; .
2785: 67 16 FA 17 83 61 47 77 53 B7 FE A4 ; .
2791: FF 15 F3 B9 4B 49 41 B9 83 96 CB B5 ; .
279D: 77 15 11 BC 73 C6 C3 9E 63 BE D6 B5 ; .
27A9: 90 73 6C 6A 9F 15 AF 14 50 6D D9 B5 ; .
27B5: 75 B1 03 BF AB 98 56 D1 0A 71 4B 7B ; .
27C1: 0C BA D6 47 EB 15 97 54 9B C1 ; .
27CB: 1E 2A 2C ; Command_1E_SWAP_OBJECTS objectA=2A(HoudiniA) objectB=2C(HoudiniC)
27CE: 0B 01 ; 0B COMMAND HANDLING IF GIVEN COMMAND
27D0: 9A ; CommonCommand_9A
27D1: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_2B HoudiniB
27D5: 04 80 D9 ; Number=04 size=00D9
27D8: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
27DB: 03 80 D3 ; 03 LONG DESCRIPTION SCRIPT
27DE: 0D 80 D0 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=208
27E1: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
27E2: 80 CA 5F BE 5B B1 4B 7B 48 45 98 C5 ; THERE IS A FUNNY LOOKING MAN HANGING TIED
27EE: 4E DB 3D A0 91 7A 63 16 8A 96 91 48 ; WITH A ROPE BY HIS FEET TO THE CEILING. HE
27FA: 91 7A 83 17 F3 5F 56 D1 03 71 39 17 ; IS WEARING A STRAIT JACKET. HE TURNS HIS
2806: DB A4 7B 50 95 73 4F 15 73 62 6B BF ; HEAD TOWARD YOU, "HELLO! I AM THE GREAT
2812: 5F BE D7 14 43 7A CF 98 9F 15 D5 15 ; HOUDINI! NO BONDS CAN HOLD ME, NO LOCKS CAN
281E: F7 17 33 49 AB 98 55 45 EB BF 73 7B ; RESIST ME! WAIT, LET ME SHOW YOU! I CAN GET
282A: C5 7E B6 85 4A F4 56 5E 38 C6 CA B5 ; US BOTH OUT OF THIS PLACE!" HE BEGINS
2836: 4B 7B E3 72 16 58 73 A1 33 B1 C7 DE ; WRIGGLING.
2842: FC ED EE 72 69 8D BB 15 5B 48 5F BE ; .
284E: 84 15 96 5F A9 15 03 C4 F9 98 99 16 ; .
285A: B9 14 4D 98 D3 14 8A 96 BE 9F 67 16 ; .
2866: 10 EE CE 9C 5D 9E C5 B5 83 48 75 B1 ; .
2872: 66 7B 67 16 D9 06 D6 47 0E EE 73 62 ; .
287E: 1B 92 29 B8 DB CE 19 A1 BB 15 10 53 ; .
288A: 77 15 17 BC C4 B5 02 A1 C7 16 11 BC ; .
2896: 96 64 95 73 E6 16 D7 46 E3 06 DB 72 ; .
28A2: 69 4D 9D 7A 04 18 79 79 90 8C 5B 70 ; .
28AE: 1E 2A 2B ; Command_1E_SWAP_OBJECTS objectA=2A(HoudiniA) objectB=2B(HoudiniB)
; Object_2C HoudiniC
28B1: 04 80 93 ; Number=04 size=0093
28B4: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
28B7: 03 36 ; 03 LONG DESCRIPTION SCRIPT
28B9: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
28BA: 34 87 74 90 5A 4B 77 D9 B5 75 B1 03 ; HOUDINI IS WRESTLING WITH HIS STRAIT JACKET.
28C6: BF AB 98 56 D1 0A 71 4B 7B 0C BA D6 ; "I'LL BE OUT OF THIS IN NO TIME!"
28D2: 47 EB 15 97 54 9B C1 FD 1B F3 8C 5B ; .
28DE: 4D 36 A1 B8 16 82 17 4B 7B 83 7A EB ; .
28EA: 99 8F BE EC 5D ; .
28EF: 02 ; 02 SHORT NAME
28F0: 05 87 74 90 5A 49 ; HOUDINI
28F6: 08 45 ; 08 TURN SCRIPT
28F8: 0E 43 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=67
28FA: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
28FC: 9C ; CommonCommand_9C
28FD: 1C 2C ; Command_1C_SET_VAR_OBJECT object=2C (HoudiniC)
28FF: 9E ; CommonCommand_9E
2900: 0B 3B ; Command_0B_SWITCH size=3B
2902: 05 08 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=08
2904: 1A ; IF_NOT_JUMP address=291F
2905: 1F ; Command_1F_PRINT_MESSAGE
2906: 18 87 74 90 5A 4F 77 64 C5 F5 8B FC ; HOUDINI MUMBLES, "ANY MINUTE NOW..."
2912: ED A3 48 6B 16 F6 9A 50 5E 8F A1 DC ; .
291E: F9 ; .
291F: 10 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=10
2920: 1C ; IF_NOT_JUMP address=293D
2921: 1F ; Command_1F_PRINT_MESSAGE
2922: 1A 87 74 90 5A 46 77 DE 5F 2F 49 33 ; HOUDINI DECLARES, "I'VE ALMOST GOT IT!"
292E: BB FD 1B 5B CA 47 48 E6 A0 81 15 0B ; .
293A: BC AC BB ; .
293D: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
293F: AB ; CommonCommand_AB
2940: 0B 01 ; 0B COMMAND HANDLING IF GIVEN COMMAND
2942: 9A ; CommonCommand_9A
2943: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_2D Woman
2947: 01 81 CA ; Number=01 size=01CA
294A: 8E 00 90 ; room=8E neverUsed=00 bits=90 u..P....
294D: 03 60 ; 03 LONG DESCRIPTION SCRIPT
294F: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2950: 5E 5F BE 5B B1 4B 7B 58 45 43 62 3B ; THERE IS A VERY LARGE WOMAN DRESSED IN A
295C: 16 B7 B1 01 18 90 91 0C 15 65 62 F3 ; UNIFORM HERE. SHE LOOKS LIKE THE ROLLER
2968: 5F 83 7A 57 45 08 99 B7 A0 9F 15 7F ; DERBY QUEEN. SHE HAS A JAGGED SCAR JUST
2974: B1 5A 17 4E 5E 3D A0 CE B5 17 7A 82 ; BELOW HER HAIRLINE.
2980: 17 54 5E C6 9F 23 62 F4 59 7B 50 A7 ; .
298C: AD A7 61 5A 17 4A 5E 4B 49 4C 45 79 ; .
2998: 47 F3 5F 53 B7 8C AF 66 C6 AF 14 89 ; .
29A4: 8D 9F 15 8A AF D4 47 90 8C DB 63 ; .
29AF: 02 ; 02 SHORT NAME
29B0: 06 5F BE 9F 16 97 B3 ; THE NURSE
29B7: 0B 01 ; 0B COMMAND HANDLING IF GIVEN COMMAND
29B9: 9A ; CommonCommand_9A
29BA: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
29BC: AB ; CommonCommand_AB
29BD: 08 81 50 ; 08 TURN SCRIPT
29C0: 0D 81 4D ; Command_0D_EXECUTE_LIST_WHILE_PASS size=333
29C3: 01 13 ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=13(Player)
29C5: 0E 81 48 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=328
29C8: 0D 71 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=113
29CA: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
29CC: 1F ; Command_1F_PRINT_MESSAGE
29CD: 6D 1F B8 8F 17 DD B2 89 17 14 D0 1B ; SHE TURNS TOWARD YOU AND SAYS, "OH! YOU MUST
29D9: 58 1B A1 8E 48 53 17 6E DF 79 13 AB ; BE HERE FOR TREATMENT. JUST COME RIGHT OVER
29E5: 70 C7 DE 77 16 F3 B9 5B 4D F4 72 48 ; HERE..." SHE GESTURES TOWARD SOMETHING WHICH
29F1: 5E A3 A0 EF BF 87 49 9E 61 4C F4 66 ; LOOKS LIKE AN ELECTRIC COUCH.
29FD: C6 E1 14 1B 92 09 B2 33 75 4F A1 8A ; .
2A09: AF 2F 62 FF F9 95 19 DB 72 B5 6C 74 ; .
2A15: C0 4B 62 89 BF 2E 49 61 17 36 92 90 ; .
2A21: 73 D9 6A 85 73 0E 71 3D A0 CE B5 17 ; .
2A2D: 7A 90 14 2E 15 E6 5F 05 B2 E1 14 DA ; .
2A39: C3 2E ; .
2A3B: 0D 80 D2 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=210
2A3E: 1F ; Command_1F_PRINT_MESSAGE
2A3F: 73 91 1E A4 C2 50 5E F3 A0 41 55 F4 ; "YOU'RE NOT COOPERATING...", SAYS THE NURSE
2A4B: A4 83 49 CF 98 DC F9 15 EE 55 4A 82 ; AS SHE LUNGES ACROSS THE ROOM AND TACKLES
2A57: 17 50 5E 3D C6 43 5E D5 B5 DB 72 70 ; YOU. SHE DRAGS YOU TO THE COUCH AND STRAPS
2A63: 8E B5 6C 85 14 05 B3 D6 B5 DB 72 01 ; YOU IN. THEN SHE PULLS AN OMINOUS LEVER AND
2A6F: B3 43 90 33 98 45 BD BF 86 DB B5 3F ; .
2A7B: A1 5A 17 46 5E C9 B0 DB B5 1B A1 6B ; .
2A87: BF 5F BE E1 14 DA C3 90 14 15 58 EB ; .
2A93: BF 0B A7 C7 DE D0 15 56 F4 F0 72 5A ; .
2A9F: 17 52 5E 46 C5 C3 B5 91 96 D0 92 35 ; .
2AAB: A1 3F 16 74 CA 90 14 44 ; .
2AB3: 0E 24 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=36
2AB5: 03 13 3A ; Command_03_IS_OBJECT_AT_LOCATION object=3A(Object 3A) location=13
2AB8: 1F ; Command_1F_PRINT_MESSAGE
2AB9: 1F C7 DE 3A 15 F4 A4 30 79 9B 53 5F ; YOU EXPERIENCE THE ULTIMATE AGONY!
2AC5: BE AE 17 8F BE 7F 49 89 14 23 A0 CF ; MERCIFULLY,
2AD1: 06 2D 62 5F 79 13 8D 2C ; .
2AD9: 1F ; Command_1F_PRINT_MESSAGE
2ADA: 0A C7 DE DB 16 CB B9 36 A1 FF F9 ; YOU PASS OUT...
2AE5: 2C 13 ; Command_2C_SET_ACTIVE_OBJECT object=13(Player)
2AE7: 19 88 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=88
2AE9: 17 1B 8E ; Command_17_MOVE_OBJECT_TO_LOCATION object=1B(GreenKeyA) location=8E
2AEC: 17 41 8C ; Command_17_MOVE_OBJECT_TO_LOCATION object=41(GreenKeyB) location=8C
2AEF: 1C 05 ; Command_1C_SET_VAR_OBJECT object=05 (GreenDoorC)
2AF1: 0E 03 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=3
2AF3: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
2AF5: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
2AF6: 1C 06 ; Command_1C_SET_VAR_OBJECT object=06 (GreedDoorD)
2AF8: 0E 04 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=4
2AFA: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2AFB: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
2AFD: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
2AFE: 1F ; Command_1F_PRINT_MESSAGE
2AFF: 10 C7 DE 99 14 17 48 8B 96 9B 96 34 ; YOU AWAKEN IN YOUR CELL.
2B0B: A1 D7 14 17 8D ; .
2B10: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_2E Doctor
2B14: 07 81 AE ; Number=07 size=01AE
2B17: 00 00 90 ; room=00 neverUsed=00 bits=90 u..P....
2B1A: 03 01 ; 03 LONG DESCRIPTION SCRIPT
2B1C: 9F ; CommonCommand_9F
2B1D: 02 ; 02 SHORT NAME
2B1E: 07 5F BE 09 15 09 56 52 ; THE DOCTOR
2B26: 08 81 95 ; 08 TURN SCRIPT
2B29: 0E 81 92 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=402
2B2C: 0D 1C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=28
2B2E: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2B2F: 01 13 ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=13(Player)
2B31: 9B ; CommonCommand_9B
2B32: 1F ; Command_1F_PRINT_MESSAGE
2B33: 15 C7 DE 9F 15 23 49 50 45 55 9F 43 ; YOU HEAR A NOISE AND YOU NOTICE
2B3F: 5E 33 98 C7 DE 99 16 85 BE 45 ; .
2B49: 9F ; CommonCommand_9F
2B4A: 0D 81 71 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=369
2B4D: 01 13 ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=13(Player)
2B4F: 1F ; Command_1F_PRINT_MESSAGE
2B50: 0C 5F BE 09 15 09 56 95 AF 55 4A FB ; THE DOCTOR SAYS,
2B5C: ED ; .
2B5D: 0B 81 5E ; Command_0B_SWITCH size=15E
2B60: 05 33 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=33
2B62: 42 ; IF_NOT_JUMP address=2BA5
2B63: 1F ; Command_1F_PRINT_MESSAGE
2B64: 40 91 1E 43 C2 5B B1 06 9A AF 14 91 ; "YOU ARE NOT BEING A GOOD LITTLE PATIENT!
2B70: 7A 7B 14 41 6E 0E 58 8E 7B DB 8B 56 ; NOW RETURN TO YOUR CELL, OR YOU WILL NEED A
2B7C: A4 30 79 AB BB 09 9A 2F 17 74 C0 96 ; LOBOTOMY!"
2B88: 96 DB 9C 34 A1 D7 14 16 8D C4 16 51 ; .
2B94: 18 59 C2 46 7A 8F 16 F3 5F 4E 45 39 ; .
2BA0: 9E 7F BF EC DA ; .
2BA5: 66 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=66
2BA6: 20 ; IF_NOT_JUMP address=2BC7
2BA7: 1F ; Command_1F_PRINT_MESSAGE
2BA8: 1E FB 1B B9 6E D6 CE 2F 7B 11 58 86 ; "I GROW TIRED OF DEALING WITH YOU
2BB4: 64 8E 5F 91 7A FB 17 53 BE C7 DE D0 ; INFERIORS!"
2BC0: 15 74 66 C4 7A 6C B5 ; .
2BC7: 99 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=99
2BC8: 22 ; IF_NOT_JUMP address=2BEB
2BC9: 1F ; Command_1F_PRINT_MESSAGE
2BCA: 20 3A 1E 73 49 2F 49 51 18 46 C2 50 ; "WHAT ARE YOU DOING HERE? GO WHERE YOU
2BD6: 9F CA 6A 2F 62 89 00 D9 9C F4 72 5B ; BELONG!"
2BE2: 5E 1B A1 6E 4D 11 A0 E3 06 ; .
2BEB: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
2BEC: 80 D0 ; IF_NOT_JUMP address=2CBE
2BEE: 0D 80 CD ; Command_0D_EXECUTE_LIST_WHILE_PASS size=205
2BF1: 1F ; Command_1F_PRINT_MESSAGE
2BF2: 80 B4 FD 1B 43 90 6B 68 F3 78 9F 77 ; "I'M AFRAID I'M GOING TO HAVE TO GIVE YOU A
2BFE: 81 15 91 7A 89 17 9B 15 5B CA 6B BF ; FRONTAL LOBOTOMY!" HE STICKS YOU WITH HIS
2C0A: 58 6D 5B 5E 1B A1 48 45 00 B3 4E BD ; HYPO AND YOU PASS OUT. WHEN YOU AWAKEN, YOU
2C16: 49 16 06 4F FB 9F E3 06 DB 72 03 BA ; FEEL SOMEWHAT INDIFFERENT TO YOUR
2C22: A5 54 51 18 59 C2 82 7B A3 15 CA B5 ; SURROUNDINGS. YOU NOTICE BLOOD ON YOUR GOWN,
2C2E: E9 DE 90 14 1B 58 1B A1 55 A4 D1 B5 ; BUT IT DOESN'T SEEM TO BOTHER YOU. YOU FEEL
2C3A: 97 C6 FA 17 83 61 C7 DE 99 14 17 48 ; LIKE WANDERING...
2C46: F3 9B C7 DE 4F 15 33 61 3F B9 FA 62 ; .
2C52: 73 49 8E 7A 50 79 2F 62 B3 9A 6B BF ; .
2C5E: C7 DE 95 AF 3C C6 30 A1 90 5A EF 6E ; .
2C6A: 51 18 50 C2 03 A1 9B 53 89 4E 73 9E ; .
2C76: 03 A0 C7 DE 89 AF 80 A1 04 EE 73 C6 ; .
2C82: 73 7B 77 5B 05 B9 15 BC 2F 60 89 17 ; .
2C8E: B9 14 5F BE 9B AF 3F A1 51 18 48 C2 ; .
2C9A: 2E 60 43 16 9B 85 10 D0 F4 59 91 7A ; .
2CA6: FF F9 ; .
2CA8: 1C 05 ; Command_1C_SET_VAR_OBJECT object=05 (GreenDoorC)
2CAA: 0E 03 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=3
2CAC: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
2CAE: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
2CAF: 1C 06 ; Command_1C_SET_VAR_OBJECT object=06 (GreedDoorD)
2CB1: 0E 04 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=4
2CB3: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2CB4: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
2CB6: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
2CB7: 2C 13 ; Command_2C_SET_ACTIVE_OBJECT object=13(Player)
2CB9: 17 3A 13 ; Command_17_MOVE_OBJECT_TO_LOCATION object=3A(Object 3A) location=13
2CBC: 19 88 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=88
2CBE: 0B 01 ; 0B COMMAND HANDLING IF GIVEN COMMAND
2CC0: 9A ; CommonCommand_9A
2CC1: 09 02 46 46 ; 09 HIT POINTS maxHitPoints=46 currentHitPoints=46
; Object_2F Walls
2CC5: 25 0C ; Number=25 size=000C
2CC7: FF 00 80 ; room=FF neverUsed=00 bits=80 u.......
2CCA: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
2CCC: A4 ; CommonCommand_A4
2CCD: 02 ; 02 SHORT NAME
2CCE: 04 0E D0 0B 8E ; WALLS
; Object_30 Room
2CD3: 2A 0B ; Number=2A size=000B
2CD5: FF 00 80 ; room=FF neverUsed=00 bits=80 u.......
2CD8: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
2CDA: A4 ; CommonCommand_A4
2CDB: 02 ; 02 SHORT NAME
2CDC: 03 01 B3 4D ; ROOM
; Object_31 Floor
2CE0: 2B 09 ; Number=2B size=0009
2CE2: FF 00 80 ; room=FF neverUsed=00 bits=80 u.......
2CE5: 02 ; 02 SHORT NAME
2CE6: 04 89 67 A3 A0 ; FLOOR
; Object_32 Exit
2CEB: 2C 08 ; Number=2C size=0008
2CED: FF 00 80 ; room=FF neverUsed=00 bits=80 u.......
2CF0: 02 ; 02 SHORT NAME
2CF1: 03 23 63 54 ; EXIT
; Object_33 Corner
2CF5: 30 0C ; Number=30 size=000C
2CF7: FF 00 80 ; room=FF neverUsed=00 bits=80 u.......
2CFA: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
2CFC: A4 ; CommonCommand_A4
2CFD: 02 ; 02 SHORT NAME
2CFE: 04 44 55 74 98 ; CORNER
; Object_34 Hallway
2D03: 33 0D ; Number=33 size=000D
2D05: FF 00 80 ; room=FF neverUsed=00 bits=80 u.......
2D08: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
2D0A: A4 ; CommonCommand_A4
2D0B: 02 ; 02 SHORT NAME
2D0C: 05 4E 72 B3 8E 59 ; HALLWAY
; Object_35 Entrance
2D12: 36 0B ; Number=36 size=000B
2D14: FF 00 80 ; room=FF neverUsed=00 bits=80 u.......
2D17: 02 ; 02 SHORT NAME
2D18: 06 9E 61 D0 B0 9B 53 ; ENTRANCE
; Object_36 Ceiling
2D1F: 3B 0A ; Number=3B size=000A
2D21: FF 00 80 ; room=FF neverUsed=00 bits=80 u.......
2D24: 02 ; 02 SHORT NAME
2D25: 05 AB 53 90 8C 47 ; CEILING
; Object_37 Hands
2D2B: 1F 09 ; Number=1F size=0009
2D2D: 13 00 C0 ; room=13 neverUsed=00 bits=C0 uv......
2D30: 02 ; 02 SHORT NAME
2D31: 04 50 72 0B 5C ; HANDS
; Object_38 SYSTEM
2D36: 20 03 ; Number=20 size=0003
2D38: 00 00 80 ; room=00 neverUsed=00 bits=80 u.......
; Object_39 BluePillB
2D3B: 17 11 ; Number=17 size=0011
2D3D: 82 00 A0 ; room=82 neverUsed=00 bits=A0 u.C.....
2D40: 03 01 ; 03 LONG DESCRIPTION SCRIPT
2D42: 9D ; CommonCommand_9D
2D43: 07 01 ; 07 COMMAND HANDLING IF FIRST NOUN
2D45: B0 ; CommonCommand_B0
2D46: 02 ; 02 SHORT NAME
2D47: 06 8F 4E 52 5E 46 7A ; BLUE PILL
; Object_3A Object 3A
2D4E: 3C 03 ; Number=3C size=0003
2D50: 00 00 00 ; room=00 neverUsed=00 bits=00 *
; Object_3B RedKeyB
2D53: 16 4B ; Number=16 size=004B
2D55: 82 00 80 ; room=82 neverUsed=00 bits=80 u.......
2D58: 02 ; 02 SHORT NAME
2D59: 05 66 B1 17 16 59 ; RED KEY
2D5F: 01 01 ; 01 ADJECTIVES
2D61: 13 ; RED
2D62: 07 3C ; 07 COMMAND HANDLING IF FIRST NOUN
2D64: 0E 3A ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=58
2D66: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
2D68: 0A 43 ; Command_0A_COMPARE_TO_PHRASE_FORM val=43 phrase="43: GET WITH ..C..... ..C....."
2D6A: 09 16 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=16(WindowHook
2D6C: 03 82 3B ; Command_03_IS_OBJECT_AT_LOCATION object=3B(RedKeyB) location=82
2D6F: 03 00 14 ; Command_03_IS_OBJECT_AT_LOCATION object=14(RedKeyA) location=00
2D72: 17 3B 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=3B(RedKeyB) location=00
2D75: 17 14 13 ; Command_17_MOVE_OBJECT_TO_LOCATION object=14(RedKeyA) location=13
2D78: B1 ; CommonCommand_B1
2D79: 0D 24 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=36
2D7B: 0A 05 ; Command_0A_COMPARE_TO_PHRASE_FORM val=05 phrase="05: GET * ..C..... * "
2D7D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2D7E: 20 C7 DE D3 14 90 96 F3 A0 85 A6 44 ; YOU CAN NOT POSSIBLY REACH INTO THAT TINY
2D8A: B8 FB 8E 63 B1 13 54 9E 7A D6 9C 56 ; HOLE!
2D96: 72 83 17 7B 9B 7E 74 EB 5D ; .
2D9F: B2 ; CommonCommand_B2
; Object_3C DeadDog
2DA0: 08 20 ; Number=08 size=0020
2DA2: 00 00 A0 ; room=00 neverUsed=00 bits=A0 u.C.....
2DA5: 02 ; 02 SHORT NAME
2DA6: 06 E3 59 06 58 EB 9E ; DEAD DOG
2DAD: 03 13 ; 03 LONG DESCRIPTION SCRIPT
2DAF: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2DB0: 11 5F BE 5B B1 4B 7B 46 45 86 5F 09 ; THERE IS A DEAD DOG HERE.
2DBC: 15 CA 6A 2F 62 2E ; .
; Object_3D SecretDoor
2DC2: 0B 42 ; Number=0B size=0042
2DC4: 00 00 8A ; room=00 neverUsed=00 bits=8A u...A.O.
2DC7: 07 30 ; 07 COMMAND HANDLING IF FIRST NOUN
2DC9: 0D 2E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=46
2DCB: 0A 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
2DCD: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2DCE: 2A 5F BE 57 17 AF 55 06 BC 44 A0 D5 ; THE SECRET DOOR IS STUCK. YOU ARE NOT STRONG
2DDA: 15 66 17 DD C3 5B F4 1B A1 2F 49 99 ; ENOUGH TO OPEN IT.
2DE6: 16 15 BC F9 BF AB 98 99 61 7A C4 89 ; .
2DF2: 17 C2 16 83 61 97 7B ; .
2DF9: 02 ; 02 SHORT NAME
2DFA: 08 A5 B7 76 B1 09 15 A3 A0 ; SECRET DOOR
2E03: 01 01 ; 01 ADJECTIVES
2E05: 3D ; SECRET
; Object_3E PaintedDoorA
2E06: 0B 76 ; Number=0B size=0076
2E08: 00 00 8A ; room=00 neverUsed=00 bits=8A u...A.O.
2E0B: 02 ; 02 SHORT NAME
2E0C: 08 4B A4 BF 9A 06 58 44 A0 ; PAINTED DOOR
2E15: 03 24 ; 03 LONG DESCRIPTION SCRIPT
2E17: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2E18: 22 03 A0 5F BE 99 16 C2 B3 F3 17 F3 ; ON THE NORTH WALL IS ONE OF PICASSO'S
2E24: 8C 4B 7B 0F A0 B8 16 E3 16 15 53 2D ; PAINTED DOORS
2E30: B9 D2 B5 D0 47 E6 BD 09 15 BD A0 ; .
2E3B: 07 3E ; 07 COMMAND HANDLING IF FIRST NOUN
2E3D: 0D 3C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=60
2E3F: 0E 0A ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=10
2E41: 0A 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
2E43: 0A 3A ; Command_0A_COMPARE_TO_PHRASE_FORM val=3A phrase="3A: OPEN WITH ......O. u......."
2E45: 0A 41 ; Command_0A_COMPARE_TO_PHRASE_FORM val=41 phrase="41: LOCK WITH ....A... u......."
2E47: 0A 42 ; Command_0A_COMPARE_TO_PHRASE_FORM val=42 phrase="42: UNLOCK WITH .......L u......."
2E49: 0A 40 ; Command_0A_COMPARE_TO_PHRASE_FORM val=40 phrase="40: CLOSE * ....A... * "
2E4B: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2E4C: 2D 5F BE DB 16 9E 7A F3 5F 81 5B 91 ; THE PAINTED DOOR OPENS TO REVEAL AN ESCAPE
2E58: AF F0 A4 D6 B5 D4 9C CF 62 33 48 83 ; ROUTE! YOU HAVE ESCAPED!
2E64: 48 55 62 DF 48 39 17 7F C6 DB 06 1B ; .
2E70: A1 58 72 47 5E 53 B7 E6 A4 21 ; .
2E7A: 24 ; Command_24_ENDLESS_LOOP
2E7B: 01 01 ; 01 ADJECTIVES
2E7D: 3E ; PAINTE
; Object_3F PaintedDoorB
2E7E: 0B 3E ; Number=0B size=003E
2E80: 00 00 80 ; room=00 neverUsed=00 bits=80 u.......
2E83: 02 ; 02 SHORT NAME
2E84: 08 4B A4 BF 9A 06 58 44 A0 ; PAINTED DOOR
2E8D: 07 2C ; 07 COMMAND HANDLING IF FIRST NOUN
2E8F: 0D 2A ; Command_0D_EXECUTE_LIST_WHILE_PASS size=42
2E91: 0E 0A ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=10
2E93: 0A 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
2E95: 0A 3A ; Command_0A_COMPARE_TO_PHRASE_FORM val=3A phrase="3A: OPEN WITH ......O. u......."
2E97: 0A 40 ; Command_0A_COMPARE_TO_PHRASE_FORM val=40 phrase="40: CLOSE * ....A... * "
2E99: 0A 41 ; Command_0A_COMPARE_TO_PHRASE_FORM val=41 phrase="41: LOCK WITH ....A... u......."
2E9B: 0A 42 ; Command_0A_COMPARE_TO_PHRASE_FORM val=42 phrase="42: UNLOCK WITH .......L u......."
2E9D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2E9E: 1C 2F 49 51 18 45 C2 DC B0 C3 DA 73 ; ARE YOU CRAZY? IT IS JUST A PAINTED DOOR!
2EAA: 7B 4B 7B F5 81 03 BC DB 16 9E 7A F3 ; .
2EB6: 5F 81 5B 2B AF ; .
2EBB: 01 01 ; 01 ADJECTIVES
2EBD: 3E ; PAINTE
; Object_40 GreenDoorI
2EBE: 0B 12 ; Number=0B size=0012
2EC0: 99 00 8B ; room=99 neverUsed=00 bits=8B u...A.OL
2EC3: 03 01 ; 03 LONG DESCRIPTION SCRIPT
2EC5: 86 ; CommonCommand_86
2EC6: 01 01 ; 01 ADJECTIVES
2EC8: 14 ; GREEN
2EC9: 02 ; 02 SHORT NAME
2ECA: 07 AF 6E 83 61 81 5B 52 ; GREEN DOOR
; Object_41 GreenKeyB
2ED2: 16 4B ; Number=16 size=004B
2ED4: 8C 00 80 ; room=8C neverUsed=00 bits=80 u.......
2ED7: 02 ; 02 SHORT NAME
2ED8: 06 AF 6E 83 61 BB 85 ; GREEN KEY
2EDF: 01 01 ; 01 ADJECTIVES
2EE1: 14 ; GREEN
2EE2: 07 3B ; 07 COMMAND HANDLING IF FIRST NOUN
2EE4: 0E 39 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=57
2EE6: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
2EE8: 0A 43 ; Command_0A_COMPARE_TO_PHRASE_FORM val=43 phrase="43: GET WITH ..C..... ..C....."
2EEA: 09 16 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=16(WindowHook
2EEC: 03 8C 41 ; Command_03_IS_OBJECT_AT_LOCATION object=41(GreenKeyB) location=8C
2EEF: 03 8E 1B ; Command_03_IS_OBJECT_AT_LOCATION object=1B(GreenKeyA) location=8E
2EF2: 17 41 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=41(GreenKeyB) location=00
2EF5: 17 1B 13 ; Command_17_MOVE_OBJECT_TO_LOCATION object=1B(GreenKeyA) location=13
2EF8: B1 ; CommonCommand_B1
2EF9: 0D 23 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=35
2EFB: 0A 05 ; Command_0A_COMPARE_TO_PHRASE_FORM val=05 phrase="05: GET * ..C..... * "
2EFD: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2EFE: 1F C7 DE D3 14 90 96 F3 A0 63 B1 13 ; YOU CAN NOT REACH THE GREEN KEY FROM OUT
2F0A: 54 5F BE 84 15 30 60 17 16 48 DB FF ; HERE.
2F16: B2 C7 16 0A BC 2F 62 2E ; .
2F1E: B2 ; CommonCommand_B2
; Object_42 Object 42
2F1F: 42 03 ; Number=42 size=0003
2F21: 18 00 00 ; room=18 neverUsed=00 bits=00 *
; ENDOF 1B42
; GeneralCommands
2F24: 00 84 75 0E 84 72 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=1138
2F2A: 0D 28 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=40
2F2C: 0E 08 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=8
2F2E: 0A 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
2F30: 0A 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
2F32: 0A 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
2F34: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
2F36: 0E 1C ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=28
2F38: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
2F39: 0D 19 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=25
2F3B: 20 13 ; Command_20_CHECK_ACTIVE_OBJECT object=13(Player)
2F3D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2F3E: 15 C7 DE F3 17 CB 8C CF 47 F5 8B D3 ; YOU WALK AIMLESSLY INTO A WALL.
2F4A: B8 D0 15 6B BF 59 45 46 48 2E ; .
2F54: 0B 84 45 ; Command_0B_SWITCH size=445
2F57: 0A 05 ; Command_0A_COMPARE_TO_PHRASE_FORM val=05 phrase="05: GET * ..C..... * "
2F59: 07 ; IF_NOT_JUMP address=2F61
2F5A: 0E 05 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=5
2F5C: A2 ; CommonCommand_A2
2F5D: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
2F5E: 8F ; CommonCommand_8F
2F5F: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2F60: 0C ; Command_0C_FAIL
2F61: 43 ; Command_0A_COMPARE_TO_PHRASE_FORM val=43 phrase="43: GET WITH ..C..... ..C....."
2F62: 0D ; IF_NOT_JUMP address=2F70
2F63: 0E 0B ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=11
2F65: A2 ; CommonCommand_A2
2F66: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
2F67: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
2F69: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
2F6A: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2F6B: 8F ; CommonCommand_8F
2F6C: 0D 02 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=2
2F6E: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
2F6F: 8F ; CommonCommand_8F
2F70: 06 ; Command_0A_COMPARE_TO_PHRASE_FORM val=06 phrase="06: DROP * ..C..... * "
2F71: 34 ; IF_NOT_JUMP address=2FA6
2F72: 0E 32 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=50
2F74: 0D 0E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=14
2F76: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
2F77: 18 ; Command_18_CHECK_INPUT_OBJECT_OWNED_BY_ACTIVE_OBJECT
2F78: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2F79: 08 37 ; Command_08_COMPARE_OBJECT_TO_FIRST_NOUN object=37(Hands
2F7B: 10 ; Command_10_DROP_OBJECT
2F7C: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2F7D: 06 F9 5B 9F A6 9B 5D ; DROPPED.
2F84: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
2F86: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2F87: 08 37 ; Command_08_COMPARE_OBJECT_TO_FIRST_NOUN object=37(Hands
2F89: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2F8A: 0C C7 DE 09 15 E6 96 9B 15 5B CA 71 ; YOU DON'T HAVE IT!
2F96: 7B ; .
2F97: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2F98: 0D C7 DE 57 17 5B 61 95 5A 35 6F E6 ; YOU SEEM DISGUSTED.
2FA4: BD 2E ; .
2FA6: 11 ; Command_0A_COMPARE_TO_PHRASE_FORM val=11 phrase="11: OPEN * ......O. * "
2FA7: 15 ; IF_NOT_JUMP address=2FBD
2FA8: 0E 13 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=19
2FAA: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
2FAB: 92 ; CommonCommand_92
2FAC: 0D 0D ; Command_0D_EXECUTE_LIST_WHILE_PASS size=13
2FAE: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
2FAF: 15 01 ; Command_15_CHECK_OBJECT_BITS bits=01 .......L
2FB1: A8 ; CommonCommand_A8
2FB2: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2FB3: 07 4B 7B 75 8D A6 85 2E ; IS LOCKED.
2FBB: A5 ; CommonCommand_A5
2FBC: A6 ; CommonCommand_A6
2FBD: 3A ; Command_0A_COMPARE_TO_PHRASE_FORM val=3A phrase="3A: OPEN WITH ......O. u......."
2FBE: 12 ; IF_NOT_JUMP address=2FD1
2FBF: 0E 10 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=16
2FC1: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
2FC3: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
2FC4: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2FC5: 8F ; CommonCommand_8F
2FC6: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
2FC7: 92 ; CommonCommand_92
2FC8: A5 ; CommonCommand_A5
2FC9: A7 ; CommonCommand_A7
2FCA: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
2FCC: 15 01 ; Command_15_CHECK_OBJECT_BITS bits=01 .......L
2FCE: 2A ; Command_2A_TOGGLE_VAR_OBJECT_LOCKED_UNLOCKED
2FCF: 0C ; Command_0C_FAIL
2FD0: A6 ; CommonCommand_A6
2FD1: 40 ; Command_0A_COMPARE_TO_PHRASE_FORM val=40 phrase="40: CLOSE * ....A... * "
2FD2: 24 ; IF_NOT_JUMP address=2FF7
2FD3: 0E 22 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=34
2FD5: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
2FD6: 92 ; CommonCommand_92
2FD7: 0D 0E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=14
2FD9: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
2FDA: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
2FDC: A8 ; CommonCommand_A8
2FDD: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2FDE: 08 4B 7B 06 9A C2 16 A7 61 ; IS NOT OPEN.
2FE7: 0D 0E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=14
2FE9: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
2FEA: A8 ; CommonCommand_A8
2FEB: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
2FEC: 0A 4B 7B 09 9A DE 14 D7 A0 9B 5D ; IS NOW CLOSED.
2FF7: 42 ; Command_0A_COMPARE_TO_PHRASE_FORM val=42 phrase="42: UNLOCK WITH .......L u......."
2FF8: 2F ; IF_NOT_JUMP address=3028
2FF9: 0E 2D ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=45
2FFB: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
2FFD: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
2FFE: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
2FFF: 8F ; CommonCommand_8F
3000: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3001: 92 ; CommonCommand_92
3002: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
3004: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
3005: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3006: 15 01 ; Command_15_CHECK_OBJECT_BITS bits=01 .......L
3008: A8 ; CommonCommand_A8
3009: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
300A: 0A 4B 7B 06 9A 49 16 97 54 9B 5D ; IS NOT LOCKED.
3015: A5 ; CommonCommand_A5
3016: A7 ; CommonCommand_A7
3017: 0D 0F ; Command_0D_EXECUTE_LIST_WHILE_PASS size=15
3019: 2A ; Command_2A_TOGGLE_VAR_OBJECT_LOCKED_UNLOCKED
301A: A8 ; CommonCommand_A8
301B: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
301C: 0B 4B 7B 09 9A B0 17 75 8D A6 85 2E ; IS NOW UNLOCKED.
3028: 41 ; Command_0A_COMPARE_TO_PHRASE_FORM val=41 phrase="41: LOCK WITH ....A... u......."
3029: 46 ; IF_NOT_JUMP address=3070
302A: 0E 44 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=68
302C: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
302E: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
302F: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3030: 8F ; CommonCommand_8F
3031: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3032: 92 ; CommonCommand_92
3033: A5 ; CommonCommand_A5
3034: 0D 17 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=23
3036: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3037: 09 14 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=14(RedKeyA
3039: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
303A: 0A C7 DE D3 14 E6 96 49 16 8B 54 ; YOU CAN'T LOCK
3045: A8 ; CommonCommand_A8
3046: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3047: 03 56 D1 48 ; WITH
304B: A9 ; CommonCommand_A9
304C: 8B ; CommonCommand_8B
304D: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
304F: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
3050: 15 01 ; Command_15_CHECK_OBJECT_BITS bits=01 .......L
3052: A8 ; CommonCommand_A8
3053: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3054: 0B 4B 7B 06 9A B0 17 75 8D A6 85 2E ; IS NOT UNLOCKED.
3060: 0D 0E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=14
3062: 2A ; Command_2A_TOGGLE_VAR_OBJECT_LOCKED_UNLOCKED
3063: A8 ; CommonCommand_A8
3064: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3065: 0A 4B 7B 09 9A 49 16 97 54 9B 5D ; IS NOW LOCKED.
3070: 12 ; Command_0A_COMPARE_TO_PHRASE_FORM val=12 phrase="12: PULL * u....... * "
3071: 21 ; IF_NOT_JUMP address=3093
3072: 0E 1F ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=31
3074: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3075: 0D 1C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=28
3077: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3078: 13 33 D1 09 15 E6 96 51 18 4E C2 98 ; WHY DON'T YOU LEAVE THE POOR
3084: 5F 56 5E DB 72 81 A6 52 ; .
308C: 11 ; Command_11_PRINT_FIRST_NOUN_SHORT_NAME
308D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
308E: 04 49 48 7F 98 ; ALONE.
3093: 09 ; Command_0A_COMPARE_TO_PHRASE_FORM val=09 phrase="09: ATTACK WITH ...P.... .v......"
3094: 80 A1 ; IF_NOT_JUMP address=3137
3096: 0E 80 9E ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=158
3099: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
309A: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
309B: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
309C: 0E 05 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=5
309E: 09 37 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=37(Hands
30A0: 09 00 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=00(NONE
30A2: 8F ; CommonCommand_8F
30A3: 0E 80 84 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=132
30A6: 0D 1A ; Command_0D_EXECUTE_LIST_WHILE_PASS size=26
30A8: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
30A9: 15 40 ; Command_15_CHECK_OBJECT_BITS bits=40 .v......
30AB: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
30AC: 09 00 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=00(NONE
30AE: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
30AF: 0A C7 DE D3 14 E6 96 AF 15 B3 B3 ; YOU CAN'T HURT
30BA: A8 ; CommonCommand_A8
30BB: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
30BC: 03 56 D1 48 ; WITH
30C0: A9 ; CommonCommand_A9
30C1: 8B ; CommonCommand_8B
30C2: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
30C3: 0D 1C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=28
30C5: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
30C6: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
30C7: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
30C9: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
30CA: 14 73 7B 77 5B D0 B5 C9 9C 36 A0 89 ; IT DOES NO GOOD TO ATTACK THE
30D6: 17 96 14 45 BD D6 83 DB 72 ; .
30DF: 11 ; Command_11_PRINT_FIRST_NOUN_SHORT_NAME
30E0: 8B ; CommonCommand_8B
30E1: 0D 47 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=71
30E3: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
30E4: 0E 04 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=4
30E6: 09 37 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=37(Hands
30E8: 09 00 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=00(NONE
30EA: 0B 3E ; Command_0B_SWITCH size=3E
30EC: 05 55 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=55
30EE: 13 ; IF_NOT_JUMP address=3102
30EF: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
30F1: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
30F2: 0D 44 45 89 8D 89 17 82 17 44 5E 93 ; A BLOW TO THE BODY!
30FE: 9E 21 ; .
3100: 1D 04 ; Command_1D_ATTACK_OBJECT damage=04
3102: AF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=AF
3103: 14 ; IF_NOT_JUMP address=3118
3104: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3105: 12 59 45 3E 7A EF 16 1A 98 90 14 1B ; A WILD PUNCH AND YOU MISS.
3111: 58 1B A1 D5 92 5B BB ; .
3118: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
3119: 10 ; IF_NOT_JUMP address=312A
311A: 0D 0E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=14
311C: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
311D: 0A C7 DE AF 14 8F 48 0A 58 59 7A ; YOU BEANED HIM!
3128: 1D 03 ; Command_1D_ATTACK_OBJECT damage=03
312A: 0D 0B ; Command_0D_EXECUTE_LIST_WHILE_PASS size=11
312C: A8 ; CommonCommand_A8
312D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
312E: 08 4B 7B 92 C5 37 49 17 60 ; IS UNHARMED.
3137: 0A ; Command_0A_COMPARE_TO_PHRASE_FORM val=0A phrase="0A: LOOK * * * "
3138: 01 ; IF_NOT_JUMP address=313A
3139: 07 ; Command_07_PRINT_ROOM_DESCRIPTION
313A: 15 ; Command_0A_COMPARE_TO_PHRASE_FORM val=15 phrase="15: EAT * u....... * "
313B: 26 ; IF_NOT_JUMP address=3162
313C: 0E 24 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=36
313E: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
313F: 0D 21 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=33
3141: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3142: 0A 80 5B F3 23 5B 4D 4E B8 F9 8E ; DON'T BE SILLY!
314D: A8 ; CommonCommand_A8
314E: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
314F: 12 47 D2 C8 8B F3 23 55 BD DB BD 41 ; WOULDN'T TASTE GOOD ANYWAY.
315B: 6E 03 58 99 9B 5F 4A ; .
3162: 17 ; Command_0A_COMPARE_TO_PHRASE_FORM val=17 phrase="17: CLIMB * u....... * "
3163: 4C ; IF_NOT_JUMP address=31B0
3164: 0E 4A ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=74
3166: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3167: 0D 22 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=34
3169: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
316A: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
316C: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
316D: 09 46 77 05 A0 16 BC 90 73 4B ; I DON'T THINK
3177: A8 ; CommonCommand_A8
3178: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3179: 11 4E D1 15 8A 50 BD 15 58 8E BE 08 ; WILL STAND STILL FORTHAT.
3185: 8A BE A0 56 72 2E ; .
318B: 0D 23 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=35
318D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
318E: 10 CF 62 8B 96 9B 64 1B A1 47 55 B3 ; EVEN IF YOU COULD CLIMB
319A: 8B C3 54 A3 91 ; .
319F: A8 ; CommonCommand_A8
31A0: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
31A1: 0E 73 7B 47 D2 C8 8B F3 23 EE 72 1B ; IT WOULDN'T HELP YOU.
31AD: A3 3F A1 ; .
31B0: 0B ; Command_0A_COMPARE_TO_PHRASE_FORM val=0B phrase="0B: LOOK AT * u......."
31B1: 36 ; IF_NOT_JUMP address=31E8
31B2: 0E 34 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=52
31B4: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
31B5: 0D 17 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=23
31B7: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
31B8: 15 04 ; Command_15_CHECK_OBJECT_BITS bits=04 .....X..
31BA: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
31BB: 10 3F B9 82 62 91 7A D5 15 04 18 8E ; SOMETHING IS WRITTEN ON
31C7: 7B 83 61 03 A0 ; .
31CC: AA ; CommonCommand_AA
31CD: 8B ; CommonCommand_8B
31CE: 0D 18 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=24
31D0: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
31D1: 14 5F BE 5D B1 D0 B5 02 A1 91 7A 62 ; THERE'S NOTHING SPECIAL ABOUT
31DD: 17 DB 5F 33 48 B9 46 73 C6 ; .
31E6: A8 ; CommonCommand_A8
31E7: 8B ; CommonCommand_8B
31E8: 10 ; Command_0A_COMPARE_TO_PHRASE_FORM val=10 phrase="10: LOOK IN * u......."
31E9: 15 ; IF_NOT_JUMP address=31FF
31EA: 0E 13 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=19
31EC: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
31ED: 0D 10 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=16
31EF: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
31F0: 0C 5F BE 5D B1 D0 B5 02 A1 91 7A D0 ; THERE'S NOTHING IN
31FC: 15 ; .
31FD: A8 ; CommonCommand_A8
31FE: 8B ; CommonCommand_8B
31FF: 21 ; Command_0A_COMPARE_TO_PHRASE_FORM val=21 phrase="21: PLUGH * * * "
3200: 1A ; IF_NOT_JUMP address=321B
3201: 0E 18 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=24
3203: 0D 05 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=5
3205: 03 00 3A ; Command_03_IS_OBJECT_AT_LOCATION object=3A(Object 3A) location=00
3208: 00 8E ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=8E
320A: 0D 0F ; Command_0D_EXECUTE_LIST_WHILE_PASS size=15
320C: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
320D: 0A C7 DE 81 15 04 BC 8E 62 47 62 ; YOU GOT BETTER.
3218: 17 3A 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=3A(Object 3A) location=00
321B: 22 ; Command_0A_COMPARE_TO_PHRASE_FORM val=22 phrase="22: SCREAM * * * "
321C: 12 ; IF_NOT_JUMP address=322F
321D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
321E: 10 5B E0 27 60 31 60 41 A0 49 A0 89 ; YYYEEEEEOOOOOOWWWWWWWW!!
322A: D3 89 D3 69 CE ; .
322F: 23 ; Command_0A_COMPARE_TO_PHRASE_FORM val=23 phrase="23: QUIT * * * "
3230: 01 ; IF_NOT_JUMP address=3232
3231: 24 ; Command_24_ENDLESS_LOOP
3232: 25 ; Command_0A_COMPARE_TO_PHRASE_FORM val=25 phrase="25: GO * * * "
3233: 01 ; IF_NOT_JUMP address=3235
3234: 91 ; CommonCommand_91
3235: 26 ; Command_0A_COMPARE_TO_PHRASE_FORM val=26 phrase="26: GO AROUND * u......."
3236: 01 ; IF_NOT_JUMP address=3238
3237: 91 ; CommonCommand_91
3238: 3D ; Command_0A_COMPARE_TO_PHRASE_FORM val=3D phrase="3D: GO TO * u......."
3239: 01 ; IF_NOT_JUMP address=323B
323A: 91 ; CommonCommand_91
323B: 27 ; Command_0A_COMPARE_TO_PHRASE_FORM val=27 phrase="27: KICK * u....... * "
323C: 0E ; IF_NOT_JUMP address=324B
323D: 0E 0C ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=12
323F: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3240: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3241: 09 25 A1 AB 70 3B 95 77 BF 21 ; OUCH! MY TOE!
324B: 44 ; Command_0A_COMPARE_TO_PHRASE_FORM val=44 phrase="44: HELLO * * * "
324C: 09 ; IF_NOT_JUMP address=3256
324D: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
324E: 07 AF 6E 83 62 C5 98 21 ; GREETINGS!
3256: 45 ; Command_0A_COMPARE_TO_PHRASE_FORM val=45 phrase="45: HELLO * ...P.... * "
3257: 31 ; IF_NOT_JUMP address=3289
3258: 0E 2F ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=47
325A: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
325B: 0D 12 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=18
325D: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
325E: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
3260: A8 ; CommonCommand_A8
3261: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3262: 0C 72 B1 87 8C 33 BB DF 1B 09 8D 63 ; REPLIES, "HELLO."
326E: F4 ; .
326F: 0D 18 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=24
3271: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3272: 14 16 A0 43 DB E4 14 83 4A 01 18 3E ; ONLY A CRAZY WOULD TALK TO THE
327E: C5 7B 17 CB 8C 6B BF 5F BE ; .
3287: 11 ; Command_11_PRINT_FIRST_NOUN_SHORT_NAME
3288: 8B ; CommonCommand_8B
3289: 46 ; Command_0A_COMPARE_TO_PHRASE_FORM val=46 phrase="46: WHAT * * * "
328A: 08 ; IF_NOT_JUMP address=3293
328B: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
328C: 06 46 77 98 C5 5B A2 ; I DUNNO.
3293: 47 ; Command_0A_COMPARE_TO_PHRASE_FORM val=47 phrase="47: WHAT * u....... * "
3294: 09 ; IF_NOT_JUMP address=329E
3295: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3296: 07 29 D1 20 16 85 A1 3F ; WHO KNOWS?
329E: 4A ; Command_0A_COMPARE_TO_PHRASE_FORM val=4A phrase="4A: COME * * * "
329F: 18 ; IF_NOT_JUMP address=32B8
32A0: 0E 16 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=22
32A2: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
32A3: 0D 13 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=19
32A5: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
32A6: 11 9E 77 08 8A C6 9F 6B A1 C7 DE 90 ; I'LL FOLLOW YOU ANYWHERE!
32B2: 14 FA DF 2F 62 21 ; .
32B8: 49 ; Command_0A_COMPARE_TO_PHRASE_FORM val=49 phrase="49: MEET * u....... * "
32B9: 26 ; IF_NOT_JUMP address=32E0
32BA: 0E 24 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=36
32BC: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
32BD: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
32BF: 09 00 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=00(NONE
32C1: A8 ; CommonCommand_A8
32C2: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
32C3: 0C 09 4F CB B5 89 96 67 B1 90 BE 5B ; BOWS IN GREETING.
32CF: 70 ; .
32D0: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
32D1: 0E 5F BE 44 DB 6B A1 83 7A AF 6E 83 ; THEY BOW IN GREETING.
32DD: 62 CF 98 ; .
32E0: 28 ; Command_0A_COMPARE_TO_PHRASE_FORM val=28 phrase="28: FEED WITH ...P.... u......."
32E1: 0A ; IF_NOT_JUMP address=32EC
32E2: 0E 08 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=8
32E4: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
32E5: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
32E7: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
32E8: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
32EA: AD ; CommonCommand_AD
32EB: AE ; CommonCommand_AE
32EC: 29 ; Command_0A_COMPARE_TO_PHRASE_FORM val=29 phrase="29: FEED TO u....... ...P...."
32ED: 0A ; IF_NOT_JUMP address=32F8
32EE: 0E 08 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=8
32F0: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
32F1: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
32F3: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
32F4: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
32F6: AD ; CommonCommand_AD
32F7: AE ; CommonCommand_AE
32F8: 2F ; Command_0A_COMPARE_TO_PHRASE_FORM val=2F phrase="2F: WAIT * * * "
32F9: 07 ; IF_NOT_JUMP address=3301
32FA: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
32FB: 05 9B 29 57 C6 3E ;
3301: 2D ; Command_0A_COMPARE_TO_PHRASE_FORM val=2D phrase="2D: PULL UP * u......."
3302: 09 ; IF_NOT_JUMP address=330C
3303: 0E 07 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=7
3305: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3306: 0D 02 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=2
3308: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
3309: 8F ; CommonCommand_8F
330A: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
330B: 0C ; Command_0C_FAIL
330C: 48 ; Command_0A_COMPARE_TO_PHRASE_FORM val=48 phrase="48: LOWER * u....... * "
330D: 11 ; IF_NOT_JUMP address=331F
330E: 0E 0F ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=15
3310: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3311: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3312: 0C C7 DE D3 14 E6 96 09 15 82 17 97 ; YOU CAN'T DO THAT.
331E: 49 ; .
331F: 33 ; Command_0A_COMPARE_TO_PHRASE_FORM val=33 phrase="??"
3320: 01 ; IF_NOT_JUMP address=3322
3321: AF ; CommonCommand_AF
3322: 34 ; Command_0A_COMPARE_TO_PHRASE_FORM val=34 phrase="34: JUMP OVER * u......."
3323: 01 ; IF_NOT_JUMP address=3325
3324: AF ; CommonCommand_AF
3325: 0D ; Command_0A_COMPARE_TO_PHRASE_FORM val=0D phrase="0D: THROW AT .v...... ...P...."
3326: 2B ; IF_NOT_JUMP address=3352
3327: 0E 29 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=41
3329: 0D 25 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=37
332B: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
332C: 8F ; CommonCommand_8F
332D: 0E 21 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=33
332F: 0D 1E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=30
3331: 0E 07 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=7
3333: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3334: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
3336: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
3337: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3338: 15 40 ; Command_15_CHECK_OBJECT_BITS bits=40 .v......
333A: A8 ; CommonCommand_A8
333B: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
333C: 0F 07 4F 17 98 CA B5 37 49 F5 8B D3 ; BOUNCES HARMLESSLY OFF
3348: B8 B8 16 46 ; .
334C: A9 ; CommonCommand_A9
334D: 8B ; CommonCommand_8B
334E: 10 ; Command_10_DROP_OBJECT
334F: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3350: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3351: 0C ; Command_0C_FAIL
3352: 0E ; Command_0A_COMPARE_TO_PHRASE_FORM val=0E phrase="0E: THROW TO u....... ...P...."
3353: 13 ; IF_NOT_JUMP address=3367
3354: 0E 11 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=17
3356: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3357: 0D 0E ; Command_0D_EXECUTE_LIST_WHILE_PASS size=14
3359: A9 ; CommonCommand_A9
335A: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
335B: 0B 77 5B 05 B9 19 BC 9E 48 D6 15 2E ; DOESN'T WANT IT.
3367: 0F ; Command_0A_COMPARE_TO_PHRASE_FORM val=0F phrase="0F: DROP IN u....... u......."
3368: 17 ; IF_NOT_JUMP address=3380
3369: 0E 15 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=21
336B: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
336D: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
336E: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
336F: 8F ; CommonCommand_8F
3370: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3371: 0D 0D ; Command_0D_EXECUTE_LIST_WHILE_PASS size=13
3373: A8 ; CommonCommand_A8
3374: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3375: 08 40 D2 F3 23 16 67 D0 15 ; WON'T FIT IN
337E: A9 ; CommonCommand_A9
337F: 8B ; CommonCommand_8B
3380: 07 ; Command_0A_COMPARE_TO_PHRASE_FORM val=07 phrase="07: INVENT * * * "
3381: 1A ; IF_NOT_JUMP address=339C
3382: 0D 18 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=24
3384: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3385: 15 C7 DE 94 14 45 5E 3C 49 D0 DD D6 ; YOU ARE CARRYING THE FOLLOWING:
3391: 6A DB 72 FE 67 89 8D 91 7A 3A ; .
339B: 06 ; Command_06_PRINT_INVENTORY
; ENDOF 2F24
; HelperCommands
; List of helper commands. Each is tagged with an ID. In the first case, "81" is a command to
; print "ANOTHER SMALL PADDED ROOM."
339C: 00 88 36 ; Script list size=0836
339F: 81 14 ; Script number=81 size=0836
33A1: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
33A2: 12 99 48 5F BE 95 AF 8E 91 12 8A FE ; ANOTHER SMALL PADDED ROOM.
33AE: 46 F3 5F 01 B3 DB 95 ; .
33B5: 82 11 ; Script number=82 size=0836
33B7: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
33B8: 0F 5F BE 23 15 15 BA B5 D0 0A BC 46 ; THE EAST-WEST HALLWAY.
33C4: 48 1B D0 2E ; .
33C8: 83 12 ; Script number=83 size=0836
33CA: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
33CB: 10 5F BE 99 16 C2 B3 E1 EB 82 C6 9B ; THE NORTH-SOUTH HALLWAY.
33D7: 15 11 8D 5F 4A ; .
33DC: 84 1C ; Script number=84 size=0836
33DE: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
33DF: 1A 03 A0 5F BE 61 17 82 C6 F3 17 F3 ; ON THE SOUTH WALL THERE IS A GREEN DOOR
33EB: 8C 5F BE 5B B1 4B 7B 49 45 67 B1 86 ; .
33F7: 96 44 A0 ; .
33FA: 85 1B ; Script number=85 size=0836
33FC: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
33FD: 19 03 A0 5F BE 99 16 C2 B3 F3 17 F3 ; ON THE NORTH WALL THERE IS A RED DOOR
3409: 8C 5F BE 5B B1 4B 7B 54 45 F3 5F 81 ; .
3415: 5B 52 ; .
3417: 86 1C ; Script number=86 size=0836
3419: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
341A: 1A 03 A0 5F BE 99 16 C2 B3 F3 17 F3 ; ON THE NORTH WALL THERE IS A GREEN DOOR
3426: 8C 5F BE 5B B1 4B 7B 49 45 67 B1 86 ; .
3432: 96 44 A0 ; .
3435: 87 1B ; Script number=87 size=0836
3437: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3438: 19 03 A0 5F BE 61 17 82 C6 F3 17 F3 ; ON THE SOUTH WALL THERE IS A RED DOOR
3444: 8C 5F BE 5B B1 4B 7B 54 45 F3 5F 81 ; .
3450: 5B 52 ; .
3452: 88 1B ; Script number=88 size=0836
3454: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3455: 19 03 A0 5F BE 23 15 F3 B9 0E D0 16 ; ON THE EAST WALL THERE IS A BLUE DOOR
3461: 8A F4 72 4B 5E C3 B5 B6 14 1B C4 81 ; .
346D: 5B 52 ; .
346F: 89 1B ; Script number=89 size=0836
3471: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3472: 19 03 A0 5F BE F7 17 F3 B9 0E D0 16 ; ON THE WEST WALL THERE IS A BLUE DOOR
347E: 8A F4 72 4B 5E C3 B5 B6 14 1B C4 81 ; .
348A: 5B 52 ; .
348C: 8A 0D ; Script number=8A size=0836
348E: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
348F: 0B 23 D1 13 54 4B 7B C9 54 A6 B7 2E ; WHICH IS CLOSED.
349B: 8C 17 ; Script number=8C size=0836
349D: 0B 15 ; Command_0B_SWITCH size=15
349F: 05 7F ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=7F
34A1: 07 ; IF_NOT_JUMP address=34A9
34A2: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
34A3: 05 63 BE CB B5 53 ; THIS IS
34A9: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
34AA: 09 ; IF_NOT_JUMP address=34B4
34AB: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
34AC: 07 C7 DE 94 14 4B 5E 4E ; YOU ARE IN
34B4: 8B 04 ; Script number=8B size=0836
34B6: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
34B7: 02 3B F4 ; .
34BA: 8D 11 ; Script number=8D size=0836
34BC: 0D 0F ; Command_0D_EXECUTE_LIST_WHILE_PASS size=15
34BE: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
34BF: 20 38 ; Command_20_CHECK_ACTIVE_OBJECT object=38(SYSTEM)
34C1: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
34C3: AA ; CommonCommand_AA
34C4: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
34C5: 07 4B 7B C9 54 A6 B7 2E ; IS CLOSED.
34CD: 8F 4F ; Script number=8F size=0836
34CF: 0D 4D ; Command_0D_EXECUTE_LIST_WHILE_PASS size=77
34D1: 0E 4A ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=74
34D3: 2D 37 ; Command_2D_COMPARE_OBJECT_TO_VAR_NOUN object=37(Hands
34D5: 0D 1A ; Command_0D_EXECUTE_LIST_WHILE_PASS size=26
34D7: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
34D9: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
34DA: 16 46 77 05 A0 16 BC 90 73 CA 83 59 ; I DON'T THINK HE WILL COOPERATE.
34E6: 5E 46 7A E1 14 5F A0 D6 B0 DB 63 ; .
34F1: 0D 1F ; Command_0D_EXECUTE_LIST_WHILE_PASS size=31
34F3: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
34F4: 15 20 ; Command_15_CHECK_OBJECT_BITS bits=20 ..C.....
34F6: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
34F7: 18 C7 DE 94 14 53 5E D6 C4 4B 5E 13 ; YOU ARE QUITE INCAPABLE OF REMOVING
3503: 98 44 A4 DB 8B C3 9E 6F B1 53 A1 AB ; .
350F: 98 ; .
3510: AA ; CommonCommand_AA
3511: 8B ; CommonCommand_8B
3512: 18 ; Command_18_CHECK_INPUT_OBJECT_OWNED_BY_ACTIVE_OBJECT
3513: 0D 08 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=8
3515: 0F ; Command_0F_PICK_UP_OBJECT
3516: AA ; CommonCommand_AA
3517: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3518: 04 4D BD A7 61 ; TAKEN.
351D: 18 ; Command_18_CHECK_INPUT_OBJECT_OWNED_BY_ACTIVE_OBJECT
351E: A2 13 ; Script number=A2 size=0836
3520: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
3522: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
3523: 18 ; Command_18_CHECK_INPUT_OBJECT_OWNED_BY_ACTIVE_OBJECT
3524: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3525: 0B C7 DE 8E 14 63 B1 FB 5C 58 72 45 ; YOU ALREADY HAVE
3531: AA ; CommonCommand_AA
3532: 8B ; CommonCommand_8B
3533: 90 09 ; Script number=90 size=0836
3535: 0B 07 ; Command_0B_SWITCH size=07
3537: 0A 36 ; Command_0A_COMPARE_TO_PHRASE_FORM val=36 phrase="??"
3539: 01 ; IF_NOT_JUMP address=353B
353A: 91 ; CommonCommand_91
353B: 37 ; Command_0A_COMPARE_TO_PHRASE_FORM val=37 phrase="??"
353C: 01 ; IF_NOT_JUMP address=353E
353D: 91 ; CommonCommand_91
353E: 91 19 ; Script number=91 size=0836
3540: 1F ; Command_1F_PRINT_MESSAGE
3541: 17 FF A5 57 49 B5 17 46 5E 2F 7B 03 ; PLEASE USE DIRECTIONS N,S,E, OR W.
354D: 56 1D A0 A6 16 3F BB 11 EE 99 AF 2E ; .
3559: 92 18 ; Script number=92 size=0836
355B: 0D 16 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=22
355D: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
355E: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
355F: 15 08 ; Command_15_CHECK_OBJECT_BITS bits=08 ....A...
3561: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3562: 0E C7 DE D3 14 E6 96 09 15 82 17 73 ; YOU CAN'T DO THAT TO
356E: 49 6B BF ; .
3571: A8 ; CommonCommand_A8
3572: 8B ; CommonCommand_8B
3573: 94 80 8C ; Script number=94 size=0836
3576: 0D 80 89 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=137
3579: 17 1C 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=1C(RayA) location=00
357C: 17 1D 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=1D(RayB) location=00
357F: 17 1E 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=1E(NapoleanA) location=00
3582: 17 1F 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=1F(Object 1F) location=00
3585: 17 20 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=20(NapoleanB) location=00
3588: 17 21 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=21(Object 21) location=00
358B: 17 22 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=22(PicassoA) location=00
358E: 17 23 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=23(Object 23) location=00
3591: 17 24 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=24(PicassoB) location=00
3594: 17 25 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=25(Object 25) location=00
3597: 17 26 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=26(MerlinA) location=00
359A: 17 27 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=27(MerlinB) location=00
359D: 17 28 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=28(UnconsciousDoctorA) location=00
35A0: 17 29 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=29(UnconsciousDoctorB) location=00
35A3: 17 2A 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=2A(HoudiniA) location=00
35A6: 17 2B 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=2B(HoudiniB) location=00
35A9: 17 2C 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=2C(HoudiniC) location=00
35AC: 17 1B 8E ; Command_17_MOVE_OBJECT_TO_LOCATION object=1B(GreenKeyA) location=8E
35AF: 17 14 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=14(RedKeyA) location=00
35B2: 17 16 81 ; Command_17_MOVE_OBJECT_TO_LOCATION object=16(WindowHook) location=81
35B5: 17 3B 82 ; Command_17_MOVE_OBJECT_TO_LOCATION object=3B(RedKeyB) location=82
35B8: 17 3D 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=3D(SecretDoor) location=00
35BB: 17 15 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=15(BluePillA) location=00
35BE: 17 39 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=39(BluePillB) location=00
35C1: 17 41 8C ; Command_17_MOVE_OBJECT_TO_LOCATION object=41(GreenKeyB) location=8C
35C4: 0B 2B ; Command_0B_SWITCH size=2B
35C6: 05 55 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=55
35C8: 0B ; IF_NOT_JUMP address=35D4
35C9: 0D 09 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=9
35CB: 17 15 82 ; Command_17_MOVE_OBJECT_TO_LOCATION object=15(BluePillA) location=82
35CE: 1C 1F ; Command_1C_SET_VAR_OBJECT object=1F (Object 1F)
35D0: 95 ; CommonCommand_95
35D1: 1C 23 ; Command_1C_SET_VAR_OBJECT object=23 (Object 23)
35D3: 95 ; CommonCommand_95
35D4: AB ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=AB
35D5: 0E ; IF_NOT_JUMP address=35E4
35D6: 0D 0C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=12
35D8: 17 39 82 ; Command_17_MOVE_OBJECT_TO_LOCATION object=39(BluePillB) location=82
35DB: 1C 21 ; Command_1C_SET_VAR_OBJECT object=21 (Object 21)
35DD: 95 ; CommonCommand_95
35DE: 1C 3D ; Command_1C_SET_VAR_OBJECT object=3D (SecretDoor)
35E0: 95 ; CommonCommand_95
35E1: 1C 23 ; Command_1C_SET_VAR_OBJECT object=23 (Object 23)
35E3: 95 ; CommonCommand_95
35E4: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
35E5: 0B ; IF_NOT_JUMP address=35F1
35E6: 0D 09 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=9
35E8: 17 39 82 ; Command_17_MOVE_OBJECT_TO_LOCATION object=39(BluePillB) location=82
35EB: 1C 1F ; Command_1C_SET_VAR_OBJECT object=1F (Object 1F)
35ED: 95 ; CommonCommand_95
35EE: 1C 25 ; Command_1C_SET_VAR_OBJECT object=25 (Object 25)
35F0: 95 ; CommonCommand_95
35F1: 1C 1D ; Command_1C_SET_VAR_OBJECT object=1D (RayB)
35F3: 95 ; CommonCommand_95
35F4: 1C 27 ; Command_1C_SET_VAR_OBJECT object=27 (MerlinB)
35F6: 95 ; CommonCommand_95
35F7: 1C 29 ; Command_1C_SET_VAR_OBJECT object=29 (UnconsciousDoctorB)
35F9: 95 ; CommonCommand_95
35FA: 1C 2B ; Command_1C_SET_VAR_OBJECT object=2B (HoudiniB)
35FC: 95 ; CommonCommand_95
35FD: 17 2E 95 ; Command_17_MOVE_OBJECT_TO_LOCATION object=2E(Doctor) location=95
3600: 00 88 ; Command_00_MOVE_ACTIVE_OBJECT_TO_ROOM_AND_LOOK room=88
3602: 95 53 ; Script number=95 size=0836
3604: 0D 51 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=81
3606: 2B ; Command_2B_GENERATE_RANDOM_NUMBER
3607: 0B 4E ; Command_0B_SWITCH size=4E
3609: 05 18 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=18
360B: 05 ; IF_NOT_JUMP address=3611
360C: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
360E: 19 85 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=85
3610: 10 ; Command_10_DROP_OBJECT
3611: 30 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=30
3612: 05 ; IF_NOT_JUMP address=3618
3613: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
3615: 19 86 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=86
3617: 10 ; Command_10_DROP_OBJECT
3618: 47 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=47
3619: 05 ; IF_NOT_JUMP address=361F
361A: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
361C: 19 89 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=89
361E: 10 ; Command_10_DROP_OBJECT
361F: 5E ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=5E
3620: 05 ; IF_NOT_JUMP address=3626
3621: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
3623: 19 8B ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=8B
3625: 10 ; Command_10_DROP_OBJECT
3626: 75 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=75
3627: 05 ; IF_NOT_JUMP address=362D
3628: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
362A: 19 8D ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=8D
362C: 10 ; Command_10_DROP_OBJECT
362D: 8C ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=8C
362E: 05 ; IF_NOT_JUMP address=3634
362F: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
3631: 19 90 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=90
3633: 10 ; Command_10_DROP_OBJECT
3634: A3 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=A3
3635: 05 ; IF_NOT_JUMP address=363B
3636: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
3638: 19 92 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=92
363A: 10 ; Command_10_DROP_OBJECT
363B: BA ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=BA
363C: 05 ; IF_NOT_JUMP address=3642
363D: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
363F: 19 96 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=96
3641: 10 ; Command_10_DROP_OBJECT
3642: D1 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=D1
3643: 05 ; IF_NOT_JUMP address=3649
3644: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
3646: 19 97 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=97
3648: 10 ; Command_10_DROP_OBJECT
3649: E8 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=E8
364A: 05 ; IF_NOT_JUMP address=3650
364B: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
364D: 19 98 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=98
364F: 10 ; Command_10_DROP_OBJECT
3650: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
3651: 05 ; IF_NOT_JUMP address=3657
3652: 0D 03 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=3
3654: 19 94 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=94
3656: 10 ; Command_10_DROP_OBJECT
3657: A3 61 ; Script number=A3 size=0836
3659: 0D 5F ; Command_0D_EXECUTE_LIST_WHILE_PASS size=95
365B: 2C 13 ; Command_2C_SET_ACTIVE_OBJECT object=13(Player)
365D: 19 88 ; Command_19_MOVE_ACTIVE_OBJECT_TO_ROOM room=88
365F: 1F ; Command_1F_PRINT_MESSAGE
3660: 59 C7 DE 4F 15 33 61 4B 49 69 BE 7A ; YOU FEEL AS THOUGH YOU HAVE JUST AWAKENED
366C: C4 51 18 4A C2 CF 49 FF 15 F3 B9 F3 ; FROM A VERY LONG BAD DREAM ABOUT DOCTORS AND
3678: 49 B0 85 F3 5F 79 68 43 90 CF 17 7B ; PADDED ROOMS. YOUR THOUGHTS ARE, "WHERE AM
3684: B4 80 8D C4 6A F3 46 EF 5B 5B 48 B9 ; I?"
3690: 46 73 C6 75 5B 84 BF C3 B5 33 98 46 ; .
369C: A4 E6 59 39 17 F5 9F 5B F4 34 A1 82 ; .
36A8: 17 29 A1 4D 75 94 14 B3 63 3A 1E 2F ; .
36B4: 62 8F 14 B8 15 22 ; .
36BA: 96 62 ; Script number=96 size=0836
36BC: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
36BD: 60 55 45 84 74 73 C1 F0 68 7B 9B 81 ; A SHORT, FUNNY LOOKING MAN STANDS NEARBY. HE
36C9: 8D 50 86 CF 6A 83 48 FB B9 4D 98 8F ; LOOKS AT YOU, "BOW IN THE PRESENCE OF
36D5: 16 2C 49 DB E0 DB 72 81 8D CB 87 73 ; NAPOLEON BONAPARTE! I AM THE MIGHTIEST
36E1: 49 C7 DE FC ED 09 4F D0 15 82 17 52 ; LEADER IN THE WORLD!"
36ED: 5E 75 B1 8D 61 51 5E 90 64 E9 48 F1 ; .
36F9: 8B 84 96 0B A0 54 A4 D9 BD BB 15 5B ; .
3705: 48 5F BE 6B 16 2E 6D 35 79 0E BC 86 ; .
3711: 5F 23 62 83 7A 5F BE 01 18 7E B2 E3 ; .
371D: 06 ; .
371E: 97 20 ; Script number=97 size=0836
3720: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3721: 1E D2 97 BF 9F 03 A0 4B 7B F0 B3 10 ; NAPOLEON IS RUNNING HIS HANDS OVER THE
372D: 99 CA 6A 4B 7B 50 72 0B 5C 4F A1 96 ; WALLS.
3739: AF DB 72 0E D0 2F 8E ; .
3740: 98 80 80 ; Script number=98 size=0836
3743: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3744: 7E 4F 45 83 48 83 7A 59 45 96 73 48 ; A MAN IN A WHITE FROCK, A BERET, AND HOLDING
3750: 5E F5 B2 33 89 44 45 2F 62 73 C1 8E ; A PALETTE AND BRUSH SEEMS TO BE PAINTING
375C: 48 A9 15 C3 8B AB 98 52 45 3F 48 3F ; WHAT LOOKS LIKE A DOOR ON ONE OF THE WALLS.
3768: C0 90 14 04 58 F5 B3 15 71 2F 60 D6 ; HE LOOKS UP, "EYE AM A GRATE ARTEEST! MAH
3774: B5 C4 9C 52 5E D0 47 90 BE D9 6A 56 ; NAM EEZ PICASSO!"
3780: 72 49 16 A5 9F 43 16 9B 85 46 45 44 ; .
378C: A0 C0 16 C0 16 51 5E 96 64 DB 72 0E ; .
3798: D0 2F 8E 9F 15 49 16 A5 9F B2 17 FC ; .
37A4: ED 47 63 8F 14 7B 14 AB 6E DB BD 3E ; .
37B0: 49 35 60 AB BB 8A 91 8B 16 47 90 63 ; .
37BC: 63 85 A5 65 49 6C 9C ; .
37C3: 99 22 ; Script number=99 size=0836
37C5: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
37C6: 20 85 A5 65 49 D5 9C 2F 60 D6 B5 C4 ; PICASSO SEEMS TO BE PAINTING A DOOR ON ONE
37D2: 9C 52 5E D0 47 90 BE C3 6A 09 15 A3 ; WALL.
37DE: A0 03 A0 0F A0 F3 17 17 8D ; .
37E7: 9D 14 ; Script number=9D size=0836
37E9: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
37EA: 12 5F BE 5B B1 4B 7B 44 45 67 8E E3 ; THERE IS A BLUE PILL HERE.
37F6: 16 F3 8C F4 72 DB 63 ; .
37FD: 9F 50 ; Script number=9F size=0836
37FF: 1F ; Command_1F_PRINT_MESSAGE
3800: 4E 55 45 84 74 73 C1 09 BA AB 54 17 ; A SHORT, STOCKY, UNSHAVEN MAN WEARING A
380C: EE 9A 9A CF 49 8F 96 83 48 A3 D0 10 ; BLOODY WHITE SURGICAL GOWN AND HOLDING A
3818: B2 C3 6A B6 14 36 A0 59 DB 96 73 55 ; LARGE HYPODERMIC IS STARING AT YOU.
3824: 5E 31 C6 D3 78 09 8A 80 A1 90 14 0A ; .
3830: 58 BE 9F 91 7A 7B 14 54 8B 9B 6C 12 ; .
383C: 76 7F 9E AB B2 CB 51 D5 B5 54 BD 91 ; .
3848: 7A 96 14 51 18 DB C7 ; .
384F: 9A 80 C5 ; Script number=9A size=0836
3852: 0E 80 C2 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=194
3855: 0D 20 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=32
3857: 0E 04 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=4
3859: 0A 46 ; Command_0A_COMPARE_TO_PHRASE_FORM val=46 phrase="46: WHAT * * * "
385B: 0A 47 ; Command_0A_COMPARE_TO_PHRASE_FORM val=47 phrase="47: WHAT * u....... * "
385D: 1F ; Command_1F_PRINT_MESSAGE
385E: 18 91 1E 59 C2 46 7A 9B 15 5B CA C7 ; "YOU WILL HAVE YOUR ANSWER IN TIME."
386A: DE 83 AF A9 9A 23 62 83 7A 8F BE DC ; .
3876: 63 ; .
3877: 0D 13 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=19
3879: 0A 49 ; Command_0A_COMPARE_TO_PHRASE_FORM val=49 phrase="49: MEET * u....... * "
387B: 1F ; Command_1F_PRINT_MESSAGE
387C: 0F 5F BE 49 DB 67 B1 07 BC DA 46 C6 ; THEY GREET EACH OTHER.
3888: 16 F4 72 2E ; .
388C: 0D 11 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=17
388E: 0A 4A ; Command_0A_COMPARE_TO_PHRASE_FORM val=4A phrase="4A: COME * * * "
3890: 1F ; Command_1F_PRINT_MESSAGE
3891: 0D FD 1C 0E EE 86 5F 82 17 59 5E 5F ; "OK, LEAD THE WAY."
389D: 4A 22 ; .
389F: 0D 18 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=24
38A1: 0A 2F ; Command_0A_COMPARE_TO_PHRASE_FORM val=2F phrase="2F: WAIT * * * "
38A3: 1F ; Command_1F_PRINT_MESSAGE
38A4: 14 91 1E 59 C2 2E A1 45 5B 0E BC 98 ; "YOU WOULDN'T LEAVE ME HERE!"
38B0: 5F 4F 5E 4A 5E 2F 62 E3 06 ; .
38B9: 0D 5C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=92
38BB: 1F ; Command_1F_PRINT_MESSAGE
38BC: 0F 5F BE B4 16 03 BA D6 97 54 5E E6 ; THE OBSTINATE REPLY IS
38C8: 61 4B DB 53 ; .
38CC: 0B 49 ; Command_0B_SWITCH size=49
38CE: 05 41 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=41
38D0: 14 ; IF_NOT_JUMP address=38E5
38D1: 1F ; Command_1F_PRINT_MESSAGE
38D2: 12 D9 1C 0B EE DB 22 06 9A 51 18 23 ; "NO, I'M NOT YOUR SERVANT!"
38DE: C6 B4 B7 D0 C9 AC BB ; .
38E5: 82 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=82
38E6: 0E ; IF_NOT_JUMP address=38F5
38E7: 1F ; Command_1F_PRINT_MESSAGE
38E8: 0C 49 1B D6 15 51 18 3D C6 40 61 E3 ; "DO IT YOURSELF!"
38F4: 06 ; .
38F5: C3 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=C3
38F6: 10 ; IF_NOT_JUMP address=3907
38F7: 1F ; Command_1F_PRINT_MESSAGE
38F8: 0E 91 1E 4F C2 66 C6 AF 14 E4 14 83 ; "YOU MUST BE CRAZY!"
3904: 4A E3 06 ; .
3907: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
3908: 0E ; IF_NOT_JUMP address=3917
3909: 1F ; Command_1F_PRINT_MESSAGE
390A: 0C FB 1B 80 5B F3 23 10 D0 16 BC 5C ; "I DON'T WANT TO."
3916: A2 ; .
3917: 9C 34 ; Script number=9C size=0836
3919: 0B 32 ; Command_0B_SWITCH size=32
391B: 05 E6 ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=E6
391D: 27 ; IF_NOT_JUMP address=3945
391E: 0D 25 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=37
3920: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3921: 01 13 ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=13(Player)
3923: 0E 05 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=5
3925: 20 2C ; Command_20_CHECK_ACTIVE_OBJECT object=2C(HoudiniC)
3927: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3928: 01 2C ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=2C(HoudiniC)
392A: 0B 19 ; Command_0B_SWITCH size=19
392C: 0A 04 ; Command_0A_COMPARE_TO_PHRASE_FORM val=04 phrase="04: WEST * * * "
392E: 04 ; IF_NOT_JUMP address=3933
392F: 21 04 00 00 ; Command_21_EXECUTE_PHRASE phrase="04: WEST * * * " first=00(NONE) second=00(NONE)
3933: 03 ; Command_0A_COMPARE_TO_PHRASE_FORM val=03 phrase="03: EAST * * * "
3934: 04 ; IF_NOT_JUMP address=3939
3935: 21 03 00 00 ; Command_21_EXECUTE_PHRASE phrase="03: EAST * * * " first=00(NONE) second=00(NONE)
3939: 01 ; Command_0A_COMPARE_TO_PHRASE_FORM val=01 phrase="01: NORTH * * * "
393A: 04 ; IF_NOT_JUMP address=393F
393B: 21 01 00 00 ; Command_21_EXECUTE_PHRASE phrase="01: NORTH * * * " first=00(NONE) second=00(NONE)
393F: 02 ; Command_0A_COMPARE_TO_PHRASE_FORM val=02 phrase="02: SOUTH * * * "
3940: 04 ; IF_NOT_JUMP address=3945
3941: 21 02 00 00 ; Command_21_EXECUTE_PHRASE phrase="02: SOUTH * * * " first=00(NONE) second=00(NONE)
3945: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
3946: 06 ; IF_NOT_JUMP address=394D
3947: 0D 04 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=4
3949: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
394A: 01 13 ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=13(Player)
394C: 9B ; CommonCommand_9B
394D: 9B 41 ; Script number=9B size=0836
394F: 0B 3F ; Command_0B_SWITCH size=3F
3951: 05 3F ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=3F
3953: 0D ; IF_NOT_JUMP address=3961
3954: 0D 0B ; Command_0D_EXECUTE_LIST_WHILE_PASS size=11
3956: 25 ; Command_25_PRINT_CR
3957: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3958: 03 B5 D0 54 ; WEST
395C: 25 ; Command_25_PRINT_CR
395D: 21 04 00 00 ; Command_21_EXECUTE_PHRASE phrase="04: WEST * * * " first=00(NONE) second=00(NONE)
3961: 7F ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=7F
3962: 0D ; IF_NOT_JUMP address=3970
3963: 0D 0B ; Command_0D_EXECUTE_LIST_WHILE_PASS size=11
3965: 25 ; Command_25_PRINT_CR
3966: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3967: 03 95 5F 54 ; EAST
396B: 25 ; Command_25_PRINT_CR
396C: 21 03 00 00 ; Command_21_EXECUTE_PHRASE phrase="03: EAST * * * " first=00(NONE) second=00(NONE)
3970: BF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=BF
3971: 0E ; IF_NOT_JUMP address=3980
3972: 0D 0C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=12
3974: 25 ; Command_25_PRINT_CR
3975: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3976: 04 04 9A 53 BE ; NORTH
397B: 25 ; Command_25_PRINT_CR
397C: 21 01 00 00 ; Command_21_EXECUTE_PHRASE phrase="01: NORTH * * * " first=00(NONE) second=00(NONE)
3980: FF ; Command_05_IS_LAST_RANDOM_LESS_THAN_OR_EQUAL value=FF
3981: 0E ; IF_NOT_JUMP address=3990
3982: 0D 0C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=12
3984: 25 ; Command_25_PRINT_CR
3985: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3986: 04 47 B9 53 BE ; SOUTH
398B: 25 ; Command_25_PRINT_CR
398C: 21 02 00 00 ; Command_21_EXECUTE_PHRASE phrase="02: SOUTH * * * " first=00(NONE) second=00(NONE)
3990: 9E 14 ; Script number=9E size=0836
3992: 0D 12 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=18
3994: 01 13 ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=13(Player)
3996: 2C 13 ; Command_2C_SET_ACTIVE_OBJECT object=13(Player)
3998: AA ; CommonCommand_AA
3999: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
399A: 0B 9E 61 3D 62 82 17 54 5E 3F A0 2E ; ENTERS THE ROOM.
39A6: A0 20 ; Script number=A0 size=0836
39A8: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
39A9: 1E 5F BE E3 16 F3 8C A7 B7 4B 94 6B ; THE PILL SEEMS TO DISSOLVE IN THE HAMBURGER.
39B5: BF 95 5A 3E B9 5B CA 83 7A 5F BE 9B ;
39C1: 15 BF 91 B7 B1 1B B5 ; .
39C8: A1 6F ; Script number=A1 size=0836
39CA: 0D 6D ; Command_0D_EXECUTE_LIST_WHILE_PASS size=109
39CC: 0E 08 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=8
39CE: 0A 28 ; Command_0A_COMPARE_TO_PHRASE_FORM val=28 phrase="28: FEED WITH ...P.... u......."
39D0: 0A 0E ; Command_0A_COMPARE_TO_PHRASE_FORM val=0E phrase="0E: THROW TO u....... ...P...."
39D2: 0A 29 ; Command_0A_COMPARE_TO_PHRASE_FORM val=29 phrase="29: FEED TO u....... ...P...."
39D4: 0A 0D ; Command_0A_COMPARE_TO_PHRASE_FORM val=0D phrase="0D: THROW AT .v...... ...P...."
39D6: 0E 04 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=4
39D8: 09 19 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=19(HamburgerMeat
39DA: 08 19 ; Command_08_COMPARE_OBJECT_TO_FIRST_NOUN object=19(HamburgerMeat
39DC: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
39DD: 28 5F BE 09 15 D9 6A C0 9F C6 B5 80 ; THE DOG WOLFS DOWN THE HAMBURGER. HE MUST BE
39E9: A1 82 17 4A 5E 64 48 31 C6 47 62 9F ; PRETTY HUNGRY!
39F5: 15 77 16 F3 B9 5B 4D EF A6 53 C0 AF ; .
3A01: 15 C4 98 EB DA ; .
3A06: 17 19 00 ; Command_17_MOVE_OBJECT_TO_LOCATION object=19(HamburgerMeat) location=00
3A09: 0E 2E ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=46
3A0B: 0D 2A ; Command_0D_EXECUTE_LIST_WHILE_PASS size=42
3A0D: 03 19 15 ; Command_03_IS_OBJECT_AT_LOCATION object=15(BluePillA) location=19
3A10: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3A11: 22 5F BE 09 15 CE 6A 3D A0 D5 B5 DD ; THE DOG LOOKS SICK. HE WEAVES AND FALLS OVER
3A1D: 78 4A F4 59 5E 98 5F 4B 62 8E 48 4B ; DEAD.
3A29: 15 0D 8D C8 16 23 62 E3 59 9B 5D ; .
3A34: 1E 1A 3C ; Command_1E_SWAP_OBJECTS objectA=1A(GuardDog) objectB=3C(DeadDog)
3A37: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3A38: 0C ; Command_0C_FAIL
3A39: A4 43 ; Script number=A4 size=0836
3A3B: 0D 41 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=65
3A3D: 0A 0B ; Command_0A_COMPARE_TO_PHRASE_FORM val=0B phrase="0B: LOOK AT * u......."
3A3F: 0E 3D ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=61
3A41: 0D 17 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=23
3A43: 01 3D ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=3D(SecretDoor)
3A45: 1F ; Command_1F_PRINT_MESSAGE
3A46: 13 5F BE 5B B1 4B 7B 55 45 E4 5F 73 ; THERE IS A SECRET DOOR HERE.
3A52: 62 81 5B 8A AF 2F 62 2E ; .
3A5A: 0D 22 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=34
3A5C: 0E 04 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=4
3A5E: 01 3E ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=3E(PaintedDoorA)
3A60: 01 3F ; Command_01_IS_OBJECT_IN_PACK_OR_ROOM object=3F(PaintedDoorB)
3A62: 1F ; Command_1F_PRINT_MESSAGE
3A63: 1A 85 A5 65 49 CA 9C 4B 49 4B A4 BF ; PICASSO HAS PAINTED A DOOR ON ONE WALL.
3A6F: 9A 03 58 09 15 A3 A0 03 A0 0F A0 F3 ; .
3A7B: 17 17 8D ; .
3A7E: A5 12 ; Script number=A5 size=0836
3A80: 0D 10 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=16
3A82: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3A83: 15 02 ; Command_15_CHECK_OBJECT_BITS bits=02 ......O.
3A85: A8 ; CommonCommand_A8
3A86: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3A87: 0A 4B 7B 06 9A DE 14 D7 A0 9B 5D ; IS NOT CLOSED.
3A92: A6 0E ; Script number=A6 size=0836
3A94: 0D 0C ; Command_0D_EXECUTE_LIST_WHILE_PASS size=12
3A96: 29 ; Command_29_TOGGLE_VAR_OBJECT_OPEN_CLOSED
3A97: A8 ; CommonCommand_A8
3A98: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3A99: 08 4B 7B 09 9A C2 16 A7 61 ; IS NOW OPEN.
3AA2: A7 2A ; Script number=A7 size=0836
3AA4: 0D 28 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=40
3AA6: 15 01 ; Command_15_CHECK_OBJECT_BITS bits=01 .......L
3AA8: 0E 0F ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=15
3AAA: 0D 05 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=5
3AAC: 08 40 ; Command_08_COMPARE_OBJECT_TO_FIRST_NOUN object=40(GreenDoorI
3AAE: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3AAF: 09 1B ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=1B(GreenKeyA
3AB1: 0D 06 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=6
3AB3: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3AB4: 08 40 ; Command_08_COMPARE_OBJECT_TO_FIRST_NOUN object=40(GreenDoorI
3AB6: 14 ; Command_14_EXECUTE_COMMAND_REVERSE_STATUS
3AB7: 09 14 ; Command_09_COMPARE_OBJECT_TO_SECOND_NOUN object=14(RedKeyA
3AB9: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3ABA: 0B C7 DE D3 14 E6 96 B0 17 75 8D 4B ; YOU CAN'T UNLOCK
3AC6: A8 ; CommonCommand_A8
3AC7: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3AC8: 03 56 D1 48 ; WITH
3ACC: A9 ; CommonCommand_A9
3ACD: 8B ; CommonCommand_8B
3ACE: A8 0C ; Script number=A8 size=0836
3AD0: 0D 0A ; Command_0D_EXECUTE_LIST_WHILE_PASS size=10
3AD2: 1A ; Command_1A_SET_VAR_OBJECT_TO_FIRST_NOUN
3AD3: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
3AD5: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
3AD7: 1F ; Command_1F_PRINT_MESSAGE
3AD8: 02 5F BE ; THE
3ADB: 11 ; Command_11_PRINT_FIRST_NOUN_SHORT_NAME
3ADC: A9 0C ; Script number=A9 size=0836
3ADE: 0D 0A ; Command_0D_EXECUTE_LIST_WHILE_PASS size=10
3AE0: 1B ; Command_1B_SET_VAR_OBJECT_TO_SECOND_NOUN
3AE1: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
3AE3: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
3AE5: 1F ; Command_1F_PRINT_MESSAGE
3AE6: 02 5F BE ; THE
3AE9: 12 ; Command_12_PRINT_SECOND_NOUN_SHORT_NAME
3AEA: AA 0B ; Script number=AA size=0836
3AEC: 0D 09 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=9
3AEE: 0E 06 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=6
3AF0: 15 10 ; Command_15_CHECK_OBJECT_BITS bits=10 ...P....
3AF2: 1F ; Command_1F_PRINT_MESSAGE
3AF3: 02 5F BE ; THE
3AF6: 16 ; Command_16_PRINT_VAR_NOUN_SHORT_NAME
3AF7: AB 35 ; Script number=AB size=0836
3AF9: 0D 33 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=51
3AFB: 0A 09 ; Command_0A_COMPARE_TO_PHRASE_FORM val=09 phrase="09: ATTACK WITH ...P.... .v......"
3AFD: A8 ; CommonCommand_A8
3AFE: 1F ; Command_1F_PRINT_MESSAGE
3AFF: 2E C5 4C CB 87 F3 49 48 DB FF B2 51 ; BACKS AWAY FROM YOUR ATTACK, AND SAYS, "YOU
3B0B: 18 23 C6 8E 49 DD 46 03 EE 33 98 1B ; MUST BE A CRAZY PERSON!"
3B17: B7 33 BB 91 1E 4F C2 66 C6 AF 14 7B ; .
3B23: 14 AB 55 7B E6 F4 A4 40 B9 E3 06 ; .
3B2E: AC 01 ; Script number=AC size=0836
3B30: AA ; CommonCommand_AA
3B31: AD 15 ; Script number=AD size=0836
3B33: 0D 13 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=19
3B35: AA ; CommonCommand_AA
3B36: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3B37: 10 60 7B F3 23 70 75 C3 6E 33 17 2E ; ISN'T HUNGRY RIGHT NOW.
3B43: 6D 99 16 5B D4 ; .
3B48: AE 19 ; Script number=AE size=0836
3B4A: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3B4B: 17 43 79 C7 DE D3 14 88 96 8E 7A 7B ; IF YOU CAN FIND A MOUTH, I'M GAME!
3B57: 14 C7 93 76 BE BD 15 49 90 67 48 21 ; .
3B63: AF 23 ; Script number=AF size=0836
3B65: 0E 21 ; Command_0E_EXECUTE_LIST_WHILE_FAIL size=33
3B67: 13 ; Command_13_PROCESS_PHRASE_BY_ROOM_OR_FIRST_OR_SECOND
3B68: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3B69: 1E C7 DE 95 AF D5 C3 65 62 D5 15 67 ; YOUR SUCCESS IS MEASURED IN LEAPS AND
3B75: 16 67 49 66 B1 D0 15 3F 16 ED 48 90 ; BOUNDS!
3B81: 14 04 58 30 A1 09 5C ; .
3B88: B0 18 ; Script number=B0 size=0836
3B8A: 0D 16 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=22
3B8C: 0A 15 ; Command_0A_COMPARE_TO_PHRASE_FORM val=15 phrase="15: EAT * u....... * "
3B8E: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3B8F: 12 2E 6F AB A2 25 DD 36 54 7B 17 FF ; GULP! YECCH, TASTES AWFUL!
3B9B: B9 C3 B5 DF D0 AB 89 ; .
3BA2: B1 18 ; Script number=B1 size=0836
3BA4: 0D 16 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=22
3BA6: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3BA7: 05 C7 DE 77 15 54 ; YOU GET
3BAD: A8 ; CommonCommand_A8
3BAE: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3BAF: 03 56 D1 48 ; WITH
3BB3: A9 ; CommonCommand_A9
3BB4: 8B ; CommonCommand_8B
3BB5: A8 ; CommonCommand_A8
3BB6: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3BB7: 04 4D BD A7 61 ; TAKEN.
3BBC: B2 17 ; Script number=B2 size=0836
3BBE: 0D 15 ; Command_0D_EXECUTE_LIST_WHILE_PASS size=21
3BC0: 0A 43 ; Command_0A_COMPARE_TO_PHRASE_FORM val=43 phrase="43: GET WITH ..C..... ..C....."
3BC2: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3BC3: 09 C7 DE D3 14 E6 96 77 15 54 ; YOU CAN'T GET
3BCD: A8 ; CommonCommand_A8
3BCE: 04 ; Command_04_PRINT_SYSTEM_OR_PLAYER_MESSAGE
3BCF: 03 56 D1 48 ; WITH
3BD3: A9 ; CommonCommand_A9
3BD4: 8B ; CommonCommand_8B
; ENDOF 339C
; InputWordTables
; --- IGNORES --- Maybe for curse words. No words in this list and thus never used.
3BD5: 00
;
; --- 1 VERBS ---
3BD6: 03 47 45 54 09 ; GET 9
3BDB: 04 47 52 41 42 09 ; GRAB 9
3BE1: 05 54 48 52 4F 57 03 ; THROW 3
3BE8: 06 41 54 54 41 43 4B 04 ; ATTACK 4
3BF0: 05 42 52 45 41 4B 04 ; BREAK 4
3BF7: 04 4B 49 4C 4C 04 ; KILL 4
3BFD: 03 48 49 54 04 ; HIT 4
3C02: 05 4E 4F 52 54 48 05 ; NORTH 5
3C09: 01 4E 05 ; N 5
3C0C: 05 53 4F 55 54 48 06 ; SOUTH 6
3C13: 01 53 06 ; S 6
3C16: 04 45 41 53 54 07 ; EAST 7
3C1C: 01 45 07 ; E 7
3C1F: 04 57 45 53 54 08 ; WEST 8
3C25: 01 57 08 ; W 8
3C28: 04 54 41 4B 45 09 ; TAKE 9
3C2E: 05 43 41 52 52 59 09 ; CARRY 9
3C35: 04 44 52 4F 50 0A ; DROP 10
3C3B: 03 50 55 54 0A ; PUT 10
3C40: 06 49 4E 56 45 4E 54 0B ; INVENT 11
3C48: 04 4C 4F 4F 4B 0C ; LOOK 12
3C4E: 04 47 49 56 45 0D ; GIVE 13
3C54: 05 4F 46 46 45 52 0D ; OFFER 13
3C5B: 06 45 58 41 4D 49 4E 0E ; EXAMIN 14
3C63: 06 53 45 41 52 43 48 0E ; SEARCH 14
3C6B: 04 4F 50 45 4E 0F ; OPEN 15
3C71: 04 50 55 4C 4C 10 ; PULL 16
3C77: 03 45 41 54 12 ; EAT 18
3C7C: 05 43 4C 49 4D 42 15 ; CLIMB 21
3C83: 06 41 53 43 45 4E 44 15 ; ASCEND 21
3C8B: 06 44 45 53 43 45 4E 15 ; DESCEN 21
3C93: 04 4C 49 46 54 1C ; LIFT 28
3C99: 04 57 41 49 54 1F ; WAIT 31
3C9F: 04 53 54 41 59 1F ; STAY 31
3CA5: 04 4A 55 4D 50 20 ; JUMP 32
3CAB: 02 47 4F 21 ; GO 33
3CAF: 03 52 55 4E 21 ; RUN 33
3CB4: 04 4C 45 46 54 21 ; LEFT 33
3CBA: 05 52 49 47 48 54 21 ; RIGHT 33
3CC1: 05 45 4E 54 45 52 21 ; ENTER 33
3CC8: 04 50 55 53 48 10 ; PUSH 16
3CCE: 04 4D 4F 56 45 10 ; MOVE 16
3CD4: 04 4B 49 43 4B 23 ; KICK 35
3CDA: 04 46 45 45 44 24 ; FEED 36
3CE0: 06 53 43 52 45 41 4D 2B ; SCREAM 43
3CE8: 04 59 45 4C 4C 2B ; YELL 43
3CEE: 04 51 55 49 54 2D ; QUIT 45
3CF4: 04 53 54 4F 50 2D ; STOP 45
3CFA: 05 50 4C 55 47 48 32 ; PLUGH 50
3D01: 04 50 49 43 4B 34 ; PICK 52
3D07: 05 43 4C 4F 53 45 38 ; CLOSE 56
3D0E: 04 4C 4F 43 4B 39 ; LOCK 57
3D14: 06 55 4E 4C 4F 43 4B 3A ; UNLOCK 58
3D1C: 05 48 45 4C 4C 4F 3B ; HELLO 59
3D23: 02 48 49 3B ; HI 59
3D27: 03 42 4F 57 3B ; BOW 59
3D2C: 05 47 52 45 45 54 3B ; GREET 59
3D33: 04 57 48 41 54 3C ; WHAT 60
3D39: 03 57 48 59 3C ; WHY 60
3D3E: 03 48 4F 57 3C ; HOW 60
3D43: 05 57 48 45 52 45 3C ; WHERE 60
3D4A: 03 57 48 4F 3C ; WHO 60
3D4F: 04 57 48 45 4E 3C ; WHEN 60
3D55: 05 4C 4F 57 45 52 3D ; LOWER 61
3D5C: 05 55 4E 54 49 45 3D ; UNTIE 61
3D63: 03 4C 45 54 3E ; LET 62
3D68: 04 43 4F 4D 45 3F ; COME 63
3D6E: 06 46 4F 4C 4C 4F 57 3F ; FOLLOW 63
3D76: 04 4D 45 45 54 40 ; MEET 64
3D7C: 06 49 4E 54 52 4F 44 40 ; INTROD 64
3D84: 00
;
; --- 2 NOUNS ---
3D85: 03 4B 45 59 16 ; KEY 22
3D8A: 04 50 49 4C 4C 17 ; PILL 23
3D90: 04 48 4F 4F 4B 18 ; HOOK 24
3D96: 04 44 4F 4F 52 0B ; DOOR 11
3D9C: 06 43 41 42 49 4E 45 19 ; CABINE 25
3DA4: 06 52 45 46 52 49 47 1A ; REFRIG 26
3DAC: 06 48 41 4D 42 55 52 1B ; HAMBUR 27
3DB4: 06 42 55 52 47 45 52 1B ; BURGER 27
3DBC: 04 4D 45 41 54 1B ; MEAT 27
3DC2: 03 44 4F 47 08 ; DOG 8
3DC7: 04 48 41 4E 44 1F ; HAND 31
3DCD: 05 48 41 4E 44 53 1F ; HANDS 31
3DD4: 06 4E 41 50 4F 4C 45 02 ; NAPOLE 2
3DDC: 06 42 4F 4E 41 50 41 02 ; BONAPA 2
3DE4: 03 52 41 59 03 ; RAY 3
3DE9: 04 58 52 41 59 03 ; XRAY 3
3DEF: 06 4A 4F 48 4E 53 4F 03 ; JOHNSO 3
3DF7: 06 48 4F 55 44 49 4E 04 ; HOUDIN 4
3DFF: 06 50 49 43 41 53 53 05 ; PICASS 5
3E07: 06 4D 45 52 4C 49 4E 06 ; MERLIN 6
3E0F: 06 44 4F 43 54 4F 52 07 ; DOCTOR 7
3E17: 05 4E 55 52 53 45 01 ; NURSE 1
3E1E: 06 54 48 45 52 41 50 01 ; THERAP 1
3E26: 04 57 41 4C 4C 25 ; WALL 37
3E2C: 05 57 41 4C 4C 53 25 ; WALLS 37
3E33: 04 52 4F 4F 4D 2A ; ROOM 42
3E39: 04 43 45 4C 4C 2A ; CELL 42
3E3F: 06 4F 46 46 49 43 45 2A ; OFFICE 42
3E47: 04 53 48 45 44 2A ; SHED 42
3E4D: 05 46 4C 4F 4F 52 2B ; FLOOR 43
3E54: 04 45 58 49 54 2C ; EXIT 44
3E5A: 04 48 4F 4C 45 19 ; HOLE 25
3E60: 06 48 41 4C 4C 57 41 33 ; HALLWA 51
3E68: 06 45 4E 54 52 41 4E 36 ; ENTRAN 54
3E70: 06 43 45 49 4C 49 4E 3B ; CEILIN 59
3E78: 04 52 4F 4F 46 3B ; ROOF 59
3E7E: 00
;
; --- 3 ADJECTIVES ---
3E7F: 03 52 45 44 13 ; RED 19
3E84: 05 47 52 45 45 4E 14 ; GREEN 20
3E8B: 04 42 4C 55 45 15 ; BLUE 21
3E91: 06 53 45 43 52 45 54 3D ; SECRET 61
3E99: 06 50 41 49 4E 54 45 3E ; PAINTE 62
3EA1: 00
;
; --- 4 PREPOSITIONS ---
3EA2: 02 54 4F 01 ; TO 1
3EA6: 04 57 49 54 48 02 ; WITH 2
3EAC: 05 55 53 49 4E 47 02 ; USING 2
3EB3: 02 41 54 03 ; AT 3
3EB7: 05 55 4E 44 45 52 04 ; UNDER 4
3EBE: 02 49 4E 05 ; IN 5
3EC2: 04 49 4E 54 4F 05 ; INTO 5
3EC8: 06 49 4E 53 49 44 45 05 ; INSIDE 5
3ED0: 03 4F 55 54 06 ; OUT 6
3ED5: 06 4F 55 54 53 49 44 06 ; OUTSID 6
3EDD: 02 55 50 07 ; UP 7
3EE1: 04 44 4F 57 4E 08 ; DOWN 8
3EE7: 04 4F 56 45 52 09 ; OVER 9
3EED: 06 42 45 48 49 4E 44 0A ; BEHIND 10
3EF5: 06 41 52 4F 55 4E 44 0B ; AROUND 11
3EFD: 02 4F 4E 0C ; ON 12
3F01: 00