(script 242)

(string
    string_02b4 "myMusic"
    string_02bc "tunnelReg"
)

(said
    said_0222 /beam
    said_0226 /boulder
    said_022a /dirt
    said_022e /eye
    said_0232 /mouse
    said_0236 /mur
    said_023a <bas[/!*]
    said_0243 eteindre,eteindre,(rotate<off)
    said_0251 ecouter
    said_0254 look>
)

(local
)

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

// 0288
(instance public tunnelReg of Rgn
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
    )
    (method (init) // method_000c
  000c:39 57            pushi 57 // $57 init
  000e:76               push0 
  000f:57 36 04         super Rgn 4 

  0012:89 0b              lsg gCurRoomNum 
  0014:35 34              ldi 34 
  0016:1c                 ne? 
  0017:31 12              bnt code_002b 
  0019:39 2b            pushi 2b // $2b number
  001b:78               push1 
  001c:39 3d            pushi 3d // $3d isBlocked
  001e:39 06            pushi 6 // $6 loop
  0020:78               push1 
  0021:39 ff            pushi ff // $ff checkAni
  0023:39 2a            pushi 2a // $2a play
  0025:76               push0 
  0026:72 023b          lofsa $0264 // myMusic
  0029:4a 10             send 10 


        code_002b
  002b:48                 ret 
    )

    (method (dispose) // method_002c
  002c:39 58            pushi 58 // $58 dispose
  002e:76               push0 
  002f:57 36 04         super Rgn 4 

  0032:48                 ret 
    )

    (method (handleEvent) // method_0033
  0033:3f 06             link 6 // (var $6)
  0035:39 4c            pushi 4c // $4c claimed
  0037:76               push0 
  0038:87 01              lap param1 
  003a:4a 04             send 4 

  003c:31 03              bnt code_0041 
  003e:35 01              ldi 1 
  0040:48                 ret 

        code_0041
  0041:39 22            pushi 22 // $22 type
  0043:76               push0 
  0044:87 01              lap param1 
  0046:4a 04             send 4 

  0048:36                push 
  0049:35 01              ldi 1 
  004b:1a                 eq? 
  004c:31 77              bnt code_00c5 
  004e:39 40            pushi 40 // $40 modifiers
  0050:76               push0 
  0051:87 01              lap param1 
  0053:4a 04             send 4 

  0055:36                push 
  0056:35 03              ldi 3 
  0058:12                 and 
  0059:18                 not 
  005a:31 69              bnt code_00c5 
  005c:89 0b              lsg gCurRoomNum 
  005e:35 33              ldi 33 
  0060:1a                 eq? 
  0061:2f 1c               bt code_007f 
  0063:89 0b              lsg gCurRoomNum 
  0065:35 37              ldi 37 
  0067:1a                 eq? 
  0068:2f 15               bt code_007f 
  006a:89 0b              lsg gCurRoomNum 
  006c:35 38              ldi 38 
  006e:1a                 eq? 
  006f:31 54              bnt code_00c5 
  0071:38 00db          pushi db // $db onControl
  0074:76               push0 
  0075:81 00              lag gEgo 
  0077:4a 04             send 4 

  0079:36                push 
  007a:35 04              ldi 4 
  007c:12                 and 
  007d:31 46              bnt code_00c5 

        code_007f
  007f:39 4c            pushi 4c // $4c claimed
  0081:78               push1 
  0082:78               push1 
  0083:87 01              lap param1 
  0085:4a 06             send 6 


        code_0087
  0087:7a               push2 
  0088:39 22            pushi 22 // $22 type
  008a:76               push0 
  008b:39 56            pushi 56 // $56 new
  008d:76               push0 
  008e:51 06            class Event 
  0090:4a 04             send 4 

  0092:a5 00              sat temp0 
  0094:4a 04             send 4 

  0096:1c                 ne? 
  0097:31 25              bnt code_00be 
  0099:38 00d3          pushi d3 // $d3 setMotion
  009c:39 03            pushi 3 // $3 y
  009e:51 1d            class MoveTo 
  00a0:36                push 
  00a1:39 04            pushi 4 // $4 x
  00a3:76               push0 
  00a4:85 00              lat temp0 
  00a6:4a 04             send 4 

  00a8:36                push 
  00a9:39 03            pushi 3 // $3 y
  00ab:76               push0 
  00ac:81 00              lag gEgo 
  00ae:4a 04             send 4 

  00b0:36                push 
  00b1:81 00              lag gEgo 
  00b3:4a 0a             send a 

  00b5:39 58            pushi 58 // $58 dispose
  00b7:76               push0 
  00b8:85 00              lat temp0 
  00ba:4a 04             send 4 

  00bc:33 c9              jmp code_0087 

        code_00be
  00be:39 58            pushi 58 // $58 dispose
  00c0:76               push0 
  00c1:85 00              lat temp0 
  00c3:4a 04             send 4 


        code_00c5
  00c5:39 22            pushi 22 // $22 type
  00c7:76               push0 
  00c8:87 01              lap param1 
  00ca:4a 04             send 4 

  00cc:36                push 
  00cd:34 0080            ldi 80 
  00d0:1a                 eq? 
  00d1:30 0148            bnt code_021c 
  00d4:78               push1 
  00d5:74 017c          lofss $0254 // look>
  00d8:43 25 02         callk Said 2 

  00db:30 0112            bnt code_01f0 
  00de:35 00              ldi 0 
  00e0:a5 02              sat temp2 
  00e2:a5 01              sat temp1 
  00e4:39 67            pushi 67 // $67 first
  00e6:76               push0 
  00e7:81 05              lag gCast 
  00e9:4a 04             send 4 

  00eb:a5 03              sat temp3 

        code_00ed
  00ed:85 03              lat temp3 
  00ef:31 54              bnt code_0145 
  00f1:39 44            pushi 44 // $44 next
  00f3:78               push1 
  00f4:8d 03              lst temp3 
  00f6:81 05              lag gCast 
  00f8:4a 06             send 6 

  00fa:a5 04              sat temp4 
  00fc:78               push1 
  00fd:78               push1 
  00fe:8d 03              lst temp3 
  0100:43 3a 02         callk NodeValue 2 

  0103:a5 05              sat temp5 
  0105:36                push 
  0106:43 06 02         callk IsObject 2 

  0109:31 34              bnt code_013f 
  010b:39 05            pushi 5 // $5 view
  010d:76               push0 
  010e:85 05              lat temp5 
  0110:4a 04             send 4 

  0112:36                push 
  0113:34 009b            ldi 9b 
  0116:1a                 eq? 
  0117:31 26              bnt code_013f 
  0119:39 11            pushi 11 // $11 signal
  011b:76               push0 
  011c:85 05              lat temp5 
  011e:4a 04             send 4 

  0120:36                push 
  0121:34 0080            ldi 80 
  0124:12                 and 
  0125:18                 not 
  0126:31 17              bnt code_013f 
  0128:39 06            pushi 6 // $6 loop
  012a:76               push0 
  012b:85 05              lat temp5 
  012d:4a 04             send 4 

  012f:36                push 
  0130:35 00              ldi 0 
  0132:1a                 eq? 
  0133:31 06              bnt code_013b 
  0135:35 01              ldi 1 
  0137:a5 02              sat temp2 
  0139:33 04              jmp code_013f 

        code_013b
  013b:35 01              ldi 1 
  013d:a5 01              sat temp1 

        code_013f
  013f:85 04              lat temp4 
  0141:a5 03              sat temp3 
  0143:33 a8              jmp code_00ed 

        code_0145
  0145:78               push1 
  0146:74 00d9          lofss $0222 // /beam
  0149:43 25 02         callk Said 2 

  014c:31 1f              bnt code_016d 
  014e:85 02              lat temp2 
  0150:2f 07               bt code_0159 
  0152:89 0b              lsg gCurRoomNum 
  0154:35 33              ldi 33 
  0156:1a                 eq? 
  0157:31 0d              bnt code_0166 

        code_0159
  0159:7a               push2 
  015a:38 00f2          pushi f2 // $f2 read
  015d:76               push0 
  015e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0164:33 04              jmp code_016a 

        code_0166
  0166:76               push0 
  0167:45 12 00         callb procedure_0012 0 // NotHere 


        code_016a
  016a:32 0081            jmp code_01ee 

        code_016d
  016d:78               push1 
  016e:74 00b9          lofss $022a // /dirt
  0171:43 25 02         callk Said 2 

  0174:2f 09               bt code_017f 
  0176:78               push1 
  0177:74 00c0          lofss $023a // <bas[/!*]
  017a:43 25 02         callk Said 2 

  017d:31 0d              bnt code_018c 

        code_017f
  017f:7a               push2 
  0180:38 00f2          pushi f2 // $f2 read
  0183:78               push1 
  0184:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  018a:33 62              jmp code_01ee 

        code_018c
  018c:78               push1 
  018d:74 00a6          lofss $0236 // /mur
  0190:43 25 02         callk Said 2 

  0193:31 0d              bnt code_01a2 
  0195:7a               push2 
  0196:38 00f2          pushi f2 // $f2 read
  0199:7a               push2 
  019a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01a0:33 4c              jmp code_01ee 

        code_01a2
  01a2:78               push1 
  01a3:74 0080          lofss $0226 // /boulder
  01a6:43 25 02         callk Said 2 

  01a9:31 1f              bnt code_01ca 
  01ab:89 0b              lsg gCurRoomNum 
  01ad:35 37              ldi 37 
  01af:1a                 eq? 
  01b0:31 12              bnt code_01c4 
  01b2:85 01              lat temp1 
  01b4:31 0e              bnt code_01c4 
  01b6:7a               push2 
  01b7:38 00f2          pushi f2 // $f2 read
  01ba:39 03            pushi 3 // $3 y
  01bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01c2:33 04              jmp code_01c8 

        code_01c4
  01c4:76               push0 
  01c5:45 12 00         callb procedure_0012 0 // NotHere 


        code_01c8
  01c8:33 24              jmp code_01ee 

        code_01ca
  01ca:78               push1 
  01cb:74 0060          lofss $022e // /eye
  01ce:43 25 02         callk Said 2 

  01d1:31 0e              bnt code_01e1 
  01d3:7a               push2 
  01d4:38 00f2          pushi f2 // $f2 read
  01d7:39 04            pushi 4 // $4 x
  01d9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  01df:33 0d              jmp code_01ee 

        code_01e1
  01e1:78               push1 
  01e2:74 004d          lofss $0232 // /mouse
  01e5:43 25 02         callk Said 2 

  01e8:31 04              bnt code_01ee 
  01ea:76               push0 
  01eb:45 12 00         callb procedure_0012 0 // NotHere 


        code_01ee
  01ee:33 2c              jmp code_021c 

        code_01f0
  01f0:78               push1 
  01f1:74 005d          lofss $0251 // ecouter
  01f4:43 25 02         callk Said 2 

  01f7:31 0e              bnt code_0207 
  01f9:7a               push2 
  01fa:38 00f2          pushi f2 // $f2 read
  01fd:39 05            pushi 5 // $5 view
  01ff:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0205:33 15              jmp code_021c 

        code_0207
  0207:78               push1 
  0208:74 0038          lofss $0243 // eteindre,eteindre,(rotate<off)
  020b:43 25 02         callk Said 2 

  020e:31 0c              bnt code_021c 
  0210:7a               push2 
  0211:38 00f2          pushi f2 // $f2 read
  0214:39 06            pushi 6 // $6 loop
  0216:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_021c
  021c:48                 ret 
  021d:00                bnot 
    )

)



