(script 13)

(string
    string_0a84 "Door"
    string_0a89 "Hay1"
    string_0a8e "Hay2"
    string_0a93 "Room13"
    string_0a9a "Splash1"
    string_0aa2 "Splash2"
    string_0aaa "Window1"
    string_0ab2 "Window2"
    string_0aba "Window3"
    string_0ac2 "exit"
    string_0ac7 "myDoor"
    string_0ace "mySound"
)

(said
    said_074c /archway
    said_0750 /chapel
    said_0754 /barriere
    said_0758 <(dans,above)/barriere
    said_0764 <dans/room
    said_076b [<around,at][/room]
    said_0779 break/fenetre
    said_077f climb,hop/barriere
    said_0788 enter,((aller,get)<dans)/barriere
    said_079b get/bale
    said_07a1 look/bale
    said_07a7 look/door
    said_07ad look/fenetre
    said_07b3 look>
    said_07b7 bouger,appuyer/bale
    said_07c0 open,look<(dans,through)/fenetre,room
)

(synonym
    barriere | cloture | fence = corral | enclos
    room = barn | ecurie | grange | stable | stall | stalle
)

(local
    local0 = $0000
    local1 = $0000
)

// 07da
(instance public Room13 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $d
        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_001a
  001a:35 09              ldi 9 
  001c:65 1a             aTop north 
  001e:35 64              ldi 64 
  0020:65 16             aTop horizon 
  0022:39 57            pushi 57 // $57 init
  0024:76               push0 
  0025:57 37 04         super Rm 4 

  0028:39 03            pushi 3 // $3 y
  002a:38 0084          pushi 84 // $84 stop
  002d:39 6b            pushi 6b // $6b addToFront
  002f:39 6c            pushi 6c // $6c addToEnd
  0031:45 15 06         callb procedure_0015 6 // LoadMany 

  0034:88 00a5            lsg gAct 
  0037:35 01              ldi 1 
  0039:1a                 eq? 
  003a:31 09              bnt code_0045 
  003c:38 010a          pushi 10a // $10a setRegions
  003f:78               push1 
  0040:38 017d          pushi 17d // $17d sel_381
  0043:54 06             self 6 


        code_0045
  0045:39 07            pushi 7 // $7 cel
  0047:78               push1 
  0048:89 0c              lsg gPrevRoomNum 
  004a:35 45              ldi 45 
  004c:1a                 eq? 
  004d:31 04              bnt code_0053 
  004f:35 03              ldi 3 
  0051:33 02              jmp code_0055 

        code_0053
  0053:35 00              ldi 0 

        code_0055
  0055:36                push 
  0056:38 00c9          pushi c9 // $c9 ignoreActors
  0059:78               push1 
  005a:78               push1 
  005b:39 57            pushi 57 // $57 init
  005d:76               push0 
  005e:38 00c6          pushi c6 // $c6 stopUpd
  0061:76               push0 
  0062:72 082b          lofsa $0890 // Door
  0065:4a 14             send 14 

  0067:72 0826          lofsa $0890 // Door
  006a:a0 0175            sag global373 
  006d:39 57            pushi 57 // $57 init
  006f:76               push0 
  0070:72 09e7          lofsa $0a5a // mySound
  0073:4a 04             send 4 

  0075:72 09e2          lofsa $0a5a // mySound
  0078:a0 0176            sag global374 
  007b:80 00df            lag gDetailLevel 
  007e:31 22              bnt code_00a2 
  0080:38 00c9          pushi c9 // $c9 ignoreActors
  0083:78               push1 
  0084:78               push1 
  0085:39 57            pushi 57 // $57 init
  0087:76               push0 
  0088:38 0089          pushi 89 // $89 hide
  008b:76               push0 
  008c:72 0853          lofsa $08e2 // Splash1
  008f:4a 0e             send e 

  0091:38 00c9          pushi c9 // $c9 ignoreActors
  0094:78               push1 
  0095:78               push1 
  0096:39 57            pushi 57 // $57 init
  0098:76               push0 
  0099:38 0089          pushi 89 // $89 hide
  009c:76               push0 
  009d:72 0890          lofsa $0930 // Splash2
  00a0:4a 0e             send e 


        code_00a2
  00a2:38 010b          pushi 10b // $10b setFeatures
  00a5:39 05            pushi 5 // $5 view
  00a7:74 08d4          lofss $097e // Window1
  00aa:74 08fd          lofss $09aa // Window2
  00ad:74 0926          lofss $09d6 // Window3
  00b0:74 094f          lofss $0a02 // Hay1
  00b3:74 0978          lofss $0a2e // Hay2
  00b6:54 0e             self e 

  00b8:39 12            pushi 12 // $12 illegalBits
  00ba:78               push1 
  00bb:38 8002          pushi 8002 // $8002 sel_32770
  00be:81 00              lag gEgo 
  00c0:4a 06             send 6 

  00c2:88 00a5            lsg gAct 
  00c5:35 02              ldi 2 
  00c7:20                 ge? 
  00c8:31 11              bnt code_00db 
  00ca:88 00a5            lsg gAct 
  00cd:35 04              ldi 4 
  00cf:22                 lt? 
  00d0:31 09              bnt code_00db 
  00d2:38 010a          pushi 10a // $10a setRegions
  00d5:78               push1 
  00d6:38 00ca          pushi ca // $ca show
  00d9:54 06             self 6 


        code_00db
  00db:88 00a5            lsg gAct 
  00de:35 03              ldi 3 
  00e0:1a                 eq? 
  00e1:31 07              bnt code_00ea 
  00e3:89 72              lsg global114 
  00e5:35 0a              ldi a 
  00e7:1c                 ne? 
  00e8:2f 10               bt code_00fa 

        code_00ea
  00ea:88 00a5            lsg gAct 
  00ed:35 06              ldi 6 
  00ef:1a                 eq? 
  00f0:31 11              bnt code_0103 
  00f2:89 76              lsg gMustDos 
  00f4:35 02              ldi 2 
  00f6:12                 and 
  00f7:18                 not 
  00f8:31 09              bnt code_0103 

        code_00fa
  00fa:38 010a          pushi 10a // $10a setRegions
  00fd:78               push1 
  00fe:38 0119          pushi 119 // $119 startExtra
  0101:54 06             self 6 


        code_0103
  0103:89 0c              lsg gPrevRoomNum 
  0105:3c                 dup 
  0106:35 09              ldi 9 
  0108:1a                 eq? 
  0109:31 0f              bnt code_011a 
  010b:38 00c5          pushi c5 // $c5 posn
  010e:7a               push2 
  010f:38 0114          pushi 114 // $114 minPause
  0112:39 65            pushi 65 // $65 contains
  0114:81 00              lag gEgo 
  0116:4a 08             send 8 

  0118:33 7c              jmp code_0196 

        code_011a
  011a:3c                 dup 
  011b:35 0e              ldi e 
  011d:1a                 eq? 
  011e:31 0f              bnt code_012f 
  0120:38 00c5          pushi c5 // $c5 posn
  0123:7a               push2 
  0124:38 0127          pushi 127 // $127 intermediate
  0127:39 7d            pushi 7d // $7d set
  0129:81 00              lag gEgo 
  012b:4a 08             send 8 

  012d:33 67              jmp code_0196 

        code_012f
  012f:3c                 dup 
  0130:35 14              ldi 14 
  0132:1a                 eq? 
  0133:31 15              bnt code_014a 
  0135:39 06            pushi 6 // $6 loop
  0137:78               push1 
  0138:39 03            pushi 3 // $3 y
  013a:38 00c5          pushi c5 // $c5 posn
  013d:7a               push2 
  013e:38 0129          pushi 129 // $129 setMapSet
  0141:38 00bb          pushi bb // $bb targetY
  0144:81 00              lag gEgo 
  0146:4a 0e             send e 

  0148:33 4c              jmp code_0196 

        code_014a
  014a:3c                 dup 
  014b:35 15              ldi 15 
  014d:1a                 eq? 
  014e:31 10              bnt code_0160 
  0150:38 00c5          pushi c5 // $c5 posn
  0153:7a               push2 
  0154:38 0136          pushi 136 // $136 elevatorID
  0157:38 009f          pushi 9f // $9f nextCel
  015a:81 00              lag gEgo 
  015c:4a 08             send 8 

  015e:33 36              jmp code_0196 

        code_0160
  0160:3c                 dup 
  0161:35 19              ldi 19 
  0163:1a                 eq? 
  0164:31 10              bnt code_0176 
  0166:38 00c5          pushi c5 // $c5 posn
  0169:7a               push2 
  016a:38 00b2          pushi b2 // $b2 lastBumped
  016d:38 00bc          pushi bc // $bc motionInited
  0170:81 00              lag gEgo 
  0172:4a 08             send 8 

  0174:33 20              jmp code_0196 

        code_0176
  0176:3c                 dup 
  0177:35 45              ldi 45 
  0179:1a                 eq? 
  017a:31 1a              bnt code_0196 
  017c:38 00c5          pushi c5 // $c5 posn
  017f:7a               push2 
  0180:38 0093          pushi 93 // $93 advance
  0183:38 008e          pushi 8e // $8e move
  0186:81 00              lag gEgo 
  0188:4a 08             send 8 

  018a:76               push0 
  018b:45 03 00         callb procedure_0003 0 // HandsOff 

  018e:39 7a            pushi 7a // $7a setScript
  0190:78               push1 
  0191:74 06cc          lofss $0860 // exit
  0194:54 06             self 6 


        code_0196
  0196:3a                toss 
  0197:39 05            pushi 5 // $5 view
  0199:78               push1 
  019a:76               push0 
  019b:39 57            pushi 57 // $57 init
  019d:76               push0 
  019e:81 00              lag gEgo 
  01a0:4a 0a             send a 

  01a2:48                 ret 
    )

    (method (doit) // method_01a3
  01a3:76               push0 
  01a4:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  01a7:31 0a              bnt code_01b3 
  01a9:7a               push2 
  01aa:39 0d            pushi d // $d lsTop
  01ac:76               push0 
  01ad:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_01b3
  01b3:38 00db          pushi db // $db onControl
  01b6:78               push1 
  01b7:76               push0 
  01b8:81 00              lag gEgo 
  01ba:4a 06             send 6 

  01bc:36                push 
  01bd:35 10              ldi 10 
  01bf:12                 and 
  01c0:31 3e              bnt code_0200 
  01c2:39 06            pushi 6 // $6 loop
  01c4:76               push0 
  01c5:81 00              lag gEgo 
  01c7:4a 04             send 4 

  01c9:36                push 
  01ca:35 03              ldi 3 
  01cc:1a                 eq? 
  01cd:2f 0d               bt code_01dc 
  01cf:39 06            pushi 6 // $6 loop
  01d1:76               push0 
  01d2:81 00              lag gEgo 
  01d4:4a 04             send 4 

  01d6:36                push 
  01d7:35 01              ldi 1 
  01d9:1a                 eq? 
  01da:31 24              bnt code_0200 

        code_01dc
  01dc:83 00              lal local0 
  01de:18                 not 
  01df:31 1f              bnt code_0200 
  01e1:39 07            pushi 7 // $7 cel
  01e3:76               push0 
  01e4:72 06a9          lofsa $0890 // Door
  01e7:4a 04             send 4 

  01e9:36                push 
  01ea:35 00              ldi 0 
  01ec:1a                 eq? 
  01ed:31 11              bnt code_0200 
  01ef:35 01              ldi 1 
  01f1:a3 00              sal local0 
  01f3:35 00              ldi 0 
  01f5:a0 0083            sag global131 
  01f8:39 7a            pushi 7a // $7a setScript
  01fa:78               push1 
  01fb:74 0632          lofss $0830 // myDoor
  01fe:54 06             self 6 


        code_0200
  0200:89 0c              lsg gPrevRoomNum 
  0202:35 45              ldi 45 
  0204:1a                 eq? 
  0205:31 20              bnt code_0227 
  0207:83 01              lal local1 
  0209:18                 not 
  020a:31 1b              bnt code_0227 
  020c:39 07            pushi 7 // $7 cel
  020e:76               push0 
  020f:72 067e          lofsa $0890 // Door
  0212:4a 04             send 4 

  0214:36                push 
  0215:35 00              ldi 0 
  0217:1a                 eq? 
  0218:31 0d              bnt code_0227 
  021a:35 01              ldi 1 
  021c:a3 01              sal local1 
  021e:38 00c6          pushi c6 // $c6 stopUpd
  0221:76               push0 
  0222:72 066b          lofsa $0890 // Door
  0225:4a 04             send 4 


        code_0227
  0227:38 00db          pushi db // $db onControl
  022a:78               push1 
  022b:78               push1 
  022c:81 00              lag gEgo 
  022e:4a 06             send 6 

  0230:36                push 
  0231:35 02              ldi 2 
  0233:12                 and 
  0234:31 0a              bnt code_0240 
  0236:38 00f8          pushi f8 // $f8 newRoom
  0239:78               push1 
  023a:39 45            pushi 45 // $45 done
  023c:81 02              lag gCurRoom 
  023e:4a 06             send 6 


        code_0240
  0240:38 00db          pushi db // $db onControl
  0243:78               push1 
  0244:78               push1 
  0245:81 00              lag gEgo 
  0247:4a 06             send 6 

  0249:36                push 
  024a:34 4000            ldi 4000 
  024d:12                 and 
  024e:30 0186            bnt code_03d7 
  0251:39 3b            pushi 3b // $3b mover
  0253:76               push0 
  0254:81 00              lag gEgo 
  0256:4a 04             send 4 

  0258:36                push 
  0259:35 00              ldi 0 
  025b:1c                 ne? 
  025c:30 0178            bnt code_03d7 
  025f:80 00df            lag gDetailLevel 
  0262:30 0172            bnt code_03d7 
  0265:39 06            pushi 6 // $6 loop
  0267:76               push0 
  0268:81 00              lag gEgo 
  026a:4a 04             send 4 

  026c:36                push 
  026d:3c                 dup 
  026e:35 02              ldi 2 
  0270:1a                 eq? 
  0271:31 73              bnt code_02e6 
  0273:39 07            pushi 7 // $7 cel
  0275:76               push0 
  0276:81 00              lag gEgo 
  0278:4a 04             send 4 

  027a:36                push 
  027b:35 02              ldi 2 
  027d:1a                 eq? 
  027e:31 2b              bnt code_02ab 
  0280:38 00c5          pushi c5 // $c5 posn
  0283:7a               push2 
  0284:39 04            pushi 4 // $4 x
  0286:76               push0 
  0287:81 00              lag gEgo 
  0289:4a 04             send 4 

  028b:36                push 
  028c:35 05              ldi 5 
  028e:02                 add 
  028f:36                push 
  0290:39 03            pushi 3 // $3 y
  0292:76               push0 
  0293:81 00              lag gEgo 
  0295:4a 04             send 4 

  0297:36                push 
  0298:39 07            pushi 7 // $7 cel
  029a:78               push1 
  029b:76               push0 
  029c:38 00ca          pushi ca // $ca show
  029f:76               push0 
  02a0:39 7e            pushi 7e // $7e setCycle
  02a2:78               push1 
  02a3:51 1a            class End 
  02a5:36                push 
  02a6:72 0639          lofsa $08e2 // Splash1
  02a9:4a 18             send 18 


        code_02ab
  02ab:39 07            pushi 7 // $7 cel
  02ad:76               push0 
  02ae:81 00              lag gEgo 
  02b0:4a 04             send 4 

  02b2:36                push 
  02b3:35 05              ldi 5 
  02b5:1a                 eq? 
  02b6:31 2b              bnt code_02e3 
  02b8:38 00c5          pushi c5 // $c5 posn
  02bb:7a               push2 
  02bc:39 04            pushi 4 // $4 x
  02be:76               push0 
  02bf:81 00              lag gEgo 
  02c1:4a 04             send 4 

  02c3:36                push 
  02c4:35 05              ldi 5 
  02c6:02                 add 
  02c7:36                push 
  02c8:39 03            pushi 3 // $3 y
  02ca:76               push0 
  02cb:81 00              lag gEgo 
  02cd:4a 04             send 4 

  02cf:36                push 
  02d0:39 07            pushi 7 // $7 cel
  02d2:78               push1 
  02d3:76               push0 
  02d4:38 00ca          pushi ca // $ca show
  02d7:76               push0 
  02d8:39 7e            pushi 7e // $7e setCycle
  02da:78               push1 
  02db:51 1a            class End 
  02dd:36                push 
  02de:72 064f          lofsa $0930 // Splash2
  02e1:4a 18             send 18 


        code_02e3
  02e3:32 00f0            jmp code_03d6 

        code_02e6
  02e6:3c                 dup 
  02e7:35 03              ldi 3 
  02e9:1a                 eq? 
  02ea:31 72              bnt code_035e 
  02ec:39 07            pushi 7 // $7 cel
  02ee:76               push0 
  02ef:81 00              lag gEgo 
  02f1:4a 04             send 4 

  02f3:36                push 
  02f4:35 02              ldi 2 
  02f6:1a                 eq? 
  02f7:31 2b              bnt code_0324 
  02f9:38 00c5          pushi c5 // $c5 posn
  02fc:7a               push2 
  02fd:39 04            pushi 4 // $4 x
  02ff:76               push0 
  0300:81 00              lag gEgo 
  0302:4a 04             send 4 

  0304:36                push 
  0305:35 05              ldi 5 
  0307:02                 add 
  0308:36                push 
  0309:39 03            pushi 3 // $3 y
  030b:76               push0 
  030c:81 00              lag gEgo 
  030e:4a 04             send 4 

  0310:36                push 
  0311:39 07            pushi 7 // $7 cel
  0313:78               push1 
  0314:76               push0 
  0315:38 00ca          pushi ca // $ca show
  0318:76               push0 
  0319:39 7e            pushi 7e // $7e setCycle
  031b:78               push1 
  031c:51 1a            class End 
  031e:36                push 
  031f:72 05c0          lofsa $08e2 // Splash1
  0322:4a 18             send 18 


        code_0324
  0324:39 07            pushi 7 // $7 cel
  0326:76               push0 
  0327:81 00              lag gEgo 
  0329:4a 04             send 4 

  032b:36                push 
  032c:35 05              ldi 5 
  032e:1a                 eq? 
  032f:31 2b              bnt code_035c 
  0331:38 00c5          pushi c5 // $c5 posn
  0334:7a               push2 
  0335:39 04            pushi 4 // $4 x
  0337:76               push0 
  0338:81 00              lag gEgo 
  033a:4a 04             send 4 

  033c:36                push 
  033d:35 05              ldi 5 
  033f:02                 add 
  0340:36                push 
  0341:39 03            pushi 3 // $3 y
  0343:76               push0 
  0344:81 00              lag gEgo 
  0346:4a 04             send 4 

  0348:36                push 
  0349:39 07            pushi 7 // $7 cel
  034b:78               push1 
  034c:76               push0 
  034d:38 00ca          pushi ca // $ca show
  0350:76               push0 
  0351:39 7e            pushi 7e // $7e setCycle
  0353:78               push1 
  0354:51 1a            class End 
  0356:36                push 
  0357:72 05d6          lofsa $0930 // Splash2
  035a:4a 18             send 18 


        code_035c
  035c:33 78              jmp code_03d6 

        code_035e
  035e:39 07            pushi 7 // $7 cel
  0360:76               push0 
  0361:81 00              lag gEgo 
  0363:4a 04             send 4 

  0365:36                push 
  0366:35 00              ldi 0 
  0368:1a                 eq? 
  0369:31 2f              bnt code_039a 
  036b:38 00c5          pushi c5 // $c5 posn
  036e:7a               push2 
  036f:39 04            pushi 4 // $4 x
  0371:76               push0 
  0372:81 00              lag gEgo 
  0374:4a 04             send 4 

  0376:36                push 
  0377:35 02              ldi 2 
  0379:04                 sub 
  037a:36                push 
  037b:39 03            pushi 3 // $3 y
  037d:76               push0 
  037e:81 00              lag gEgo 
  0380:4a 04             send 4 

  0382:36                push 
  0383:35 01              ldi 1 
  0385:02                 add 
  0386:36                push 
  0387:39 07            pushi 7 // $7 cel
  0389:78               push1 
  038a:76               push0 
  038b:38 00ca          pushi ca // $ca show
  038e:76               push0 
  038f:39 7e            pushi 7e // $7e setCycle
  0391:78               push1 
  0392:51 1a            class End 
  0394:36                push 
  0395:72 054a          lofsa $08e2 // Splash1
  0398:4a 18             send 18 


        code_039a
  039a:39 07            pushi 7 // $7 cel
  039c:76               push0 
  039d:81 00              lag gEgo 
  039f:4a 04             send 4 

  03a1:36                push 
  03a2:35 04              ldi 4 
  03a4:1a                 eq? 
  03a5:31 2f              bnt code_03d6 
  03a7:38 00c5          pushi c5 // $c5 posn
  03aa:7a               push2 
  03ab:39 04            pushi 4 // $4 x
  03ad:76               push0 
  03ae:81 00              lag gEgo 
  03b0:4a 04             send 4 

  03b2:36                push 
  03b3:35 02              ldi 2 
  03b5:04                 sub 
  03b6:36                push 
  03b7:39 03            pushi 3 // $3 y
  03b9:76               push0 
  03ba:81 00              lag gEgo 
  03bc:4a 04             send 4 

  03be:36                push 
  03bf:35 01              ldi 1 
  03c1:02                 add 
  03c2:36                push 
  03c3:39 07            pushi 7 // $7 cel
  03c5:78               push1 
  03c6:76               push0 
  03c7:38 00ca          pushi ca // $ca show
  03ca:76               push0 
  03cb:39 7e            pushi 7e // $7e setCycle
  03cd:78               push1 
  03ce:51 1a            class End 
  03d0:36                push 
  03d1:72 055c          lofsa $0930 // Splash2
  03d4:4a 18             send 18 


        code_03d6
  03d6:3a                toss 

        code_03d7
  03d7:38 00eb          pushi eb // $eb edgeHit
  03da:76               push0 
  03db:81 00              lag gEgo 
  03dd:4a 04             send 4 

  03df:36                push 
  03e0:3c                 dup 
  03e1:35 02              ldi 2 
  03e3:1a                 eq? 
  03e4:31 26              bnt code_040c 
  03e6:39 03            pushi 3 // $3 y
  03e8:76               push0 
  03e9:81 00              lag gEgo 
  03eb:4a 04             send 4 

  03ed:36                push 
  03ee:34 0087            ldi 87 
  03f1:22                 lt? 
  03f2:31 0c              bnt code_0400 
  03f4:38 00f8          pushi f8 // $f8 newRoom
  03f7:78               push1 
  03f8:39 0e            pushi e // $e lsLeft
  03fa:81 02              lag gCurRoom 
  03fc:4a 06             send 6 

  03fe:33 0a              jmp code_040a 

        code_0400
  0400:38 00f8          pushi f8 // $f8 newRoom
  0403:78               push1 
  0404:39 15            pushi 15 // $15 brBottom
  0406:81 02              lag gCurRoom 
  0408:4a 06             send 6 


        code_040a
  040a:33 2a              jmp code_0436 

        code_040c
  040c:3c                 dup 
  040d:35 03              ldi 3 
  040f:1a                 eq? 
  0410:31 24              bnt code_0436 
  0412:39 04            pushi 4 // $4 x
  0414:76               push0 
  0415:81 00              lag gEgo 
  0417:4a 04             send 4 

  0419:36                push 
  041a:34 00bc            ldi bc 
  041d:1e                 gt? 
  041e:31 0c              bnt code_042c 
  0420:38 00f8          pushi f8 // $f8 newRoom
  0423:78               push1 
  0424:39 14            pushi 14 // $14 brLeft
  0426:81 02              lag gCurRoom 
  0428:4a 06             send 6 

  042a:33 0a              jmp code_0436 

        code_042c
  042c:38 00f8          pushi f8 // $f8 newRoom
  042f:78               push1 
  0430:39 19            pushi 19 // $19 time
  0432:81 02              lag gCurRoom 
  0434:4a 06             send 6 


        code_0436
  0436:3a                toss 
  0437:39 3c            pushi 3c // $3c doit
  0439:76               push0 
  043a:57 37 04         super Rm 4 

  043d:48                 ret 
    )

    (method (dispose) // method_043e
  043e:39 58            pushi 58 // $58 dispose
  0440:76               push0 
  0441:57 37 04         super Rm 4 

  0444:48                 ret 
    )

    (method (newRoom) // method_0445
  0445:8f 01              lsp param1 
  0447:35 45              ldi 45 
  0449:1a                 eq? 
  044a:31 0b              bnt code_0457 
  044c:38 0084          pushi 84 // $84 stop
  044f:76               push0 
  0450:80 00b7            lag gConMusic 
  0453:4a 04             send 4 

  0455:33 13              jmp code_046a 

        code_0457
  0457:88 00c6            lsg global198 
  045a:34 00c8            ldi c8 
  045d:1a                 eq? 
  045e:31 0a              bnt code_046a 
  0460:c0 00c6            +ag global198 
  0463:89 7b              lsg gCorpseFlags 
  0465:35 02              ldi 2 
  0467:14                  or 
  0468:a1 7b              sag gCorpseFlags 

        code_046a
  046a:38 00f8          pushi f8 // $f8 newRoom
  046d:78               push1 
  046e:8f 01              lsp param1 
  0470:57 37 06         super Rm 6 

  0473:48                 ret 
    )

    (method (handleEvent) // method_0474
  0474:3f 01             link 1 // (var $1)
  0476:39 4c            pushi 4c // $4c claimed
  0478:76               push0 
  0479:87 01              lap param1 
  047b:4a 04             send 4 

  047d:31 03              bnt code_0482 
  047f:35 01              ldi 1 
  0481:48                 ret 

        code_0482
  0482:39 22            pushi 22 // $22 type
  0484:76               push0 
  0485:87 01              lap param1 
  0487:4a 04             send 4 

  0489:36                push 
  048a:34 0080            ldi 80 
  048d:1a                 eq? 
  048e:30 00a7            bnt code_0538 
  0491:78               push1 
  0492:74 031e          lofss $07b3 // look>
  0495:43 25 02         callk Said 2 

  0498:31 6b              bnt code_0505 
  049a:78               push1 
  049b:74 02cd          lofss $076b // [<around,at][/room]
  049e:43 25 02         callk Said 2 

  04a1:31 0c              bnt code_04af 
  04a3:7a               push2 
  04a4:39 0d            pushi d // $d lsTop
  04a6:76               push0 
  04a7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04ad:33 54              jmp code_0503 

        code_04af
  04af:78               push1 
  04b0:74 02b1          lofss $0764 // <dans/room
  04b3:43 25 02         callk Said 2 

  04b6:31 0c              bnt code_04c4 
  04b8:7a               push2 
  04b9:39 0d            pushi d // $d lsTop
  04bb:78               push1 
  04bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04c2:33 3f              jmp code_0503 

        code_04c4
  04c4:78               push1 
  04c5:74 0288          lofss $0750 // /chapel
  04c8:43 25 02         callk Said 2 

  04cb:31 0c              bnt code_04d9 
  04cd:7a               push2 
  04ce:39 0d            pushi d // $d lsTop
  04d0:7a               push2 
  04d1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04d7:33 2a              jmp code_0503 

        code_04d9
  04d9:78               push1 
  04da:74 027b          lofss $0758 // <(dans,above)/barriere
  04dd:43 25 02         callk Said 2 

  04e0:31 0d              bnt code_04ef 
  04e2:7a               push2 
  04e3:39 0d            pushi d // $d lsTop
  04e5:39 03            pushi 3 // $3 y
  04e7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04ed:33 14              jmp code_0503 

        code_04ef
  04ef:78               push1 
  04f0:74 0261          lofss $0754 // /barriere
  04f3:43 25 02         callk Said 2 

  04f6:31 0b              bnt code_0503 
  04f8:7a               push2 
  04f9:39 0d            pushi d // $d lsTop
  04fb:39 04            pushi 4 // $4 x
  04fd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0503
  0503:33 33              jmp code_0538 

        code_0505
  0505:78               push1 
  0506:74 0243          lofss $074c // /archway
  0509:43 25 02         callk Said 2 

  050c:31 0d              bnt code_051b 
  050e:7a               push2 
  050f:39 0d            pushi d // $d lsTop
  0511:39 05            pushi 5 // $5 view
  0513:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0519:33 1d              jmp code_0538 

        code_051b
  051b:78               push1 
  051c:74 0260          lofss $077f // climb,hop/barriere
  051f:43 25 02         callk Said 2 

  0522:2f 09               bt code_052d 
  0524:78               push1 
  0525:74 0260          lofss $0788 // enter,((aller,get)<dans)/barriere
  0528:43 25 02         callk Said 2 

  052b:31 0b              bnt code_0538 

        code_052d
  052d:7a               push2 
  052e:39 0d            pushi d // $d lsTop
  0530:39 06            pushi 6 // $6 loop
  0532:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0538
  0538:48                 ret 
    )

)

// 082a
(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_0539
  0539:87 01              lap param1 
  053b:65 0a             aTop state 
  053d:36                push 
  053e:3c                 dup 
  053f:35 00              ldi 0 
  0541:1a                 eq? 
  0542:31 38              bnt code_057c 
  0544:76               push0 
  0545:45 03 00         callb procedure_0003 0 // HandsOff 

  0548:39 2b            pushi 2b // $2b number
  054a:78               push1 
  054b:39 6b            pushi 6b // $6b addToFront
  054d:39 06            pushi 6 // $6 loop
  054f:78               push1 
  0550:78               push1 
  0551:39 2a            pushi 2a // $2a play
  0553:76               push0 
  0554:72 0503          lofsa $0a5a // mySound
  0557:4a 10             send 10 

  0559:38 00a4          pushi a4 // $a4 cycleSpeed
  055c:78               push1 
  055d:39 03            pushi 3 // $3 y
  055f:39 7e            pushi 7e // $7e setCycle
  0561:7a               push2 
  0562:51 1a            class End 
  0564:36                push 
  0565:7c            pushSelf 
  0566:72 0327          lofsa $0890 // Door
  0569:4a 0e             send e 

  056b:80 0083            lag global131 
  056e:18                 not 
  056f:31 09              bnt code_057a 
  0571:38 00d7          pushi d7 // $d7 ignoreControl
  0574:78               push1 
  0575:7a               push2 
  0576:81 00              lag gEgo 
  0578:4a 06             send 6 


        code_057a
  057a:33 46              jmp code_05c2 

        code_057c
  057c:3c                 dup 
  057d:35 01              ldi 1 
  057f:1a                 eq? 
  0580:31 2e              bnt code_05b0 
  0582:38 00c6          pushi c6 // $c6 stopUpd
  0585:76               push0 
  0586:72 0307          lofsa $0890 // Door
  0589:4a 04             send 4 

  058b:80 0083            lag global131 
  058e:18                 not 
  058f:31 14              bnt code_05a5 
  0591:38 00d3          pushi d3 // $d3 setMotion
  0594:39 03            pushi 3 // $3 y
  0596:51 1d            class MoveTo 
  0598:36                push 
  0599:38 0091          pushi 91 // $91 isType
  059c:38 0085          pushi 85 // $85 check
  059f:81 00              lag gEgo 
  05a1:4a 0a             send a 

  05a3:33 09              jmp code_05ae 

        code_05a5
  05a5:35 02              ldi 2 
  05a7:a0 0083            sag global131 
  05aa:35 01              ldi 1 
  05ac:65 10             aTop cycles 

        code_05ae
  05ae:33 12              jmp code_05c2 

        code_05b0
  05b0:3c                 dup 
  05b1:35 02              ldi 2 
  05b3:1a                 eq? 
  05b4:31 0c              bnt code_05c2 
  05b6:76               push0 
  05b7:45 04 00         callb procedure_0004 0 // HandsOn 

  05ba:39 7a            pushi 7a // $7a setScript
  05bc:78               push1 
  05bd:76               push0 
  05be:63 08             pToa client 
  05c0:4a 06             send 6 


        code_05c2
  05c2:3a                toss 
  05c3:48                 ret 
    )

)

// 085a
(instance exit 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_05c4
  05c4:87 01              lap param1 
  05c6:65 0a             aTop state 
  05c8:36                push 
  05c9:3c                 dup 
  05ca:35 00              ldi 0 
  05cc:1a                 eq? 
  05cd:31 1f              bnt code_05ee 
  05cf:39 7e            pushi 7e // $7e setCycle
  05d1:7a               push2 
  05d2:51 1b            class Beg 
  05d4:36                push 
  05d5:7c            pushSelf 
  05d6:72 02b7          lofsa $0890 // Door
  05d9:4a 08             send 8 

  05db:39 2b            pushi 2b // $2b number
  05dd:78               push1 
  05de:39 6c            pushi 6c // $6c addToEnd
  05e0:39 06            pushi 6 // $6 loop
  05e2:78               push1 
  05e3:78               push1 
  05e4:39 2a            pushi 2a // $2a play
  05e6:76               push0 
  05e7:72 0470          lofsa $0a5a // mySound
  05ea:4a 10             send 10 

  05ec:33 12              jmp code_0600 

        code_05ee
  05ee:3c                 dup 
  05ef:35 01              ldi 1 
  05f1:1a                 eq? 
  05f2:31 0c              bnt code_0600 
  05f4:76               push0 
  05f5:45 04 00         callb procedure_0004 0 // HandsOn 

  05f8:39 7a            pushi 7a // $7a setScript
  05fa:78               push1 
  05fb:76               push0 
  05fc:63 08             pToa client 
  05fe:4a 06             send 6 


        code_0600
  0600:3a                toss 
  0601:48                 ret 
    )

)

// 088a
(instance Door of Prop
    (properties
        y $47
        x $a3
        z $0
        heading $0
        yStep $2
        view $71
        loop $0
        cel $0
        priority $3
        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_0602
  0602:39 03            pushi 3 // $3 y
  0604:7c            pushSelf 
  0605:8f 01              lsp param1 
  0607:39 03            pushi 3 // $3 y
  0609:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  060f:2f 09               bt code_061a 
  0611:78               push1 
  0612:74 0192          lofss $07a7 // look/door
  0615:43 25 02         callk Said 2 

  0618:31 13              bnt code_062d 

        code_061a
  061a:39 4c            pushi 4c // $4c claimed
  061c:78               push1 
  061d:78               push1 
  061e:87 01              lap param1 
  0620:4a 06             send 6 

  0622:7a               push2 
  0623:39 0d            pushi d // $d lsTop
  0625:39 07            pushi 7 // $7 cel
  0627:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_062d
  062d:48                 ret 
    )

)

// 08dc
(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
    )
)

// 092a
(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
    )
)

// 0978
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $45
        nsLeft $10
        nsBottom $5c
        nsRight $2c
    )
    (method (handleEvent) // method_062e
  062e:78               push1 
  062f:74 018e          lofss $07c0 // open,look<(dans,through)/fenetre,room
  0632:43 25 02         callk Said 2 

  0635:31 0d              bnt code_0644 
  0637:7a               push2 
  0638:39 0d            pushi d // $d lsTop
  063a:39 08            pushi 8 // $8 underBits
  063c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0642:33 41              jmp code_0685 

        code_0644
  0644:78               push1 
  0645:74 0131          lofss $0779 // break/fenetre
  0648:43 25 02         callk Said 2 

  064b:31 0d              bnt code_065a 
  064d:7a               push2 
  064e:39 0d            pushi d // $d lsTop
  0650:39 09            pushi 9 // $9 nsTop
  0652:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0658:33 2b              jmp code_0685 

        code_065a
  065a:39 03            pushi 3 // $3 y
  065c:7c            pushSelf 
  065d:8f 01              lsp param1 
  065f:39 03            pushi 3 // $3 y
  0661:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0667:2f 09               bt code_0672 
  0669:78               push1 
  066a:74 0140          lofss $07ad // look/fenetre
  066d:43 25 02         callk Said 2 

  0670:31 13              bnt code_0685 

        code_0672
  0672:39 4c            pushi 4c // $4c claimed
  0674:78               push1 
  0675:78               push1 
  0676:87 01              lap param1 
  0678:4a 06             send 6 

  067a:7a               push2 
  067b:39 0d            pushi d // $d lsTop
  067d:39 0a            pushi a // $a nsLeft
  067f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0685
  0685:48                 ret 
    )

)

// 09a4
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $4c
        nsLeft $3c
        nsBottom $62
        nsRight $5a
    )
    (method (handleEvent) // method_0686
  0686:39 03            pushi 3 // $3 y
  0688:7c            pushSelf 
  0689:8f 01              lsp param1 
  068b:39 03            pushi 3 // $3 y
  068d:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0693:31 13              bnt code_06a8 
  0695:39 4c            pushi 4c // $4c claimed
  0697:78               push1 
  0698:78               push1 
  0699:87 01              lap param1 
  069b:4a 06             send 6 

  069d:7a               push2 
  069e:39 0d            pushi d // $d lsTop
  06a0:39 0a            pushi a // $a nsLeft
  06a2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06a8
  06a8:48                 ret 
    )

)

// 09d0
(instance Window3 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $b
        nsLeft $73
        nsBottom $24
        nsRight $af
    )
    (method (handleEvent) // method_06a9
  06a9:39 03            pushi 3 // $3 y
  06ab:7c            pushSelf 
  06ac:8f 01              lsp param1 
  06ae:39 03            pushi 3 // $3 y
  06b0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06b6:31 13              bnt code_06cb 
  06b8:39 4c            pushi 4c // $4c claimed
  06ba:78               push1 
  06bb:78               push1 
  06bc:87 01              lap param1 
  06be:4a 06             send 6 

  06c0:7a               push2 
  06c1:39 0d            pushi d // $d lsTop
  06c3:39 0a            pushi a // $a nsLeft
  06c5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06cb
  06cb:48                 ret 
    )

)

// 09fc
(instance Hay1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $7a
        nsLeft $67
        nsBottom $95
        nsRight $82
    )
    (method (handleEvent) // method_06cc
  06cc:78               push1 
  06cd:74 00e7          lofss $07b7 // bouger,appuyer/bale
  06d0:43 25 02         callk Said 2 

  06d3:31 0d              bnt code_06e2 
  06d5:7a               push2 
  06d6:39 0d            pushi d // $d lsTop
  06d8:39 0b            pushi b // $b nsBottom
  06da:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06e0:33 41              jmp code_0723 

        code_06e2
  06e2:78               push1 
  06e3:74 00b5          lofss $079b // get/bale
  06e6:43 25 02         callk Said 2 

  06e9:31 0d              bnt code_06f8 
  06eb:7a               push2 
  06ec:39 0d            pushi d // $d lsTop
  06ee:39 0c            pushi c // $c nsRight
  06f0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06f6:33 2b              jmp code_0723 

        code_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 0096          lofss $07a1 // look/bale
  070b:43 25 02         callk Said 2 

  070e:31 13              bnt code_0723 

        code_0710
  0710:39 4c            pushi 4c // $4c claimed
  0712:78               push1 
  0713:78               push1 
  0714:87 01              lap param1 
  0716:4a 06             send 6 

  0718:7a               push2 
  0719:39 0d            pushi d // $d lsTop
  071b:39 0d            pushi d // $d lsTop
  071d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0723
  0723:48                 ret 
    )

)

// 0a28
(instance Hay2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $6f
        nsLeft $d4
        nsBottom $7b
        nsRight $ef
    )
    (method (handleEvent) // method_0724
  0724:39 03            pushi 3 // $3 y
  0726:7c            pushSelf 
  0727:8f 01              lsp param1 
  0729:39 03            pushi 3 // $3 y
  072b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0731:31 13              bnt code_0746 
  0733:39 4c            pushi 4c // $4c claimed
  0735:78               push1 
  0736:78               push1 
  0737:87 01              lap param1 
  0739:4a 06             send 6 

  073b:7a               push2 
  073c:39 0d            pushi d // $d lsTop
  073e:39 0d            pushi d // $d lsTop
  0740:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0746
  0746:48                 ret 
  0747:00                bnot 
    )

)

// 0a54
(instance mySound of Sound
    (properties
        state $0
        number $6b
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)



