(script 9)

(string
    string_0a92 "Door"
    string_0a97 "Room9"
    string_0a9d "Thunder"
    string_0aa5 "Window1"
    string_0aad "Window2"
    string_0ab5 "chapelDoor"
    string_0ac0 "exitDoor"
    string_0ac9 "light1"
    string_0ad0 "mySound"
    string_0ad8 "showers"
)

(said
    said_07a0 /archway
    said_07a4 /cemetery
    said_07a8 /cross
    said_07ac /door
    said_07b0 /door,fenetre
    said_07b7 /barriere
    said_07bb /champ[<sucre,cane]
    said_07c7 /gallery
    said_07cb /grave,gravestone,ecriture
    said_07d5 /path
    said_07d9 /escalier
    said_07dd <behind/blind
    said_07e4 [<around,at][/room]
    said_07f2 bang[/door]
    said_07fa break/fenetre
    said_0800 climb,hop/barriere
    said_0809 clore>
    said_080d find/archway
    said_0813 get/cross
    said_0819 look/door
    said_081f look/fenetre
    said_0825 look<(dans,dans,dans,through)/fenetre,room
    said_083c look>
    said_0840 open/fenetre
    said_0846 open>
    said_084a etudier/gravestone,ecriture
)

(synonym
    gravestone | headstone | stele | tombstone = crypt | crypte | tomb | tombeau
    room = room
    room = chapel | chapelle | church | eglise
)

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

// 085a
(instance public Room9 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $9
        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_001e
  001e:35 0d              ldi d 
  0020:65 1e             aTop south 
  0022:35 03              ldi 3 
  0024:65 1c             aTop east 
  0026:35 56              ldi 56 
  0028:65 16             aTop horizon 
  002a:39 57            pushi 57 // $57 init
  002c:76               push0 
  002d:57 37 04         super Rm 4 

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

  003c:39 2b            pushi 2b // $2b number
  003e:78               push1 
  003f:39 11            pushi 11 // $11 signal
  0041:39 06            pushi 6 // $6 loop
  0043:78               push1 
  0044:76               push0 
  0045:72 099c          lofsa $09e4 // Thunder
  0048:4a 0c             send c 

  004a:88 00a5            lsg gAct 
  004d:35 01              ldi 1 
  004f:1a                 eq? 
  0050:31 09              bnt code_005b 
  0052:38 010a          pushi 10a // $10a setRegions
  0055:78               push1 
  0056:38 017d          pushi 17d // $17d sel_381
  0059:54 06             self 6 


        code_005b
  005b:80 00df            lag gDetailLevel 
  005e:31 0e              bnt code_006e 
  0060:39 57            pushi 57 // $57 init
  0062:76               push0 
  0063:39 7a            pushi 7a // $7a setScript
  0065:78               push1 
  0066:74 08a7          lofss $0910 // showers
  0069:72 0926          lofsa $0992 // light1
  006c:4a 0a             send a 


        code_006e
  006e:38 00c9          pushi c9 // $c9 ignoreActors
  0071:78               push1 
  0072:78               push1 
  0073:38 00c6          pushi c6 // $c6 stopUpd
  0076:76               push0 
  0077:39 57            pushi 57 // $57 init
  0079:76               push0 
  007a:72 08c3          lofsa $0940 // Door
  007d:4a 0e             send e 

  007f:39 05            pushi 5 // $5 view
  0081:78               push1 
  0082:76               push0 
  0083:39 12            pushi 12 // $12 illegalBits
  0085:78               push1 
  0086:38 8002          pushi 8002 // $8002 sel_32770
  0089:81 00              lag gEgo 
  008b:4a 0c             send c 

  008d:38 010b          pushi 10b // $10b setFeatures
  0090:7a               push2 
  0091:74 09a4          lofss $0a38 // Window1
  0094:74 09cd          lofss $0a64 // Window2
  0097:54 08             self 8 

  0099:88 00a5            lsg gAct 
  009c:35 02              ldi 2 
  009e:20                 ge? 
  009f:31 11              bnt code_00b2 
  00a1:88 00a5            lsg gAct 
  00a4:35 04              ldi 4 
  00a6:22                 lt? 
  00a7:31 09              bnt code_00b2 
  00a9:38 010a          pushi 10a // $10a setRegions
  00ac:78               push1 
  00ad:38 00ca          pushi ca // $ca show
  00b0:54 06             self 6 


        code_00b2
  00b2:88 00a5            lsg gAct 
  00b5:35 03              ldi 3 
  00b7:1a                 eq? 
  00b8:31 07              bnt code_00c1 
  00ba:89 72              lsg global114 
  00bc:35 0a              ldi a 
  00be:1c                 ne? 
  00bf:2f 10               bt code_00d1 

        code_00c1
  00c1:88 00a5            lsg gAct 
  00c4:35 06              ldi 6 
  00c6:1a                 eq? 
  00c7:31 11              bnt code_00da 
  00c9:89 76              lsg gMustDos 
  00cb:35 02              ldi 2 
  00cd:12                 and 
  00ce:18                 not 
  00cf:31 09              bnt code_00da 

        code_00d1
  00d1:38 010a          pushi 10a // $10a setRegions
  00d4:78               push1 
  00d5:38 0119          pushi 119 // $119 startExtra
  00d8:54 06             self 6 


        code_00da
  00da:35 00              ldi 0 
  00dc:a3 00              sal local0 
  00de:89 0c              lsg gPrevRoomNum 
  00e0:3c                 dup 
  00e1:35 0e              ldi e 
  00e3:1a                 eq? 
  00e4:31 11              bnt code_00f7 
  00e6:38 00c5          pushi c5 // $c5 posn
  00e9:7a               push2 
  00ea:38 011d          pushi 11d // $11d minimum
  00ed:38 00bc          pushi bc // $bc motionInited
  00f0:81 00              lag gEgo 
  00f2:4a 08             send 8 

  00f4:32 0086            jmp code_017d 

        code_00f7
  00f7:3c                 dup 
  00f8:35 02              ldi 2 
  00fa:1a                 eq? 
  00fb:31 0e              bnt code_010b 
  00fd:38 00c5          pushi c5 // $c5 posn
  0100:7a               push2 
  0101:39 3a            pushi 3a // $3a heading
  0103:39 72            pushi 72 // $72 cycles
  0105:81 00              lag gEgo 
  0107:4a 08             send 8 

  0109:33 72              jmp code_017d 

        code_010b
  010b:3c                 dup 
  010c:35 0d              ldi d 
  010e:1a                 eq? 
  010f:31 0f              bnt code_0120 
  0111:38 00c5          pushi c5 // $c5 posn
  0114:7a               push2 
  0115:39 44            pushi 44 // $44 next
  0117:38 00b9          pushi b9 // $b9 nonBumps
  011a:81 00              lag gEgo 
  011c:4a 08             send 8 

  011e:33 5d              jmp code_017d 

        code_0120
  0120:3c                 dup 
  0121:35 3a              ldi 3a 
  0123:1a                 eq? 
  0124:31 57              bnt code_017d 
  0126:88 0085            lsg global133 
  0129:35 01              ldi 1 
  012b:1a                 eq? 
  012c:31 17              bnt code_0145 
  012e:39 07            pushi 7 // $7 cel
  0130:78               push1 
  0131:76               push0 
  0132:72 080b          lofsa $0940 // Door
  0135:4a 06             send 6 

  0137:38 00c5          pushi c5 // $c5 posn
  013a:7a               push2 
  013b:39 6d            pushi 6d // $6d addAfter
  013d:39 7a            pushi 7a // $7a setScript
  013f:81 00              lag gEgo 
  0141:4a 08             send 8 

  0143:33 38              jmp code_017d 

        code_0145
  0145:39 07            pushi 7 // $7 cel
  0147:78               push1 
  0148:78               push1 
  0149:74 07f4          lofss $0940 // Door
  014c:43 0e 02         callk NumCels 2 

  014f:36                push 
  0150:35 01              ldi 1 
  0152:04                 sub 
  0153:36                push 
  0154:72 07e9          lofsa $0940 // Door
  0157:4a 06             send 6 

  0159:76               push0 
  015a:45 03 00         callb procedure_0003 0 // HandsOff 

  015d:39 06            pushi 6 // $6 loop
  015f:78               push1 
  0160:7a               push2 
  0161:39 12            pushi 12 // $12 illegalBits
  0163:78               push1 
  0164:38 8000          pushi 8000 // $8000 sel_32768
  0167:38 00c5          pushi c5 // $c5 posn
  016a:7a               push2 
  016b:38 00ed          pushi ed // $ed put
  016e:38 0084          pushi 84 // $84 stop
  0171:81 00              lag gEgo 
  0173:4a 14             send 14 

  0175:39 7a            pushi 7a // $7a setScript
  0177:78               push1 
  0178:74 0765          lofss $08e0 // exitDoor
  017b:54 06             self 6 


        code_017d
  017d:3a                toss 
  017e:39 57            pushi 57 // $57 init
  0180:76               push0 
  0181:81 00              lag gEgo 
  0183:4a 04             send 4 

  0185:48                 ret 
    )

    (method (doit) // method_0186
  0186:76               push0 
  0187:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  018a:31 0a              bnt code_0196 
  018c:7a               push2 
  018d:39 09            pushi 9 // $9 nsTop
  018f:76               push0 
  0190:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0196
  0196:39 3c            pushi 3c // $3c doit
  0198:76               push0 
  0199:57 37 04         super Rm 4 

  019c:38 00db          pushi db // $db onControl
  019f:78               push1 
  01a0:78               push1 
  01a1:81 00              lag gEgo 
  01a3:4a 06             send 6 

  01a5:36                push 
  01a6:3c                 dup 
  01a7:35 40              ldi 40 
  01a9:1a                 eq? 
  01aa:31 45              bnt code_01f1 
  01ac:39 06            pushi 6 // $6 loop
  01ae:76               push0 
  01af:81 00              lag gEgo 
  01b1:4a 04             send 4 

  01b3:36                push 
  01b4:35 01              ldi 1 
  01b6:1a                 eq? 
  01b7:2f 0d               bt code_01c6 
  01b9:39 06            pushi 6 // $6 loop
  01bb:76               push0 
  01bc:81 00              lag gEgo 
  01be:4a 04             send 4 

  01c0:36                push 
  01c1:35 03              ldi 3 
  01c3:1a                 eq? 
  01c4:31 28              bnt code_01ee 

        code_01c6
  01c6:35 01              ldi 1 
  01c8:a3 02              sal local2 
  01ca:38 00e9          pushi e9 // $e9 canControl
  01cd:78               push1 
  01ce:76               push0 
  01cf:51 2b            class User 
  01d1:4a 06             send 6 

  01d3:39 12            pushi 12 // $12 illegalBits
  01d5:78               push1 
  01d6:76               push0 
  01d7:38 00c8          pushi c8 // $c8 setLoop
  01da:78               push1 
  01db:78               push1 
  01dc:38 00d3          pushi d3 // $d3 setMotion
  01df:39 03            pushi 3 // $3 y
  01e1:51 1d            class MoveTo 
  01e3:36                push 
  01e4:38 010c          pushi 10c // $10c setLocales
  01e7:38 0085          pushi 85 // $85 check
  01ea:81 00              lag gEgo 
  01ec:4a 16             send 16 


        code_01ee
  01ee:32 00f6            jmp code_02e7 

        code_01f1
  01f1:3c                 dup 
  01f2:34 0080            ldi 80 
  01f5:1a                 eq? 
  01f6:31 45              bnt code_023d 
  01f8:39 06            pushi 6 // $6 loop
  01fa:76               push0 
  01fb:81 00              lag gEgo 
  01fd:4a 04             send 4 

  01ff:36                push 
  0200:35 00              ldi 0 
  0202:1a                 eq? 
  0203:2f 0d               bt code_0212 
  0205:39 06            pushi 6 // $6 loop
  0207:76               push0 
  0208:81 00              lag gEgo 
  020a:4a 04             send 4 

  020c:36                push 
  020d:35 02              ldi 2 
  020f:1a                 eq? 
  0210:31 28              bnt code_023a 

        code_0212
  0212:35 01              ldi 1 
  0214:a3 02              sal local2 
  0216:38 00e9          pushi e9 // $e9 canControl
  0219:78               push1 
  021a:76               push0 
  021b:51 2b            class User 
  021d:4a 06             send 6 

  021f:38 00c8          pushi c8 // $c8 setLoop
  0222:78               push1 
  0223:76               push0 
  0224:39 12            pushi 12 // $12 illegalBits
  0226:78               push1 
  0227:76               push0 
  0228:38 00d3          pushi d3 // $d3 setMotion
  022b:39 03            pushi 3 // $3 y
  022d:51 1d            class MoveTo 
  022f:36                push 
  0230:38 0126          pushi 126 // $126 curAngle
  0233:38 009e          pushi 9e // $9e completed
  0236:81 00              lag gEgo 
  0238:4a 16             send 16 


        code_023a
  023a:32 00aa            jmp code_02e7 

        code_023d
  023d:3c                 dup 
  023e:35 01              ldi 1 
  0240:1a                 eq? 
  0241:31 26              bnt code_0269 
  0243:8b 02              lsl local2 
  0245:35 01              ldi 1 
  0247:1a                 eq? 
  0248:31 1d              bnt code_0267 
  024a:35 00              ldi 0 
  024c:a3 02              sal local2 
  024e:38 00e9          pushi e9 // $e9 canControl
  0251:78               push1 
  0252:78               push1 
  0253:51 2b            class User 
  0255:4a 06             send 6 

  0257:39 12            pushi 12 // $12 illegalBits
  0259:78               push1 
  025a:38 8000          pushi 8000 // $8000 sel_32768
  025d:38 00c8          pushi c8 // $c8 setLoop
  0260:78               push1 
  0261:39 ff            pushi ff // $ff checkAni
  0263:81 00              lag gEgo 
  0265:4a 0c             send c 


        code_0267
  0267:33 7e              jmp code_02e7 

        code_0269
  0269:3c                 dup 
  026a:35 08              ldi 8 
  026c:1a                 eq? 
  026d:31 0b              bnt code_027a 
  026f:38 00f8          pushi f8 // $f8 newRoom
  0272:78               push1 
  0273:7a               push2 
  0274:81 02              lag gCurRoom 
  0276:4a 06             send 6 

  0278:33 6d              jmp code_02e7 

        code_027a
  027a:3c                 dup 
  027b:35 04              ldi 4 
  027d:1a                 eq? 
  027e:31 11              bnt code_0291 
  0280:35 01              ldi 1 
  0282:a0 0085            sag global133 
  0285:38 00f8          pushi f8 // $f8 newRoom
  0288:78               push1 
  0289:39 3a            pushi 3a // $3a heading
  028b:81 02              lag gCurRoom 
  028d:4a 06             send 6 

  028f:33 56              jmp code_02e7 

        code_0291
  0291:3c                 dup 
  0292:35 02              ldi 2 
  0294:1a                 eq? 
  0295:31 1b              bnt code_02b2 
  0297:76               push0 
  0298:45 04 00         callb procedure_0004 0 // HandsOn 

  029b:35 00              ldi 0 
  029d:a0 0085            sag global133 
  02a0:39 7a            pushi 7a // $7a setScript
  02a2:78               push1 
  02a3:76               push0 
  02a4:54 06             self 6 

  02a6:38 00f8          pushi f8 // $f8 newRoom
  02a9:78               push1 
  02aa:39 3a            pushi 3a // $3a heading
  02ac:81 02              lag gCurRoom 
  02ae:4a 06             send 6 

  02b0:33 35              jmp code_02e7 

        code_02b2
  02b2:3c                 dup 
  02b3:35 10              ldi 10 
  02b5:1a                 eq? 
  02b6:31 2f              bnt code_02e7 
  02b8:39 06            pushi 6 // $6 loop
  02ba:76               push0 
  02bb:81 00              lag gEgo 
  02bd:4a 04             send 4 

  02bf:36                push 
  02c0:35 03              ldi 3 
  02c2:1a                 eq? 
  02c3:2f 0d               bt code_02d2 
  02c5:39 06            pushi 6 // $6 loop
  02c7:76               push0 
  02c8:81 00              lag gEgo 
  02ca:4a 04             send 4 

  02cc:36                push 
  02cd:35 01              ldi 1 
  02cf:1a                 eq? 
  02d0:31 15              bnt code_02e7 

        code_02d2
  02d2:83 01              lal local1 
  02d4:18                 not 
  02d5:31 10              bnt code_02e7 
  02d7:76               push0 
  02d8:45 03 00         callb procedure_0003 0 // HandsOff 

  02db:35 01              ldi 1 
  02dd:a3 01              sal local1 
  02df:39 7a            pushi 7a // $7a setScript
  02e1:78               push1 
  02e2:74 05cb          lofss $08b0 // chapelDoor
  02e5:54 06             self 6 


        code_02e7
  02e7:3a                toss 
  02e8:38 00eb          pushi eb // $eb edgeHit
  02eb:76               push0 
  02ec:81 00              lag gEgo 
  02ee:4a 04             send 4 

  02f0:36                push 
  02f1:35 03              ldi 3 
  02f3:1a                 eq? 
  02f4:31 24              bnt code_031a 
  02f6:39 04            pushi 4 // $4 x
  02f8:76               push0 
  02f9:81 00              lag gEgo 
  02fb:4a 04             send 4 

  02fd:36                push 
  02fe:34 0113            ldi 113 
  0301:22                 lt? 
  0302:31 0c              bnt code_0310 
  0304:38 00f8          pushi f8 // $f8 newRoom
  0307:78               push1 
  0308:39 0d            pushi d // $d lsTop
  030a:81 02              lag gCurRoom 
  030c:4a 06             send 6 

  030e:33 0a              jmp code_031a 

        code_0310
  0310:38 00f8          pushi f8 // $f8 newRoom
  0313:78               push1 
  0314:39 0e            pushi e // $e lsLeft
  0316:81 02              lag gCurRoom 
  0318:4a 06             send 6 


        code_031a
  031a:48                 ret 
    )

    (method (dispose) // method_031b
  031b:39 58            pushi 58 // $58 dispose
  031d:76               push0 
  031e:57 37 04         super Rm 4 

  0321:48                 ret 
    )

    (method (newRoom) // method_0322
  0322:8f 01              lsp param1 
  0324:35 3a              ldi 3a 
  0326:1a                 eq? 
  0327:2f 07               bt code_0330 
  0329:8f 01              lsp param1 
  032b:35 02              ldi 2 
  032d:1a                 eq? 
  032e:31 09              bnt code_0339 

        code_0330
  0330:38 0084          pushi 84 // $84 stop
  0333:76               push0 
  0334:80 00b7            lag gConMusic 
  0337:4a 04             send 4 


        code_0339
  0339:38 00f8          pushi f8 // $f8 newRoom
  033c:78               push1 
  033d:8f 01              lsp param1 
  033f:57 37 06         super Rm 6 

  0342:48                 ret 
    )

    (method (handleEvent) // method_0343
  0343:3f 01             link 1 // (var $1)
  0345:39 4c            pushi 4c // $4c claimed
  0347:76               push0 
  0348:87 01              lap param1 
  034a:4a 04             send 4 

  034c:31 01              bnt code_034f 
  034e:48                 ret 

        code_034f
  034f:39 22            pushi 22 // $22 type
  0351:76               push0 
  0352:87 01              lap param1 
  0354:4a 04             send 4 

  0356:36                push 
  0357:34 0080            ldi 80 
  035a:1a                 eq? 
  035b:30 01ca            bnt code_0528 
  035e:78               push1 
  035f:74 04da          lofss $083c // look>
  0362:43 25 02         callk Said 2 

  0365:30 00f5            bnt code_045d 
  0368:78               push1 
  0369:74 0478          lofss $07e4 // [<around,at][/room]
  036c:43 25 02         callk Said 2 

  036f:31 0d              bnt code_037e 
  0371:7a               push2 
  0372:39 09            pushi 9 // $9 nsTop
  0374:76               push0 
  0375:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  037b:32 00dc            jmp code_045a 

        code_037e
  037e:78               push1 
  037f:74 0422          lofss $07a4 // /cemetery
  0382:43 25 02         callk Said 2 

  0385:31 0d              bnt code_0394 
  0387:7a               push2 
  0388:39 09            pushi 9 // $9 nsTop
  038a:78               push1 
  038b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0391:32 00c6            jmp code_045a 

        code_0394
  0394:78               push1 
  0395:74 041f          lofss $07b7 // /barriere
  0398:43 25 02         callk Said 2 

  039b:31 0d              bnt code_03aa 
  039d:7a               push2 
  039e:39 09            pushi 9 // $9 nsTop
  03a0:7a               push2 
  03a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03a7:32 00b0            jmp code_045a 

        code_03aa
  03aa:78               push1 
  03ab:74 03f2          lofss $07a0 // /archway
  03ae:43 25 02         callk Said 2 

  03b1:31 0e              bnt code_03c1 
  03b3:7a               push2 
  03b4:39 09            pushi 9 // $9 nsTop
  03b6:39 03            pushi 3 // $3 y
  03b8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03be:32 0099            jmp code_045a 

        code_03c1
  03c1:78               push1 
  03c2:74 03f6          lofss $07bb // /champ[<sucre,cane]
  03c5:43 25 02         callk Said 2 

  03c8:31 0e              bnt code_03d8 
  03ca:7a               push2 
  03cb:39 09            pushi 9 // $9 nsTop
  03cd:39 04            pushi 4 // $4 x
  03cf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03d5:32 0082            jmp code_045a 

        code_03d8
  03d8:78               push1 
  03d9:74 03f9          lofss $07d5 // /path
  03dc:43 25 02         callk Said 2 

  03df:31 0d              bnt code_03ee 
  03e1:7a               push2 
  03e2:39 09            pushi 9 // $9 nsTop
  03e4:39 05            pushi 5 // $5 view
  03e6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03ec:33 6c              jmp code_045a 

        code_03ee
  03ee:78               push1 
  03ef:74 03e7          lofss $07d9 // /escalier
  03f2:43 25 02         callk Said 2 

  03f5:31 0d              bnt code_0404 
  03f7:7a               push2 
  03f8:39 09            pushi 9 // $9 nsTop
  03fa:39 06            pushi 6 // $6 loop
  03fc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0402:33 56              jmp code_045a 

        code_0404
  0404:78               push1 
  0405:74 03bf          lofss $07c7 // /gallery
  0408:43 25 02         callk Said 2 

  040b:31 0d              bnt code_041a 
  040d:7a               push2 
  040e:39 09            pushi 9 // $9 nsTop
  0410:39 07            pushi 7 // $7 cel
  0412:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0418:33 40              jmp code_045a 

        code_041a
  041a:78               push1 
  041b:74 038a          lofss $07a8 // /cross
  041e:43 25 02         callk Said 2 

  0421:31 0d              bnt code_0430 
  0423:7a               push2 
  0424:39 09            pushi 9 // $9 nsTop
  0426:39 08            pushi 8 // $8 underBits
  0428:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  042e:33 2a              jmp code_045a 

        code_0430
  0430:78               push1 
  0431:74 0397          lofss $07cb // /grave,gravestone,ecriture
  0434:43 25 02         callk Said 2 

  0437:31 0d              bnt code_0446 
  0439:7a               push2 
  043a:39 09            pushi 9 // $9 nsTop
  043c:39 09            pushi 9 // $9 nsTop
  043e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0444:33 14              jmp code_045a 

        code_0446
  0446:78               push1 
  0447:74 0393          lofss $07dd // <behind/blind
  044a:43 25 02         callk Said 2 

  044d:31 0b              bnt code_045a 
  044f:7a               push2 
  0450:39 09            pushi 9 // $9 nsTop
  0452:39 0a            pushi a // $a nsLeft
  0454:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_045a
  045a:32 00cb            jmp code_0528 

        code_045d
  045d:78               push1 
  045e:74 03b2          lofss $0813 // get/cross
  0461:43 25 02         callk Said 2 

  0464:31 0e              bnt code_0474 
  0466:7a               push2 
  0467:39 09            pushi 9 // $9 nsTop
  0469:39 0b            pushi b // $b nsBottom
  046b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0471:32 00b4            jmp code_0528 

        code_0474
  0474:78               push1 
  0475:74 03d2          lofss $084a // etudier/gravestone,ecriture
  0478:43 25 02         callk Said 2 

  047b:31 0e              bnt code_048b 
  047d:7a               push2 
  047e:39 09            pushi 9 // $9 nsTop
  0480:39 09            pushi 9 // $9 nsTop
  0482:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0488:32 009d            jmp code_0528 

        code_048b
  048b:78               push1 
  048c:74 0363          lofss $07f2 // bang[/door]
  048f:43 25 02         callk Said 2 

  0492:31 0e              bnt code_04a2 
  0494:7a               push2 
  0495:39 09            pushi 9 // $9 nsTop
  0497:39 0c            pushi c // $c nsRight
  0499:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  049f:32 0086            jmp code_0528 

        code_04a2
  04a2:78               push1 
  04a3:74 0367          lofss $080d // find/archway
  04a6:43 25 02         callk Said 2 

  04a9:31 0d              bnt code_04b8 
  04ab:7a               push2 
  04ac:39 09            pushi 9 // $9 nsTop
  04ae:39 03            pushi 3 // $3 y
  04b0:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04b6:33 70              jmp code_0528 

        code_04b8
  04b8:78               push1 
  04b9:74 0344          lofss $0800 // climb,hop/barriere
  04bc:43 25 02         callk Said 2 

  04bf:31 0d              bnt code_04ce 
  04c1:7a               push2 
  04c2:39 09            pushi 9 // $9 nsTop
  04c4:39 0d            pushi d // $d lsTop
  04c6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04cc:33 5a              jmp code_0528 

        code_04ce
  04ce:78               push1 
  04cf:74 0374          lofss $0846 // open>
  04d2:43 25 02         callk Said 2 

  04d5:31 25              bnt code_04fc 
  04d7:78               push1 
  04d8:74 02c5          lofss $07a0 // /archway
  04db:43 25 02         callk Said 2 

  04de:31 06              bnt code_04e6 
  04e0:76               push0 
  04e1:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  04e4:33 14              jmp code_04fa 

        code_04e6
  04e6:78               push1 
  04e7:74 02c2          lofss $07ac // /door
  04ea:43 25 02         callk Said 2 

  04ed:31 0b              bnt code_04fa 
  04ef:7a               push2 
  04f0:39 09            pushi 9 // $9 nsTop
  04f2:39 0e            pushi e // $e lsLeft
  04f4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_04fa
  04fa:33 2c              jmp code_0528 

        code_04fc
  04fc:78               push1 
  04fd:74 0309          lofss $0809 // clore>
  0500:43 25 02         callk Said 2 

  0503:31 23              bnt code_0528 
  0505:78               push1 
  0506:74 0297          lofss $07a0 // /archway
  0509:43 25 02         callk Said 2 

  050c:31 0d              bnt code_051b 
  050e:7a               push2 
  050f:39 09            pushi 9 // $9 nsTop
  0511:39 0f            pushi f // $f lsBottom
  0513:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0519:33 0d              jmp code_0528 

        code_051b
  051b:78               push1 
  051c:74 0291          lofss $07b0 // /door,fenetre
  051f:43 25 02         callk Said 2 

  0522:31 04              bnt code_0528 
  0524:76               push0 
  0525:45 11 00         callb procedure_0011 0 // AlreadyClosed 


        code_0528
  0528:48                 ret 
    )

)

// 08aa
(instance chapelDoor 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_0529
  0529:87 01              lap param1 
  052b:65 0a             aTop state 
  052d:36                push 
  052e:3c                 dup 
  052f:35 00              ldi 0 
  0531:1a                 eq? 
  0532:31 0e              bnt code_0542 
  0534:39 12            pushi 12 // $12 illegalBits
  0536:78               push1 
  0537:76               push0 
  0538:81 00              lag gEgo 
  053a:4a 06             send 6 

  053c:35 02              ldi 2 
  053e:65 10             aTop cycles 
  0540:33 77              jmp code_05b9 

        code_0542
  0542:3c                 dup 
  0543:35 01              ldi 1 
  0545:1a                 eq? 
  0546:31 15              bnt code_055d 
  0548:38 00d3          pushi d3 // $d3 setMotion
  054b:39 04            pushi 4 // $4 x
  054d:51 1d            class MoveTo 
  054f:36                push 
  0550:38 00f0          pushi f0 // $f0 targetObj
  0553:38 0080          pushi 80 // $80 timeLeft
  0556:7c            pushSelf 
  0557:81 00              lag gEgo 
  0559:4a 0c             send c 

  055b:33 5c              jmp code_05b9 

        code_055d
  055d:3c                 dup 
  055e:35 02              ldi 2 
  0560:1a                 eq? 
  0561:31 3e              bnt code_05a1 
  0563:39 06            pushi 6 // $6 loop
  0565:78               push1 
  0566:78               push1 
  0567:81 00              lag gEgo 
  0569:4a 06             send 6 

  056b:38 0084          pushi 84 // $84 stop
  056e:76               push0 
  056f:80 00b7            lag gConMusic 
  0572:4a 04             send 4 

  0574:38 00a3          pushi a3 // $a3 startUpd
  0577:76               push0 
  0578:38 00c9          pushi c9 // $c9 ignoreActors
  057b:78               push1 
  057c:78               push1 
  057d:39 7e            pushi 7e // $7e setCycle
  057f:7a               push2 
  0580:51 1a            class End 
  0582:36                push 
  0583:7c            pushSelf 
  0584:72 03b9          lofsa $0940 // Door
  0587:4a 12             send 12 

  0589:39 2b            pushi 2b // $2b number
  058b:78               push1 
  058c:39 2b            pushi 2b // $2b number
  058e:39 06            pushi 6 // $6 loop
  0590:78               push1 
  0591:78               push1 
  0592:39 3f            pushi 3f // $3f priority
  0594:78               push1 
  0595:39 05            pushi 5 // $5 view
  0597:39 2a            pushi 2a // $2a play
  0599:76               push0 
  059a:72 0471          lofsa $0a0e // mySound
  059d:4a 16             send 16 

  059f:33 18              jmp code_05b9 

        code_05a1
  05a1:3c                 dup 
  05a2:35 03              ldi 3 
  05a4:1a                 eq? 
  05a5:31 12              bnt code_05b9 
  05a7:38 00d3          pushi d3 // $d3 setMotion
  05aa:39 03            pushi 3 // $3 y
  05ac:51 1d            class MoveTo 
  05ae:36                push 
  05af:38 00e1          pushi e1 // $e1 alterEgo
  05b2:38 0080          pushi 80 // $80 timeLeft
  05b5:81 00              lag gEgo 
  05b7:4a 0a             send a 


        code_05b9
  05b9:3a                toss 
  05ba:48                 ret 
    )

)

// 08da
(instance exitDoor 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_05bb
  05bb:87 01              lap param1 
  05bd:65 0a             aTop state 
  05bf:36                push 
  05c0:3c                 dup 
  05c1:35 00              ldi 0 
  05c3:1a                 eq? 
  05c4:31 24              bnt code_05ea 
  05c6:39 2b            pushi 2b // $2b number
  05c8:78               push1 
  05c9:39 2c            pushi 2c // $2c handle
  05cb:39 06            pushi 6 // $6 loop
  05cd:78               push1 
  05ce:78               push1 
  05cf:39 3f            pushi 3f // $3f priority
  05d1:78               push1 
  05d2:39 05            pushi 5 // $5 view
  05d4:39 2a            pushi 2a // $2a play
  05d6:76               push0 
  05d7:72 0434          lofsa $0a0e // mySound
  05da:4a 16             send 16 

  05dc:39 7e            pushi 7e // $7e setCycle
  05de:7a               push2 
  05df:51 1b            class Beg 
  05e1:36                push 
  05e2:7c            pushSelf 
  05e3:72 035a          lofsa $0940 // Door
  05e6:4a 08             send 8 

  05e8:33 12              jmp code_05fc 

        code_05ea
  05ea:3c                 dup 
  05eb:35 01              ldi 1 
  05ed:1a                 eq? 
  05ee:31 0c              bnt code_05fc 
  05f0:76               push0 
  05f1:45 04 00         callb procedure_0004 0 // HandsOn 

  05f4:39 7a            pushi 7a // $7a setScript
  05f6:78               push1 
  05f7:76               push0 
  05f8:63 08             pToa client 
  05fa:4a 06             send 6 


        code_05fc
  05fc:3a                toss 
  05fd:48                 ret 
    )

)

// 090a
(instance showers 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_05fe
  05fe:87 01              lap param1 
  0600:65 0a             aTop state 
  0602:36                push 
  0603:3c                 dup 
  0604:35 00              ldi 0 
  0606:1a                 eq? 
  0607:31 08              bnt code_0611 
  0609:35 03              ldi 3 
  060b:65 0a             aTop state 
  060d:65 12             aTop seconds 
  060f:33 62              jmp code_0673 

        code_0611
  0611:3c                 dup 
  0612:35 01              ldi 1 
  0614:1a                 eq? 
  0615:31 11              bnt code_0628 
  0617:39 7e            pushi 7e // $7e setCycle
  0619:78               push1 
  061a:51 16            class Fwd 
  061c:36                push 
  061d:72 0372          lofsa $0992 // light1
  0620:4a 06             send 6 

  0622:35 07              ldi 7 
  0624:65 10             aTop cycles 
  0626:33 4b              jmp code_0673 

        code_0628
  0628:3c                 dup 
  0629:35 02              ldi 2 
  062b:1a                 eq? 
  062c:31 1a              bnt code_0648 
  062e:39 7e            pushi 7e // $7e setCycle
  0630:7a               push2 
  0631:51 1a            class End 
  0633:36                push 
  0634:7c            pushSelf 
  0635:72 035a          lofsa $0992 // light1
  0638:4a 08             send 8 

  063a:39 06            pushi 6 // $6 loop
  063c:78               push1 
  063d:78               push1 
  063e:39 2a            pushi 2a // $2a play
  0640:76               push0 
  0641:72 03a0          lofsa $09e4 // Thunder
  0644:4a 0a             send a 

  0646:33 2b              jmp code_0673 

        code_0648
  0648:3c                 dup 
  0649:35 03              ldi 3 
  064b:1a                 eq? 
  064c:31 17              bnt code_0665 
  064e:7a               push2 
  064f:78               push1 
  0650:39 64            pushi 64 // $64 allTrue
  0652:43 40 04         callk Random 4 

  0655:36                push 
  0656:35 14              ldi 14 
  0658:22                 lt? 
  0659:31 04              bnt code_065f 
  065b:35 00              ldi 0 
  065d:65 0a             aTop state 

        code_065f
  065f:35 07              ldi 7 
  0661:65 10             aTop cycles 
  0663:33 0e              jmp code_0673 

        code_0665
  0665:3c                 dup 
  0666:35 04              ldi 4 
  0668:1a                 eq? 
  0669:31 08              bnt code_0673 
  066b:35 02              ldi 2 
  066d:65 0a             aTop state 
  066f:35 05              ldi 5 
  0671:65 12             aTop seconds 

        code_0673
  0673:3a                toss 
  0674:48                 ret 
    )

)

// 093a
(instance Door of Prop
    (properties
        y $82
        x $de
        z $0
        heading $0
        yStep $2
        view $6d
        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_0675
  0675:39 03            pushi 3 // $3 y
  0677:7c            pushSelf 
  0678:8f 01              lsp param1 
  067a:39 03            pushi 3 // $3 y
  067c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0682:2f 09               bt code_068d 
  0684:78               push1 
  0685:74 0191          lofss $0819 // look/door
  0688:43 25 02         callk Said 2 

  068b:31 32              bnt code_06bf 

        code_068d
  068d:39 4c            pushi 4c // $4c claimed
  068f:78               push1 
  0690:78               push1 
  0691:87 01              lap param1 
  0693:4a 06             send 6 

  0695:38 00da          pushi da // $da inRect
  0698:39 04            pushi 4 // $4 x
  069a:76               push0 
  069b:76               push0 
  069c:39 78            pushi 78 // $78 changeState
  069e:38 008c          pushi 8c // $8c track
  06a1:81 00              lag gEgo 
  06a3:4a 0c             send c 

  06a5:31 0d              bnt code_06b4 
  06a7:7a               push2 
  06a8:39 09            pushi 9 // $9 nsTop
  06aa:39 10            pushi 10 // $10 lsRight
  06ac:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06b2:33 0b              jmp code_06bf 

        code_06b4
  06b4:7a               push2 
  06b5:39 09            pushi 9 // $9 nsTop
  06b7:39 11            pushi 11 // $11 signal
  06b9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06bf
  06bf:48                 ret 
    )

)

// 098c
(instance light1 of Prop
    (properties
        y $1a
        x $40
        z $0
        heading $0
        yStep $2
        view $6d
        loop $1
        cel $1
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
    (method (handleEvent) // method_06c0
  06c0:39 03            pushi 3 // $3 y
  06c2:7c            pushSelf 
  06c3:8f 01              lsp param1 
  06c5:39 03            pushi 3 // $3 y
  06c7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  06cd:2f 09               bt code_06d8 
  06cf:78               push1 
  06d0:74 0146          lofss $0819 // look/door
  06d3:43 25 02         callk Said 2 

  06d6:31 13              bnt code_06eb 

        code_06d8
  06d8:39 4c            pushi 4c // $4c claimed
  06da:78               push1 
  06db:78               push1 
  06dc:87 01              lap param1 
  06de:4a 06             send 6 

  06e0:7a               push2 
  06e1:39 09            pushi 9 // $9 nsTop
  06e3:39 11            pushi 11 // $11 signal
  06e5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06eb
  06eb:48                 ret 
    )

)

// 09de
(instance Thunder of Sound
    (properties
        state $0
        number $0
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

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

// 0a32
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $3f
        nsLeft $77
        nsBottom $6b
        nsRight $87
    )
    (method (handleEvent) // method_06ec
  06ec:78               push1 
  06ed:74 0135          lofss $0825 // look<(dans,dans,dans,through)/fenetre,room
  06f0:43 25 02         callk Said 2 

  06f3:31 22              bnt code_0717 
  06f5:38 00db          pushi db // $db onControl
  06f8:78               push1 
  06f9:78               push1 
  06fa:81 00              lag gEgo 
  06fc:4a 06             send 6 

  06fe:36                push 
  06ff:35 20              ldi 20 
  0701:12                 and 
  0702:31 0d              bnt code_0711 
  0704:7a               push2 
  0705:39 09            pushi 9 // $9 nsTop
  0707:39 12            pushi 12 // $12 illegalBits
  0709:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  070f:33 04              jmp code_0715 

        code_0711
  0711:76               push0 
  0712:45 09 00         callb procedure_0009 0 // NotClose 


        code_0715
  0715:33 57              jmp code_076e 

        code_0717
  0717:39 03            pushi 3 // $3 y
  0719:7c            pushSelf 
  071a:8f 01              lsp param1 
  071c:39 03            pushi 3 // $3 y
  071e:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0724:2f 09               bt code_072f 
  0726:78               push1 
  0727:74 00f5          lofss $081f // look/fenetre
  072a:43 25 02         callk Said 2 

  072d:31 15              bnt code_0744 

        code_072f
  072f:39 4c            pushi 4c // $4c claimed
  0731:78               push1 
  0732:78               push1 
  0733:87 01              lap param1 
  0735:4a 06             send 6 

  0737:7a               push2 
  0738:39 09            pushi 9 // $9 nsTop
  073a:39 13            pushi 13 // $13 brTop
  073c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0742:33 2a              jmp code_076e 

        code_0744
  0744:78               push1 
  0745:74 00f8          lofss $0840 // open/fenetre
  0748:43 25 02         callk Said 2 

  074b:31 0d              bnt code_075a 
  074d:7a               push2 
  074e:39 09            pushi 9 // $9 nsTop
  0750:39 14            pushi 14 // $14 brLeft
  0752:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0758:33 14              jmp code_076e 

        code_075a
  075a:78               push1 
  075b:74 009c          lofss $07fa // break/fenetre
  075e:43 25 02         callk Said 2 

  0761:31 0b              bnt code_076e 
  0763:7a               push2 
  0764:39 09            pushi 9 // $9 nsTop
  0766:39 15            pushi 15 // $15 brBottom
  0768:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_076e
  076e:48                 ret 
    )

)

// 0a5e
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $3d
        nsLeft $a0
        nsBottom $6c
        nsRight $c1
    )
    (method (handleEvent) // method_076f
  076f:39 03            pushi 3 // $3 y
  0771:7c            pushSelf 
  0772:8f 01              lsp param1 
  0774:39 03            pushi 3 // $3 y
  0776:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  077c:2f 09               bt code_0787 
  077e:78               push1 
  077f:74 009d          lofss $081f // look/fenetre
  0782:43 25 02         callk Said 2 

  0785:31 13              bnt code_079a 

        code_0787
  0787:39 4c            pushi 4c // $4c claimed
  0789:78               push1 
  078a:78               push1 
  078b:87 01              lap param1 
  078d:4a 06             send 6 

  078f:7a               push2 
  0790:39 09            pushi 9 // $9 nsTop
  0792:39 13            pushi 13 // $13 brTop
  0794:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_079a
  079a:48                 ret 
  079b:00                bnot 
    )

)



