(script 783)

(string
    string_0a88 "Door"
    string_0a8d "EEye"
    string_0a92 "Eye"
    string_0a96 "Jeeves"
    string_0a9d "LEye"
    string_0aa2 "Laura"
    string_0aa8 "Lillian"
    string_0ab0 "Mouth"
    string_0ab6 "Thunder"
    string_0abe "eyeball"
    string_0ac6 "frontDoor"
    string_0ad0 "knocker"
    string_0ad8 "light1"
    string_0adf "mouthCyc"
    string_0ae8 "openning"
    string_0af1 ""
)

(said
)

(local
    local0 = $0000
    local1 = $0000
    local2 = $0000
    local3 = $0000
    local4 = $0000
    local5 = $0000
    local6 = $0000
)

// 0670
(instance Laura 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
    )
)

// 06be
(instance public frontDoor of Rm
    (properties
        script $0
        number $0
        timer $0
        keep $0
        initialized $0
        picture $50
        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_006b
  006b:39 57            pushi 57 // $57 init
  006d:76               push0 
  006e:57 37 04         super Rm 4 

  0071:39 61            pushi 61 // $61 add
  0073:78               push1 
  0074:74 072d          lofss $07a4 // knocker
  0077:39 62            pushi 62 // $62 eachElementDo
  0079:78               push1 
  007a:39 57            pushi 57 // $57 init
  007c:39 3c            pushi 3c // $3c doit
  007e:76               push0 
  007f:81 0a              lag gAddToPics 
  0081:4a 10             send 10 

  0083:39 04            pushi 4 // $4 x
  0085:38 0084          pushi 84 // $84 stop
  0088:39 06            pushi 6 // $6 loop
  008a:39 10            pushi 10 // $10 lsRight
  008c:39 79            pushi 79 // $79 cue
  008e:45 15 08         callb procedure_0015 8 // LoadMany 

  0091:7a               push2 
  0092:38 0087          pushi 87 // $87 clean
  0095:39 29            pushi 29 // $29 edit
  0097:43 00 04         callk Load 4 

  009a:39 42            pushi 42 // $42 setPri
  009c:78               push1 
  009d:39 0e            pushi e // $e lsLeft
  009f:39 57            pushi 57 // $57 init
  00a1:76               push0 
  00a2:38 00c6          pushi c6 // $c6 stopUpd
  00a5:76               push0 
  00a6:72 095d          lofsa $0a06 // Door
  00a9:4a 0e             send e 

  00ab:38 00c8          pushi c8 // $c8 setLoop
  00ae:78               push1 
  00af:76               push0 
  00b0:39 57            pushi 57 // $57 init
  00b2:76               push0 
  00b3:38 00c6          pushi c6 // $c6 stopUpd
  00b6:76               push0 
  00b7:72 0714          lofsa $07ce // Jeeves
  00ba:4a 0e             send e 

  00bc:38 00c8          pushi c8 // $c8 setLoop
  00bf:78               push1 
  00c0:39 03            pushi 3 // $3 y
  00c2:39 42            pushi 42 // $42 setPri
  00c4:78               push1 
  00c5:39 0e            pushi e // $e lsLeft
  00c7:72 0768          lofsa $0832 // Eye
  00ca:4a 0c             send c 

  00cc:39 42            pushi 42 // $42 setPri
  00ce:78               push1 
  00cf:39 0e            pushi e // $e lsLeft
  00d1:39 57            pushi 57 // $57 init
  00d3:76               push0 
  00d4:38 00c6          pushi c6 // $c6 stopUpd
  00d7:76               push0 
  00d8:38 0089          pushi 89 // $89 hide
  00db:76               push0 
  00dc:72 07a1          lofsa $0880 // Mouth
  00df:4a 12             send 12 

  00e1:39 42            pushi 42 // $42 setPri
  00e3:78               push1 
  00e4:39 0f            pushi f // $f lsBottom
  00e6:39 57            pushi 57 // $57 init
  00e8:76               push0 
  00e9:38 00c6          pushi c6 // $c6 stopUpd
  00ec:76               push0 
  00ed:72 08c8          lofsa $09b8 // light1
  00f0:4a 0e             send e 

  00f2:39 05            pushi 5 // $5 view
  00f4:78               push1 
  00f5:38 0118          pushi 118 // $118 stopExtra
  00f8:39 06            pushi 6 // $6 loop
  00fa:78               push1 
  00fb:76               push0 
  00fc:39 07            pushi 7 // $7 cel
  00fe:78               push1 
  00ff:76               push0 
  0100:39 42            pushi 42 // $42 setPri
  0102:78               push1 
  0103:39 0e            pushi e // $e lsLeft
  0105:38 00c9          pushi c9 // $c9 ignoreActors
  0108:78               push1 
  0109:78               push1 
  010a:38 00c5          pushi c5 // $c5 posn
  010d:7a               push2 
  010e:39 46            pushi 46 // $46 width
  0110:38 00a3          pushi a3 // $a3 startUpd
  0113:39 57            pushi 57 // $57 init
  0115:76               push0 
  0116:38 00c6          pushi c6 // $c6 stopUpd
  0119:76               push0 
  011a:72 0559          lofsa $0676 // Laura
  011d:4a 2e             send 2e 

  011f:39 42            pushi 42 // $42 setPri
  0121:78               push1 
  0122:39 0e            pushi e // $e lsLeft
  0124:39 57            pushi 57 // $57 init
  0126:76               push0 
  0127:38 00c6          pushi c6 // $c6 stopUpd
  012a:76               push0 
  012b:72 07a0          lofsa $08ce // Lillian
  012e:4a 0e             send e 

  0130:39 7a            pushi 7a // $7a setScript
  0132:78               push1 
  0133:74 05da          lofss $0710 // openning
  0136:54 06             self 6 

  0138:48                 ret 
    )

    (method (doit) // method_0139
  0139:39 3c            pushi 3c // $3c doit
  013b:76               push0 
  013c:57 37 04         super Rm 4 

  013f:48                 ret 
    )

    (method (dispose) // method_0140
  0140:39 58            pushi 58 // $58 dispose
  0142:76               push0 
  0143:57 37 04         super Rm 4 

  0146:48                 ret 
    )

    (method (handleEvent) // method_0147
  0147:39 4c            pushi 4c // $4c claimed
  0149:76               push0 
  014a:87 01              lap param1 
  014c:4a 04             send 4 

  014e:31 01              bnt code_0151 
  0150:48                 ret 

        code_0151
  0151:39 22            pushi 22 // $22 type
  0153:76               push0 
  0154:87 01              lap param1 
  0156:4a 04             send 4 

  0158:36                push 
  0159:3c                 dup 
  015a:35 04              ldi 4 
  015c:1a                 eq? 
  015d:31 51              bnt code_01b0 
  015f:39 28            pushi 28 // $28 message
  0161:76               push0 
  0162:87 01              lap param1 
  0164:4a 04             send 4 

  0166:36                push 
  0167:35 53              ldi 53 
  0169:1a                 eq? 
  016a:2f 0d               bt code_0179 
  016c:39 28            pushi 28 // $28 message
  016e:76               push0 
  016f:87 01              lap param1 
  0171:4a 04             send 4 

  0173:36                push 
  0174:35 73              ldi 73 
  0176:1a                 eq? 
  0177:31 15              bnt code_018e 

        code_0179
  0179:39 4c            pushi 4c // $4c claimed
  017b:78               push1 
  017c:78               push1 
  017d:87 01              lap param1 
  017f:4a 06             send 6 

  0181:38 00f8          pushi f8 // $f8 newRoom
  0184:78               push1 
  0185:38 00d1          pushi d1 // $d1 viewer
  0188:81 02              lag gCurRoom 
  018a:4a 06             send 6 

  018c:33 20              jmp code_01ae 

        code_018e
  018e:39 28            pushi 28 // $28 message
  0190:76               push0 
  0191:87 01              lap param1 
  0193:4a 04             send 4 

  0195:36                push 
  0196:35 0d              ldi d 
  0198:1a                 eq? 
  0199:2f 0d               bt code_01a8 
  019b:39 28            pushi 28 // $28 message
  019d:76               push0 
  019e:87 01              lap param1 
  01a0:4a 04             send 4 

  01a2:36                push 
  01a3:35 20              ldi 20 
  01a5:1a                 eq? 
  01a6:31 06              bnt code_01ae 

        code_01a8
  01a8:78               push1 
  01a9:39 32            pushi 32 // $32 b-i2
  01ab:45 05 02         callb procedure_0005 2 // SetFlag 


        code_01ae
  01ae:33 0c              jmp code_01bc 

        code_01b0
  01b0:3c                 dup 
  01b1:35 01              ldi 1 
  01b3:1a                 eq? 
  01b4:31 06              bnt code_01bc 
  01b6:78               push1 
  01b7:39 32            pushi 32 // $32 b-i2
  01b9:45 05 02         callb procedure_0005 2 // SetFlag 


        code_01bc
  01bc:3a                toss 
  01bd:78               push1 
  01be:39 32            pushi 32 // $32 b-i2
  01c0:45 07 02         callb procedure_0007 2 // IsFlag 

  01c3:31 12              bnt code_01d7 
  01c5:39 4c            pushi 4c // $4c claimed
  01c7:78               push1 
  01c8:78               push1 
  01c9:87 01              lap param1 
  01cb:4a 06             send 6 

  01cd:38 00f8          pushi f8 // $f8 newRoom
  01d0:78               push1 
  01d1:39 2c            pushi 2c // $2c handle
  01d3:81 02              lag gCurRoom 
  01d5:4a 06             send 6 


        code_01d7
  01d7:48                 ret 
    )

)

// 070a
(instance openning 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_01d8
  01d8:39 04            pushi 4 // $4 x
  01da:76               push0 
  01db:72 05f0          lofsa $07ce // Jeeves
  01de:4a 04             send 4 

  01e0:36                push 
  01e1:34 00a7            ldi a7 
  01e4:1a                 eq? 
  01e5:31 0b              bnt code_01f2 
  01e7:39 7e            pushi 7e // $7e setCycle
  01e9:78               push1 
  01ea:51 1a            class End 
  01ec:36                push 
  01ed:72 05de          lofsa $07ce // Jeeves
  01f0:4a 06             send 6 


        code_01f2
  01f2:67 0a             pTos state 
  01f4:35 04              ldi 4 
  01f6:1a                 eq? 
  01f7:30 009a            bnt code_0294 
  01fa:8b 06              lsl local6 
  01fc:35 ff              ldi ff 
  01fe:1e                 gt? 
  01ff:30 0083            bnt code_0285 
  0202:8b 06              lsl local6 
  0204:35 02              ldi 2 
  0206:0a                 mod 
  0207:36                push 
  0208:35 01              ldi 1 
  020a:1a                 eq? 
  020b:31 2f              bnt code_023c 
  020d:39 07            pushi 7 // $7 cel
  020f:78               push1 
  0210:76               push0 
  0211:72 07f2          lofsa $0a06 // Door
  0214:4a 06             send 6 

  0216:39 07            pushi 7 // $7 cel
  0218:78               push1 
  0219:76               push0 
  021a:72 05b1          lofsa $07ce // Jeeves
  021d:4a 06             send 6 

  021f:39 07            pushi 7 // $7 cel
  0221:78               push1 
  0222:76               push0 
  0223:72 0792          lofsa $09b8 // light1
  0226:4a 06             send 6 

  0228:39 07            pushi 7 // $7 cel
  022a:78               push1 
  022b:78               push1 
  022c:72 0447          lofsa $0676 // Laura
  022f:4a 06             send 6 

  0231:39 07            pushi 7 // $7 cel
  0233:78               push1 
  0234:78               push1 
  0235:72 0696          lofsa $08ce // Lillian
  0238:4a 06             send 6 

  023a:33 45              jmp code_0281 

        code_023c
  023c:8b 06              lsl local6 
  023e:35 04              ldi 4 
  0240:1a                 eq? 
  0241:31 11              bnt code_0254 
  0243:39 2b            pushi 2b // $2b number
  0245:78               push1 
  0246:39 79            pushi 79 // $79 cue
  0248:39 06            pushi 6 // $6 loop
  024a:78               push1 
  024b:78               push1 
  024c:39 2a            pushi 2a // $2a play
  024e:76               push0 
  024f:72 0802          lofsa $0a54 // Thunder
  0252:4a 10             send 10 


        code_0254
  0254:39 07            pushi 7 // $7 cel
  0256:78               push1 
  0257:78               push1 
  0258:72 07ab          lofsa $0a06 // Door
  025b:4a 06             send 6 

  025d:39 07            pushi 7 // $7 cel
  025f:78               push1 
  0260:78               push1 
  0261:72 056a          lofsa $07ce // Jeeves
  0264:4a 06             send 6 

  0266:39 07            pushi 7 // $7 cel
  0268:78               push1 
  0269:78               push1 
  026a:72 074b          lofsa $09b8 // light1
  026d:4a 06             send 6 

  026f:39 07            pushi 7 // $7 cel
  0271:78               push1 
  0272:76               push0 
  0273:72 0400          lofsa $0676 // Laura
  0276:4a 06             send 6 

  0278:39 07            pushi 7 // $7 cel
  027a:78               push1 
  027b:76               push0 
  027c:72 064f          lofsa $08ce // Lillian
  027f:4a 06             send 6 


        code_0281
  0281:e3 06              -al local6 
  0283:33 0f              jmp code_0294 

        code_0285
  0285:8b 06              lsl local6 
  0287:35 ff              ldi ff 
  0289:1a                 eq? 
  028a:31 08              bnt code_0294 
  028c:35 fe              ldi fe 
  028e:a3 06              sal local6 
  0290:35 01              ldi 1 
  0292:65 10             aTop cycles 

        code_0294
  0294:39 2b            pushi 2b // $2b number
  0296:76               push0 
  0297:72 07ba          lofsa $0a54 // Thunder
  029a:4a 04             send 4 

  029c:36                push 
  029d:35 10              ldi 10 
  029f:1a                 eq? 
  02a0:31 29              bnt code_02cb 
  02a2:38 0081          pushi 81 // $81 prevSignal
  02a5:76               push0 
  02a6:72 07ab          lofsa $0a54 // Thunder
  02a9:4a 04             send 4 

  02ab:36                push 
  02ac:35 ff              ldi ff 
  02ae:1a                 eq? 
  02af:31 1a              bnt code_02cb 
  02b1:67 0a             pTos state 
  02b3:35 0c              ldi c 
  02b5:1a                 eq? 
  02b6:31 13              bnt code_02cb 
  02b8:39 7a            pushi 7a // $7a setScript
  02ba:78               push1 
  02bb:76               push0 
  02bc:63 08             pToa client 
  02be:4a 06             send 6 

  02c0:38 00f8          pushi f8 // $f8 newRoom
  02c3:78               push1 
  02c4:38 00d1          pushi d1 // $d1 viewer
  02c7:81 02              lag gCurRoom 
  02c9:4a 06             send 6 


        code_02cb
  02cb:39 3c            pushi 3c // $3c doit
  02cd:76               push0 
  02ce:57 05 04         super Script 4 

  02d1:48                 ret 
    )

    (method (changeState) // method_02d2
  02d2:87 01              lap param1 
  02d4:65 0a             aTop state 
  02d6:36                push 
  02d7:3c                 dup 
  02d8:35 00              ldi 0 
  02da:1a                 eq? 
  02db:31 0b              bnt code_02e8 
  02dd:76               push0 
  02de:45 03 00         callb procedure_0003 0 // HandsOff 

  02e1:35 07              ldi 7 
  02e3:65 10             aTop cycles 
  02e5:32 0308            jmp code_05f0 

        code_02e8
  02e8:3c                 dup 
  02e9:35 01              ldi 1 
  02eb:1a                 eq? 
  02ec:31 3a              bnt code_0328 
  02ee:35 0b              ldi b 
  02f0:a3 02              sal local2 
  02f2:39 2b            pushi 2b // $2b number
  02f4:78               push1 
  02f5:39 06            pushi 6 // $6 loop
  02f7:39 06            pushi 6 // $6 loop
  02f9:78               push1 
  02fa:78               push1 
  02fb:39 2a            pushi 2a // $2a play
  02fd:76               push0 
  02fe:72 0753          lofsa $0a54 // Thunder
  0301:4a 10             send 10 

  0303:35 34              ldi 34 
  0305:a3 03              sal local3 
  0307:7a               push2 
  0308:38 030f          pushi 30f // $30f sel_783
  030b:78               push1 
  030c:40 fd2c 04        call proc_003c 4 

  0310:35 0a              ldi a 
  0312:a3 02              sal local2 
  0314:35 32              ldi 32 
  0316:a3 03              sal local3 
  0318:7a               push2 
  0319:38 030f          pushi 30f // $30f sel_783
  031c:78               push1 
  031d:40 fceb 04        call proc_000c 4 

  0321:35 05              ldi 5 
  0323:65 12             aTop seconds 
  0325:32 02c8            jmp code_05f0 

        code_0328
  0328:3c                 dup 
  0329:35 02              ldi 2 
  032b:1a                 eq? 
  032c:31 1e              bnt code_034c 
  032e:76               push0 
  032f:40 fcfb 00        call proc_002e 0 

  0333:76               push0 
  0334:40 fd25 00        call proc_005d 0 

  0338:38 00a4          pushi a4 // $a4 cycleSpeed
  033b:78               push1 
  033c:7a               push2 
  033d:39 7e            pushi 7e // $7e setCycle
  033f:7a               push2 
  0340:51 1a            class End 
  0342:36                push 
  0343:7c            pushSelf 
  0344:72 06bf          lofsa $0a06 // Door
  0347:4a 0e             send e 

  0349:32 02a4            jmp code_05f0 

        code_034c
  034c:3c                 dup 
  034d:35 03              ldi 3 
  034f:1a                 eq? 
  0350:31 3c              bnt code_038e 
  0352:39 06            pushi 6 // $6 loop
  0354:78               push1 
  0355:39 03            pushi 3 // $3 y
  0357:38 00a4          pushi a4 // $a4 cycleSpeed
  035a:78               push1 
  035b:76               push0 
  035c:38 00c5          pushi c5 // $c5 posn
  035f:7a               push2 
  0360:39 59            pushi 59 // $59 showStr
  0362:38 00a5          pushi a5 // $a5 cycler
  0365:39 42            pushi 42 // $42 setPri
  0367:78               push1 
  0368:39 0f            pushi f // $f lsBottom
  036a:38 0089          pushi 89 // $89 hide
  036d:76               push0 
  036e:38 00c6          pushi c6 // $c6 stopUpd
  0371:76               push0 
  0372:72 0691          lofsa $0a06 // Door
  0375:4a 22             send 22 

  0377:38 00d3          pushi d3 // $d3 setMotion
  037a:39 04            pushi 4 // $4 x
  037c:51 1d            class MoveTo 
  037e:36                push 
  037f:38 0083          pushi 83 // $83 playMaybe
  0382:38 00a4          pushi a4 // $a4 cycleSpeed
  0385:7c            pushSelf 
  0386:72 0445          lofsa $07ce // Jeeves
  0389:4a 0c             send c 

  038b:32 0262            jmp code_05f0 

        code_038e
  038e:3c                 dup 
  038f:35 04              ldi 4 
  0391:1a                 eq? 
  0392:31 45              bnt code_03d9 
  0394:38 0084          pushi 84 // $84 stop
  0397:76               push0 
  0398:72 06b9          lofsa $0a54 // Thunder
  039b:4a 04             send 4 

  039d:38 00a3          pushi a3 // $a3 startUpd
  03a0:76               push0 
  03a1:72 052a          lofsa $08ce // Lillian
  03a4:4a 04             send 4 

  03a6:38 00a3          pushi a3 // $a3 startUpd
  03a9:76               push0 
  03aa:72 02c9          lofsa $0676 // Laura
  03ad:4a 04             send 4 

  03af:39 06            pushi 6 // $6 loop
  03b1:78               push1 
  03b2:78               push1 
  03b3:72 0418          lofsa $07ce // Jeeves
  03b6:4a 06             send 6 

  03b8:38 00ca          pushi ca // $ca show
  03bb:76               push0 
  03bc:38 00a3          pushi a3 // $a3 startUpd
  03bf:76               push0 
  03c0:72 0643          lofsa $0a06 // Door
  03c3:4a 08             send 8 

  03c5:38 00ca          pushi ca // $ca show
  03c8:76               push0 
  03c9:38 00a3          pushi a3 // $a3 startUpd
  03cc:76               push0 
  03cd:72 05e8          lofsa $09b8 // light1
  03d0:4a 08             send 8 

  03d2:35 06              ldi 6 
  03d4:a3 06              sal local6 
  03d6:32 0217            jmp code_05f0 

        code_03d9
  03d9:3c                 dup 
  03da:35 05              ldi 5 
  03dc:1a                 eq? 
  03dd:31 41              bnt code_0420 
  03df:38 0084          pushi 84 // $84 stop
  03e2:76               push0 
  03e3:72 066e          lofsa $0a54 // Thunder
  03e6:4a 04             send 4 

  03e8:39 2b            pushi 2b // $2b number
  03ea:78               push1 
  03eb:39 10            pushi 10 // $10 lsRight
  03ed:39 06            pushi 6 // $6 loop
  03ef:78               push1 
  03f0:39 ff            pushi ff // $ff checkAni
  03f2:39 2a            pushi 2a // $2a play
  03f4:76               push0 
  03f5:72 065c          lofsa $0a54 // Thunder
  03f8:4a 10             send 10 

  03fa:39 07            pushi 7 // $7 cel
  03fc:78               push1 
  03fd:76               push0 
  03fe:38 00c6          pushi c6 // $c6 stopUpd
  0401:76               push0 
  0402:72 04c9          lofsa $08ce // Lillian
  0405:4a 0a             send a 

  0407:38 0089          pushi 89 // $89 hide
  040a:76               push0 
  040b:72 05f8          lofsa $0a06 // Door
  040e:4a 04             send 4 

  0410:38 0089          pushi 89 // $89 hide
  0413:76               push0 
  0414:72 05a1          lofsa $09b8 // light1
  0417:4a 04             send 4 

  0419:35 05              ldi 5 
  041b:65 10             aTop cycles 
  041d:32 01d0            jmp code_05f0 

        code_0420
  0420:3c                 dup 
  0421:35 06              ldi 6 
  0423:1a                 eq? 
  0424:31 72              bnt code_0498 
  0426:39 57            pushi 57 // $57 init
  0428:76               push0 
  0429:39 7a            pushi 7a // $7a setScript
  042b:78               push1 
  042c:78               push1 
  042d:74 0314          lofss $0744 // eyeball
  0430:43 04 02         callk Clone 2 

  0433:36                push 
  0434:72 03fb          lofsa $0832 // Eye
  0437:4a 0a             send a 

  0439:39 42            pushi 42 // $42 setPri
  043b:78               push1 
  043c:39 0f            pushi f // $f lsBottom
  043e:39 57            pushi 57 // $57 init
  0440:76               push0 
  0441:39 7a            pushi 7a // $7a setScript
  0443:78               push1 
  0444:78               push1 
  0445:74 02fc          lofss $0744 // eyeball
  0448:43 04 02         callk Clone 2 

  044b:36                push 
  044c:72 04cd          lofsa $091c // LEye
  044f:4a 10             send 10 

  0451:39 42            pushi 42 // $42 setPri
  0453:78               push1 
  0454:39 0f            pushi f // $f lsBottom
  0456:39 57            pushi 57 // $57 init
  0458:76               push0 
  0459:39 7a            pushi 7a // $7a setScript
  045b:78               push1 
  045c:78               push1 
  045d:74 02e4          lofss $0744 // eyeball
  0460:43 04 02         callk Clone 2 

  0463:36                push 
  0464:72 0503          lofsa $096a // EEye
  0467:4a 10             send 10 

  0469:38 00ca          pushi ca // $ca show
  046c:76               push0 
  046d:39 7e            pushi 7e // $7e setCycle
  046f:78               push1 
  0470:51 1a            class End 
  0472:36                push 
  0473:72 040a          lofsa $0880 // Mouth
  0476:4a 0a             send a 

  0478:39 09            pushi 9 // $9 nsTop
  047a:38 030f          pushi 30f // $30f sel_783
  047d:7a               push2 
  047e:39 43            pushi 43 // $43 at
  0480:39 69            pushi 69 // $69 last
  0482:39 1e            pushi 1e // $1e mode
  0484:39 1e            pushi 1e // $1e mode
  0486:78               push1 
  0487:39 53            pushi 53 // $53 draw
  0489:39 58            pushi 58 // $58 dispose
  048b:46 00ff 0000 12  calle ff procedure_0000 12 // Print 

  0491:35 04              ldi 4 
  0493:65 12             aTop seconds 
  0495:32 0158            jmp code_05f0 

        code_0498
  0498:3c                 dup 
  0499:35 07              ldi 7 
  049b:1a                 eq? 
  049c:31 30              bnt code_04ce 
  049e:39 7e            pushi 7e // $7e setCycle
  04a0:78               push1 
  04a1:76               push0 
  04a2:39 07            pushi 7 // $7 cel
  04a4:78               push1 
  04a5:76               push0 
  04a6:72 03d7          lofsa $0880 // Mouth
  04a9:4a 0c             send c 

  04ab:76               push0 
  04ac:45 0f 00         callb procedure_000f 0 // cls 

  04af:39 07            pushi 7 // $7 cel
  04b1:38 030f          pushi 30f // $30f sel_783
  04b4:39 03            pushi 3 // $3 y
  04b6:39 43            pushi 43 // $43 at
  04b8:39 69            pushi 69 // $69 last
  04ba:38 008c          pushi 8c // $8c track
  04bd:39 53            pushi 53 // $53 draw
  04bf:39 58            pushi 58 // $58 dispose
  04c1:46 00ff 0000 0e  calle ff procedure_0000 e // Print 

  04c7:35 05              ldi 5 
  04c9:65 12             aTop seconds 
  04cb:32 0122            jmp code_05f0 

        code_04ce
  04ce:3c                 dup 
  04cf:35 08              ldi 8 
  04d1:1a                 eq? 
  04d2:31 34              bnt code_0508 
  04d4:76               push0 
  04d5:45 0f 00         callb procedure_000f 0 // cls 

  04d8:39 09            pushi 9 // $9 nsTop
  04da:38 030f          pushi 30f // $30f sel_783
  04dd:39 04            pushi 4 // $4 x
  04df:39 43            pushi 43 // $43 at
  04e1:39 69            pushi 69 // $69 last
  04e3:39 1e            pushi 1e // $1e mode
  04e5:39 1e            pushi 1e // $1e mode
  04e7:78               push1 
  04e8:39 53            pushi 53 // $53 draw
  04ea:39 58            pushi 58 // $58 dispose
  04ec:46 00ff 0000 12  calle ff procedure_0000 12 // Print 

  04f2:35 02              ldi 2 
  04f4:a3 04              sal local4 
  04f6:39 7a            pushi 7a // $7a setScript
  04f8:78               push1 
  04f9:74 0278          lofss $0774 // mouthCyc
  04fc:72 0381          lofsa $0880 // Mouth
  04ff:4a 06             send 6 

  0501:35 03              ldi 3 
  0503:65 12             aTop seconds 
  0505:32 00e8            jmp code_05f0 

        code_0508
  0508:3c                 dup 
  0509:35 09              ldi 9 
  050b:1a                 eq? 
  050c:31 34              bnt code_0542 
  050e:76               push0 
  050f:45 0f 00         callb procedure_000f 0 // cls 

  0512:39 09            pushi 9 // $9 nsTop
  0514:38 030f          pushi 30f // $30f sel_783
  0517:39 05            pushi 5 // $5 view
  0519:39 43            pushi 43 // $43 at
  051b:39 3f            pushi 3f // $3f priority
  051d:39 1e            pushi 1e // $1e mode
  051f:39 1e            pushi 1e // $1e mode
  0521:78               push1 
  0522:39 53            pushi 53 // $53 draw
  0524:39 58            pushi 58 // $58 dispose
  0526:46 00ff 0000 12  calle ff procedure_0000 12 // Print 

  052c:35 05              ldi 5 
  052e:a3 04              sal local4 
  0530:39 7a            pushi 7a // $7a setScript
  0532:78               push1 
  0533:74 023e          lofss $0774 // mouthCyc
  0536:72 0347          lofsa $0880 // Mouth
  0539:4a 06             send 6 

  053b:35 05              ldi 5 
  053d:65 12             aTop seconds 
  053f:32 00ae            jmp code_05f0 

        code_0542
  0542:3c                 dup 
  0543:35 0a              ldi a 
  0545:1a                 eq? 
  0546:31 33              bnt code_057b 
  0548:76               push0 
  0549:45 0f 00         callb procedure_000f 0 // cls 

  054c:39 09            pushi 9 // $9 nsTop
  054e:38 030f          pushi 30f // $30f sel_783
  0551:39 06            pushi 6 // $6 loop
  0553:39 43            pushi 43 // $43 at
  0555:39 4e            pushi 4e // $4e save
  0557:39 1e            pushi 1e // $1e mode
  0559:39 1e            pushi 1e // $1e mode
  055b:78               push1 
  055c:39 53            pushi 53 // $53 draw
  055e:39 58            pushi 58 // $58 dispose
  0560:46 00ff 0000 12  calle ff procedure_0000 12 // Print 

  0566:35 06              ldi 6 
  0568:a3 04              sal local4 
  056a:39 7a            pushi 7a // $7a setScript
  056c:78               push1 
  056d:74 0204          lofss $0774 // mouthCyc
  0570:72 030d          lofsa $0880 // Mouth
  0573:4a 06             send 6 

  0575:35 05              ldi 5 
  0577:65 12             aTop seconds 
  0579:33 75              jmp code_05f0 

        code_057b
  057b:3c                 dup 
  057c:35 0b              ldi b 
  057e:1a                 eq? 
  057f:31 33              bnt code_05b4 
  0581:76               push0 
  0582:45 0f 00         callb procedure_000f 0 // cls 

  0585:39 09            pushi 9 // $9 nsTop
  0587:38 030f          pushi 30f // $30f sel_783
  058a:39 07            pushi 7 // $7 cel
  058c:39 43            pushi 43 // $43 at
  058e:39 4b            pushi 4b // $4b said
  0590:39 1e            pushi 1e // $1e mode
  0592:39 1e            pushi 1e // $1e mode
  0594:78               push1 
  0595:39 53            pushi 53 // $53 draw
  0597:39 58            pushi 58 // $58 dispose
  0599:46 00ff 0000 12  calle ff procedure_0000 12 // Print 

  059f:35 06              ldi 6 
  05a1:a3 04              sal local4 
  05a3:39 7a            pushi 7a // $7a setScript
  05a5:78               push1 
  05a6:74 01cb          lofss $0774 // mouthCyc
  05a9:72 02d4          lofsa $0880 // Mouth
  05ac:4a 06             send 6 

  05ae:35 05              ldi 5 
  05b0:65 12             aTop seconds 
  05b2:33 3c              jmp code_05f0 

        code_05b4
  05b4:3c                 dup 
  05b5:35 0c              ldi c 
  05b7:1a                 eq? 
  05b8:31 1d              bnt code_05d7 
  05ba:76               push0 
  05bb:45 0f 00         callb procedure_000f 0 // cls 

  05be:39 7e            pushi 7e // $7e setCycle
  05c0:78               push1 
  05c1:76               push0 
  05c2:39 07            pushi 7 // $7 cel
  05c4:78               push1 
  05c5:76               push0 
  05c6:72 02b7          lofsa $0880 // Mouth
  05c9:4a 0c             send c 

  05cb:38 0088          pushi 88 // $88 fade
  05ce:78               push1 
  05cf:7c            pushSelf 
  05d0:72 0481          lofsa $0a54 // Thunder
  05d3:4a 06             send 6 

  05d5:33 19              jmp code_05f0 

        code_05d7
  05d7:3c                 dup 
  05d8:35 0d              ldi d 
  05da:1a                 eq? 
  05db:31 13              bnt code_05f0 
  05dd:39 7a            pushi 7a // $7a setScript
  05df:78               push1 
  05e0:76               push0 
  05e1:63 08             pToa client 
  05e3:4a 06             send 6 

  05e5:38 00f8          pushi f8 // $f8 newRoom
  05e8:78               push1 
  05e9:38 00d1          pushi d1 // $d1 viewer
  05ec:81 02              lag gCurRoom 
  05ee:4a 06             send 6 


        code_05f0
  05f0:3a                toss 
  05f1:48                 ret 
    )

)

// 073e
(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_05f2
  05f2:87 01              lap param1 
  05f4:65 0a             aTop state 
  05f6:36                push 
  05f7:3c                 dup 
  05f8:35 00              ldi 0 
  05fa:1a                 eq? 
  05fb:31 15              bnt code_0612 
  05fd:39 7e            pushi 7e // $7e setCycle
  05ff:78               push1 
  0600:51 1b            class Beg 
  0602:36                push 
  0603:63 08             pToa client 
  0605:4a 06             send 6 

  0607:7a               push2 
  0608:78               push1 
  0609:39 06            pushi 6 // $6 loop
  060b:43 40 04         callk Random 4 

  060e:65 12             aTop seconds 
  0610:33 13              jmp code_0625 

        code_0612
  0612:3c                 dup 
  0613:35 01              ldi 1 
  0615:1a                 eq? 
  0616:31 0d              bnt code_0625 
  0618:35 ff              ldi ff 
  061a:65 0a             aTop state 
  061c:7a               push2 
  061d:78               push1 
  061e:39 06            pushi 6 // $6 loop
  0620:43 40 04         callk Random 4 

  0623:65 12             aTop seconds 

        code_0625
  0625:3a                toss 
  0626:48                 ret 
    )

)

// 076e
(instance mouthCyc 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_0627
  0627:87 01              lap param1 
  0629:65 0a             aTop state 
  062b:36                push 
  062c:3c                 dup 
  062d:35 00              ldi 0 
  062f:1a                 eq? 
  0630:31 0d              bnt code_063f 
  0632:39 7e            pushi 7e // $7e setCycle
  0634:7a               push2 
  0635:51 1a            class End 
  0637:36                push 
  0638:7c            pushSelf 
  0639:63 08             pToa client 
  063b:4a 08             send 8 

  063d:33 29              jmp code_0668 

        code_063f
  063f:3c                 dup 
  0640:35 01              ldi 1 
  0642:1a                 eq? 
  0643:31 23              bnt code_0668 
  0645:c3 05              +al local5 
  0647:8b 04              lsl local4 
  0649:83 05              lal local5 
  064b:1a                 eq? 
  064c:31 12              bnt code_0660 
  064e:35 00              ldi 0 
  0650:a3 05              sal local5 
  0652:39 07            pushi 7 // $7 cel
  0654:78               push1 
  0655:76               push0 
  0656:39 7a            pushi 7a // $7a setScript
  0658:78               push1 
  0659:76               push0 
  065a:63 08             pToa client 
  065c:4a 0c             send c 

  065e:33 08              jmp code_0668 

        code_0660
  0660:35 ff              ldi ff 
  0662:65 0a             aTop state 
  0664:35 01              ldi 1 
  0666:65 10             aTop cycles 

        code_0668
  0668:3a                toss 
  0669:48                 ret 
    )

)

// 079e
(instance knocker of PV
    (properties
        y $8a
        x $cb
        z $0
        heading $0
        view $b4
        loop $1
        cel $0
        priority $f
        signal $4000
    )
)

// 07c8
(instance Jeeves of Act
    (properties
        y $a4
        x $c8
        z $0
        heading $0
        yStep $2
        view $1c7
        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
    )
)

// 082c
(instance Eye of Prop
    (properties
        y $58
        x $7f
        z $0
        heading $0
        yStep $2
        view $1c7
        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
    )
)

// 087a
(instance Mouth of Prop
    (properties
        y $69
        x $7f
        z $0
        heading $0
        yStep $2
        view $1c7
        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
    )
)

// 08c8
(instance Lillian of Prop
    (properties
        y $a3
        x $fa
        z $0
        heading $0
        yStep $2
        view $118
        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
    )
)

// 0916
(instance LEye of Prop
    (properties
        y $7a
        x $fd
        z $0
        heading $0
        yStep $2
        view $118
        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
    )
)

// 0964
(instance EEye of Prop
    (properties
        y $7e
        x $49
        z $0
        heading $0
        yStep $2
        view $118
        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
    )
)

// 09b2
(instance light1 of Prop
    (properties
        y $a5
        x $ce
        z $0
        heading $0
        yStep $2
        view $b4
        loop $2
        cel $1
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0a00
(instance Door of Prop
    (properties
        y $a4
        x $4b
        z $0
        heading $0
        yStep $2
        view $b4
        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
    )
)

// 0a4e
(instance Thunder 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:39 0c            pushi c // $c nsRight
  000e:59 01            &rest 1 
  0010:39 69            pushi 69 // $69 last
  0012:39 29            pushi 29 // $29 edit
  0014:39 65            pushi 65 // $65 contains
  0016:78               push1 
  0017:39 64            pushi 64 // $64 allTrue
  0019:8b 02              lsl local2 
  001b:8b 03              lsl local3 
  001d:39 6a            pushi 6a // $6a prev
  001f:38 012c          pushi 12c // $12c surrogate
  0022:39 66            pushi 66 // $66 isEmpty
  0024:39 0f            pushi f // $f lsBottom
  0026:39 6b            pushi 6b // $6b addToFront
  0028:43 1b 18         callk Display 18 

  002b:a3 00              sal local0 
  002d:48                 ret 
)

(procedure proc_002e
  002e:39 04            pushi 4 // $4 x
  0030:38 030f          pushi 30f // $30f sel_783
  0033:76               push0 
  0034:39 6c            pushi 6c // $6c addToEnd
  0036:8b 00              lsl local0 
  0038:43 1b 08         callk Display 8 

  003b:48                 ret 
)

(procedure proc_003c
  003c:39 0c            pushi c // $c nsRight
  003e:59 01            &rest 1 
  0040:39 69            pushi 69 // $69 last
  0042:39 29            pushi 29 // $29 edit
  0044:39 65            pushi 65 // $65 contains
  0046:78               push1 
  0047:39 64            pushi 64 // $64 allTrue
  0049:8b 02              lsl local2 
  004b:8b 03              lsl local3 
  004d:39 6a            pushi 6a // $6a prev
  004f:38 012c          pushi 12c // $12c surrogate
  0052:39 66            pushi 66 // $66 isEmpty
  0054:76               push0 
  0055:39 6b            pushi 6b // $6b addToFront
  0057:43 1b 18         callk Display 18 

  005a:a3 01              sal local1 
  005c:48                 ret 
)

(procedure proc_005d
  005d:39 04            pushi 4 // $4 x
  005f:38 030f          pushi 30f // $30f sel_783
  0062:76               push0 
  0063:39 6c            pushi 6c // $6c addToEnd
  0065:8b 01              lsl local1 
  0067:43 1b 08         callk Display 8 

  006a:48                 ret 
)

