(script 15)

(string
    string_099c "Door"
    string_09a1 "Room15"
    string_09a8 "Splash1"
    string_09b0 "Splash2"
    string_09b8 "Window1"
    string_09c0 "Window2"
    string_09c8 "Window3"
    string_09d0 "comeDown"
    string_09d9 "door"
    string_09de "myDoor"
    string_09e5 "myMusic"
    string_09ed "window"
)

(said
    said_0712 /escalier
    said_0716 /haut
    said_071a [<around,at][/room<!*]
    said_072b look,find/gertie,body
    said_0737 look>
)

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

// 0742
(instance public Room15 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $f
        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:35 16              ldi 16 
  000e:65 1e             aTop south 
  0010:35 0a              ldi a 
  0012:65 20             aTop west 
  0014:35 10              ldi 10 
  0016:65 1c             aTop east 
  0018:35 0a              ldi a 
  001a:65 1a             aTop north 
  001c:35 56              ldi 56 
  001e:65 16             aTop horizon 
  0020:35 00              ldi 0 
  0022:a3 00              sal local0 
  0024:39 57            pushi 57 // $57 init
  0026:76               push0 
  0027:57 37 04         super Rm 4 

  002a:76               push0 
  002b:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  002e:a3 05              sal local5 
  0030:38 010a          pushi 10a // $10a setRegions
  0033:78               push1 
  0034:38 00ce          pushi ce // $ce yLast
  0037:38 010b          pushi 10b // $10b setFeatures
  003a:39 03            pushi 3 // $3 y
  003c:74 08a7          lofss $08e6 // Window1
  003f:74 08d0          lofss $0912 // Window2
  0042:74 08f9          lofss $093e // Window3
  0045:54 10             self 10 

  0047:39 03            pushi 3 // $3 y
  0049:38 0084          pushi 84 // $84 stop
  004c:39 2b            pushi 2b // $2b number
  004e:39 2c            pushi 2c // $2c handle
  0050:45 15 06         callb procedure_0015 6 // LoadMany 

  0053:88 00a5            lsg gAct 
  0056:35 01              ldi 1 
  0058:20                 ge? 
  0059:31 1b              bnt code_0076 
  005b:89 7b              lsg gCorpseFlags 
  005d:35 01              ldi 1 
  005f:12                 and 
  0060:18                 not 
  0061:31 13              bnt code_0076 
  0063:89 7b              lsg gCorpseFlags 
  0065:35 40              ldi 40 
  0067:12                 and 
  0068:18                 not 
  0069:31 0b              bnt code_0076 
  006b:c3 01              +al local1 
  006d:38 010a          pushi 10a // $10a setRegions
  0070:78               push1 
  0071:38 00eb          pushi eb // $eb edgeHit
  0074:54 06             self 6 


        code_0076
  0076:39 07            pushi 7 // $7 cel
  0078:78               push1 
  0079:89 0c              lsg gPrevRoomNum 
  007b:35 24              ldi 24 
  007d:1a                 eq? 
  007e:31 04              bnt code_0084 
  0080:35 03              ldi 3 
  0082:33 02              jmp code_0086 

        code_0084
  0084:35 00              ldi 0 

        code_0086
  0086:36                push 
  0087:38 00c9          pushi c9 // $c9 ignoreActors
  008a:78               push1 
  008b:78               push1 
  008c:39 42            pushi 42 // $42 setPri
  008e:78               push1 
  008f:39 06            pushi 6 // $6 loop
  0091:39 57            pushi 57 // $57 init
  0093:76               push0 
  0094:38 00c6          pushi c6 // $c6 stopUpd
  0097:76               push0 
  0098:72 075d          lofsa $07f8 // Door
  009b:4a 1a             send 1a 

  009d:80 00df            lag gDetailLevel 
  00a0:31 22              bnt code_00c4 
  00a2:38 00c9          pushi c9 // $c9 ignoreActors
  00a5:78               push1 
  00a6:78               push1 
  00a7:39 57            pushi 57 // $57 init
  00a9:76               push0 
  00aa:38 0089          pushi 89 // $89 hide
  00ad:76               push0 
  00ae:72 0799          lofsa $084a // Splash1
  00b1:4a 0e             send e 

  00b3:38 00c9          pushi c9 // $c9 ignoreActors
  00b6:78               push1 
  00b7:78               push1 
  00b8:39 57            pushi 57 // $57 init
  00ba:76               push0 
  00bb:38 0089          pushi 89 // $89 hide
  00be:76               push0 
  00bf:72 07d6          lofsa $0898 // Splash2
  00c2:4a 0e             send e 


        code_00c4
  00c4:88 00a5            lsg gAct 
  00c7:35 02              ldi 2 
  00c9:20                 ge? 
  00ca:31 10              bnt code_00dc 
  00cc:89 71              lsg global113 
  00ce:81 0b              lag gCurRoomNum 
  00d0:1a                 eq? 
  00d1:31 09              bnt code_00dc 
  00d3:38 010a          pushi 10a // $10a setRegions
  00d6:78               push1 
  00d7:38 00ca          pushi ca // $ca show
  00da:54 06             self 6 


        code_00dc
  00dc:89 72              lsg global114 
  00de:81 0b              lag gCurRoomNum 
  00e0:1a                 eq? 
  00e1:31 21              bnt code_0104 
  00e3:88 00a5            lsg gAct 
  00e6:35 03              ldi 3 
  00e8:1a                 eq? 
  00e9:2f 10               bt code_00fb 
  00eb:88 00a5            lsg gAct 
  00ee:35 06              ldi 6 
  00f0:1a                 eq? 
  00f1:31 11              bnt code_0104 
  00f3:89 76              lsg gMustDos 
  00f5:35 02              ldi 2 
  00f7:12                 and 
  00f8:18                 not 
  00f9:31 09              bnt code_0104 

        code_00fb
  00fb:38 010a          pushi 10a // $10a setRegions
  00fe:78               push1 
  00ff:38 0119          pushi 119 // $119 startExtra
  0102:54 06             self 6 


        code_0104
  0104:89 0c              lsg gPrevRoomNum 
  0106:3c                 dup 
  0107:35 15              ldi 15 
  0109:1a                 eq? 
  010a:31 0f              bnt code_011b 
  010c:38 00c5          pushi c5 // $c5 posn
  010f:7a               push2 
  0110:39 5d            pushi 5d // $5d isMemberOf
  0112:38 00bb          pushi bb // $bb targetY
  0115:81 00              lag gEgo 
  0117:4a 08             send 8 

  0119:33 76              jmp code_0191 

        code_011b
  011b:3c                 dup 
  011c:35 0a              ldi a 
  011e:1a                 eq? 
  011f:31 0f              bnt code_0130 
  0121:38 00c5          pushi c5 // $c5 posn
  0124:7a               push2 
  0125:39 08            pushi 8 // $8 underBits
  0127:38 009b          pushi 9b // $9b bottom
  012a:81 00              lag gEgo 
  012c:4a 08             send 8 

  012e:33 61              jmp code_0191 

        code_0130
  0130:3c                 dup 
  0131:35 24              ldi 24 
  0133:1a                 eq? 
  0134:31 20              bnt code_0156 
  0136:38 00c5          pushi c5 // $c5 posn
  0139:7a               push2 
  013a:38 0084          pushi 84 // $84 stop
  013d:39 74            pushi 74 // $74 lastSeconds
  013f:81 00              lag gEgo 
  0141:4a 08             send 8 

  0143:83 05              lal local5 
  0145:18                 not 
  0146:31 0c              bnt code_0154 
  0148:35 01              ldi 1 
  014a:a3 04              sal local4 
  014c:39 7a            pushi 7a // $7a setScript
  014e:78               push1 
  014f:74 0676          lofss $07c8 // comeDown
  0152:54 06             self 6 


        code_0154
  0154:33 3b              jmp code_0191 

        code_0156
  0156:3c                 dup 
  0157:35 16              ldi 16 
  0159:1a                 eq? 
  015a:31 10              bnt code_016c 
  015c:38 00c5          pushi c5 // $c5 posn
  015f:7a               push2 
  0160:38 00a0          pushi a0 // $a0 cycleDone
  0163:38 00bc          pushi bc // $bc motionInited
  0166:81 00              lag gEgo 
  0168:4a 08             send 8 

  016a:33 25              jmp code_0191 

        code_016c
  016c:89 66              lsg global102 
  016e:35 01              ldi 1 
  0170:1a                 eq? 
  0171:31 10              bnt code_0183 
  0173:38 00c5          pushi c5 // $c5 posn
  0176:7a               push2 
  0177:38 013d          pushi 13d // $13d elevX
  017a:38 0098          pushi 98 // $98 center
  017d:81 00              lag gEgo 
  017f:4a 08             send 8 

  0181:33 0e              jmp code_0191 

        code_0183
  0183:38 00c5          pushi c5 // $c5 posn
  0186:7a               push2 
  0187:38 013d          pushi 13d // $13d elevX
  018a:38 00b9          pushi b9 // $b9 nonBumps
  018d:81 00              lag gEgo 
  018f:4a 08             send 8 


        code_0191
  0191:3a                toss 
  0192:39 05            pushi 5 // $5 view
  0194:78               push1 
  0195:76               push0 
  0196:39 12            pushi 12 // $12 illegalBits
  0198:78               push1 
  0199:38 8002          pushi 8002 // $8002 sel_32770
  019c:39 57            pushi 57 // $57 init
  019e:76               push0 
  019f:81 00              lag gEgo 
  01a1:4a 10             send 10 

  01a3:48                 ret 
    )

    (method (doit) // method_01a4
  01a4:83 05              lal local5 
  01a6:31 21              bnt code_01c9 
  01a8:7a               push2 
  01a9:39 0f            pushi f // $f lsBottom
  01ab:76               push0 
  01ac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01b2:89 0c              lsg gPrevRoomNum 
  01b4:35 24              ldi 24 
  01b6:1a                 eq? 
  01b7:31 0c              bnt code_01c5 
  01b9:35 01              ldi 1 
  01bb:a3 04              sal local4 
  01bd:39 7a            pushi 7a // $7a setScript
  01bf:78               push1 
  01c0:74 0605          lofss $07c8 // comeDown
  01c3:54 06             self 6 


        code_01c5
  01c5:35 00              ldi 0 
  01c7:a3 05              sal local5 

        code_01c9
  01c9:83 04              lal local4 
  01cb:31 26              bnt code_01f3 
  01cd:38 00db          pushi db // $db onControl
  01d0:78               push1 
  01d1:78               push1 
  01d2:81 00              lag gEgo 
  01d4:4a 06             send 6 

  01d6:36                push 
  01d7:35 01              ldi 1 
  01d9:12                 and 
  01da:31 17              bnt code_01f3 
  01dc:38 00e9          pushi e9 // $e9 canControl
  01df:78               push1 
  01e0:78               push1 
  01e1:51 2b            class User 
  01e3:4a 06             send 6 

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

  01ef:35 00              ldi 0 
  01f1:a3 04              sal local4 

        code_01f3
  01f3:38 00db          pushi db // $db onControl
  01f6:78               push1 
  01f7:76               push0 
  01f8:81 00              lag gEgo 
  01fa:4a 06             send 6 

  01fc:36                push 
  01fd:35 20              ldi 20 
  01ff:12                 and 
  0200:31 3d              bnt code_023f 
  0202:39 06            pushi 6 // $6 loop
  0204:76               push0 
  0205:81 00              lag gEgo 
  0207:4a 04             send 4 

  0209:36                push 
  020a:35 03              ldi 3 
  020c:1a                 eq? 
  020d:2f 0d               bt code_021c 
  020f:39 06            pushi 6 // $6 loop
  0211:76               push0 
  0212:81 00              lag gEgo 
  0214:4a 04             send 4 

  0216:36                push 
  0217:35 00              ldi 0 
  0219:1a                 eq? 
  021a:31 23              bnt code_023f 

        code_021c
  021c:38 00e9          pushi e9 // $e9 canControl
  021f:78               push1 
  0220:76               push0 
  0221:51 2b            class User 
  0223:4a 06             send 6 

  0225:35 01              ldi 1 
  0227:a3 04              sal local4 
  0229:39 12            pushi 12 // $12 illegalBits
  022b:78               push1 
  022c:76               push0 
  022d:38 00d3          pushi d3 // $d3 setMotion
  0230:39 03            pushi 3 // $3 y
  0232:51 1d            class MoveTo 
  0234:36                push 
  0235:38 00fd          pushi fd // $fd setSpeed
  0238:38 0099          pushi 99 // $99 top
  023b:81 00              lag gEgo 
  023d:4a 10             send 10 


        code_023f
  023f:38 00db          pushi db // $db onControl
  0242:78               push1 
  0243:78               push1 
  0244:81 00              lag gEgo 
  0246:4a 06             send 6 

  0248:36                push 
  0249:34 0080            ldi 80 
  024c:12                 and 
  024d:31 3d              bnt code_028c 
  024f:39 06            pushi 6 // $6 loop
  0251:76               push0 
  0252:81 00              lag gEgo 
  0254:4a 04             send 4 

  0256:36                push 
  0257:35 02              ldi 2 
  0259:1a                 eq? 
  025a:2f 0d               bt code_0269 
  025c:39 06            pushi 6 // $6 loop
  025e:76               push0 
  025f:81 00              lag gEgo 
  0261:4a 04             send 4 

  0263:36                push 
  0264:35 01              ldi 1 
  0266:1a                 eq? 
  0267:31 23              bnt code_028c 

        code_0269
  0269:38 00e9          pushi e9 // $e9 canControl
  026c:78               push1 
  026d:76               push0 
  026e:51 2b            class User 
  0270:4a 06             send 6 

  0272:35 01              ldi 1 
  0274:a3 04              sal local4 
  0276:39 12            pushi 12 // $12 illegalBits
  0278:78               push1 
  0279:76               push0 
  027a:38 00d3          pushi d3 // $d3 setMotion
  027d:39 03            pushi 3 // $3 y
  027f:51 1d            class MoveTo 
  0281:36                push 
  0282:38 00e1          pushi e1 // $e1 alterEgo
  0285:38 00ba          pushi ba // $ba targetX
  0288:81 00              lag gEgo 
  028a:4a 10             send 10 


        code_028c
  028c:38 00db          pushi db // $db onControl
  028f:78               push1 
  0290:76               push0 
  0291:81 00              lag gEgo 
  0293:4a 06             send 6 

  0295:36                push 
  0296:35 10              ldi 10 
  0298:12                 and 
  0299:31 2b              bnt code_02c6 
  029b:83 02              lal local2 
  029d:18                 not 
  029e:31 26              bnt code_02c6 
  02a0:39 06            pushi 6 // $6 loop
  02a2:76               push0 
  02a3:81 00              lag gEgo 
  02a5:4a 04             send 4 

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

  02b4:36                push 
  02b5:35 00              ldi 0 
  02b7:1a                 eq? 
  02b8:31 0c              bnt code_02c6 

        code_02ba
  02ba:35 01              ldi 1 
  02bc:a3 02              sal local2 
  02be:39 7a            pushi 7a // $7a setScript
  02c0:78               push1 
  02c1:74 04d4          lofss $0798 // myDoor
  02c4:54 06             self 6 


        code_02c6
  02c6:39 03            pushi 3 // $3 y
  02c8:76               push0 
  02c9:81 00              lag gEgo 
  02cb:4a 04             send 4 

  02cd:36                push 
  02ce:34 00a2            ldi a2 
  02d1:22                 lt? 
  02d2:31 06              bnt code_02da 
  02d4:35 01              ldi 1 
  02d6:a1 66              sag global102 
  02d8:33 04              jmp code_02de 

        code_02da
  02da:35 00              ldi 0 
  02dc:a1 66              sag global102 

        code_02de
  02de:38 00db          pushi db // $db onControl
  02e1:78               push1 
  02e2:76               push0 
  02e3:81 00              lag gEgo 
  02e5:4a 06             send 6 

  02e7:36                push 
  02e8:35 02              ldi 2 
  02ea:12                 and 
  02eb:2f 0f               bt code_02fc 
  02ed:38 00db          pushi db // $db onControl
  02f0:78               push1 
  02f1:76               push0 
  02f2:81 00              lag gEgo 
  02f4:4a 06             send 6 

  02f6:36                push 
  02f7:35 10              ldi 10 
  02f9:12                 and 
  02fa:31 0b              bnt code_0307 

        code_02fc
  02fc:39 42            pushi 42 // $42 setPri
  02fe:78               push1 
  02ff:39 07            pushi 7 // $7 cel
  0301:81 00              lag gEgo 
  0303:4a 06             send 6 

  0305:33 09              jmp code_0310 

        code_0307
  0307:39 42            pushi 42 // $42 setPri
  0309:78               push1 
  030a:39 ff            pushi ff // $ff checkAni
  030c:81 00              lag gEgo 
  030e:4a 06             send 6 


        code_0310
  0310:38 00db          pushi db // $db onControl
  0313:78               push1 
  0314:78               push1 
  0315:81 00              lag gEgo 
  0317:4a 06             send 6 

  0319:36                push 
  031a:35 02              ldi 2 
  031c:12                 and 
  031d:31 0a              bnt code_0329 
  031f:38 00f8          pushi f8 // $f8 newRoom
  0322:78               push1 
  0323:39 24            pushi 24 // $24 cursor
  0325:81 02              lag gCurRoom 
  0327:4a 06             send 6 


        code_0329
  0329:38 00db          pushi db // $db onControl
  032c:78               push1 
  032d:78               push1 
  032e:81 00              lag gEgo 
  0330:4a 06             send 6 

  0332:36                push 
  0333:34 4000            ldi 4000 
  0336:12                 and 
  0337:30 017e            bnt code_04b8 
  033a:39 3b            pushi 3b // $3b mover
  033c:76               push0 
  033d:81 00              lag gEgo 
  033f:4a 04             send 4 

  0341:36                push 
  0342:35 00              ldi 0 
  0344:1c                 ne? 
  0345:30 0170            bnt code_04b8 
  0348:80 00df            lag gDetailLevel 
  034b:30 016a            bnt code_04b8 
  034e:39 06            pushi 6 // $6 loop
  0350:76               push0 
  0351:81 00              lag gEgo 
  0353:4a 04             send 4 

  0355:36                push 
  0356:3c                 dup 
  0357:35 02              ldi 2 
  0359:1a                 eq? 
  035a:31 73              bnt code_03cf 
  035c:39 07            pushi 7 // $7 cel
  035e:76               push0 
  035f:81 00              lag gEgo 
  0361:4a 04             send 4 

  0363:36                push 
  0364:35 02              ldi 2 
  0366:1a                 eq? 
  0367:31 2b              bnt code_0394 
  0369:38 00c5          pushi c5 // $c5 posn
  036c:7a               push2 
  036d:39 04            pushi 4 // $4 x
  036f:76               push0 
  0370:81 00              lag gEgo 
  0372:4a 04             send 4 

  0374:36                push 
  0375:35 05              ldi 5 
  0377:02                 add 
  0378:36                push 
  0379:39 03            pushi 3 // $3 y
  037b:76               push0 
  037c:81 00              lag gEgo 
  037e:4a 04             send 4 

  0380:36                push 
  0381:39 07            pushi 7 // $7 cel
  0383:78               push1 
  0384:76               push0 
  0385:38 00ca          pushi ca // $ca show
  0388:76               push0 
  0389:39 7e            pushi 7e // $7e setCycle
  038b:78               push1 
  038c:51 1a            class End 
  038e:36                push 
  038f:72 04b8          lofsa $084a // Splash1
  0392:4a 18             send 18 


        code_0394
  0394:39 07            pushi 7 // $7 cel
  0396:76               push0 
  0397:81 00              lag gEgo 
  0399:4a 04             send 4 

  039b:36                push 
  039c:35 05              ldi 5 
  039e:1a                 eq? 
  039f:31 2b              bnt code_03cc 
  03a1:38 00c5          pushi c5 // $c5 posn
  03a4:7a               push2 
  03a5:39 04            pushi 4 // $4 x
  03a7:76               push0 
  03a8:81 00              lag gEgo 
  03aa:4a 04             send 4 

  03ac:36                push 
  03ad:35 05              ldi 5 
  03af:02                 add 
  03b0:36                push 
  03b1:39 03            pushi 3 // $3 y
  03b3:76               push0 
  03b4:81 00              lag gEgo 
  03b6:4a 04             send 4 

  03b8:36                push 
  03b9:39 07            pushi 7 // $7 cel
  03bb:78               push1 
  03bc:76               push0 
  03bd:38 00ca          pushi ca // $ca show
  03c0:76               push0 
  03c1:39 7e            pushi 7e // $7e setCycle
  03c3:78               push1 
  03c4:51 1a            class End 
  03c6:36                push 
  03c7:72 04ce          lofsa $0898 // Splash2
  03ca:4a 18             send 18 


        code_03cc
  03cc:32 00e8            jmp code_04b7 

        code_03cf
  03cf:3c                 dup 
  03d0:35 03              ldi 3 
  03d2:1a                 eq? 
  03d3:31 72              bnt code_0447 
  03d5:39 07            pushi 7 // $7 cel
  03d7:76               push0 
  03d8:81 00              lag gEgo 
  03da:4a 04             send 4 

  03dc:36                push 
  03dd:35 02              ldi 2 
  03df:1a                 eq? 
  03e0:31 2b              bnt code_040d 
  03e2:38 00c5          pushi c5 // $c5 posn
  03e5:7a               push2 
  03e6:39 04            pushi 4 // $4 x
  03e8:76               push0 
  03e9:81 00              lag gEgo 
  03eb:4a 04             send 4 

  03ed:36                push 
  03ee:35 05              ldi 5 
  03f0:02                 add 
  03f1:36                push 
  03f2:39 03            pushi 3 // $3 y
  03f4:76               push0 
  03f5:81 00              lag gEgo 
  03f7:4a 04             send 4 

  03f9:36                push 
  03fa:39 07            pushi 7 // $7 cel
  03fc:78               push1 
  03fd:76               push0 
  03fe:38 00ca          pushi ca // $ca show
  0401:76               push0 
  0402:39 7e            pushi 7e // $7e setCycle
  0404:78               push1 
  0405:51 1a            class End 
  0407:36                push 
  0408:72 043f          lofsa $084a // Splash1
  040b:4a 18             send 18 


        code_040d
  040d:39 07            pushi 7 // $7 cel
  040f:76               push0 
  0410:81 00              lag gEgo 
  0412:4a 04             send 4 

  0414:36                push 
  0415:35 05              ldi 5 
  0417:1a                 eq? 
  0418:31 2b              bnt code_0445 
  041a:38 00c5          pushi c5 // $c5 posn
  041d:7a               push2 
  041e:39 04            pushi 4 // $4 x
  0420:76               push0 
  0421:81 00              lag gEgo 
  0423:4a 04             send 4 

  0425:36                push 
  0426:35 05              ldi 5 
  0428:02                 add 
  0429:36                push 
  042a:39 03            pushi 3 // $3 y
  042c:76               push0 
  042d:81 00              lag gEgo 
  042f:4a 04             send 4 

  0431:36                push 
  0432:39 07            pushi 7 // $7 cel
  0434:78               push1 
  0435:76               push0 
  0436:38 00ca          pushi ca // $ca show
  0439:76               push0 
  043a:39 7e            pushi 7e // $7e setCycle
  043c:78               push1 
  043d:51 1a            class End 
  043f:36                push 
  0440:72 0455          lofsa $0898 // Splash2
  0443:4a 18             send 18 


        code_0445
  0445:33 70              jmp code_04b7 

        code_0447
  0447:39 07            pushi 7 // $7 cel
  0449:76               push0 
  044a:81 00              lag gEgo 
  044c:4a 04             send 4 

  044e:36                push 
  044f:35 00              ldi 0 
  0451:1a                 eq? 
  0452:31 2b              bnt code_047f 
  0454:38 00c5          pushi c5 // $c5 posn
  0457:7a               push2 
  0458:39 04            pushi 4 // $4 x
  045a:76               push0 
  045b:81 00              lag gEgo 
  045d:4a 04             send 4 

  045f:36                push 
  0460:35 02              ldi 2 
  0462:04                 sub 
  0463:36                push 
  0464:39 03            pushi 3 // $3 y
  0466:76               push0 
  0467:81 00              lag gEgo 
  0469:4a 04             send 4 

  046b:36                push 
  046c:39 07            pushi 7 // $7 cel
  046e:78               push1 
  046f:76               push0 
  0470:38 00ca          pushi ca // $ca show
  0473:76               push0 
  0474:39 7e            pushi 7e // $7e setCycle
  0476:78               push1 
  0477:51 1a            class End 
  0479:36                push 
  047a:72 03cd          lofsa $084a // Splash1
  047d:4a 18             send 18 


        code_047f
  047f:39 07            pushi 7 // $7 cel
  0481:76               push0 
  0482:81 00              lag gEgo 
  0484:4a 04             send 4 

  0486:36                push 
  0487:35 04              ldi 4 
  0489:1a                 eq? 
  048a:31 2b              bnt code_04b7 
  048c:38 00c5          pushi c5 // $c5 posn
  048f:7a               push2 
  0490:39 04            pushi 4 // $4 x
  0492:76               push0 
  0493:81 00              lag gEgo 
  0495:4a 04             send 4 

  0497:36                push 
  0498:35 02              ldi 2 
  049a:04                 sub 
  049b:36                push 
  049c:39 03            pushi 3 // $3 y
  049e:76               push0 
  049f:81 00              lag gEgo 
  04a1:4a 04             send 4 

  04a3:36                push 
  04a4:39 07            pushi 7 // $7 cel
  04a6:78               push1 
  04a7:76               push0 
  04a8:38 00ca          pushi ca // $ca show
  04ab:76               push0 
  04ac:39 7e            pushi 7e // $7e setCycle
  04ae:78               push1 
  04af:51 1a            class End 
  04b1:36                push 
  04b2:72 03e3          lofsa $0898 // Splash2
  04b5:4a 18             send 18 


        code_04b7
  04b7:3a                toss 

        code_04b8
  04b8:39 3c            pushi 3c // $3c doit
  04ba:76               push0 
  04bb:57 37 04         super Rm 4 

  04be:48                 ret 
    )

    (method (dispose) // method_04bf
  04bf:39 58            pushi 58 // $58 dispose
  04c1:76               push0 
  04c2:57 37 04         super Rm 4 

  04c5:48                 ret 
    )

    (method (newRoom) // method_04c6
  04c6:8f 01              lsp param1 
  04c8:35 24              ldi 24 
  04ca:1a                 eq? 
  04cb:31 09              bnt code_04d6 
  04cd:38 0084          pushi 84 // $84 stop
  04d0:76               push0 
  04d1:80 00b7            lag gConMusic 
  04d4:4a 04             send 4 


        code_04d6
  04d6:38 00f8          pushi f8 // $f8 newRoom
  04d9:78               push1 
  04da:8f 01              lsp param1 
  04dc:57 37 06         super Rm 6 

  04df:48                 ret 
    )

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

  04e9:31 03              bnt code_04ee 
  04eb:35 01              ldi 1 
  04ed:48                 ret 

        code_04ee
  04ee:39 22            pushi 22 // $22 type
  04f0:76               push0 
  04f1:87 01              lap param1 
  04f3:4a 04             send 4 

  04f5:36                push 
  04f6:34 0080            ldi 80 
  04f9:1a                 eq? 
  04fa:31 6a              bnt code_0566 
  04fc:78               push1 
  04fd:74 022b          lofss $072b // look,find/gertie,body
  0500:43 25 02         callk Said 2 

  0503:31 1a              bnt code_051f 
  0505:83 01              lal local1 
  0507:31 0a              bnt code_0513 
  0509:39 4c            pushi 4c // $4c claimed
  050b:78               push1 
  050c:76               push0 
  050d:87 01              lap param1 
  050f:4a 06             send 6 

  0511:33 0a              jmp code_051d 

        code_0513
  0513:7a               push2 
  0514:39 0f            pushi f // $f lsBottom
  0516:78               push1 
  0517:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_051d
  051d:33 47              jmp code_0566 

        code_051f
  051f:78               push1 
  0520:74 0214          lofss $0737 // look>
  0523:43 25 02         callk Said 2 

  0526:31 3e              bnt code_0566 
  0528:78               push1 
  0529:74 01ee          lofss $071a // [<around,at][/room<!*]
  052c:43 25 02         callk Said 2 

  052f:31 0c              bnt code_053d 
  0531:7a               push2 
  0532:39 0f            pushi f // $f lsBottom
  0534:76               push0 
  0535:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  053b:33 29              jmp code_0566 

        code_053d
  053d:78               push1 
  053e:74 01d1          lofss $0712 // /escalier
  0541:43 25 02         callk Said 2 

  0544:31 0c              bnt code_0552 
  0546:7a               push2 
  0547:39 0f            pushi f // $f lsBottom
  0549:7a               push2 
  054a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0550:33 14              jmp code_0566 

        code_0552
  0552:78               push1 
  0553:74 01c0          lofss $0716 // /haut
  0556:43 25 02         callk Said 2 

  0559:31 0b              bnt code_0566 
  055b:7a               push2 
  055c:39 0f            pushi f // $f lsBottom
  055e:39 03            pushi 3 // $3 y
  0560:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0566
  0566:48                 ret 
    )

)

// 0792
(instance myDoor of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (changeState) // method_0567
  0567:87 01              lap param1 
  0569:65 0a             aTop state 
  056b:36                push 
  056c:3c                 dup 
  056d:35 00              ldi 0 
  056f:1a                 eq? 
  0570:31 23              bnt code_0595 
  0572:38 00e9          pushi e9 // $e9 canControl
  0575:78               push1 
  0576:76               push0 
  0577:38 00e2          pushi e2 // $e2 canInput
  057a:78               push1 
  057b:76               push0 
  057c:51 2b            class User 
  057e:4a 0c             send c 

  0580:38 00d3          pushi d3 // $d3 setMotion
  0583:39 04            pushi 4 // $4 x
  0585:51 1d            class MoveTo 
  0587:36                push 
  0588:39 77            pushi 77 // $77 caller
  058a:38 0083          pushi 83 // $83 playMaybe
  058d:7c            pushSelf 
  058e:81 00              lag gEgo 
  0590:4a 0c             send c 

  0592:32 0083            jmp code_0618 

        code_0595
  0595:3c                 dup 
  0596:35 01              ldi 1 
  0598:1a                 eq? 
  0599:31 14              bnt code_05af 
  059b:38 00d3          pushi d3 // $d3 setMotion
  059e:39 04            pushi 4 // $4 x
  05a0:51 1d            class MoveTo 
  05a2:36                push 
  05a3:38 0082          pushi 82 // $82 owner
  05a6:39 75            pushi 75 // $75 register
  05a8:7c            pushSelf 
  05a9:81 00              lag gEgo 
  05ab:4a 0c             send c 

  05ad:33 69              jmp code_0618 

        code_05af
  05af:3c                 dup 
  05b0:35 02              ldi 2 
  05b2:1a                 eq? 
  05b3:31 3d              bnt code_05f2 
  05b5:38 00d3          pushi d3 // $d3 setMotion
  05b8:78               push1 
  05b9:76               push0 
  05ba:39 12            pushi 12 // $12 illegalBits
  05bc:78               push1 
  05bd:38 8000          pushi 8000 // $8000 sel_32768
  05c0:81 00              lag gEgo 
  05c2:4a 0c             send c 

  05c4:38 00a4          pushi a4 // $a4 cycleSpeed
  05c7:78               push1 
  05c8:78               push1 
  05c9:38 00c9          pushi c9 // $c9 ignoreActors
  05cc:78               push1 
  05cd:78               push1 
  05ce:39 7e            pushi 7e // $7e setCycle
  05d0:7a               push2 
  05d1:51 1a            class End 
  05d3:36                push 
  05d4:7c            pushSelf 
  05d5:72 0220          lofsa $07f8 // Door
  05d8:4a 14             send 14 

  05da:39 2b            pushi 2b // $2b number
  05dc:78               push1 
  05dd:39 2b            pushi 2b // $2b number
  05df:39 06            pushi 6 // $6 loop
  05e1:78               push1 
  05e2:78               push1 
  05e3:39 3f            pushi 3f // $3f priority
  05e5:78               push1 
  05e6:39 05            pushi 5 // $5 view
  05e8:39 2a            pushi 2a // $2a play
  05ea:76               push0 
  05eb:72 037c          lofsa $096a // myMusic
  05ee:4a 16             send 16 

  05f0:33 26              jmp code_0618 

        code_05f2
  05f2:3c                 dup 
  05f3:35 03              ldi 3 
  05f5:1a                 eq? 
  05f6:31 20              bnt code_0618 
  05f8:38 00d3          pushi d3 // $d3 setMotion
  05fb:39 03            pushi 3 // $3 y
  05fd:51 1d            class MoveTo 
  05ff:36                push 
  0600:39 04            pushi 4 // $4 x
  0602:76               push0 
  0603:81 00              lag gEgo 
  0605:4a 04             send 4 

  0607:36                push 
  0608:35 32              ldi 32 
  060a:02                 add 
  060b:36                push 
  060c:39 03            pushi 3 // $3 y
  060e:76               push0 
  060f:81 00              lag gEgo 
  0611:4a 04             send 4 

  0613:36                push 
  0614:81 00              lag gEgo 
  0616:4a 0a             send a 


        code_0618
  0618:3a                toss 
  0619:48                 ret 
    )

)

// 07c2
(instance comeDown 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_061a
  061a:87 01              lap param1 
  061c:65 0a             aTop state 
  061e:36                push 
  061f:3c                 dup 
  0620:35 00              ldi 0 
  0622:1a                 eq? 
  0623:31 0a              bnt code_062f 
  0625:76               push0 
  0626:45 03 00         callb procedure_0003 0 // HandsOff 

  0629:35 03              ldi 3 
  062b:65 10             aTop cycles 
  062d:33 60              jmp code_068f 

        code_062f
  062f:3c                 dup 
  0630:35 01              ldi 1 
  0632:1a                 eq? 
  0633:31 3a              bnt code_066f 
  0635:38 00d3          pushi d3 // $d3 setMotion
  0638:39 04            pushi 4 // $4 x
  063a:51 1d            class MoveTo 
  063c:36                push 
  063d:39 6c            pushi 6c // $6c addToEnd
  063f:38 0094          pushi 94 // $94 retreat
  0642:7c            pushSelf 
  0643:81 00              lag gEgo 
  0645:4a 0c             send c 

  0647:38 00a4          pushi a4 // $a4 cycleSpeed
  064a:78               push1 
  064b:78               push1 
  064c:39 7e            pushi 7e // $7e setCycle
  064e:78               push1 
  064f:51 1b            class Beg 
  0651:36                push 
  0652:72 01a3          lofsa $07f8 // Door
  0655:4a 0c             send c 

  0657:39 2b            pushi 2b // $2b number
  0659:78               push1 
  065a:39 2c            pushi 2c // $2c handle
  065c:39 06            pushi 6 // $6 loop
  065e:78               push1 
  065f:78               push1 
  0660:39 3f            pushi 3f // $3f priority
  0662:78               push1 
  0663:39 05            pushi 5 // $5 view
  0665:39 2a            pushi 2a // $2a play
  0667:76               push0 
  0668:72 02ff          lofsa $096a // myMusic
  066b:4a 16             send 16 

  066d:33 20              jmp code_068f 

        code_066f
  066f:3c                 dup 
  0670:35 02              ldi 2 
  0672:1a                 eq? 
  0673:31 1a              bnt code_068f 
  0675:76               push0 
  0676:45 04 00         callb procedure_0004 0 // HandsOn 

  0679:38 00a4          pushi a4 // $a4 cycleSpeed
  067c:78               push1 
  067d:76               push0 
  067e:38 00c6          pushi c6 // $c6 stopUpd
  0681:76               push0 
  0682:72 0173          lofsa $07f8 // Door
  0685:4a 0a             send a 

  0687:39 7a            pushi 7a // $7a setScript
  0689:78               push1 
  068a:76               push0 
  068b:63 08             pToa client 
  068d:4a 06             send 6 


        code_068f
  068f:3a                toss 
  0690:48                 ret 
    )

)

// 07f2
(instance Door of Prop
    (properties
        y $76
        x $94
        z $0
        heading $0
        yStep $2
        view $75
        loop $1
        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_0691
  0691:39 03            pushi 3 // $3 y
  0693:7c            pushSelf 
  0694:8f 01              lsp param1 
  0696:39 03            pushi 3 // $3 y
  0698:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  069e:31 0f              bnt code_06af 
  06a0:39 4c            pushi 4c // $4c claimed
  06a2:78               push1 
  06a3:78               push1 
  06a4:87 01              lap param1 
  06a6:4a 06             send 6 

  06a8:78               push1 
  06a9:74 032d          lofss $09d9 // door
  06ac:45 19 02         callb procedure_0019 2 // DoLook 


        code_06af
  06af:48                 ret 
    )

)

// 0844
(instance Splash1 of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $1
        loop $6
        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
    )
)

// 0892
(instance Splash2 of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $1
        loop $6
        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
    )
)

// 08e0
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $14
        nsLeft $10
        nsBottom $57
        nsRight $27
    )
    (method (handleEvent) // method_06b0
  06b0:39 03            pushi 3 // $3 y
  06b2:7c            pushSelf 
  06b3:8f 01              lsp param1 
  06b5:39 03            pushi 3 // $3 y
  06b7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06bd:31 0f              bnt code_06ce 
  06bf:39 4c            pushi 4c // $4c claimed
  06c1:78               push1 
  06c2:78               push1 
  06c3:87 01              lap param1 
  06c5:4a 06             send 6 

  06c7:78               push1 
  06c8:74 0322          lofss $09ed // window
  06cb:45 19 02         callb procedure_0019 2 // DoLook 


        code_06ce
  06ce:48                 ret 
    )

)

// 090c
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $34
        nsLeft $af
        nsBottom $81
        nsRight $c7
    )
    (method (handleEvent) // method_06cf
  06cf:39 03            pushi 3 // $3 y
  06d1:7c            pushSelf 
  06d2:8f 01              lsp param1 
  06d4:39 03            pushi 3 // $3 y
  06d6:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06dc:31 0f              bnt code_06ed 
  06de:39 4c            pushi 4c // $4c claimed
  06e0:78               push1 
  06e1:78               push1 
  06e2:87 01              lap param1 
  06e4:4a 06             send 6 

  06e6:78               push1 
  06e7:74 0303          lofss $09ed // window
  06ea:45 19 02         callb procedure_0019 2 // DoLook 


        code_06ed
  06ed:48                 ret 
    )

)

// 0938
(instance Window3 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $36
        nsLeft $f9
        nsBottom $87
        nsRight $113
    )
    (method (handleEvent) // method_06ee
  06ee:39 03            pushi 3 // $3 y
  06f0:7c            pushSelf 
  06f1:8f 01              lsp param1 
  06f3:39 03            pushi 3 // $3 y
  06f5:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06fb:31 0f              bnt code_070c 
  06fd:39 4c            pushi 4c // $4c claimed
  06ff:78               push1 
  0700:78               push1 
  0701:87 01              lap param1 
  0703:4a 06             send 6 

  0705:78               push1 
  0706:74 02e4          lofss $09ed // window
  0709:45 19 02         callb procedure_0019 2 // DoLook 


        code_070c
  070c:48                 ret 
  070d:00                bnot 
    )

)

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



