(script 42)

(string
    string_13d6 "Armoire"
    string_13de "Chair"
    string_13e4 "Dbag"
    string_13e9 "Room42"
    string_13f0 "SDress"
    string_13f7 "Shaft"
    string_13fd "bed"
    string_1401 "cannon"
    string_1408 "chain"
    string_140e "couch"
    string_1414 "down"
    string_1419 "elevator"
    string_1422 "fire"
    string_1427 "flower"
    string_142e "lamp"
    string_1433 "lamp1"
    string_1439 "lamp2"
    string_143f "logs"
    string_1444 "mirror"
    string_144b "missColo"
    string_1454 "sofa"
    string_1459 "stand"
    string_145f "table"
    string_1465 "table1"
    string_146c "table2"
    string_1473 "table3"
    string_147a "up"
    string_147d "vase"
)

(said
    said_0bf8 (look<dans),open/drawer
    said_0c06 /archway
    said_0c0a /blind
    said_0c0e /boy
    said_0c12 /cannon
    said_0c16 /ascenseur,lift
    said_0c1d /eye,(boy<eye)
    said_0c29 /cle[<brass]
    said_0c32 /manteau
    said_0c36 /panel,(door<cachoterie)>
    said_0c43 /fauteuilroulant
    said_0c47 <behind,below/boy
    said_0c51 <dans/ascenseur,lift
    said_0c5b [<around,at][/room]
    said_0c69 ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_0c88 attach/cle/cannon
    said_0c91 get,bouger,appuyer/fauteuilroulant
    said_0c9d get,bouger/miroir
    said_0ca6 get/bag
    said_0cac get>
    said_0cb0 look
    said_0cb3 look/armoire
    said_0cb9 look/bag,dirt
    said_0cc2 look/boy/boy
    said_0ccb look/cannon
    said_0cd1 look/drawer
    said_0cd7 look/miroir
    said_0cdd look/arbre,buche
    said_0ce6 look/coiffeuse,(nightstand<dressing)
    said_0cf4 look/fauteuilroulant
    said_0cfa look<(dans,dans,dans)/armoire
    said_0d0b look<behind,below/miroir
    said_0d17 look<bas
    said_0d1d look<dans/bag
    said_0d26 look<dans/miroir
    said_0d2f look>
    said_0d33 look[<!*]/bed
    said_0d3e look[<at]/reflection
    said_0d49 bouger,get/boy
    said_0d52 bouger/armoire
    said_0d58 open,(look<dans)/coiffeuse,(nightstand<dressing)
    said_0d6e open,enter,aller/archway,ascenseur,lift[<ascenseur,lift]
    said_0d88 open,bouger
    said_0d8e open/armoire,(door<armoire)
    said_0d9c open/bag
    said_0da2 appuyer,bouger/fauteuilroulant,colonel
    said_0dae chercher,(look<(dans,dans,dans))/cannon,baril
    said_0dc7 asseoir/fauteuilroulant
    said_0dcd asseoir[<bas,dans<dans]/fauteuilroulant
    said_0dde fumee/butt
)

(synonym
    manteau | mantel | mantelpiece | mantle = etagere | shelf
    drawer | tiroir = chest | malle | poitrine | torse | torso | trunk
    drawer | tiroir = commode | dresser
    room = bedroom
    armoire | cabinet | cupboard | hutch | wardrobe = armoire | cabinet | cupboard | hutch | wardrobe
    armoire | cabinet | cupboard | hutch | wardrobe = closet | placard
    boy | garcon = painting | peinture | picture | portrait | tableau | tableaux
)

(local
    local0 = $0000
    local1 = $0000
)

// 0dea
(instance public Room42 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $2a
        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_003b
  003b:35 00              ldi 0 
  003d:65 16             aTop horizon 
  003f:35 2b              ldi 2b 
  0041:65 1c             aTop east 
  0043:39 57            pushi 57 // $57 init
  0045:76               push0 
  0046:57 37 04         super Rm 4 

  0049:39 61            pushi 61 // $61 add
  004b:39 0a            pushi a // $a nsLeft
  004d:74 0e20          lofss $0e70 // bed
  0050:74 0e53          lofss $0ea6 // table1
  0053:74 0e86          lofss $0edc // table2
  0056:74 0f25          lofss $0f7e // table3
  0059:74 0eb6          lofss $0f12 // sofa
  005c:74 0ee9          lofss $0f48 // mirror
  005f:74 102a          lofss $108c // stand
  0062:74 0f85          lofss $0fea // vase
  0065:74 0fb8          lofss $1020 // flower
  0068:74 0f49          lofss $0fb4 // cannon
  006b:81 0a              lag gAddToPics 
  006d:4a 18             send 18 

  006f:80 00df            lag gDetailLevel 
  0072:31 31              bnt code_00a5 
  0074:39 7e            pushi 7e // $7e setCycle
  0076:78               push1 
  0077:51 16            class Fwd 
  0079:36                push 
  007a:39 57            pushi 57 // $57 init
  007c:76               push0 
  007d:72 1088          lofsa $1108 // lamp1
  0080:4a 0a             send a 

  0082:39 42            pushi 42 // $42 setPri
  0084:78               push1 
  0085:39 0b            pushi b // $b nsBottom
  0087:39 7e            pushi 7e // $7e setCycle
  0089:78               push1 
  008a:51 16            class Fwd 
  008c:36                push 
  008d:39 57            pushi 57 // $57 init
  008f:76               push0 
  0090:72 10c7          lofsa $115a // lamp2
  0093:4a 10             send 10 

  0095:39 7e            pushi 7e // $7e setCycle
  0097:78               push1 
  0098:51 16            class Fwd 
  009a:36                push 
  009b:39 57            pushi 57 // $57 init
  009d:76               push0 
  009e:72 1015          lofsa $10b6 // logs
  00a1:4a 0a             send a 

  00a3:33 29              jmp code_00ce 

        code_00a5
  00a5:39 57            pushi 57 // $57 init
  00a7:76               push0 
  00a8:38 00c6          pushi c6 // $c6 stopUpd
  00ab:76               push0 
  00ac:72 1007          lofsa $10b6 // logs
  00af:4a 08             send 8 

  00b1:39 57            pushi 57 // $57 init
  00b3:76               push0 
  00b4:38 00c6          pushi c6 // $c6 stopUpd
  00b7:76               push0 
  00b8:72 104d          lofsa $1108 // lamp1
  00bb:4a 08             send 8 

  00bd:39 42            pushi 42 // $42 setPri
  00bf:78               push1 
  00c0:39 0b            pushi b // $b nsBottom
  00c2:39 57            pushi 57 // $57 init
  00c4:76               push0 
  00c5:38 00c6          pushi c6 // $c6 stopUpd
  00c8:76               push0 
  00c9:72 108e          lofsa $115a // lamp2
  00cc:4a 0e             send e 


        code_00ce
  00ce:39 62            pushi 62 // $62 eachElementDo
  00d0:78               push1 
  00d1:39 57            pushi 57 // $57 init
  00d3:39 3c            pushi 3c // $3c doit
  00d5:76               push0 
  00d6:81 0a              lag gAddToPics 
  00d8:4a 0a             send a 

  00da:38 010a          pushi 10a // $10a setRegions
  00dd:78               push1 
  00de:38 00d5          pushi d5 // $d5 ignoreHorizon
  00e1:38 010b          pushi 10b // $10b setFeatures
  00e4:39 0c            pushi c // $c nsRight
  00e6:74 0dbd          lofss $0ea6 // table1
  00e9:74 0df0          lofss $0edc // table2
  00ec:74 0e8f          lofss $0f7e // table3
  00ef:74 0d7e          lofss $0e70 // bed
  00f2:74 0e1d          lofss $0f12 // sofa
  00f5:74 0ebc          lofss $0fb4 // cannon
  00f8:74 0eef          lofss $0fea // vase
  00fb:74 0f22          lofss $1020 // flower
  00fe:74 0e47          lofss $0f48 // mirror
  0101:74 12a6          lofss $13aa // Armoire
  0104:74 1277          lofss $137e // SDress
  0107:74 1248          lofss $1352 // Shaft
  010a:54 22             self 22 

  010c:89 7b              lsg gCorpseFlags 
  010e:35 40              ldi 40 
  0110:12                 and 
  0111:31 27              bnt code_013a 
  0113:39 57            pushi 57 // $57 init
  0115:76               push0 
  0116:38 00c6          pushi c6 // $c6 stopUpd
  0119:76               push0 
  011a:72 108f          lofsa $11ac // Dbag
  011d:4a 08             send 8 

  011f:39 61            pushi 61 // $61 add
  0121:78               push1 
  0122:74 0f31          lofss $1056 // Chair
  0125:39 62            pushi 62 // $62 eachElementDo
  0127:78               push1 
  0128:39 57            pushi 57 // $57 init
  012a:39 3c            pushi 3c // $3c doit
  012c:76               push0 
  012d:81 0a              lag gAddToPics 
  012f:4a 10             send 10 

  0131:38 010b          pushi 10b // $10b setFeatures
  0134:78               push1 
  0135:74 0f1e          lofss $1056 // Chair
  0138:54 06             self 6 


        code_013a
  013a:89 0c              lsg gPrevRoomNum 
  013c:3c                 dup 
  013d:35 29              ldi 29 
  013f:1a                 eq? 
  0140:31 0e              bnt code_0150 
  0142:38 00c5          pushi c5 // $c5 posn
  0145:7a               push2 
  0146:39 38            pushi 38 // $38 moveSpeed
  0148:39 79            pushi 79 // $79 cue
  014a:81 00              lag gEgo 
  014c:4a 08             send 8 

  014e:33 2a              jmp code_017a 

        code_0150
  0150:3c                 dup 
  0151:35 2b              ldi 2b 
  0153:1a                 eq? 
  0154:31 10              bnt code_0166 
  0156:38 00c5          pushi c5 // $c5 posn
  0159:7a               push2 
  015a:38 013b          pushi 13b // $13b gateX
  015d:38 0095          pushi 95 // $95 theItem
  0160:81 00              lag gEgo 
  0162:4a 08             send 8 

  0164:33 14              jmp code_017a 

        code_0166
  0166:3c                 dup 
  0167:35 31              ldi 31 
  0169:1a                 eq? 
  016a:31 0e              bnt code_017a 
  016c:38 00c5          pushi c5 // $c5 posn
  016f:7a               push2 
  0170:38 00fc          pushi fc // $fc showMem
  0173:38 00a7          pushi a7 // $a7 isStopped
  0176:81 00              lag gEgo 
  0178:4a 08             send 8 


        code_017a
  017a:3a                toss 
  017b:39 05            pushi 5 // $5 view
  017d:78               push1 
  017e:76               push0 
  017f:39 12            pushi 12 // $12 illegalBits
  0181:78               push1 
  0182:38 8000          pushi 8000 // $8000 sel_32768
  0185:39 42            pushi 42 // $42 setPri
  0187:78               push1 
  0188:39 ff            pushi ff // $ff checkAni
  018a:81 00              lag gEgo 
  018c:4a 12             send 12 

  018e:35 00              ldi 0 
  0190:a0 00c1            sag global193 
  0193:89 6d              lsg gElevatorState 
  0195:35 30              ldi 30 
  0197:12                 and 
  0198:18                 not 
  0199:30 00d7            bnt code_0273 
  019c:88 00a5            lsg gAct 
  019f:35 00              ldi 0 
  01a1:1a                 eq? 
  01a2:31 2d              bnt code_01d1 
  01a4:35 01              ldi 1 
  01a6:a0 00c1            sag global193 
  01a9:88 00ad            lsg gSpyFlags 
  01ac:35 40              ldi 40 
  01ae:12                 and 
  01af:18                 not 
  01b0:31 13              bnt code_01c5 
  01b2:88 0173            lsg global371 
  01b5:35 01              ldi 1 
  01b7:1c                 ne? 
  01b8:31 0b              bnt code_01c5 
  01ba:38 010a          pushi 10a // $10a setRegions
  01bd:78               push1 
  01be:38 00e7          pushi e7 // $e7 inputLineAddr
  01c1:54 06             self 6 

  01c3:33 09              jmp code_01ce 

        code_01c5
  01c5:38 010a          pushi 10a // $10a setRegions
  01c8:78               push1 
  01c9:38 00f0          pushi f0 // $f0 targetObj
  01cc:54 06             self 6 


        code_01ce
  01ce:32 00a2            jmp code_0273 

        code_01d1
  01d1:78               push1 
  01d2:39 26            pushi 26 // $26 mark
  01d4:45 07 02         callb procedure_0007 2 // IsFlag 

  01d7:2f 19               bt code_01f2 
  01d9:88 00bb            lsg gMinute 
  01dc:35 03              ldi 3 
  01de:22                 lt? 
  01df:31 31              bnt code_0212 
  01e1:89 7b              lsg gCorpseFlags 
  01e3:35 40              ldi 40 
  01e5:12                 and 
  01e6:18                 not 
  01e7:31 29              bnt code_0212 
  01e9:78               push1 
  01ea:39 25            pushi 25 // $25 max
  01ec:45 07 02         callb procedure_0007 2 // IsFlag 

  01ef:18                 not 
  01f0:31 20              bnt code_0212 

        code_01f2
  01f2:35 01              ldi 1 
  01f4:a0 00c1            sag global193 
  01f7:38 010a          pushi 10a // $10a setRegions
  01fa:78               push1 
  01fb:88 00a5            lsg gAct 
  01fe:3c                 dup 
  01ff:35 04              ldi 4 
  0201:1a                 eq? 
  0202:31 05              bnt code_0209 
  0204:34 010e            ldi 10e 
  0207:33 03              jmp code_020c 

        code_0209
  0209:34 00f0            ldi f0 

        code_020c
  020c:3a                toss 
  020d:36                push 
  020e:54 06             self 6 

  0210:33 61              jmp code_0273 

        code_0212
  0212:88 00a5            lsg gAct 
  0215:35 04              ldi 4 
  0217:1a                 eq? 
  0218:31 59              bnt code_0273 
  021a:88 00bb            lsg gMinute 
  021d:35 03              ldi 3 
  021f:1a                 eq? 
  0220:31 51              bnt code_0273 
  0222:39 03            pushi 3 // $3 y
  0224:38 0087          pushi 87 // $87 clean
  0227:39 04            pushi 4 // $4 x
  0229:39 29            pushi 29 // $29 edit
  022b:45 15 06         callb procedure_0015 6 // LoadMany 

  022e:39 05            pushi 5 // $5 view
  0230:38 0084          pushi 84 // $84 stop
  0233:39 1d            pushi 1d // $1d back
  0235:39 5e            pushi 5e // $5e respondsTo
  0237:39 5f            pushi 5f // $5f yourself
  0239:39 60            pushi 60 // $60 size
  023b:45 15 0a         callb procedure_0015 a // LoadMany 

  023e:7a               push2 
  023f:38 0080          pushi 80 // $80 timeLeft
  0242:38 0282          pushi 282 // $282 sel_642
  0245:43 00 04         callk Load 4 

  0248:7a               push2 
  0249:38 0082          pushi 82 // $82 owner
  024c:38 0196          pushi 196 // $196 sel_406
  024f:43 00 04         callk Load 4 

  0252:39 61            pushi 61 // $61 add
  0254:78               push1 
  0255:74 0dfe          lofss $1056 // Chair
  0258:39 62            pushi 62 // $62 eachElementDo
  025a:78               push1 
  025b:39 57            pushi 57 // $57 init
  025d:39 3c            pushi 3c // $3c doit
  025f:76               push0 
  0260:81 0a              lag gAddToPics 
  0262:4a 10             send 10 

  0264:38 010b          pushi 10b // $10b setFeatures
  0267:78               push1 
  0268:74 0deb          lofss $1056 // Chair
  026b:39 7a            pushi 7a // $7a setScript
  026d:78               push1 
  026e:74 0bcf          lofss $0e40 // missColo
  0271:54 0c             self c 


        code_0273
  0273:80 00c1            lag global193 
  0276:31 6e              bnt code_02e6 
  0278:35 2a              ldi 2a 
  027a:a1 6f              sag global111 
  027c:39 56            pushi 56 // $56 new
  027e:76               push0 
  027f:51 25            class PV 
  0281:4a 04             send 4 

  0283:a3 00              sal local0 
  0285:39 05            pushi 5 // $5 view
  0287:78               push1 
  0288:38 00f2          pushi f2 // $f2 read
  028b:39 06            pushi 6 // $6 loop
  028d:78               push1 
  028e:76               push0 
  028f:39 07            pushi 7 // $7 cel
  0291:78               push1 
  0292:76               push0 
  0293:39 04            pushi 4 // $4 x
  0295:78               push1 
  0296:38 0128          pushi 128 // $128 atEnd
  0299:39 03            pushi 3 // $3 y
  029b:78               push1 
  029c:39 7e            pushi 7e // $7e setCycle
  029e:83 00              lal local0 
  02a0:4a 1e             send 1e 

  02a2:39 56            pushi 56 // $56 new
  02a4:76               push0 
  02a5:51 25            class PV 
  02a7:4a 04             send 4 

  02a9:a3 01              sal local1 
  02ab:39 05            pushi 5 // $5 view
  02ad:78               push1 
  02ae:38 00f2          pushi f2 // $f2 read
  02b1:39 06            pushi 6 // $6 loop
  02b3:78               push1 
  02b4:7a               push2 
  02b5:39 07            pushi 7 // $7 cel
  02b7:78               push1 
  02b8:76               push0 
  02b9:39 04            pushi 4 // $4 x
  02bb:78               push1 
  02bc:38 011b          pushi 11b // $11b lower
  02bf:39 03            pushi 3 // $3 y
  02c1:78               push1 
  02c2:39 7e            pushi 7e // $7e setCycle
  02c4:83 01              lal local1 
  02c6:4a 1e             send 1e 

  02c8:39 61            pushi 61 // $61 add
  02ca:7a               push2 
  02cb:8b 00              lsl local0 
  02cd:8b 01              lsl local1 
  02cf:39 3c            pushi 3c // $3c doit
  02d1:76               push0 
  02d2:81 0a              lag gAddToPics 
  02d4:4a 0c             send c 

  02d6:39 57            pushi 57 // $57 init
  02d8:76               push0 
  02d9:81 00              lag gEgo 
  02db:4a 04             send 4 

  02dd:89 6d              lsg gElevatorState 
  02df:35 f7              ldi f7 
  02e1:12                 and 
  02e2:a1 6d              sag gElevatorState 
  02e4:33 6f              jmp code_0355 

        code_02e6
  02e6:89 6d              lsg gElevatorState 
  02e8:35 30              ldi 30 
  02ea:12                 and 
  02eb:18                 not 
  02ec:31 3b              bnt code_0329 
  02ee:89 7b              lsg gCorpseFlags 
  02f0:35 40              ldi 40 
  02f2:12                 and 
  02f3:18                 not 
  02f4:31 33              bnt code_0329 
  02f6:7a               push2 
  02f7:78               push1 
  02f8:39 03            pushi 3 // $3 y
  02fa:43 40 04         callk Random 4 

  02fd:36                push 
  02fe:3c                 dup 
  02ff:35 01              ldi 1 
  0301:1a                 eq? 
  0302:31 04              bnt code_0308 
  0304:35 20              ldi 20 
  0306:33 12              jmp code_031a 

        code_0308
  0308:3c                 dup 
  0309:35 02              ldi 2 
  030b:1a                 eq? 
  030c:31 04              bnt code_0312 
  030e:35 2a              ldi 2a 
  0310:33 08              jmp code_031a 

        code_0312
  0312:3c                 dup 
  0313:35 03              ldi 3 
  0315:1a                 eq? 
  0316:31 02              bnt code_031a 
  0318:35 4b              ldi 4b 

        code_031a
  031a:3a                toss 
  031b:a1 6f              sag global111 
  031d:88 00a5            lsg gAct 
  0320:35 01              ldi 1 
  0322:1a                 eq? 
  0323:31 04              bnt code_0329 
  0325:35 4b              ldi 4b 
  0327:a1 6f              sag global111 

        code_0329
  0329:39 56            pushi 56 // $56 new
  032b:76               push0 
  032c:51 48            class ElevGate 
  032e:4a 04             send 4 

  0330:a3 01              sal local1 
  0332:38 0135          pushi 135 // $135 chainID
  0335:78               push1 
  0336:74 0ec5          lofss $11fe // chain
  0339:38 0136          pushi 136 // $136 elevatorID
  033c:78               push1 
  033d:74 0f22          lofss $1262 // elevator
  0340:38 0137          pushi 137 // $137 downID
  0343:78               push1 
  0344:74 0f7f          lofss $12c6 // down
  0347:38 0138          pushi 138 // $138 upID
  034a:78               push1 
  034b:74 0fbe          lofss $130c // up
  034e:39 57            pushi 57 // $57 init
  0350:76               push0 
  0351:83 01              lal local1 
  0353:4a 1c             send 1c 


        code_0355
  0355:48                 ret 
    )

    (method (doit) // method_0356
  0356:76               push0 
  0357:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  035a:31 25              bnt code_0381 
  035c:89 6d              lsg gElevatorState 
  035e:35 10              ldi 10 
  0360:12                 and 
  0361:18                 not 
  0362:31 1d              bnt code_0381 
  0364:89 6f              lsg global111 
  0366:81 0b              lag gCurRoomNum 
  0368:1a                 eq? 
  0369:31 0c              bnt code_0377 
  036b:7a               push2 
  036c:39 2a            pushi 2a // $2a play
  036e:76               push0 
  036f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0375:33 0a              jmp code_0381 

        code_0377
  0377:7a               push2 
  0378:39 2a            pushi 2a // $2a play
  037a:78               push1 
  037b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0381
  0381:38 00db          pushi db // $db onControl
  0384:78               push1 
  0385:78               push1 
  0386:81 00              lag gEgo 
  0388:4a 06             send 6 

  038a:36                push 
  038b:35 04              ldi 4 
  038d:12                 and 
  038e:31 0a              bnt code_039a 
  0390:38 00f8          pushi f8 // $f8 newRoom
  0393:78               push1 
  0394:39 29            pushi 29 // $29 edit
  0396:81 02              lag gCurRoom 
  0398:4a 06             send 6 


        code_039a
  039a:89 6d              lsg gElevatorState 
  039c:35 20              ldi 20 
  039e:12                 and 
  039f:18                 not 
  03a0:31 2b              bnt code_03cd 
  03a2:38 00da          pushi da // $da inRect
  03a5:39 04            pushi 4 // $4 x
  03a7:38 0089          pushi 89 // $89 hide
  03aa:38 0090          pushi 90 // $90 setMark
  03ad:38 00b0          pushi b0 // $b0 pickLoop
  03b0:38 00a1          pushi a1 // $a1 motionCue
  03b3:81 00              lag gEgo 
  03b5:4a 0c             send c 

  03b7:31 0b              bnt code_03c4 
  03b9:39 42            pushi 42 // $42 setPri
  03bb:78               push1 
  03bc:39 0e            pushi e // $e lsLeft
  03be:81 00              lag gEgo 
  03c0:4a 06             send 6 

  03c2:33 09              jmp code_03cd 

        code_03c4
  03c4:39 42            pushi 42 // $42 setPri
  03c6:78               push1 
  03c7:39 ff            pushi ff // $ff checkAni
  03c9:81 00              lag gEgo 
  03cb:4a 06             send 6 


        code_03cd
  03cd:39 04            pushi 4 // $4 x
  03cf:76               push0 
  03d0:81 00              lag gEgo 
  03d2:4a 04             send 4 

  03d4:36                push 
  03d5:34 008c            ldi 8c 
  03d8:22                 lt? 
  03d9:31 06              bnt code_03e1 
  03db:35 2c              ldi 2c 
  03dd:65 2a             aTop vertAngle 
  03df:33 18              jmp code_03f9 

        code_03e1
  03e1:39 04            pushi 4 // $4 x
  03e3:76               push0 
  03e4:81 00              lag gEgo 
  03e6:4a 04             send 4 

  03e8:36                push 
  03e9:34 0104            ldi 104 
  03ec:22                 lt? 
  03ed:31 06              bnt code_03f5 
  03ef:35 1b              ldi 1b 
  03f1:65 2a             aTop vertAngle 
  03f3:33 04              jmp code_03f9 

        code_03f5
  03f5:35 12              ldi 12 
  03f7:65 2a             aTop vertAngle 

        code_03f9
  03f9:39 3c            pushi 3c // $3c doit
  03fb:76               push0 
  03fc:57 37 04         super Rm 4 

  03ff:48                 ret 
    )

    (method (dispose) // method_0400
  0400:78               push1 
  0401:38 00c9          pushi c9 // $c9 ignoreActors
  0404:43 03 02         callk DisposeScript 2 

  0407:39 58            pushi 58 // $58 dispose
  0409:76               push0 
  040a:57 37 04         super Rm 4 

  040d:48                 ret 
    )

    (method (newRoom) // method_040e
  040e:8f 01              lsp param1 
  0410:35 29              ldi 29 
  0412:1c                 ne? 
  0413:31 13              bnt code_0428 
  0415:88 00c9            lsg global201 
  0418:34 00c8            ldi c8 
  041b:1a                 eq? 
  041c:31 0a              bnt code_0428 
  041e:c0 00c9            +ag global201 
  0421:89 7b              lsg gCorpseFlags 
  0423:35 20              ldi 20 
  0425:14                  or 
  0426:a1 7b              sag gCorpseFlags 

        code_0428
  0428:38 00f8          pushi f8 // $f8 newRoom
  042b:78               push1 
  042c:8f 01              lsp param1 
  042e:57 37 06         super Rm 6 

  0431:48                 ret 
    )

    (method (handleEvent) // method_0432
  0432:39 6f            pushi 6f // $6f handleEvent
  0434:78               push1 
  0435:8f 01              lsp param1 
  0437:57 37 06         super Rm 6 

  043a:39 4c            pushi 4c // $4c claimed
  043c:76               push0 
  043d:87 01              lap param1 
  043f:4a 04             send 4 

  0441:31 01              bnt code_0444 
  0443:48                 ret 

        code_0444
  0444:39 22            pushi 22 // $22 type
  0446:76               push0 
  0447:87 01              lap param1 
  0449:4a 04             send 4 

  044b:36                push 
  044c:34 0080            ldi 80 
  044f:1a                 eq? 
  0450:30 029e            bnt code_06f1 
  0453:78               push1 
  0454:38 03de          pushi 3de // $3de sel_990
  0457:43 03 02         callk DisposeScript 2 

  045a:80 00d0            lag global208 
  045d:31 2d              bnt code_048c 
  045f:78               push1 
  0460:74 0806          lofss $0c69 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  0463:43 25 02         callk Said 2 

  0466:31 24              bnt code_048c 
  0468:39 7a            pushi 7a // $7a setScript
  046a:78               push1 
  046b:7a               push2 
  046c:38 00f3          pushi f3 // $f3 close
  046f:76               push0 
  0470:43 02 04         callk ScriptID 4 

  0473:36                push 
  0474:54 06             self 6 

  0476:39 6f            pushi 6f // $6f handleEvent
  0478:78               push1 
  0479:8f 01              lsp param1 
  047b:39 76            pushi 76 // $76 script
  047d:76               push0 
  047e:54 04             self 4 

  0480:4a 06             send 6 

  0482:39 4c            pushi 4c // $4c claimed
  0484:76               push0 
  0485:87 01              lap param1 
  0487:4a 04             send 4 

  0489:31 01              bnt code_048c 
  048b:48                 ret 

        code_048c
  048c:78               push1 
  048d:74 089f          lofss $0d2f // look>
  0490:43 25 02         callk Said 2 

  0493:30 0112            bnt code_05a8 
  0496:78               push1 
  0497:74 07c1          lofss $0c5b // [<around,at][/room]
  049a:43 25 02         callk Said 2 

  049d:31 20              bnt code_04bf 
  049f:89 6f              lsg global111 
  04a1:81 0b              lag gCurRoomNum 
  04a3:1a                 eq? 
  04a4:31 0c              bnt code_04b2 
  04a6:7a               push2 
  04a7:39 2a            pushi 2a // $2a play
  04a9:76               push0 
  04aa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04b0:33 0a              jmp code_04bc 

        code_04b2
  04b2:7a               push2 
  04b3:39 2a            pushi 2a // $2a play
  04b5:78               push1 
  04b6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04bc
  04bc:32 00e6            jmp code_05a5 

        code_04bf
  04bf:78               push1 
  04c0:74 076f          lofss $0c32 // /manteau
  04c3:43 25 02         callk Said 2 

  04c6:31 0d              bnt code_04d5 
  04c8:7a               push2 
  04c9:39 2a            pushi 2a // $2a play
  04cb:7a               push2 
  04cc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04d2:32 00d0            jmp code_05a5 

        code_04d5
  04d5:78               push1 
  04d6:74 0778          lofss $0c51 // <dans/ascenseur,lift
  04d9:43 25 02         callk Said 2 

  04dc:31 20              bnt code_04fe 
  04de:89 6d              lsg gElevatorState 
  04e0:35 10              ldi 10 
  04e2:12                 and 
  04e3:18                 not 
  04e4:31 0d              bnt code_04f3 
  04e6:7a               push2 
  04e7:39 2a            pushi 2a // $2a play
  04e9:39 03            pushi 3 // $3 y
  04eb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04f1:33 08              jmp code_04fb 

        code_04f3
  04f3:39 4c            pushi 4c // $4c claimed
  04f5:78               push1 
  04f6:76               push0 
  04f7:87 01              lap param1 
  04f9:4a 06             send 6 


        code_04fb
  04fb:32 00a7            jmp code_05a5 

        code_04fe
  04fe:78               push1 
  04ff:74 0714          lofss $0c16 // /ascenseur,lift
  0502:43 25 02         callk Said 2 

  0505:31 0e              bnt code_0515 
  0507:7a               push2 
  0508:39 2a            pushi 2a // $2a play
  050a:39 04            pushi 4 // $4 x
  050c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0512:32 0090            jmp code_05a5 

        code_0515
  0515:78               push1 
  0516:74 06ed          lofss $0c06 // /archway
  0519:43 25 02         callk Said 2 

  051c:31 0d              bnt code_052b 
  051e:7a               push2 
  051f:39 2a            pushi 2a // $2a play
  0521:39 05            pushi 5 // $5 view
  0523:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0529:33 7a              jmp code_05a5 

        code_052b
  052b:78               push1 
  052c:74 06db          lofss $0c0a // /blind
  052f:43 25 02         callk Said 2 

  0532:31 0d              bnt code_0541 
  0534:7a               push2 
  0535:39 2a            pushi 2a // $2a play
  0537:39 06            pushi 6 // $6 loop
  0539:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  053f:33 64              jmp code_05a5 

        code_0541
  0541:80 00c1            lag global193 
  0544:31 16              bnt code_055c 
  0546:78               push1 
  0547:74 06f9          lofss $0c43 // /fauteuilroulant
  054a:43 25 02         callk Said 2 

  054d:31 0d              bnt code_055c 
  054f:7a               push2 
  0550:39 2a            pushi 2a // $2a play
  0552:39 07            pushi 7 // $7 cel
  0554:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  055a:33 49              jmp code_05a5 

        code_055c
  055c:78               push1 
  055d:74 06bd          lofss $0c1d // /eye,(boy<eye)
  0560:43 25 02         callk Said 2 

  0563:31 0d              bnt code_0572 
  0565:7a               push2 
  0566:39 2a            pushi 2a // $2a play
  0568:39 08            pushi 8 // $8 underBits
  056a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0570:33 33              jmp code_05a5 

        code_0572
  0572:78               push1 
  0573:74 06d1          lofss $0c47 // <behind,below/boy
  0576:43 25 02         callk Said 2 

  0579:31 0d              bnt code_0588 
  057b:7a               push2 
  057c:39 2a            pushi 2a // $2a play
  057e:39 09            pushi 9 // $9 nsTop
  0580:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0586:33 1d              jmp code_05a5 

        code_0588
  0588:78               push1 
  0589:74 0682          lofss $0c0e // /boy
  058c:43 25 02         callk Said 2 

  058f:2f 09               bt code_059a 
  0591:78               push1 
  0592:74 072d          lofss $0cc2 // look/boy/boy
  0595:43 25 02         callk Said 2 

  0598:31 0b              bnt code_05a5 

        code_059a
  059a:7a               push2 
  059b:39 2a            pushi 2a // $2a play
  059d:39 0a            pushi a // $a nsLeft
  059f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_05a5
  05a5:32 0149            jmp code_06f1 

        code_05a8
  05a8:78               push1 
  05a9:74 079d          lofss $0d49 // bouger,get/boy
  05ac:43 25 02         callk Said 2 

  05af:31 0e              bnt code_05bf 
  05b1:7a               push2 
  05b2:39 2a            pushi 2a // $2a play
  05b4:39 0b            pushi b // $b nsBottom
  05b6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05bc:32 0132            jmp code_06f1 

        code_05bf
  05bf:80 00c1            lag global193 
  05c2:18                 not 
  05c3:31 17              bnt code_05dc 
  05c5:78               push1 
  05c6:74 06c8          lofss $0c91 // get,bouger,appuyer/fauteuilroulant
  05c9:43 25 02         callk Said 2 

  05cc:31 0e              bnt code_05dc 
  05ce:7a               push2 
  05cf:39 2a            pushi 2a // $2a play
  05d1:39 0c            pushi c // $c nsRight
  05d3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05d9:32 0115            jmp code_06f1 

        code_05dc
  05dc:78               push1 
  05dd:74 06cc          lofss $0cac // get>
  05e0:43 25 02         callk Said 2 

  05e3:30 0096            bnt code_067c 
  05e6:78               push1 
  05e7:74 063f          lofss $0c29 // /cle[<brass]
  05ea:43 25 02         callk Said 2 

  05ed:31 77              bnt code_0666 
  05ef:38 00ef          pushi ef // $ef ownedBy
  05f2:78               push1 
  05f3:39 2a            pushi 2a // $2a play
  05f5:39 43            pushi 43 // $43 at
  05f7:78               push1 
  05f8:39 12            pushi 12 // $12 illegalBits
  05fa:81 09              lag gInventory 
  05fc:4a 06             send 6 

  05fe:4a 06             send 6 

  0600:18                 not 
  0601:31 06              bnt code_0609 
  0603:76               push0 
  0604:45 0a 00         callb procedure_000a 0 // AlreadyTook 

  0607:33 5b              jmp code_0664 

        code_0609
  0609:38 00db          pushi db // $db onControl
  060c:78               push1 
  060d:78               push1 
  060e:81 00              lag gEgo 
  0610:4a 06             send 6 

  0612:36                push 
  0613:35 20              ldi 20 
  0615:12                 and 
  0616:31 48              bnt code_0660 
  0618:38 00ef          pushi ef // $ef ownedBy
  061b:78               push1 
  061c:39 2a            pushi 2a // $2a play
  061e:39 43            pushi 43 // $43 at
  0620:78               push1 
  0621:39 12            pushi 12 // $12 illegalBits
  0623:81 09              lag gInventory 
  0625:4a 06             send 6 

  0627:4a 06             send 6 

  0629:31 2f              bnt code_065a 
  062b:88 00c1            lsg global193 
  062e:35 01              ldi 1 
  0630:1c                 ne? 
  0631:31 1c              bnt code_064f 
  0633:35 01              ldi 1 
  0635:a0 00b6            sag global182 
  0638:38 00ec          pushi ec // $ec get
  063b:78               push1 
  063c:39 12            pushi 12 // $12 illegalBits
  063e:81 00              lag gEgo 
  0640:4a 06             send 6 

  0642:7a               push2 
  0643:39 2a            pushi 2a // $2a play
  0645:39 0d            pushi d // $d lsTop
  0647:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  064d:33 09              jmp code_0658 

        code_064f
  064f:7a               push2 
  0650:39 2a            pushi 2a // $2a play
  0652:39 0e            pushi e // $e lsLeft
  0654:40 f9d6 04        call proc_002e 4 


        code_0658
  0658:33 04              jmp code_065e 

        code_065a
  065a:76               push0 
  065b:45 12 00         callb procedure_0012 0 // NotHere 


        code_065e
  065e:33 04              jmp code_0664 

        code_0660
  0660:76               push0 
  0661:45 09 00         callb procedure_0009 0 // NotClose 


        code_0664
  0664:33 14              jmp code_067a 

        code_0666
  0666:78               push1 
  0667:74 05a8          lofss $0c12 // /cannon
  066a:43 25 02         callk Said 2 

  066d:31 0b              bnt code_067a 
  066f:7a               push2 
  0670:39 2a            pushi 2a // $2a play
  0672:39 0f            pushi f // $f lsBottom
  0674:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_067a
  067a:33 75              jmp code_06f1 

        code_067c
  067c:80 00c1            lag global193 
  067f:18                 not 
  0680:31 16              bnt code_0698 
  0682:78               push1 
  0683:74 0741          lofss $0dc7 // asseoir/fauteuilroulant
  0686:43 25 02         callk Said 2 

  0689:31 0d              bnt code_0698 
  068b:7a               push2 
  068c:39 2a            pushi 2a // $2a play
  068e:39 10            pushi 10 // $10 lsRight
  0690:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0696:33 59              jmp code_06f1 

        code_0698
  0698:80 00c1            lag global193 
  069b:31 54              bnt code_06f1 
  069d:78               push1 
  069e:74 06cd          lofss $0d6e // open,enter,aller/archway,ascenseur,lift[<ascenseur,lift]
  06a1:43 25 02         callk Said 2 

  06a4:31 0b              bnt code_06b1 
  06a6:7a               push2 
  06a7:39 2a            pushi 2a // $2a play
  06a9:39 11            pushi 11 // $11 signal
  06ab:40 f97f 04        call proc_002e 4 

  06af:33 40              jmp code_06f1 

        code_06b1
  06b1:78               push1 
  06b2:74 0729          lofss $0dde // fumee/butt
  06b5:43 25 02         callk Said 2 

  06b8:31 0d              bnt code_06c7 
  06ba:7a               push2 
  06bb:39 2a            pushi 2a // $2a play
  06bd:39 12            pushi 12 // $12 illegalBits
  06bf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06c5:33 2a              jmp code_06f1 

        code_06c7
  06c7:78               push1 
  06c8:74 0702          lofss $0dcd // asseoir[<bas,dans<dans]/fauteuilroulant
  06cb:43 25 02         callk Said 2 

  06ce:31 0d              bnt code_06dd 
  06d0:7a               push2 
  06d1:39 2a            pushi 2a // $2a play
  06d3:39 13            pushi 13 // $13 brTop
  06d5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06db:33 14              jmp code_06f1 

        code_06dd
  06dd:78               push1 
  06de:74 06c1          lofss $0da2 // appuyer,bouger/fauteuilroulant,colonel
  06e1:43 25 02         callk Said 2 

  06e4:31 0b              bnt code_06f1 
  06e6:7a               push2 
  06e7:39 2a            pushi 2a // $2a play
  06e9:39 14            pushi 14 // $14 brLeft
  06eb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06f1
  06f1:48                 ret 
    )

)

// 0e3a
(instance missColo 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_06f2
  06f2:87 01              lap param1 
  06f4:65 0a             aTop state 
  06f6:36                push 
  06f7:3c                 dup 
  06f8:35 00              ldi 0 
  06fa:1a                 eq? 
  06fb:31 40              bnt code_073d 
  06fd:80 00d8            lag global216 
  0700:18                 not 
  0701:31 06              bnt code_0709 
  0703:35 ff              ldi ff 
  0705:65 0a             aTop state 
  0707:33 2e              jmp code_0737 

        code_0709
  0709:89 76              lsg gMustDos 
  070b:35 04              ldi 4 
  070d:12                 and 
  070e:18                 not 
  070f:31 1b              bnt code_072c 
  0711:89 76              lsg gMustDos 
  0713:35 04              ldi 4 
  0715:14                  or 
  0716:a1 76              sag gMustDos 
  0718:39 7a            pushi 7a // $7a setScript
  071a:78               push1 
  071b:7a               push2 
  071c:38 0196          pushi 196 // $196 sel_406
  071f:76               push0 
  0720:43 02 04         callk ScriptID 4 

  0723:36                push 
  0724:54 06             self 6 

  0726:35 ff              ldi ff 
  0728:65 0a             aTop state 
  072a:33 0b              jmp code_0737 

        code_072c
  072c:39 76            pushi 76 // $76 script
  072e:76               push0 
  072f:54 04             self 4 

  0731:31 04              bnt code_0737 
  0733:35 ff              ldi ff 
  0735:65 0a             aTop state 

        code_0737
  0737:35 01              ldi 1 
  0739:65 10             aTop cycles 
  073b:33 14              jmp code_0751 

        code_073d
  073d:3c                 dup 
  073e:35 01              ldi 1 
  0740:1a                 eq? 
  0741:31 0e              bnt code_0751 
  0743:78               push1 
  0744:39 25            pushi 25 // $25 max
  0746:45 05 02         callb procedure_0005 2 // SetFlag 

  0749:39 7a            pushi 7a // $7a setScript
  074b:78               push1 
  074c:76               push0 
  074d:63 08             pToa client 
  074f:4a 06             send 6 


        code_0751
  0751:3a                toss 
  0752:48                 ret 
    )

)

// 0e6a
(instance bed of RPicView
    (properties
        y $a7
        x $79
        z $0
        heading $0
        view $8e
        loop $1
        cel $2
        priority $ffff
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0753
  0753:39 03            pushi 3 // $3 y
  0755:7c            pushSelf 
  0756:8f 01              lsp param1 
  0758:39 03            pushi 3 // $3 y
  075a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0760:2f 09               bt code_076b 
  0762:78               push1 
  0763:74 05cd          lofss $0d33 // look[<!*]/bed
  0766:43 25 02         callk Said 2 

  0769:31 13              bnt code_077e 

        code_076b
  076b:7a               push2 
  076c:39 2a            pushi 2a // $2a play
  076e:39 15            pushi 15 // $15 brBottom
  0770:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0776:39 4c            pushi 4c // $4c claimed
  0778:78               push1 
  0779:78               push1 
  077a:87 01              lap param1 
  077c:4a 06             send 6 


        code_077e
  077e:48                 ret 
    )

)

// 0ea0
(instance table1 of RPicView
    (properties
        y $a7
        x $94
        z $0
        heading $0
        view $8e
        loop $1
        cel $3
        priority $f
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_077f
  077f:39 03            pushi 3 // $3 y
  0781:7c            pushSelf 
  0782:8f 01              lsp param1 
  0784:39 03            pushi 3 // $3 y
  0786:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  078c:31 0f              bnt code_079d 
  078e:39 4c            pushi 4c // $4c claimed
  0790:78               push1 
  0791:78               push1 
  0792:87 01              lap param1 
  0794:4a 06             send 6 

  0796:78               push1 
  0797:74 0cc5          lofss $145f // table
  079a:45 19 02         callb procedure_0019 2 // DoLook 


        code_079d
  079d:48                 ret 
    )

)

// 0ed6
(instance table2 of RPicView
    (properties
        y $a7
        x $45
        z $0
        heading $0
        view $8e
        loop $1
        cel $3
        priority $f
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_079e
  079e:39 03            pushi 3 // $3 y
  07a0:7c            pushSelf 
  07a1:8f 01              lsp param1 
  07a3:39 03            pushi 3 // $3 y
  07a5:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  07ab:31 0f              bnt code_07bc 
  07ad:39 4c            pushi 4c // $4c claimed
  07af:78               push1 
  07b0:78               push1 
  07b1:87 01              lap param1 
  07b3:4a 06             send 6 

  07b5:78               push1 
  07b6:74 0ca6          lofss $145f // table
  07b9:45 19 02         callb procedure_0019 2 // DoLook 


        code_07bc
  07bc:48                 ret 
    )

)

// 0f0c
(instance sofa of RPicView
    (properties
        y $7d
        x $9e
        z $0
        heading $0
        view $8e
        loop $1
        cel $0
        priority $8
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_07bd
  07bd:39 03            pushi 3 // $3 y
  07bf:7c            pushSelf 
  07c0:8f 01              lsp param1 
  07c2:39 03            pushi 3 // $3 y
  07c4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  07ca:31 0f              bnt code_07db 
  07cc:39 4c            pushi 4c // $4c claimed
  07ce:78               push1 
  07cf:78               push1 
  07d0:87 01              lap param1 
  07d2:4a 06             send 6 

  07d4:78               push1 
  07d5:74 0c36          lofss $140e // couch
  07d8:45 19 02         callb procedure_0019 2 // DoLook 


        code_07db
  07db:48                 ret 
    )

)

// 0f42
(instance mirror of RPicView
    (properties
        y $8d
        x $29
        z $0
        heading $0
        view $8e
        loop $1
        cel $1
        priority $9
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_07dc
  07dc:78               push1 
  07dd:74 055e          lofss $0d3e // look[<at]/reflection
  07e0:43 25 02         callk Said 2 

  07e3:2f 09               bt code_07ee 
  07e5:78               push1 
  07e6:74 053d          lofss $0d26 // look<dans/miroir
  07e9:43 25 02         callk Said 2 

  07ec:31 29              bnt code_0817 

        code_07ee
  07ee:38 00ae          pushi ae // $ae distanceTo
  07f1:78               push1 
  07f2:74 0753          lofss $0f48 // mirror
  07f5:81 00              lag gEgo 
  07f7:4a 06             send 6 

  07f9:36                push 
  07fa:35 3c              ldi 3c 
  07fc:22                 lt? 
  07fd:31 11              bnt code_0810 
  07ff:35 0c              ldi c 
  0801:a0 00d5            sag global213 
  0804:39 03            pushi 3 // $3 y
  0806:76               push0 
  0807:39 2a            pushi 2a // $2a play
  0809:39 16            pushi 16 // $16 brRight
  080b:45 01 06         callb procedure_0001 6 // Say 

  080e:33 04              jmp code_0814 

        code_0810
  0810:76               push0 
  0811:45 09 00         callb procedure_0009 0 // NotClose 


        code_0814
  0814:32 0083            jmp code_089a 

        code_0817
  0817:78               push1 
  0818:74 04f0          lofss $0d0b // look<behind,below/miroir
  081b:43 25 02         callk Said 2 

  081e:31 0d              bnt code_082d 
  0820:7a               push2 
  0821:39 2a            pushi 2a // $2a play
  0823:39 17            pushi 17 // $17 name
  0825:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  082b:33 6d              jmp code_089a 

        code_082d
  082d:78               push1 
  082e:74 046c          lofss $0c9d // get,bouger/miroir
  0831:43 25 02         callk Said 2 

  0834:31 0d              bnt code_0843 
  0836:7a               push2 
  0837:39 2a            pushi 2a // $2a play
  0839:39 18            pushi 18 // $18 key
  083b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0841:33 57              jmp code_089a 

        code_0843
  0843:78               push1 
  0844:74 0490          lofss $0cd7 // look/miroir
  0847:43 25 02         callk Said 2 

  084a:31 0d              bnt code_0859 
  084c:7a               push2 
  084d:39 2a            pushi 2a // $2a play
  084f:39 19            pushi 19 // $19 time
  0851:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0857:33 41              jmp code_089a 

        code_0859
  0859:78               push1 
  085a:74 04fb          lofss $0d58 // open,(look<dans)/coiffeuse,(nightstand<dressing)
  085d:43 25 02         callk Said 2 

  0860:31 0d              bnt code_086f 
  0862:7a               push2 
  0863:39 2a            pushi 2a // $2a play
  0865:39 1a            pushi 1a // $1a text
  0867:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  086d:33 2b              jmp code_089a 

        code_086f
  086f:39 03            pushi 3 // $3 y
  0871:7c            pushSelf 
  0872:8f 01              lsp param1 
  0874:39 03            pushi 3 // $3 y
  0876:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  087c:2f 09               bt code_0887 
  087e:78               push1 
  087f:74 0464          lofss $0ce6 // look/coiffeuse,(nightstand<dressing)
  0882:43 25 02         callk Said 2 

  0885:31 13              bnt code_089a 

        code_0887
  0887:7a               push2 
  0888:39 2a            pushi 2a // $2a play
  088a:39 1b            pushi 1b // $1b elements
  088c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0892:39 4c            pushi 4c // $4c claimed
  0894:78               push1 
  0895:78               push1 
  0896:87 01              lap param1 
  0898:4a 06             send 6 


        code_089a
  089a:48                 ret 
    )

)

// 0f78
(instance table3 of RPicView
    (properties
        y $7b
        x $ca
        z $0
        heading $0
        view $8e
        loop $1
        cel $4
        priority $8
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_089b
  089b:39 03            pushi 3 // $3 y
  089d:7c            pushSelf 
  089e:8f 01              lsp param1 
  08a0:39 03            pushi 3 // $3 y
  08a2:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  08a8:31 0f              bnt code_08b9 
  08aa:39 4c            pushi 4c // $4c claimed
  08ac:78               push1 
  08ad:78               push1 
  08ae:87 01              lap param1 
  08b0:4a 06             send 6 

  08b2:78               push1 
  08b3:74 0ba9          lofss $145f // table
  08b6:45 19 02         callb procedure_0019 2 // DoLook 


        code_08b9
  08b9:48                 ret 
    )

)

// 0fae
(instance cannon of RPicView
    (properties
        y $34
        x $be
        z $0
        heading $0
        view $8e
        loop $1
        cel $5
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_08ba
  08ba:78               push1 
  08bb:74 04f0          lofss $0dae // chercher,(look<(dans,dans,dans))/cannon,baril
  08be:43 25 02         callk Said 2 

  08c1:31 42              bnt code_0905 
  08c3:38 00db          pushi db // $db onControl
  08c6:78               push1 
  08c7:78               push1 
  08c8:81 00              lag gEgo 
  08ca:4a 06             send 6 

  08cc:36                push 
  08cd:35 20              ldi 20 
  08cf:12                 and 
  08d0:31 2d              bnt code_08ff 
  08d2:38 00ef          pushi ef // $ef ownedBy
  08d5:78               push1 
  08d6:39 2a            pushi 2a // $2a play
  08d8:39 43            pushi 43 // $43 at
  08da:78               push1 
  08db:39 12            pushi 12 // $12 illegalBits
  08dd:81 09              lag gInventory 
  08df:4a 06             send 6 

  08e1:4a 06             send 6 

  08e3:31 0d              bnt code_08f2 
  08e5:7a               push2 
  08e6:39 2a            pushi 2a // $2a play
  08e8:39 1c            pushi 1c // $1c color
  08ea:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08f0:33 0b              jmp code_08fd 

        code_08f2
  08f2:7a               push2 
  08f3:39 2a            pushi 2a // $2a play
  08f5:39 1d            pushi 1d // $1d back
  08f7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08fd
  08fd:33 04              jmp code_0903 

        code_08ff
  08ff:76               push0 
  0900:45 09 00         callb procedure_0009 0 // NotClose 


        code_0903
  0903:33 41              jmp code_0946 

        code_0905
  0905:78               push1 
  0906:74 037f          lofss $0c88 // attach/cle/cannon
  0909:43 25 02         callk Said 2 

  090c:31 0d              bnt code_091b 
  090e:7a               push2 
  090f:39 2a            pushi 2a // $2a play
  0911:39 1e            pushi 1e // $1e mode
  0913:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0919:33 2b              jmp code_0946 

        code_091b
  091b:39 03            pushi 3 // $3 y
  091d:7c            pushSelf 
  091e:8f 01              lsp param1 
  0920:39 03            pushi 3 // $3 y
  0922:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0928:2f 09               bt code_0933 
  092a:78               push1 
  092b:74 039d          lofss $0ccb // look/cannon
  092e:43 25 02         callk Said 2 

  0931:31 13              bnt code_0946 

        code_0933
  0933:39 4c            pushi 4c // $4c claimed
  0935:78               push1 
  0936:78               push1 
  0937:87 01              lap param1 
  0939:4a 06             send 6 

  093b:7a               push2 
  093c:39 2a            pushi 2a // $2a play
  093e:39 1f            pushi 1f // $1f style
  0940:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0946
  0946:48                 ret 
    )

)

// 0fe4
(instance vase of RPicView
    (properties
        y $34
        x $d2
        z $0
        heading $0
        view $8e
        loop $1
        cel $7
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0947
  0947:39 03            pushi 3 // $3 y
  0949:7c            pushSelf 
  094a:8f 01              lsp param1 
  094c:39 03            pushi 3 // $3 y
  094e:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0954:31 0f              bnt code_0965 
  0956:39 4c            pushi 4c // $4c claimed
  0958:78               push1 
  0959:78               push1 
  095a:87 01              lap param1 
  095c:4a 06             send 6 

  095e:78               push1 
  095f:74 0b1b          lofss $147d // vase
  0962:45 19 02         callb procedure_0019 2 // DoLook 


        code_0965
  0965:48                 ret 
    )

)

// 101a
(instance flower of RPicView
    (properties
        y $34
        x $aa
        z $0
        heading $0
        view $8e
        loop $1
        cel $8
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0966
  0966:39 03            pushi 3 // $3 y
  0968:7c            pushSelf 
  0969:8f 01              lsp param1 
  096b:39 03            pushi 3 // $3 y
  096d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0973:31 0f              bnt code_0984 
  0975:39 4c            pushi 4c // $4c claimed
  0977:78               push1 
  0978:78               push1 
  0979:87 01              lap param1 
  097b:4a 06             send 6 

  097d:78               push1 
  097e:74 0afc          lofss $147d // vase
  0981:45 19 02         callb procedure_0019 2 // DoLook 


        code_0984
  0984:48                 ret 
    )

)

// 1050
(instance Chair of RPicView
    (properties
        y $96
        x $d9
        z $0
        heading $0
        view $8e
        loop $1
        cel $9
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0985
  0985:39 03            pushi 3 // $3 y
  0987:7c            pushSelf 
  0988:8f 01              lsp param1 
  098a:39 03            pushi 3 // $3 y
  098c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0992:2f 09               bt code_099d 
  0994:78               push1 
  0995:74 035c          lofss $0cf4 // look/fauteuilroulant
  0998:43 25 02         callk Said 2 

  099b:31 13              bnt code_09b0 

        code_099d
  099d:39 4c            pushi 4c // $4c claimed
  099f:78               push1 
  09a0:78               push1 
  09a1:87 01              lap param1 
  09a3:4a 06             send 6 

  09a5:7a               push2 
  09a6:39 2a            pushi 2a // $2a play
  09a8:39 20            pushi 20 // $20 state
  09aa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_09b0
  09b0:48                 ret 
    )

)

// 1086
(instance stand of PV
    (properties
        y $5a
        x $a9
        z $0
        heading $0
        view $8e
        loop $1
        cel $6
        priority $ffff
        signal $0
    )
)

// 10b0
(instance logs of Prop
    (properties
        y $56
        x $bd
        z $0
        heading $0
        yStep $2
        view $8e
        loop $2
        cel $0
        priority $5
        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 $1
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_09b1
  09b1:39 03            pushi 3 // $3 y
  09b3:7c            pushSelf 
  09b4:8f 01              lsp param1 
  09b6:39 03            pushi 3 // $3 y
  09b8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  09be:2f 09               bt code_09c9 
  09c0:78               push1 
  09c1:74 0319          lofss $0cdd // look/arbre,buche
  09c4:43 25 02         callk Said 2 

  09c7:31 0f              bnt code_09d8 

        code_09c9
  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 0a4d          lofss $1422 // fire
  09d5:45 19 02         callb procedure_0019 2 // DoLook 


        code_09d8
  09d8:48                 ret 
    )

)

// 1102
(instance lamp1 of Prop
    (properties
        y $2c
        x $50
        z $0
        heading $0
        yStep $2
        view $8e
        loop $0
        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_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 0a3a          lofss $142e // lamp
  09f4:45 19 02         callb procedure_0019 2 // DoLook 


        code_09f7
  09f7:48                 ret 
    )

)

// 1154
(instance lamp2 of Prop
    (properties
        y $4c
        x $f
        z $0
        heading $0
        yStep $2
        view $8e
        loop $0
        cel $1
        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_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 0f              bnt code_0a16 
  0a07:39 4c            pushi 4c // $4c claimed
  0a09:78               push1 
  0a0a:78               push1 
  0a0b:87 01              lap param1 
  0a0d:4a 06             send 6 

  0a0f:78               push1 
  0a10:74 0a1b          lofss $142e // lamp
  0a13:45 19 02         callb procedure_0019 2 // DoLook 


        code_0a16
  0a16:48                 ret 
    )

)

// 11a6
(instance Dbag of Prop
    (properties
        y $78
        x $dc
        z $0
        heading $0
        yStep $2
        view $8e
        loop $1
        cel $a
        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_0a17
  0a17:39 4c            pushi 4c // $4c claimed
  0a19:76               push0 
  0a1a:87 01              lap param1 
  0a1c:4a 04             send 4 

  0a1e:31 01              bnt code_0a21 
  0a20:48                 ret 

        code_0a21
  0a21:78               push1 
  0a22:74 0281          lofss $0ca6 // get/bag
  0a25:43 25 02         callk Said 2 

  0a28:31 0d              bnt code_0a37 
  0a2a:7a               push2 
  0a2b:39 2a            pushi 2a // $2a play
  0a2d:39 21            pushi 21 // $21 font
  0a2f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a35:33 70              jmp code_0aa7 

        code_0a37
  0a37:78               push1 
  0a38:74 0361          lofss $0d9c // open/bag
  0a3b:43 25 02         callk Said 2 

  0a3e:31 06              bnt code_0a46 
  0a40:76               push0 
  0a41:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  0a44:33 61              jmp code_0aa7 

        code_0a46
  0a46:78               push1 
  0a47:74 02d3          lofss $0d1d // look<dans/bag
  0a4a:43 25 02         callk Said 2 

  0a4d:31 24              bnt code_0a73 
  0a4f:38 00ae          pushi ae // $ae distanceTo
  0a52:78               push1 
  0a53:74 0756          lofss $11ac // Dbag
  0a56:81 00              lag gEgo 
  0a58:4a 06             send 6 

  0a5a:36                push 
  0a5b:35 0a              ldi a 
  0a5d:22                 lt? 
  0a5e:31 0d              bnt code_0a6d 
  0a60:7a               push2 
  0a61:39 2a            pushi 2a // $2a play
  0a63:39 22            pushi 22 // $22 type
  0a65:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a6b:33 04              jmp code_0a71 

        code_0a6d
  0a6d:76               push0 
  0a6e:45 09 00         callb procedure_0009 0 // NotClose 


        code_0a71
  0a71:33 34              jmp code_0aa7 

        code_0a73
  0a73:39 03            pushi 3 // $3 y
  0a75:7c            pushSelf 
  0a76:8f 01              lsp param1 
  0a78:39 03            pushi 3 // $3 y
  0a7a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0a80:2f 12               bt code_0a94 
  0a82:78               push1 
  0a83:74 0233          lofss $0cb9 // look/bag,dirt
  0a86:43 25 02         callk Said 2 

  0a89:2f 09               bt code_0a94 
  0a8b:78               push1 
  0a8c:74 0288          lofss $0d17 // look<bas
  0a8f:43 25 02         callk Said 2 

  0a92:31 13              bnt code_0aa7 

        code_0a94
  0a94:39 4c            pushi 4c // $4c claimed
  0a96:78               push1 
  0a97:78               push1 
  0a98:87 01              lap param1 
  0a9a:4a 06             send 6 

  0a9c:7a               push2 
  0a9d:39 2a            pushi 2a // $2a play
  0a9f:39 23            pushi 23 // $23 window
  0aa1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0aa7
  0aa7:39 4c            pushi 4c // $4c claimed
  0aa9:76               push0 
  0aaa:87 01              lap param1 
  0aac:4a 04             send 4 

  0aae:31 06              bnt code_0ab6 
  0ab0:78               push1 
  0ab1:39 20            pushi 20 // $20 state
  0ab3:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0ab6
  0ab6:48                 ret 
    )

)

// 11f8
(instance chain of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 125c
(instance elevator of Act
    (properties
        y $fff6
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 12c0
(instance down of View
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $101
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
    )
)

// 1306
(instance up of View
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $101
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
    )
)

// 134c
(instance Shaft of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $41
        nsLeft $11c
        nsBottom $7e
        nsRight $137
    )
    (method (handleEvent) // method_0ab7
  0ab7:39 03            pushi 3 // $3 y
  0ab9:7c            pushSelf 
  0aba:8f 01              lsp param1 
  0abc:39 03            pushi 3 // $3 y
  0abe:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ac4:31 0f              bnt code_0ad5 
  0ac6:39 4c            pushi 4c // $4c claimed
  0ac8:78               push1 
  0ac9:78               push1 
  0aca:87 01              lap param1 
  0acc:4a 06             send 6 

  0ace:78               push1 
  0acf:74 0947          lofss $1419 // elevator
  0ad2:45 19 02         callb procedure_0019 2 // DoLook 


        code_0ad5
  0ad5:48                 ret 
    )

)

// 1378
(instance SDress of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $35
        nsLeft $5c
        nsBottom $57
        nsRight $7c
    )
    (method (handleEvent) // method_0ad6
  0ad6:78               push1 
  0ad7:74 011e          lofss $0bf8 // (look<dans),open/drawer
  0ada:43 25 02         callk Said 2 

  0add:31 0d              bnt code_0aec 
  0adf:7a               push2 
  0ae0:39 2a            pushi 2a // $2a play
  0ae2:39 24            pushi 24 // $24 cursor
  0ae4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0aea:33 2b              jmp code_0b17 

        code_0aec
  0aec:39 03            pushi 3 // $3 y
  0aee:7c            pushSelf 
  0aef:8f 01              lsp param1 
  0af1:39 03            pushi 3 // $3 y
  0af3:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0af9:2f 09               bt code_0b04 
  0afb:78               push1 
  0afc:74 01d2          lofss $0cd1 // look/drawer
  0aff:43 25 02         callk Said 2 

  0b02:31 13              bnt code_0b17 

        code_0b04
  0b04:39 4c            pushi 4c // $4c claimed
  0b06:78               push1 
  0b07:78               push1 
  0b08:87 01              lap param1 
  0b0a:4a 06             send 6 

  0b0c:7a               push2 
  0b0d:39 2a            pushi 2a // $2a play
  0b0f:39 25            pushi 25 // $25 max
  0b11:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0b17
  0b17:48                 ret 
    )

)

// 13a4
(instance Armoire of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $43
        nsLeft $100
        nsBottom $7f
        nsRight $112
    )
    (method (handleEvent) // method_0b18
  0b18:78               push1 
  0b19:74 011a          lofss $0c36 // /panel,(door<cachoterie)>
  0b1c:43 25 02         callk Said 2 

  0b1f:31 71              bnt code_0b92 
  0b21:78               push1 
  0b22:74 018b          lofss $0cb0 // look
  0b25:43 25 02         callk Said 2 

  0b28:31 22              bnt code_0b4c 
  0b2a:88 00af            lsg global175 
  0b2d:35 10              ldi 10 
  0b2f:12                 and 
  0b30:31 0d              bnt code_0b3f 
  0b32:7a               push2 
  0b33:39 2a            pushi 2a // $2a play
  0b35:39 26            pushi 26 // $26 mark
  0b37:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b3d:33 0b              jmp code_0b4a 

        code_0b3f
  0b3f:7a               push2 
  0b40:39 2a            pushi 2a // $2a play
  0b42:39 27            pushi 27 // $27 who
  0b44:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0b4a
  0b4a:33 44              jmp code_0b90 

        code_0b4c
  0b4c:88 00af            lsg global175 
  0b4f:35 10              ldi 10 
  0b51:12                 and 
  0b52:31 3c              bnt code_0b90 
  0b54:78               push1 
  0b55:74 0230          lofss $0d88 // open,bouger
  0b58:43 25 02         callk Said 2 

  0b5b:31 33              bnt code_0b90 
  0b5d:80 00c1            lag global193 
  0b60:18                 not 
  0b61:31 22              bnt code_0b85 
  0b63:38 00db          pushi db // $db onControl
  0b66:78               push1 
  0b67:78               push1 
  0b68:81 00              lag gEgo 
  0b6a:4a 06             send 6 

  0b6c:36                push 
  0b6d:34 0080            ldi 80 
  0b70:12                 and 
  0b71:31 0c              bnt code_0b7f 
  0b73:38 00f8          pushi f8 // $f8 newRoom
  0b76:78               push1 
  0b77:39 31            pushi 31 // $31 b-i1
  0b79:81 02              lag gCurRoom 
  0b7b:4a 06             send 6 

  0b7d:33 04              jmp code_0b83 

        code_0b7f
  0b7f:76               push0 
  0b80:45 09 00         callb procedure_0009 0 // NotClose 


        code_0b83
  0b83:33 0b              jmp code_0b90 

        code_0b85
  0b85:7a               push2 
  0b86:39 2a            pushi 2a // $2a play
  0b88:39 28            pushi 28 // $28 message
  0b8a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0b90
  0b90:33 60              jmp code_0bf2 

        code_0b92
  0b92:78               push1 
  0b93:74 01bc          lofss $0d52 // bouger/armoire
  0b96:43 25 02         callk Said 2 

  0b99:31 0d              bnt code_0ba8 
  0b9b:7a               push2 
  0b9c:39 2a            pushi 2a // $2a play
  0b9e:39 29            pushi 29 // $29 edit
  0ba0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ba6:33 4a              jmp code_0bf2 

        code_0ba8
  0ba8:78               push1 
  0ba9:74 014e          lofss $0cfa // look<(dans,dans,dans)/armoire
  0bac:43 25 02         callk Said 2 

  0baf:2f 09               bt code_0bba 
  0bb1:78               push1 
  0bb2:74 01d9          lofss $0d8e // open/armoire,(door<armoire)
  0bb5:43 25 02         callk Said 2 

  0bb8:31 0d              bnt code_0bc7 

        code_0bba
  0bba:7a               push2 
  0bbb:39 2a            pushi 2a // $2a play
  0bbd:39 2a            pushi 2a // $2a play
  0bbf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0bc5:33 2b              jmp code_0bf2 

        code_0bc7
  0bc7:39 03            pushi 3 // $3 y
  0bc9:7c            pushSelf 
  0bca:8f 01              lsp param1 
  0bcc:39 03            pushi 3 // $3 y
  0bce:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bd4:2f 09               bt code_0bdf 
  0bd6:78               push1 
  0bd7:74 00d9          lofss $0cb3 // look/armoire
  0bda:43 25 02         callk Said 2 

  0bdd:31 13              bnt code_0bf2 

        code_0bdf
  0bdf:39 4c            pushi 4c // $4c claimed
  0be1:78               push1 
  0be2:78               push1 
  0be3:87 01              lap param1 
  0be5:4a 06             send 6 

  0be7:7a               push2 
  0be8:39 2a            pushi 2a // $2a play
  0bea:39 2b            pushi 2b // $2b number
  0bec:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0bf2
  0bf2:48                 ret 
  0bf3:00                bnot 
    )

)



(procedure proc_002e
  002e:35 0a              ldi a 
  0030:a0 00d5            sag global213 
  0033:78               push1 
  0034:78               push1 
  0035:59 01            &rest 1 
  0037:45 01 02         callb procedure_0001 2 // Say 

  003a:48                 ret 
)

