(script 6)

(string
    string_11de "Celie"
    string_11e4 "Chair"
    string_11ea "Door"
    string_11ef "Room6"
    string_11f5 "Window1"
    string_11fd "Window2"
    string_1205 "chick1"
    string_120c "chick2"
    string_1213 "closeDoor"
    string_121d "coop"
    string_1222 "firstGreet"
    string_122d "knockDoor"
    string_1237 "lastGreet"
    string_1241 "light1"
    string_1248 "light2"
    string_124f "myMusic"
    string_1257 "secondGreet"
    string_1263 ""
)

(said
    said_0c2a *
    said_0c2d /archway
    said_0c31 /cabin
    said_0c35 /barriere
    said_0c39 /champ
    said_0c3d /gallery
    said_0c41 /path
    said_0c45 [<around,at][/room]
    said_0c53 ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_0c72 bang[/door]
    said_0c7a boulder,asseoir[/chair,balancier]
    said_0c88 break,arracher/door
    said_0c91 break/fenetre
    said_0c97 attraper,get,detach/chicken
    said_0ca3 climb/barriere
    said_0ca9 feed,deliver/*/chicken
    said_0cb5 feed,deliver/*<chicken
    said_0cc1 feed,deliver/chicken
    said_0cca get/balancier,chair[<rocking]
    said_0cd8 look/(coop[<chicken]),(cabin<chicken)
    said_0ced look/chicken
    said_0cf3 look/door
    said_0cf9 look/balancier,chair[<rocking]
    said_0d07 look/fenetre
    said_0d0d look<(below,behind)/(coop[<chicken]),(cabin<chicken)
    said_0d2a look<(dans,through)/fenetre,(cabin[<celie])
    said_0d42 look>
    said_0d46 open/coop
    said_0d4c open/door
    said_0d52 open/fenetre
    said_0d58 hold,deliver/collier<celie
    said_0d64 hold,deliver/collier[/celie]
    said_0d72 bonjour/chicken
)

(local
    local0 = $0000
    local1 = $0000
)

// 0d7e
(instance public Room6 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $6
        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_000c
  000c:35 12              ldi 12 
  000e:65 1e             aTop south 
  0010:35 0c              ldi c 
  0012:65 20             aTop west 
  0014:35 07              ldi 7 
  0016:65 1c             aTop east 
  0018:39 57            pushi 57 // $57 init
  001a:76               push0 
  001b:57 37 04         super Rm 4 

  001e:89 76              lsg gMustDos 
  0020:35 01              ldi 1 
  0022:12                 and 
  0023:18                 not 
  0024:31 35              bnt code_005b 
  0026:88 00a5            lsg gAct 
  0029:35 05              ldi 5 
  002b:1a                 eq? 
  002c:31 2d              bnt code_005b 
  002e:7a               push2 
  002f:38 0087          pushi 87 // $87 clean
  0032:39 29            pushi 29 // $29 edit
  0034:43 00 04         callk Load 4 

  0037:7a               push2 
  0038:38 0080          pushi 80 // $80 timeLeft
  003b:38 0282          pushi 282 // $282 sel_642
  003e:43 00 04         callk Load 4 

  0041:39 05            pushi 5 // $5 view
  0043:38 0084          pushi 84 // $84 stop
  0046:39 1d            pushi 1d // $1d back
  0048:39 5e            pushi 5e // $5e respondsTo
  004a:39 5f            pushi 5f // $5f yourself
  004c:39 60            pushi 60 // $60 size
  004e:45 15 0a         callb procedure_0015 a // LoadMany 

  0051:7a               push2 
  0052:38 0082          pushi 82 // $82 owner
  0055:38 0196          pushi 196 // $196 sel_406
  0058:43 00 04         callk Load 4 


        code_005b
  005b:80 00df            lag gDetailLevel 
  005e:31 48              bnt code_00a8 
  0060:39 12            pushi 12 // $12 illegalBits
  0062:78               push1 
  0063:39 04            pushi 4 // $4 x
  0065:38 00c9          pushi c9 // $c9 ignoreActors
  0068:78               push1 
  0069:78               push1 
  006a:39 38            pushi 38 // $38 moveSpeed
  006c:78               push1 
  006d:7a               push2 
  006e:38 00d3          pushi d3 // $d3 setMotion
  0071:7a               push2 
  0072:51 1e            class Wander 
  0074:36                push 
  0075:78               push1 
  0076:39 42            pushi 42 // $42 setPri
  0078:78               push1 
  0079:39 07            pushi 7 // $7 cel
  007b:39 57            pushi 57 // $57 init
  007d:76               push0 
  007e:72 0f57          lofsa $0fd8 // chick1
  0081:4a 24             send 24 

  0083:39 12            pushi 12 // $12 illegalBits
  0085:78               push1 
  0086:39 04            pushi 4 // $4 x
  0088:38 00c9          pushi c9 // $c9 ignoreActors
  008b:78               push1 
  008c:78               push1 
  008d:39 38            pushi 38 // $38 moveSpeed
  008f:78               push1 
  0090:7a               push2 
  0091:38 00d3          pushi d3 // $d3 setMotion
  0094:7a               push2 
  0095:51 1e            class Wander 
  0097:36                push 
  0098:78               push1 
  0099:39 42            pushi 42 // $42 setPri
  009b:78               push1 
  009c:39 07            pushi 7 // $7 cel
  009e:39 57            pushi 57 // $57 init
  00a0:76               push0 
  00a1:72 0f9c          lofsa $1040 // chick2
  00a4:4a 24             send 24 

  00a6:33 36              jmp code_00de 

        code_00a8
  00a8:39 12            pushi 12 // $12 illegalBits
  00aa:78               push1 
  00ab:39 04            pushi 4 // $4 x
  00ad:38 00c9          pushi c9 // $c9 ignoreActors
  00b0:78               push1 
  00b1:78               push1 
  00b2:39 42            pushi 42 // $42 setPri
  00b4:78               push1 
  00b5:39 07            pushi 7 // $7 cel
  00b7:39 57            pushi 57 // $57 init
  00b9:76               push0 
  00ba:38 00c6          pushi c6 // $c6 stopUpd
  00bd:76               push0 
  00be:72 0f17          lofsa $0fd8 // chick1
  00c1:4a 1a             send 1a 

  00c3:39 12            pushi 12 // $12 illegalBits
  00c5:78               push1 
  00c6:39 04            pushi 4 // $4 x
  00c8:38 00c9          pushi c9 // $c9 ignoreActors
  00cb:78               push1 
  00cc:78               push1 
  00cd:39 42            pushi 42 // $42 setPri
  00cf:78               push1 
  00d0:39 07            pushi 7 // $7 cel
  00d2:39 57            pushi 57 // $57 init
  00d4:76               push0 
  00d5:38 00c6          pushi c6 // $c6 stopUpd
  00d8:76               push0 
  00d9:72 0f64          lofsa $1040 // chick2
  00dc:4a 1a             send 1a 


        code_00de
  00de:39 61            pushi 61 // $61 add
  00e0:78               push1 
  00e1:74 1012          lofss $10f6 // coop
  00e4:39 62            pushi 62 // $62 eachElementDo
  00e6:78               push1 
  00e7:39 57            pushi 57 // $57 init
  00e9:39 3c            pushi 3c // $3c doit
  00eb:76               push0 
  00ec:81 0a              lag gAddToPics 
  00ee:4a 10             send 10 

  00f0:39 07            pushi 7 // $7 cel
  00f2:78               push1 
  00f3:89 0c              lsg gPrevRoomNum 
  00f5:35 3b              ldi 3b 
  00f7:1a                 eq? 
  00f8:31 04              bnt code_00fe 
  00fa:35 03              ldi 3 
  00fc:33 02              jmp code_0100 

        code_00fe
  00fe:35 00              ldi 0 

        code_0100
  0100:36                push 
  0101:39 57            pushi 57 // $57 init
  0103:76               push0 
  0104:38 00c6          pushi c6 // $c6 stopUpd
  0107:76               push0 
  0108:72 0d8d          lofsa $0e98 // Door
  010b:4a 0e             send e 

  010d:72 0d88          lofsa $0e98 // Door
  0110:a0 0175            sag global373 
  0113:39 04            pushi 4 // $4 x
  0115:38 0084          pushi 84 // $84 stop
  0118:39 2b            pushi 2b // $2b number
  011a:39 2c            pushi 2c // $2c handle
  011c:39 30            pushi 30 // $30 b-moveCnt
  011e:45 15 08         callb procedure_0015 8 // LoadMany 

  0121:7a               push2 
  0122:38 0080          pushi 80 // $80 timeLeft
  0125:39 38            pushi 38 // $38 moveSpeed
  0127:43 00 04         callk Load 4 

  012a:38 010b          pushi 10b // $10b setFeatures
  012d:39 03            pushi 3 // $3 y
  012f:74 0fc4          lofss $10f6 // coop
  0132:74 0ff7          lofss $112c // Window1
  0135:74 1020          lofss $1158 // Window2
  0138:54 0a             self a 

  013a:88 00a5            lsg gAct 
  013d:35 02              ldi 2 
  013f:20                 ge? 
  0140:31 18              bnt code_015a 
  0142:39 57            pushi 57 // $57 init
  0144:76               push0 
  0145:38 00c6          pushi c6 // $c6 stopUpd
  0148:76               push0 
  0149:72 0d9e          lofsa $0eea // light1
  014c:4a 08             send 8 

  014e:39 57            pushi 57 // $57 init
  0150:76               push0 
  0151:38 00c6          pushi c6 // $c6 stopUpd
  0154:76               push0 
  0155:72 0de0          lofsa $0f38 // light2
  0158:4a 08             send 8 


        code_015a
  015a:88 00a5            lsg gAct 
  015d:35 03              ldi 3 
  015f:1a                 eq? 
  0160:31 13              bnt code_0175 
  0162:89 0c              lsg gPrevRoomNum 
  0164:35 3b              ldi 3b 
  0166:1a                 eq? 
  0167:18                 not 
  0168:31 0b              bnt code_0175 
  016a:38 010a          pushi 10a // $10a setRegions
  016d:78               push1 
  016e:38 010a          pushi 10a // $10a setRegions
  0171:54 06             self 6 

  0173:33 17              jmp code_018c 

        code_0175
  0175:39 57            pushi 57 // $57 init
  0177:76               push0 
  0178:38 00c6          pushi c6 // $c6 stopUpd
  017b:76               push0 
  017c:72 0e07          lofsa $0f86 // Chair
  017f:4a 08             send 8 

  0181:39 05            pushi 5 // $5 view
  0183:78               push1 
  0184:38 01e0          pushi 1e0 // $1e0 sel_480
  0187:72 0f1e          lofsa $10a8 // Celie
  018a:4a 06             send 6 


        code_018c
  018c:88 00a5            lsg gAct 
  018f:35 03              ldi 3 
  0191:1a                 eq? 
  0192:31 10              bnt code_01a4 
  0194:89 73              lsg gJeevesChoresState 
  0196:35 02              ldi 2 
  0198:22                 lt? 
  0199:31 09              bnt code_01a4 
  019b:38 010a          pushi 10a // $10a setRegions
  019e:78               push1 
  019f:38 00cb          pushi cb // $cb addToPic
  01a2:54 06             self 6 


        code_01a4
  01a4:89 0c              lsg gPrevRoomNum 
  01a6:3c                 dup 
  01a7:35 07              ldi 7 
  01a9:1a                 eq? 
  01aa:31 10              bnt code_01bc 
  01ac:38 00c5          pushi c5 // $c5 posn
  01af:7a               push2 
  01b0:38 0136          pushi 136 // $136 elevatorID
  01b3:38 0097          pushi 97 // $97 open
  01b6:81 00              lag gEgo 
  01b8:4a 08             send 8 

  01ba:33 48              jmp code_0204 

        code_01bc
  01bc:3c                 dup 
  01bd:35 0c              ldi c 
  01bf:1a                 eq? 
  01c0:31 0e              bnt code_01d0 
  01c2:38 00c5          pushi c5 // $c5 posn
  01c5:7a               push2 
  01c6:78               push1 
  01c7:38 00b6          pushi b6 // $b6 escapeTurn
  01ca:81 00              lag gEgo 
  01cc:4a 08             send 8 

  01ce:33 34              jmp code_0204 

        code_01d0
  01d0:3c                 dup 
  01d1:35 3b              ldi 3b 
  01d3:1a                 eq? 
  01d4:31 1a              bnt code_01f0 
  01d6:38 00c5          pushi c5 // $c5 posn
  01d9:7a               push2 
  01da:38 00ee          pushi ee // $ee has
  01dd:39 65            pushi 65 // $65 contains
  01df:81 00              lag gEgo 
  01e1:4a 08             send 8 

  01e3:39 7a            pushi 7a // $7a setScript
  01e5:78               push1 
  01e6:74 0fc5          lofss $11ae // closeDoor
  01e9:72 0cac          lofsa $0e98 // Door
  01ec:4a 06             send 6 

  01ee:33 14              jmp code_0204 

        code_01f0
  01f0:3c                 dup 
  01f1:35 12              ldi 12 
  01f3:1a                 eq? 
  01f4:31 0e              bnt code_0204 
  01f6:38 00c5          pushi c5 // $c5 posn
  01f9:7a               push2 
  01fa:38 0094          pushi 94 // $94 retreat
  01fd:38 00b9          pushi b9 // $b9 nonBumps
  0200:81 00              lag gEgo 
  0202:4a 08             send 8 


        code_0204
  0204:3a                toss 
  0205:39 12            pushi 12 // $12 illegalBits
  0207:78               push1 
  0208:38 8000          pushi 8000 // $8000 sel_32768
  020b:39 05            pushi 5 // $5 view
  020d:78               push1 
  020e:76               push0 
  020f:39 57            pushi 57 // $57 init
  0211:76               push0 
  0212:81 00              lag gEgo 
  0214:4a 10             send 10 

  0216:48                 ret 
    )

    (method (doit) // method_0217
  0217:76               push0 
  0218:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  021b:31 0a              bnt code_0227 
  021d:7a               push2 
  021e:39 06            pushi 6 // $6 loop
  0220:76               push0 
  0221:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


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

  0230:36                push 
  0231:34 4000            ldi 4000 
  0234:12                 and 
  0235:31 0b              bnt code_0242 
  0237:39 42            pushi 42 // $42 setPri
  0239:78               push1 
  023a:39 06            pushi 6 // $6 loop
  023c:81 00              lag gEgo 
  023e:4a 06             send 6 

  0240:33 09              jmp code_024b 

        code_0242
  0242:39 42            pushi 42 // $42 setPri
  0244:78               push1 
  0245:39 ff            pushi ff // $ff checkAni
  0247:81 00              lag gEgo 
  0249:4a 06             send 6 


        code_024b
  024b:39 3c            pushi 3c // $3c doit
  024d:76               push0 
  024e:57 37 04         super Rm 4 

  0251:88 00bf            lsg global191 
  0254:35 01              ldi 1 
  0256:1a                 eq? 
  0257:31 12              bnt code_026b 
  0259:83 00              lal local0 
  025b:18                 not 
  025c:31 0d              bnt code_026b 
  025e:35 01              ldi 1 
  0260:a3 00              sal local0 
  0262:38 00ca          pushi ca // $ca show
  0265:76               push0 
  0266:72 0c2f          lofsa $0e98 // Door
  0269:4a 04             send 4 


        code_026b
  026b:48                 ret 
    )

    (method (dispose) // method_026c
  026c:78               push1 
  026d:38 03d0          pushi 3d0 // $3d0 sel_976
  0270:43 03 02         callk DisposeScript 2 

  0273:39 58            pushi 58 // $58 dispose
  0275:76               push0 
  0276:57 37 04         super Rm 4 

  0279:48                 ret 
    )

    (method (newRoom) // method_027a
  027a:8f 01              lsp param1 
  027c:35 3b              ldi 3b 
  027e:1a                 eq? 
  027f:31 09              bnt code_028a 
  0281:38 0084          pushi 84 // $84 stop
  0284:76               push0 
  0285:80 00b7            lag gConMusic 
  0288:4a 04             send 4 


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

  0293:48                 ret 
    )

    (method (handleEvent) // method_0294
  0294:3f 01             link 1 // (var $1)
  0296:39 6f            pushi 6f // $6f handleEvent
  0298:78               push1 
  0299:8f 01              lsp param1 
  029b:57 37 06         super Rm 6 

  029e:39 4c            pushi 4c // $4c claimed
  02a0:76               push0 
  02a1:87 01              lap param1 
  02a3:4a 04             send 4 

  02a5:31 01              bnt code_02a8 
  02a7:48                 ret 

        code_02a8
  02a8:39 22            pushi 22 // $22 type
  02aa:76               push0 
  02ab:87 01              lap param1 
  02ad:4a 04             send 4 

  02af:36                push 
  02b0:34 0080            ldi 80 
  02b3:1a                 eq? 
  02b4:30 014e            bnt code_0405 
  02b7:80 00d0            lag global208 
  02ba:31 2d              bnt code_02e9 
  02bc:78               push1 
  02bd:74 0993          lofss $0c53 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  02c0:43 25 02         callk Said 2 

  02c3:31 24              bnt code_02e9 
  02c5:39 7a            pushi 7a // $7a setScript
  02c7:78               push1 
  02c8:7a               push2 
  02c9:38 00f3          pushi f3 // $f3 close
  02cc:76               push0 
  02cd:43 02 04         callk ScriptID 4 

  02d0:36                push 
  02d1:54 06             self 6 

  02d3:39 6f            pushi 6f // $6f handleEvent
  02d5:78               push1 
  02d6:8f 01              lsp param1 
  02d8:39 76            pushi 76 // $76 script
  02da:76               push0 
  02db:54 04             self 4 

  02dd:4a 06             send 6 

  02df:39 4c            pushi 4c // $4c claimed
  02e1:76               push0 
  02e2:87 01              lap param1 
  02e4:4a 04             send 4 

  02e6:31 01              bnt code_02e9 
  02e8:48                 ret 

        code_02e9
  02e9:78               push1 
  02ea:74 0a55          lofss $0d42 // look>
  02ed:43 25 02         callk Said 2 

  02f0:30 00ae            bnt code_03a1 
  02f3:78               push1 
  02f4:74 094e          lofss $0c45 // [<around,at][/room]
  02f7:43 25 02         callk Said 2 

  02fa:31 0d              bnt code_0309 
  02fc:7a               push2 
  02fd:39 06            pushi 6 // $6 loop
  02ff:76               push0 
  0300:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0306:32 0096            jmp code_039f 

        code_0309
  0309:78               push1 
  030a:74 092c          lofss $0c39 // /champ
  030d:43 25 02         callk Said 2 

  0310:31 0d              bnt code_031f 
  0312:7a               push2 
  0313:39 06            pushi 6 // $6 loop
  0315:78               push1 
  0316:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  031c:32 0080            jmp code_039f 

        code_031f
  031f:78               push1 
  0320:74 0912          lofss $0c35 // /barriere
  0323:43 25 02         callk Said 2 

  0326:31 0c              bnt code_0334 
  0328:7a               push2 
  0329:39 06            pushi 6 // $6 loop
  032b:7a               push2 
  032c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0332:33 6b              jmp code_039f 

        code_0334
  0334:78               push1 
  0335:74 08f5          lofss $0c2d // /archway
  0338:43 25 02         callk Said 2 

  033b:31 0d              bnt code_034a 
  033d:7a               push2 
  033e:39 06            pushi 6 // $6 loop
  0340:39 03            pushi 3 // $3 y
  0342:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0348:33 55              jmp code_039f 

        code_034a
  034a:78               push1 
  034b:74 08f3          lofss $0c41 // /path
  034e:43 25 02         callk Said 2 

  0351:31 0d              bnt code_0360 
  0353:7a               push2 
  0354:39 06            pushi 6 // $6 loop
  0356:39 04            pushi 4 // $4 x
  0358:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  035e:33 3f              jmp code_039f 

        code_0360
  0360:78               push1 
  0361:74 08cd          lofss $0c31 // /cabin
  0364:43 25 02         callk Said 2 

  0367:31 0d              bnt code_0376 
  0369:7a               push2 
  036a:39 06            pushi 6 // $6 loop
  036c:39 05            pushi 5 // $5 view
  036e:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0374:33 29              jmp code_039f 

        code_0376
  0376:78               push1 
  0377:74 08c3          lofss $0c3d // /gallery
  037a:43 25 02         callk Said 2 

  037d:31 20              bnt code_039f 
  037f:88 00a5            lsg gAct 
  0382:35 03              ldi 3 
  0384:1a                 eq? 
  0385:31 0d              bnt code_0394 
  0387:7a               push2 
  0388:39 06            pushi 6 // $6 loop
  038a:39 06            pushi 6 // $6 loop
  038c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0392:33 0b              jmp code_039f 

        code_0394
  0394:7a               push2 
  0395:39 06            pushi 6 // $6 loop
  0397:39 07            pushi 7 // $7 cel
  0399:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_039f
  039f:33 64              jmp code_0405 

        code_03a1
  03a1:78               push1 
  03a2:74 08cd          lofss $0c72 // bang[/door]
  03a5:43 25 02         callk Said 2 

  03a8:31 47              bnt code_03f1 
  03aa:88 00a5            lsg gAct 
  03ad:35 03              ldi 3 
  03af:1a                 eq? 
  03b0:31 15              bnt code_03c7 
  03b2:89 0c              lsg gPrevRoomNum 
  03b4:35 3b              ldi 3b 
  03b6:1a                 eq? 
  03b7:18                 not 
  03b8:31 0d              bnt code_03c7 
  03ba:7a               push2 
  03bb:39 06            pushi 6 // $6 loop
  03bd:39 08            pushi 8 // $8 underBits
  03bf:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  03c5:33 28              jmp code_03ef 

        code_03c7
  03c7:38 00db          pushi db // $db onControl
  03ca:78               push1 
  03cb:76               push0 
  03cc:81 00              lag gEgo 
  03ce:4a 06             send 6 

  03d0:36                push 
  03d1:35 10              ldi 10 
  03d3:12                 and 
  03d4:31 15              bnt code_03eb 
  03d6:83 01              lal local1 
  03d8:18                 not 
  03d9:31 0e              bnt code_03e9 
  03db:35 01              ldi 1 
  03dd:a3 01              sal local1 
  03df:39 7a            pushi 7a // $7a setScript
  03e1:78               push1 
  03e2:74 0a83          lofss $0e68 // knockDoor
  03e5:81 00              lag gEgo 
  03e7:4a 06             send 6 


        code_03e9
  03e9:33 04              jmp code_03ef 

        code_03eb
  03eb:76               push0 
  03ec:45 09 00         callb procedure_0009 0 // NotClose 


        code_03ef
  03ef:33 14              jmp code_0405 

        code_03f1
  03f1:78               push1 
  03f2:74 08ae          lofss $0ca3 // climb/barriere
  03f5:43 25 02         callk Said 2 

  03f8:31 0b              bnt code_0405 
  03fa:7a               push2 
  03fb:39 06            pushi 6 // $6 loop
  03fd:39 09            pushi 9 // $9 nsTop
  03ff:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0405
  0405:39 6f            pushi 6f // $6f handleEvent
  0407:78               push1 
  0408:8f 01              lsp param1 
  040a:57 37 06         super Rm 6 

  040d:48                 ret 
    )

)

// 0dce
(instance firstGreet of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (handleEvent) // method_040e
  040e:3f 01             link 1 // (var $1)
  0410:39 6f            pushi 6f // $6f handleEvent
  0412:78               push1 
  0413:8f 01              lsp param1 
  0415:57 05 06         super Script 6 

  0418:39 4c            pushi 4c // $4c claimed
  041a:76               push0 
  041b:87 01              lap param1 
  041d:4a 04             send 4 

  041f:31 01              bnt code_0422 
  0421:48                 ret 

        code_0422
  0422:39 22            pushi 22 // $22 type
  0424:76               push0 
  0425:87 01              lap param1 
  0427:4a 04             send 4 

  0429:36                push 
  042a:34 0080            ldi 80 
  042d:1a                 eq? 
  042e:31 5a              bnt code_048a 
  0430:78               push1 
  0431:74 0930          lofss $0d64 // hold,deliver/collier[/celie]
  0434:43 25 02         callk Said 2 

  0437:2f 09               bt code_0442 
  0439:78               push1 
  043a:74 091b          lofss $0d58 // hold,deliver/collier<celie
  043d:43 25 02         callk Said 2 

  0440:31 2f              bnt code_0471 

        code_0442
  0442:38 00ee          pushi ee // $ee has
  0445:78               push1 
  0446:76               push0 
  0447:81 00              lag gEgo 
  0449:4a 06             send 6 

  044b:31 1e              bnt code_046b 
  044d:67 0a             pTos state 
  044f:35 02              ldi 2 
  0451:1a                 eq? 
  0452:31 0a              bnt code_045e 
  0454:35 04              ldi 4 
  0456:65 0a             aTop state 
  0458:35 01              ldi 1 
  045a:65 10             aTop cycles 
  045c:33 0b              jmp code_0469 

        code_045e
  045e:7a               push2 
  045f:39 06            pushi 6 // $6 loop
  0461:39 0a            pushi a // $a nsLeft
  0463:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0469
  0469:33 04              jmp code_046f 

        code_046b
  046b:76               push0 
  046c:45 0d 00         callb procedure_000d 0 // DontHave 


        code_046f
  046f:33 19              jmp code_048a 

        code_0471
  0471:78               push1 
  0472:74 07b5          lofss $0c2a // *
  0475:43 25 02         callk Said 2 

  0478:31 10              bnt code_048a 
  047a:39 4c            pushi 4c // $4c claimed
  047c:78               push1 
  047d:78               push1 
  047e:87 01              lap param1 
  0480:4a 06             send 6 

  0482:35 00              ldi 0 
  0484:65 12             aTop seconds 
  0486:35 01              ldi 1 
  0488:65 10             aTop cycles 

        code_048a
  048a:48                 ret 
    )

    (method (changeState) // method_048b
  048b:87 01              lap param1 
  048d:65 0a             aTop state 
  048f:36                push 
  0490:3c                 dup 
  0491:35 00              ldi 0 
  0493:1a                 eq? 
  0494:31 25              bnt code_04bb 
  0496:38 00e9          pushi e9 // $e9 canControl
  0499:78               push1 
  049a:76               push0 
  049b:38 00e2          pushi e2 // $e2 canInput
  049e:78               push1 
  049f:76               push0 
  04a0:51 2b            class User 
  04a2:4a 0c             send c 

  04a4:35 02              ldi 2 
  04a6:a0 00c3            sag global195 
  04a9:7a               push2 
  04aa:39 06            pushi 6 // $6 loop
  04ac:39 0b            pushi b // $b nsBottom
  04ae:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04b4:35 04              ldi 4 
  04b6:65 12             aTop seconds 
  04b8:32 00e8            jmp code_05a3 

        code_04bb
  04bb:3c                 dup 
  04bc:35 01              ldi 1 
  04be:1a                 eq? 
  04bf:31 3a              bnt code_04fb 
  04c1:39 42            pushi 42 // $42 setPri
  04c3:78               push1 
  04c4:39 04            pushi 4 // $4 x
  04c6:39 06            pushi 6 // $6 loop
  04c8:78               push1 
  04c9:7a               push2 
  04ca:38 00c5          pushi c5 // $c5 posn
  04cd:7a               push2 
  04ce:38 00ef          pushi ef // $ef ownedBy
  04d1:39 5d            pushi 5d // $5d isMemberOf
  04d3:39 57            pushi 57 // $57 init
  04d5:76               push0 
  04d6:72 0bcf          lofsa $10a8 // Celie
  04d9:4a 18             send 18 

  04db:39 7e            pushi 7e // $7e setCycle
  04dd:7a               push2 
  04de:51 1a            class End 
  04e0:36                push 
  04e1:7c            pushSelf 
  04e2:72 09b3          lofsa $0e98 // Door
  04e5:4a 08             send 8 

  04e7:39 2b            pushi 2b // $2b number
  04e9:78               push1 
  04ea:39 2b            pushi 2b // $2b number
  04ec:39 06            pushi 6 // $6 loop
  04ee:78               push1 
  04ef:78               push1 
  04f0:39 2a            pushi 2a // $2a play
  04f2:76               push0 
  04f3:72 0c8e          lofsa $1184 // myMusic
  04f6:4a 10             send 10 

  04f8:32 00a8            jmp code_05a3 

        code_04fb
  04fb:3c                 dup 
  04fc:35 02              ldi 2 
  04fe:1a                 eq? 
  04ff:31 1b              bnt code_051c 
  0501:38 00e2          pushi e2 // $e2 canInput
  0504:78               push1 
  0505:78               push1 
  0506:51 2b            class User 
  0508:4a 06             send 6 

  050a:7a               push2 
  050b:39 06            pushi 6 // $6 loop
  050d:39 0c            pushi c // $c nsRight
  050f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0515:35 08              ldi 8 
  0517:65 12             aTop seconds 
  0519:32 0087            jmp code_05a3 

        code_051c
  051c:3c                 dup 
  051d:35 03              ldi 3 
  051f:1a                 eq? 
  0520:31 2e              bnt code_0550 
  0522:76               push0 
  0523:45 03 00         callb procedure_0003 0 // HandsOff 

  0526:7a               push2 
  0527:39 06            pushi 6 // $6 loop
  0529:39 0d            pushi d // $d lsTop
  052b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0531:39 7e            pushi 7e // $7e setCycle
  0533:7a               push2 
  0534:51 1b            class Beg 
  0536:36                push 
  0537:7c            pushSelf 
  0538:72 095d          lofsa $0e98 // Door
  053b:4a 08             send 8 

  053d:39 2b            pushi 2b // $2b number
  053f:78               push1 
  0540:39 2c            pushi 2c // $2c handle
  0542:39 06            pushi 6 // $6 loop
  0544:78               push1 
  0545:78               push1 
  0546:39 2a            pushi 2a // $2a play
  0548:76               push0 
  0549:72 0c38          lofsa $1184 // myMusic
  054c:4a 10             send 10 

  054e:33 53              jmp code_05a3 

        code_0550
  0550:3c                 dup 
  0551:35 04              ldi 4 
  0553:1a                 eq? 
  0554:31 24              bnt code_057a 
  0556:38 00e9          pushi e9 // $e9 canControl
  0559:78               push1 
  055a:78               push1 
  055b:38 00e2          pushi e2 // $e2 canInput
  055e:78               push1 
  055f:78               push1 
  0560:51 2b            class User 
  0562:4a 0c             send c 

  0564:35 00              ldi 0 
  0566:a3 01              sal local1 
  0568:39 58            pushi 58 // $58 dispose
  056a:76               push0 
  056b:72 0b3a          lofsa $10a8 // Celie
  056e:4a 04             send 4 

  0570:39 7a            pushi 7a // $7a setScript
  0572:78               push1 
  0573:76               push0 
  0574:63 08             pToa client 
  0576:4a 06             send 6 

  0578:33 29              jmp code_05a3 

        code_057a
  057a:3c                 dup 
  057b:35 05              ldi 5 
  057d:1a                 eq? 
  057e:31 23              bnt code_05a3 
  0580:7a               push2 
  0581:39 06            pushi 6 // $6 loop
  0583:39 0e            pushi e // $e lsLeft
  0585:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  058b:38 00ed          pushi ed // $ed put
  058e:78               push1 
  058f:76               push0 
  0590:81 00              lag gEgo 
  0592:4a 06             send 6 

  0594:35 01              ldi 1 
  0596:a0 0087            sag global135 
  0599:38 00f8          pushi f8 // $f8 newRoom
  059c:78               push1 
  059d:39 3b            pushi 3b // $3b mover
  059f:81 02              lag gCurRoom 
  05a1:4a 06             send 6 


        code_05a3
  05a3:3a                toss 
  05a4:48                 ret 
    )

)

// 0e02
(instance secondGreet 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_05a5
  05a5:87 01              lap param1 
  05a7:65 0a             aTop state 
  05a9:36                push 
  05aa:3c                 dup 
  05ab:35 00              ldi 0 
  05ad:1a                 eq? 
  05ae:31 42              bnt code_05f2 
  05b0:76               push0 
  05b1:45 03 00         callb procedure_0003 0 // HandsOff 

  05b4:35 02              ldi 2 
  05b6:a0 00c3            sag global195 
  05b9:39 42            pushi 42 // $42 setPri
  05bb:78               push1 
  05bc:39 04            pushi 4 // $4 x
  05be:39 06            pushi 6 // $6 loop
  05c0:78               push1 
  05c1:7a               push2 
  05c2:38 00c5          pushi c5 // $c5 posn
  05c5:7a               push2 
  05c6:38 00ef          pushi ef // $ef ownedBy
  05c9:39 5a            pushi 5a // $5a showSelf
  05cb:39 57            pushi 57 // $57 init
  05cd:76               push0 
  05ce:72 0ad7          lofsa $10a8 // Celie
  05d1:4a 18             send 18 

  05d3:39 7e            pushi 7e // $7e setCycle
  05d5:7a               push2 
  05d6:51 1a            class End 
  05d8:36                push 
  05d9:7c            pushSelf 
  05da:72 08bb          lofsa $0e98 // Door
  05dd:4a 08             send 8 

  05df:39 2b            pushi 2b // $2b number
  05e1:78               push1 
  05e2:39 2b            pushi 2b // $2b number
  05e4:39 06            pushi 6 // $6 loop
  05e6:78               push1 
  05e7:78               push1 
  05e8:39 2a            pushi 2a // $2a play
  05ea:76               push0 
  05eb:72 0b96          lofsa $1184 // myMusic
  05ee:4a 10             send 10 

  05f0:33 27              jmp code_0619 

        code_05f2
  05f2:3c                 dup 
  05f3:35 01              ldi 1 
  05f5:1a                 eq? 
  05f6:31 11              bnt code_0609 
  05f8:7a               push2 
  05f9:39 06            pushi 6 // $6 loop
  05fb:39 0f            pushi f // $f lsBottom
  05fd:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0603:35 01              ldi 1 
  0605:65 10             aTop cycles 
  0607:33 10              jmp code_0619 

        code_0609
  0609:3c                 dup 
  060a:35 02              ldi 2 
  060c:1a                 eq? 
  060d:31 0a              bnt code_0619 
  060f:38 00f8          pushi f8 // $f8 newRoom
  0612:78               push1 
  0613:39 3b            pushi 3b // $3b mover
  0615:81 02              lag gCurRoom 
  0617:4a 06             send 6 


        code_0619
  0619:3a                toss 
  061a:48                 ret 
    )

)

// 0e32
(instance lastGreet 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_061b
  061b:87 01              lap param1 
  061d:65 0a             aTop state 
  061f:36                push 
  0620:3c                 dup 
  0621:35 00              ldi 0 
  0623:1a                 eq? 
  0624:31 35              bnt code_065b 
  0626:89 76              lsg gMustDos 
  0628:35 01              ldi 1 
  062a:12                 and 
  062b:18                 not 
  062c:31 1b              bnt code_0649 
  062e:89 76              lsg gMustDos 
  0630:35 01              ldi 1 
  0632:14                  or 
  0633:a1 76              sag gMustDos 
  0635:39 7a            pushi 7a // $7a setScript
  0637:78               push1 
  0638:7a               push2 
  0639:38 0196          pushi 196 // $196 sel_406
  063c:76               push0 
  063d:43 02 04         callk ScriptID 4 

  0640:36                push 
  0641:54 06             self 6 

  0643:35 ff              ldi ff 
  0645:65 0a             aTop state 
  0647:33 0b              jmp code_0654 

        code_0649
  0649:39 76            pushi 76 // $76 script
  064b:76               push0 
  064c:54 04             self 4 

  064e:31 04              bnt code_0654 
  0650:35 ff              ldi ff 
  0652:65 0a             aTop state 

        code_0654
  0654:35 01              ldi 1 
  0656:65 10             aTop cycles 
  0658:32 00b4            jmp code_070f 

        code_065b
  065b:3c                 dup 
  065c:35 01              ldi 1 
  065e:1a                 eq? 
  065f:31 47              bnt code_06a8 
  0661:76               push0 
  0662:45 03 00         callb procedure_0003 0 // HandsOff 

  0665:35 02              ldi 2 
  0667:a0 00c3            sag global195 
  066a:39 42            pushi 42 // $42 setPri
  066c:78               push1 
  066d:39 04            pushi 4 // $4 x
  066f:39 06            pushi 6 // $6 loop
  0671:78               push1 
  0672:7a               push2 
  0673:38 00c9          pushi c9 // $c9 ignoreActors
  0676:78               push1 
  0677:78               push1 
  0678:38 00c5          pushi c5 // $c5 posn
  067b:7a               push2 
  067c:38 00ef          pushi ef // $ef ownedBy
  067f:39 5a            pushi 5a // $5a showSelf
  0681:39 57            pushi 57 // $57 init
  0683:76               push0 
  0684:72 0a21          lofsa $10a8 // Celie
  0687:4a 1e             send 1e 

  0689:39 7e            pushi 7e // $7e setCycle
  068b:7a               push2 
  068c:51 1a            class End 
  068e:36                push 
  068f:7c            pushSelf 
  0690:72 0805          lofsa $0e98 // Door
  0693:4a 08             send 8 

  0695:39 2b            pushi 2b // $2b number
  0697:78               push1 
  0698:39 2b            pushi 2b // $2b number
  069a:39 06            pushi 6 // $6 loop
  069c:78               push1 
  069d:78               push1 
  069e:39 2a            pushi 2a // $2a play
  06a0:76               push0 
  06a1:72 0ae0          lofsa $1184 // myMusic
  06a4:4a 10             send 10 

  06a6:33 67              jmp code_070f 

        code_06a8
  06a8:3c                 dup 
  06a9:35 02              ldi 2 
  06ab:1a                 eq? 
  06ac:31 11              bnt code_06bf 
  06ae:7a               push2 
  06af:39 06            pushi 6 // $6 loop
  06b1:39 10            pushi 10 // $10 lsRight
  06b3:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06b9:35 01              ldi 1 
  06bb:65 10             aTop cycles 
  06bd:33 50              jmp code_070f 

        code_06bf
  06bf:3c                 dup 
  06c0:35 03              ldi 3 
  06c2:1a                 eq? 
  06c3:31 1f              bnt code_06e4 
  06c5:39 7e            pushi 7e // $7e setCycle
  06c7:7a               push2 
  06c8:51 1b            class Beg 
  06ca:36                push 
  06cb:7c            pushSelf 
  06cc:72 07c9          lofsa $0e98 // Door
  06cf:4a 08             send 8 

  06d1:39 2b            pushi 2b // $2b number
  06d3:78               push1 
  06d4:39 2c            pushi 2c // $2c handle
  06d6:39 06            pushi 6 // $6 loop
  06d8:78               push1 
  06d9:78               push1 
  06da:39 2a            pushi 2a // $2a play
  06dc:76               push0 
  06dd:72 0aa4          lofsa $1184 // myMusic
  06e0:4a 10             send 10 

  06e2:33 2b              jmp code_070f 

        code_06e4
  06e4:3c                 dup 
  06e5:35 04              ldi 4 
  06e7:1a                 eq? 
  06e8:31 25              bnt code_070f 
  06ea:76               push0 
  06eb:45 04 00         callb procedure_0004 0 // HandsOn 

  06ee:38 00c6          pushi c6 // $c6 stopUpd
  06f1:76               push0 
  06f2:72 07a3          lofsa $0e98 // Door
  06f5:4a 04             send 4 

  06f7:38 00c6          pushi c6 // $c6 stopUpd
  06fa:76               push0 
  06fb:72 09aa          lofsa $10a8 // Celie
  06fe:4a 04             send 4 

  0700:35 00              ldi 0 
  0702:a0 00c3            sag global195 
  0705:a3 01              sal local1 
  0707:39 7a            pushi 7a // $7a setScript
  0709:78               push1 
  070a:76               push0 
  070b:63 08             pToa client 
  070d:4a 06             send 6 


        code_070f
  070f:3a                toss 
  0710:48                 ret 
    )

)

// 0e62
(instance knockDoor 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_0711
  0711:87 01              lap param1 
  0713:65 0a             aTop state 
  0715:36                push 
  0716:3c                 dup 
  0717:35 00              ldi 0 
  0719:1a                 eq? 
  071a:31 1f              bnt code_073b 
  071c:76               push0 
  071d:45 03 00         callb procedure_0003 0 // HandsOff 

  0720:39 05            pushi 5 // $5 view
  0722:78               push1 
  0723:39 38            pushi 38 // $38 moveSpeed
  0725:39 06            pushi 6 // $6 loop
  0727:78               push1 
  0728:76               push0 
  0729:39 12            pushi 12 // $12 illegalBits
  072b:78               push1 
  072c:76               push0 
  072d:39 7e            pushi 7e // $7e setCycle
  072f:7a               push2 
  0730:51 1a            class End 
  0732:36                push 
  0733:7c            pushSelf 
  0734:81 00              lag gEgo 
  0736:4a 1a             send 1a 

  0738:32 0188            jmp code_08c3 

        code_073b
  073b:3c                 dup 
  073c:35 01              ldi 1 
  073e:1a                 eq? 
  073f:31 26              bnt code_0767 
  0741:39 2b            pushi 2b // $2b number
  0743:78               push1 
  0744:39 30            pushi 30 // $30 b-moveCnt
  0746:39 06            pushi 6 // $6 loop
  0748:78               push1 
  0749:78               push1 
  074a:39 2a            pushi 2a // $2a play
  074c:76               push0 
  074d:72 0a34          lofsa $1184 // myMusic
  0750:4a 10             send 10 

  0752:39 06            pushi 6 // $6 loop
  0754:78               push1 
  0755:7a               push2 
  0756:39 7e            pushi 7e // $7e setCycle
  0758:78               push1 
  0759:51 16            class Fwd 
  075b:36                push 
  075c:81 00              lag gEgo 
  075e:4a 0c             send c 

  0760:35 06              ldi 6 
  0762:65 10             aTop cycles 
  0764:32 015c            jmp code_08c3 

        code_0767
  0767:3c                 dup 
  0768:35 02              ldi 2 
  076a:1a                 eq? 
  076b:31 20              bnt code_078d 
  076d:76               push0 
  076e:45 0f 00         callb procedure_000f 0 // cls 

  0771:39 05            pushi 5 // $5 view
  0773:78               push1 
  0774:39 38            pushi 38 // $38 moveSpeed
  0776:39 06            pushi 6 // $6 loop
  0778:78               push1 
  0779:76               push0 
  077a:39 07            pushi 7 // $7 cel
  077c:78               push1 
  077d:39 03            pushi 3 // $3 y
  077f:39 7e            pushi 7e // $7e setCycle
  0781:7a               push2 
  0782:51 1b            class Beg 
  0784:36                push 
  0785:7c            pushSelf 
  0786:81 00              lag gEgo 
  0788:4a 1a             send 1a 

  078a:32 0136            jmp code_08c3 

        code_078d
  078d:3c                 dup 
  078e:35 03              ldi 3 
  0790:1a                 eq? 
  0791:30 012f            bnt code_08c3 
  0794:76               push0 
  0795:45 04 00         callb procedure_0004 0 // HandsOn 

  0798:39 05            pushi 5 // $5 view
  079a:78               push1 
  079b:76               push0 
  079c:39 7e            pushi 7e // $7e setCycle
  079e:78               push1 
  079f:51 17            class Walk 
  07a1:36                push 
  07a2:39 12            pushi 12 // $12 illegalBits
  07a4:78               push1 
  07a5:38 8000          pushi 8000 // $8000 sel_32768
  07a8:39 06            pushi 6 // $6 loop
  07aa:78               push1 
  07ab:39 03            pushi 3 // $3 y
  07ad:81 00              lag gEgo 
  07af:4a 18             send 18 

  07b1:88 00a5            lsg gAct 
  07b4:35 02              ldi 2 
  07b6:20                 ge? 
  07b7:31 6c              bnt code_0825 
  07b9:88 00a5            lsg gAct 
  07bc:35 03              ldi 3 
  07be:1c                 ne? 
  07bf:31 64              bnt code_0825 
  07c1:88 00a5            lsg gAct 
  07c4:35 06              ldi 6 
  07c6:22                 lt? 
  07c7:31 5c              bnt code_0825 
  07c9:88 00a5            lsg gAct 
  07cc:35 05              ldi 5 
  07ce:1a                 eq? 
  07cf:31 31              bnt code_0802 
  07d1:88 0087            lsg global135 
  07d4:34 0100            ldi 100 
  07d7:12                 and 
  07d8:31 11              bnt code_07eb 
  07da:7a               push2 
  07db:39 06            pushi 6 // $6 loop
  07dd:39 11            pushi 11 // $11 signal
  07df:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  07e5:35 00              ldi 0 
  07e7:a3 01              sal local1 
  07e9:33 15              jmp code_0800 

        code_07eb
  07eb:88 0087            lsg global135 
  07ee:34 0100            ldi 100 
  07f1:14                  or 
  07f2:a0 0087            sag global135 
  07f5:39 7a            pushi 7a // $7a setScript
  07f7:78               push1 
  07f8:74 063d          lofss $0e38 // lastGreet
  07fb:72 0586          lofsa $0d84 // Room6
  07fe:4a 06             send 6 


        code_0800
  0800:33 20              jmp code_0822 

        code_0802
  0802:88 0087            lsg global135 
  0805:35 01              ldi 1 
  0807:1a                 eq? 
  0808:31 0d              bnt code_0817 
  080a:39 7a            pushi 7a // $7a setScript
  080c:78               push1 
  080d:74 05f8          lofss $0e08 // secondGreet
  0810:72 0571          lofsa $0d84 // Room6
  0813:4a 06             send 6 

  0815:33 0b              jmp code_0822 

        code_0817
  0817:39 7a            pushi 7a // $7a setScript
  0819:78               push1 
  081a:74 05b7          lofss $0dd4 // firstGreet
  081d:72 0564          lofsa $0d84 // Room6
  0820:4a 06             send 6 


        code_0822
  0822:32 0096            jmp code_08bb 

        code_0825
  0825:88 00a5            lsg gAct 
  0828:35 07              ldi 7 
  082a:1a                 eq? 
  082b:31 7f              bnt code_08ac 
  082d:7a               push2 
  082e:76               push0 
  082f:39 05            pushi 5 // $5 view
  0831:43 40 04         callk Random 4 

  0834:36                push 
  0835:3c                 dup 
  0836:35 00              ldi 0 
  0838:1a                 eq? 
  0839:31 0d              bnt code_0848 
  083b:7a               push2 
  083c:39 06            pushi 6 // $6 loop
  083e:39 12            pushi 12 // $12 illegalBits
  0840:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0846:33 5d              jmp code_08a5 

        code_0848
  0848:3c                 dup 
  0849:35 01              ldi 1 
  084b:1a                 eq? 
  084c:31 0d              bnt code_085b 
  084e:7a               push2 
  084f:39 06            pushi 6 // $6 loop
  0851:39 13            pushi 13 // $13 brTop
  0853:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0859:33 4a              jmp code_08a5 

        code_085b
  085b:3c                 dup 
  085c:35 02              ldi 2 
  085e:1a                 eq? 
  085f:31 0d              bnt code_086e 
  0861:7a               push2 
  0862:39 06            pushi 6 // $6 loop
  0864:39 14            pushi 14 // $14 brLeft
  0866:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  086c:33 37              jmp code_08a5 

        code_086e
  086e:3c                 dup 
  086f:35 03              ldi 3 
  0871:1a                 eq? 
  0872:31 0d              bnt code_0881 
  0874:7a               push2 
  0875:39 06            pushi 6 // $6 loop
  0877:39 15            pushi 15 // $15 brBottom
  0879:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  087f:33 24              jmp code_08a5 

        code_0881
  0881:3c                 dup 
  0882:35 04              ldi 4 
  0884:1a                 eq? 
  0885:31 0d              bnt code_0894 
  0887:7a               push2 
  0888:39 06            pushi 6 // $6 loop
  088a:39 16            pushi 16 // $16 brRight
  088c:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0892:33 11              jmp code_08a5 

        code_0894
  0894:3c                 dup 
  0895:35 05              ldi 5 
  0897:1a                 eq? 
  0898:31 0b              bnt code_08a5 
  089a:7a               push2 
  089b:39 06            pushi 6 // $6 loop
  089d:39 17            pushi 17 // $17 name
  089f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08a5
  08a5:3a                toss 
  08a6:35 00              ldi 0 
  08a8:a3 01              sal local1 
  08aa:33 0f              jmp code_08bb 

        code_08ac
  08ac:35 00              ldi 0 
  08ae:a3 01              sal local1 
  08b0:7a               push2 
  08b1:39 06            pushi 6 // $6 loop
  08b3:39 18            pushi 18 // $18 key
  08b5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_08bb
  08bb:39 7a            pushi 7a // $7a setScript
  08bd:78               push1 
  08be:76               push0 
  08bf:63 08             pToa client 
  08c1:4a 06             send 6 


        code_08c3
  08c3:3a                toss 
  08c4:48                 ret 
    )

)

// 0e92
(instance Door of Prop
    (properties
        y $5d
        x $e3
        z $0
        heading $0
        yStep $2
        view $6a
        loop $0
        cel $0
        priority $5
        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_08c5
  08c5:39 6f            pushi 6f // $6f handleEvent
  08c7:78               push1 
  08c8:8f 01              lsp param1 
  08ca:57 27 06         super Prop 6 

  08cd:78               push1 
  08ce:74 03b7          lofss $0c88 // break,arracher/door
  08d1:43 25 02         callk Said 2 

  08d4:31 0d              bnt code_08e3 
  08d6:7a               push2 
  08d7:39 06            pushi 6 // $6 loop
  08d9:39 19            pushi 19 // $19 time
  08db:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  08e1:33 79              jmp code_095c 

        code_08e3
  08e3:39 03            pushi 3 // $3 y
  08e5:7c            pushSelf 
  08e6:8f 01              lsp param1 
  08e8:39 03            pushi 3 // $3 y
  08ea:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  08f0:2f 09               bt code_08fb 
  08f2:78               push1 
  08f3:74 03fd          lofss $0cf3 // look/door
  08f6:43 25 02         callk Said 2 

  08f9:31 15              bnt code_0910 

        code_08fb
  08fb:39 4c            pushi 4c // $4c claimed
  08fd:78               push1 
  08fe:78               push1 
  08ff:87 01              lap param1 
  0901:4a 06             send 6 

  0903:7a               push2 
  0904:39 06            pushi 6 // $6 loop
  0906:39 1a            pushi 1a // $1a text
  0908:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  090e:33 4c              jmp code_095c 

        code_0910
  0910:78               push1 
  0911:74 0438          lofss $0d4c // open/door
  0914:43 25 02         callk Said 2 

  0917:31 43              bnt code_095c 
  0919:38 00da          pushi da // $da inRect
  091c:39 04            pushi 4 // $4 x
  091e:38 00dd          pushi dd // $dd setDirection
  0921:39 5c            pushi 5c // $5c isKindOf
  0923:38 0103          pushi 103 // $103 initialized
  0926:39 6c            pushi 6c // $6c addToEnd
  0928:81 00              lag gEgo 
  092a:4a 0c             send c 

  092c:31 2a              bnt code_0958 
  092e:88 00a5            lsg gAct 
  0931:35 02              ldi 2 
  0933:20                 ge? 
  0934:31 15              bnt code_094b 
  0936:88 00a5            lsg gAct 
  0939:35 06              ldi 6 
  093b:22                 lt? 
  093c:31 0d              bnt code_094b 
  093e:7a               push2 
  093f:39 06            pushi 6 // $6 loop
  0941:39 1b            pushi 1b // $1b elements
  0943:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0949:33 0b              jmp code_0956 

        code_094b
  094b:7a               push2 
  094c:39 06            pushi 6 // $6 loop
  094e:39 1c            pushi 1c // $1c color
  0950:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0956
  0956:33 04              jmp code_095c 

        code_0958
  0958:76               push0 
  0959:45 09 00         callb procedure_0009 0 // NotClose 


        code_095c
  095c:48                 ret 
    )

)

// 0ee4
(instance light1 of Prop
    (properties
        y $40
        x $c6
        z $0
        heading $0
        yStep $2
        view $6a
        loop $1
        cel $1
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0f32
(instance light2 of Prop
    (properties
        y $43
        x $11b
        z $0
        heading $0
        yStep $2
        view $6a
        loop $1
        cel $1
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0f80
(instance Chair of Prop
    (properties
        y $6c
        x $10e
        z $0
        heading $0
        yStep $2
        view $6a
        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
    )
    (method (handleEvent) // method_095d
  095d:39 6f            pushi 6f // $6f handleEvent
  095f:78               push1 
  0960:8f 01              lsp param1 
  0962:57 27 06         super Prop 6 

  0965:78               push1 
  0966:74 0361          lofss $0cca // get/balancier,chair[<rocking]
  0969:43 25 02         callk Said 2 

  096c:31 0d              bnt code_097b 
  096e:7a               push2 
  096f:39 06            pushi 6 // $6 loop
  0971:39 1d            pushi 1d // $1d back
  0973:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0979:33 72              jmp code_09ed 

        code_097b
  097b:78               push1 
  097c:74 02fb          lofss $0c7a // boulder,asseoir[/chair,balancier]
  097f:43 25 02         callk Said 2 

  0982:31 29              bnt code_09ad 
  0984:88 00a5            lsg gAct 
  0987:35 03              ldi 3 
  0989:1a                 eq? 
  098a:31 14              bnt code_09a0 
  098c:89 0c              lsg gPrevRoomNum 
  098e:35 3b              ldi 3b 
  0990:1c                 ne? 
  0991:31 0d              bnt code_09a0 
  0993:7a               push2 
  0994:39 06            pushi 6 // $6 loop
  0996:39 1e            pushi 1e // $1e mode
  0998:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  099e:33 0b              jmp code_09ab 

        code_09a0
  09a0:7a               push2 
  09a1:39 06            pushi 6 // $6 loop
  09a3:39 1f            pushi 1f // $1f style
  09a5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_09ab
  09ab:33 40              jmp code_09ed 

        code_09ad
  09ad:78               push1 
  09ae:74 0348          lofss $0cf9 // look/balancier,chair[<rocking]
  09b1:43 25 02         callk Said 2 

  09b4:2f 0f               bt code_09c5 
  09b6:39 03            pushi 3 // $3 y
  09b8:7c            pushSelf 
  09b9:8f 01              lsp param1 
  09bb:39 03            pushi 3 // $3 y
  09bd:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  09c3:31 28              bnt code_09ed 

        code_09c5
  09c5:39 4c            pushi 4c // $4c claimed
  09c7:78               push1 
  09c8:78               push1 
  09c9:87 01              lap param1 
  09cb:4a 06             send 6 

  09cd:88 00a5            lsg gAct 
  09d0:35 03              ldi 3 
  09d2:1a                 eq? 
  09d3:31 0d              bnt code_09e2 
  09d5:7a               push2 
  09d6:39 06            pushi 6 // $6 loop
  09d8:39 20            pushi 20 // $20 state
  09da:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  09e0:33 0b              jmp code_09ed 

        code_09e2
  09e2:7a               push2 
  09e3:39 06            pushi 6 // $6 loop
  09e5:39 07            pushi 7 // $7 cel
  09e7:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_09ed
  09ed:48                 ret 
    )

)

// 0fd2
(instance chick1 of Act
    (properties
        y $6a
        x $51
        z $0
        heading $0
        yStep $2
        view $103
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_09ee
  09ee:39 6f            pushi 6f // $6f handleEvent
  09f0:78               push1 
  09f1:8f 01              lsp param1 
  09f3:57 28 06         super Act 6 

  09f6:39 03            pushi 3 // $3 y
  09f8:7c            pushSelf 
  09f9:8f 01              lsp param1 
  09fb:39 03            pushi 3 // $3 y
  09fd:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0a03:2f 09               bt code_0a0e 
  0a05:78               push1 
  0a06:74 02e4          lofss $0ced // look/chicken
  0a09:43 25 02         callk Said 2 

  0a0c:31 15              bnt code_0a23 

        code_0a0e
  0a0e:7a               push2 
  0a0f:39 06            pushi 6 // $6 loop
  0a11:39 21            pushi 21 // $21 font
  0a13:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a19:39 4c            pushi 4c // $4c claimed
  0a1b:78               push1 
  0a1c:78               push1 
  0a1d:87 01              lap param1 
  0a1f:4a 06             send 6 

  0a21:33 78              jmp code_0a9b 

        code_0a23
  0a23:78               push1 
  0a24:74 029a          lofss $0cc1 // feed,deliver/chicken
  0a27:43 25 02         callk Said 2 

  0a2a:2f 12               bt code_0a3e 
  0a2c:78               push1 
  0a2d:74 0279          lofss $0ca9 // feed,deliver/*/chicken
  0a30:43 25 02         callk Said 2 

  0a33:2f 09               bt code_0a3e 
  0a35:78               push1 
  0a36:74 027c          lofss $0cb5 // feed,deliver/*<chicken
  0a39:43 25 02         callk Said 2 

  0a3c:31 2a              bnt code_0a68 

        code_0a3e
  0a3e:80 00db            lag global219 
  0a41:31 18              bnt code_0a5b 
  0a43:80 00e0            lag global224 
  0a46:31 0d              bnt code_0a55 
  0a48:7a               push2 
  0a49:39 06            pushi 6 // $6 loop
  0a4b:39 22            pushi 22 // $22 type
  0a4d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a53:33 04              jmp code_0a59 

        code_0a55
  0a55:76               push0 
  0a56:45 0d 00         callb procedure_000d 0 // DontHave 


        code_0a59
  0a59:33 0b              jmp code_0a66 

        code_0a5b
  0a5b:7a               push2 
  0a5c:39 06            pushi 6 // $6 loop
  0a5e:39 22            pushi 22 // $22 type
  0a60:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0a66
  0a66:33 33              jmp code_0a9b 

        code_0a68
  0a68:78               push1 
  0a69:74 022b          lofss $0c97 // attraper,get,detach/chicken
  0a6c:43 25 02         callk Said 2 

  0a6f:2f 09               bt code_0a7a 
  0a71:78               push1 
  0a72:74 02d1          lofss $0d46 // open/coop
  0a75:43 25 02         callk Said 2 

  0a78:31 0d              bnt code_0a87 

        code_0a7a
  0a7a:7a               push2 
  0a7b:39 06            pushi 6 // $6 loop
  0a7d:39 23            pushi 23 // $23 window
  0a7f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0a85:33 14              jmp code_0a9b 

        code_0a87
  0a87:78               push1 
  0a88:74 02e7          lofss $0d72 // bonjour/chicken
  0a8b:43 25 02         callk Said 2 

  0a8e:31 0b              bnt code_0a9b 
  0a90:7a               push2 
  0a91:39 06            pushi 6 // $6 loop
  0a93:39 24            pushi 24 // $24 cursor
  0a95:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0a9b
  0a9b:48                 ret 
    )

)

// 103a
(instance chick2 of Act
    (properties
        y $66
        x $5e
        z $0
        heading $0
        yStep $2
        view $103
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_0a9c
  0a9c:39 6f            pushi 6f // $6f handleEvent
  0a9e:78               push1 
  0a9f:8f 01              lsp param1 
  0aa1:57 28 06         super Act 6 

  0aa4:39 03            pushi 3 // $3 y
  0aa6:7c            pushSelf 
  0aa7:8f 01              lsp param1 
  0aa9:39 03            pushi 3 // $3 y
  0aab:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0ab1:31 13              bnt code_0ac6 
  0ab3:7a               push2 
  0ab4:39 06            pushi 6 // $6 loop
  0ab6:39 21            pushi 21 // $21 font
  0ab8:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0abe:39 4c            pushi 4c // $4c claimed
  0ac0:78               push1 
  0ac1:78               push1 
  0ac2:87 01              lap param1 
  0ac4:4a 06             send 6 


        code_0ac6
  0ac6:48                 ret 
    )

)

// 10a2
(instance Celie of Prop
    (properties
        y $0
        x $0
        z $0
        heading $0
        yStep $2
        view $0
        loop $0
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 10f0
(instance coop of RPicView
    (properties
        y $7e
        x $5a
        z $0
        heading $0
        view $6a
        loop $2
        cel $0
        priority $8
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0ac7
  0ac7:39 6f            pushi 6f // $6f handleEvent
  0ac9:78               push1 
  0aca:8f 01              lsp param1 
  0acc:57 42 06         super RPicView 6 

  0acf:78               push1 
  0ad0:74 023a          lofss $0d0d // look<(below,behind)/(coop[<chicken]),(cabin<chicken)
  0ad3:43 25 02         callk Said 2 

  0ad6:31 0d              bnt code_0ae5 
  0ad8:7a               push2 
  0ad9:39 06            pushi 6 // $6 loop
  0adb:39 25            pushi 25 // $25 max
  0add:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0ae3:33 2b              jmp code_0b10 

        code_0ae5
  0ae5:39 03            pushi 3 // $3 y
  0ae7:7c            pushSelf 
  0ae8:8f 01              lsp param1 
  0aea:39 03            pushi 3 // $3 y
  0aec:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0af2:2f 09               bt code_0afd 
  0af4:78               push1 
  0af5:74 01e0          lofss $0cd8 // look/(coop[<chicken]),(cabin<chicken)
  0af8:43 25 02         callk Said 2 

  0afb:31 13              bnt code_0b10 

        code_0afd
  0afd:7a               push2 
  0afe:39 06            pushi 6 // $6 loop
  0b00:39 26            pushi 26 // $26 mark
  0b02:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b08:39 4c            pushi 4c // $4c claimed
  0b0a:78               push1 
  0b0b:78               push1 
  0b0c:87 01              lap param1 
  0b0e:4a 06             send 6 


        code_0b10
  0b10:48                 ret 
    )

)

// 1126
(instance Window1 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $2d
        nsLeft $b7
        nsBottom $42
        nsRight $d5
    )
    (method (handleEvent) // method_0b11
  0b11:39 6f            pushi 6f // $6f handleEvent
  0b13:78               push1 
  0b14:8f 01              lsp param1 
  0b16:57 41 06         super RFeature 6 

  0b19:78               push1 
  0b1a:74 0174          lofss $0c91 // break/fenetre
  0b1d:43 25 02         callk Said 2 

  0b20:31 0e              bnt code_0b30 
  0b22:7a               push2 
  0b23:39 06            pushi 6 // $6 loop
  0b25:39 27            pushi 27 // $27 who
  0b27:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b2d:32 0087            jmp code_0bb7 

        code_0b30
  0b30:78               push1 
  0b31:74 01f6          lofss $0d2a // look<(dans,through)/fenetre,(cabin[<celie])
  0b34:43 25 02         callk Said 2 

  0b37:31 3d              bnt code_0b76 
  0b39:38 00da          pushi da // $da inRect
  0b3c:39 04            pushi 4 // $4 x
  0b3e:38 00b3          pushi b3 // $b3 thisTurn
  0b41:39 5c            pushi 5c // $5c isKindOf
  0b43:38 00dd          pushi dd // $dd setDirection
  0b46:39 67            pushi 67 // $67 first
  0b48:81 00              lag gEgo 
  0b4a:4a 0c             send c 

  0b4c:2f 15               bt code_0b63 
  0b4e:38 00da          pushi da // $da inRect
  0b51:39 04            pushi 4 // $4 x
  0b53:38 0103          pushi 103 // $103 initialized
  0b56:39 5f            pushi 5f // $5f yourself
  0b58:38 0131          pushi 131 // $131 numOfLoops
  0b5b:39 6c            pushi 6c // $6c addToEnd
  0b5d:81 00              lag gEgo 
  0b5f:4a 0c             send c 

  0b61:31 0d              bnt code_0b70 

        code_0b63
  0b63:7a               push2 
  0b64:39 06            pushi 6 // $6 loop
  0b66:39 28            pushi 28 // $28 message
  0b68:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b6e:33 04              jmp code_0b74 

        code_0b70
  0b70:76               push0 
  0b71:45 09 00         callb procedure_0009 0 // NotClose 


        code_0b74
  0b74:33 41              jmp code_0bb7 

        code_0b76
  0b76:78               push1 
  0b77:74 01d8          lofss $0d52 // open/fenetre
  0b7a:43 25 02         callk Said 2 

  0b7d:31 0d              bnt code_0b8c 
  0b7f:7a               push2 
  0b80:39 06            pushi 6 // $6 loop
  0b82:39 29            pushi 29 // $29 edit
  0b84:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0b8a:33 2b              jmp code_0bb7 

        code_0b8c
  0b8c:39 03            pushi 3 // $3 y
  0b8e:7c            pushSelf 
  0b8f:8f 01              lsp param1 
  0b91:39 03            pushi 3 // $3 y
  0b93:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0b99:2f 09               bt code_0ba4 
  0b9b:78               push1 
  0b9c:74 0168          lofss $0d07 // look/fenetre
  0b9f:43 25 02         callk Said 2 

  0ba2:31 13              bnt code_0bb7 

        code_0ba4
  0ba4:39 4c            pushi 4c // $4c claimed
  0ba6:78               push1 
  0ba7:78               push1 
  0ba8:87 01              lap param1 
  0baa:4a 06             send 6 

  0bac:7a               push2 
  0bad:39 06            pushi 6 // $6 loop
  0baf:39 2a            pushi 2a // $2a play
  0bb1:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0bb7
  0bb7:48                 ret 
    )

)

// 1152
(instance Window2 of RFeature
    (properties
        y $0
        x $0
        z $0
        heading $0
        nsTop $2e
        nsLeft $10a
        nsBottom $44
        nsRight $129
    )
    (method (handleEvent) // method_0bb8
  0bb8:39 6f            pushi 6f // $6f handleEvent
  0bba:78               push1 
  0bbb:8f 01              lsp param1 
  0bbd:57 41 06         super RFeature 6 

  0bc0:39 03            pushi 3 // $3 y
  0bc2:7c            pushSelf 
  0bc3:8f 01              lsp param1 
  0bc5:39 03            pushi 3 // $3 y
  0bc7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0bcd:31 13              bnt code_0be2 
  0bcf:39 4c            pushi 4c // $4c claimed
  0bd1:78               push1 
  0bd2:78               push1 
  0bd3:87 01              lap param1 
  0bd5:4a 06             send 6 

  0bd7:7a               push2 
  0bd8:39 06            pushi 6 // $6 loop
  0bda:39 2a            pushi 2a // $2a play
  0bdc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0be2
  0be2:48                 ret 
    )

)

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

// 11a8
(instance closeDoor 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_0be3
  0be3:87 01              lap param1 
  0be5:65 0a             aTop state 
  0be7:36                push 
  0be8:3c                 dup 
  0be9:35 00              ldi 0 
  0beb:1a                 eq? 
  0bec:31 1f              bnt code_0c0d 
  0bee:39 7e            pushi 7e // $7e setCycle
  0bf0:7a               push2 
  0bf1:51 1b            class Beg 
  0bf3:36                push 
  0bf4:7c            pushSelf 
  0bf5:72 02a0          lofsa $0e98 // Door
  0bf8:4a 08             send 8 

  0bfa:39 2b            pushi 2b // $2b number
  0bfc:78               push1 
  0bfd:39 2c            pushi 2c // $2c handle
  0bff:39 06            pushi 6 // $6 loop
  0c01:78               push1 
  0c02:78               push1 
  0c03:39 2a            pushi 2a // $2a play
  0c05:76               push0 
  0c06:72 057b          lofsa $1184 // myMusic
  0c09:4a 10             send 10 

  0c0b:33 17              jmp code_0c24 

        code_0c0d
  0c0d:3c                 dup 
  0c0e:35 01              ldi 1 
  0c10:1a                 eq? 
  0c11:31 11              bnt code_0c24 
  0c13:38 00c6          pushi c6 // $c6 stopUpd
  0c16:76               push0 
  0c17:72 027e          lofsa $0e98 // Door
  0c1a:4a 04             send 4 

  0c1c:39 7a            pushi 7a // $7a setScript
  0c1e:78               push1 
  0c1f:76               push0 
  0c20:63 08             pToa client 
  0c22:4a 06             send 6 


        code_0c24
  0c24:3a                toss 
  0c25:48                 ret 
    )

)



