(script 305)

(string
    string_0898 "Clarence"
    string_08a1 "Hand"
    string_08a6 "Smoke"
    string_08ac "Wilbur"
    string_08b3 "clarEye"
    string_08bb "clarMouth"
    string_08c5 "cycleMouth"
    string_08d0 "eyeball"
    string_08d8 "eyeball2"
    string_08e1 "myMusic"
    string_08e9 "scene34b"
    string_08f2 "speech"
    string_08f9 "wilbEye"
    string_0901 "wilbMouth"
    string_090b ""
)

(said
)

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

// 049c
(instance public scene34b of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $3e
        style $7
        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_00a5
  00a5:39 57            pushi 57 // $57 init
  00a7:76               push0 
  00a8:57 37 04         super Rm 4 

  00ab:78               push1 
  00ac:39 10            pushi 10 // $10 lsRight
  00ae:45 05 02         callb procedure_0005 2 // SetFlag 

  00b1:78               push1 
  00b2:39 11            pushi 11 // $11 signal
  00b4:45 05 02         callb procedure_0005 2 // SetFlag 

  00b7:78               push1 
  00b8:39 12            pushi 12 // $12 illegalBits
  00ba:45 05 02         callb procedure_0005 2 // SetFlag 

  00bd:78               push1 
  00be:39 13            pushi 13 // $13 brTop
  00c0:45 05 02         callb procedure_0005 2 // SetFlag 

  00c3:7a               push2 
  00c4:38 0087          pushi 87 // $87 clean
  00c7:39 04            pushi 4 // $4 x
  00c9:43 00 04         callk Load 4 

  00cc:76               push0 
  00cd:45 03 00         callb procedure_0003 0 // HandsOff 

  00d0:39 2b            pushi 2b // $2b number
  00d2:78               push1 
  00d3:39 1b            pushi 1b // $1b elements
  00d5:39 06            pushi 6 // $6 loop
  00d7:78               push1 
  00d8:39 ff            pushi ff // $ff checkAni
  00da:39 2a            pushi 2a // $2a play
  00dc:76               push0 
  00dd:72 078c          lofsa $086c // myMusic
  00e0:4a 10             send 10 

  00e2:35 04              ldi 4 
  00e4:a0 009a            sag gClarenceWilburState 
  00e7:39 42            pushi 42 // $42 setPri
  00e9:78               push1 
  00ea:78               push1 
  00eb:39 57            pushi 57 // $57 init
  00ed:76               push0 
  00ee:72 052d          lofsa $061e // Clarence
  00f1:4a 0a             send a 

  00f3:39 42            pushi 42 // $42 setPri
  00f5:78               push1 
  00f6:7a               push2 
  00f7:39 57            pushi 57 // $57 init
  00f9:76               push0 
  00fa:72 0585          lofsa $0682 // clarMouth
  00fd:4a 0a             send a 

  00ff:39 42            pushi 42 // $42 setPri
  0101:78               push1 
  0102:7a               push2 
  0103:39 57            pushi 57 // $57 init
  0105:76               push0 
  0106:39 7a            pushi 7a // $7a setScript
  0108:78               push1 
  0109:74 0412          lofss $051e // eyeball2
  010c:72 05c1          lofsa $06d0 // clarEye
  010f:4a 10             send 10 

  0111:38 00c8          pushi c8 // $c8 setLoop
  0114:78               push1 
  0115:76               push0 
  0116:38 00a2          pushi a2 // $a2 setCel
  0119:78               push1 
  011a:78               push1 
  011b:39 42            pushi 42 // $42 setPri
  011d:78               push1 
  011e:78               push1 
  011f:39 37            pushi 37 // $37 yStep
  0121:78               push1 
  0122:39 05            pushi 5 // $5 view
  0124:39 57            pushi 57 // $57 init
  0126:76               push0 
  0127:72 06de          lofsa $0808 // Hand
  012a:4a 1c             send 1c 

  012c:39 42            pushi 42 // $42 setPri
  012e:78               push1 
  012f:7a               push2 
  0130:39 57            pushi 57 // $57 init
  0132:76               push0 
  0133:38 0089          pushi 89 // $89 hide
  0136:76               push0 
  0137:72 0680          lofsa $07ba // Smoke
  013a:4a 0e             send e 

  013c:38 00c8          pushi c8 // $c8 setLoop
  013f:78               push1 
  0140:76               push0 
  0141:38 00a2          pushi a2 // $a2 setCel
  0144:78               push1 
  0145:76               push0 
  0146:39 42            pushi 42 // $42 setPri
  0148:78               push1 
  0149:78               push1 
  014a:39 37            pushi 37 // $37 yStep
  014c:78               push1 
  014d:39 05            pushi 5 // $5 view
  014f:39 57            pushi 57 // $57 init
  0151:76               push0 
  0152:72 0465          lofsa $05ba // Wilbur
  0155:4a 1c             send 1c 

  0157:39 42            pushi 42 // $42 setPri
  0159:78               push1 
  015a:7a               push2 
  015b:39 57            pushi 57 // $57 init
  015d:76               push0 
  015e:72 060b          lofsa $076c // wilbMouth
  0161:4a 0a             send a 

  0163:39 42            pushi 42 // $42 setPri
  0165:78               push1 
  0166:7a               push2 
  0167:39 57            pushi 57 // $57 init
  0169:76               push0 
  016a:39 7a            pushi 7a // $7a setScript
  016c:78               push1 
  016d:74 037e          lofss $04ee // eyeball
  0170:72 05ab          lofsa $071e // wilbEye
  0173:4a 10             send 10 

  0175:39 7a            pushi 7a // $7a setScript
  0177:78               push1 
  0178:74 03d3          lofss $054e // speech
  017b:54 06             self 6 

  017d:48                 ret 
    )

    (method (doit) // method_017e
  017e:39 3c            pushi 3c // $3c doit
  0180:76               push0 
  0181:57 37 04         super Rm 4 

  0184:48                 ret 
    )

    (method (dispose) // method_0185
  0185:39 58            pushi 58 // $58 dispose
  0187:76               push0 
  0188:57 37 04         super Rm 4 

  018b:48                 ret 
    )

    (method (handleEvent) // method_018c
  018c:39 6f            pushi 6f // $6f handleEvent
  018e:78               push1 
  018f:8f 01              lsp param1 
  0191:57 37 06         super Rm 6 

  0194:48                 ret 
    )

)

// 04e8
(instance eyeball 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_0195
  0195:87 01              lap param1 
  0197:65 0a             aTop state 
  0199:36                push 
  019a:3c                 dup 
  019b:35 00              ldi 0 
  019d:1a                 eq? 
  019e:31 1f              bnt code_01bf 
  01a0:39 06            pushi 6 // $6 loop
  01a2:78               push1 
  01a3:7a               push2 
  01a4:7a               push2 
  01a5:39 04            pushi 4 // $4 x
  01a7:43 40 04         callk Random 4 

  01aa:36                push 
  01ab:39 07            pushi 7 // $7 cel
  01ad:78               push1 
  01ae:78               push1 
  01af:72 056c          lofsa $071e // wilbEye
  01b2:4a 0c             send c 

  01b4:7a               push2 
  01b5:7a               push2 
  01b6:39 06            pushi 6 // $6 loop
  01b8:43 40 04         callk Random 4 

  01bb:65 12             aTop seconds 
  01bd:33 27              jmp code_01e6 

        code_01bf
  01bf:3c                 dup 
  01c0:35 01              ldi 1 
  01c2:1a                 eq? 
  01c3:31 21              bnt code_01e6 
  01c5:39 06            pushi 6 // $6 loop
  01c7:78               push1 
  01c8:7a               push2 
  01c9:7a               push2 
  01ca:39 04            pushi 4 // $4 x
  01cc:43 40 04         callk Random 4 

  01cf:36                push 
  01d0:39 07            pushi 7 // $7 cel
  01d2:78               push1 
  01d3:76               push0 
  01d4:72 0547          lofsa $071e // wilbEye
  01d7:4a 0c             send c 

  01d9:35 ff              ldi ff 
  01db:65 0a             aTop state 
  01dd:7a               push2 
  01de:7a               push2 
  01df:39 06            pushi 6 // $6 loop
  01e1:43 40 04         callk Random 4 

  01e4:65 12             aTop seconds 

        code_01e6
  01e6:3a                toss 
  01e7:48                 ret 
    )

)

// 0518
(instance eyeball2 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_01e8
  01e8:87 01              lap param1 
  01ea:65 0a             aTop state 
  01ec:36                push 
  01ed:3c                 dup 
  01ee:35 00              ldi 0 
  01f0:1a                 eq? 
  01f1:31 18              bnt code_020b 
  01f3:39 7e            pushi 7e // $7e setCycle
  01f5:78               push1 
  01f6:51 1b            class Beg 
  01f8:36                push 
  01f9:63 08             pToa client 
  01fb:4a 06             send 6 

  01fd:35 ff              ldi ff 
  01ff:65 0a             aTop state 
  0201:7a               push2 
  0202:39 04            pushi 4 // $4 x
  0204:39 06            pushi 6 // $6 loop
  0206:43 40 04         callk Random 4 

  0209:65 12             aTop seconds 

        code_020b
  020b:3a                toss 
  020c:48                 ret 
    )

)

// 0548
(instance speech 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_020d
  020d:39 6f            pushi 6f // $6f handleEvent
  020f:78               push1 
  0210:8f 01              lsp param1 
  0212:57 05 06         super Script 6 

  0215:39 4c            pushi 4c // $4c claimed
  0217:76               push0 
  0218:87 01              lap param1 
  021a:4a 04             send 4 

  021c:18                 not 
  021d:31 34              bnt code_0253 
  021f:39 04            pushi 4 // $4 x
  0221:39 22            pushi 22 // $22 type
  0223:76               push0 
  0224:87 01              lap param1 
  0226:4a 04             send 4 

  0228:1a                 eq? 
  0229:31 28              bnt code_0253 
  022b:39 28            pushi 28 // $28 message
  022d:76               push0 
  022e:87 01              lap param1 
  0230:4a 04             send 4 

  0232:36                push 
  0233:35 53              ldi 53 
  0235:1a                 eq? 
  0236:2f 0d               bt code_0245 
  0238:39 28            pushi 28 // $28 message
  023a:76               push0 
  023b:87 01              lap param1 
  023d:4a 04             send 4 

  023f:36                push 
  0240:35 73              ldi 73 
  0242:1a                 eq? 
  0243:31 0e              bnt code_0253 

        code_0245
  0245:76               push0 
  0246:45 0f 00         callb procedure_000f 0 // cls 

  0249:38 00f8          pushi f8 // $f8 newRoom
  024c:78               push1 
  024d:89 0c              lsg gPrevRoomNum 
  024f:81 02              lag gCurRoom 
  0251:4a 06             send 6 


        code_0253
  0253:48                 ret 
    )

    (method (doit) // method_0254
  0254:39 3c            pushi 3c // $3c doit
  0256:76               push0 
  0257:57 05 04         super Script 4 

  025a:67 0a             pTos state 
  025c:35 02              ldi 2 
  025e:0a                 mod 
  025f:36                push 
  0260:35 01              ldi 1 
  0262:1a                 eq? 
  0263:31 47              bnt code_02ac 
  0265:67 0a             pTos state 
  0267:35 09              ldi 9 
  0269:1c                 ne? 
  026a:31 40              bnt code_02ac 
  026c:39 04            pushi 4 // $4 x
  026e:76               push0 
  026f:72 0596          lofsa $0808 // Hand
  0272:4a 04             send 4 

  0274:36                push 
  0275:35 7a              ldi 7a 
  0277:1a                 eq? 
  0278:31 1e              bnt code_0298 
  027a:39 03            pushi 3 // $3 y
  027c:76               push0 
  027d:72 0588          lofsa $0808 // Hand
  0280:4a 04             send 4 

  0282:36                push 
  0283:34 0087            ldi 87 
  0286:1a                 eq? 
  0287:31 0f              bnt code_0298 
  0289:38 00ca          pushi ca // $ca show
  028c:76               push0 
  028d:39 7e            pushi 7e // $7e setCycle
  028f:78               push1 
  0290:51 1a            class End 
  0292:36                push 
  0293:72 0524          lofsa $07ba // Smoke
  0296:4a 0a             send a 


        code_0298
  0298:38 00d3          pushi d3 // $d3 setMotion
  029b:39 03            pushi 3 // $3 y
  029d:51 1d            class MoveTo 
  029f:36                push 
  02a0:39 7a            pushi 7a // $7a setScript
  02a2:38 0087          pushi 87 // $87 clean
  02a5:72 0560          lofsa $0808 // Hand
  02a8:4a 0a             send a 

  02aa:33 13              jmp code_02bf 

        code_02ac
  02ac:38 00d3          pushi d3 // $d3 setMotion
  02af:39 03            pushi 3 // $3 y
  02b1:51 1d            class MoveTo 
  02b3:36                push 
  02b4:38 008c          pushi 8c // $8c track
  02b7:38 00be          pushi be // $be offScreenOK
  02ba:72 054b          lofsa $0808 // Hand
  02bd:4a 0a             send a 


        code_02bf
  02bf:48                 ret 
    )

    (method (changeState) // method_02c0
  02c0:39 2d            pushi 2d // $2d client
  02c2:76               push0 
  02c3:72 02c0          lofsa $0586 // cycleMouth
  02c6:4a 04             send 4 

  02c8:31 0b              bnt code_02d5 
  02ca:35 01              ldi 1 
  02cc:a3 02              sal local2 
  02ce:35 01              ldi 1 
  02d0:65 10             aTop cycles 
  02d2:32 016f            jmp code_0444 

        code_02d5
  02d5:87 01              lap param1 
  02d7:65 0a             aTop state 
  02d9:36                push 
  02da:3c                 dup 
  02db:35 00              ldi 0 
  02dd:1a                 eq? 
  02de:31 07              bnt code_02e7 
  02e0:35 07              ldi 7 
  02e2:65 10             aTop cycles 
  02e4:32 015c            jmp code_0443 

        code_02e7
  02e7:3c                 dup 
  02e8:35 01              ldi 1 
  02ea:1a                 eq? 
  02eb:31 33              bnt code_0320 
  02ed:39 0e            pushi e // $e lsLeft
  02ef:38 0131          pushi 131 // $131 numOfLoops
  02f2:76               push0 
  02f3:39 64            pushi 64 // $64 allTrue
  02f5:39 30            pushi 30 // $30 b-moveCnt
  02f7:39 08            pushi 8 // $8 underBits
  02f9:39 6a            pushi 6a // $6a prev
  02fb:38 0100          pushi 100 // $100 notify
  02fe:39 66            pushi 66 // $66 isEmpty
  0300:39 0f            pushi f // $f lsBottom
  0302:39 67            pushi 67 // $67 first
  0304:39 ff            pushi ff // $ff checkAni
  0306:39 69            pushi 69 // $69 last
  0308:76               push0 
  0309:39 6b            pushi 6b // $6b addToFront
  030b:43 1b 1c         callk Display 1c 

  030e:a3 00              sal local0 
  0310:7a               push2 
  0311:38 0131          pushi 131 // $131 numOfLoops
  0314:78               push1 
  0315:40 fd13 04        call proc_002c 4 

  0319:35 0a              ldi a 
  031b:65 12             aTop seconds 
  031d:32 0123            jmp code_0443 

        code_0320
  0320:3c                 dup 
  0321:35 02              ldi 2 
  0323:1a                 eq? 
  0324:31 10              bnt code_0336 
  0326:7a               push2 
  0327:38 0131          pushi 131 // $131 numOfLoops
  032a:7a               push2 
  032b:40 fd3a 04        call proc_0069 4 

  032f:35 04              ldi 4 
  0331:65 12             aTop seconds 
  0333:32 010d            jmp code_0443 

        code_0336
  0336:3c                 dup 
  0337:35 03              ldi 3 
  0339:1a                 eq? 
  033a:31 11              bnt code_034d 
  033c:7a               push2 
  033d:38 0131          pushi 131 // $131 numOfLoops
  0340:39 03            pushi 3 // $3 y
  0342:40 fce6 04        call proc_002c 4 

  0346:35 07              ldi 7 
  0348:65 12             aTop seconds 
  034a:32 00f6            jmp code_0443 

        code_034d
  034d:3c                 dup 
  034e:35 04              ldi 4 
  0350:1a                 eq? 
  0351:31 11              bnt code_0364 
  0353:7a               push2 
  0354:38 0131          pushi 131 // $131 numOfLoops
  0357:39 04            pushi 4 // $4 x
  0359:40 fd0c 04        call proc_0069 4 

  035d:35 0a              ldi a 
  035f:65 12             aTop seconds 
  0361:32 00df            jmp code_0443 

        code_0364
  0364:3c                 dup 
  0365:35 05              ldi 5 
  0367:1a                 eq? 
  0368:31 11              bnt code_037b 
  036a:7a               push2 
  036b:38 0131          pushi 131 // $131 numOfLoops
  036e:39 05            pushi 5 // $5 view
  0370:40 fcb8 04        call proc_002c 4 

  0374:35 08              ldi 8 
  0376:65 12             aTop seconds 
  0378:32 00c8            jmp code_0443 

        code_037b
  037b:3c                 dup 
  037c:35 06              ldi 6 
  037e:1a                 eq? 
  037f:31 11              bnt code_0392 
  0381:7a               push2 
  0382:38 0131          pushi 131 // $131 numOfLoops
  0385:39 06            pushi 6 // $6 loop
  0387:40 fcde 04        call proc_0069 4 

  038b:35 0a              ldi a 
  038d:65 12             aTop seconds 
  038f:32 00b1            jmp code_0443 

        code_0392
  0392:3c                 dup 
  0393:35 07              ldi 7 
  0395:1a                 eq? 
  0396:31 11              bnt code_03a9 
  0398:7a               push2 
  0399:38 0131          pushi 131 // $131 numOfLoops
  039c:39 07            pushi 7 // $7 cel
  039e:40 fc8a 04        call proc_002c 4 

  03a2:35 08              ldi 8 
  03a4:65 12             aTop seconds 
  03a6:32 009a            jmp code_0443 

        code_03a9
  03a9:3c                 dup 
  03aa:35 08              ldi 8 
  03ac:1a                 eq? 
  03ad:31 11              bnt code_03c0 
  03af:7a               push2 
  03b0:38 0131          pushi 131 // $131 numOfLoops
  03b3:39 08            pushi 8 // $8 underBits
  03b5:40 fcb0 04        call proc_0069 4 

  03b9:35 0a              ldi a 
  03bb:65 12             aTop seconds 
  03bd:32 0083            jmp code_0443 

        code_03c0
  03c0:3c                 dup 
  03c1:35 09              ldi 9 
  03c3:1a                 eq? 
  03c4:31 10              bnt code_03d6 
  03c6:7a               push2 
  03c7:38 0131          pushi 131 // $131 numOfLoops
  03ca:39 09            pushi 9 // $9 nsTop
  03cc:40 fc99 04        call proc_0069 4 

  03d0:35 0a              ldi a 
  03d2:65 12             aTop seconds 
  03d4:33 6d              jmp code_0443 

        code_03d6
  03d6:3c                 dup 
  03d7:35 0a              ldi a 
  03d9:1a                 eq? 
  03da:31 57              bnt code_0433 
  03dc:76               push0 
  03dd:45 0f 00         callb procedure_000f 0 // cls 

  03e0:38 0089          pushi 89 // $89 hide
  03e3:76               push0 
  03e4:72 029b          lofsa $0682 // clarMouth
  03e7:4a 04             send 4 

  03e9:38 0089          pushi 89 // $89 hide
  03ec:76               push0 
  03ed:72 032e          lofsa $071e // wilbEye
  03f0:4a 04             send 4 

  03f2:38 0089          pushi 89 // $89 hide
  03f5:76               push0 
  03f6:72 02d7          lofsa $06d0 // clarEye
  03f9:4a 04             send 4 

  03fb:38 0089          pushi 89 // $89 hide
  03fe:76               push0 
  03ff:72 036a          lofsa $076c // wilbMouth
  0402:4a 04             send 4 

  0404:38 00c8          pushi c8 // $c8 setLoop
  0407:78               push1 
  0408:39 07            pushi 7 // $7 cel
  040a:39 7e            pushi 7e // $7e setCycle
  040c:78               push1 
  040d:51 17            class Walk 
  040f:36                push 
  0410:38 00dc          pushi dc // $dc setStep
  0413:7a               push2 
  0414:39 05            pushi 5 // $5 view
  0416:39 05            pushi 5 // $5 view
  0418:38 00d3          pushi d3 // $d3 setMotion
  041b:39 04            pushi 4 // $4 x
  041d:51 1d            class MoveTo 
  041f:36                push 
  0420:39 d8            pushi d8 // $d8 observeBlocks
  0422:39 03            pushi 3 // $3 y
  0424:76               push0 
  0425:72 01f6          lofsa $061e // Clarence
  0428:4a 04             send 4 

  042a:36                push 
  042b:7c            pushSelf 
  042c:72 01ef          lofsa $061e // Clarence
  042f:4a 20             send 20 

  0431:33 10              jmp code_0443 

        code_0433
  0433:3c                 dup 
  0434:35 0b              ldi b 
  0436:1a                 eq? 
  0437:31 0a              bnt code_0443 
  0439:38 00f8          pushi f8 // $f8 newRoom
  043c:78               push1 
  043d:89 0c              lsg gPrevRoomNum 
  043f:81 02              lag gCurRoom 
  0441:4a 06             send 6 


        code_0443
  0443:3a                toss 

        code_0444
  0444:48                 ret 
    )

)

// 0580
(instance cycleMouth 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_0445
  0445:39 3c            pushi 3c // $3c doit
  0447:76               push0 
  0448:57 05 04         super Script 4 

  044b:83 02              lal local2 
  044d:31 08              bnt code_0457 
  044f:35 00              ldi 0 
  0451:a3 02              sal local2 
  0453:35 01              ldi 1 
  0455:65 10             aTop cycles 

        code_0457
  0457:48                 ret 
    )

    (method (changeState) // method_0458
  0458:87 01              lap param1 
  045a:65 0a             aTop state 
  045c:36                push 
  045d:3c                 dup 
  045e:35 00              ldi 0 
  0460:1a                 eq? 
  0461:31 18              bnt code_047b 
  0463:39 07            pushi 7 // $7 cel
  0465:78               push1 
  0466:76               push0 
  0467:39 7e            pushi 7e // $7e setCycle
  0469:78               push1 
  046a:51 16            class Fwd 
  046c:36                push 
  046d:38 00ca          pushi ca // $ca show
  0470:76               push0 
  0471:63 08             pToa client 
  0473:4a 10             send 10 

  0475:83 01              lal local1 
  0477:65 10             aTop cycles 
  0479:33 18              jmp code_0493 

        code_047b
  047b:3c                 dup 
  047c:35 01              ldi 1 
  047e:1a                 eq? 
  047f:31 12              bnt code_0493 
  0481:39 7a            pushi 7a // $7a setScript
  0483:78               push1 
  0484:76               push0 
  0485:38 0089          pushi 89 // $89 hide
  0488:76               push0 
  0489:63 08             pToa client 
  048b:4a 0a             send a 

  048d:39 2d            pushi 2d // $2d client
  048f:78               push1 
  0490:76               push0 
  0491:54 06             self 6 


        code_0493
  0493:3a                toss 
  0494:48                 ret 
  0495:00                bnot 
    )

)

// 05b4
(instance Wilbur of Act
    (properties
        y $6a
        x $df
        z $0
        heading $0
        yStep $2
        view $1af
        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
    )
)

// 0618
(instance Clarence of Act
    (properties
        y $73
        x $66
        z $0
        heading $0
        yStep $2
        view $199
        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
    )
)

// 067c
(instance clarMouth of Prop
    (properties
        y $5e
        x $72
        z $0
        heading $0
        yStep $2
        view $199
        loop $2
        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
    )
)

// 06ca
(instance clarEye of Prop
    (properties
        y $48
        x $77
        z $0
        heading $0
        yStep $2
        view $199
        loop $8
        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
    )
)

// 0718
(instance wilbEye of Prop
    (properties
        y $4a
        x $dd
        z $0
        heading $0
        yStep $2
        view $1af
        loop $4
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0766
(instance wilbMouth of Prop
    (properties
        y $5e
        x $dc
        z $0
        heading $0
        yStep $2
        view $1af
        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
    )
)

// 07b4
(instance Smoke of Prop
    (properties
        y $52
        x $74
        z $0
        heading $0
        yStep $2
        view $199
        loop $4
        cel $0
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0802
(instance Hand of Act
    (properties
        y $be
        x $8c
        z $0
        heading $0
        yStep $2
        view $199
        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
    )
)

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



(procedure proc_000c
  000c:3e 01f4           link 1f4 // (var $1f4)
  000f:78               push1 
  0010:59 01            &rest 1 
  0012:5b 04 00           lea 4 0 
  0015:36                push 
  0016:43 4d 02         callk GetFarText 2 

  0019:78               push1 
  001a:5b 04 00           lea 4 0 
  001d:36                push 
  001e:43 4a 02         callk StrLen 2 

  0021:36                push 
  0022:35 03              ldi 3 
  0024:08                 div 
  0025:36                push 
  0026:35 01              ldi 1 
  0028:02                 add 
  0029:a3 01              sal local1 
  002b:48                 ret 
)

(procedure proc_002c
  002c:76               push0 
  002d:59 01            &rest 1 
  002f:41 da 00          call proc_000c 0 

  0032:8b 01              lsl local1 
  0034:8b 01              lsl local1 
  0036:35 04              ldi 4 
  0038:08                 div 
  0039:02                 add 
  003a:a3 01              sal local1 
  003c:39 7a            pushi 7a // $7a setScript
  003e:78               push1 
  003f:74 0544          lofss $0586 // cycleMouth
  0042:72 0727          lofsa $076c // wilbMouth
  0045:4a 06             send 6 

  0047:39 0b            pushi b // $b nsBottom
  0049:59 01            &rest 1 
  004b:39 43            pushi 43 // $43 at
  004d:38 008c          pushi 8c // $8c track
  0050:39 73            pushi 73 // $73 seconds
  0052:39 21            pushi 21 // $21 font
  0054:39 04            pushi 4 // $4 x
  0056:39 46            pushi 46 // $46 width
  0058:38 008c          pushi 8c // $8c track
  005b:39 1e            pushi 1e // $1e mode
  005d:78               push1 
  005e:39 53            pushi 53 // $53 draw
  0060:39 58            pushi 58 // $58 dispose
  0062:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  0068:48                 ret 
)

(procedure proc_0069
  0069:76               push0 
  006a:59 01            &rest 1 
  006c:41 9d 00          call proc_000c 0 

  006f:8b 01              lsl local1 
  0071:8b 01              lsl local1 
  0073:35 04              ldi 4 
  0075:08                 div 
  0076:02                 add 
  0077:a3 01              sal local1 
  0079:39 7a            pushi 7a // $7a setScript
  007b:78               push1 
  007c:74 0507          lofss $0586 // cycleMouth
  007f:72 0600          lofsa $0682 // clarMouth
  0082:4a 06             send 6 

  0084:39 0b            pushi b // $b nsBottom
  0086:59 01            &rest 1 
  0088:39 43            pushi 43 // $43 at
  008a:39 0a            pushi a // $a nsLeft
  008c:39 73            pushi 73 // $73 seconds
  008e:39 21            pushi 21 // $21 font
  0090:39 04            pushi 4 // $4 x
  0092:39 46            pushi 46 // $46 width
  0094:38 008c          pushi 8c // $8c track
  0097:39 1e            pushi 1e // $1e mode
  0099:78               push1 
  009a:39 53            pushi 53 // $53 draw
  009c:39 58            pushi 58 // $58 dispose
  009e:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  00a4:48                 ret 
)

