(script 51)

(string
    string_06e0 "Falling"
    string_06e8 "Room51"
    string_06ef "Scurry"
    string_06f6 "glow"
    string_06fb "rat"
    string_06ff "ratNoise"
    string_0708 "trapdoor"
    string_0711 "tumble"
)

(said
    said_047e */bone
    said_0484 */dinosaur
    said_048a /boulder
    said_048e /mouse>
    said_0493 /escalier
    said_0497 [<around,at][/room]
    said_04a5 climb/escalier
    said_04ab clore/trapdoor
    said_04b1 get,attraper
    said_04b7 abattre
    said_04ba look
    said_04bd look/trapdoor
    said_04c3 look<haut
    said_04c9 look>
    said_04cd open/trapdoor
)

(synonym
    escalier | stair | staircase | stairway | step = upstair
    room = room
    room = passage | passageway | tunnel
)

(local
    local0 = $0000
)

// 04da
(instance glow of HighLite
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        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
        highLiteX $0
        highLiteY $0
        deltaX $0
        deltaY $0
        leadingEdge $0
        ignoreCast $0
        eyesID $0
    )
)

// 0536
(instance public Room51 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $33
        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 00              ldi 0 
  0020:65 16             aTop horizon 
  0022:35 37              ldi 37 
  0024:65 20             aTop west 
  0026:35 33              ldi 33 
  0028:a0 00bd            sag global189 
  002b:39 57            pushi 57 // $57 init
  002d:76               push0 
  002e:57 37 04         super Rm 4 

  0031:38 010a          pushi 10a // $10a setRegions
  0034:78               push1 
  0035:38 00f2          pushi f2 // $f2 read
  0038:38 010b          pushi 10b // $10b setFeatures
  003b:78               push1 
  003c:74 066d          lofss $06ac // trapdoor
  003f:54 0c             self c 

  0041:39 61            pushi 61 // $61 add
  0043:78               push1 
  0044:74 0665          lofss $06ac // trapdoor
  0047:39 62            pushi 62 // $62 eachElementDo
  0049:78               push1 
  004a:39 57            pushi 57 // $57 init
  004c:39 3c            pushi 3c // $3c doit
  004e:76               push0 
  004f:81 0a              lag gAddToPics 
  0051:4a 10             send 10 

  0053:80 0089            lag global137 
  0056:30 00ad            bnt code_0106 
  0059:89 0c              lsg gPrevRoomNum 
  005b:35 41              ldi 41 
  005d:1a                 eq? 
  005e:31 2d              bnt code_008d 
  0060:35 00              ldi 0 
  0062:a3 00              sal local0 
  0064:76               push0 
  0065:45 03 00         callb procedure_0003 0 // HandsOff 

  0068:39 06            pushi 6 // $6 loop
  006a:78               push1 
  006b:78               push1 
  006c:38 00c5          pushi c5 // $c5 posn
  006f:7a               push2 
  0070:38 00de          pushi de // $de horizon
  0073:39 5b            pushi 5b // $5b perform
  0075:39 12            pushi 12 // $12 illegalBits
  0077:78               push1 
  0078:76               push0 
  0079:38 00d3          pushi d3 // $d3 setMotion
  007c:39 04            pushi 4 // $4 x
  007e:51 1d            class MoveTo 
  0080:36                push 
  0081:39 74            pushi 74 // $74 lastSeconds
  0083:38 00aa          pushi aa // $aa triedToMove
  0086:7c            pushSelf 
  0087:81 00              lag gEgo 
  0089:4a 20             send 20 

  008b:33 12              jmp code_009f 

        code_008d
  008d:35 01              ldi 1 
  008f:a3 00              sal local0 
  0091:39 06            pushi 6 // $6 loop
  0093:78               push1 
  0094:76               push0 
  0095:39 03            pushi 3 // $3 y
  0097:78               push1 
  0098:38 00aa          pushi aa // $aa triedToMove
  009b:81 00              lag gEgo 
  009d:4a 0c             send c 


        code_009f
  009f:39 05            pushi 5 // $5 view
  00a1:78               push1 
  00a2:39 07            pushi 7 // $7 cel
  00a4:39 36            pushi 36 // $36 xStep
  00a6:78               push1 
  00a7:39 03            pushi 3 // $3 y
  00a9:39 57            pushi 57 // $57 init
  00ab:76               push0 
  00ac:81 00              lag gEgo 
  00ae:4a 10             send 10 

  00b0:38 0146          pushi 146 // $146 deltaX
  00b3:78               push1 
  00b4:39 08            pushi 8 // $8 underBits
  00b6:38 0147          pushi 147 // $147 deltaY
  00b9:78               push1 
  00ba:39 08            pushi 8 // $8 underBits
  00bc:38 0149          pushi 149 // $149 ignoreCast
  00bf:78               push1 
  00c0:78               push1 
  00c1:39 57            pushi 57 // $57 init
  00c3:76               push0 
  00c4:72 0419          lofsa $04e0 // glow
  00c7:4a 16             send 16 

  00c9:39 05            pushi 5 // $5 view
  00cb:78               push1 
  00cc:38 0097          pushi 97 // $97 open
  00cf:38 00c8          pushi c8 // $c8 setLoop
  00d2:78               push1 
  00d3:39 03            pushi 3 // $3 y
  00d5:38 00dc          pushi dc // $dc setStep
  00d8:7a               push2 
  00d9:39 05            pushi 5 // $5 view
  00db:39 05            pushi 5 // $5 view
  00dd:39 12            pushi 12 // $12 illegalBits
  00df:78               push1 
  00e0:76               push0 
  00e1:38 00c9          pushi c9 // $c9 ignoreActors
  00e4:78               push1 
  00e5:78               push1 
  00e6:38 00c5          pushi c5 // $c5 posn
  00e9:7a               push2 
  00ea:38 008b          pushi 8b // $8b select
  00ed:38 00ab          pushi ab // $ab setTarget
  00f0:39 7e            pushi 7e // $7e setCycle
  00f2:78               push1 
  00f3:51 17            class Walk 
  00f5:36                push 
  00f6:39 57            pushi 57 // $57 init
  00f8:76               push0 
  00f9:39 7a            pushi 7a // $7a setScript
  00fb:78               push1 
  00fc:74 04c1          lofss $05c0 // Scurry
  00ff:72 04ee          lofsa $05f0 // rat
  0102:4a 38             send 38 

  0104:33 27              jmp code_012d 

        code_0106
  0106:76               push0 
  0107:45 03 00         callb procedure_0003 0 // HandsOff 

  010a:39 05            pushi 5 // $5 view
  010c:78               push1 
  010d:39 31            pushi 31 // $31 b-i1
  010f:39 06            pushi 6 // $6 loop
  0111:78               push1 
  0112:78               push1 
  0113:38 00c5          pushi c5 // $c5 posn
  0116:7a               push2 
  0117:38 00de          pushi de // $de horizon
  011a:39 5b            pushi 5b // $5b perform
  011c:39 12            pushi 12 // $12 illegalBits
  011e:78               push1 
  011f:76               push0 
  0120:39 57            pushi 57 // $57 init
  0122:76               push0 
  0123:39 7a            pushi 7a // $7a setScript
  0125:78               push1 
  0126:74 0467          lofss $0590 // tumble
  0129:81 00              lag gEgo 
  012b:4a 24             send 24 


        code_012d
  012d:48                 ret 
    )

    (method (doit) // method_012e
  012e:76               push0 
  012f:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0132:31 0f              bnt code_0143 
  0134:80 0089            lag global137 
  0137:31 0a              bnt code_0143 
  0139:7a               push2 
  013a:39 33            pushi 33 // $33 b-di
  013c:76               push0 
  013d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0143
  0143:83 00              lal local0 
  0145:18                 not 
  0146:31 11              bnt code_0159 
  0148:39 04            pushi 4 // $4 x
  014a:76               push0 
  014b:81 00              lag gEgo 
  014d:4a 04             send 4 

  014f:36                push 
  0150:35 75              ldi 75 
  0152:22                 lt? 
  0153:31 04              bnt code_0159 
  0155:35 01              ldi 1 
  0157:a3 00              sal local0 

        code_0159
  0159:83 00              lal local0 
  015b:31 28              bnt code_0185 
  015d:38 00db          pushi db // $db onControl
  0160:78               push1 
  0161:78               push1 
  0162:81 00              lag gEgo 
  0164:4a 06             send 6 

  0166:36                push 
  0167:35 08              ldi 8 
  0169:12                 and 
  016a:31 19              bnt code_0185 
  016c:76               push0 
  016d:45 03 00         callb procedure_0003 0 // HandsOff 

  0170:39 12            pushi 12 // $12 illegalBits
  0172:78               push1 
  0173:76               push0 
  0174:38 00d3          pushi d3 // $d3 setMotion
  0177:39 03            pushi 3 // $3 y
  0179:51 1d            class MoveTo 
  017b:36                push 
  017c:38 00f4          pushi f4 // $f4 description
  017f:39 50            pushi 50 // $50 title
  0181:81 00              lag gEgo 
  0183:4a 10             send 10 


        code_0185
  0185:38 00db          pushi db // $db onControl
  0188:78               push1 
  0189:78               push1 
  018a:81 00              lag gEgo 
  018c:4a 06             send 6 

  018e:36                push 
  018f:35 02              ldi 2 
  0191:12                 and 
  0192:31 14              bnt code_01a8 
  0194:39 12            pushi 12 // $12 illegalBits
  0196:78               push1 
  0197:38 8000          pushi 8000 // $8000 sel_32768
  019a:81 00              lag gEgo 
  019c:4a 06             send 6 

  019e:38 00f8          pushi f8 // $f8 newRoom
  01a1:78               push1 
  01a2:39 41            pushi 41 // $41 replay
  01a4:81 02              lag gCurRoom 
  01a6:4a 06             send 6 


        code_01a8
  01a8:39 3c            pushi 3c // $3c doit
  01aa:76               push0 
  01ab:57 37 04         super Rm 4 

  01ae:48                 ret 
    )

    (method (dispose) // method_01af
  01af:78               push1 
  01b0:38 00d6          pushi d6 // $d6 observeControl
  01b3:43 03 02         callk DisposeScript 2 

  01b6:39 58            pushi 58 // $58 dispose
  01b8:76               push0 
  01b9:57 37 04         super Rm 4 

  01bc:48                 ret 
    )

    (method (newRoom) // method_01bd
  01bd:38 00f8          pushi f8 // $f8 newRoom
  01c0:78               push1 
  01c1:8f 01              lsp param1 
  01c3:57 37 06         super Rm 6 

  01c6:48                 ret 
    )

    (method (handleEvent) // method_01c7
  01c7:3f 01             link 1 // (var $1)
  01c9:39 4c            pushi 4c // $4c claimed
  01cb:76               push0 
  01cc:87 01              lap param1 
  01ce:4a 04             send 4 

  01d0:31 01              bnt code_01d3 
  01d2:48                 ret 

        code_01d3
  01d3:39 22            pushi 22 // $22 type
  01d5:76               push0 
  01d6:87 01              lap param1 
  01d8:4a 04             send 4 

  01da:36                push 
  01db:34 0080            ldi 80 
  01de:1a                 eq? 
  01df:30 00b6            bnt code_0298 
  01e2:78               push1 
  01e3:74 029e          lofss $0484 // */dinosaur
  01e6:43 25 02         callk Said 2 

  01e9:31 0d              bnt code_01f8 
  01eb:7a               push2 
  01ec:39 33            pushi 33 // $33 b-di
  01ee:78               push1 
  01ef:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01f5:32 00a0            jmp code_0298 

        code_01f8
  01f8:78               push1 
  01f9:74 0282          lofss $047e // */bone
  01fc:43 25 02         callk Said 2 

  01ff:31 0d              bnt code_020e 
  0201:7a               push2 
  0202:39 33            pushi 33 // $33 b-di
  0204:7a               push2 
  0205:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  020b:32 008a            jmp code_0298 

        code_020e
  020e:78               push1 
  020f:74 02b7          lofss $04c9 // look>
  0212:43 25 02         callk Said 2 

  0215:31 41              bnt code_0258 
  0217:78               push1 
  0218:74 027c          lofss $0497 // [<around,at][/room]
  021b:43 25 02         callk Said 2 

  021e:31 0c              bnt code_022c 
  0220:7a               push2 
  0221:39 33            pushi 33 // $33 b-di
  0223:76               push0 
  0224:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  022a:33 2a              jmp code_0256 

        code_022c
  022c:78               push1 
  022d:74 0263          lofss $0493 // /escalier
  0230:43 25 02         callk Said 2 

  0233:31 0d              bnt code_0242 
  0235:7a               push2 
  0236:39 33            pushi 33 // $33 b-di
  0238:39 03            pushi 3 // $3 y
  023a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0240:33 14              jmp code_0256 

        code_0242
  0242:78               push1 
  0243:74 0244          lofss $048a // /boulder
  0246:43 25 02         callk Said 2 

  0249:31 0b              bnt code_0256 
  024b:7a               push2 
  024c:39 33            pushi 33 // $33 b-di
  024e:39 04            pushi 4 // $4 x
  0250:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0256
  0256:33 40              jmp code_0298 

        code_0258
  0258:78               push1 
  0259:74 0271          lofss $04cd // open/trapdoor
  025c:43 25 02         callk Said 2 

  025f:31 0d              bnt code_026e 
  0261:7a               push2 
  0262:39 33            pushi 33 // $33 b-di
  0264:39 05            pushi 5 // $5 view
  0266:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  026c:33 2a              jmp code_0298 

        code_026e
  026e:78               push1 
  026f:74 0239          lofss $04ab // clore/trapdoor
  0272:43 25 02         callk Said 2 

  0275:31 0d              bnt code_0284 
  0277:7a               push2 
  0278:39 33            pushi 33 // $33 b-di
  027a:39 06            pushi 6 // $6 loop
  027c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0282:33 14              jmp code_0298 

        code_0284
  0284:78               push1 
  0285:74 021d          lofss $04a5 // climb/escalier
  0288:43 25 02         callk Said 2 

  028b:31 0b              bnt code_0298 
  028d:7a               push2 
  028e:39 33            pushi 33 // $33 b-di
  0290:39 07            pushi 7 // $7 cel
  0292:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0298
  0298:48                 ret 
    )

    (method (cue) // method_0299
  0299:76               push0 
  029a:45 04 00         callb procedure_0004 0 // HandsOn 

  029d:39 12            pushi 12 // $12 illegalBits
  029f:78               push1 
  02a0:38 8000          pushi 8000 // $8000 sel_32768
  02a3:81 00              lag gEgo 
  02a5:4a 06             send 6 

  02a7:48                 ret 
    )

)

// 058a
(instance tumble 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_02a8
  02a8:87 01              lap param1 
  02aa:65 0a             aTop state 
  02ac:36                push 
  02ad:3c                 dup 
  02ae:35 00              ldi 0 
  02b0:1a                 eq? 
  02b1:31 1a              bnt code_02cd 
  02b3:39 3f            pushi 3f // $3f priority
  02b5:78               push1 
  02b6:39 05            pushi 5 // $5 view
  02b8:39 2a            pushi 2a // $2a play
  02ba:76               push0 
  02bb:72 039a          lofsa $0658 // Falling
  02be:4a 0a             send a 

  02c0:39 7e            pushi 7e // $7e setCycle
  02c2:7a               push2 
  02c3:51 1a            class End 
  02c5:36                push 
  02c6:7c            pushSelf 
  02c7:81 00              lag gEgo 
  02c9:4a 08             send 8 

  02cb:33 7b              jmp code_0348 

        code_02cd
  02cd:3c                 dup 
  02ce:35 01              ldi 1 
  02d0:1a                 eq? 
  02d1:31 2a              bnt code_02fd 
  02d3:38 00c8          pushi c8 // $c8 setLoop
  02d6:78               push1 
  02d7:39 03            pushi 3 // $3 y
  02d9:39 7e            pushi 7e // $7e setCycle
  02db:78               push1 
  02dc:51 16            class Fwd 
  02de:36                push 
  02df:39 36            pushi 36 // $36 xStep
  02e1:78               push1 
  02e2:39 08            pushi 8 // $8 underBits
  02e4:39 37            pushi 37 // $37 yStep
  02e6:78               push1 
  02e7:39 08            pushi 8 // $8 underBits
  02e9:38 00d3          pushi d3 // $d3 setMotion
  02ec:39 04            pushi 4 // $4 x
  02ee:51 1d            class MoveTo 
  02f0:36                push 
  02f1:39 64            pushi 64 // $64 allTrue
  02f3:38 009e          pushi 9e // $9e completed
  02f6:7c            pushSelf 
  02f7:81 00              lag gEgo 
  02f9:4a 24             send 24 

  02fb:33 4b              jmp code_0348 

        code_02fd
  02fd:3c                 dup 
  02fe:35 02              ldi 2 
  0300:1a                 eq? 
  0301:31 28              bnt code_032b 
  0303:38 00c5          pushi c5 // $c5 posn
  0306:7a               push2 
  0307:39 67            pushi 67 // $67 first
  0309:38 00ab          pushi ab // $ab setTarget
  030c:38 00c8          pushi c8 // $c8 setLoop
  030f:78               push1 
  0310:39 05            pushi 5 // $5 view
  0312:39 07            pushi 7 // $7 cel
  0314:78               push1 
  0315:76               push0 
  0316:39 7e            pushi 7e // $7e setCycle
  0318:7a               push2 
  0319:51 1a            class End 
  031b:36                push 
  031c:7c            pushSelf 
  031d:81 00              lag gEgo 
  031f:4a 1c             send 1c 

  0321:7a               push2 
  0322:39 05            pushi 5 // $5 view
  0324:39 05            pushi 5 // $5 view
  0326:43 6a 04         callk ShakeScreen 4 

  0329:33 1d              jmp code_0348 

        code_032b
  032b:3c                 dup 
  032c:35 03              ldi 3 
  032e:1a                 eq? 
  032f:31 17              bnt code_0348 
  0331:35 31              ldi 31 
  0333:a0 0080            sag global128 
  0336:35 05              ldi 5 
  0338:a0 0081            sag global129 
  033b:35 04              ldi 4 
  033d:a0 0082            sag global130 
  0340:7a               push2 
  0341:39 33            pushi 33 // $33 b-di
  0343:39 08            pushi 8 // $8 underBits
  0345:45 13 04         callb procedure_0013 4 // EgoDead 


        code_0348
  0348:3a                toss 
  0349:48                 ret 
    )

)

// 05ba
(instance Scurry 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_034a
  034a:87 01              lap param1 
  034c:65 0a             aTop state 
  034e:36                push 
  034f:3c                 dup 
  0350:35 00              ldi 0 
  0352:1a                 eq? 
  0353:31 0c              bnt code_0361 
  0355:7a               push2 
  0356:39 03            pushi 3 // $3 y
  0358:39 05            pushi 5 // $5 view
  035a:43 40 04         callk Random 4 

  035d:65 12             aTop seconds 
  035f:33 39              jmp code_039a 

        code_0361
  0361:3c                 dup 
  0362:35 01              ldi 1 
  0364:1a                 eq? 
  0365:31 1d              bnt code_0384 
  0367:38 00d3          pushi d3 // $d3 setMotion
  036a:39 04            pushi 4 // $4 x
  036c:51 1d            class MoveTo 
  036e:36                push 
  036f:39 f6            pushi f6 // $f6 carrying
  0371:38 00a9          pushi a9 // $a9 moveDone
  0374:7c            pushSelf 
  0375:72 0278          lofsa $05f0 // rat
  0378:4a 0c             send c 

  037a:39 2a            pushi 2a // $2a play
  037c:76               push0 
  037d:72 0302          lofsa $0682 // ratNoise
  0380:4a 04             send 4 

  0382:33 16              jmp code_039a 

        code_0384
  0384:3c                 dup 
  0385:35 02              ldi 2 
  0387:1a                 eq? 
  0388:31 10              bnt code_039a 
  038a:39 58            pushi 58 // $58 dispose
  038c:76               push0 
  038d:72 0260          lofsa $05f0 // rat
  0390:4a 04             send 4 

  0392:39 7a            pushi 7a // $7a setScript
  0394:78               push1 
  0395:76               push0 
  0396:63 08             pToa client 
  0398:4a 06             send 6 


        code_039a
  039a:3a                toss 
  039b:48                 ret 
    )

)

// 05ea
(instance rat of Act
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_039c
  039c:78               push1 
  039d:74 00ee          lofss $048e // /mouse>
  03a0:43 25 02         callk Said 2 

  03a3:31 72              bnt code_0417 
  03a5:78               push1 
  03a6:74 0111          lofss $04ba // look
  03a9:43 25 02         callk Said 2 

  03ac:31 1d              bnt code_03cb 
  03ae:39 3b            pushi 3b // $3b mover
  03b0:76               push0 
  03b1:72 023c          lofsa $05f0 // rat
  03b4:4a 04             send 4 

  03b6:31 0d              bnt code_03c5 
  03b8:7a               push2 
  03b9:39 33            pushi 33 // $33 b-di
  03bb:39 09            pushi 9 // $9 nsTop
  03bd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03c3:33 04              jmp code_03c9 

        code_03c5
  03c5:76               push0 
  03c6:45 12 00         callb procedure_0012 0 // NotHere 


        code_03c9
  03c9:33 4a              jmp code_0415 

        code_03cb
  03cb:78               push1 
  03cc:74 00e2          lofss $04b1 // get,attraper
  03cf:43 25 02         callk Said 2 

  03d2:31 1d              bnt code_03f1 
  03d4:39 3b            pushi 3b // $3b mover
  03d6:76               push0 
  03d7:72 0216          lofsa $05f0 // rat
  03da:4a 04             send 4 

  03dc:31 0d              bnt code_03eb 
  03de:7a               push2 
  03df:39 33            pushi 33 // $33 b-di
  03e1:39 0a            pushi a // $a nsLeft
  03e3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03e9:33 04              jmp code_03ef 

        code_03eb
  03eb:76               push0 
  03ec:45 12 00         callb procedure_0012 0 // NotHere 


        code_03ef
  03ef:33 24              jmp code_0415 

        code_03f1
  03f1:78               push1 
  03f2:74 00c2          lofss $04b7 // abattre
  03f5:43 25 02         callk Said 2 

  03f8:31 1b              bnt code_0415 
  03fa:39 3b            pushi 3b // $3b mover
  03fc:76               push0 
  03fd:72 01f0          lofsa $05f0 // rat
  0400:4a 04             send 4 

  0402:31 0d              bnt code_0411 
  0404:7a               push2 
  0405:39 33            pushi 33 // $33 b-di
  0407:39 0b            pushi b // $b nsBottom
  0409:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  040f:33 04              jmp code_0415 

        code_0411
  0411:76               push0 
  0412:45 12 00         callb procedure_0012 0 // NotHere 


        code_0415
  0415:33 2c              jmp code_0443 

        code_0417
  0417:39 3b            pushi 3b // $3b mover
  0419:76               push0 
  041a:72 01d3          lofsa $05f0 // rat
  041d:4a 04             send 4 

  041f:31 22              bnt code_0443 
  0421:39 03            pushi 3 // $3 y
  0423:7c            pushSelf 
  0424:8f 01              lsp param1 
  0426:39 03            pushi 3 // $3 y
  0428:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  042e:31 13              bnt code_0443 
  0430:39 4c            pushi 4c // $4c claimed
  0432:78               push1 
  0433:78               push1 
  0434:87 01              lap param1 
  0436:4a 06             send 6 

  0438:7a               push2 
  0439:39 33            pushi 33 // $33 b-di
  043b:39 09            pushi 9 // $9 nsTop
  043d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0443
  0443:48                 ret 
    )

)

// 0652
(instance Falling of Sound
    (properties
        state $0
        number $46
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 067c
(instance ratNoise of Sound
    (properties
        state $0
        number $3a
        priority $0
        loop $1
        handle $0
        signal $0
        prevSignal $0
        client $0
        owner $0
    )
)

// 06a6
(instance trapdoor of RPicView
    (properties
        y $37
        x $ef
        z $0
        heading $0
        view $97
        loop $0
        cel $0
        priority $3
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0444
  0444:39 03            pushi 3 // $3 y
  0446:7c            pushSelf 
  0447:8f 01              lsp param1 
  0449:39 03            pushi 3 // $3 y
  044b:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0451:2f 12               bt code_0465 
  0453:78               push1 
  0454:74 0066          lofss $04bd // look/trapdoor
  0457:43 25 02         callk Said 2 

  045a:2f 09               bt code_0465 
  045c:78               push1 
  045d:74 0063          lofss $04c3 // look<haut
  0460:43 25 02         callk Said 2 

  0463:31 13              bnt code_0478 

        code_0465
  0465:39 4c            pushi 4c // $4c claimed
  0467:78               push1 
  0468:78               push1 
  0469:87 01              lap param1 
  046b:4a 06             send 6 

  046d:7a               push2 
  046e:39 33            pushi 33 // $33 b-di
  0470:39 0c            pushi c // $c nsRight
  0472:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0478
  0478:48                 ret 
  0479:00                bnot 
    )

)



