(script 43)

(string
    string_123e "Door"
    string_1243 "Dresser1"
    string_124c "Dresser2"
    string_1255 "Lcloset"
    string_125d "Lopen"
    string_1263 "Room43"
    string_126a "cat"
    string_126e "closing"
    string_1276 "doorL"
    string_127c "doorR"
    string_1282 "lamp"
    string_1287 "lampL"
    string_128d "lampR"
    string_1293 "leak"
    string_1298 "myDoor"
    string_129f "myMusic"
    string_12a7 "phone"
    string_12ad "statueL"
    string_12b5 "statueR"
    string_12bd "vase"
    string_12c2 "wardL"
    string_12c8 "wardR"
)

(said
    said_0c1e (look<below),behind/armoire
    said_0c2c (look<below),behind/monument
    said_0c3a /curtain
    said_0c3e /dirt
    said_0c42 /door<cachoterie
    said_0c49 /pedestal
    said_0c4d <bas
    said_0c51 [<around,at][/room]
    said_0c5f get,bouger/monument
    said_0c68 get/cat
    said_0c6e get/vase
    said_0c74 look/armoire
    said_0c7a look/cat
    said_0c80 look/door
    said_0c86 look/drawer
    said_0c8c look/monument
    said_0c92 look/vase
    said_0c98 look<behind/armoire
    said_0ca1 look<dans/vase
    said_0caa look>
    said_0cae bouger,attirer,appuyer/armoire
    said_0cba open/door<armoire
    said_0cc3 open<(attirer,appuyer)/armoire
    said_0cd1 chercher,open,(look<dans)/armoire
    said_0ce2 chercher,open,(look<dans)/drawer
)

(synonym
    room = hall | hallway
    armoire | cabinet | cupboard | hutch | wardrobe = closet | placard
    allumer | ignite | illuminer | light = lamp | lampe
    drawer | tiroir = commode | dresser
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
)

// 0cfa
(instance public Room43 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $2b
        style $ffff
        horizon $0
        controls $0
        north $0
        east $0
        south $0
        west $0
        curPic $0
        picAngle $0
        vanishingX $a0
        vanishingY $8ad0
        vertAngle $0
    )
    (method (init) // method_0022
  0022:39 57            pushi 57 // $57 init
  0024:76               push0 
  0025:57 37 04         super Rm 4 

  0028:35 64              ldi 64 
  002a:65 16             aTop horizon 
  002c:35 2f              ldi 2f 
  002e:65 1e             aTop south 
  0030:35 49              ldi 49 
  0032:65 1a             aTop north 
  0034:39 04            pushi 4 // $4 x
  0036:38 0084          pushi 84 // $84 stop
  0039:39 2b            pushi 2b // $2b number
  003b:39 2c            pushi 2c // $2c handle
  003d:39 47            pushi 47 // $47 wordFail
  003f:45 15 08         callb procedure_0015 8 // LoadMany 

  0042:39 61            pushi 61 // $61 add
  0044:39 06            pushi 6 // $6 loop
  0046:74 0df7          lofss $0e40 // vase
  0049:74 0e2a          lofss $0e76 // cat
  004c:74 0e5d          lofss $0eac // statueL
  004f:74 0e90          lofss $0ee2 // statueR
  0052:74 0ec3          lofss $0f18 // lamp
  0055:74 0ef6          lofss $0f4e // phone
  0058:39 62            pushi 62 // $62 eachElementDo
  005a:78               push1 
  005b:39 57            pushi 57 // $57 init
  005d:39 3c            pushi 3c // $3c doit
  005f:76               push0 
  0060:81 0a              lag gAddToPics 
  0062:4a 1a             send 1a 

  0064:38 010b          pushi 10b // $10b setFeatures
  0067:39 08            pushi 8 // $8 underBits
  0069:74 0ee2          lofss $0f4e // phone
  006c:74 0ea9          lofss $0f18 // lamp
  006f:74 0e04          lofss $0e76 // cat
  0072:74 0e37          lofss $0eac // statueL
  0075:74 0e6a          lofss $0ee2 // statueR
  0078:74 0dc5          lofss $0e40 // vase
  007b:74 113c          lofss $11ba // Dresser1
  007e:74 1165          lofss $11e6 // Dresser2
  0081:54 14             self 14 

  0083:80 00df            lag gDetailLevel 
  0086:31 28              bnt code_00b0 
  0088:39 42            pushi 42 // $42 setPri
  008a:78               push1 
  008b:39 03            pushi 3 // $3 y
  008d:39 7e            pushi 7e // $7e setCycle
  008f:78               push1 
  0090:51 16            class Fwd 
  0092:36                push 
  0093:39 57            pushi 57 // $57 init
  0095:76               push0 
  0096:72 107d          lofsa $1116 // lampL
  0099:4a 10             send 10 

  009b:39 42            pushi 42 // $42 setPri
  009d:78               push1 
  009e:39 03            pushi 3 // $3 y
  00a0:39 7e            pushi 7e // $7e setCycle
  00a2:78               push1 
  00a3:51 16            class Fwd 
  00a5:36                push 
  00a6:39 57            pushi 57 // $57 init
  00a8:76               push0 
  00a9:72 1018          lofsa $10c4 // lampR
  00ac:4a 10             send 10 

  00ae:33 22              jmp code_00d2 

        code_00b0
  00b0:39 42            pushi 42 // $42 setPri
  00b2:78               push1 
  00b3:39 03            pushi 3 // $3 y
  00b5:39 57            pushi 57 // $57 init
  00b7:76               push0 
  00b8:38 00c6          pushi c6 // $c6 stopUpd
  00bb:76               push0 
  00bc:72 1057          lofsa $1116 // lampL
  00bf:4a 0e             send e 

  00c1:39 42            pushi 42 // $42 setPri
  00c3:78               push1 
  00c4:39 03            pushi 3 // $3 y
  00c6:39 57            pushi 57 // $57 init
  00c8:76               push0 
  00c9:38 00c6          pushi c6 // $c6 stopUpd
  00cc:76               push0 
  00cd:72 0ff4          lofsa $10c4 // lampR
  00d0:4a 0e             send e 


        code_00d2
  00d2:39 07            pushi 7 // $7 cel
  00d4:78               push1 
  00d5:80 0099            lag global153 
  00d8:2f 07               bt code_00e1 
  00da:89 0c              lsg gPrevRoomNum 
  00dc:35 49              ldi 49 
  00de:1a                 eq? 
  00df:31 04              bnt code_00e5 

        code_00e1
  00e1:35 03              ldi 3 
  00e3:33 02              jmp code_00e7 

        code_00e5
  00e5:35 00              ldi 0 

        code_00e7
  00e7:36                push 
  00e8:39 57            pushi 57 // $57 init
  00ea:76               push0 
  00eb:38 00c6          pushi c6 // $c6 stopUpd
  00ee:76               push0 
  00ef:72 1076          lofsa $1168 // Door
  00f2:4a 0e             send e 

  00f4:38 00c9          pushi c9 // $c9 ignoreActors
  00f7:78               push1 
  00f8:78               push1 
  00f9:39 57            pushi 57 // $57 init
  00fb:76               push0 
  00fc:38 00c6          pushi c6 // $c6 stopUpd
  00ff:76               push0 
  0100:72 0e81          lofsa $0f84 // doorR
  0103:4a 0e             send e 

  0105:38 00c9          pushi c9 // $c9 ignoreActors
  0108:78               push1 
  0109:78               push1 
  010a:39 57            pushi 57 // $57 init
  010c:76               push0 
  010d:38 00c6          pushi c6 // $c6 stopUpd
  0110:76               push0 
  0111:72 0ebe          lofsa $0fd2 // doorL
  0114:4a 0e             send e 

  0116:39 07            pushi 7 // $7 cel
  0118:78               push1 
  0119:89 0c              lsg gPrevRoomNum 
  011b:35 31              ldi 31 
  011d:1a                 eq? 
  011e:31 04              bnt code_0124 
  0120:35 04              ldi 4 
  0122:33 02              jmp code_0126 

        code_0124
  0124:35 00              ldi 0 

        code_0126
  0126:36                push 
  0127:38 00c9          pushi c9 // $c9 ignoreActors
  012a:78               push1 
  012b:78               push1 
  012c:39 42            pushi 42 // $42 setPri
  012e:78               push1 
  012f:39 0c            pushi c // $c nsRight
  0131:39 57            pushi 57 // $57 init
  0133:76               push0 
  0134:38 00c6          pushi c6 // $c6 stopUpd
  0137:76               push0 
  0138:72 0ee5          lofsa $1020 // wardL
  013b:4a 1a             send 1a 

  013d:39 07            pushi 7 // $7 cel
  013f:78               push1 
  0140:89 0c              lsg gPrevRoomNum 
  0142:35 32              ldi 32 
  0144:1a                 eq? 
  0145:31 04              bnt code_014b 
  0147:35 04              ldi 4 
  0149:33 02              jmp code_014d 

        code_014b
  014b:35 00              ldi 0 

        code_014d
  014d:36                push 
  014e:38 00c9          pushi c9 // $c9 ignoreActors
  0151:78               push1 
  0152:78               push1 
  0153:39 42            pushi 42 // $42 setPri
  0155:78               push1 
  0156:39 0c            pushi c // $c nsRight
  0158:39 57            pushi 57 // $57 init
  015a:76               push0 
  015b:38 00c6          pushi c6 // $c6 stopUpd
  015e:76               push0 
  015f:72 0f10          lofsa $1072 // wardR
  0162:4a 1a             send 1a 

  0164:89 0c              lsg gPrevRoomNum 
  0166:3c                 dup 
  0167:35 31              ldi 31 
  0169:1a                 eq? 
  016a:31 21              bnt code_018d 
  016c:39 12            pushi 12 // $12 illegalBits
  016e:78               push1 
  016f:38 8000          pushi 8000 // $8000 sel_32768
  0172:38 00c5          pushi c5 // $c5 posn
  0175:7a               push2 
  0176:39 3e            pushi 3e // $3e looper
  0178:38 00a4          pushi a4 // $a4 cycleSpeed
  017b:81 00              lag gEgo 
  017d:4a 0e             send e 

  017f:39 7a            pushi 7a // $7a setScript
  0181:78               push1 
  0182:74 0bfb          lofss $0d80 // closing
  0185:72 0e98          lofsa $1020 // wardL
  0188:4a 06             send 6 

  018a:32 0097            jmp code_0224 

        code_018d
  018d:3c                 dup 
  018e:35 32              ldi 32 
  0190:1a                 eq? 
  0191:31 21              bnt code_01b4 
  0193:39 12            pushi 12 // $12 illegalBits
  0195:78               push1 
  0196:38 8000          pushi 8000 // $8000 sel_32768
  0199:38 00c5          pushi c5 // $c5 posn
  019c:7a               push2 
  019d:38 0103          pushi 103 // $103 initialized
  01a0:38 00a1          pushi a1 // $a1 motionCue
  01a3:81 00              lag gEgo 
  01a5:4a 0e             send e 

  01a7:39 7a            pushi 7a // $7a setScript
  01a9:78               push1 
  01aa:74 0bd3          lofss $0d80 // closing
  01ad:72 0ec2          lofsa $1072 // wardR
  01b0:4a 06             send 6 

  01b2:33 70              jmp code_0224 

        code_01b4
  01b4:3c                 dup 
  01b5:35 2a              ldi 2a 
  01b7:1a                 eq? 
  01b8:31 15              bnt code_01cf 
  01ba:39 12            pushi 12 // $12 illegalBits
  01bc:78               push1 
  01bd:38 804c          pushi 804c // $804c sel_32844
  01c0:38 00c5          pushi c5 // $c5 posn
  01c3:7a               push2 
  01c4:39 49            pushi 49 // $49 semanticFail
  01c6:38 0084          pushi 84 // $84 stop
  01c9:81 00              lag gEgo 
  01cb:4a 0e             send e 

  01cd:33 55              jmp code_0224 

        code_01cf
  01cf:3c                 dup 
  01d0:35 2c              ldi 2c 
  01d2:1a                 eq? 
  01d3:31 16              bnt code_01eb 
  01d5:39 12            pushi 12 // $12 illegalBits
  01d7:78               push1 
  01d8:38 804c          pushi 804c // $804c sel_32844
  01db:38 00c5          pushi c5 // $c5 posn
  01de:7a               push2 
  01df:38 00fb          pushi fb // $fb changeScore
  01e2:38 0084          pushi 84 // $84 stop
  01e5:81 00              lag gEgo 
  01e7:4a 0e             send e 

  01e9:33 39              jmp code_0224 

        code_01eb
  01eb:3c                 dup 
  01ec:35 49              ldi 49 
  01ee:1a                 eq? 
  01ef:31 23              bnt code_0214 
  01f1:39 12            pushi 12 // $12 illegalBits
  01f3:78               push1 
  01f4:38 804c          pushi 804c // $804c sel_32844
  01f7:38 00c5          pushi c5 // $c5 posn
  01fa:7a               push2 
  01fb:38 009f          pushi 9f // $9f nextCel
  01fe:39 6b            pushi 6b // $6b addToFront
  0200:81 00              lag gEgo 
  0202:4a 0e             send e 

  0204:76               push0 
  0205:45 04 00         callb procedure_0004 0 // HandsOn 

  0208:80 0099            lag global153 
  020b:18                 not 
  020c:31 04              bnt code_0212 
  020e:35 01              ldi 1 
  0210:a3 02              sal local2 

        code_0212
  0212:33 10              jmp code_0224 

        code_0214
  0214:3c                 dup 
  0215:35 2f              ldi 2f 
  0217:1a                 eq? 
  0218:31 0a              bnt code_0224 
  021a:39 12            pushi 12 // $12 illegalBits
  021c:78               push1 
  021d:38 804c          pushi 804c // $804c sel_32844
  0220:81 00              lag gEgo 
  0222:4a 06             send 6 


        code_0224
  0224:3a                toss 
  0225:88 0099            lsg global153 
  0228:35 00              ldi 0 
  022a:1a                 eq? 
  022b:31 12              bnt code_023f 
  022d:39 05            pushi 5 // $5 view
  022f:78               push1 
  0230:76               push0 
  0231:39 42            pushi 42 // $42 setPri
  0233:78               push1 
  0234:39 ff            pushi ff // $ff checkAni
  0236:39 57            pushi 57 // $57 init
  0238:76               push0 
  0239:81 00              lag gEgo 
  023b:4a 10             send 10 

  023d:33 0c              jmp code_024b 

        code_023f
  023f:76               push0 
  0240:45 03 00         callb procedure_0003 0 // HandsOff 

  0243:39 7a            pushi 7a // $7a setScript
  0245:78               push1 
  0246:74 0b67          lofss $0db0 // leak
  0249:54 06             self 6 


        code_024b
  024b:48                 ret 
    )

    (method (doit) // method_024c
  024c:76               push0 
  024d:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0250:31 0a              bnt code_025c 
  0252:7a               push2 
  0253:39 2b            pushi 2b // $2b number
  0255:76               push0 
  0256:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_025c
  025c:83 01              lal local1 
  025e:18                 not 
  025f:31 24              bnt code_0285 
  0261:89 0c              lsg gPrevRoomNum 
  0263:35 49              ldi 49 
  0265:1a                 eq? 
  0266:31 1d              bnt code_0285 
  0268:39 07            pushi 7 // $7 cel
  026a:76               push0 
  026b:72 0efa          lofsa $1168 // Door
  026e:4a 04             send 4 

  0270:36                push 
  0271:35 00              ldi 0 
  0273:1a                 eq? 
  0274:31 0f              bnt code_0285 
  0276:35 01              ldi 1 
  0278:a3 01              sal local1 
  027a:38 00c6          pushi c6 // $c6 stopUpd
  027d:76               push0 
  027e:72 0ee7          lofsa $1168 // Door
  0281:4a 04             send 4 

  0283:33 24              jmp code_02a9 

        code_0285
  0285:83 02              lal local2 
  0287:31 20              bnt code_02a9 
  0289:35 00              ldi 0 
  028b:a3 02              sal local2 
  028d:39 7e            pushi 7e // $7e setCycle
  028f:78               push1 
  0290:51 1b            class Beg 
  0292:36                push 
  0293:72 0ed2          lofsa $1168 // Door
  0296:4a 06             send 6 

  0298:39 2b            pushi 2b // $2b number
  029a:78               push1 
  029b:39 2c            pushi 2c // $2c handle
  029d:39 06            pushi 6 // $6 loop
  029f:78               push1 
  02a0:78               push1 
  02a1:39 2a            pushi 2a // $2a play
  02a3:76               push0 
  02a4:72 0f6b          lofsa $1212 // myMusic
  02a7:4a 10             send 10 


        code_02a9
  02a9:38 00db          pushi db // $db onControl
  02ac:78               push1 
  02ad:78               push1 
  02ae:81 00              lag gEgo 
  02b0:4a 06             send 6 

  02b2:36                push 
  02b3:3c                 dup 
  02b4:35 20              ldi 20 
  02b6:1a                 eq? 
  02b7:31 0c              bnt code_02c5 
  02b9:38 00f8          pushi f8 // $f8 newRoom
  02bc:78               push1 
  02bd:39 2a            pushi 2a // $2a play
  02bf:81 02              lag gCurRoom 
  02c1:4a 06             send 6 

  02c3:33 36              jmp code_02fb 

        code_02c5
  02c5:3c                 dup 
  02c6:35 10              ldi 10 
  02c8:1a                 eq? 
  02c9:31 0c              bnt code_02d7 
  02cb:38 00f8          pushi f8 // $f8 newRoom
  02ce:78               push1 
  02cf:39 2c            pushi 2c // $2c handle
  02d1:81 02              lag gCurRoom 
  02d3:4a 06             send 6 

  02d5:33 24              jmp code_02fb 

        code_02d7
  02d7:3c                 dup 
  02d8:35 02              ldi 2 
  02da:1a                 eq? 
  02db:31 1e              bnt code_02fb 
  02dd:83 00              lal local0 
  02df:18                 not 
  02e0:31 19              bnt code_02fb 
  02e2:39 06            pushi 6 // $6 loop
  02e4:76               push0 
  02e5:81 00              lag gEgo 
  02e7:4a 04             send 4 

  02e9:36                push 
  02ea:35 03              ldi 3 
  02ec:1a                 eq? 
  02ed:31 0c              bnt code_02fb 
  02ef:35 01              ldi 1 
  02f1:a3 00              sal local0 
  02f3:39 7a            pushi 7a // $7a setScript
  02f5:78               push1 
  02f6:74 0b17          lofss $0e10 // myDoor
  02f9:54 06             self 6 


        code_02fb
  02fb:3a                toss 
  02fc:39 04            pushi 4 // $4 x
  02fe:76               push0 
  02ff:81 00              lag gEgo 
  0301:4a 04             send 4 

  0303:36                push 
  0304:34 0082            ldi 82 
  0307:22                 lt? 
  0308:31 06              bnt code_0310 
  030a:35 14              ldi 14 
  030c:65 2a             aTop vertAngle 
  030e:33 19              jmp code_0329 

        code_0310
  0310:39 04            pushi 4 // $4 x
  0312:76               push0 
  0313:81 00              lag gEgo 
  0315:4a 04             send 4 

  0317:36                push 
  0318:34 00be            ldi be 
  031b:22                 lt? 
  031c:31 06              bnt code_0324 
  031e:35 00              ldi 0 
  0320:65 2a             aTop vertAngle 
  0322:33 05              jmp code_0329 

        code_0324
  0324:34 00a0            ldi a0 
  0327:65 2a             aTop vertAngle 

        code_0329
  0329:39 3c            pushi 3c // $3c doit
  032b:76               push0 
  032c:57 37 04         super Rm 4 

  032f:48                 ret 
    )

    (method (dispose) // method_0330
  0330:39 58            pushi 58 // $58 dispose
  0332:76               push0 
  0333:57 37 04         super Rm 4 

  0336:48                 ret 
    )

    (method (newRoom) // method_0337
  0337:88 00a5            lsg gAct 
  033a:35 06              ldi 6 
  033c:1a                 eq? 
  033d:31 14              bnt code_0353 
  033f:89 76              lsg gMustDos 
  0341:35 04              ldi 4 
  0343:12                 and 
  0344:31 0d              bnt code_0353 
  0346:8f 01              lsp param1 
  0348:35 2c              ldi 2c 
  034a:1c                 ne? 
  034b:31 06              bnt code_0353 
  034d:78               push1 
  034e:39 24            pushi 24 // $24 cursor
  0350:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0353
  0353:78               push1 
  0354:39 26            pushi 26 // $26 mark
  0356:45 07 02         callb procedure_0007 2 // IsFlag 

  0359:2f 08               bt code_0363 
  035b:78               push1 
  035c:39 25            pushi 25 // $25 max
  035e:45 07 02         callb procedure_0007 2 // IsFlag 

  0361:31 1a              bnt code_037d 

        code_0363
  0363:8f 01              lsp param1 
  0365:35 2a              ldi 2a 
  0367:1c                 ne? 
  0368:31 13              bnt code_037d 
  036a:8f 01              lsp param1 
  036c:35 31              ldi 31 
  036e:1c                 ne? 
  036f:31 0c              bnt code_037d 
  0371:78               push1 
  0372:39 26            pushi 26 // $26 mark
  0374:45 06 02         callb procedure_0006 2 // ClearFlag 

  0377:78               push1 
  0378:39 25            pushi 25 // $25 max
  037a:45 06 02         callb procedure_0006 2 // ClearFlag 


        code_037d
  037d:8f 01              lsp param1 
  037f:35 2c              ldi 2c 
  0381:1a                 eq? 
  0382:2f 07               bt code_038b 
  0384:8f 01              lsp param1 
  0386:35 49              ldi 49 
  0388:1a                 eq? 
  0389:31 28              bnt code_03b3 

        code_038b
  038b:88 00cb            lsg global203 
  038e:35 01              ldi 1 
  0390:1a                 eq? 
  0391:31 20              bnt code_03b3 
  0393:89 0c              lsg gPrevRoomNum 
  0395:35 2c              ldi 2c 
  0397:1a                 eq? 
  0398:2f 07               bt code_03a1 
  039a:89 0c              lsg gPrevRoomNum 
  039c:35 49              ldi 49 
  039e:1a                 eq? 
  039f:31 12              bnt code_03b3 

        code_03a1
  03a1:88 0174            lsg global372 
  03a4:35 01              ldi 1 
  03a6:1a                 eq? 
  03a7:31 0a              bnt code_03b3 
  03a9:81 7d              lag global125 
  03ab:18                 not 
  03ac:31 05              bnt code_03b3 
  03ae:35 32              ldi 32 
  03b0:a0 0174            sag global372 

        code_03b3
  03b3:8f 01              lsp param1 
  03b5:35 49              ldi 49 
  03b7:1c                 ne? 
  03b8:31 1a              bnt code_03d4 
  03ba:89 6a              lsg global106 
  03bc:35 49              ldi 49 
  03be:1a                 eq? 
  03bf:31 13              bnt code_03d4 
  03c1:88 00c9            lsg global201 
  03c4:34 00c8            ldi c8 
  03c7:1a                 eq? 
  03c8:31 0a              bnt code_03d4 
  03ca:c0 00c9            +ag global201 
  03cd:89 7b              lsg gCorpseFlags 
  03cf:35 20              ldi 20 
  03d1:14                  or 
  03d2:a1 7b              sag gCorpseFlags 

        code_03d4
  03d4:38 00f8          pushi f8 // $f8 newRoom
  03d7:78               push1 
  03d8:8f 01              lsp param1 
  03da:57 37 06         super Rm 6 

  03dd:48                 ret 
    )

    (method (handleEvent) // method_03de
  03de:3f 01             link 1 // (var $1)
  03e0:39 4c            pushi 4c // $4c claimed
  03e2:76               push0 
  03e3:87 01              lap param1 
  03e5:4a 04             send 4 

  03e7:31 03              bnt code_03ec 
  03e9:35 01              ldi 1 
  03eb:48                 ret 

        code_03ec
  03ec:39 22            pushi 22 // $22 type
  03ee:76               push0 
  03ef:87 01              lap param1 
  03f1:4a 04             send 4 

  03f3:36                push 
  03f4:34 0080            ldi 80 
  03f7:1a                 eq? 
  03f8:31 7b              bnt code_0475 
  03fa:78               push1 
  03fb:74 08ac          lofss $0caa // look>
  03fe:43 25 02         callk Said 2 

  0401:31 72              bnt code_0475 
  0403:78               push1 
  0404:74 084a          lofss $0c51 // [<around,at][/room]
  0407:43 25 02         callk Said 2 

  040a:31 0c              bnt code_0418 
  040c:7a               push2 
  040d:39 2b            pushi 2b // $2b number
  040f:76               push0 
  0410:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0416:33 5d              jmp code_0475 

        code_0418
  0418:78               push1 
  0419:74 0826          lofss $0c42 // /door<cachoterie
  041c:43 25 02         callk Said 2 

  041f:31 0c              bnt code_042d 
  0421:7a               push2 
  0422:39 2b            pushi 2b // $2b number
  0424:78               push1 
  0425:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  042b:33 48              jmp code_0475 

        code_042d
  042d:78               push1 
  042e:74 0818          lofss $0c49 // /pedestal
  0431:43 25 02         callk Said 2 

  0434:31 0c              bnt code_0442 
  0436:7a               push2 
  0437:39 2b            pushi 2b // $2b number
  0439:7a               push2 
  043a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0440:33 33              jmp code_0475 

        code_0442
  0442:78               push1 
  0443:74 07f4          lofss $0c3a // /curtain
  0446:43 25 02         callk Said 2 

  0449:31 0d              bnt code_0458 
  044b:7a               push2 
  044c:39 2b            pushi 2b // $2b number
  044e:39 03            pushi 3 // $3 y
  0450:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0456:33 1d              jmp code_0475 

        code_0458
  0458:78               push1 
  0459:74 07e2          lofss $0c3e // /dirt
  045c:43 25 02         callk Said 2 

  045f:2f 09               bt code_046a 
  0461:78               push1 
  0462:74 07e8          lofss $0c4d // <bas
  0465:43 25 02         callk Said 2 

  0468:31 0b              bnt code_0475 

        code_046a
  046a:7a               push2 
  046b:39 2b            pushi 2b // $2b number
  046d:39 04            pushi 4 // $4 x
  046f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0475
  0475:48                 ret 
    )

)

// 0d4a
(instance Lcloset of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_0476
  0476:87 01              lap param1 
  0478:65 0a             aTop state 
  047a:36                push 
  047b:3c                 dup 
  047c:35 00              ldi 0 
  047e:1a                 eq? 
  047f:30 00ae            bnt code_0530 
  0482:76               push0 
  0483:45 03 00         callb procedure_0003 0 // HandsOff 

  0486:38 0089          pushi 89 // $89 hide
  0489:76               push0 
  048a:72 0b45          lofsa $0fd2 // doorL
  048d:4a 04             send 4 

  048f:38 0089          pushi 89 // $89 hide
  0492:76               push0 
  0493:72 0aee          lofsa $0f84 // doorR
  0496:4a 04             send 4 

  0498:38 00db          pushi db // $db onControl
  049b:78               push1 
  049c:76               push0 
  049d:81 00              lag gEgo 
  049f:4a 06             send 6 

  04a1:36                push 
  04a2:34 0080            ldi 80 
  04a5:12                 and 
  04a6:31 42              bnt code_04ea 
  04a8:88 008f            lsg global143 
  04ab:35 00              ldi 0 
  04ad:1a                 eq? 
  04ae:31 0b              bnt code_04bb 
  04b0:7a               push2 
  04b1:39 2b            pushi 2b // $2b number
  04b3:39 05            pushi 5 // $5 view
  04b5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04bb
  04bb:38 00da          pushi da // $da inRect
  04be:39 04            pushi 4 // $4 x
  04c0:39 51            pushi 51 // $51 button
  04c2:38 00a2          pushi a2 // $a2 setCel
  04c5:39 53            pushi 53 // $53 draw
  04c7:38 00a6          pushi a6 // $a6 lastCel
  04ca:81 00              lag gEgo 
  04cc:4a 0c             send c 

  04ce:31 06              bnt code_04d6 
  04d0:35 01              ldi 1 
  04d2:65 10             aTop cycles 
  04d4:33 12              jmp code_04e8 

        code_04d6
  04d6:38 00d3          pushi d3 // $d3 setMotion
  04d9:39 04            pushi 4 // $4 x
  04db:51 1d            class MoveTo 
  04dd:36                push 
  04de:39 52            pushi 52 // $52 icon
  04e0:38 00a4          pushi a4 // $a4 cycleSpeed
  04e3:7c            pushSelf 
  04e4:81 00              lag gEgo 
  04e6:4a 0c             send c 


        code_04e8
  04e8:33 43              jmp code_052d 

        code_04ea
  04ea:88 0090            lsg global144 
  04ed:35 00              ldi 0 
  04ef:1a                 eq? 
  04f0:31 0b              bnt code_04fd 
  04f2:7a               push2 
  04f3:39 2b            pushi 2b // $2b number
  04f5:39 05            pushi 5 // $5 view
  04f7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04fd
  04fd:38 00da          pushi da // $da inRect
  0500:39 04            pushi 4 // $4 x
  0502:38 00f0          pushi f0 // $f0 targetObj
  0505:38 00a2          pushi a2 // $a2 setCel
  0508:38 00f3          pushi f3 // $f3 close
  050b:38 00a6          pushi a6 // $a6 lastCel
  050e:81 00              lag gEgo 
  0510:4a 0c             send c 

  0512:31 06              bnt code_051a 
  0514:35 01              ldi 1 
  0516:65 10             aTop cycles 
  0518:33 13              jmp code_052d 

        code_051a
  051a:38 00d3          pushi d3 // $d3 setMotion
  051d:39 04            pushi 4 // $4 x
  051f:51 1d            class MoveTo 
  0521:36                push 
  0522:38 00f1          pushi f1 // $f1 write
  0525:38 00a4          pushi a4 // $a4 cycleSpeed
  0528:7c            pushSelf 
  0529:81 00              lag gEgo 
  052b:4a 0c             send c 


        code_052d
  052d:32 00db            jmp code_060b 

        code_0530
  0530:3c                 dup 
  0531:35 01              ldi 1 
  0533:1a                 eq? 
  0534:31 53              bnt code_0589 
  0536:7a               push2 
  0537:89 00              lsg gEgo 
  0539:67 08             pTos client 
  053b:45 02 04         callb procedure_0002 4 // LookAt 

  053e:38 00db          pushi db // $db onControl
  0541:78               push1 
  0542:76               push0 
  0543:81 00              lag gEgo 
  0545:4a 06             send 6 

  0547:36                push 
  0548:34 0080            ldi 80 
  054b:12                 and 
  054c:31 0c              bnt code_055a 
  054e:38 00d7          pushi d7 // $d7 ignoreControl
  0551:78               push1 
  0552:39 04            pushi 4 // $4 x
  0554:81 00              lag gEgo 
  0556:4a 06             send 6 

  0558:33 0a              jmp code_0564 

        code_055a
  055a:38 00d7          pushi d7 // $d7 ignoreControl
  055d:78               push1 
  055e:39 08            pushi 8 // $8 underBits
  0560:81 00              lag gEgo 
  0562:4a 06             send 6 


        code_0564
  0564:38 00a4          pushi a4 // $a4 cycleSpeed
  0567:78               push1 
  0568:39 03            pushi 3 // $3 y
  056a:39 7e            pushi 7e // $7e setCycle
  056c:7a               push2 
  056d:51 1a            class End 
  056f:36                push 
  0570:7c            pushSelf 
  0571:63 08             pToa client 
  0573:4a 0e             send e 

  0575:39 2b            pushi 2b // $2b number
  0577:78               push1 
  0578:39 47            pushi 47 // $47 wordFail
  057a:39 06            pushi 6 // $6 loop
  057c:78               push1 
  057d:78               push1 
  057e:39 2a            pushi 2a // $2a play
  0580:76               push0 
  0581:72 0c8e          lofsa $1212 // myMusic
  0584:4a 10             send 10 

  0586:32 0082            jmp code_060b 

        code_0589
  0589:3c                 dup 
  058a:35 02              ldi 2 
  058c:1a                 eq? 
  058d:31 4b              bnt code_05da 
  058f:38 00c6          pushi c6 // $c6 stopUpd
  0592:76               push0 
  0593:63 08             pToa client 
  0595:4a 04             send 4 

  0597:38 00db          pushi db // $db onControl
  059a:78               push1 
  059b:76               push0 
  059c:81 00              lag gEgo 
  059e:4a 06             send 6 

  05a0:36                push 
  05a1:34 0080            ldi 80 
  05a4:12                 and 
  05a5:31 19              bnt code_05c0 
  05a7:38 00d3          pushi d3 // $d3 setMotion
  05aa:39 04            pushi 4 // $4 x
  05ac:51 1d            class MoveTo 
  05ae:36                push 
  05af:39 28            pushi 28 // $28 message
  05b1:39 03            pushi 3 // $3 y
  05b3:76               push0 
  05b4:81 00              lag gEgo 
  05b6:4a 04             send 4 

  05b8:36                push 
  05b9:7c            pushSelf 
  05ba:81 00              lag gEgo 
  05bc:4a 0c             send c 

  05be:33 18              jmp code_05d8 

        code_05c0
  05c0:38 00d3          pushi d3 // $d3 setMotion
  05c3:39 04            pushi 4 // $4 x
  05c5:51 1d            class MoveTo 
  05c7:36                push 
  05c8:38 011b          pushi 11b // $11b lower
  05cb:39 03            pushi 3 // $3 y
  05cd:76               push0 
  05ce:81 00              lag gEgo 
  05d0:4a 04             send 4 

  05d2:36                push 
  05d3:7c            pushSelf 
  05d4:81 00              lag gEgo 
  05d6:4a 0c             send c 


        code_05d8
  05d8:33 31              jmp code_060b 

        code_05da
  05da:3c                 dup 
  05db:35 03              ldi 3 
  05dd:1a                 eq? 
  05de:31 2b              bnt code_060b 
  05e0:39 7a            pushi 7a // $7a setScript
  05e2:78               push1 
  05e3:76               push0 
  05e4:63 08             pToa client 
  05e6:4a 06             send 6 

  05e8:39 06            pushi 6 // $6 loop
  05ea:76               push0 
  05eb:81 00              lag gEgo 
  05ed:4a 04             send 4 

  05ef:36                push 
  05f0:35 01              ldi 1 
  05f2:1a                 eq? 
  05f3:31 0c              bnt code_0601 
  05f5:38 00f8          pushi f8 // $f8 newRoom
  05f8:78               push1 
  05f9:39 31            pushi 31 // $31 b-i1
  05fb:81 02              lag gCurRoom 
  05fd:4a 06             send 6 

  05ff:33 0a              jmp code_060b 

        code_0601
  0601:38 00f8          pushi f8 // $f8 newRoom
  0604:78               push1 
  0605:39 32            pushi 32 // $32 b-i2
  0607:81 02              lag gCurRoom 
  0609:4a 06             send 6 


        code_060b
  060b:3a                toss 
  060c:48                 ret 
    )

)

// 0d7a
(instance closing of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_060d
  060d:87 01              lap param1 
  060f:65 0a             aTop state 
  0611:36                push 
  0612:3c                 dup 
  0613:35 00              ldi 0 
  0615:1a                 eq? 
  0616:31 3c              bnt code_0654 
  0618:76               push0 
  0619:45 03 00         callb procedure_0003 0 // HandsOff 

  061c:38 0089          pushi 89 // $89 hide
  061f:76               push0 
  0620:72 0961          lofsa $0f84 // doorR
  0623:4a 04             send 4 

  0625:38 0089          pushi 89 // $89 hide
  0628:76               push0 
  0629:72 09a6          lofsa $0fd2 // doorL
  062c:4a 04             send 4 

  062e:38 00d3          pushi d3 // $d3 setMotion
  0631:39 04            pushi 4 // $4 x
  0633:51 1d            class MoveTo 
  0635:36                push 
  0636:89 0c              lsg gPrevRoomNum 
  0638:35 31              ldi 31 
  063a:1a                 eq? 
  063b:31 04              bnt code_0641 
  063d:35 52              ldi 52 
  063f:33 03              jmp code_0644 

        code_0641
  0641:34 00ef            ldi ef 

        code_0644
  0644:36                push 
  0645:39 03            pushi 3 // $3 y
  0647:76               push0 
  0648:81 00              lag gEgo 
  064a:4a 04             send 4 

  064c:36                push 
  064d:7c            pushSelf 
  064e:81 00              lag gEgo 
  0650:4a 0c             send c 

  0652:33 5a              jmp code_06ae 

        code_0654
  0654:3c                 dup 
  0655:35 01              ldi 1 
  0657:1a                 eq? 
  0658:31 1e              bnt code_0678 
  065a:39 7e            pushi 7e // $7e setCycle
  065c:7a               push2 
  065d:51 1b            class Beg 
  065f:36                push 
  0660:7c            pushSelf 
  0661:63 08             pToa client 
  0663:4a 08             send 8 

  0665:39 2b            pushi 2b // $2b number
  0667:78               push1 
  0668:39 47            pushi 47 // $47 wordFail
  066a:39 06            pushi 6 // $6 loop
  066c:78               push1 
  066d:78               push1 
  066e:39 2a            pushi 2a // $2a play
  0670:76               push0 
  0671:72 0b9e          lofsa $1212 // myMusic
  0674:4a 10             send 10 

  0676:33 36              jmp code_06ae 

        code_0678
  0678:3c                 dup 
  0679:35 02              ldi 2 
  067b:1a                 eq? 
  067c:31 30              bnt code_06ae 
  067e:38 00c6          pushi c6 // $c6 stopUpd
  0681:76               push0 
  0682:63 08             pToa client 
  0684:4a 04             send 4 

  0686:39 12            pushi 12 // $12 illegalBits
  0688:78               push1 
  0689:38 804c          pushi 804c // $804c sel_32844
  068c:81 00              lag gEgo 
  068e:4a 06             send 6 

  0690:76               push0 
  0691:45 04 00         callb procedure_0004 0 // HandsOn 

  0694:38 00ca          pushi ca // $ca show
  0697:76               push0 
  0698:72 08e9          lofsa $0f84 // doorR
  069b:4a 04             send 4 

  069d:38 00ca          pushi ca // $ca show
  06a0:76               push0 
  06a1:72 092e          lofsa $0fd2 // doorL
  06a4:4a 04             send 4 

  06a6:39 7a            pushi 7a // $7a setScript
  06a8:78               push1 
  06a9:76               push0 
  06aa:63 08             pToa client 
  06ac:4a 06             send 6 


        code_06ae
  06ae:3a                toss 
  06af:48                 ret 
    )

)

// 0daa
(instance leak of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_06b0
  06b0:87 01              lap param1 
  06b2:65 0a             aTop state 
  06b4:36                push 
  06b5:3c                 dup 
  06b6:35 00              ldi 0 
  06b8:1a                 eq? 
  06b9:31 07              bnt code_06c2 
  06bb:35 03              ldi 3 
  06bd:65 10             aTop cycles 
  06bf:32 0085            jmp code_0747 

        code_06c2
  06c2:3c                 dup 
  06c3:35 01              ldi 1 
  06c5:1a                 eq? 
  06c6:31 1f              bnt code_06e7 
  06c8:39 7e            pushi 7e // $7e setCycle
  06ca:7a               push2 
  06cb:51 1b            class Beg 
  06cd:36                push 
  06ce:7c            pushSelf 
  06cf:72 0a96          lofsa $1168 // Door
  06d2:4a 08             send 8 

  06d4:39 2b            pushi 2b // $2b number
  06d6:78               push1 
  06d7:39 2c            pushi 2c // $2c handle
  06d9:39 06            pushi 6 // $6 loop
  06db:78               push1 
  06dc:78               push1 
  06dd:39 2a            pushi 2a // $2a play
  06df:76               push0 
  06e0:72 0b2f          lofsa $1212 // myMusic
  06e3:4a 10             send 10 

  06e5:33 60              jmp code_0747 

        code_06e7
  06e7:3c                 dup 
  06e8:35 02              ldi 2 
  06ea:1a                 eq? 
  06eb:31 06              bnt code_06f3 
  06ed:35 03              ldi 3 
  06ef:65 12             aTop seconds 
  06f1:33 54              jmp code_0747 

        code_06f3
  06f3:3c                 dup 
  06f4:35 03              ldi 3 
  06f6:1a                 eq? 
  06f7:31 11              bnt code_070a 
  06f9:7a               push2 
  06fa:39 2b            pushi 2b // $2b number
  06fc:39 06            pushi 6 // $6 loop
  06fe:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0704:35 01              ldi 1 
  0706:65 10             aTop cycles 
  0708:33 3d              jmp code_0747 

        code_070a
  070a:3c                 dup 
  070b:35 04              ldi 4 
  070d:1a                 eq? 
  070e:31 1f              bnt code_072f 
  0710:39 7e            pushi 7e // $7e setCycle
  0712:7a               push2 
  0713:51 1a            class End 
  0715:36                push 
  0716:7c            pushSelf 
  0717:72 0a4e          lofsa $1168 // Door
  071a:4a 08             send 8 

  071c:39 2b            pushi 2b // $2b number
  071e:78               push1 
  071f:39 2b            pushi 2b // $2b number
  0721:39 06            pushi 6 // $6 loop
  0723:78               push1 
  0724:78               push1 
  0725:39 2a            pushi 2a // $2a play
  0727:76               push0 
  0728:72 0ae7          lofsa $1212 // myMusic
  072b:4a 10             send 10 

  072d:33 18              jmp code_0747 

        code_072f
  072f:3c                 dup 
  0730:35 05              ldi 5 
  0732:1a                 eq? 
  0733:31 12              bnt code_0747 
  0735:38 00f8          pushi f8 // $f8 newRoom
  0738:78               push1 
  0739:39 49            pushi 49 // $49 semanticFail
  073b:81 02              lag gCurRoom 
  073d:4a 06             send 6 

  073f:39 7a            pushi 7a // $7a setScript
  0741:78               push1 
  0742:76               push0 
  0743:63 08             pToa client 
  0745:4a 06             send 6 


        code_0747
  0747:3a                toss 
  0748:48                 ret 
    )

)

// 0dda
(instance Lopen of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_0749
  0749:87 01              lap param1 
  074b:65 0a             aTop state 
  074d:36                push 
  074e:3c                 dup 
  074f:35 00              ldi 0 
  0751:1a                 eq? 
  0752:31 73              bnt code_07c7 
  0754:76               push0 
  0755:45 03 00         callb procedure_0003 0 // HandsOff 

  0758:39 04            pushi 4 // $4 x
  075a:76               push0 
  075b:81 00              lag gEgo 
  075d:4a 04             send 4 

  075f:36                push 
  0760:34 00a0            ldi a0 
  0763:22                 lt? 
  0764:31 2f              bnt code_0795 
  0766:38 00da          pushi da // $da inRect
  0769:39 04            pushi 4 // $4 x
  076b:39 50            pushi 50 // $50 title
  076d:38 00a1          pushi a1 // $a1 motionCue
  0770:39 52            pushi 52 // $52 icon
  0772:38 00a3          pushi a3 // $a3 startUpd
  0775:81 00              lag gEgo 
  0777:4a 0c             send c 

  0779:31 06              bnt code_0781 
  077b:35 01              ldi 1 
  077d:65 10             aTop cycles 
  077f:33 12              jmp code_0793 

        code_0781
  0781:38 00d3          pushi d3 // $d3 setMotion
  0784:39 04            pushi 4 // $4 x
  0786:51 1d            class MoveTo 
  0788:36                push 
  0789:39 51            pushi 51 // $51 button
  078b:38 00a2          pushi a2 // $a2 setCel
  078e:7c            pushSelf 
  078f:81 00              lag gEgo 
  0791:4a 0c             send c 


        code_0793
  0793:33 30              jmp code_07c5 

        code_0795
  0795:38 00da          pushi da // $da inRect
  0798:39 04            pushi 4 // $4 x
  079a:38 00ef          pushi ef // $ef ownedBy
  079d:38 00a4          pushi a4 // $a4 cycleSpeed
  07a0:38 00f1          pushi f1 // $f1 write
  07a3:38 00a6          pushi a6 // $a6 lastCel
  07a6:81 00              lag gEgo 
  07a8:4a 0c             send c 

  07aa:31 06              bnt code_07b2 
  07ac:35 01              ldi 1 
  07ae:65 10             aTop cycles 
  07b0:33 13              jmp code_07c5 

        code_07b2
  07b2:38 00d3          pushi d3 // $d3 setMotion
  07b5:39 04            pushi 4 // $4 x
  07b7:51 1d            class MoveTo 
  07b9:36                push 
  07ba:38 00f0          pushi f0 // $f0 targetObj
  07bd:38 00a5          pushi a5 // $a5 cycler
  07c0:7c            pushSelf 
  07c1:81 00              lag gEgo 
  07c3:4a 0c             send c 


        code_07c5
  07c5:33 63              jmp code_082a 

        code_07c7
  07c7:3c                 dup 
  07c8:35 01              ldi 1 
  07ca:1a                 eq? 
  07cb:31 19              bnt code_07e6 
  07cd:7a               push2 
  07ce:89 00              lsg gEgo 
  07d0:67 08             pTos client 
  07d2:45 02 04         callb procedure_0002 4 // LookAt 

  07d5:39 7e            pushi 7e // $7e setCycle
  07d7:7a               push2 
  07d8:51 1a            class End 
  07da:36                push 
  07db:7c            pushSelf 
  07dc:63 08             pToa client 
  07de:4a 08             send 8 

  07e0:35 07              ldi 7 
  07e2:65 10             aTop cycles 
  07e4:33 44              jmp code_082a 

        code_07e6
  07e6:3c                 dup 
  07e7:35 02              ldi 2 
  07e9:1a                 eq? 
  07ea:31 11              bnt code_07fd 
  07ec:7a               push2 
  07ed:39 2b            pushi 2b // $2b number
  07ef:39 07            pushi 7 // $7 cel
  07f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07f7:35 01              ldi 1 
  07f9:65 10             aTop cycles 
  07fb:33 2d              jmp code_082a 

        code_07fd
  07fd:3c                 dup 
  07fe:35 03              ldi 3 
  0800:1a                 eq? 
  0801:31 0d              bnt code_0810 
  0803:39 7e            pushi 7e // $7e setCycle
  0805:7a               push2 
  0806:51 1b            class Beg 
  0808:36                push 
  0809:7c            pushSelf 
  080a:63 08             pToa client 
  080c:4a 08             send 8 

  080e:33 1a              jmp code_082a 

        code_0810
  0810:3c                 dup 
  0811:35 04              ldi 4 
  0813:1a                 eq? 
  0814:31 14              bnt code_082a 
  0816:76               push0 
  0817:45 04 00         callb procedure_0004 0 // HandsOn 

  081a:38 00c6          pushi c6 // $c6 stopUpd
  081d:76               push0 
  081e:63 08             pToa client 
  0820:4a 04             send 4 

  0822:39 7a            pushi 7a // $7a setScript
  0824:78               push1 
  0825:76               push0 
  0826:63 08             pToa client 
  0828:4a 06             send 6 


        code_082a
  082a:3a                toss 
  082b:48                 ret 
    )

)

// 0e0a
(instance myDoor of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_082c
  082c:87 01              lap param1 
  082e:65 0a             aTop state 
  0830:36                push 
  0831:3c                 dup 
  0832:35 00              ldi 0 
  0834:1a                 eq? 
  0835:31 46              bnt code_087d 
  0837:38 00e9          pushi e9 // $e9 canControl
  083a:78               push1 
  083b:76               push0 
  083c:38 00e2          pushi e2 // $e2 canInput
  083f:78               push1 
  0840:76               push0 
  0841:51 2b            class User 
  0843:4a 0c             send c 

  0845:38 00d3          pushi d3 // $d3 setMotion
  0848:78               push1 
  0849:76               push0 
  084a:39 12            pushi 12 // $12 illegalBits
  084c:78               push1 
  084d:38 8000          pushi 8000 // $8000 sel_32768
  0850:81 00              lag gEgo 
  0852:4a 0c             send c 

  0854:39 2b            pushi 2b // $2b number
  0856:78               push1 
  0857:39 2b            pushi 2b // $2b number
  0859:39 06            pushi 6 // $6 loop
  085b:78               push1 
  085c:78               push1 
  085d:39 2a            pushi 2a // $2a play
  085f:76               push0 
  0860:72 09af          lofsa $1212 // myMusic
  0863:4a 10             send 10 

  0865:38 00a4          pushi a4 // $a4 cycleSpeed
  0868:78               push1 
  0869:78               push1 
  086a:38 00c9          pushi c9 // $c9 ignoreActors
  086d:78               push1 
  086e:78               push1 
  086f:39 7e            pushi 7e // $7e setCycle
  0871:7a               push2 
  0872:51 1a            class End 
  0874:36                push 
  0875:7c            pushSelf 
  0876:72 08ef          lofsa $1168 // Door
  0879:4a 14             send 14 

  087b:33 26              jmp code_08a3 

        code_087d
  087d:3c                 dup 
  087e:35 01              ldi 1 
  0880:1a                 eq? 
  0881:31 20              bnt code_08a3 
  0883:38 00d3          pushi d3 // $d3 setMotion
  0886:39 03            pushi 3 // $3 y
  0888:51 1d            class MoveTo 
  088a:36                push 
  088b:39 04            pushi 4 // $4 x
  088d:76               push0 
  088e:81 00              lag gEgo 
  0890:4a 04             send 4 

  0892:36                push 
  0893:39 03            pushi 3 // $3 y
  0895:76               push0 
  0896:81 00              lag gEgo 
  0898:4a 04             send 4 

  089a:36                push 
  089b:35 32              ldi 32 
  089d:04                 sub 
  089e:36                push 
  089f:81 00              lag gEgo 
  08a1:4a 0a             send a 


        code_08a3
  08a3:3a                toss 
  08a4:48                 ret 
    )

)

// 0e3a
(instance vase of RPicView
    (properties
        y $6a
        x $bd
        z $0
        heading $0
        view $8f
        loop $0
        cel $3
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_08a5
  08a5:78               push1 
  08a6:74 03c5          lofss $0c6e // get/vase
  08a9:43 25 02         callk Said 2 

  08ac:31 0d              bnt code_08bb 
  08ae:7a               push2 
  08af:39 2b            pushi 2b // $2b number
  08b1:39 08            pushi 8 // $8 underBits
  08b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08b9:33 41              jmp code_08fc 

        code_08bb
  08bb:78               push1 
  08bc:74 03e2          lofss $0ca1 // look<dans/vase
  08bf:43 25 02         callk Said 2 

  08c2:31 0d              bnt code_08d1 
  08c4:7a               push2 
  08c5:39 2b            pushi 2b // $2b number
  08c7:39 09            pushi 9 // $9 nsTop
  08c9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08cf:33 2b              jmp code_08fc 

        code_08d1
  08d1:39 03            pushi 3 // $3 y
  08d3:7c            pushSelf 
  08d4:8f 01              lsp param1 
  08d6:39 03            pushi 3 // $3 y
  08d8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  08de:2f 09               bt code_08e9 
  08e0:78               push1 
  08e1:74 03ae          lofss $0c92 // look/vase
  08e4:43 25 02         callk Said 2 

  08e7:31 13              bnt code_08fc 

        code_08e9
  08e9:39 4c            pushi 4c // $4c claimed
  08eb:78               push1 
  08ec:78               push1 
  08ed:87 01              lap param1 
  08ef:4a 06             send 6 

  08f1:7a               push2 
  08f2:39 2b            pushi 2b // $2b number
  08f4:39 0a            pushi a // $a nsLeft
  08f6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08fc
  08fc:48                 ret 
    )

)

// 0e70
(instance cat of RPicView
    (properties
        y $6a
        x $81
        z $0
        heading $0
        view $8f
        loop $0
        cel $2
        priority $7
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_08fd
  08fd:78               push1 
  08fe:74 0367          lofss $0c68 // get/cat
  0901:43 25 02         callk Said 2 

  0904:31 0d              bnt code_0913 
  0906:7a               push2 
  0907:39 2b            pushi 2b // $2b number
  0909:39 0b            pushi b // $b nsBottom
  090b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0911:33 2b              jmp code_093e 

        code_0913
  0913:39 03            pushi 3 // $3 y
  0915:7c            pushSelf 
  0916:8f 01              lsp param1 
  0918:39 03            pushi 3 // $3 y
  091a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0920:2f 09               bt code_092b 
  0922:78               push1 
  0923:74 0354          lofss $0c7a // look/cat
  0926:43 25 02         callk Said 2 

  0929:31 13              bnt code_093e 

        code_092b
  092b:39 4c            pushi 4c // $4c claimed
  092d:78               push1 
  092e:78               push1 
  092f:87 01              lap param1 
  0931:4a 06             send 6 

  0933:7a               push2 
  0934:39 2b            pushi 2b // $2b number
  0936:39 0c            pushi c // $c nsRight
  0938:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_093e
  093e:48                 ret 
    )

)

// 0ea6
(instance statueL of RPicView
    (properties
        y $47
        x $62
        z $0
        heading $0
        view $8f
        loop $0
        cel $0
        priority $3
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_093f
  093f:78               push1 
  0940:74 031c          lofss $0c5f // get,bouger/monument
  0943:43 25 02         callk Said 2 

  0946:31 0d              bnt code_0955 
  0948:7a               push2 
  0949:39 2b            pushi 2b // $2b number
  094b:39 0d            pushi d // $d lsTop
  094d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0953:33 41              jmp code_0996 

        code_0955
  0955:78               push1 
  0956:74 02d3          lofss $0c2c // (look<below),behind/monument
  0959:43 25 02         callk Said 2 

  095c:31 0d              bnt code_096b 
  095e:7a               push2 
  095f:39 2b            pushi 2b // $2b number
  0961:39 0e            pushi e // $e lsLeft
  0963:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0969:33 2b              jmp code_0996 

        code_096b
  096b:39 03            pushi 3 // $3 y
  096d:7c            pushSelf 
  096e:8f 01              lsp param1 
  0970:39 03            pushi 3 // $3 y
  0972:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0978:2f 09               bt code_0983 
  097a:78               push1 
  097b:74 030e          lofss $0c8c // look/monument
  097e:43 25 02         callk Said 2 

  0981:31 13              bnt code_0996 

        code_0983
  0983:39 4c            pushi 4c // $4c claimed
  0985:78               push1 
  0986:78               push1 
  0987:87 01              lap param1 
  0989:4a 06             send 6 

  098b:7a               push2 
  098c:39 2b            pushi 2b // $2b number
  098e:39 0f            pushi f // $f lsBottom
  0990:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0996
  0996:48                 ret 
    )

)

// 0edc
(instance statueR of RPicView
    (properties
        y $47
        x $dc
        z $0
        heading $0
        view $8f
        loop $0
        cel $1
        priority $3
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0997
  0997:39 03            pushi 3 // $3 y
  0999:7c            pushSelf 
  099a:8f 01              lsp param1 
  099c:39 03            pushi 3 // $3 y
  099e:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  09a4:31 13              bnt code_09b9 
  09a6:39 4c            pushi 4c // $4c claimed
  09a8:78               push1 
  09a9:78               push1 
  09aa:87 01              lap param1 
  09ac:4a 06             send 6 

  09ae:7a               push2 
  09af:39 2b            pushi 2b // $2b number
  09b1:39 0f            pushi f // $f lsBottom
  09b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_09b9
  09b9:48                 ret 
    )

)

// 0f12
(instance lamp of RPicView
    (properties
        y $bd
        x $2d
        z $0
        heading $0
        view $8f
        loop $1
        cel $0
        priority $e
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_09ba
  09ba:39 03            pushi 3 // $3 y
  09bc:7c            pushSelf 
  09bd:8f 01              lsp param1 
  09bf:39 03            pushi 3 // $3 y
  09c1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  09c7:31 0f              bnt code_09d8 
  09c9:39 4c            pushi 4c // $4c claimed
  09cb:78               push1 
  09cc:78               push1 
  09cd:87 01              lap param1 
  09cf:4a 06             send 6 

  09d1:78               push1 
  09d2:74 08ad          lofss $1282 // lamp
  09d5:45 19 02         callb procedure_0019 2 // DoLook 


        code_09d8
  09d8:48                 ret 
    )

)

// 0f48
(instance phone of RPicView
    (properties
        y $bd
        x $117
        z $0
        heading $0
        view $8f
        loop $1
        cel $1
        priority $e
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_09d9
  09d9:39 03            pushi 3 // $3 y
  09db:7c            pushSelf 
  09dc:8f 01              lsp param1 
  09de:39 03            pushi 3 // $3 y
  09e0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  09e6:31 0f              bnt code_09f7 
  09e8:39 4c            pushi 4c // $4c claimed
  09ea:78               push1 
  09eb:78               push1 
  09ec:87 01              lap param1 
  09ee:4a 06             send 6 

  09f0:78               push1 
  09f1:74 088e          lofss $1282 // lamp
  09f4:45 19 02         callb procedure_0019 2 // DoLook 


        code_09f7
  09f7:48                 ret 
    )

)

// 0f7e
(instance doorR of Prop
    (properties
        y $a1
        x $109
        z $0
        heading $0
        yStep $2
        view $f3
        loop $4
        cel $0
        priority $d
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0fcc
(instance doorL of Prop
    (properties
        y $a1
        x $3a
        z $0
        heading $0
        yStep $2
        view $f3
        loop $3
        cel $0
        priority $d
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 101a
(instance wardL of Prop
    (properties
        y $9e
        x $35
        z $0
        heading $0
        yStep $2
        view $f3
        loop $0
        cel $0
        priority $d
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_09f8
  09f8:39 03            pushi 3 // $3 y
  09fa:7c            pushSelf 
  09fb:8f 01              lsp param1 
  09fd:39 03            pushi 3 // $3 y
  09ff:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0a05:31 13              bnt code_0a1a 
  0a07:39 4c            pushi 4c // $4c claimed
  0a09:78               push1 
  0a0a:78               push1 
  0a0b:87 01              lap param1 
  0a0d:4a 06             send 6 

  0a0f:7a               push2 
  0a10:39 2b            pushi 2b // $2b number
  0a12:39 10            pushi 10 // $10 lsRight
  0a14:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0a1a
  0a1a:48                 ret 
    )

)

// 106c
(instance wardR of Prop
    (properties
        y $9e
        x $10e
        z $0
        heading $0
        yStep $2
        view $f3
        loop $1
        cel $0
        priority $d
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0a1b
  0a1b:78               push1 
  0a1c:74 0279          lofss $0c98 // look<behind/armoire
  0a1f:43 25 02         callk Said 2 

  0a22:31 40              bnt code_0a64 
  0a24:38 00da          pushi da // $da inRect
  0a27:39 04            pushi 4 // $4 x
  0a29:39 29            pushi 29 // $29 edit
  0a2b:38 0097          pushi 97 // $97 open
  0a2e:39 46            pushi 46 // $46 width
  0a30:38 00b1          pushi b1 // $b1 bumpTurn
  0a33:81 00              lag gEgo 
  0a35:4a 0c             send c 

  0a37:2f 17               bt code_0a50 
  0a39:38 00da          pushi da // $da inRect
  0a3c:39 04            pushi 4 // $4 x
  0a3e:38 00f8          pushi f8 // $f8 newRoom
  0a41:38 0097          pushi 97 // $97 open
  0a44:38 0110          pushi 110 // $110 disable
  0a47:38 00b1          pushi b1 // $b1 bumpTurn
  0a4a:81 00              lag gEgo 
  0a4c:4a 0c             send c 

  0a4e:31 0d              bnt code_0a5d 

        code_0a50
  0a50:7a               push2 
  0a51:39 2b            pushi 2b // $2b number
  0a53:39 11            pushi 11 // $11 signal
  0a55:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a5b:33 04              jmp code_0a61 

        code_0a5d
  0a5d:76               push0 
  0a5e:45 09 00         callb procedure_0009 0 // NotClose 


        code_0a61
  0a61:32 00e6            jmp code_0b4a 

        code_0a64
  0a64:78               push1 
  0a65:74 0246          lofss $0cae // bouger,attirer,appuyer/armoire
  0a68:43 25 02         callk Said 2 

  0a6b:2f 09               bt code_0a76 
  0a6d:78               push1 
  0a6e:74 0252          lofss $0cc3 // open<(attirer,appuyer)/armoire
  0a71:43 25 02         callk Said 2 

  0a74:31 41              bnt code_0ab7 

        code_0a76
  0a76:38 00db          pushi db // $db onControl
  0a79:78               push1 
  0a7a:76               push0 
  0a7b:81 00              lag gEgo 
  0a7d:4a 06             send 6 

  0a7f:36                push 
  0a80:34 0080            ldi 80 
  0a83:12                 and 
  0a84:31 0d              bnt code_0a93 
  0a86:39 7a            pushi 7a // $7a setScript
  0a88:78               push1 
  0a89:74 02c4          lofss $0d50 // Lcloset
  0a8c:72 0591          lofsa $1020 // wardL
  0a8f:4a 06             send 6 

  0a91:33 21              jmp code_0ab4 

        code_0a93
  0a93:38 00db          pushi db // $db onControl
  0a96:78               push1 
  0a97:76               push0 
  0a98:81 00              lag gEgo 
  0a9a:4a 06             send 6 

  0a9c:36                push 
  0a9d:34 0100            ldi 100 
  0aa0:12                 and 
  0aa1:31 0d              bnt code_0ab0 
  0aa3:39 7a            pushi 7a // $7a setScript
  0aa5:78               push1 
  0aa6:74 02a7          lofss $0d50 // Lcloset
  0aa9:72 05c6          lofsa $1072 // wardR
  0aac:4a 06             send 6 

  0aae:33 04              jmp code_0ab4 

        code_0ab0
  0ab0:76               push0 
  0ab1:45 09 00         callb procedure_0009 0 // NotClose 


        code_0ab4
  0ab4:32 0093            jmp code_0b4a 

        code_0ab7
  0ab7:78               push1 
  0ab8:74 0163          lofss $0c1e // (look<below),behind/armoire
  0abb:43 25 02         callk Said 2 

  0abe:31 0d              bnt code_0acd 
  0ac0:7a               push2 
  0ac1:39 2b            pushi 2b // $2b number
  0ac3:39 12            pushi 12 // $12 illegalBits
  0ac5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0acb:33 7d              jmp code_0b4a 

        code_0acd
  0acd:78               push1 
  0ace:74 01e9          lofss $0cba // open/door<armoire
  0ad1:43 25 02         callk Said 2 

  0ad4:2f 09               bt code_0adf 
  0ad6:78               push1 
  0ad7:74 01f7          lofss $0cd1 // chercher,open,(look<dans)/armoire
  0ada:43 25 02         callk Said 2 

  0add:31 40              bnt code_0b1f 

        code_0adf
  0adf:38 00db          pushi db // $db onControl
  0ae2:78               push1 
  0ae3:76               push0 
  0ae4:81 00              lag gEgo 
  0ae6:4a 06             send 6 

  0ae8:36                push 
  0ae9:34 0080            ldi 80 
  0aec:12                 and 
  0aed:31 0d              bnt code_0afc 
  0aef:39 7a            pushi 7a // $7a setScript
  0af1:78               push1 
  0af2:74 02eb          lofss $0de0 // Lopen
  0af5:72 04da          lofsa $0fd2 // doorL
  0af8:4a 06             send 6 

  0afa:33 21              jmp code_0b1d 

        code_0afc
  0afc:38 00db          pushi db // $db onControl
  0aff:78               push1 
  0b00:76               push0 
  0b01:81 00              lag gEgo 
  0b03:4a 06             send 6 

  0b05:36                push 
  0b06:34 0100            ldi 100 
  0b09:12                 and 
  0b0a:31 0d              bnt code_0b19 
  0b0c:39 7a            pushi 7a // $7a setScript
  0b0e:78               push1 
  0b0f:74 02ce          lofss $0de0 // Lopen
  0b12:72 046f          lofsa $0f84 // doorR
  0b15:4a 06             send 6 

  0b17:33 04              jmp code_0b1d 

        code_0b19
  0b19:76               push0 
  0b1a:45 09 00         callb procedure_0009 0 // NotClose 


        code_0b1d
  0b1d:33 2b              jmp code_0b4a 

        code_0b1f
  0b1f:39 03            pushi 3 // $3 y
  0b21:7c            pushSelf 
  0b22:8f 01              lsp param1 
  0b24:39 03            pushi 3 // $3 y
  0b26:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b2c:2f 09               bt code_0b37 
  0b2e:78               push1 
  0b2f:74 0142          lofss $0c74 // look/armoire
  0b32:43 25 02         callk Said 2 

  0b35:31 13              bnt code_0b4a 

        code_0b37
  0b37:39 4c            pushi 4c // $4c claimed
  0b39:78               push1 
  0b3a:78               push1 
  0b3b:87 01              lap param1 
  0b3d:4a 06             send 6 

  0b3f:7a               push2 
  0b40:39 2b            pushi 2b // $2b number
  0b42:39 10            pushi 10 // $10 lsRight
  0b44:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0b4a
  0b4a:48                 ret 
    )

)

// 10be
(instance lampR of Prop
    (properties
        y $48
        x $f2
        z $0
        heading $0
        yStep $2
        view $8f
        loop $3
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0b4b
  0b4b:39 03            pushi 3 // $3 y
  0b4d:7c            pushSelf 
  0b4e:8f 01              lsp param1 
  0b50:39 03            pushi 3 // $3 y
  0b52:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b58:31 0f              bnt code_0b69 
  0b5a:39 4c            pushi 4c // $4c claimed
  0b5c:78               push1 
  0b5d:78               push1 
  0b5e:87 01              lap param1 
  0b60:4a 06             send 6 

  0b62:78               push1 
  0b63:74 071c          lofss $1282 // lamp
  0b66:45 19 02         callb procedure_0019 2 // DoLook 


        code_0b69
  0b69:48                 ret 
    )

)

// 1110
(instance lampL of Prop
    (properties
        y $48
        x $50
        z $0
        heading $0
        yStep $2
        view $8f
        loop $2
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0b6a
  0b6a:39 03            pushi 3 // $3 y
  0b6c:7c            pushSelf 
  0b6d:8f 01              lsp param1 
  0b6f:39 03            pushi 3 // $3 y
  0b71:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b77:31 0f              bnt code_0b88 
  0b79:39 4c            pushi 4c // $4c claimed
  0b7b:78               push1 
  0b7c:78               push1 
  0b7d:87 01              lap param1 
  0b7f:4a 06             send 6 

  0b81:78               push1 
  0b82:74 06fd          lofss $1282 // lamp
  0b85:45 19 02         callb procedure_0019 2 // DoLook 


        code_0b88
  0b88:48                 ret 
    )

)

// 1162
(instance Door of Prop
    (properties
        y $65
        x $8e
        z $0
        heading $0
        yStep $2
        view $f3
        loop $2
        cel $0
        priority $6
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_0b89
  0b89:39 03            pushi 3 // $3 y
  0b8b:7c            pushSelf 
  0b8c:8f 01              lsp param1 
  0b8e:39 03            pushi 3 // $3 y
  0b90:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b96:2f 09               bt code_0ba1 
  0b98:78               push1 
  0b99:74 00e4          lofss $0c80 // look/door
  0b9c:43 25 02         callk Said 2 

  0b9f:31 13              bnt code_0bb4 

        code_0ba1
  0ba1:39 4c            pushi 4c // $4c claimed
  0ba3:78               push1 
  0ba4:78               push1 
  0ba5:87 01              lap param1 
  0ba7:4a 06             send 6 

  0ba9:7a               push2 
  0baa:39 2b            pushi 2b // $2b number
  0bac:39 13            pushi 13 // $13 brTop
  0bae:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0bb4
  0bb4:48                 ret 
    )

)

// 11b4
(instance Dresser1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $4f
        nsLeft $4c
        nsBottom $68
        nsRight $71
    )
    (method (handleEvent) // method_0bb5
  0bb5:78               push1 
  0bb6:74 0129          lofss $0ce2 // chercher,open,(look<dans)/drawer
  0bb9:43 25 02         callk Said 2 

  0bbc:31 0d              bnt code_0bcb 
  0bbe:7a               push2 
  0bbf:39 2b            pushi 2b // $2b number
  0bc1:39 14            pushi 14 // $14 brLeft
  0bc3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0bc9:33 2b              jmp code_0bf6 

        code_0bcb
  0bcb:39 03            pushi 3 // $3 y
  0bcd:7c            pushSelf 
  0bce:8f 01              lsp param1 
  0bd0:39 03            pushi 3 // $3 y
  0bd2:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bd8:2f 09               bt code_0be3 
  0bda:78               push1 
  0bdb:74 00a8          lofss $0c86 // look/drawer
  0bde:43 25 02         callk Said 2 

  0be1:31 13              bnt code_0bf6 

        code_0be3
  0be3:39 4c            pushi 4c // $4c claimed
  0be5:78               push1 
  0be6:78               push1 
  0be7:87 01              lap param1 
  0be9:4a 06             send 6 

  0beb:7a               push2 
  0bec:39 2b            pushi 2b // $2b number
  0bee:39 15            pushi 15 // $15 brBottom
  0bf0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0bf6
  0bf6:48                 ret 
    )

)

// 11e0
(instance Dresser2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $4f
        nsLeft $bd
        nsBottom $68
        nsRight $ee
    )
    (method (handleEvent) // method_0bf7
  0bf7:39 03            pushi 3 // $3 y
  0bf9:7c            pushSelf 
  0bfa:8f 01              lsp param1 
  0bfc:39 03            pushi 3 // $3 y
  0bfe:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0c04:31 13              bnt code_0c19 
  0c06:39 4c            pushi 4c // $4c claimed
  0c08:78               push1 
  0c09:78               push1 
  0c0a:87 01              lap param1 
  0c0c:4a 06             send 6 

  0c0e:7a               push2 
  0c0f:39 2b            pushi 2b // $2b number
  0c11:39 15            pushi 15 // $15 brBottom
  0c13:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0c19
  0c19:48                 ret 
    )

)

// 120c
(instance myMusic of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



