(script 45)

(string
    string_0d02 "Ethel"
    string_0d08 "Mouth"
    string_0d0e "Room45"
    string_0d15 "bear"
    string_0d1a "bed"
    string_0d1e "chair"
    string_0d24 "chest"
    string_0d2a "couch"
    string_0d30 "dollhouse"
    string_0d3a "eHead"
    string_0d40 "endtable"
    string_0d49 "ethel"
    string_0d4f "ethelActions"
    string_0d5c "lamp"
    string_0d61 "lamp1"
    string_0d67 "lamp2"
    string_0d6d "shelf1"
    string_0d74 "shelf2"
    string_0d7b "sofa"
    string_0d80 "suit1"
    string_0d86 "table"
    string_0d8c "wardrobe"
    string_0d95 ""
)

(said
    said_07b0 (look<dans),open/armoire,(door<armoire)
    said_07c6 /boire,glass
    said_07cd /handkerchief
    said_07d1 ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
    said_07f0 clore,open/blind,curtain
    said_07fc get/bagage
    said_0802 get/jouet,animal
    said_080b get>
    said_080f look/(cabin<doll),dollhouse
    said_081d look/armoire
    said_0823 look/blind,curtain
    said_082c look/boire,glass,deliver,handkerchief
    said_083b look/ethel
    said_0841 look/bagage
    said_0847 look/etagere
    said_084d look/jouet,animal
    said_0856 look<dans/dollhouse,(cabin<doll)
    said_0867 look<dans/boire,glass
    said_0873 look[<around,at][/room]
    said_0883 look[<at]/drawer
    said_088e bouger/armoire,dollhouse
    said_0897 open,(look<dans)/bagage
    said_08a5 jouer
    said_08a8 bonjour/ethel
)

(synonym
    bagage | luggage | suitcase = affaire | cas | case | etui
    bagage | luggage | suitcase = bag | sac | sack | valise
    room = bedroom
    room = nursery
    armoire | cabinet | cupboard | hutch | wardrobe = armoire | cabinet | cupboard | hutch | wardrobe
    armoire | cabinet | cupboard | hutch | wardrobe = closet | placard
    jouet | toy = bear | ours | ourson | teddy
    ethel = person | personne
    ethel = dame | femme | fille | girl | lady | maiden | woman
    drawer | tiroir = chest | malle | poitrine | torse | torso | trunk
    drawer | tiroir = commode | dresser
)

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

// 08b4
(instance public Room45 of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $2d
        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_003e
  003e:35 2c              ldi 2c 
  0040:65 20             aTop west 
  0042:39 57            pushi 57 // $57 init
  0044:76               push0 
  0045:57 37 04         super Rm 4 

  0048:39 61            pushi 61 // $61 add
  004a:39 0d            pushi d // $d lsTop
  004c:74 0b77          lofss $0bc6 // suit1
  004f:74 09c4          lofss $0a16 // bed
  0052:74 08e9          lofss $093e // lamp1
  0055:74 091c          lofss $0974 // lamp2
  0058:74 094f          lofss $09aa // wardrobe
  005b:74 0982          lofss $09e0 // chest
  005e:74 09eb          lofss $0a4c // chair
  0061:74 0a1e          lofss $0a82 // endtable
  0064:74 0a51          lofss $0ab8 // bear
  0067:74 0a84          lofss $0aee // dollhouse
  006a:74 0ab7          lofss $0b24 // sofa
  006d:74 0aea          lofss $0b5a // shelf1
  0070:74 0b1d          lofss $0b90 // shelf2
  0073:39 62            pushi 62 // $62 eachElementDo
  0075:78               push1 
  0076:39 57            pushi 57 // $57 init
  0078:39 3c            pushi 3c // $3c doit
  007a:76               push0 
  007b:81 0a              lag gAddToPics 
  007d:4a 28             send 28 

  007f:38 010b          pushi 10b // $10b setFeatures
  0082:39 0d            pushi d // $d lsTop
  0084:74 0b3f          lofss $0bc6 // suit1
  0087:74 08b4          lofss $093e // lamp1
  008a:74 08e7          lofss $0974 // lamp2
  008d:74 0986          lofss $0a16 // bed
  0090:74 09b9          lofss $0a4c // chair
  0093:74 09ec          lofss $0a82 // endtable
  0096:74 0911          lofss $09aa // wardrobe
  0099:74 0a88          lofss $0b24 // sofa
  009c:74 0a19          lofss $0ab8 // bear
  009f:74 0a4c          lofss $0aee // dollhouse
  00a2:74 0ab5          lofss $0b5a // shelf1
  00a5:74 0ae8          lofss $0b90 // shelf2
  00a8:74 0935          lofss $09e0 // chest
  00ab:54 1e             self 1e 

  00ad:88 00a5            lsg gAct 
  00b0:3c                 dup 
  00b1:35 00              ldi 0 
  00b3:1a                 eq? 
  00b4:30 008c            bnt code_0143 
  00b7:88 0174            lsg global372 
  00ba:35 00              ldi 0 
  00bc:1a                 eq? 
  00bd:31 06              bnt code_00c5 
  00bf:34 0708            ldi 708 
  00c2:a0 0174            sag global372 

        code_00c5
  00c5:88 00c8            lsg gEthelState 
  00c8:35 00              ldi 0 
  00ca:1a                 eq? 
  00cb:31 76              bnt code_0143 
  00cd:39 03            pushi 3 // $3 y
  00cf:38 008f          pushi 8f // $8f moveTo
  00d2:38 00f3          pushi f3 // $f3 close
  00d5:38 00dd          pushi dd // $dd setDirection
  00d8:45 15 06         callb procedure_0015 6 // LoadMany 

  00db:39 03            pushi 3 // $3 y
  00dd:38 0080          pushi 80 // $80 timeLeft
  00e0:38 0145          pushi 145 // $145 highLiteY
  00e3:38 0387          pushi 387 // $387 sel_903
  00e6:45 15 06         callb procedure_0015 6 // LoadMany 

  00e9:35 08              ldi 8 
  00eb:a0 00d0            sag global208 
  00ee:34 00dd            ldi dd 
  00f1:a0 017c            sag global380 
  00f4:38 00c9          pushi c9 // $c9 ignoreActors
  00f7:78               push1 
  00f8:78               push1 
  00f9:38 00a4          pushi a4 // $a4 cycleSpeed
  00fc:78               push1 
  00fd:78               push1 
  00fe:39 57            pushi 57 // $57 init
  0100:76               push0 
  0101:39 7a            pushi 7a // $7a setScript
  0103:78               push1 
  0104:74 0803          lofss $090a // ethelActions
  0107:72 0af2          lofsa $0bfc // Ethel
  010a:4a 16             send 16 

  010c:38 00c9          pushi c9 // $c9 ignoreActors
  010f:78               push1 
  0110:78               push1 
  0111:38 00a4          pushi a4 // $a4 cycleSpeed
  0114:78               push1 
  0115:78               push1 
  0116:39 42            pushi 42 // $42 setPri
  0118:78               push1 
  0119:39 06            pushi 6 // $6 loop
  011b:38 00a4          pushi a4 // $a4 cycleSpeed
  011e:78               push1 
  011f:78               push1 
  0120:39 57            pushi 57 // $57 init
  0122:76               push0 
  0123:72 0b3e          lofsa $0c64 // eHead
  0126:4a 1c             send 1c 

  0128:38 00c9          pushi c9 // $c9 ignoreActors
  012b:78               push1 
  012c:78               push1 
  012d:38 00a4          pushi a4 // $a4 cycleSpeed
  0130:78               push1 
  0131:78               push1 
  0132:39 42            pushi 42 // $42 setPri
  0134:78               push1 
  0135:39 06            pushi 6 // $6 loop
  0137:39 57            pushi 57 // $57 init
  0139:76               push0 
  013a:38 0089          pushi 89 // $89 hide
  013d:76               push0 
  013e:72 0b71          lofsa $0cb2 // Mouth
  0141:4a 1a             send 1a 


        code_0143
  0143:3a                toss 
  0144:39 05            pushi 5 // $5 view
  0146:78               push1 
  0147:76               push0 
  0148:38 00c5          pushi c5 // $c5 posn
  014b:7a               push2 
  014c:78               push1 
  014d:39 7c            pushi 7c // $7c lastTime
  014f:39 57            pushi 57 // $57 init
  0151:76               push0 
  0152:81 00              lag gEgo 
  0154:4a 12             send 12 

  0156:48                 ret 
    )

    (method (doit) // method_0157
  0157:76               push0 
  0158:45 14 00         callb procedure_0014 0 // IsFirstTimeInRoom 

  015b:31 0a              bnt code_0167 
  015d:7a               push2 
  015e:39 2d            pushi 2d // $2d client
  0160:76               push0 
  0161:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_0167
  0167:39 04            pushi 4 // $4 x
  0169:76               push0 
  016a:81 00              lag gEgo 
  016c:4a 04             send 4 

  016e:36                push 
  016f:35 7e              ldi 7e 
  0171:1e                 gt? 
  0172:31 18              bnt code_018c 
  0174:39 03            pushi 3 // $3 y
  0176:76               push0 
  0177:81 00              lag gEgo 
  0179:4a 04             send 4 

  017b:36                push 
  017c:35 68              ldi 68 
  017e:22                 lt? 
  017f:31 0b              bnt code_018c 
  0181:39 42            pushi 42 // $42 setPri
  0183:78               push1 
  0184:39 04            pushi 4 // $4 x
  0186:81 00              lag gEgo 
  0188:4a 06             send 6 

  018a:33 09              jmp code_0195 

        code_018c
  018c:39 42            pushi 42 // $42 setPri
  018e:78               push1 
  018f:39 ff            pushi ff // $ff checkAni
  0191:81 00              lag gEgo 
  0193:4a 06             send 6 


        code_0195
  0195:39 04            pushi 4 // $4 x
  0197:76               push0 
  0198:81 00              lag gEgo 
  019a:4a 04             send 4 

  019c:36                push 
  019d:35 3c              ldi 3c 
  019f:22                 lt? 
  01a0:31 06              bnt code_01a8 
  01a2:35 00              ldi 0 
  01a4:65 2a             aTop vertAngle 
  01a6:33 05              jmp code_01ad 

        code_01a8
  01a8:34 0089            ldi 89 
  01ab:65 2a             aTop vertAngle 

        code_01ad
  01ad:39 3c            pushi 3c // $3c doit
  01af:76               push0 
  01b0:57 37 04         super Rm 4 

  01b3:48                 ret 
    )

    (method (dispose) // method_01b4
  01b4:78               push1 
  01b5:38 03d9          pushi 3d9 // $3d9 sel_985
  01b8:43 03 02         callk DisposeScript 2 

  01bb:39 58            pushi 58 // $58 dispose
  01bd:76               push0 
  01be:57 37 04         super Rm 4 

  01c1:48                 ret 
    )

    (method (newRoom) // method_01c2
  01c2:88 0174            lsg global372 
  01c5:35 01              ldi 1 
  01c7:1a                 eq? 
  01c8:31 04              bnt code_01ce 
  01ca:35 01              ldi 1 
  01cc:a1 7d              sag global125 

        code_01ce
  01ce:38 00f8          pushi f8 // $f8 newRoom
  01d1:78               push1 
  01d2:8f 01              lsp param1 
  01d4:57 37 06         super Rm 6 

  01d7:48                 ret 
    )

    (method (handleEvent) // method_01d8
  01d8:3f 01             link 1 // (var $1)
  01da:39 4c            pushi 4c // $4c claimed
  01dc:76               push0 
  01dd:87 01              lap param1 
  01df:4a 04             send 4 

  01e1:31 01              bnt code_01e4 
  01e3:48                 ret 

        code_01e4
  01e4:39 22            pushi 22 // $22 type
  01e6:76               push0 
  01e7:87 01              lap param1 
  01e9:4a 04             send 4 

  01eb:36                push 
  01ec:34 0080            ldi 80 
  01ef:1a                 eq? 
  01f0:31 6b              bnt code_025d 
  01f2:80 00d0            lag global208 
  01f5:31 2f              bnt code_0226 
  01f7:78               push1 
  01f8:74 05d6          lofss $07d1 // ask,raconter,hold,deliver,look,get,abattre,embrasser,embrace,draguer>
  01fb:43 25 02         callk Said 2 

  01fe:31 26              bnt code_0226 
  0200:39 7a            pushi 7a // $7a setScript
  0202:78               push1 
  0203:7a               push2 
  0204:38 00f3          pushi f3 // $f3 close
  0207:76               push0 
  0208:43 02 04         callk ScriptID 4 

  020b:36                push 
  020c:54 06             self 6 

  020e:39 6f            pushi 6f // $6f handleEvent
  0210:78               push1 
  0211:8f 01              lsp param1 
  0213:39 76            pushi 76 // $76 script
  0215:76               push0 
  0216:54 04             self 4 

  0218:4a 06             send 6 

  021a:39 4c            pushi 4c // $4c claimed
  021c:76               push0 
  021d:87 01              lap param1 
  021f:4a 04             send 4 

  0221:31 03              bnt code_0226 
  0223:35 01              ldi 1 
  0225:48                 ret 

        code_0226
  0226:78               push1 
  0227:74 0649          lofss $0873 // look[<around,at][/room]
  022a:43 25 02         callk Said 2 

  022d:31 0c              bnt code_023b 
  022f:7a               push2 
  0230:39 2d            pushi 2d // $2d client
  0232:76               push0 
  0233:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0239:33 22              jmp code_025d 

        code_023b
  023b:78               push1 
  023c:74 05e4          lofss $0823 // look/blind,curtain
  023f:43 25 02         callk Said 2 

  0242:31 0c              bnt code_0250 
  0244:7a               push2 
  0245:39 2d            pushi 2d // $2d client
  0247:78               push1 
  0248:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  024e:33 0d              jmp code_025d 

        code_0250
  0250:78               push1 
  0251:74 059c          lofss $07f0 // clore,open/blind,curtain
  0254:43 25 02         callk Said 2 

  0257:31 04              bnt code_025d 
  0259:76               push0 
  025a:45 0c 00         callb procedure_000c 0 // CantDo 


        code_025d
  025d:48                 ret 
    )

)

// 0904
(instance ethelActions of Script
    (properties
        client $0
        state $ffff
        start $0
        timer $0
        cycles $0
        seconds $0
        lastSeconds $0
        register $0
        script $0
        caller $0
    )
    (method (doit) // method_025e
  025e:39 3c            pushi 3c // $3c doit
  0260:76               push0 
  0261:57 05 04         super Script 4 

  0264:88 0174            lsg global372 
  0267:35 01              ldi 1 
  0269:1a                 eq? 
  026a:31 18              bnt code_0284 
  026c:8b 02              lsl local2 
  026e:35 00              ldi 0 
  0270:1a                 eq? 
  0271:31 11              bnt code_0284 
  0273:35 01              ldi 1 
  0275:a3 02              sal local2 
  0277:35 02              ldi 2 
  0279:a0 00cb            sag global203 
  027c:35 07              ldi 7 
  027e:65 0a             aTop state 
  0280:35 01              ldi 1 
  0282:65 12             aTop seconds 

        code_0284
  0284:48                 ret 
    )

    (method (changeState) // method_0285
  0285:87 01              lap param1 
  0287:65 0a             aTop state 
  0289:36                push 
  028a:3c                 dup 
  028b:35 00              ldi 0 
  028d:1a                 eq? 
  028e:31 17              bnt code_02a7 
  0290:39 07            pushi 7 // $7 cel
  0292:78               push1 
  0293:76               push0 
  0294:39 06            pushi 6 // $6 loop
  0296:78               push1 
  0297:76               push0 
  0298:39 7e            pushi 7e // $7e setCycle
  029a:7a               push2 
  029b:51 1a            class End 
  029d:36                push 
  029e:7c            pushSelf 
  029f:72 095a          lofsa $0bfc // Ethel
  02a2:4a 14             send 14 

  02a4:32 0170            jmp code_0417 

        code_02a7
  02a7:3c                 dup 
  02a8:35 01              ldi 1 
  02aa:1a                 eq? 
  02ab:31 16              bnt code_02c3 
  02ad:38 00ca          pushi ca // $ca show
  02b0:76               push0 
  02b1:39 7e            pushi 7e // $7e setCycle
  02b3:78               push1 
  02b4:51 16            class Fwd 
  02b6:36                push 
  02b7:72 09f8          lofsa $0cb2 // Mouth
  02ba:4a 0a             send a 

  02bc:35 03              ldi 3 
  02be:65 12             aTop seconds 
  02c0:32 0154            jmp code_0417 

        code_02c3
  02c3:3c                 dup 
  02c4:35 02              ldi 2 
  02c6:1a                 eq? 
  02c7:31 18              bnt code_02e1 
  02c9:38 0089          pushi 89 // $89 hide
  02cc:76               push0 
  02cd:72 09e2          lofsa $0cb2 // Mouth
  02d0:4a 04             send 4 

  02d2:39 7e            pushi 7e // $7e setCycle
  02d4:7a               push2 
  02d5:51 1b            class Beg 
  02d7:36                push 
  02d8:7c            pushSelf 
  02d9:72 0920          lofsa $0bfc // Ethel
  02dc:4a 08             send 8 

  02de:32 0136            jmp code_0417 

        code_02e1
  02e1:3c                 dup 
  02e2:35 03              ldi 3 
  02e4:1a                 eq? 
  02e5:31 1e              bnt code_0305 
  02e7:7a               push2 
  02e8:78               push1 
  02e9:39 64            pushi 64 // $64 allTrue
  02eb:43 40 04         callk Random 4 

  02ee:36                push 
  02ef:35 3c              ldi 3c 
  02f1:22                 lt? 
  02f2:31 04              bnt code_02f8 
  02f4:35 ff              ldi ff 
  02f6:65 0a             aTop state 

        code_02f8
  02f8:7a               push2 
  02f9:39 06            pushi 6 // $6 loop
  02fb:39 0c            pushi c // $c nsRight
  02fd:43 40 04         callk Random 4 

  0300:65 12             aTop seconds 
  0302:32 0112            jmp code_0417 

        code_0305
  0305:3c                 dup 
  0306:35 04              ldi 4 
  0308:1a                 eq? 
  0309:31 22              bnt code_032d 
  030b:39 06            pushi 6 // $6 loop
  030d:78               push1 
  030e:7a               push2 
  030f:78               push1 
  0310:7a               push2 
  0311:43 40 04         callk Random 4 

  0314:36                push 
  0315:39 7e            pushi 7e // $7e setCycle
  0317:78               push1 
  0318:51 1a            class End 
  031a:36                push 
  031b:72 0946          lofsa $0c64 // eHead
  031e:4a 0c             send c 

  0320:7a               push2 
  0321:39 06            pushi 6 // $6 loop
  0323:39 0c            pushi c // $c nsRight
  0325:43 40 04         callk Random 4 

  0328:65 12             aTop seconds 
  032a:32 00ea            jmp code_0417 

        code_032d
  032d:3c                 dup 
  032e:35 05              ldi 5 
  0330:1a                 eq? 
  0331:31 18              bnt code_034b 
  0333:39 7e            pushi 7e // $7e setCycle
  0335:78               push1 
  0336:51 1b            class Beg 
  0338:36                push 
  0339:72 0928          lofsa $0c64 // eHead
  033c:4a 06             send 6 

  033e:7a               push2 
  033f:39 06            pushi 6 // $6 loop
  0341:39 0c            pushi c // $c nsRight
  0343:43 40 04         callk Random 4 

  0346:65 12             aTop seconds 
  0348:32 00cc            jmp code_0417 

        code_034b
  034b:3c                 dup 
  034c:35 06              ldi 6 
  034e:1a                 eq? 
  034f:31 21              bnt code_0372 
  0351:39 06            pushi 6 // $6 loop
  0353:78               push1 
  0354:39 04            pushi 4 // $4 x
  0356:39 07            pushi 7 // $7 cel
  0358:78               push1 
  0359:76               push0 
  035a:39 7e            pushi 7e // $7e setCycle
  035c:78               push1 
  035d:51 1a            class End 
  035f:36                push 
  0360:72 0899          lofsa $0bfc // Ethel
  0363:4a 12             send 12 

  0365:7a               push2 
  0366:39 06            pushi 6 // $6 loop
  0368:39 0c            pushi c // $c nsRight
  036a:43 40 04         callk Random 4 

  036d:65 12             aTop seconds 
  036f:32 00a5            jmp code_0417 

        code_0372
  0372:3c                 dup 
  0373:35 07              ldi 7 
  0375:1a                 eq? 
  0376:31 24              bnt code_039c 
  0378:39 06            pushi 6 // $6 loop
  037a:78               push1 
  037b:39 04            pushi 4 // $4 x
  037d:39 07            pushi 7 // $7 cel
  037f:78               push1 
  0380:76               push0 
  0381:39 7e            pushi 7e // $7e setCycle
  0383:78               push1 
  0384:51 1b            class Beg 
  0386:36                push 
  0387:72 0872          lofsa $0bfc // Ethel
  038a:4a 12             send 12 

  038c:35 ff              ldi ff 
  038e:65 0a             aTop state 
  0390:7a               push2 
  0391:39 06            pushi 6 // $6 loop
  0393:39 0c            pushi c // $c nsRight
  0395:43 40 04         callk Random 4 

  0398:65 12             aTop seconds 
  039a:33 7b              jmp code_0417 

        code_039c
  039c:3c                 dup 
  039d:35 08              ldi 8 
  039f:1a                 eq? 
  03a0:31 52              bnt code_03f4 
  03a2:39 58            pushi 58 // $58 dispose
  03a4:76               push0 
  03a5:72 08bc          lofsa $0c64 // eHead
  03a8:4a 04             send 4 

  03aa:39 58            pushi 58 // $58 dispose
  03ac:76               push0 
  03ad:72 0902          lofsa $0cb2 // Mouth
  03b0:4a 04             send 4 

  03b2:39 05            pushi 5 // $5 view
  03b4:78               push1 
  03b5:38 0145          pushi 145 // $145 highLiteY
  03b8:38 00c8          pushi c8 // $c8 setLoop
  03bb:78               push1 
  03bc:76               push0 
  03bd:38 00c9          pushi c9 // $c9 ignoreActors
  03c0:78               push1 
  03c1:76               push0 
  03c2:38 00a4          pushi a4 // $a4 cycleSpeed
  03c5:78               push1 
  03c6:76               push0 
  03c7:39 7e            pushi 7e // $7e setCycle
  03c9:78               push1 
  03ca:51 16            class Fwd 
  03cc:36                push 
  03cd:38 00d4          pushi d4 // $d4 setAvoider
  03d0:78               push1 
  03d1:38 00be          pushi be // $be offScreenOK
  03d4:78               push1 
  03d5:78               push1 
  03d6:39 56            pushi 56 // $56 new
  03d8:76               push0 
  03d9:51 21            class Avoid 
  03db:4a 04             send 4 

  03dd:4a 06             send 6 

  03df:36                push 
  03e0:38 00d3          pushi d3 // $d3 setMotion
  03e3:39 04            pushi 4 // $4 x
  03e5:51 1d            class MoveTo 
  03e7:36                push 
  03e8:39 f6            pushi f6 // $f6 carrying
  03ea:39 7c            pushi 7c // $7c lastTime
  03ec:7c            pushSelf 
  03ed:72 080c          lofsa $0bfc // Ethel
  03f0:4a 30             send 30 

  03f2:33 23              jmp code_0417 

        code_03f4
  03f4:3c                 dup 
  03f5:35 09              ldi 9 
  03f7:1a                 eq? 
  03f8:31 1d              bnt code_0417 
  03fa:c0 00c8            +ag gEthelState 
  03fd:35 00              ldi 0 
  03ff:a0 00d0            sag global208 
  0402:38 00d4          pushi d4 // $d4 setAvoider
  0405:78               push1 
  0406:76               push0 
  0407:39 58            pushi 58 // $58 dispose
  0409:76               push0 
  040a:72 07ef          lofsa $0bfc // Ethel
  040d:4a 0a             send a 

  040f:39 7a            pushi 7a // $7a setScript
  0411:78               push1 
  0412:76               push0 
  0413:63 08             pToa client 
  0415:4a 06             send 6 


        code_0417
  0417:3a                toss 
  0418:48                 ret 
    )

)

// 0938
(instance lamp1 of RPicView
    (properties
        y $36
        x $e7
        z $0
        heading $0
        view $91
        loop $0
        cel $0
        priority $2
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0419
  0419:39 03            pushi 3 // $3 y
  041b:7c            pushSelf 
  041c:8f 01              lsp param1 
  041e:39 03            pushi 3 // $3 y
  0420:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0426:31 0f              bnt code_0437 
  0428:39 4c            pushi 4c // $4c claimed
  042a:78               push1 
  042b:78               push1 
  042c:87 01              lap param1 
  042e:4a 06             send 6 

  0430:78               push1 
  0431:74 0928          lofss $0d5c // lamp
  0434:45 19 02         callb procedure_0019 2 // DoLook 


        code_0437
  0437:48                 ret 
    )

)

// 096e
(instance lamp2 of RPicView
    (properties
        y $43
        x $103
        z $0
        heading $0
        view $91
        loop $0
        cel $0
        priority $3
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0438
  0438:39 03            pushi 3 // $3 y
  043a:7c            pushSelf 
  043b:8f 01              lsp param1 
  043d:39 03            pushi 3 // $3 y
  043f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0445:31 0f              bnt code_0456 
  0447:39 4c            pushi 4c // $4c claimed
  0449:78               push1 
  044a:78               push1 
  044b:87 01              lap param1 
  044d:4a 06             send 6 

  044f:78               push1 
  0450:74 0909          lofss $0d5c // lamp
  0453:45 19 02         callb procedure_0019 2 // DoLook 


        code_0456
  0456:48                 ret 
    )

)

// 09a4
(instance wardrobe of RPicView
    (properties
        y $5d
        x $cf
        z $0
        heading $0
        view $91
        loop $0
        cel $2
        priority $3
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0457
  0457:78               push1 
  0458:74 0433          lofss $088e // bouger/armoire,dollhouse
  045b:43 25 02         callk Said 2 

  045e:31 0c              bnt code_046c 
  0460:7a               push2 
  0461:39 2d            pushi 2d // $2d client
  0463:7a               push2 
  0464:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  046a:33 41              jmp code_04ad 

        code_046c
  046c:78               push1 
  046d:74 0340          lofss $07b0 // (look<dans),open/armoire,(door<armoire)
  0470:43 25 02         callk Said 2 

  0473:31 0d              bnt code_0482 
  0475:7a               push2 
  0476:39 2d            pushi 2d // $2d client
  0478:39 03            pushi 3 // $3 y
  047a:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0480:33 2b              jmp code_04ad 

        code_0482
  0482:39 03            pushi 3 // $3 y
  0484:7c            pushSelf 
  0485:8f 01              lsp param1 
  0487:39 03            pushi 3 // $3 y
  0489:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  048f:2f 09               bt code_049a 
  0491:78               push1 
  0492:74 0388          lofss $081d // look/armoire
  0495:43 25 02         callk Said 2 

  0498:31 13              bnt code_04ad 

        code_049a
  049a:7a               push2 
  049b:39 2d            pushi 2d // $2d client
  049d:39 04            pushi 4 // $4 x
  049f:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04a5:39 4c            pushi 4c // $4c claimed
  04a7:78               push1 
  04a8:78               push1 
  04a9:87 01              lap param1 
  04ab:4a 06             send 6 


        code_04ad
  04ad:48                 ret 
    )

)

// 09da
(instance chest of RPicView
    (properties
        y $59
        x $1b
        z $0
        heading $0
        view $91
        loop $0
        cel $3
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_04ae
  04ae:39 03            pushi 3 // $3 y
  04b0:7c            pushSelf 
  04b1:8f 01              lsp param1 
  04b3:39 03            pushi 3 // $3 y
  04b5:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04bb:2f 09               bt code_04c6 
  04bd:78               push1 
  04be:74 03c2          lofss $0883 // look[<at]/drawer
  04c1:43 25 02         callk Said 2 

  04c4:31 13              bnt code_04d9 

        code_04c6
  04c6:7a               push2 
  04c7:39 2d            pushi 2d // $2d client
  04c9:39 05            pushi 5 // $5 view
  04cb:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  04d1:39 4c            pushi 4c // $4c claimed
  04d3:78               push1 
  04d4:78               push1 
  04d5:87 01              lap param1 
  04d7:4a 06             send 6 


        code_04d9
  04d9:48                 ret 
    )

)

// 0a10
(instance bed of RPicView
    (properties
        y $69
        x $7d
        z $0
        heading $0
        view $91
        loop $0
        cel $1
        priority $5
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_04da
  04da:39 03            pushi 3 // $3 y
  04dc:7c            pushSelf 
  04dd:8f 01              lsp param1 
  04df:39 03            pushi 3 // $3 y
  04e1:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  04e7:31 0f              bnt code_04f8 
  04e9:39 4c            pushi 4c // $4c claimed
  04eb:78               push1 
  04ec:78               push1 
  04ed:87 01              lap param1 
  04ef:4a 06             send 6 

  04f1:78               push1 
  04f2:74 0825          lofss $0d1a // bed
  04f5:45 19 02         callb procedure_0019 2 // DoLook 


        code_04f8
  04f8:48                 ret 
    )

)

// 0a46
(instance chair of RPicView
    (properties
        y $65
        x $41
        z $0
        heading $0
        view $91
        loop $0
        cel $5
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_04f9
  04f9:39 03            pushi 3 // $3 y
  04fb:7c            pushSelf 
  04fc:8f 01              lsp param1 
  04fe:39 03            pushi 3 // $3 y
  0500:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0506:31 0f              bnt code_0517 
  0508:39 4c            pushi 4c // $4c claimed
  050a:78               push1 
  050b:78               push1 
  050c:87 01              lap param1 
  050e:4a 06             send 6 

  0510:78               push1 
  0511:74 080a          lofss $0d1e // chair
  0514:45 19 02         callb procedure_0019 2 // DoLook 


        code_0517
  0517:48                 ret 
    )

)

// 0a7c
(instance endtable of RPicView
    (properties
        y $59
        x $57
        z $0
        heading $0
        view $91
        loop $0
        cel $4
        priority $5
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0518
  0518:39 03            pushi 3 // $3 y
  051a:7c            pushSelf 
  051b:8f 01              lsp param1 
  051d:39 03            pushi 3 // $3 y
  051f:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0525:31 0f              bnt code_0536 
  0527:39 4c            pushi 4c // $4c claimed
  0529:78               push1 
  052a:78               push1 
  052b:87 01              lap param1 
  052d:4a 06             send 6 

  052f:78               push1 
  0530:74 0853          lofss $0d86 // table
  0533:45 19 02         callb procedure_0019 2 // DoLook 


        code_0536
  0536:48                 ret 
    )

)

// 0ab2
(instance bear of RPicView
    (properties
        y $a8
        x $123
        z $0
        heading $0
        view $91
        loop $0
        cel $7
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_0537
  0537:78               push1 
  0538:74 02c7          lofss $0802 // get/jouet,animal
  053b:43 25 02         callk Said 2 

  053e:31 0d              bnt code_054d 
  0540:7a               push2 
  0541:39 2d            pushi 2d // $2d client
  0543:39 06            pushi 6 // $6 loop
  0545:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  054b:33 41              jmp code_058e 

        code_054d
  054d:78               push1 
  054e:74 0354          lofss $08a5 // jouer
  0551:43 25 02         callk Said 2 

  0554:31 0d              bnt code_0563 
  0556:7a               push2 
  0557:39 2d            pushi 2d // $2d client
  0559:39 07            pushi 7 // $7 cel
  055b:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0561:33 2b              jmp code_058e 

        code_0563
  0563:39 03            pushi 3 // $3 y
  0565:7c            pushSelf 
  0566:8f 01              lsp param1 
  0568:39 03            pushi 3 // $3 y
  056a:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0570:2f 09               bt code_057b 
  0572:78               push1 
  0573:74 02d7          lofss $084d // look/jouet,animal
  0576:43 25 02         callk Said 2 

  0579:31 13              bnt code_058e 

        code_057b
  057b:7a               push2 
  057c:39 2d            pushi 2d // $2d client
  057e:39 08            pushi 8 // $8 underBits
  0580:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0586:39 4c            pushi 4c // $4c claimed
  0588:78               push1 
  0589:78               push1 
  058a:87 01              lap param1 
  058c:4a 06             send 6 


        code_058e
  058e:48                 ret 
    )

)

// 0ae8
(instance dollhouse of RPicView
    (properties
        y $89
        x $100
        z $0
        heading $0
        view $91
        loop $0
        cel $6
        priority $a
        signal $4000
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_058f
  058f:78               push1 
  0590:74 02c3          lofss $0856 // look<dans/dollhouse,(cabin<doll)
  0593:43 25 02         callk Said 2 

  0596:31 0d              bnt code_05a5 
  0598:7a               push2 
  0599:39 2d            pushi 2d // $2d client
  059b:39 09            pushi 9 // $9 nsTop
  059d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05a3:33 2b              jmp code_05d0 

        code_05a5
  05a5:39 03            pushi 3 // $3 y
  05a7:7c            pushSelf 
  05a8:8f 01              lsp param1 
  05aa:39 03            pushi 3 // $3 y
  05ac:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05b2:2f 09               bt code_05bd 
  05b4:78               push1 
  05b5:74 0257          lofss $080f // look/(cabin<doll),dollhouse
  05b8:43 25 02         callk Said 2 

  05bb:31 13              bnt code_05d0 

        code_05bd
  05bd:7a               push2 
  05be:39 2d            pushi 2d // $2d client
  05c0:39 0a            pushi a // $a nsLeft
  05c2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  05c8:39 4c            pushi 4c // $4c claimed
  05ca:78               push1 
  05cb:78               push1 
  05cc:87 01              lap param1 
  05ce:4a 06             send 6 


        code_05d0
  05d0:48                 ret 
    )

)

// 0b1e
(instance sofa of RPicView
    (properties
        y $a7
        x $a0
        z $0
        heading $0
        view $91
        loop $0
        cel $9
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_05d1
  05d1:39 03            pushi 3 // $3 y
  05d3:7c            pushSelf 
  05d4:8f 01              lsp param1 
  05d6:39 03            pushi 3 // $3 y
  05d8:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05de:31 0f              bnt code_05ef 
  05e0:39 4c            pushi 4c // $4c claimed
  05e2:78               push1 
  05e3:78               push1 
  05e4:87 01              lap param1 
  05e6:4a 06             send 6 

  05e8:78               push1 
  05e9:74 073e          lofss $0d2a // couch
  05ec:45 19 02         callb procedure_0019 2 // DoLook 


        code_05ef
  05ef:48                 ret 
    )

)

// 0b54
(instance shelf1 of RPicView
    (properties
        y $a7
        x $59
        z $0
        heading $0
        view $91
        loop $0
        cel $a
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_05f0
  05f0:39 03            pushi 3 // $3 y
  05f2:7c            pushSelf 
  05f3:8f 01              lsp param1 
  05f5:39 03            pushi 3 // $3 y
  05f7:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  05fd:2f 09               bt code_0608 
  05ff:78               push1 
  0600:74 0244          lofss $0847 // look/etagere
  0603:43 25 02         callk Said 2 

  0606:31 13              bnt code_061b 

        code_0608
  0608:7a               push2 
  0609:39 2d            pushi 2d // $2d client
  060b:39 0b            pushi b // $b nsBottom
  060d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0613:39 4c            pushi 4c // $4c claimed
  0615:78               push1 
  0616:78               push1 
  0617:87 01              lap param1 
  0619:4a 06             send 6 


        code_061b
  061b:48                 ret 
    )

)

// 0b8a
(instance shelf2 of RPicView
    (properties
        y $a7
        x $e9
        z $0
        heading $0
        view $91
        loop $0
        cel $8
        priority $c
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_061c
  061c:39 03            pushi 3 // $3 y
  061e:7c            pushSelf 
  061f:8f 01              lsp param1 
  0621:39 03            pushi 3 // $3 y
  0623:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0629:31 13              bnt code_063e 
  062b:7a               push2 
  062c:39 2d            pushi 2d // $2d client
  062e:39 0b            pushi b // $b nsBottom
  0630:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0636:39 4c            pushi 4c // $4c claimed
  0638:78               push1 
  0639:78               push1 
  063a:87 01              lap param1 
  063c:4a 06             send 6 


        code_063e
  063e:48                 ret 
    )

)

// 0bc0
(instance suit1 of RPicView
    (properties
        y $6f
        x $83
        z $0
        heading $0
        view $91
        loop $0
        cel $b
        priority $ffff
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
    )
    (method (handleEvent) // method_063f
  063f:78               push1 
  0640:74 0254          lofss $0897 // open,(look<dans)/bagage
  0643:43 25 02         callk Said 2 

  0646:31 0d              bnt code_0655 
  0648:7a               push2 
  0649:39 2d            pushi 2d // $2d client
  064b:39 0c            pushi c // $c nsRight
  064d:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0653:33 41              jmp code_0696 

        code_0655
  0655:78               push1 
  0656:74 01a3          lofss $07fc // get/bagage
  0659:43 25 02         callk Said 2 

  065c:31 0d              bnt code_066b 
  065e:7a               push2 
  065f:39 2d            pushi 2d // $2d client
  0661:39 0d            pushi d // $d lsTop
  0663:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0669:33 2b              jmp code_0696 

        code_066b
  066b:39 03            pushi 3 // $3 y
  066d:7c            pushSelf 
  066e:8f 01              lsp param1 
  0670:39 03            pushi 3 // $3 y
  0672:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0678:2f 09               bt code_0683 
  067a:78               push1 
  067b:74 01c3          lofss $0841 // look/bagage
  067e:43 25 02         callk Said 2 

  0681:31 13              bnt code_0696 

        code_0683
  0683:7a               push2 
  0684:39 2d            pushi 2d // $2d client
  0686:39 0e            pushi e // $e lsLeft
  0688:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  068e:39 4c            pushi 4c // $4c claimed
  0690:78               push1 
  0691:78               push1 
  0692:87 01              lap param1 
  0694:4a 06             send 6 


        code_0696
  0696:48                 ret 
    )

)

// 0bf6
(instance Ethel of Act
    (properties
        y $64
        x $44
        z $0
        heading $0
        yStep $2
        view $147
        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 $0
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
    (method (handleEvent) // method_0697
  0697:78               push1 
  0698:74 01cc          lofss $0867 // look<dans/boire,glass
  069b:43 25 02         callk Said 2 

  069e:31 0e              bnt code_06ae 
  06a0:7a               push2 
  06a1:39 2d            pushi 2d // $2d client
  06a3:39 0f            pushi f // $f lsBottom
  06a5:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06ab:32 00fc            jmp code_07aa 

        code_06ae
  06ae:78               push1 
  06af:74 017a          lofss $082c // look/boire,glass,deliver,handkerchief
  06b2:43 25 02         callk Said 2 

  06b5:31 0e              bnt code_06c5 
  06b7:7a               push2 
  06b8:39 2d            pushi 2d // $2d client
  06ba:39 10            pushi 10 // $10 lsRight
  06bc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06c2:32 00e5            jmp code_07aa 

        code_06c5
  06c5:78               push1 
  06c6:74 0142          lofss $080b // get>
  06c9:43 25 02         callk Said 2 

  06cc:31 2d              bnt code_06fb 
  06ce:78               push1 
  06cf:74 00f4          lofss $07c6 // /boire,glass
  06d2:43 25 02         callk Said 2 

  06d5:31 0d              bnt code_06e4 
  06d7:7a               push2 
  06d8:39 2d            pushi 2d // $2d client
  06da:39 11            pushi 11 // $11 signal
  06dc:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  06e2:33 14              jmp code_06f8 

        code_06e4
  06e4:78               push1 
  06e5:74 00e5          lofss $07cd // /handkerchief
  06e8:43 25 02         callk Said 2 

  06eb:31 0b              bnt code_06f8 
  06ed:7a               push2 
  06ee:39 2d            pushi 2d // $2d client
  06f0:39 12            pushi 12 // $12 illegalBits
  06f2:46 00ff 0000 04  calle ff procedure_0000 4 // Print 


        code_06f8
  06f8:32 00af            jmp code_07aa 

        code_06fb
  06fb:39 03            pushi 3 // $3 y
  06fd:7c            pushSelf 
  06fe:8f 01              lsp param1 
  0700:39 03            pushi 3 // $3 y
  0702:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  0708:31 1b              bnt code_0725 
  070a:88 00cf            lsg global207 
  070d:35 08              ldi 8 
  070f:12                 and 
  0710:18                 not 
  0711:31 12              bnt code_0725 
  0713:39 4c            pushi 4c // $4c claimed
  0715:78               push1 
  0716:78               push1 
  0717:87 01              lap param1 
  0719:4a 06             send 6 

  071b:78               push1 
  071c:74 062a          lofss $0d49 // ethel
  071f:45 19 02         callb procedure_0019 2 // DoLook 

  0722:32 0085            jmp code_07aa 

        code_0725
  0725:88 00cf            lsg global207 
  0728:35 08              ldi 8 
  072a:12                 and 
  072b:31 2d              bnt code_075a 
  072d:39 03            pushi 3 // $3 y
  072f:7c            pushSelf 
  0730:8f 01              lsp param1 
  0732:39 03            pushi 3 // $3 y
  0734:46 00ff 0005 06  calle ff procedure_0005 6 // MousedOn 

  073a:2f 09               bt code_0745 
  073c:78               push1 
  073d:74 00fb          lofss $083b // look/ethel
  0740:43 25 02         callk Said 2 

  0743:31 15              bnt code_075a 

        code_0745
  0745:39 4c            pushi 4c // $4c claimed
  0747:78               push1 
  0748:78               push1 
  0749:87 01              lap param1 
  074b:4a 06             send 6 

  074d:7a               push2 
  074e:39 2d            pushi 2d // $2d client
  0750:39 13            pushi 13 // $13 brTop
  0752:46 00ff 0000 04  calle ff procedure_0000 4 // Print 

  0758:33 50              jmp code_07aa 

        code_075a
  075a:78               push1 
  075b:74 014a          lofss $08a8 // bonjour/ethel
  075e:43 25 02         callk Said 2 

  0761:31 47              bnt code_07aa 
  0763:35 04              ldi 4 
  0765:a0 00d5            sag global213 
  0768:8b 01              lsl local1 
  076a:3c                 dup 
  076b:35 00              ldi 0 
  076d:1a                 eq? 
  076e:31 1b              bnt code_078b 
  0770:39 03            pushi 3 // $3 y
  0772:78               push1 
  0773:39 2d            pushi 2d // $2d client
  0775:39 14            pushi 14 // $14 brLeft
  0777:45 01 06         callb procedure_0001 6 // Say 

  077a:35 0c              ldi c 
  077c:a0 00d5            sag global213 
  077f:39 03            pushi 3 // $3 y
  0781:78               push1 
  0782:39 2d            pushi 2d // $2d client
  0784:39 15            pushi 15 // $15 brBottom
  0786:45 01 06         callb procedure_0001 6 // Say 

  0789:33 1c              jmp code_07a7 

        code_078b
  078b:3c                 dup 
  078c:35 01              ldi 1 
  078e:1a                 eq? 
  078f:31 0c              bnt code_079d 
  0791:39 03            pushi 3 // $3 y
  0793:78               push1 
  0794:39 2d            pushi 2d // $2d client
  0796:39 16            pushi 16 // $16 brRight
  0798:45 01 06         callb procedure_0001 6 // Say 

  079b:33 0a              jmp code_07a7 

        code_079d
  079d:39 03            pushi 3 // $3 y
  079f:78               push1 
  07a0:39 2d            pushi 2d // $2d client
  07a2:39 17            pushi 17 // $17 name
  07a4:45 01 06         callb procedure_0001 6 // Say 


        code_07a7
  07a7:3a                toss 
  07a8:c3 01              +al local1 

        code_07aa
  07aa:48                 ret 
  07ab:00                bnot 
    )

)

// 0c5e
(instance eHead of Prop
    (properties
        y $40
        x $41
        z $0
        heading $0
        yStep $2
        view $147
        loop $1
        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
    )
)

// 0cac
(instance Mouth of Prop
    (properties
        y $39
        x $42
        z $0
        heading $0
        yStep $2
        view $147
        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
    )
)



