(script 76)

(string
    string_09c0 "Elevator"
    string_09c9 "Junk"
    string_09ce "Killer"
    string_09d5 "Room76"
    string_09dc "Strangle"
    string_09e5 "elevator"
    string_09ee "myMusic"
    string_09f6 "trunk"
)

(said
    said_0728 /boot
    said_072c /boite
    said_0730 /cape
    said_0734 /cape,chapeau,heel
    said_073e /chest
    said_0742 /cloth
    said_0746 /dormer
    said_074a /ascenseur
    said_074e /dechet,chose
    said_0755 /gant
    said_0759 /gant,boot
    said_0760 /chapeau
    said_0764 /heel,embleme
    said_076b /chose,dechet
    said_0772 /fenetre
    said_0776 <dans/boite
    said_077d [<around,at][/room]
    said_078b clore/chest
    said_0791 get,bouger/boite
    said_079a get,bouger/chest
    said_07a3 get>
    said_07a7 look/chest
    said_07ad look/dechet,chose,furniture
    said_07b9 look>
    said_07bd open>
    said_07c1 chercher,(look<dans)/chest
    said_07cf chercher,(look<dans)/cloth
    said_07dd porter,(attach<on)>
)

(synonym
    room = attic | grenier
)

(local
    local0 = $0000
)

// 07f0
(instance public Room76 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $4c
        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_0016
  0016:35 5f              ldi 5f 
  0018:65 16             aTop horizon 
  001a:35 4b              ldi 4b 
  001c:65 1a             aTop north 
  001e:35 4a              ldi 4a 
  0020:65 1c             aTop east 
  0022:35 00              ldi 0 
  0024:a1 3d              sag global61 
  0026:39 57            pushi 57 // $57 init
  0028:76               push0 
  0029:57 37 04         super Rm 4 

  002c:7a               push2 
  002d:38 0084          pushi 84 // $84 stop
  0030:39 75            pushi 75 // $75 register
  0032:43 00 04         callk Load 4 

  0035:80 0184            lag gAtticFirstTime 
  0038:18                 not 
  0039:31 11              bnt code_004c 
  003b:88 00ba            lsg gHour 
  003e:35 08              ldi 8 
  0040:0e                 shl 
  0041:36                push 
  0042:88 00bb            lsg gMinute 
  0045:35 0f              ldi f 
  0047:06                 mul 
  0048:14                  or 
  0049:a0 0184            sag gAtticFirstTime 

        code_004c
  004c:88 00a5            lsg gAct 
  004f:3c                 dup 
  0050:35 02              ldi 2 
  0052:1a                 eq? 
  0053:31 06              bnt code_005b 
  0055:35 01              ldi 1 
  0057:a3 00              sal local0 
  0059:33 16              jmp code_0071 

        code_005b
  005b:3c                 dup 
  005c:35 04              ldi 4 
  005e:1a                 eq? 
  005f:31 06              bnt code_0067 
  0061:35 02              ldi 2 
  0063:a3 00              sal local0 
  0065:33 0a              jmp code_0071 

        code_0067
  0067:3c                 dup 
  0068:35 06              ldi 6 
  006a:1a                 eq? 
  006b:31 04              bnt code_0071 
  006d:35 04              ldi 4 
  006f:a3 00              sal local0 

        code_0071
  0071:3a                toss 
  0072:38 010b          pushi 10b // $10b setFeatures
  0075:78               push1 
  0076:74 08a5          lofss $091e // Junk
  0079:54 06             self 6 

  007b:39 57            pushi 57 // $57 init
  007d:76               push0 
  007e:38 00c6          pushi c6 // $c6 stopUpd
  0081:76               push0 
  0082:72 07f5          lofsa $087a // trunk
  0085:4a 08             send 8 

  0087:39 07            pushi 7 // $7 cel
  0089:78               push1 
  008a:89 6f              lsg global111 
  008c:35 4b              ldi 4b 
  008e:1a                 eq? 
  008f:31 04              bnt code_0095 
  0091:35 01              ldi 1 
  0093:33 0e              jmp code_00a3 

        code_0095
  0095:89 6d              lsg gElevatorState 
  0097:35 04              ldi 4 
  0099:12                 and 
  009a:18                 not 
  009b:31 04              bnt code_00a1 
  009d:35 02              ldi 2 
  009f:33 02              jmp code_00a3 

        code_00a1
  00a1:35 03              ldi 3 

        code_00a3
  00a3:36                push 
  00a4:39 57            pushi 57 // $57 init
  00a6:76               push0 
  00a7:38 00c6          pushi c6 // $c6 stopUpd
  00aa:76               push0 
  00ab:72 081e          lofsa $08cc // Elevator
  00ae:4a 0e             send e 

  00b0:89 0c              lsg gPrevRoomNum 
  00b2:35 4b              ldi 4b 
  00b4:1a                 eq? 
  00b5:31 0f              bnt code_00c6 
  00b7:38 00c5          pushi c5 // $c5 posn
  00ba:7a               push2 
  00bb:38 010c          pushi 10c // $10c setLocales
  00be:39 60            pushi 60 // $60 size
  00c0:81 00              lag gEgo 
  00c2:4a 08             send 8 

  00c4:33 0d              jmp code_00d3 

        code_00c6
  00c6:38 00c5          pushi c5 // $c5 posn
  00c9:7a               push2 
  00ca:38 0135          pushi 135 // $135 chainID
  00cd:39 75            pushi 75 // $75 register
  00cf:81 00              lag gEgo 
  00d1:4a 08             send 8 


        code_00d3
  00d3:39 57            pushi 57 // $57 init
  00d5:76               push0 
  00d6:81 00              lag gEgo 
  00d8:4a 04             send 4 

  00da:39 57            pushi 57 // $57 init
  00dc:76               push0 
  00dd:38 0089          pushi 89 // $89 hide
  00e0:76               push0 
  00e1:72 0866          lofsa $094a // Killer
  00e4:4a 08             send 8 

  00e6:48                 ret 
    )

    (method (doit) // method_00e7
  00e7:76               push0 
  00e8:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  00eb:31 0a              bnt code_00f7 
  00ed:7a               push2 
  00ee:39 4c            pushi 4c // $4c claimed
  00f0:76               push0 
  00f1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_00f7
  00f7:39 3c            pushi 3c // $3c doit
  00f9:76               push0 
  00fa:57 37 04         super Rm 4 

  00fd:38 00db          pushi db // $db onControl
  0100:78               push1 
  0101:78               push1 
  0102:81 00              lag gEgo 
  0104:4a 06             send 6 

  0106:36                push 
  0107:34 4000            ldi 4000 
  010a:12                 and 
  010b:31 1e              bnt code_012b 
  010d:63 08             pToa script 
  010f:18                 not 
  0110:31 19              bnt code_012b 
  0112:78               push1 
  0113:39 2e            pushi 2e // $2e dx
  0115:45 07 02         callb procedure_0007 2 // IsFlag 

  0118:18                 not 
  0119:31 10              bnt code_012b 
  011b:88 00a5            lsg gAct 
  011e:35 07              ldi 7 
  0120:22                 lt? 
  0121:31 08              bnt code_012b 
  0123:39 7a            pushi 7a // $7a setScript
  0125:78               push1 
  0126:74 071d          lofss $0846 // Strangle
  0129:54 06             self 6 


        code_012b
  012b:48                 ret 
    )

    (method (dispose) // method_012c
  012c:39 58            pushi 58 // $58 dispose
  012e:76               push0 
  012f:57 37 04         super Rm 4 

  0132:48                 ret 
    )

    (method (newRoom) // method_0133
  0133:38 00f8          pushi f8 // $f8 newRoom
  0136:78               push1 
  0137:8f 01              lsp param1 
  0139:57 37 06         super Rm 6 

  013c:48                 ret 
    )

    (method (handleEvent) // method_013d
  013d:3f 01             link 1 // (var $1)
  013f:39 4c            pushi 4c // $4c claimed
  0141:76               push0 
  0142:87 01              lap param1 
  0144:4a 04             send 4 

  0146:31 03              bnt code_014b 
  0148:35 01              ldi 1 
  014a:48                 ret 

        code_014b
  014b:39 22            pushi 22 // $22 type
  014d:76               push0 
  014e:87 01              lap param1 
  0150:4a 04             send 4 

  0152:36                push 
  0153:34 0080            ldi 80 
  0156:1a                 eq? 
  0157:30 0368            bnt code_04c2 
  015a:78               push1 
  015b:74 065b          lofss $07b9 // look>
  015e:43 25 02         callk Said 2 

  0161:30 01e8            bnt code_034c 
  0164:78               push1 
  0165:74 0615          lofss $077d // [<around,at][/room]
  0168:43 25 02         callk Said 2 

  016b:31 0d              bnt code_017a 
  016d:7a               push2 
  016e:39 4c            pushi 4c // $4c claimed
  0170:76               push0 
  0171:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0177:32 01cf            jmp code_0349 

        code_017a
  017a:78               push1 
  017b:74 05d0          lofss $074e // /dechet,chose
  017e:43 25 02         callk Said 2 

  0181:31 0d              bnt code_0190 
  0183:7a               push2 
  0184:39 4c            pushi 4c // $4c claimed
  0186:78               push1 
  0187:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  018d:32 01b9            jmp code_0349 

        code_0190
  0190:78               push1 
  0191:74 05e2          lofss $0776 // <dans/boite
  0194:43 25 02         callk Said 2 

  0197:31 0d              bnt code_01a6 
  0199:7a               push2 
  019a:39 4c            pushi 4c // $4c claimed
  019c:7a               push2 
  019d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01a3:32 01a3            jmp code_0349 

        code_01a6
  01a6:78               push1 
  01a7:74 0582          lofss $072c // /boite
  01aa:43 25 02         callk Said 2 

  01ad:31 0e              bnt code_01bd 
  01af:7a               push2 
  01b0:39 4c            pushi 4c // $4c claimed
  01b2:39 03            pushi 3 // $3 y
  01b4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ba:32 018c            jmp code_0349 

        code_01bd
  01bd:78               push1 
  01be:74 0585          lofss $0746 // /dormer
  01c1:43 25 02         callk Said 2 

  01c4:31 0e              bnt code_01d4 
  01c6:7a               push2 
  01c7:39 4c            pushi 4c // $4c claimed
  01c9:39 04            pushi 4 // $4 x
  01cb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01d1:32 0175            jmp code_0349 

        code_01d4
  01d4:78               push1 
  01d5:74 056a          lofss $0742 // /cloth
  01d8:43 25 02         callk Said 2 

  01db:31 0e              bnt code_01eb 
  01dd:7a               push2 
  01de:39 4c            pushi 4c // $4c claimed
  01e0:39 05            pushi 5 // $5 view
  01e2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01e8:32 015e            jmp code_0349 

        code_01eb
  01eb:78               push1 
  01ec:74 057c          lofss $076b // /chose,dechet
  01ef:43 25 02         callk Said 2 

  01f2:31 0e              bnt code_0202 
  01f4:7a               push2 
  01f5:39 4c            pushi 4c // $4c claimed
  01f7:39 06            pushi 6 // $6 loop
  01f9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01ff:32 0147            jmp code_0349 

        code_0202
  0202:78               push1 
  0203:74 056c          lofss $0772 // /fenetre
  0206:43 25 02         callk Said 2 

  0209:31 0e              bnt code_0219 
  020b:7a               push2 
  020c:39 4c            pushi 4c // $4c claimed
  020e:39 07            pushi 7 // $7 cel
  0210:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0216:32 0130            jmp code_0349 

        code_0219
  0219:78               push1 
  021a:74 052d          lofss $074a // /ascenseur
  021d:43 25 02         callk Said 2 

  0220:31 22              bnt code_0244 
  0222:89 6f              lsg global111 
  0224:81 0b              lag gCurRoomNum 
  0226:1a                 eq? 
  0227:31 0d              bnt code_0236 
  0229:7a               push2 
  022a:39 4c            pushi 4c // $4c claimed
  022c:39 08            pushi 8 // $8 underBits
  022e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0234:33 0b              jmp code_0241 

        code_0236
  0236:7a               push2 
  0237:39 4c            pushi 4c // $4c claimed
  0239:39 09            pushi 9 // $9 nsTop
  023b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0241
  0241:32 0105            jmp code_0349 

        code_0244
  0244:83 00              lal local0 
  0246:30 00d6            bnt code_031f 
  0249:78               push1 
  024a:74 04e3          lofss $0730 // /cape
  024d:43 25 02         callk Said 2 

  0250:31 24              bnt code_0276 
  0252:8b 00              lsl local0 
  0254:3c                 dup 
  0255:35 04              ldi 4 
  0257:1a                 eq? 
  0258:31 0d              bnt code_0267 
  025a:7a               push2 
  025b:39 4c            pushi 4c // $4c claimed
  025d:39 0a            pushi a // $a nsLeft
  025f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0265:33 0b              jmp code_0272 

        code_0267
  0267:7a               push2 
  0268:39 4c            pushi 4c // $4c claimed
  026a:39 0b            pushi b // $b nsBottom
  026c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0272
  0272:3a                toss 
  0273:32 0098            jmp code_030e 

        code_0276
  0276:78               push1 
  0277:74 04db          lofss $0755 // /gant
  027a:43 25 02         callk Said 2 

  027d:31 23              bnt code_02a2 
  027f:8b 00              lsl local0 
  0281:3c                 dup 
  0282:35 04              ldi 4 
  0284:1a                 eq? 
  0285:31 0d              bnt code_0294 
  0287:7a               push2 
  0288:39 4c            pushi 4c // $4c claimed
  028a:39 0c            pushi c // $c nsRight
  028c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0292:33 0b              jmp code_029f 

        code_0294
  0294:7a               push2 
  0295:39 4c            pushi 4c // $4c claimed
  0297:39 0d            pushi d // $d lsTop
  0299:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_029f
  029f:3a                toss 
  02a0:33 6c              jmp code_030e 

        code_02a2
  02a2:78               push1 
  02a3:74 0482          lofss $0728 // /boot
  02a6:43 25 02         callk Said 2 

  02a9:31 23              bnt code_02ce 
  02ab:8b 00              lsl local0 
  02ad:3c                 dup 
  02ae:35 01              ldi 1 
  02b0:1a                 eq? 
  02b1:31 0d              bnt code_02c0 
  02b3:7a               push2 
  02b4:39 4c            pushi 4c // $4c claimed
  02b6:39 0e            pushi e // $e lsLeft
  02b8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02be:33 0b              jmp code_02cb 

        code_02c0
  02c0:7a               push2 
  02c1:39 4c            pushi 4c // $4c claimed
  02c3:39 0f            pushi f // $f lsBottom
  02c5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_02cb
  02cb:3a                toss 
  02cc:33 40              jmp code_030e 

        code_02ce
  02ce:78               push1 
  02cf:74 048e          lofss $0760 // /chapeau
  02d2:43 25 02         callk Said 2 

  02d5:31 0d              bnt code_02e4 
  02d7:7a               push2 
  02d8:39 4c            pushi 4c // $4c claimed
  02da:39 10            pushi 10 // $10 lsRight
  02dc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  02e2:33 2a              jmp code_030e 

        code_02e4
  02e4:78               push1 
  02e5:74 047c          lofss $0764 // /heel,embleme
  02e8:43 25 02         callk Said 2 

  02eb:31 21              bnt code_030e 
  02ed:8b 00              lsl local0 
  02ef:3c                 dup 
  02f0:35 01              ldi 1 
  02f2:1a                 eq? 
  02f3:31 0d              bnt code_0302 
  02f5:7a               push2 
  02f6:39 4c            pushi 4c // $4c claimed
  02f8:39 11            pushi 11 // $11 signal
  02fa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0300:33 0b              jmp code_030d 

        code_0302
  0302:7a               push2 
  0303:39 4c            pushi 4c // $4c claimed
  0305:39 12            pushi 12 // $12 illegalBits
  0307:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_030d
  030d:3a                toss 

        code_030e
  030e:39 4c            pushi 4c // $4c claimed
  0310:76               push0 
  0311:87 01              lap param1 
  0313:4a 04             send 4 

  0315:31 06              bnt code_031d 
  0317:78               push1 
  0318:39 2e            pushi 2e // $2e dx
  031a:45 05 02         callb procedure_0005 2 // SetFlag 


        code_031d
  031d:33 2a              jmp code_0349 

        code_031f
  031f:78               push1 
  0320:74 0411          lofss $0734 // /cape,chapeau,heel
  0323:43 25 02         callk Said 2 

  0326:31 0d              bnt code_0335 
  0328:7a               push2 
  0329:39 4c            pushi 4c // $4c claimed
  032b:39 13            pushi 13 // $13 brTop
  032d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0333:33 14              jmp code_0349 

        code_0335
  0335:78               push1 
  0336:74 0420          lofss $0759 // /gant,boot
  0339:43 25 02         callk Said 2 

  033c:31 0b              bnt code_0349 
  033e:7a               push2 
  033f:39 4c            pushi 4c // $4c claimed
  0341:39 14            pushi 14 // $14 brLeft
  0343:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0349
  0349:32 0176            jmp code_04c2 

        code_034c
  034c:78               push1 
  034d:74 046d          lofss $07bd // open>
  0350:43 25 02         callk Said 2 

  0353:31 2c              bnt code_0381 
  0355:78               push1 
  0356:74 03d3          lofss $072c // /boite
  0359:43 25 02         callk Said 2 

  035c:31 0c              bnt code_036a 
  035e:7a               push2 
  035f:39 4c            pushi 4c // $4c claimed
  0361:7a               push2 
  0362:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0368:33 14              jmp code_037e 

        code_036a
  036a:78               push1 
  036b:74 03d0          lofss $073e // /chest
  036e:43 25 02         callk Said 2 

  0371:31 0b              bnt code_037e 
  0373:7a               push2 
  0374:39 4c            pushi 4c // $4c claimed
  0376:39 15            pushi 15 // $15 brBottom
  0378:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_037e
  037e:32 0141            jmp code_04c2 

        code_0381
  0381:78               push1 
  0382:74 041e          lofss $07a3 // get>
  0385:43 25 02         callk Said 2 

  0388:30 0098            bnt code_0423 
  038b:78               push1 
  038c:74 03b3          lofss $0742 // /cloth
  038f:43 25 02         callk Said 2 

  0392:31 0d              bnt code_03a1 
  0394:7a               push2 
  0395:39 4c            pushi 4c // $4c claimed
  0397:39 16            pushi 16 // $16 brRight
  0399:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  039f:33 7f              jmp code_0420 

        code_03a1
  03a1:78               push1 
  03a2:74 03c6          lofss $076b // /chose,dechet
  03a5:43 25 02         callk Said 2 

  03a8:31 0d              bnt code_03b7 
  03aa:7a               push2 
  03ab:39 4c            pushi 4c // $4c claimed
  03ad:39 16            pushi 16 // $16 brRight
  03af:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03b5:33 69              jmp code_0420 

        code_03b7
  03b7:83 00              lal local0 
  03b9:31 65              bnt code_0420 
  03bb:78               push1 
  03bc:74 0371          lofss $0730 // /cape
  03bf:43 25 02         callk Said 2 

  03c2:31 0d              bnt code_03d1 
  03c4:7a               push2 
  03c5:39 4c            pushi 4c // $4c claimed
  03c7:39 17            pushi 17 // $17 name
  03c9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03cf:33 40              jmp code_0411 

        code_03d1
  03d1:78               push1 
  03d2:74 0380          lofss $0755 // /gant
  03d5:43 25 02         callk Said 2 

  03d8:31 0d              bnt code_03e7 
  03da:7a               push2 
  03db:39 4c            pushi 4c // $4c claimed
  03dd:39 18            pushi 18 // $18 key
  03df:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03e5:33 2a              jmp code_0411 

        code_03e7
  03e7:78               push1 
  03e8:74 0375          lofss $0760 // /chapeau
  03eb:43 25 02         callk Said 2 

  03ee:31 0d              bnt code_03fd 
  03f0:7a               push2 
  03f1:39 4c            pushi 4c // $4c claimed
  03f3:39 19            pushi 19 // $19 time
  03f5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03fb:33 14              jmp code_0411 

        code_03fd
  03fd:78               push1 
  03fe:74 0327          lofss $0728 // /boot
  0401:43 25 02         callk Said 2 

  0404:31 0b              bnt code_0411 
  0406:7a               push2 
  0407:39 4c            pushi 4c // $4c claimed
  0409:39 1a            pushi 1a // $1a text
  040b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0411
  0411:39 4c            pushi 4c // $4c claimed
  0413:76               push0 
  0414:87 01              lap param1 
  0416:4a 04             send 4 

  0418:31 06              bnt code_0420 
  041a:78               push1 
  041b:39 2e            pushi 2e // $2e dx
  041d:45 05 02         callb procedure_0005 2 // SetFlag 


        code_0420
  0420:32 009f            jmp code_04c2 

        code_0423
  0423:78               push1 
  0424:74 03b6          lofss $07dd // porter,(attach<on)>
  0427:43 25 02         callk Said 2 

  042a:30 0081            bnt code_04ae 
  042d:78               push1 
  042e:74 0311          lofss $0742 // /cloth
  0431:43 25 02         callk Said 2 

  0434:31 0d              bnt code_0443 
  0436:7a               push2 
  0437:39 4c            pushi 4c // $4c claimed
  0439:39 1b            pushi 1b // $1b elements
  043b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0441:33 69              jmp code_04ac 

        code_0443
  0443:83 00              lal local0 
  0445:31 65              bnt code_04ac 
  0447:78               push1 
  0448:74 02e5          lofss $0730 // /cape
  044b:43 25 02         callk Said 2 

  044e:31 0d              bnt code_045d 
  0450:7a               push2 
  0451:39 4c            pushi 4c // $4c claimed
  0453:39 17            pushi 17 // $17 name
  0455:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  045b:33 40              jmp code_049d 

        code_045d
  045d:78               push1 
  045e:74 02f4          lofss $0755 // /gant
  0461:43 25 02         callk Said 2 

  0464:31 0d              bnt code_0473 
  0466:7a               push2 
  0467:39 4c            pushi 4c // $4c claimed
  0469:39 18            pushi 18 // $18 key
  046b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0471:33 2a              jmp code_049d 

        code_0473
  0473:78               push1 
  0474:74 02e9          lofss $0760 // /chapeau
  0477:43 25 02         callk Said 2 

  047a:31 0d              bnt code_0489 
  047c:7a               push2 
  047d:39 4c            pushi 4c // $4c claimed
  047f:39 19            pushi 19 // $19 time
  0481:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0487:33 14              jmp code_049d 

        code_0489
  0489:78               push1 
  048a:74 029b          lofss $0728 // /boot
  048d:43 25 02         callk Said 2 

  0490:31 0b              bnt code_049d 
  0492:7a               push2 
  0493:39 4c            pushi 4c // $4c claimed
  0495:39 1a            pushi 1a // $1a text
  0497:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_049d
  049d:39 4c            pushi 4c // $4c claimed
  049f:76               push0 
  04a0:87 01              lap param1 
  04a2:4a 04             send 4 

  04a4:31 06              bnt code_04ac 
  04a6:78               push1 
  04a7:39 2e            pushi 2e // $2e dx
  04a9:45 05 02         callb procedure_0005 2 // SetFlag 


        code_04ac
  04ac:33 14              jmp code_04c2 

        code_04ae
  04ae:78               push1 
  04af:74 02d9          lofss $078b // clore/chest
  04b2:43 25 02         callk Said 2 

  04b5:31 0b              bnt code_04c2 
  04b7:7a               push2 
  04b8:39 4c            pushi 4c // $4c claimed
  04ba:39 1c            pushi 1c // $1c color
  04bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04c2
  04c2:48                 ret 
    )

)

// 0840
(instance Strangle of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_04c3
  04c3:39 3c            pushi 3c // $3c doit
  04c5:76               push0 
  04c6:57 05 04         super Script 4 

  04c9:38 0081          pushi 81 // $81 prevSignal
  04cc:76               push0 
  04cd:72 04c8          lofsa $0998 // myMusic
  04d0:4a 04             send 4 

  04d2:36                push 
  04d3:35 ff              ldi ff 
  04d5:1a                 eq? 
  04d6:31 2a              bnt code_0502 
  04d8:67 0a             pTos state 
  04da:35 03              ldi 3 
  04dc:1a                 eq? 
  04dd:31 23              bnt code_0502 
  04df:39 07            pushi 7 // $7 cel
  04e1:76               push0 
  04e2:81 00              lag gEgo 
  04e4:4a 04             send 4 

  04e6:36                push 
  04e7:78               push1 
  04e8:89 00              lsg gEgo 
  04ea:43 0e 02         callk NumCels 2 

  04ed:36                push 
  04ee:35 01              ldi 1 
  04f0:04                 sub 
  04f1:1a                 eq? 
  04f2:31 0e              bnt code_0502 
  04f4:38 0081          pushi 81 // $81 prevSignal
  04f7:78               push1 
  04f8:76               push0 
  04f9:72 049c          lofsa $0998 // myMusic
  04fc:4a 06             send 6 

  04fe:35 01              ldi 1 
  0500:65 10             aTop cycles 

        code_0502
  0502:48                 ret 
    )

    (method (changeState) // method_0503
  0503:87 01              lap param1 
  0505:65 0a             aTop state 
  0507:36                push 
  0508:3c                 dup 
  0509:35 00              ldi 0 
  050b:1a                 eq? 
  050c:31 2d              bnt code_053b 
  050e:76               push0 
  050f:45 03 00         callb procedure_0003 0 // HandsOff 

  0512:38 0081          pushi 81 // $81 prevSignal
  0515:78               push1 
  0516:76               push0 
  0517:39 2b            pushi 2b // $2b number
  0519:78               push1 
  051a:39 75            pushi 75 // $75 register
  051c:39 06            pushi 6 // $6 loop
  051e:78               push1 
  051f:78               push1 
  0520:39 2a            pushi 2a // $2a play
  0522:76               push0 
  0523:72 0472          lofsa $0998 // myMusic
  0526:4a 16             send 16 

  0528:38 00ca          pushi ca // $ca show
  052b:76               push0 
  052c:39 7e            pushi 7e // $7e setCycle
  052e:7a               push2 
  052f:51 1a            class End 
  0531:36                push 
  0532:7c            pushSelf 
  0533:72 0414          lofsa $094a // Killer
  0536:4a 0c             send c 

  0538:32 00a7            jmp code_05e2 

        code_053b
  053b:3c                 dup 
  053c:35 01              ldi 1 
  053e:1a                 eq? 
  053f:31 26              bnt code_0567 
  0541:39 06            pushi 6 // $6 loop
  0543:78               push1 
  0544:78               push1 
  0545:38 00a4          pushi a4 // $a4 cycleSpeed
  0548:78               push1 
  0549:78               push1 
  054a:39 7e            pushi 7e // $7e setCycle
  054c:78               push1 
  054d:51 16            class Fwd 
  054f:36                push 
  0550:72 03f7          lofsa $094a // Killer
  0553:4a 12             send 12 

  0555:39 07            pushi 7 // $7 cel
  0557:78               push1 
  0558:76               push0 
  0559:38 0089          pushi 89 // $89 hide
  055c:76               push0 
  055d:81 00              lag gEgo 
  055f:4a 0a             send a 

  0561:35 05              ldi 5 
  0563:65 10             aTop cycles 
  0565:33 7b              jmp code_05e2 

        code_0567
  0567:3c                 dup 
  0568:35 02              ldi 2 
  056a:1a                 eq? 
  056b:31 10              bnt code_057d 
  056d:39 06            pushi 6 // $6 loop
  056f:78               push1 
  0570:39 04            pushi 4 // $4 x
  0572:72 03d5          lofsa $094a // Killer
  0575:4a 06             send 6 

  0577:35 03              ldi 3 
  0579:65 12             aTop seconds 
  057b:33 65              jmp code_05e2 

        code_057d
  057d:3c                 dup 
  057e:35 03              ldi 3 
  0580:1a                 eq? 
  0581:31 3a              bnt code_05bd 
  0583:39 06            pushi 6 // $6 loop
  0585:78               push1 
  0586:7a               push2 
  0587:39 07            pushi 7 // $7 cel
  0589:78               push1 
  058a:76               push0 
  058b:39 7e            pushi 7e // $7e setCycle
  058d:78               push1 
  058e:51 1a            class End 
  0590:36                push 
  0591:72 03b6          lofsa $094a // Killer
  0594:4a 12             send 12 

  0596:38 00ca          pushi ca // $ca show
  0599:76               push0 
  059a:39 05            pushi 5 // $5 view
  059c:78               push1 
  059d:39 3e            pushi 3e // $3e looper
  059f:39 06            pushi 6 // $6 loop
  05a1:78               push1 
  05a2:39 03            pushi 3 // $3 y
  05a4:39 07            pushi 7 // $7 cel
  05a6:78               push1 
  05a7:76               push0 
  05a8:38 00c5          pushi c5 // $c5 posn
  05ab:7a               push2 
  05ac:38 009b          pushi 9b // $9b bottom
  05af:39 5c            pushi 5c // $5c isKindOf
  05b1:39 7e            pushi 7e // $7e setCycle
  05b3:78               push1 
  05b4:51 1a            class End 
  05b6:36                push 
  05b7:81 00              lag gEgo 
  05b9:4a 24             send 24 

  05bb:33 25              jmp code_05e2 

        code_05bd
  05bd:3c                 dup 
  05be:35 04              ldi 4 
  05c0:1a                 eq? 
  05c1:31 1f              bnt code_05e2 
  05c3:35 3e              ldi 3e 
  05c5:a0 0080            sag global128 
  05c8:35 05              ldi 5 
  05ca:a0 0081            sag global129 
  05cd:35 00              ldi 0 
  05cf:a0 0082            sag global130 
  05d2:7a               push2 
  05d3:39 4c            pushi 4c // $4c claimed
  05d5:39 1d            pushi 1d // $1d back
  05d7:45 13 04         callb procedure_0013 4 // EgoDead 

  05da:39 7a            pushi 7a // $7a setScript
  05dc:78               push1 
  05dd:76               push0 
  05de:63 08             pToa client 
  05e0:4a 06             send 6 


        code_05e2
  05e2:3a                toss 
  05e3:48                 ret 
    )

)

// 0874
(instance trunk of Prop
    (properties
        y $9d
        x $48
        z $0
        heading $0
        yStep $2
        view $b0
        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_05e4
  05e4:78               push1 
  05e5:74 01a9          lofss $0791 // get,bouger/boite
  05e8:43 25 02         callk Said 2 

  05eb:31 0e              bnt code_05fb 
  05ed:7a               push2 
  05ee:39 4c            pushi 4c // $4c claimed
  05f0:39 1e            pushi 1e // $1e mode
  05f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05f8:32 00dd            jmp code_06d8 

        code_05fb
  05fb:78               push1 
  05fc:74 019b          lofss $079a // get,bouger/chest
  05ff:43 25 02         callk Said 2 

  0602:31 0e              bnt code_0612 
  0604:7a               push2 
  0605:39 4c            pushi 4c // $4c claimed
  0607:39 1f            pushi 1f // $1f style
  0609:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  060f:32 00c6            jmp code_06d8 

        code_0612
  0612:78               push1 
  0613:74 01ab          lofss $07c1 // chercher,(look<dans)/chest
  0616:43 25 02         callk Said 2 

  0619:2f 0a               bt code_0625 
  061b:78               push1 
  061c:74 01b0          lofss $07cf // chercher,(look<dans)/cloth
  061f:43 25 02         callk Said 2 

  0622:30 0088            bnt code_06ad 

        code_0625
  0625:38 00ae          pushi ae // $ae distanceTo
  0628:78               push1 
  0629:74 024e          lofss $087a // trunk
  062c:81 00              lag gEgo 
  062e:4a 06             send 6 

  0630:36                push 
  0631:35 1e              ldi 1e 
  0633:22                 lt? 
  0634:31 71              bnt code_06a7 
  0636:83 00              lal local0 
  0638:18                 not 
  0639:31 0d              bnt code_0648 
  063b:7a               push2 
  063c:39 4c            pushi 4c // $4c claimed
  063e:39 20            pushi 20 // $20 state
  0640:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0646:33 5d              jmp code_06a5 

        code_0648
  0648:78               push1 
  0649:39 2e            pushi 2e // $2e dx
  064b:45 05 02         callb procedure_0005 2 // SetFlag 

  064e:8b 00              lsl local0 
  0650:3c                 dup 
  0651:35 01              ldi 1 
  0653:1a                 eq? 
  0654:31 16              bnt code_066c 
  0656:39 06            pushi 6 // $6 loop
  0658:39 4c            pushi 4c // $4c claimed
  065a:39 21            pushi 21 // $21 font
  065c:39 4c            pushi 4c // $4c claimed
  065e:39 20            pushi 20 // $20 state
  0660:39 4c            pushi 4c // $4c claimed
  0662:39 22            pushi 22 // $22 type
  0664:46 00ff 0004 0c  calle ff procedure_0004 c // Printf 

  066a:33 38              jmp code_06a4 

        code_066c
  066c:3c                 dup 
  066d:35 02              ldi 2 
  066f:1a                 eq? 
  0670:31 1a              bnt code_068c 
  0672:39 08            pushi 8 // $8 underBits
  0674:39 4c            pushi 4c // $4c claimed
  0676:39 23            pushi 23 // $23 window
  0678:39 4c            pushi 4c // $4c claimed
  067a:39 20            pushi 20 // $20 state
  067c:39 4c            pushi 4c // $4c claimed
  067e:39 22            pushi 22 // $22 type
  0680:39 4c            pushi 4c // $4c claimed
  0682:39 24            pushi 24 // $24 cursor
  0684:46 00ff 0004 10  calle ff procedure_0004 10 // Printf 

  068a:33 18              jmp code_06a4 

        code_068c
  068c:39 08            pushi 8 // $8 underBits
  068e:39 4c            pushi 4c // $4c claimed
  0690:39 23            pushi 23 // $23 window
  0692:39 4c            pushi 4c // $4c claimed
  0694:39 20            pushi 20 // $20 state
  0696:39 4c            pushi 4c // $4c claimed
  0698:39 22            pushi 22 // $22 type
  069a:39 4c            pushi 4c // $4c claimed
  069c:39 25            pushi 25 // $25 max
  069e:46 00ff 0004 10  calle ff procedure_0004 10 // Printf 


        code_06a4
  06a4:3a                toss 

        code_06a5
  06a5:33 04              jmp code_06ab 

        code_06a7
  06a7:76               push0 
  06a8:45 09 00         callb procedure_0009 0 // NotClose 


        code_06ab
  06ab:33 2b              jmp code_06d8 

        code_06ad
  06ad:39 03            pushi 3 // $3 y
  06af:7c            pushSelf 
  06b0:8f 01              lsp param1 
  06b2:39 03            pushi 3 // $3 y
  06b4:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06ba:2f 09               bt code_06c5 
  06bc:78               push1 
  06bd:74 00e7          lofss $07a7 // look/chest
  06c0:43 25 02         callk Said 2 

  06c3:31 13              bnt code_06d8 

        code_06c5
  06c5:39 4c            pushi 4c // $4c claimed
  06c7:78               push1 
  06c8:78               push1 
  06c9:87 01              lap param1 
  06cb:4a 06             send 6 

  06cd:7a               push2 
  06ce:39 4c            pushi 4c // $4c claimed
  06d0:39 26            pushi 26 // $26 mark
  06d2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06d8
  06d8:48                 ret 
    )

)

// 08c6
(instance Elevator of Prop
    (properties
        y $32
        x $10f
        z $0
        heading $0
        yStep $2
        view $b0
        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_06d9
  06d9:39 03            pushi 3 // $3 y
  06db:7c            pushSelf 
  06dc:8f 01              lsp param1 
  06de:39 03            pushi 3 // $3 y
  06e0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

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

  06f0:78               push1 
  06f1:74 02f1          lofss $09e5 // elevator
  06f4:45 19 02         callb procedure_0019 2 // DoLook 


        code_06f7
  06f7:48                 ret 
    )

)

// 0918
(instance Junk of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $1e
        nsLeft $10a
        nsBottom $81
        nsRight $13f
    )
    (method (handleEvent) // method_06f8
  06f8:39 03            pushi 3 // $3 y
  06fa:7c            pushSelf 
  06fb:8f 01              lsp param1 
  06fd:39 03            pushi 3 // $3 y
  06ff:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0705:2f 09               bt code_0710 
  0707:78               push1 
  0708:74 00a2          lofss $07ad // look/dechet,chose,furniture
  070b:43 25 02         callk Said 2 

  070e:31 13              bnt code_0723 

        code_0710
  0710:7a               push2 
  0711:39 4c            pushi 4c // $4c claimed
  0713:39 26            pushi 26 // $26 mark
  0715:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

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


        code_0723
  0723:48                 ret 
    )

)

// 0944
(instance Killer of Prop
    (properties
        y $4a
        x $b1
        z $0
        heading $0
        yStep $2
        view $3e
        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
    )
)

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



