(script 17)

(string
    string_072a "Door"
    string_072f "Room17"
    string_0736 "Window1"
    string_073e "Window2"
    string_0746 "Window3"
    string_074e "Window4"
    string_0756 "door"
    string_075b "myDoor2"
    string_0763 "myMusic"
    string_076b "window"
)

(said
    said_0552 /escalier
    said_0556 /haut
    said_055a [<around,at][/room]
    said_0568 look>
)

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

// 0572
(instance public Room17 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $11
        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_000c
  000c:39 57            pushi 57 // $57 init
  000e:76               push0 
  000f:57 37 04         super Rm 4 

  0012:76               push0 
  0013:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0016:a3 04              sal local4 
  0018:38 010a          pushi 10a // $10a setRegions
  001b:78               push1 
  001c:38 00ce          pushi ce // $ce yLast
  001f:38 010b          pushi 10b // $10b setFeatures
  0022:39 04            pushi 4 // $4 x
  0024:74 0623          lofss $064a // Window1
  0027:74 064c          lofss $0676 // Window2
  002a:74 0675          lofss $06a2 // Window3
  002d:74 069e          lofss $06ce // Window4
  0030:54 12             self 12 

  0032:39 03            pushi 3 // $3 y
  0034:38 0084          pushi 84 // $84 stop
  0037:39 2b            pushi 2b // $2b number
  0039:39 2c            pushi 2c // $2c handle
  003b:45 15 06         callb procedure_0015 6 // LoadMany 

  003e:35 16              ldi 16 
  0040:65 1e             aTop south 
  0042:35 10              ldi 10 
  0044:65 20             aTop west 
  0046:35 0c              ldi c 
  0048:65 1a             aTop north 
  004a:35 56              ldi 56 
  004c:65 16             aTop horizon 
  004e:35 00              ldi 0 
  0050:a3 00              sal local0 
  0052:39 07            pushi 7 // $7 cel
  0054:78               push1 
  0055:89 0c              lsg gPrevRoomNum 
  0057:35 26              ldi 26 
  0059:1a                 eq? 
  005a:31 04              bnt code_0060 
  005c:35 03              ldi 3 
  005e:33 02              jmp code_0062 

        code_0060
  0060:35 00              ldi 0 

        code_0062
  0062:36                push 
  0063:39 42            pushi 42 // $42 setPri
  0065:78               push1 
  0066:39 06            pushi 6 // $6 loop
  0068:38 00c9          pushi c9 // $c9 ignoreActors
  006b:78               push1 
  006c:78               push1 
  006d:39 57            pushi 57 // $57 init
  006f:76               push0 
  0070:38 00c6          pushi c6 // $c6 stopUpd
  0073:76               push0 
  0074:72 0581          lofsa $05f8 // Door
  0077:4a 1a             send 1a 

  0079:88 00a5            lsg gAct 
  007c:35 01              ldi 1 
  007e:1a                 eq? 
  007f:31 09              bnt code_008a 
  0081:38 010a          pushi 10a // $10a setRegions
  0084:78               push1 
  0085:38 017d          pushi 17d // $17d sel_381
  0088:54 06             self 6 


        code_008a
  008a:89 0c              lsg gPrevRoomNum 
  008c:3c                 dup 
  008d:35 10              ldi 10 
  008f:1a                 eq? 
  0090:31 24              bnt code_00b6 
  0092:89 66              lsg global102 
  0094:35 01              ldi 1 
  0096:1a                 eq? 
  0097:31 0e              bnt code_00a7 
  0099:38 00c5          pushi c5 // $c5 posn
  009c:7a               push2 
  009d:78               push1 
  009e:38 0093          pushi 93 // $93 advance
  00a1:81 00              lag gEgo 
  00a3:4a 08             send 8 

  00a5:33 0c              jmp code_00b3 

        code_00a7
  00a7:38 00c5          pushi c5 // $c5 posn
  00aa:7a               push2 
  00ab:78               push1 
  00ac:38 00ba          pushi ba // $ba targetX
  00af:81 00              lag gEgo 
  00b1:4a 08             send 8 


        code_00b3
  00b3:32 0086            jmp code_013c 

        code_00b6
  00b6:3c                 dup 
  00b7:35 26              ldi 26 
  00b9:1a                 eq? 
  00ba:31 56              bnt code_0112 
  00bc:38 00c5          pushi c5 // $c5 posn
  00bf:7a               push2 
  00c0:38 00be          pushi be // $be offScreenOK
  00c3:39 73            pushi 73 // $73 seconds
  00c5:81 00              lag gEgo 
  00c7:4a 08             send 8 

  00c9:76               push0 
  00ca:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  00cd:18                 not 
  00ce:31 40              bnt code_0110 
  00d0:38 00d3          pushi d3 // $d3 setMotion
  00d3:39 03            pushi 3 // $3 y
  00d5:51 1d            class MoveTo 
  00d7:36                push 
  00d8:38 00d8          pushi d8 // $d8 observeBlocks
  00db:38 008d          pushi 8d // $8d setSize
  00de:81 00              lag gEgo 
  00e0:4a 0a             send a 

  00e2:35 01              ldi 1 
  00e4:a3 02              sal local2 
  00e6:39 7e            pushi 7e // $7e setCycle
  00e8:78               push1 
  00e9:51 1b            class Beg 
  00eb:36                push 
  00ec:72 0509          lofsa $05f8 // Door
  00ef:4a 06             send 6 

  00f1:38 00e9          pushi e9 // $e9 canControl
  00f4:78               push1 
  00f5:76               push0 
  00f6:51 2b            class User 
  00f8:4a 06             send 6 

  00fa:39 2b            pushi 2b // $2b number
  00fc:78               push1 
  00fd:39 2c            pushi 2c // $2c handle
  00ff:39 06            pushi 6 // $6 loop
  0101:78               push1 
  0102:78               push1 
  0103:39 3f            pushi 3f // $3f priority
  0105:78               push1 
  0106:39 05            pushi 5 // $5 view
  0108:39 2a            pushi 2a // $2a play
  010a:76               push0 
  010b:72 05ec          lofsa $06fa // myMusic
  010e:4a 16             send 16 


        code_0110
  0110:33 2a              jmp code_013c 

        code_0112
  0112:3c                 dup 
  0113:35 17              ldi 17 
  0115:1a                 eq? 
  0116:31 10              bnt code_0128 
  0118:38 00c5          pushi c5 // $c5 posn
  011b:7a               push2 
  011c:38 0136          pushi 136 // $136 elevatorID
  011f:38 00bc          pushi bc // $bc motionInited
  0122:81 00              lag gEgo 
  0124:4a 08             send 8 

  0126:33 14              jmp code_013c 

        code_0128
  0128:3c                 dup 
  0129:35 0c              ldi c 
  012b:1a                 eq? 
  012c:31 0e              bnt code_013c 
  012e:38 00c5          pushi c5 // $c5 posn
  0131:7a               push2 
  0132:38 0136          pushi 136 // $136 elevatorID
  0135:38 008c          pushi 8c // $8c track
  0138:81 00              lag gEgo 
  013a:4a 08             send 8 


        code_013c
  013c:3a                toss 
  013d:39 05            pushi 5 // $5 view
  013f:78               push1 
  0140:76               push0 
  0141:39 12            pushi 12 // $12 illegalBits
  0143:78               push1 
  0144:38 8002          pushi 8002 // $8002 sel_32770
  0147:39 57            pushi 57 // $57 init
  0149:76               push0 
  014a:81 00              lag gEgo 
  014c:4a 10             send 10 

  014e:48                 ret 
    )

    (method (doit) // method_014f
  014f:83 04              lal local4 
  0151:31 55              bnt code_01a8 
  0153:7a               push2 
  0154:39 11            pushi 11 // $11 signal
  0156:76               push0 
  0157:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  015d:89 0c              lsg gPrevRoomNum 
  015f:35 26              ldi 26 
  0161:1a                 eq? 
  0162:31 40              bnt code_01a4 
  0164:38 00d3          pushi d3 // $d3 setMotion
  0167:39 03            pushi 3 // $3 y
  0169:51 1d            class MoveTo 
  016b:36                push 
  016c:38 00d8          pushi d8 // $d8 observeBlocks
  016f:38 008d          pushi 8d // $8d setSize
  0172:81 00              lag gEgo 
  0174:4a 0a             send a 

  0176:35 01              ldi 1 
  0178:a3 02              sal local2 
  017a:39 7e            pushi 7e // $7e setCycle
  017c:78               push1 
  017d:51 1b            class Beg 
  017f:36                push 
  0180:72 0475          lofsa $05f8 // Door
  0183:4a 06             send 6 

  0185:38 00e9          pushi e9 // $e9 canControl
  0188:78               push1 
  0189:76               push0 
  018a:51 2b            class User 
  018c:4a 06             send 6 

  018e:39 2b            pushi 2b // $2b number
  0190:78               push1 
  0191:39 2c            pushi 2c // $2c handle
  0193:39 06            pushi 6 // $6 loop
  0195:78               push1 
  0196:78               push1 
  0197:39 3f            pushi 3f // $3f priority
  0199:78               push1 
  019a:39 05            pushi 5 // $5 view
  019c:39 2a            pushi 2a // $2a play
  019e:76               push0 
  019f:72 0558          lofsa $06fa // myMusic
  01a2:4a 16             send 16 


        code_01a4
  01a4:35 00              ldi 0 
  01a6:a3 04              sal local4 

        code_01a8
  01a8:83 03              lal local3 
  01aa:18                 not 
  01ab:31 22              bnt code_01cf 
  01ad:89 0c              lsg gPrevRoomNum 
  01af:35 26              ldi 26 
  01b1:1a                 eq? 
  01b2:31 1b              bnt code_01cf 
  01b4:39 07            pushi 7 // $7 cel
  01b6:76               push0 
  01b7:72 043e          lofsa $05f8 // Door
  01ba:4a 04             send 4 

  01bc:36                push 
  01bd:35 00              ldi 0 
  01bf:1a                 eq? 
  01c0:31 0d              bnt code_01cf 
  01c2:35 01              ldi 1 
  01c4:a3 03              sal local3 
  01c6:38 00c6          pushi c6 // $c6 stopUpd
  01c9:76               push0 
  01ca:72 042b          lofsa $05f8 // Door
  01cd:4a 04             send 4 


        code_01cf
  01cf:83 02              lal local2 
  01d1:31 26              bnt code_01f9 
  01d3:38 00db          pushi db // $db onControl
  01d6:78               push1 
  01d7:78               push1 
  01d8:81 00              lag gEgo 
  01da:4a 06             send 6 

  01dc:36                push 
  01dd:35 01              ldi 1 
  01df:12                 and 
  01e0:31 17              bnt code_01f9 
  01e2:38 00e9          pushi e9 // $e9 canControl
  01e5:78               push1 
  01e6:78               push1 
  01e7:51 2b            class User 
  01e9:4a 06             send 6 

  01eb:39 12            pushi 12 // $12 illegalBits
  01ed:78               push1 
  01ee:38 8000          pushi 8000 // $8000 sel_32768
  01f1:81 00              lag gEgo 
  01f3:4a 06             send 6 

  01f5:35 00              ldi 0 
  01f7:a3 02              sal local2 

        code_01f9
  01f9:38 00db          pushi db // $db onControl
  01fc:78               push1 
  01fd:76               push0 
  01fe:81 00              lag gEgo 
  0200:4a 06             send 6 

  0202:36                push 
  0203:35 02              ldi 2 
  0205:12                 and 
  0206:2f 0f               bt code_0217 
  0208:38 00db          pushi db // $db onControl
  020b:78               push1 
  020c:76               push0 
  020d:81 00              lag gEgo 
  020f:4a 06             send 6 

  0211:36                push 
  0212:35 10              ldi 10 
  0214:12                 and 
  0215:31 0b              bnt code_0222 

        code_0217
  0217:39 42            pushi 42 // $42 setPri
  0219:78               push1 
  021a:39 07            pushi 7 // $7 cel
  021c:81 00              lag gEgo 
  021e:4a 06             send 6 

  0220:33 09              jmp code_022b 

        code_0222
  0222:39 42            pushi 42 // $42 setPri
  0224:78               push1 
  0225:39 ff            pushi ff // $ff checkAni
  0227:81 00              lag gEgo 
  0229:4a 06             send 6 


        code_022b
  022b:39 03            pushi 3 // $3 y
  022d:76               push0 
  022e:81 00              lag gEgo 
  0230:4a 04             send 4 

  0232:36                push 
  0233:34 00a0            ldi a0 
  0236:22                 lt? 
  0237:31 06              bnt code_023f 
  0239:35 01              ldi 1 
  023b:a1 66              sag global102 
  023d:33 04              jmp code_0243 

        code_023f
  023f:35 00              ldi 0 
  0241:a1 66              sag global102 

        code_0243
  0243:38 00eb          pushi eb // $eb edgeHit
  0246:76               push0 
  0247:81 00              lag gEgo 
  0249:4a 04             send 4 

  024b:36                push 
  024c:35 02              ldi 2 
  024e:1a                 eq? 
  024f:31 24              bnt code_0275 
  0251:39 03            pushi 3 // $3 y
  0253:76               push0 
  0254:81 00              lag gEgo 
  0256:4a 04             send 4 

  0258:36                push 
  0259:34 0094            ldi 94 
  025c:22                 lt? 
  025d:31 0c              bnt code_026b 
  025f:38 00f8          pushi f8 // $f8 newRoom
  0262:78               push1 
  0263:39 0c            pushi c // $c nsRight
  0265:81 02              lag gCurRoom 
  0267:4a 06             send 6 

  0269:33 0a              jmp code_0275 

        code_026b
  026b:38 00f8          pushi f8 // $f8 newRoom
  026e:78               push1 
  026f:39 12            pushi 12 // $12 illegalBits
  0271:81 02              lag gCurRoom 
  0273:4a 06             send 6 


        code_0275
  0275:38 00db          pushi db // $db onControl
  0278:78               push1 
  0279:78               push1 
  027a:81 00              lag gEgo 
  027c:4a 06             send 6 

  027e:36                push 
  027f:35 02              ldi 2 
  0281:12                 and 
  0282:31 0a              bnt code_028e 
  0284:38 00f8          pushi f8 // $f8 newRoom
  0287:78               push1 
  0288:39 26            pushi 26 // $26 mark
  028a:81 02              lag gCurRoom 
  028c:4a 06             send 6 


        code_028e
  028e:38 00db          pushi db // $db onControl
  0291:78               push1 
  0292:78               push1 
  0293:81 00              lag gEgo 
  0295:4a 06             send 6 

  0297:36                push 
  0298:35 08              ldi 8 
  029a:12                 and 
  029b:31 43              bnt code_02e0 
  029d:39 06            pushi 6 // $6 loop
  029f:76               push0 
  02a0:81 00              lag gEgo 
  02a2:4a 04             send 4 

  02a4:36                push 
  02a5:35 03              ldi 3 
  02a7:1a                 eq? 
  02a8:2f 0d               bt code_02b7 
  02aa:39 06            pushi 6 // $6 loop
  02ac:76               push0 
  02ad:81 00              lag gEgo 
  02af:4a 04             send 4 

  02b1:36                push 
  02b2:35 01              ldi 1 
  02b4:1a                 eq? 
  02b5:31 29              bnt code_02e0 

        code_02b7
  02b7:8b 02              lsl local2 
  02b9:35 00              ldi 0 
  02bb:1a                 eq? 
  02bc:31 22              bnt code_02e0 
  02be:35 01              ldi 1 
  02c0:a3 02              sal local2 
  02c2:38 00e9          pushi e9 // $e9 canControl
  02c5:78               push1 
  02c6:76               push0 
  02c7:51 2b            class User 
  02c9:4a 06             send 6 

  02cb:39 12            pushi 12 // $12 illegalBits
  02cd:78               push1 
  02ce:76               push0 
  02cf:38 00d3          pushi d3 // $d3 setMotion
  02d2:39 03            pushi 3 // $3 y
  02d4:51 1d            class MoveTo 
  02d6:36                push 
  02d7:39 45            pushi 45 // $45 done
  02d9:38 009a          pushi 9a // $9a left
  02dc:81 00              lag gEgo 
  02de:4a 10             send 10 


        code_02e0
  02e0:38 00db          pushi db // $db onControl
  02e3:78               push1 
  02e4:78               push1 
  02e5:81 00              lag gEgo 
  02e7:4a 06             send 6 

  02e9:36                push 
  02ea:35 04              ldi 4 
  02ec:12                 and 
  02ed:31 43              bnt code_0332 
  02ef:39 06            pushi 6 // $6 loop
  02f1:76               push0 
  02f2:81 00              lag gEgo 
  02f4:4a 04             send 4 

  02f6:36                push 
  02f7:35 02              ldi 2 
  02f9:1a                 eq? 
  02fa:2f 0d               bt code_0309 
  02fc:39 06            pushi 6 // $6 loop
  02fe:76               push0 
  02ff:81 00              lag gEgo 
  0301:4a 04             send 4 

  0303:36                push 
  0304:35 00              ldi 0 
  0306:1a                 eq? 
  0307:31 29              bnt code_0332 

        code_0309
  0309:8b 02              lsl local2 
  030b:35 00              ldi 0 
  030d:1a                 eq? 
  030e:31 22              bnt code_0332 
  0310:35 01              ldi 1 
  0312:a3 02              sal local2 
  0314:38 00e9          pushi e9 // $e9 canControl
  0317:78               push1 
  0318:76               push0 
  0319:51 2b            class User 
  031b:4a 06             send 6 

  031d:39 12            pushi 12 // $12 illegalBits
  031f:78               push1 
  0320:76               push0 
  0321:38 00d3          pushi d3 // $d3 setMotion
  0324:39 03            pushi 3 // $3 y
  0326:51 1d            class MoveTo 
  0328:36                push 
  0329:39 62            pushi 62 // $62 eachElementDo
  032b:38 00b5          pushi b5 // $b5 escapes
  032e:81 00              lag gEgo 
  0330:4a 10             send 10 


        code_0332
  0332:38 00db          pushi db // $db onControl
  0335:78               push1 
  0336:76               push0 
  0337:81 00              lag gEgo 
  0339:4a 06             send 6 

  033b:36                push 
  033c:35 10              ldi 10 
  033e:12                 and 
  033f:31 2b              bnt code_036c 
  0341:83 01              lal local1 
  0343:18                 not 
  0344:31 26              bnt code_036c 
  0346:39 06            pushi 6 // $6 loop
  0348:76               push0 
  0349:81 00              lag gEgo 
  034b:4a 04             send 4 

  034d:36                push 
  034e:35 01              ldi 1 
  0350:1a                 eq? 
  0351:2f 0d               bt code_0360 
  0353:39 06            pushi 6 // $6 loop
  0355:76               push0 
  0356:81 00              lag gEgo 
  0358:4a 04             send 4 

  035a:36                push 
  035b:35 03              ldi 3 
  035d:1a                 eq? 
  035e:31 0c              bnt code_036c 

        code_0360
  0360:35 01              ldi 1 
  0362:a3 01              sal local1 
  0364:39 7a            pushi 7a // $7a setScript
  0366:78               push1 
  0367:74 025e          lofss $05c8 // myDoor2
  036a:54 06             self 6 


        code_036c
  036c:39 3c            pushi 3c // $3c doit
  036e:76               push0 
  036f:57 37 04         super Rm 4 

  0372:48                 ret 
    )

    (method (dispose) // method_0373
  0373:78               push1 
  0374:38 00c8          pushi c8 // $c8 setLoop
  0377:43 03 02         callk DisposeScript 2 

  037a:39 58            pushi 58 // $58 dispose
  037c:76               push0 
  037d:57 37 04         super Rm 4 

  0380:48                 ret 
    )

    (method (newRoom) // method_0381
  0381:8f 01              lsp param1 
  0383:35 26              ldi 26 
  0385:1a                 eq? 
  0386:31 09              bnt code_0391 
  0388:38 0084          pushi 84 // $84 stop
  038b:76               push0 
  038c:80 00b7            lag gConMusic 
  038f:4a 04             send 4 


        code_0391
  0391:38 00f8          pushi f8 // $f8 newRoom
  0394:78               push1 
  0395:8f 01              lsp param1 
  0397:57 37 06         super Rm 6 

  039a:48                 ret 
    )

    (method (handleEvent) // method_039b
  039b:3f 01             link 1 // (var $1)
  039d:39 4c            pushi 4c // $4c claimed
  039f:76               push0 
  03a0:87 01              lap param1 
  03a2:4a 04             send 4 

  03a4:31 03              bnt code_03a9 
  03a6:35 01              ldi 1 
  03a8:48                 ret 

        code_03a9
  03a9:39 22            pushi 22 // $22 type
  03ab:76               push0 
  03ac:87 01              lap param1 
  03ae:4a 04             send 4 

  03b0:36                push 
  03b1:34 0080            ldi 80 
  03b4:1a                 eq? 
  03b5:31 46              bnt code_03fd 
  03b7:78               push1 
  03b8:74 01ad          lofss $0568 // look>
  03bb:43 25 02         callk Said 2 

  03be:31 3d              bnt code_03fd 
  03c0:78               push1 
  03c1:74 0196          lofss $055a // [<around,at][/room]
  03c4:43 25 02         callk Said 2 

  03c7:31 0c              bnt code_03d5 
  03c9:7a               push2 
  03ca:39 11            pushi 11 // $11 signal
  03cc:76               push0 
  03cd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03d3:33 28              jmp code_03fd 

        code_03d5
  03d5:78               push1 
  03d6:74 0179          lofss $0552 // /escalier
  03d9:43 25 02         callk Said 2 

  03dc:31 0c              bnt code_03ea 
  03de:7a               push2 
  03df:39 11            pushi 11 // $11 signal
  03e1:78               push1 
  03e2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03e8:33 13              jmp code_03fd 

        code_03ea
  03ea:78               push1 
  03eb:74 0168          lofss $0556 // /haut
  03ee:43 25 02         callk Said 2 

  03f1:31 0a              bnt code_03fd 
  03f3:7a               push2 
  03f4:39 11            pushi 11 // $11 signal
  03f6:7a               push2 
  03f7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_03fd
  03fd:48                 ret 
    )

)

// 05c2
(instance myDoor2 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_03fe
  03fe:87 01              lap param1 
  0400:65 0a             aTop state 
  0402:36                push 
  0403:3c                 dup 
  0404:35 00              ldi 0 
  0406:1a                 eq? 
  0407:31 24              bnt code_042d 
  0409:38 00e9          pushi e9 // $e9 canControl
  040c:78               push1 
  040d:76               push0 
  040e:38 00e2          pushi e2 // $e2 canInput
  0411:78               push1 
  0412:76               push0 
  0413:51 2b            class User 
  0415:4a 0c             send c 

  0417:38 00d3          pushi d3 // $d3 setMotion
  041a:39 04            pushi 4 // $4 x
  041c:51 1d            class MoveTo 
  041e:36                push 
  041f:38 00c7          pushi c7 // $c7 forceUpd
  0422:38 0080          pushi 80 // $80 timeLeft
  0425:7c            pushSelf 
  0426:81 00              lag gEgo 
  0428:4a 0c             send c 

  042a:32 0083            jmp code_04b0 

        code_042d
  042d:3c                 dup 
  042e:35 01              ldi 1 
  0430:1a                 eq? 
  0431:31 14              bnt code_0447 
  0433:38 00d3          pushi d3 // $d3 setMotion
  0436:39 04            pushi 4 // $4 x
  0438:51 1d            class MoveTo 
  043a:36                push 
  043b:38 00bd          pushi bd // $bd outOfTouch
  043e:39 72            pushi 72 // $72 cycles
  0440:7c            pushSelf 
  0441:81 00              lag gEgo 
  0443:4a 0c             send c 

  0445:33 69              jmp code_04b0 

        code_0447
  0447:3c                 dup 
  0448:35 02              ldi 2 
  044a:1a                 eq? 
  044b:31 3d              bnt code_048a 
  044d:38 00d3          pushi d3 // $d3 setMotion
  0450:78               push1 
  0451:76               push0 
  0452:39 12            pushi 12 // $12 illegalBits
  0454:78               push1 
  0455:38 8000          pushi 8000 // $8000 sel_32768
  0458:81 00              lag gEgo 
  045a:4a 0c             send c 

  045c:38 00a4          pushi a4 // $a4 cycleSpeed
  045f:78               push1 
  0460:78               push1 
  0461:38 00c9          pushi c9 // $c9 ignoreActors
  0464:78               push1 
  0465:78               push1 
  0466:39 7e            pushi 7e // $7e setCycle
  0468:7a               push2 
  0469:51 1a            class End 
  046b:36                push 
  046c:7c            pushSelf 
  046d:72 0188          lofsa $05f8 // Door
  0470:4a 14             send 14 

  0472:39 2b            pushi 2b // $2b number
  0474:78               push1 
  0475:39 2b            pushi 2b // $2b number
  0477:39 06            pushi 6 // $6 loop
  0479:78               push1 
  047a:78               push1 
  047b:39 3f            pushi 3f // $3f priority
  047d:78               push1 
  047e:39 05            pushi 5 // $5 view
  0480:39 2a            pushi 2a // $2a play
  0482:76               push0 
  0483:72 0274          lofsa $06fa // myMusic
  0486:4a 16             send 16 

  0488:33 26              jmp code_04b0 

        code_048a
  048a:3c                 dup 
  048b:35 03              ldi 3 
  048d:1a                 eq? 
  048e:31 20              bnt code_04b0 
  0490:38 00d3          pushi d3 // $d3 setMotion
  0493:39 03            pushi 3 // $3 y
  0495:51 1d            class MoveTo 
  0497:36                push 
  0498:39 04            pushi 4 // $4 x
  049a:76               push0 
  049b:81 00              lag gEgo 
  049d:4a 04             send 4 

  049f:36                push 
  04a0:35 32              ldi 32 
  04a2:04                 sub 
  04a3:36                push 
  04a4:39 03            pushi 3 // $3 y
  04a6:76               push0 
  04a7:81 00              lag gEgo 
  04a9:4a 04             send 4 

  04ab:36                push 
  04ac:81 00              lag gEgo 
  04ae:4a 0a             send a 


        code_04b0
  04b0:3a                toss 
  04b1:48                 ret 
    )

)

// 05f2
(instance Door of Prop
    (properties
        y $77
        x $ac
        z $0
        heading $0
        yStep $2
        view $75
        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_04b2
  04b2:39 03            pushi 3 // $3 y
  04b4:7c            pushSelf 
  04b5:8f 01              lsp param1 
  04b7:39 03            pushi 3 // $3 y
  04b9:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04bf:31 0f              bnt code_04d0 
  04c1:39 4c            pushi 4c // $4c claimed
  04c3:78               push1 
  04c4:78               push1 
  04c5:87 01              lap param1 
  04c7:4a 06             send 6 

  04c9:78               push1 
  04ca:74 0289          lofss $0756 // door
  04cd:45 19 02         callb procedure_0019 2 // DoLook 


        code_04d0
  04d0:48                 ret 
    )

)

// 0644
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $35
        nsLeft $2b
        nsBottom $8b
        nsRight $45
    )
    (method (handleEvent) // method_04d1
  04d1:39 03            pushi 3 // $3 y
  04d3:7c            pushSelf 
  04d4:8f 01              lsp param1 
  04d6:39 03            pushi 3 // $3 y
  04d8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04de:31 0f              bnt code_04ef 
  04e0:39 4c            pushi 4c // $4c claimed
  04e2:78               push1 
  04e3:78               push1 
  04e4:87 01              lap param1 
  04e6:4a 06             send 6 

  04e8:78               push1 
  04e9:74 027f          lofss $076b // window
  04ec:45 19 02         callb procedure_0019 2 // DoLook 


        code_04ef
  04ef:48                 ret 
    )

)

// 0670
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $34
        nsLeft $77
        nsBottom $79
        nsRight $8e
    )
    (method (handleEvent) // method_04f0
  04f0:39 03            pushi 3 // $3 y
  04f2:7c            pushSelf 
  04f3:8f 01              lsp param1 
  04f5:39 03            pushi 3 // $3 y
  04f7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04fd:31 0f              bnt code_050e 
  04ff:39 4c            pushi 4c // $4c claimed
  0501:78               push1 
  0502:78               push1 
  0503:87 01              lap param1 
  0505:4a 06             send 6 

  0507:78               push1 
  0508:74 0260          lofss $076b // window
  050b:45 19 02         callb procedure_0019 2 // DoLook 


        code_050e
  050e:48                 ret 
    )

)

// 069c
(instance Window3 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $1b
        nsLeft $d8
        nsBottom $59
        nsRight $ea
    )
    (method (handleEvent) // method_050f
  050f:39 03            pushi 3 // $3 y
  0511:7c            pushSelf 
  0512:8f 01              lsp param1 
  0514:39 03            pushi 3 // $3 y
  0516:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  051c:31 0f              bnt code_052d 
  051e:39 4c            pushi 4c // $4c claimed
  0520:78               push1 
  0521:78               push1 
  0522:87 01              lap param1 
  0524:4a 06             send 6 

  0526:78               push1 
  0527:74 0241          lofss $076b // window
  052a:45 19 02         callb procedure_0019 2 // DoLook 


        code_052d
  052d:48                 ret 
    )

)

// 06c8
(instance Window4 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $15
        nsLeft $116
        nsBottom $59
        nsRight $12e
    )
    (method (handleEvent) // method_052e
  052e:39 03            pushi 3 // $3 y
  0530:7c            pushSelf 
  0531:8f 01              lsp param1 
  0533:39 03            pushi 3 // $3 y
  0535:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  053b:31 0f              bnt code_054c 
  053d:39 4c            pushi 4c // $4c claimed
  053f:78               push1 
  0540:78               push1 
  0541:87 01              lap param1 
  0543:4a 06             send 6 

  0545:78               push1 
  0546:74 0222          lofss $076b // window
  0549:45 19 02         callb procedure_0019 2 // DoLook 


        code_054c
  054c:48                 ret 
  054d:00                bnot 
    )

)

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



