(script 65)

(string
    string_15b4 "Drop1"
    string_15ba "Room65"
    string_15c1 "Splash1"
    string_15c9 "Splash2"
    string_15d1 "Trap"
    string_15d6 "bend"
    string_15db "dripping"
    string_15e4 "fountain"
    string_15ed "goDown"
    string_15f4 "myDoor"
    string_15fb "myMusic"
    string_1603 "shaft"
    string_1609 "statue"
    string_1610 "urn"
    string_1614 "urn1"
    string_1619 "water1"
    string_1620 "water2"
    string_1627 ""
)

(said
    said_0f9a /archway
    said_0f9e /arbuste,arbuste
    said_0fa5 /passage
    said_0fa9 /shaft
    said_0fad /escalier
    said_0fb1 /eau
    said_0fb5 [<around,at][/room]
    said_0fc3 attach,attach,attach/control/shaft
    said_0fd2 attach,attach/control/shaft
    said_0fde attach,attach/valve,fontainier/shaft
    said_0fed clore/archway
    said_0ff3 clore/trapdoor
    said_0ff9 boire/eau,fontaine
    said_1002 enter,aller,(get<dans),patauger,climb/eau,fontaine
    said_101c feel,(attach<deliver)/fontaine,eau
    said_102d arracher/shaft
    said_1033 get,detach/valve,fontainier
    said_103f get/boire
    said_1045 get/shaft
    said_104b get/urn
    said_1051 get/eau
    said_1057 lift,get/monument
    said_1060 look,find/trapdoor
    said_1069 look/base,monument,monument
    said_1075 look/fontaine
    said_107b look/urn,pedestal
    said_1084 look<(dans,bas)/trapdoor
    said_1092 look<bas
    said_1098 look<dans/fontaine,eau
    said_10a4 look<dans/urn
    said_10ad look>
    said_10b1 bouger,appuyer,attirer,rotate,rotate/monument
    said_10c3 bouger,appuyer,attirer,rotate/fontaine
    said_10d2 bouger/urn
    said_10d8 huile/shaft
    said_10de open/archway
    said_10e4 open/trapdoor
    said_10ea appuyer,bouger,attirer/shaft,square
    said_10f9 rotate,rotate,spin,rotate/shaft
    said_1108 rotate,rotate/valve,fontainier
    said_1114 rotate/fontaine<off
    said_111d rotate/fontaine<on
    said_1126 rotate<off/fontaine
    said_112f rotate<on/fontaine
)

(synonym
    monument | nymph | satyr | statue = monument | nymph | satyr | statue
    room = garden | jardin | parc | park
    bullet | cartouche = ball | balle
    fontainier | handle | manche | poignee = cle | clef | key
)

(local
    local0 = $0000
    local1 = $0000
)

// 113e
(instance public Room65 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $41
        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_00f9
  00f9:35 12              ldi 12 
  00fb:65 1e             aTop south 
  00fd:39 57            pushi 57 // $57 init
  00ff:76               push0 
  0100:57 37 04         super Rm 4 

  0103:38 0084          pushi 84 // $84 stop
  0106:76               push0 
  0107:80 00b7            lag gConMusic 
  010a:4a 04             send 4 

  010c:39 03            pushi 3 // $3 y
  010e:38 0084          pushi 84 // $84 stop
  0111:39 4e            pushi 4e // $4e save
  0113:39 7d            pushi 7d // $7d set
  0115:45 15 06         callb procedure_0015 6 // LoadMany 

  0118:39 57            pushi 57 // $57 init
  011a:76               push0 
  011b:38 00c6          pushi c6 // $c6 stopUpd
  011e:76               push0 
  011f:72 1242          lofsa $1364 // fountain
  0122:4a 08             send 8 

  0124:39 61            pushi 61 // $61 add
  0126:7a               push2 
  0127:74 11ce          lofss $12f8 // urn
  012a:74 1201          lofss $132e // urn1
  012d:39 62            pushi 62 // $62 eachElementDo
  012f:78               push1 
  0130:39 57            pushi 57 // $57 init
  0132:39 3c            pushi 3c // $3c doit
  0134:76               push0 
  0135:81 0a              lag gAddToPics 
  0137:4a 12             send 12 

  0139:38 010b          pushi 10b // $10b setFeatures
  013c:7a               push2 
  013d:74 11b8          lofss $12f8 // urn
  0140:74 11eb          lofss $132e // urn1
  0143:54 08             self 8 

  0145:38 00c9          pushi c9 // $c9 ignoreActors
  0148:78               push1 
  0149:78               push1 
  014a:39 57            pushi 57 // $57 init
  014c:76               push0 
  014d:38 0089          pushi 89 // $89 hide
  0150:76               push0 
  0151:72 134c          lofsa $14a0 // Splash1
  0154:4a 0e             send e 

  0156:38 00c9          pushi c9 // $c9 ignoreActors
  0159:78               push1 
  015a:78               push1 
  015b:39 57            pushi 57 // $57 init
  015d:76               push0 
  015e:38 0089          pushi 89 // $89 hide
  0161:76               push0 
  0162:72 1389          lofsa $14ee // Splash2
  0165:4a 0e             send e 

  0167:39 57            pushi 57 // $57 init
  0169:76               push0 
  016a:72 1249          lofsa $13b6 // Drop1
  016d:4a 04             send 4 

  016f:39 57            pushi 57 // $57 init
  0171:76               push0 
  0172:72 128f          lofsa $1404 // water1
  0175:4a 04             send 4 

  0177:39 57            pushi 57 // $57 init
  0179:76               push0 
  017a:72 12d5          lofsa $1452 // water2
  017d:4a 04             send 4 

  017f:78               push1 
  0180:39 30            pushi 30 // $30 b-moveCnt
  0182:45 07 02         callb procedure_0007 2 // IsFlag 

  0185:31 07              bnt code_018e 
  0187:76               push0 
  0188:40 febb 00        call proc_0047 0 

  018c:33 05              jmp code_0193 

        code_018e
  018e:76               push0 
  018f:40 ff08 00        call proc_009b 0 


        code_0193
  0193:38 00c9          pushi c9 // $c9 ignoreActors
  0196:78               push1 
  0197:78               push1 
  0198:39 57            pushi 57 // $57 init
  019a:76               push0 
  019b:72 10b6          lofsa $1254 // Trap
  019e:4a 0a             send a 

  01a0:38 00ef          pushi ef // $ef ownedBy
  01a3:78               push1 
  01a4:39 41            pushi 41 // $41 replay
  01a6:39 43            pushi 43 // $43 at
  01a8:78               push1 
  01a9:39 0d            pushi d // $d lsTop
  01ab:81 09              lag gInventory 
  01ad:4a 06             send 6 

  01af:4a 06             send 6 

  01b1:31 16              bnt code_01c9 
  01b3:39 42            pushi 42 // $42 setPri
  01b5:78               push1 
  01b6:39 08            pushi 8 // $8 underBits
  01b8:38 00c9          pushi c9 // $c9 ignoreActors
  01bb:78               push1 
  01bc:78               push1 
  01bd:39 57            pushi 57 // $57 init
  01bf:76               push0 
  01c0:38 00c6          pushi c6 // $c6 stopUpd
  01c3:76               push0 
  01c4:72 1375          lofsa $153c // shaft
  01c7:4a 14             send 14 


        code_01c9
  01c9:39 42            pushi 42 // $42 setPri
  01cb:78               push1 
  01cc:39 07            pushi 7 // $7 cel
  01ce:38 00c9          pushi c9 // $c9 ignoreActors
  01d1:78               push1 
  01d2:78               push1 
  01d3:39 57            pushi 57 // $57 init
  01d5:76               push0 
  01d6:38 00c6          pushi c6 // $c6 stopUpd
  01d9:76               push0 
  01da:72 10c9          lofsa $12a6 // statue
  01dd:4a 14             send 14 

  01df:39 05            pushi 5 // $5 view
  01e1:78               push1 
  01e2:76               push0 
  01e3:39 12            pushi 12 // $12 illegalBits
  01e5:78               push1 
  01e6:38 8000          pushi 8000 // $8000 sel_32768
  01e9:39 57            pushi 57 // $57 init
  01eb:76               push0 
  01ec:81 00              lag gEgo 
  01ee:4a 10             send 10 

  01f0:89 0c              lsg gPrevRoomNum 
  01f2:35 33              ldi 33 
  01f4:1a                 eq? 
  01f5:31 10              bnt code_0207 
  01f7:38 00c5          pushi c5 // $c5 posn
  01fa:7a               push2 
  01fb:38 0111          pushi 111 // $111 cycleType
  01fe:38 008a          pushi 8a // $8a enable
  0201:81 00              lag gEgo 
  0203:4a 08             send 8 

  0205:33 0d              jmp code_0214 

        code_0207
  0207:38 00c5          pushi c5 // $c5 posn
  020a:7a               push2 
  020b:39 32            pushi 32 // $32 b-i2
  020d:38 00ba          pushi ba // $ba targetX
  0210:81 00              lag gEgo 
  0212:4a 08             send 8 


        code_0214
  0214:80 0093            lag global147 
  0217:31 33              bnt code_024c 
  0219:39 07            pushi 7 // $7 cel
  021b:78               push1 
  021c:78               push1 
  021d:74 1034          lofss $1254 // Trap
  0220:43 0e 02         callk NumCels 2 

  0223:36                push 
  0224:35 01              ldi 1 
  0226:04                 sub 
  0227:36                push 
  0228:39 42            pushi 42 // $42 setPri
  022a:78               push1 
  022b:39 09            pushi 9 // $9 nsTop
  022d:38 00c6          pushi c6 // $c6 stopUpd
  0230:76               push0 
  0231:72 1020          lofsa $1254 // Trap
  0234:4a 10             send 10 

  0236:39 07            pushi 7 // $7 cel
  0238:78               push1 
  0239:7a               push2 
  023a:72 1069          lofsa $12a6 // statue
  023d:4a 06             send 6 

  023f:38 00d6          pushi d6 // $d6 observeControl
  0242:7a               push2 
  0243:7a               push2 
  0244:39 40            pushi 40 // $40 modifiers
  0246:81 00              lag gEgo 
  0248:4a 08             send 8 

  024a:33 0a              jmp code_0256 

        code_024c
  024c:39 42            pushi 42 // $42 setPri
  024e:78               push1 
  024f:39 04            pushi 4 // $4 x
  0251:72 1000          lofsa $1254 // Trap
  0254:4a 06             send 6 


        code_0256
  0256:88 00a5            lsg gAct 
  0259:35 07              ldi 7 
  025b:1a                 eq? 
  025c:31 14              bnt code_0272 
  025e:38 010a          pushi 10a // $10a setRegions
  0261:78               push1 
  0262:38 0118          pushi 118 // $118 stopExtra
  0265:54 06             self 6 

  0267:38 00d6          pushi d6 // $d6 observeControl
  026a:78               push1 
  026b:38 0100          pushi 100 // $100 notify
  026e:81 00              lag gEgo 
  0270:4a 06             send 6 


        code_0272
  0272:48                 ret 
    )

    (method (doit) // method_0273
  0273:76               push0 
  0274:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  0277:31 0a              bnt code_0283 
  0279:7a               push2 
  027a:39 41            pushi 41 // $41 replay
  027c:76               push0 
  027d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0283
  0283:80 0093            lag global147 
  0286:31 26              bnt code_02ae 
  0288:38 00db          pushi db // $db onControl
  028b:78               push1 
  028c:78               push1 
  028d:81 00              lag gEgo 
  028f:4a 06             send 6 

  0291:36                push 
  0292:35 08              ldi 8 
  0294:12                 and 
  0295:31 17              bnt code_02ae 
  0297:63 08             pToa script 
  0299:18                 not 
  029a:31 12              bnt code_02ae 
  029c:38 00d7          pushi d7 // $d7 ignoreControl
  029f:78               push1 
  02a0:39 40            pushi 40 // $40 modifiers
  02a2:81 00              lag gEgo 
  02a4:4a 06             send 6 

  02a6:39 7a            pushi 7a // $7a setScript
  02a8:78               push1 
  02a9:74 0ee8          lofss $1194 // goDown
  02ac:54 06             self 6 


        code_02ae
  02ae:38 00db          pushi db // $db onControl
  02b1:78               push1 
  02b2:78               push1 
  02b3:81 00              lag gEgo 
  02b5:4a 06             send 6 

  02b7:36                push 
  02b8:35 10              ldi 10 
  02ba:12                 and 
  02bb:30 017e            bnt code_043c 
  02be:39 3b            pushi 3b // $3b mover
  02c0:76               push0 
  02c1:81 00              lag gEgo 
  02c3:4a 04             send 4 

  02c5:36                push 
  02c6:35 00              ldi 0 
  02c8:1c                 ne? 
  02c9:30 0170            bnt code_043c 
  02cc:80 00df            lag gDetailLevel 
  02cf:30 016a            bnt code_043c 
  02d2:39 06            pushi 6 // $6 loop
  02d4:76               push0 
  02d5:81 00              lag gEgo 
  02d7:4a 04             send 4 

  02d9:36                push 
  02da:3c                 dup 
  02db:35 02              ldi 2 
  02dd:1a                 eq? 
  02de:31 73              bnt code_0353 
  02e0:39 07            pushi 7 // $7 cel
  02e2:76               push0 
  02e3:81 00              lag gEgo 
  02e5:4a 04             send 4 

  02e7:36                push 
  02e8:35 02              ldi 2 
  02ea:1a                 eq? 
  02eb:31 2b              bnt code_0318 
  02ed:38 00c5          pushi c5 // $c5 posn
  02f0:7a               push2 
  02f1:39 04            pushi 4 // $4 x
  02f3:76               push0 
  02f4:81 00              lag gEgo 
  02f6:4a 04             send 4 

  02f8:36                push 
  02f9:35 05              ldi 5 
  02fb:02                 add 
  02fc:36                push 
  02fd:39 03            pushi 3 // $3 y
  02ff:76               push0 
  0300:81 00              lag gEgo 
  0302:4a 04             send 4 

  0304:36                push 
  0305:39 07            pushi 7 // $7 cel
  0307:78               push1 
  0308:76               push0 
  0309:38 00ca          pushi ca // $ca show
  030c:76               push0 
  030d:39 7e            pushi 7e // $7e setCycle
  030f:78               push1 
  0310:51 1a            class End 
  0312:36                push 
  0313:72 118a          lofsa $14a0 // Splash1
  0316:4a 18             send 18 


        code_0318
  0318:39 07            pushi 7 // $7 cel
  031a:76               push0 
  031b:81 00              lag gEgo 
  031d:4a 04             send 4 

  031f:36                push 
  0320:35 05              ldi 5 
  0322:1a                 eq? 
  0323:31 2b              bnt code_0350 
  0325:38 00c5          pushi c5 // $c5 posn
  0328:7a               push2 
  0329:39 04            pushi 4 // $4 x
  032b:76               push0 
  032c:81 00              lag gEgo 
  032e:4a 04             send 4 

  0330:36                push 
  0331:35 05              ldi 5 
  0333:02                 add 
  0334:36                push 
  0335:39 03            pushi 3 // $3 y
  0337:76               push0 
  0338:81 00              lag gEgo 
  033a:4a 04             send 4 

  033c:36                push 
  033d:39 07            pushi 7 // $7 cel
  033f:78               push1 
  0340:76               push0 
  0341:38 00ca          pushi ca // $ca show
  0344:76               push0 
  0345:39 7e            pushi 7e // $7e setCycle
  0347:78               push1 
  0348:51 1a            class End 
  034a:36                push 
  034b:72 11a0          lofsa $14ee // Splash2
  034e:4a 18             send 18 


        code_0350
  0350:32 00e8            jmp code_043b 

        code_0353
  0353:3c                 dup 
  0354:35 03              ldi 3 
  0356:1a                 eq? 
  0357:31 72              bnt code_03cb 
  0359:39 07            pushi 7 // $7 cel
  035b:76               push0 
  035c:81 00              lag gEgo 
  035e:4a 04             send 4 

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

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

  037d:36                push 
  037e:39 07            pushi 7 // $7 cel
  0380:78               push1 
  0381:76               push0 
  0382:38 00ca          pushi ca // $ca show
  0385:76               push0 
  0386:39 7e            pushi 7e // $7e setCycle
  0388:78               push1 
  0389:51 1a            class End 
  038b:36                push 
  038c:72 1111          lofsa $14a0 // Splash1
  038f:4a 18             send 18 


        code_0391
  0391:39 07            pushi 7 // $7 cel
  0393:76               push0 
  0394:81 00              lag gEgo 
  0396:4a 04             send 4 

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

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

  03b5:36                push 
  03b6:39 07            pushi 7 // $7 cel
  03b8:78               push1 
  03b9:76               push0 
  03ba:38 00ca          pushi ca // $ca show
  03bd:76               push0 
  03be:39 7e            pushi 7e // $7e setCycle
  03c0:78               push1 
  03c1:51 1a            class End 
  03c3:36                push 
  03c4:72 1127          lofsa $14ee // Splash2
  03c7:4a 18             send 18 


        code_03c9
  03c9:33 70              jmp code_043b 

        code_03cb
  03cb:39 07            pushi 7 // $7 cel
  03cd:76               push0 
  03ce:81 00              lag gEgo 
  03d0:4a 04             send 4 

  03d2:36                push 
  03d3:35 00              ldi 0 
  03d5:1a                 eq? 
  03d6:31 2b              bnt code_0403 
  03d8:38 00c5          pushi c5 // $c5 posn
  03db:7a               push2 
  03dc:39 04            pushi 4 // $4 x
  03de:76               push0 
  03df:81 00              lag gEgo 
  03e1:4a 04             send 4 

  03e3:36                push 
  03e4:35 02              ldi 2 
  03e6:04                 sub 
  03e7:36                push 
  03e8:39 03            pushi 3 // $3 y
  03ea:76               push0 
  03eb:81 00              lag gEgo 
  03ed:4a 04             send 4 

  03ef:36                push 
  03f0:39 07            pushi 7 // $7 cel
  03f2:78               push1 
  03f3:76               push0 
  03f4:38 00ca          pushi ca // $ca show
  03f7:76               push0 
  03f8:39 7e            pushi 7e // $7e setCycle
  03fa:78               push1 
  03fb:51 1a            class End 
  03fd:36                push 
  03fe:72 109f          lofsa $14a0 // Splash1
  0401:4a 18             send 18 


        code_0403
  0403:39 07            pushi 7 // $7 cel
  0405:76               push0 
  0406:81 00              lag gEgo 
  0408:4a 04             send 4 

  040a:36                push 
  040b:35 04              ldi 4 
  040d:1a                 eq? 
  040e:31 2b              bnt code_043b 
  0410:38 00c5          pushi c5 // $c5 posn
  0413:7a               push2 
  0414:39 04            pushi 4 // $4 x
  0416:76               push0 
  0417:81 00              lag gEgo 
  0419:4a 04             send 4 

  041b:36                push 
  041c:35 02              ldi 2 
  041e:04                 sub 
  041f:36                push 
  0420:39 03            pushi 3 // $3 y
  0422:76               push0 
  0423:81 00              lag gEgo 
  0425:4a 04             send 4 

  0427:36                push 
  0428:39 07            pushi 7 // $7 cel
  042a:78               push1 
  042b:76               push0 
  042c:38 00ca          pushi ca // $ca show
  042f:76               push0 
  0430:39 7e            pushi 7e // $7e setCycle
  0432:78               push1 
  0433:51 1a            class End 
  0435:36                push 
  0436:72 10b5          lofsa $14ee // Splash2
  0439:4a 18             send 18 


        code_043b
  043b:3a                toss 

        code_043c
  043c:39 3c            pushi 3c // $3c doit
  043e:76               push0 
  043f:57 37 04         super Rm 4 

  0442:48                 ret 
    )

    (method (dispose) // method_0443
  0443:78               push1 
  0444:38 03d9          pushi 3d9 // $3d9 sel_985
  0447:43 03 02         callk DisposeScript 2 

  044a:39 58            pushi 58 // $58 dispose
  044c:76               push0 
  044d:57 37 04         super Rm 4 

  0450:48                 ret 
    )

    (method (newRoom) // method_0451
  0451:8f 01              lsp param1 
  0453:35 33              ldi 33 
  0455:1a                 eq? 
  0456:31 09              bnt code_0461 
  0458:38 0084          pushi 84 // $84 stop
  045b:76               push0 
  045c:80 00b7            lag gConMusic 
  045f:4a 04             send 4 


        code_0461
  0461:38 00f8          pushi f8 // $f8 newRoom
  0464:78               push1 
  0465:8f 01              lsp param1 
  0467:57 37 06         super Rm 6 

  046a:48                 ret 
    )

    (method (handleEvent) // method_046b
  046b:3f 01             link 1 // (var $1)
  046d:39 4c            pushi 4c // $4c claimed
  046f:76               push0 
  0470:87 01              lap param1 
  0472:4a 04             send 4 

  0474:31 03              bnt code_0479 
  0476:35 01              ldi 1 
  0478:48                 ret 

        code_0479
  0479:39 22            pushi 22 // $22 type
  047b:76               push0 
  047c:87 01              lap param1 
  047e:4a 04             send 4 

  0480:36                push 
  0481:34 0080            ldi 80 
  0484:1a                 eq? 
  0485:30 04a0            bnt code_0928 
  0488:78               push1 
  0489:74 0c21          lofss $10ad // look>
  048c:43 25 02         callk Said 2 

  048f:30 00f8            bnt code_058a 
  0492:78               push1 
  0493:74 0b1f          lofss $0fb5 // [<around,at][/room]
  0496:43 25 02         callk Said 2 

  0499:31 0d              bnt code_04a8 
  049b:7a               push2 
  049c:39 41            pushi 41 // $41 replay
  049e:76               push0 
  049f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04a5:32 00df            jmp code_0587 

        code_04a8
  04a8:78               push1 
  04a9:74 0aee          lofss $0f9a // /archway
  04ac:43 25 02         callk Said 2 

  04af:31 0d              bnt code_04be 
  04b1:7a               push2 
  04b2:39 41            pushi 41 // $41 replay
  04b4:78               push1 
  04b5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04bb:32 00c9            jmp code_0587 

        code_04be
  04be:78               push1 
  04bf:74 0aef          lofss $0fb1 // /eau
  04c2:43 25 02         callk Said 2 

  04c5:31 0d              bnt code_04d4 
  04c7:7a               push2 
  04c8:39 41            pushi 41 // $41 replay
  04ca:7a               push2 
  04cb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04d1:32 00b3            jmp code_0587 

        code_04d4
  04d4:78               push1 
  04d5:74 0ac6          lofss $0f9e // /arbuste,arbuste
  04d8:43 25 02         callk Said 2 

  04db:31 0e              bnt code_04eb 
  04dd:7a               push2 
  04de:39 41            pushi 41 // $41 replay
  04e0:39 03            pushi 3 // $3 y
  04e2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04e8:32 009c            jmp code_0587 

        code_04eb
  04eb:78               push1 
  04ec:74 0abe          lofss $0fad // /escalier
  04ef:43 25 02         callk Said 2 

  04f2:31 1f              bnt code_0513 
  04f4:80 0093            lag global147 
  04f7:31 0d              bnt code_0506 
  04f9:7a               push2 
  04fa:39 41            pushi 41 // $41 replay
  04fc:39 04            pushi 4 // $4 x
  04fe:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0504:33 0b              jmp code_0511 

        code_0506
  0506:7a               push2 
  0507:39 41            pushi 41 // $41 replay
  0509:39 05            pushi 5 // $5 view
  050b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0511
  0511:33 74              jmp code_0587 

        code_0513
  0513:78               push1 
  0514:74 0a8e          lofss $0fa5 // /passage
  0517:43 25 02         callk Said 2 

  051a:31 1f              bnt code_053b 
  051c:80 0093            lag global147 
  051f:31 0d              bnt code_052e 
  0521:7a               push2 
  0522:39 41            pushi 41 // $41 replay
  0524:39 06            pushi 6 // $6 loop
  0526:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  052c:33 0b              jmp code_0539 

        code_052e
  052e:7a               push2 
  052f:39 41            pushi 41 // $41 replay
  0531:39 05            pushi 5 // $5 view
  0533:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0539
  0539:33 4c              jmp code_0587 

        code_053b
  053b:78               push1 
  053c:74 0a6a          lofss $0fa9 // /shaft
  053f:43 25 02         callk Said 2 

  0542:31 43              bnt code_0587 
  0544:38 00da          pushi da // $da inRect
  0547:39 04            pushi 4 // $4 x
  0549:38 00cd          pushi cd // $cd xLast
  054c:39 6f            pushi 6f // $6f handleEvent
  054e:38 0114          pushi 114 // $114 minPause
  0551:38 00c8          pushi c8 // $c8 setLoop
  0554:81 00              lag gEgo 
  0556:4a 0c             send c 

  0558:31 29              bnt code_0583 
  055a:39 43            pushi 43 // $43 at
  055c:78               push1 
  055d:39 0d            pushi d // $d lsTop
  055f:81 09              lag gInventory 
  0561:4a 06             send 6 

  0563:36                push 
  0564:35 41              ldi 41 
  0566:1a                 eq? 
  0567:31 0d              bnt code_0576 
  0569:7a               push2 
  056a:39 41            pushi 41 // $41 replay
  056c:39 07            pushi 7 // $7 cel
  056e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0574:33 0b              jmp code_0581 

        code_0576
  0576:7a               push2 
  0577:39 41            pushi 41 // $41 replay
  0579:39 08            pushi 8 // $8 underBits
  057b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0581
  0581:33 04              jmp code_0587 

        code_0583
  0583:76               push0 
  0584:45 09 00         callb procedure_0009 0 // NotClose 


        code_0587
  0587:32 039e            jmp code_0928 

        code_058a
  058a:78               push1 
  058b:74 0a35          lofss $0fc3 // attach,attach,attach/control/shaft
  058e:43 25 02         callk Said 2 

  0591:31 20              bnt code_05b3 
  0593:38 00ee          pushi ee // $ee has
  0596:78               push1 
  0597:39 14            pushi 14 // $14 brLeft
  0599:81 00              lag gEgo 
  059b:4a 06             send 6 

  059d:31 0d              bnt code_05ac 
  059f:7a               push2 
  05a0:39 41            pushi 41 // $41 replay
  05a2:39 09            pushi 9 // $9 nsTop
  05a4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05aa:33 04              jmp code_05b0 

        code_05ac
  05ac:76               push0 
  05ad:45 0d 00         callb procedure_000d 0 // DontHave 


        code_05b0
  05b0:32 0375            jmp code_0928 

        code_05b3
  05b3:78               push1 
  05b4:74 0a27          lofss $0fde // attach,attach/valve,fontainier/shaft
  05b7:43 25 02         callk Said 2 

  05ba:31 47              bnt code_0603 
  05bc:38 00ee          pushi ee // $ee has
  05bf:78               push1 
  05c0:39 0d            pushi d // $d lsTop
  05c2:81 00              lag gEgo 
  05c4:4a 06             send 6 

  05c6:31 34              bnt code_05fc 
  05c8:38 00db          pushi db // $db onControl
  05cb:78               push1 
  05cc:76               push0 
  05cd:81 00              lag gEgo 
  05cf:4a 06             send 6 

  05d1:36                push 
  05d2:35 04              ldi 4 
  05d4:12                 and 
  05d5:31 1f              bnt code_05f6 
  05d7:35 01              ldi 1 
  05d9:a3 01              sal local1 
  05db:39 7a            pushi 7a // $7a setScript
  05dd:78               push1 
  05de:74 0c13          lofss $11f4 // bend
  05e1:54 06             self 6 

  05e3:38 008f          pushi 8f // $8f moveTo
  05e6:78               push1 
  05e7:89 0b              lsg gCurRoomNum 
  05e9:39 43            pushi 43 // $43 at
  05eb:78               push1 
  05ec:39 0d            pushi d // $d lsTop
  05ee:81 09              lag gInventory 
  05f0:4a 06             send 6 

  05f2:4a 06             send 6 

  05f4:33 04              jmp code_05fa 

        code_05f6
  05f6:76               push0 
  05f7:45 09 00         callb procedure_0009 0 // NotClose 


        code_05fa
  05fa:33 04              jmp code_0600 

        code_05fc
  05fc:76               push0 
  05fd:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0600
  0600:32 0325            jmp code_0928 

        code_0603
  0603:78               push1 
  0604:74 09cb          lofss $0fd2 // attach,attach/control/shaft
  0607:43 25 02         callk Said 2 

  060a:31 35              bnt code_0641 
  060c:38 00ee          pushi ee // $ee has
  060f:78               push1 
  0610:39 14            pushi 14 // $14 brLeft
  0612:81 00              lag gEgo 
  0614:4a 06             send 6 

  0616:31 22              bnt code_063a 
  0618:38 00db          pushi db // $db onControl
  061b:78               push1 
  061c:76               push0 
  061d:81 00              lag gEgo 
  061f:4a 06             send 6 

  0621:36                push 
  0622:35 04              ldi 4 
  0624:12                 and 
  0625:31 0d              bnt code_0634 
  0627:7a               push2 
  0628:39 41            pushi 41 // $41 replay
  062a:39 0a            pushi a // $a nsLeft
  062c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0632:33 04              jmp code_0638 

        code_0634
  0634:76               push0 
  0635:45 09 00         callb procedure_0009 0 // NotClose 


        code_0638
  0638:33 04              jmp code_063e 

        code_063a
  063a:76               push0 
  063b:45 0d 00         callb procedure_000d 0 // DontHave 


        code_063e
  063e:32 02e7            jmp code_0928 

        code_0641
  0641:38 00ee          pushi ee // $ee has
  0644:78               push1 
  0645:39 0d            pushi d // $d lsTop
  0647:81 00              lag gEgo 
  0649:4a 06             send 6 

  064b:31 17              bnt code_0664 
  064d:78               push1 
  064e:74 0ab7          lofss $1108 // rotate,rotate/valve,fontainier
  0651:43 25 02         callk Said 2 

  0654:31 0e              bnt code_0664 
  0656:7a               push2 
  0657:39 41            pushi 41 // $41 replay
  0659:39 0b            pushi b // $b nsBottom
  065b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0661:32 02c4            jmp code_0928 

        code_0664
  0664:78               push1 
  0665:74 0aa0          lofss $1108 // rotate,rotate/valve,fontainier
  0668:43 25 02         callk Said 2 

  066b:31 23              bnt code_0690 
  066d:38 0082          pushi 82 // $82 owner
  0670:76               push0 
  0671:39 43            pushi 43 // $43 at
  0673:78               push1 
  0674:39 0d            pushi d // $d lsTop
  0676:81 09              lag gInventory 
  0678:4a 06             send 6 

  067a:4a 04             send 4 

  067c:36                push 
  067d:35 41              ldi 41 
  067f:1a                 eq? 
  0680:31 07              bnt code_0689 
  0682:76               push0 
  0683:40 f99b 00        call proc_0022 0 

  0687:33 04              jmp code_068d 

        code_0689
  0689:76               push0 
  068a:45 0d 00         callb procedure_000d 0 // DontHave 


        code_068d
  068d:32 0298            jmp code_0928 

        code_0690
  0690:78               push1 
  0691:74 0a9b          lofss $112f // rotate<on/fontaine
  0694:43 25 02         callk Said 2 

  0697:2f 09               bt code_06a2 
  0699:78               push1 
  069a:74 0a80          lofss $111d // rotate/fontaine<on
  069d:43 25 02         callk Said 2 

  06a0:31 3f              bnt code_06e1 

        code_06a2
  06a2:78               push1 
  06a3:39 30            pushi 30 // $30 b-moveCnt
  06a5:45 07 02         callb procedure_0007 2 // IsFlag 

  06a8:31 0d              bnt code_06b7 
  06aa:7a               push2 
  06ab:39 41            pushi 41 // $41 replay
  06ad:39 0c            pushi c // $c nsRight
  06af:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06b5:33 27              jmp code_06de 

        code_06b7
  06b7:38 0082          pushi 82 // $82 owner
  06ba:76               push0 
  06bb:39 43            pushi 43 // $43 at
  06bd:78               push1 
  06be:39 0d            pushi d // $d lsTop
  06c0:81 09              lag gInventory 
  06c2:4a 06             send 6 

  06c4:4a 04             send 4 

  06c6:36                push 
  06c7:35 41              ldi 41 
  06c9:1a                 eq? 
  06ca:31 07              bnt code_06d3 
  06cc:76               push0 
  06cd:40 f951 00        call proc_0022 0 

  06d1:33 0b              jmp code_06de 

        code_06d3
  06d3:7a               push2 
  06d4:39 41            pushi 41 // $41 replay
  06d6:39 0d            pushi d // $d lsTop
  06d8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06de
  06de:32 0247            jmp code_0928 

        code_06e1
  06e1:78               push1 
  06e2:74 0a41          lofss $1126 // rotate<off/fontaine
  06e5:43 25 02         callk Said 2 

  06e8:2f 09               bt code_06f3 
  06ea:78               push1 
  06eb:74 0a26          lofss $1114 // rotate/fontaine<off
  06ee:43 25 02         callk Said 2 

  06f1:31 40              bnt code_0733 

        code_06f3
  06f3:78               push1 
  06f4:39 30            pushi 30 // $30 b-moveCnt
  06f6:45 07 02         callb procedure_0007 2 // IsFlag 

  06f9:18                 not 
  06fa:31 0d              bnt code_0709 
  06fc:7a               push2 
  06fd:39 41            pushi 41 // $41 replay
  06ff:39 0e            pushi e // $e lsLeft
  0701:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0707:33 27              jmp code_0730 

        code_0709
  0709:38 0082          pushi 82 // $82 owner
  070c:76               push0 
  070d:39 43            pushi 43 // $43 at
  070f:78               push1 
  0710:39 0d            pushi d // $d lsTop
  0712:81 09              lag gInventory 
  0714:4a 06             send 6 

  0716:4a 04             send 4 

  0718:36                push 
  0719:35 41              ldi 41 
  071b:1a                 eq? 
  071c:31 07              bnt code_0725 
  071e:76               push0 
  071f:40 f8ff 00        call proc_0022 0 

  0723:33 0b              jmp code_0730 

        code_0725
  0725:7a               push2 
  0726:39 41            pushi 41 // $41 replay
  0728:39 0d            pushi d // $d lsTop
  072a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0730
  0730:32 01f5            jmp code_0928 

        code_0733
  0733:78               push1 
  0734:74 08e5          lofss $101c // feel,(attach<deliver)/fontaine,eau
  0737:43 25 02         callk Said 2 

  073a:31 29              bnt code_0765 
  073c:38 00da          pushi da // $da inRect
  073f:39 04            pushi 4 // $4 x
  0741:39 65            pushi 65 // $65 contains
  0743:39 63            pushi 63 // $63 firstTrue
  0745:38 00f1          pushi f1 // $f1 write
  0748:38 00a5          pushi a5 // $a5 cycler
  074b:81 00              lag gEgo 
  074d:4a 0c             send c 

  074f:31 0d              bnt code_075e 
  0751:7a               push2 
  0752:39 41            pushi 41 // $41 replay
  0754:39 0f            pushi f // $f lsBottom
  0756:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  075c:33 04              jmp code_0762 

        code_075e
  075e:76               push0 
  075f:45 09 00         callb procedure_0009 0 // NotClose 


        code_0762
  0762:32 01c3            jmp code_0928 

        code_0765
  0765:78               push1 
  0766:74 095a          lofss $10c3 // bouger,appuyer,attirer,rotate/fontaine
  0769:43 25 02         callk Said 2 

  076c:31 0e              bnt code_077c 
  076e:7a               push2 
  076f:39 41            pushi 41 // $41 replay
  0771:39 10            pushi 10 // $10 lsRight
  0773:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0779:32 01ac            jmp code_0928 

        code_077c
  077c:78               push1 
  077d:74 086d          lofss $0fed // clore/archway
  0780:43 25 02         callk Said 2 

  0783:31 0e              bnt code_0793 
  0785:7a               push2 
  0786:39 41            pushi 41 // $41 replay
  0788:39 11            pushi 11 // $11 signal
  078a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0790:32 0195            jmp code_0928 

        code_0793
  0793:78               push1 
  0794:74 0947          lofss $10de // open/archway
  0797:43 25 02         callk Said 2 

  079a:31 0e              bnt code_07aa 
  079c:7a               push2 
  079d:39 41            pushi 41 // $41 replay
  079f:39 12            pushi 12 // $12 illegalBits
  07a1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07a7:32 017e            jmp code_0928 

        code_07aa
  07aa:78               push1 
  07ab:74 0854          lofss $1002 // enter,aller,(get<dans),patauger,climb/eau,fontaine
  07ae:43 25 02         callk Said 2 

  07b1:31 0e              bnt code_07c1 
  07b3:7a               push2 
  07b4:39 41            pushi 41 // $41 replay
  07b6:39 13            pushi 13 // $13 brTop
  07b8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07be:32 0167            jmp code_0928 

        code_07c1
  07c1:78               push1 
  07c2:74 088c          lofss $1051 // get/eau
  07c5:43 25 02         callk Said 2 

  07c8:31 0e              bnt code_07d8 
  07ca:7a               push2 
  07cb:39 41            pushi 41 // $41 replay
  07cd:39 14            pushi 14 // $14 brLeft
  07cf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07d5:32 0150            jmp code_0928 

        code_07d8
  07d8:78               push1 
  07d9:74 0869          lofss $1045 // get/shaft
  07dc:43 25 02         callk Said 2 

  07df:31 23              bnt code_0804 
  07e1:38 00db          pushi db // $db onControl
  07e4:78               push1 
  07e5:76               push0 
  07e6:81 00              lag gEgo 
  07e8:4a 06             send 6 

  07ea:36                push 
  07eb:35 04              ldi 4 
  07ed:12                 and 
  07ee:31 0d              bnt code_07fd 
  07f0:7a               push2 
  07f1:39 41            pushi 41 // $41 replay
  07f3:39 15            pushi 15 // $15 brBottom
  07f5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07fb:33 04              jmp code_0801 

        code_07fd
  07fd:76               push0 
  07fe:45 09 00         callb procedure_0009 0 // NotClose 


        code_0801
  0801:32 0124            jmp code_0928 

        code_0804
  0804:78               push1 
  0805:74 08e2          lofss $10ea // appuyer,bouger,attirer/shaft,square
  0808:43 25 02         callk Said 2 

  080b:31 23              bnt code_0830 
  080d:38 00db          pushi db // $db onControl
  0810:78               push1 
  0811:76               push0 
  0812:81 00              lag gEgo 
  0814:4a 06             send 6 

  0816:36                push 
  0817:35 04              ldi 4 
  0819:12                 and 
  081a:31 0d              bnt code_0829 
  081c:7a               push2 
  081d:39 41            pushi 41 // $41 replay
  081f:39 16            pushi 16 // $16 brRight
  0821:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0827:33 04              jmp code_082d 

        code_0829
  0829:76               push0 
  082a:45 09 00         callb procedure_0009 0 // NotClose 


        code_082d
  082d:32 00f8            jmp code_0928 

        code_0830
  0830:78               push1 
  0831:74 08c5          lofss $10f9 // rotate,rotate,spin,rotate/shaft
  0834:43 25 02         callk Said 2 

  0837:31 23              bnt code_085c 
  0839:38 00db          pushi db // $db onControl
  083c:78               push1 
  083d:76               push0 
  083e:81 00              lag gEgo 
  0840:4a 06             send 6 

  0842:36                push 
  0843:35 04              ldi 4 
  0845:12                 and 
  0846:31 0d              bnt code_0855 
  0848:7a               push2 
  0849:39 41            pushi 41 // $41 replay
  084b:39 17            pushi 17 // $17 name
  084d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0853:33 04              jmp code_0859 

        code_0855
  0855:76               push0 
  0856:45 09 00         callb procedure_0009 0 // NotClose 


        code_0859
  0859:32 00cc            jmp code_0928 

        code_085c
  085c:78               push1 
  085d:74 07d3          lofss $1033 // get,detach/valve,fontainier
  0860:43 25 02         callk Said 2 

  0863:31 48              bnt code_08ad 
  0865:38 0082          pushi 82 // $82 owner
  0868:76               push0 
  0869:39 43            pushi 43 // $43 at
  086b:78               push1 
  086c:39 0d            pushi d // $d lsTop
  086e:81 09              lag gInventory 
  0870:4a 06             send 6 

  0872:4a 04             send 4 

  0874:36                push 
  0875:35 41              ldi 41 
  0877:1a                 eq? 
  0878:31 0d              bnt code_0887 
  087a:7a               push2 
  087b:39 41            pushi 41 // $41 replay
  087d:39 18            pushi 18 // $18 key
  087f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0885:33 24              jmp code_08ab 

        code_0887
  0887:38 00ee          pushi ee // $ee has
  088a:78               push1 
  088b:39 0d            pushi d // $d lsTop
  088d:81 00              lag gEgo 
  088f:4a 06             send 6 

  0891:31 0d              bnt code_08a0 
  0893:7a               push2 
  0894:39 41            pushi 41 // $41 replay
  0896:39 19            pushi 19 // $19 time
  0898:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  089e:33 0b              jmp code_08ab 

        code_08a0
  08a0:7a               push2 
  08a1:39 41            pushi 41 // $41 replay
  08a3:39 1a            pushi 1a // $1a text
  08a5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08ab
  08ab:33 7b              jmp code_0928 

        code_08ad
  08ad:78               push1 
  08ae:74 0748          lofss $0ff9 // boire/eau,fontaine
  08b1:43 25 02         callk Said 2 

  08b4:2f 09               bt code_08bf 
  08b6:78               push1 
  08b7:74 0785          lofss $103f // get/boire
  08ba:43 25 02         callk Said 2 

  08bd:31 0d              bnt code_08cc 

        code_08bf
  08bf:7a               push2 
  08c0:39 41            pushi 41 // $41 replay
  08c2:39 1b            pushi 1b // $1b elements
  08c4:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08ca:33 5c              jmp code_0928 

        code_08cc
  08cc:78               push1 
  08cd:74 0808          lofss $10d8 // huile/shaft
  08d0:43 25 02         callk Said 2 

  08d3:31 26              bnt code_08fb 
  08d5:38 00ee          pushi ee // $ee has
  08d8:78               push1 
  08d9:39 03            pushi 3 // $3 y
  08db:81 00              lag gEgo 
  08dd:4a 06             send 6 

  08df:31 0d              bnt code_08ee 
  08e1:7a               push2 
  08e2:39 41            pushi 41 // $41 replay
  08e4:39 1c            pushi 1c // $1c color
  08e6:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08ec:33 0b              jmp code_08f9 

        code_08ee
  08ee:7a               push2 
  08ef:39 41            pushi 41 // $41 replay
  08f1:39 1d            pushi 1d // $1d back
  08f3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08f9
  08f9:33 2d              jmp code_0928 

        code_08fb
  08fb:78               push1 
  08fc:74 072e          lofss $102d // arracher/shaft
  08ff:43 25 02         callk Said 2 

  0902:31 24              bnt code_0928 
  0904:38 00ee          pushi ee // $ee has
  0907:78               push1 
  0908:39 07            pushi 7 // $7 cel
  090a:81 00              lag gEgo 
  090c:4a 06             send 6 

  090e:31 0d              bnt code_091d 
  0910:7a               push2 
  0911:39 41            pushi 41 // $41 replay
  0913:39 1e            pushi 1e // $1e mode
  0915:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  091b:33 0b              jmp code_0928 

        code_091d
  091d:7a               push2 
  091e:39 41            pushi 41 // $41 replay
  0920:39 1f            pushi 1f // $1f style
  0922:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0928
  0928:48                 ret 
    )

)

// 118e
(instance goDown 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_0929
  0929:87 01              lap param1 
  092b:65 0a             aTop state 
  092d:36                push 
  092e:3c                 dup 
  092f:35 00              ldi 0 
  0931:1a                 eq? 
  0932:31 19              bnt code_094d 
  0934:76               push0 
  0935:45 03 00         callb procedure_0003 0 // HandsOff 

  0938:38 00d3          pushi d3 // $d3 setMotion
  093b:39 04            pushi 4 // $4 x
  093d:51 1d            class MoveTo 
  093f:36                push 
  0940:38 0104          pushi 104 // $104 picture
  0943:38 0085          pushi 85 // $85 check
  0946:7c            pushSelf 
  0947:81 00              lag gEgo 
  0949:4a 0c             send c 

  094b:33 10              jmp code_095d 

        code_094d
  094d:3c                 dup 
  094e:35 01              ldi 1 
  0950:1a                 eq? 
  0951:31 0a              bnt code_095d 
  0953:38 00f8          pushi f8 // $f8 newRoom
  0956:78               push1 
  0957:39 33            pushi 33 // $33 b-di
  0959:81 02              lag gCurRoom 
  095b:4a 06             send 6 


        code_095d
  095d:3a                toss 
  095e:48                 ret 
    )

)

// 11be
(instance dripping 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_095f
  095f:87 01              lap param1 
  0961:65 0a             aTop state 
  0963:36                push 
  0964:3c                 dup 
  0965:35 00              ldi 0 
  0967:1a                 eq? 
  0968:31 12              bnt code_097c 
  096a:39 07            pushi 7 // $7 cel
  096c:78               push1 
  096d:76               push0 
  096e:39 7e            pushi 7e // $7e setCycle
  0970:7a               push2 
  0971:51 1a            class End 
  0973:36                push 
  0974:7c            pushSelf 
  0975:72 0a3e          lofsa $13b6 // Drop1
  0978:4a 0e             send e 

  097a:33 48              jmp code_09c4 

        code_097c
  097c:3c                 dup 
  097d:35 01              ldi 1 
  097f:1a                 eq? 
  0980:31 21              bnt code_09a3 
  0982:39 07            pushi 7 // $7 cel
  0984:78               push1 
  0985:76               push0 
  0986:39 7e            pushi 7e // $7e setCycle
  0988:78               push1 
  0989:51 1a            class End 
  098b:36                push 
  098c:72 0a75          lofsa $1404 // water1
  098f:4a 0c             send c 

  0991:39 07            pushi 7 // $7 cel
  0993:78               push1 
  0994:76               push0 
  0995:39 7e            pushi 7e // $7e setCycle
  0997:7a               push2 
  0998:51 1a            class End 
  099a:36                push 
  099b:7c            pushSelf 
  099c:72 0ab3          lofsa $1452 // water2
  099f:4a 0e             send e 

  09a1:33 21              jmp code_09c4 

        code_09a3
  09a3:3c                 dup 
  09a4:35 02              ldi 2 
  09a6:1a                 eq? 
  09a7:31 1b              bnt code_09c4 
  09a9:78               push1 
  09aa:39 30            pushi 30 // $30 b-moveCnt
  09ac:45 07 02         callb procedure_0007 2 // IsFlag 

  09af:18                 not 
  09b0:31 0a              bnt code_09bc 
  09b2:35 ff              ldi ff 
  09b4:65 0a             aTop state 
  09b6:35 02              ldi 2 
  09b8:65 12             aTop seconds 
  09ba:33 08              jmp code_09c4 

        code_09bc
  09bc:39 7a            pushi 7a // $7a setScript
  09be:78               push1 
  09bf:76               push0 
  09c0:63 08             pToa client 
  09c2:4a 06             send 6 


        code_09c4
  09c4:3a                toss 
  09c5:48                 ret 
    )

)

// 11ee
(instance bend 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_09c6
  09c6:87 01              lap param1 
  09c8:65 0a             aTop state 
  09ca:36                push 
  09cb:3c                 dup 
  09cc:35 00              ldi 0 
  09ce:1a                 eq? 
  09cf:31 1d              bnt code_09ee 
  09d1:76               push0 
  09d2:45 03 00         callb procedure_0003 0 // HandsOff 

  09d5:39 12            pushi 12 // $12 illegalBits
  09d7:78               push1 
  09d8:76               push0 
  09d9:38 00d3          pushi d3 // $d3 setMotion
  09dc:39 04            pushi 4 // $4 x
  09de:51 1d            class MoveTo 
  09e0:36                push 
  09e1:38 00fa          pushi fa // $fa restart
  09e4:39 74            pushi 74 // $74 lastSeconds
  09e6:7c            pushSelf 
  09e7:81 00              lag gEgo 
  09e9:4a 12             send 12 

  09eb:32 00de            jmp code_0acc 

        code_09ee
  09ee:3c                 dup 
  09ef:35 01              ldi 1 
  09f1:1a                 eq? 
  09f2:31 1a              bnt code_0a0e 
  09f4:39 05            pushi 5 // $5 view
  09f6:78               push1 
  09f7:38 00a5          pushi a5 // $a5 cycler
  09fa:39 07            pushi 7 // $7 cel
  09fc:78               push1 
  09fd:76               push0 
  09fe:39 06            pushi 6 // $6 loop
  0a00:78               push1 
  0a01:39 06            pushi 6 // $6 loop
  0a03:81 00              lag gEgo 
  0a05:4a 12             send 12 

  0a07:35 02              ldi 2 
  0a09:65 12             aTop seconds 
  0a0b:32 00be            jmp code_0acc 

        code_0a0e
  0a0e:3c                 dup 
  0a0f:35 02              ldi 2 
  0a11:1a                 eq? 
  0a12:30 0084            bnt code_0a99 
  0a15:83 00              lal local0 
  0a17:31 51              bnt code_0a6a 
  0a19:35 00              ldi 0 
  0a1b:a3 00              sal local0 
  0a1d:38 0089          pushi 89 // $89 hide
  0a20:76               push0 
  0a21:72 0b18          lofsa $153c // shaft
  0a24:4a 04             send 4 

  0a26:39 7e            pushi 7e // $7e setCycle
  0a28:7a               push2 
  0a29:51 1a            class End 
  0a2b:36                push 
  0a2c:7c            pushSelf 
  0a2d:81 00              lag gEgo 
  0a2f:4a 08             send 8 

  0a31:39 2b            pushi 2b // $2b number
  0a33:78               push1 
  0a34:39 7d            pushi 7d // $7d set
  0a36:39 06            pushi 6 // $6 loop
  0a38:78               push1 
  0a39:78               push1 
  0a3a:39 2a            pushi 2a // $2a play
  0a3c:76               push0 
  0a3d:72 0b4a          lofsa $158a // myMusic
  0a40:4a 10             send 10 

  0a42:80 0092            lag global146 
  0a45:18                 not 
  0a46:31 12              bnt code_0a5a 
  0a48:7a               push2 
  0a49:39 41            pushi 41 // $41 replay
  0a4b:39 20            pushi 20 // $20 state
  0a4d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a53:76               push0 
  0a54:40 f5ef 00        call proc_0047 0 

  0a58:33 10              jmp code_0a6a 

        code_0a5a
  0a5a:7a               push2 
  0a5b:39 41            pushi 41 // $41 replay
  0a5d:39 21            pushi 21 // $21 font
  0a5f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a65:76               push0 
  0a66:40 f631 00        call proc_009b 0 


        code_0a6a
  0a6a:83 01              lal local1 
  0a6c:31 29              bnt code_0a97 
  0a6e:7a               push2 
  0a6f:39 41            pushi 41 // $41 replay
  0a71:39 22            pushi 22 // $22 type
  0a73:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a79:39 42            pushi 42 // $42 setPri
  0a7b:78               push1 
  0a7c:39 08            pushi 8 // $8 underBits
  0a7e:38 00c9          pushi c9 // $c9 ignoreActors
  0a81:78               push1 
  0a82:78               push1 
  0a83:39 57            pushi 57 // $57 init
  0a85:76               push0 
  0a86:38 00c6          pushi c6 // $c6 stopUpd
  0a89:76               push0 
  0a8a:72 0aaf          lofsa $153c // shaft
  0a8d:4a 14             send 14 

  0a8f:35 00              ldi 0 
  0a91:a3 01              sal local1 
  0a93:35 01              ldi 1 
  0a95:65 10             aTop cycles 

        code_0a97
  0a97:33 33              jmp code_0acc 

        code_0a99
  0a99:3c                 dup 
  0a9a:35 03              ldi 3 
  0a9c:1a                 eq? 
  0a9d:31 2d              bnt code_0acc 
  0a9f:38 00ca          pushi ca // $ca show
  0aa2:76               push0 
  0aa3:72 0a96          lofsa $153c // shaft
  0aa6:4a 04             send 4 

  0aa8:39 05            pushi 5 // $5 view
  0aaa:78               push1 
  0aab:76               push0 
  0aac:39 12            pushi 12 // $12 illegalBits
  0aae:78               push1 
  0aaf:38 8000          pushi 8000 // $8000 sel_32768
  0ab2:39 06            pushi 6 // $6 loop
  0ab4:78               push1 
  0ab5:78               push1 
  0ab6:39 7e            pushi 7e // $7e setCycle
  0ab8:78               push1 
  0ab9:51 17            class Walk 
  0abb:36                push 
  0abc:81 00              lag gEgo 
  0abe:4a 18             send 18 

  0ac0:76               push0 
  0ac1:45 04 00         callb procedure_0004 0 // HandsOn 

  0ac4:39 7a            pushi 7a // $7a setScript
  0ac6:78               push1 
  0ac7:76               push0 
  0ac8:63 08             pToa client 
  0aca:4a 06             send 6 


        code_0acc
  0acc:3a                toss 
  0acd:48                 ret 
    )

)

// 121e
(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_0ace
  0ace:87 01              lap param1 
  0ad0:65 0a             aTop state 
  0ad2:36                push 
  0ad3:3c                 dup 
  0ad4:35 00              ldi 0 
  0ad6:1a                 eq? 
  0ad7:31 52              bnt code_0b2b 
  0ad9:76               push0 
  0ada:45 03 00         callb procedure_0003 0 // HandsOff 

  0add:80 0093            lag global147 
  0ae0:31 24              bnt code_0b06 
  0ae2:39 12            pushi 12 // $12 illegalBits
  0ae4:78               push1 
  0ae5:76               push0 
  0ae6:38 00d4          pushi d4 // $d4 setAvoider
  0ae9:78               push1 
  0aea:39 56            pushi 56 // $56 new
  0aec:76               push0 
  0aed:51 21            class Avoid 
  0aef:4a 04             send 4 

  0af1:36                push 
  0af2:38 00d3          pushi d3 // $d3 setMotion
  0af5:39 04            pushi 4 // $4 x
  0af7:51 1d            class MoveTo 
  0af9:36                push 
  0afa:38 00ed          pushi ed // $ed put
  0afd:39 5b            pushi 5b // $5b perform
  0aff:7c            pushSelf 
  0b00:81 00              lag gEgo 
  0b02:4a 18             send 18 

  0b04:33 22              jmp code_0b28 

        code_0b06
  0b06:39 12            pushi 12 // $12 illegalBits
  0b08:78               push1 
  0b09:76               push0 
  0b0a:38 00d4          pushi d4 // $d4 setAvoider
  0b0d:78               push1 
  0b0e:39 56            pushi 56 // $56 new
  0b10:76               push0 
  0b11:51 21            class Avoid 
  0b13:4a 04             send 4 

  0b15:36                push 
  0b16:38 00d3          pushi d3 // $d3 setMotion
  0b19:39 04            pushi 4 // $4 x
  0b1b:51 1d            class MoveTo 
  0b1d:36                push 
  0b1e:38 00ca          pushi ca // $ca show
  0b21:39 5a            pushi 5a // $5a showSelf
  0b23:7c            pushSelf 
  0b24:81 00              lag gEgo 
  0b26:4a 18             send 18 


        code_0b28
  0b28:32 015d            jmp code_0c88 

        code_0b2b
  0b2b:3c                 dup 
  0b2c:35 01              ldi 1 
  0b2e:1a                 eq? 
  0b2f:31 7f              bnt code_0bb0 
  0b31:39 06            pushi 6 // $6 loop
  0b33:78               push1 
  0b34:7a               push2 
  0b35:38 0089          pushi 89 // $89 hide
  0b38:76               push0 
  0b39:81 00              lag gEgo 
  0b3b:4a 0a             send a 

  0b3d:80 0093            lag global147 
  0b40:31 30              bnt code_0b72 
  0b42:39 06            pushi 6 // $6 loop
  0b44:78               push1 
  0b45:78               push1 
  0b46:39 07            pushi 7 // $7 cel
  0b48:78               push1 
  0b49:76               push0 
  0b4a:38 00a4          pushi a4 // $a4 cycleSpeed
  0b4d:78               push1 
  0b4e:78               push1 
  0b4f:39 7e            pushi 7e // $7e setCycle
  0b51:7a               push2 
  0b52:51 1a            class End 
  0b54:36                push 
  0b55:7c            pushSelf 
  0b56:72 074d          lofsa $12a6 // statue
  0b59:4a 1a             send 1a 

  0b5b:39 42            pushi 42 // $42 setPri
  0b5d:78               push1 
  0b5e:39 09            pushi 9 // $9 nsTop
  0b60:38 00a4          pushi a4 // $a4 cycleSpeed
  0b63:78               push1 
  0b64:78               push1 
  0b65:39 7e            pushi 7e // $7e setCycle
  0b67:78               push1 
  0b68:51 1a            class End 
  0b6a:36                push 
  0b6b:72 06e6          lofsa $1254 // Trap
  0b6e:4a 12             send 12 

  0b70:33 2a              jmp code_0b9c 

        code_0b72
  0b72:39 06            pushi 6 // $6 loop
  0b74:78               push1 
  0b75:39 08            pushi 8 // $8 underBits
  0b77:39 07            pushi 7 // $7 cel
  0b79:78               push1 
  0b7a:76               push0 
  0b7b:38 00a4          pushi a4 // $a4 cycleSpeed
  0b7e:78               push1 
  0b7f:78               push1 
  0b80:39 7e            pushi 7e // $7e setCycle
  0b82:7a               push2 
  0b83:51 1a            class End 
  0b85:36                push 
  0b86:7c            pushSelf 
  0b87:72 071c          lofsa $12a6 // statue
  0b8a:4a 1a             send 1a 

  0b8c:38 00a4          pushi a4 // $a4 cycleSpeed
  0b8f:78               push1 
  0b90:78               push1 
  0b91:39 7e            pushi 7e // $7e setCycle
  0b93:78               push1 
  0b94:51 1b            class Beg 
  0b96:36                push 
  0b97:72 06ba          lofsa $1254 // Trap
  0b9a:4a 0c             send c 


        code_0b9c
  0b9c:39 2b            pushi 2b // $2b number
  0b9e:78               push1 
  0b9f:39 4e            pushi 4e // $4e save
  0ba1:39 06            pushi 6 // $6 loop
  0ba3:78               push1 
  0ba4:78               push1 
  0ba5:39 2a            pushi 2a // $2a play
  0ba7:76               push0 
  0ba8:72 09df          lofsa $158a // myMusic
  0bab:4a 10             send 10 

  0bad:32 00d8            jmp code_0c88 

        code_0bb0
  0bb0:3c                 dup 
  0bb1:35 02              ldi 2 
  0bb3:1a                 eq? 
  0bb4:31 50              bnt code_0c06 
  0bb6:80 0093            lag global147 
  0bb9:31 13              bnt code_0bce 
  0bbb:39 06            pushi 6 // $6 loop
  0bbd:78               push1 
  0bbe:7a               push2 
  0bbf:39 07            pushi 7 // $7 cel
  0bc1:78               push1 
  0bc2:7a               push2 
  0bc3:38 00c6          pushi c6 // $c6 stopUpd
  0bc6:76               push0 
  0bc7:72 06dc          lofsa $12a6 // statue
  0bca:4a 10             send 10 

  0bcc:33 11              jmp code_0bdf 

        code_0bce
  0bce:39 06            pushi 6 // $6 loop
  0bd0:78               push1 
  0bd1:7a               push2 
  0bd2:39 07            pushi 7 // $7 cel
  0bd4:78               push1 
  0bd5:78               push1 
  0bd6:38 00c6          pushi c6 // $c6 stopUpd
  0bd9:76               push0 
  0bda:72 06c9          lofsa $12a6 // statue
  0bdd:4a 10             send 10 


        code_0bdf
  0bdf:38 00ca          pushi ca // $ca show
  0be2:76               push0 
  0be3:39 05            pushi 5 // $5 view
  0be5:78               push1 
  0be6:38 00a5          pushi a5 // $a5 cycler
  0be9:39 06            pushi 6 // $6 loop
  0beb:78               push1 
  0bec:39 05            pushi 5 // $5 view
  0bee:39 07            pushi 7 // $7 cel
  0bf0:78               push1 
  0bf1:76               push0 
  0bf2:39 12            pushi 12 // $12 illegalBits
  0bf4:78               push1 
  0bf5:38 8000          pushi 8000 // $8000 sel_32768
  0bf8:39 7e            pushi 7e // $7e setCycle
  0bfa:7a               push2 
  0bfb:51 1a            class End 
  0bfd:36                push 
  0bfe:7c            pushSelf 
  0bff:81 00              lag gEgo 
  0c01:4a 24             send 24 

  0c03:32 0082            jmp code_0c88 

        code_0c06
  0c06:3c                 dup 
  0c07:35 03              ldi 3 
  0c09:1a                 eq? 
  0c0a:31 7c              bnt code_0c88 
  0c0c:80 0093            lag global147 
  0c0f:31 30              bnt code_0c41 
  0c11:7a               push2 
  0c12:39 41            pushi 41 // $41 replay
  0c14:39 23            pushi 23 // $23 window
  0c16:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0c1c:39 05            pushi 5 // $5 view
  0c1e:78               push1 
  0c1f:76               push0 
  0c20:39 06            pushi 6 // $6 loop
  0c22:78               push1 
  0c23:7a               push2 
  0c24:39 7e            pushi 7e // $7e setCycle
  0c26:78               push1 
  0c27:51 17            class Walk 
  0c29:36                push 
  0c2a:38 00d4          pushi d4 // $d4 setAvoider
  0c2d:78               push1 
  0c2e:76               push0 
  0c2f:38 00d6          pushi d6 // $d6 observeControl
  0c32:7a               push2 
  0c33:7a               push2 
  0c34:39 40            pushi 40 // $40 modifiers
  0c36:81 00              lag gEgo 
  0c38:4a 20             send 20 

  0c3a:35 01              ldi 1 
  0c3c:a0 0093            sag global147 
  0c3f:33 3b              jmp code_0c7c 

        code_0c41
  0c41:39 05            pushi 5 // $5 view
  0c43:78               push1 
  0c44:76               push0 
  0c45:39 06            pushi 6 // $6 loop
  0c47:78               push1 
  0c48:7a               push2 
  0c49:39 7e            pushi 7e // $7e setCycle
  0c4b:78               push1 
  0c4c:51 17            class Walk 
  0c4e:36                push 
  0c4f:38 00d4          pushi d4 // $d4 setAvoider
  0c52:78               push1 
  0c53:76               push0 
  0c54:38 00d7          pushi d7 // $d7 ignoreControl
  0c57:78               push1 
  0c58:7a               push2 
  0c59:81 00              lag gEgo 
  0c5b:4a 1e             send 1e 

  0c5d:39 07            pushi 7 // $7 cel
  0c5f:78               push1 
  0c60:76               push0 
  0c61:39 42            pushi 42 // $42 setPri
  0c63:78               push1 
  0c64:39 04            pushi 4 // $4 x
  0c66:38 00c9          pushi c9 // $c9 ignoreActors
  0c69:78               push1 
  0c6a:78               push1 
  0c6b:39 57            pushi 57 // $57 init
  0c6d:76               push0 
  0c6e:38 00c6          pushi c6 // $c6 stopUpd
  0c71:76               push0 
  0c72:72 05df          lofsa $1254 // Trap
  0c75:4a 1a             send 1a 

  0c77:35 00              ldi 0 
  0c79:a0 0093            sag global147 

        code_0c7c
  0c7c:76               push0 
  0c7d:45 04 00         callb procedure_0004 0 // HandsOn 

  0c80:39 7a            pushi 7a // $7a setScript
  0c82:78               push1 
  0c83:76               push0 
  0c84:63 08             pToa client 
  0c86:4a 06             send 6 


        code_0c88
  0c88:3a                toss 
  0c89:48                 ret 
    )

)

// 124e
(instance Trap of Prop
    (properties
        y $80
        x $11a
        z $0
        heading $0
        yStep $2
        view $a5
        loop $0
        cel $4
        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_0c8a
  0c8a:78               push1 
  0c8b:74 0365          lofss $0ff3 // clore/trapdoor
  0c8e:43 25 02         callk Said 2 

  0c91:31 20              bnt code_0cb3 
  0c93:80 0093            lag global147 
  0c96:31 0d              bnt code_0ca5 
  0c98:7a               push2 
  0c99:39 41            pushi 41 // $41 replay
  0c9b:39 24            pushi 24 // $24 cursor
  0c9d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ca3:33 0b              jmp code_0cb0 

        code_0ca5
  0ca5:7a               push2 
  0ca6:39 41            pushi 41 // $41 replay
  0ca8:39 25            pushi 25 // $25 max
  0caa:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0cb0
  0cb0:32 00d4            jmp code_0d87 

        code_0cb3
  0cb3:78               push1 
  0cb4:74 042d          lofss $10e4 // open/trapdoor
  0cb7:43 25 02         callk Said 2 

  0cba:31 19              bnt code_0cd5 
  0cbc:80 0093            lag global147 
  0cbf:31 06              bnt code_0cc7 
  0cc1:76               push0 
  0cc2:45 10 00         callb procedure_0010 0 // AlreadyOpen 

  0cc5:33 0b              jmp code_0cd2 

        code_0cc7
  0cc7:7a               push2 
  0cc8:39 41            pushi 41 // $41 replay
  0cca:39 25            pushi 25 // $25 max
  0ccc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0cd2
  0cd2:32 00b2            jmp code_0d87 

        code_0cd5
  0cd5:78               push1 
  0cd6:74 03ab          lofss $1084 // look<(dans,bas)/trapdoor
  0cd9:43 25 02         callk Said 2 

  0cdc:31 36              bnt code_0d14 
  0cde:80 0093            lag global147 
  0ce1:31 24              bnt code_0d07 
  0ce3:38 00ae          pushi ae // $ae distanceTo
  0ce6:78               push1 
  0ce7:74 056a          lofss $1254 // Trap
  0cea:81 00              lag gEgo 
  0cec:4a 06             send 6 

  0cee:36                push 
  0cef:35 3c              ldi 3c 
  0cf1:22                 lt? 
  0cf2:31 0d              bnt code_0d01 
  0cf4:7a               push2 
  0cf5:39 41            pushi 41 // $41 replay
  0cf7:39 26            pushi 26 // $26 mark
  0cf9:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0cff:33 04              jmp code_0d05 

        code_0d01
  0d01:76               push0 
  0d02:45 09 00         callb procedure_0009 0 // NotClose 


        code_0d05
  0d05:33 0b              jmp code_0d12 

        code_0d07
  0d07:7a               push2 
  0d08:39 41            pushi 41 // $41 replay
  0d0a:39 05            pushi 5 // $5 view
  0d0c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0d12
  0d12:33 73              jmp code_0d87 

        code_0d14
  0d14:78               push1 
  0d15:74 037a          lofss $1092 // look<bas
  0d18:43 25 02         callk Said 2 

  0d1b:31 2d              bnt code_0d4a 
  0d1d:80 0093            lag global147 
  0d20:31 1e              bnt code_0d40 
  0d22:38 00ae          pushi ae // $ae distanceTo
  0d25:78               push1 
  0d26:74 052b          lofss $1254 // Trap
  0d29:81 00              lag gEgo 
  0d2b:4a 06             send 6 

  0d2d:36                push 
  0d2e:35 3c              ldi 3c 
  0d30:22                 lt? 
  0d31:31 0d              bnt code_0d40 
  0d33:7a               push2 
  0d34:39 41            pushi 41 // $41 replay
  0d36:39 26            pushi 26 // $26 mark
  0d38:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d3e:33 08              jmp code_0d48 

        code_0d40
  0d40:39 4c            pushi 4c // $4c claimed
  0d42:78               push1 
  0d43:76               push0 
  0d44:87 01              lap param1 
  0d46:4a 06             send 6 


        code_0d48
  0d48:33 3d              jmp code_0d87 

        code_0d4a
  0d4a:78               push1 
  0d4b:74 0312          lofss $1060 // look,find/trapdoor
  0d4e:43 25 02         callk Said 2 

  0d51:2f 0f               bt code_0d62 
  0d53:39 03            pushi 3 // $3 y
  0d55:7c            pushSelf 
  0d56:8f 01              lsp param1 
  0d58:39 03            pushi 3 // $3 y
  0d5a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0d60:31 25              bnt code_0d87 

        code_0d62
  0d62:39 4c            pushi 4c // $4c claimed
  0d64:78               push1 
  0d65:78               push1 
  0d66:87 01              lap param1 
  0d68:4a 06             send 6 

  0d6a:80 0093            lag global147 
  0d6d:31 0d              bnt code_0d7c 
  0d6f:7a               push2 
  0d70:39 41            pushi 41 // $41 replay
  0d72:39 27            pushi 27 // $27 who
  0d74:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d7a:33 0b              jmp code_0d87 

        code_0d7c
  0d7c:7a               push2 
  0d7d:39 41            pushi 41 // $41 replay
  0d7f:39 05            pushi 5 // $5 view
  0d81:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0d87
  0d87:48                 ret 
    )

)

// 12a0
(instance statue of Prop
    (properties
        y $4e
        x $e0
        z $0
        heading $0
        yStep $2
        view $a5
        loop $2
        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_0d88
  0d88:78               push1 
  0d89:74 02cb          lofss $1057 // lift,get/monument
  0d8c:43 25 02         callk Said 2 

  0d8f:31 0e              bnt code_0d9f 
  0d91:7a               push2 
  0d92:39 41            pushi 41 // $41 replay
  0d94:39 28            pushi 28 // $28 message
  0d96:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0d9c:32 00d1            jmp code_0e70 

        code_0d9f
  0d9f:78               push1 
  0da0:74 030e          lofss $10b1 // bouger,appuyer,attirer,rotate,rotate/monument
  0da3:43 25 02         callk Said 2 

  0da6:31 49              bnt code_0df1 
  0da8:38 00db          pushi db // $db onControl
  0dab:78               push1 
  0dac:76               push0 
  0dad:81 00              lag gEgo 
  0daf:4a 06             send 6 

  0db1:36                push 
  0db2:35 20              ldi 20 
  0db4:12                 and 
  0db5:31 34              bnt code_0deb 
  0db7:88 0092            lsg global146 
  0dba:35 01              ldi 1 
  0dbc:1a                 eq? 
  0dbd:31 1f              bnt code_0dde 
  0dbf:80 0093            lag global147 
  0dc2:18                 not 
  0dc3:31 07              bnt code_0dcc 
  0dc5:35 01              ldi 1 
  0dc7:a0 0093            sag global147 
  0dca:33 05              jmp code_0dd1 

        code_0dcc
  0dcc:35 00              ldi 0 
  0dce:a0 0093            sag global147 

        code_0dd1
  0dd1:39 7a            pushi 7a // $7a setScript
  0dd3:78               push1 
  0dd4:74 044d          lofss $1224 // myDoor
  0dd7:72 04cc          lofsa $12a6 // statue
  0dda:4a 06             send 6 

  0ddc:33 0b              jmp code_0de9 

        code_0dde
  0dde:7a               push2 
  0ddf:39 41            pushi 41 // $41 replay
  0de1:39 29            pushi 29 // $29 edit
  0de3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0de9
  0de9:33 04              jmp code_0def 

        code_0deb
  0deb:76               push0 
  0dec:45 09 00         callb procedure_0009 0 // NotClose 


        code_0def
  0def:33 7f              jmp code_0e70 

        code_0df1
  0df1:39 03            pushi 3 // $3 y
  0df3:7c            pushSelf 
  0df4:8f 01              lsp param1 
  0df6:39 03            pushi 3 // $3 y
  0df8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0dfe:2f 09               bt code_0e09 
  0e00:78               push1 
  0e01:74 0265          lofss $1069 // look/base,monument,monument
  0e04:43 25 02         callk Said 2 

  0e07:31 67              bnt code_0e70 

        code_0e09
  0e09:39 4c            pushi 4c // $4c claimed
  0e0b:78               push1 
  0e0c:78               push1 
  0e0d:87 01              lap param1 
  0e0f:4a 06             send 6 

  0e11:38 00da          pushi da // $da inRect
  0e14:39 04            pushi 4 // $4 x
  0e16:38 00cd          pushi cd // $cd xLast
  0e19:39 6f            pushi 6f // $6f handleEvent
  0e1b:38 0114          pushi 114 // $114 minPause
  0e1e:38 00c8          pushi c8 // $c8 setLoop
  0e21:81 00              lag gEgo 
  0e23:4a 0c             send c 

  0e25:31 39              bnt code_0e60 
  0e27:38 0082          pushi 82 // $82 owner
  0e2a:76               push0 
  0e2b:39 43            pushi 43 // $43 at
  0e2d:78               push1 
  0e2e:39 0d            pushi d // $d lsTop
  0e30:81 09              lag gInventory 
  0e32:4a 06             send 6 

  0e34:4a 04             send 4 

  0e36:36                push 
  0e37:81 0b              lag gCurRoomNum 
  0e39:1a                 eq? 
  0e3a:31 12              bnt code_0e4e 
  0e3c:39 04            pushi 4 // $4 x
  0e3e:39 41            pushi 41 // $41 replay
  0e40:39 2a            pushi 2a // $2a play
  0e42:39 41            pushi 41 // $41 replay
  0e44:39 07            pushi 7 // $7 cel
  0e46:46 00ff 0004 08  calle ff procedure_0004 8 // Printf 

  0e4c:33 10              jmp code_0e5e 

        code_0e4e
  0e4e:39 04            pushi 4 // $4 x
  0e50:39 41            pushi 41 // $41 replay
  0e52:39 2a            pushi 2a // $2a play
  0e54:39 41            pushi 41 // $41 replay
  0e56:39 2b            pushi 2b // $2b number
  0e58:46 00ff 0004 08  calle ff procedure_0004 8 // Printf 


        code_0e5e
  0e5e:33 10              jmp code_0e70 

        code_0e60
  0e60:39 04            pushi 4 // $4 x
  0e62:39 41            pushi 41 // $41 replay
  0e64:39 2a            pushi 2a // $2a play
  0e66:39 41            pushi 41 // $41 replay
  0e68:39 2c            pushi 2c // $2c handle
  0e6a:46 00ff 0004 08  calle ff procedure_0004 8 // Printf 


        code_0e70
  0e70:48                 ret 
    )

)

// 12f2
(instance urn of RPicView
    (properties
        y $2e
        x $62
        z $0
        heading $0
        view $a5
        loop $2
        cel $0
        priority $3
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0e71
  0e71:78               push1 
  0e72:74 01d6          lofss $104b // get/urn
  0e75:43 25 02         callk Said 2 

  0e78:31 0e              bnt code_0e88 
  0e7a:7a               push2 
  0e7b:39 41            pushi 41 // $41 replay
  0e7d:39 2d            pushi 2d // $2d client
  0e7f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e85:32 008c            jmp code_0f14 

        code_0e88
  0e88:78               push1 
  0e89:74 0246          lofss $10d2 // bouger/urn
  0e8c:43 25 02         callk Said 2 

  0e8f:31 0d              bnt code_0e9e 
  0e91:7a               push2 
  0e92:39 41            pushi 41 // $41 replay
  0e94:39 2e            pushi 2e // $2e dx
  0e96:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0e9c:33 76              jmp code_0f14 

        code_0e9e
  0e9e:78               push1 
  0e9f:74 0202          lofss $10a4 // look<dans/urn
  0ea2:43 25 02         callk Said 2 

  0ea5:31 42              bnt code_0ee9 
  0ea7:38 00ae          pushi ae // $ae distanceTo
  0eaa:78               push1 
  0eab:74 044a          lofss $12f8 // urn
  0eae:81 00              lag gEgo 
  0eb0:4a 06             send 6 

  0eb2:36                push 
  0eb3:35 1e              ldi 1e 
  0eb5:22                 lt? 
  0eb6:31 0d              bnt code_0ec5 
  0eb8:7a               push2 
  0eb9:39 41            pushi 41 // $41 replay
  0ebb:39 2f            pushi 2f // $2f dy
  0ebd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ec3:33 22              jmp code_0ee7 

        code_0ec5
  0ec5:38 00ae          pushi ae // $ae distanceTo
  0ec8:78               push1 
  0ec9:74 0462          lofss $132e // urn1
  0ecc:81 00              lag gEgo 
  0ece:4a 06             send 6 

  0ed0:36                push 
  0ed1:35 19              ldi 19 
  0ed3:22                 lt? 
  0ed4:31 0d              bnt code_0ee3 
  0ed6:7a               push2 
  0ed7:39 41            pushi 41 // $41 replay
  0ed9:39 2f            pushi 2f // $2f dy
  0edb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ee1:33 04              jmp code_0ee7 

        code_0ee3
  0ee3:76               push0 
  0ee4:45 09 00         callb procedure_0009 0 // NotClose 


        code_0ee7
  0ee7:33 2b              jmp code_0f14 

        code_0ee9
  0ee9:39 03            pushi 3 // $3 y
  0eeb:7c            pushSelf 
  0eec:8f 01              lsp param1 
  0eee:39 03            pushi 3 // $3 y
  0ef0:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ef6:2f 09               bt code_0f01 
  0ef8:78               push1 
  0ef9:74 017f          lofss $107b // look/urn,pedestal
  0efc:43 25 02         callk Said 2 

  0eff:31 13              bnt code_0f14 

        code_0f01
  0f01:39 4c            pushi 4c // $4c claimed
  0f03:78               push1 
  0f04:78               push1 
  0f05:87 01              lap param1 
  0f07:4a 06             send 6 

  0f09:7a               push2 
  0f0a:39 41            pushi 41 // $41 replay
  0f0c:39 30            pushi 30 // $30 b-moveCnt
  0f0e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0f14
  0f14:48                 ret 
    )

)

// 1328
(instance urn1 of RPicView
    (properties
        y $99
        x $11e
        z $0
        heading $0
        view $a5
        loop $2
        cel $0
        priority $e
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0f15
  0f15:39 03            pushi 3 // $3 y
  0f17:7c            pushSelf 
  0f18:8f 01              lsp param1 
  0f1a:39 03            pushi 3 // $3 y
  0f1c:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0f22:31 13              bnt code_0f37 
  0f24:39 4c            pushi 4c // $4c claimed
  0f26:78               push1 
  0f27:78               push1 
  0f28:87 01              lap param1 
  0f2a:4a 06             send 6 

  0f2c:7a               push2 
  0f2d:39 41            pushi 41 // $41 replay
  0f2f:39 30            pushi 30 // $30 b-moveCnt
  0f31:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0f37
  0f37:48                 ret 
    )

)

// 135e
(instance fountain of Prop
    (properties
        y $7c
        x $a1
        z $0
        heading $0
        yStep $2
        view $a5
        loop $2
        cel $4
        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_0f38
  0f38:78               push1 
  0f39:74 015c          lofss $1098 // look<dans/fontaine,eau
  0f3c:43 25 02         callk Said 2 

  0f3f:31 28              bnt code_0f69 
  0f41:38 00da          pushi da // $da inRect
  0f44:39 04            pushi 4 // $4 x
  0f46:39 4b            pushi 4b // $4b said
  0f48:39 59            pushi 59 // $59 showStr
  0f4a:38 00fb          pushi fb // $fb changeScore
  0f4d:38 00a6          pushi a6 // $a6 lastCel
  0f50:81 00              lag gEgo 
  0f52:4a 0c             send c 

  0f54:31 0d              bnt code_0f63 
  0f56:7a               push2 
  0f57:39 41            pushi 41 // $41 replay
  0f59:39 31            pushi 31 // $31 b-i1
  0f5b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f61:33 04              jmp code_0f67 

        code_0f63
  0f63:76               push0 
  0f64:45 09 00         callb procedure_0009 0 // NotClose 


        code_0f67
  0f67:33 2b              jmp code_0f94 

        code_0f69
  0f69:39 03            pushi 3 // $3 y
  0f6b:7c            pushSelf 
  0f6c:8f 01              lsp param1 
  0f6e:39 03            pushi 3 // $3 y
  0f70:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0f76:2f 09               bt code_0f81 
  0f78:78               push1 
  0f79:74 00f9          lofss $1075 // look/fontaine
  0f7c:43 25 02         callk Said 2 

  0f7f:31 13              bnt code_0f94 

        code_0f81
  0f81:7a               push2 
  0f82:39 41            pushi 41 // $41 replay
  0f84:39 32            pushi 32 // $32 b-i2
  0f86:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0f8c:39 4c            pushi 4c // $4c claimed
  0f8e:78               push1 
  0f8f:78               push1 
  0f90:87 01              lap param1 
  0f92:4a 06             send 6 


        code_0f94
  0f94:48                 ret 
  0f95:00                bnot 
    )

)

// 13b0
(instance Drop1 of Prop
    (properties
        y $7d
        x $98
        z $2
        heading $0
        yStep $2
        view $a5
        loop $9
        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
    )
)

// 13fe
(instance water1 of Prop
    (properties
        y $84
        x $a2
        z $0
        heading $0
        yStep $2
        view $a5
        loop $3
        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
    )
)

// 144c
(instance water2 of Prop
    (properties
        y $84
        x $a2
        z $0
        heading $0
        yStep $2
        view $a5
        loop $4
        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
    )
)

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

// 14e8
(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
    )
)

// 1536
(instance shaft of Prop
    (properties
        y $5f
        x $f3
        z $0
        heading $0
        yStep $2
        view $a5
        loop $2
        cel $3
        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
    )
)

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



(procedure proc_0022
  0022:38 00db          pushi db // $db onControl
  0025:78               push1 
  0026:76               push0 
  0027:81 00              lag gEgo 
  0029:4a 06             send 6 

  002b:36                push 
  002c:35 04              ldi 4 
  002e:12                 and 
  002f:31 11              bnt code_0042 
  0031:35 01              ldi 1 
  0033:a3 00              sal local0 
  0035:39 7a            pushi 7a // $7a setScript
  0037:78               push1 
  0038:74 11b9          lofss $11f4 // bend
  003b:72 1106          lofsa $1144 // Room65
  003e:4a 06             send 6 

  0040:33 04              jmp code_0046 

        code_0042
  0042:76               push0 
  0043:45 09 00         callb procedure_0009 0 // NotClose 


        code_0046
  0046:48                 ret 
)

(procedure proc_0047
  0047:78               push1 
  0048:39 30            pushi 30 // $30 b-moveCnt
  004a:45 05 02         callb procedure_0005 2 // SetFlag 

  004d:35 01              ldi 1 
  004f:a0 0092            sag global146 
  0052:39 06            pushi 6 // $6 loop
  0054:78               push1 
  0055:39 07            pushi 7 // $7 cel
  0057:39 04            pushi 4 // $4 x
  0059:78               push1 
  005a:38 00a1          pushi a1 // $a1 motionCue
  005d:39 03            pushi 3 // $3 y
  005f:78               push1 
  0060:39 7d            pushi 7d // $7d set
  0062:39 55            pushi 55 // $55 z
  0064:78               push1 
  0065:7a               push2 
  0066:39 7e            pushi 7e // $7e setCycle
  0068:78               push1 
  0069:51 16            class Fwd 
  006b:36                push 
  006c:39 7a            pushi 7a // $7a setScript
  006e:78               push1 
  006f:76               push0 
  0070:72 1343          lofsa $13b6 // Drop1
  0073:4a 24             send 24 

  0075:80 00df            lag gDetailLevel 
  0078:31 20              bnt code_009a 
  007a:38 00a4          pushi a4 // $a4 cycleSpeed
  007d:78               push1 
  007e:78               push1 
  007f:39 7e            pushi 7e // $7e setCycle
  0081:78               push1 
  0082:51 16            class Fwd 
  0084:36                push 
  0085:72 137c          lofsa $1404 // water1
  0088:4a 0c             send c 

  008a:38 00a4          pushi a4 // $a4 cycleSpeed
  008d:78               push1 
  008e:78               push1 
  008f:39 7e            pushi 7e // $7e setCycle
  0091:78               push1 
  0092:51 16            class Fwd 
  0094:36                push 
  0095:72 13ba          lofsa $1452 // water2
  0098:4a 0c             send c 


        code_009a
  009a:48                 ret 
)

(procedure proc_009b
  009b:78               push1 
  009c:39 30            pushi 30 // $30 b-moveCnt
  009e:45 06 02         callb procedure_0006 2 // ClearFlag 

  00a1:35 00              ldi 0 
  00a3:a0 0092            sag global146 
  00a6:39 06            pushi 6 // $6 loop
  00a8:78               push1 
  00a9:39 09            pushi 9 // $9 nsTop
  00ab:39 07            pushi 7 // $7 cel
  00ad:78               push1 
  00ae:76               push0 
  00af:39 04            pushi 4 // $4 x
  00b1:78               push1 
  00b2:38 0098          pushi 98 // $98 center
  00b5:39 03            pushi 3 // $3 y
  00b7:78               push1 
  00b8:39 7d            pushi 7d // $7d set
  00ba:39 55            pushi 55 // $55 z
  00bc:78               push1 
  00bd:7a               push2 
  00be:72 12f5          lofsa $13b6 // Drop1
  00c1:4a 1e             send 1e 

  00c3:80 00df            lag gDetailLevel 
  00c6:31 30              bnt code_00f8 
  00c8:38 00a4          pushi a4 // $a4 cycleSpeed
  00cb:78               push1 
  00cc:78               push1 
  00cd:39 7a            pushi 7a // $7a setScript
  00cf:78               push1 
  00d0:74 10f1          lofss $11c4 // dripping
  00d3:72 12e0          lofsa $13b6 // Drop1
  00d6:4a 0c             send c 

  00d8:39 42            pushi 42 // $42 setPri
  00da:78               push1 
  00db:39 03            pushi 3 // $3 y
  00dd:38 00a4          pushi a4 // $a4 cycleSpeed
  00e0:78               push1 
  00e1:39 04            pushi 4 // $4 x
  00e3:72 131e          lofsa $1404 // water1
  00e6:4a 0c             send c 

  00e8:39 42            pushi 42 // $42 setPri
  00ea:78               push1 
  00eb:39 03            pushi 3 // $3 y
  00ed:38 00a4          pushi a4 // $a4 cycleSpeed
  00f0:78               push1 
  00f1:39 04            pushi 4 // $4 x
  00f3:72 135c          lofsa $1452 // water2
  00f6:4a 0c             send c 


        code_00f8
  00f8:48                 ret 
)

