(script 301)

(string
    string_0aaa "Clarence"
    string_0ab3 "ClarsEye"
    string_0abc "Gertie"
    string_0ac3 "GertsEye"
    string_0acc "Hand"
    string_0ad1 "Smoke"
    string_0ad7 "clarEye"
    string_0adf "clarMouth"
    string_0ae9 "cycleMouth"
    string_0af4 "gertEye"
    string_0afc "gertGlass"
    string_0b06 "gertMouth"
    string_0b10 "myMusic"
    string_0b18 "scene38a"
    string_0b21 "speech38a"
    string_0b2b "twice"
    string_0b31 ""
)

(said
)

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

// 062c
(instance public scene38a 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_00be
  00be:39 57            pushi 57 // $57 init
  00c0:76               push0 
  00c1:57 37 04         super Rm 4 

  00c4:39 03            pushi 3 // $3 y
  00c6:38 0087          pushi 87 // $87 clean
  00c9:39 04            pushi 4 // $4 x
  00cb:39 29            pushi 29 // $29 edit
  00cd:45 15 06         callb procedure_0015 6 // LoadMany 

  00d0:7a               push2 
  00d1:38 008f          pushi 8f // $8f moveTo
  00d4:38 0196          pushi 196 // $196 sel_406
  00d7:45 15 04         callb procedure_0015 4 // LoadMany 

  00da:7a               push2 
  00db:38 0080          pushi 80 // $80 timeLeft
  00de:38 0282          pushi 282 // $282 sel_642
  00e1:43 00 04         callk Load 4 

  00e4:39 05            pushi 5 // $5 view
  00e6:38 0084          pushi 84 // $84 stop
  00e9:39 1d            pushi 1d // $1d back
  00eb:39 5e            pushi 5e // $5e respondsTo
  00ed:39 5f            pushi 5f // $5f yourself
  00ef:39 60            pushi 60 // $60 size
  00f1:45 15 0a         callb procedure_0015 a // LoadMany 

  00f4:76               push0 
  00f5:45 03 00         callb procedure_0003 0 // HandsOff 

  00f8:39 42            pushi 42 // $42 setPri
  00fa:78               push1 
  00fb:78               push1 
  00fc:39 57            pushi 57 // $57 init
  00fe:76               push0 
  00ff:72 06dc          lofsa $07de // Clarence
  0102:4a 0a             send a 

  0104:39 42            pushi 42 // $42 setPri
  0106:78               push1 
  0107:7a               push2 
  0108:39 57            pushi 57 // $57 init
  010a:76               push0 
  010b:38 0089          pushi 89 // $89 hide
  010e:76               push0 
  010f:72 0768          lofsa $087a // clarMouth
  0112:4a 0e             send e 

  0114:38 00c8          pushi c8 // $c8 setLoop
  0117:78               push1 
  0118:39 08            pushi 8 // $8 underBits
  011a:39 42            pushi 42 // $42 setPri
  011c:78               push1 
  011d:7a               push2 
  011e:39 57            pushi 57 // $57 init
  0120:76               push0 
  0121:38 00c6          pushi c6 // $c6 stopUpd
  0124:76               push0 
  0125:39 7a            pushi 7a // $7a setScript
  0127:78               push1 
  0128:74 0553          lofss $067e // ClarsEye
  012b:72 08fe          lofsa $0a2c // clarEye
  012e:4a 1a             send 1a 

  0130:38 00c8          pushi c8 // $c8 setLoop
  0133:78               push1 
  0134:76               push0 
  0135:38 00a2          pushi a2 // $a2 setCel
  0138:78               push1 
  0139:78               push1 
  013a:39 42            pushi 42 // $42 setPri
  013c:78               push1 
  013d:78               push1 
  013e:39 57            pushi 57 // $57 init
  0140:76               push0 
  0141:72 0884          lofsa $09c8 // Hand
  0144:4a 16             send 16 

  0146:39 42            pushi 42 // $42 setPri
  0148:78               push1 
  0149:7a               push2 
  014a:39 57            pushi 57 // $57 init
  014c:76               push0 
  014d:38 0089          pushi 89 // $89 hide
  0150:76               push0 
  0151:72 06d8          lofsa $082c // Smoke
  0154:4a 0e             send e 

  0156:39 2b            pushi 2b // $2b number
  0158:78               push1 
  0159:39 1b            pushi 1b // $1b elements
  015b:39 06            pushi 6 // $6 loop
  015d:78               push1 
  015e:39 ff            pushi ff // $ff checkAni
  0160:39 2a            pushi 2a // $2a play
  0162:76               push0 
  0163:72 0914          lofsa $0a7a // myMusic
  0166:4a 10             send 10 

  0168:88 00ad            lsg gSpyFlags 
  016b:35 02              ldi 2 
  016d:12                 and 
  016e:18                 not 
  016f:31 66              bnt code_01d7 
  0171:76               push0 
  0172:40 ff24 00        call proc_009a 0 

  0176:88 0171            lsg global369 
  0179:35 01              ldi 1 
  017b:1c                 ne? 
  017c:31 4f              bnt code_01cd 
  017e:39 42            pushi 42 // $42 setPri
  0180:78               push1 
  0181:7a               push2 
  0182:39 57            pushi 57 // $57 init
  0184:76               push0 
  0185:38 00c6          pushi c6 // $c6 stopUpd
  0188:76               push0 
  0189:39 7a            pushi 7a // $7a setScript
  018b:78               push1 
  018c:74 051f          lofss $06ae // GertsEye
  018f:72 0784          lofsa $0916 // gertEye
  0192:4a 14             send 14 

  0194:39 42            pushi 42 // $42 setPri
  0196:78               push1 
  0197:7a               push2 
  0198:39 57            pushi 57 // $57 init
  019a:76               push0 
  019b:38 0089          pushi 89 // $89 hide
  019e:76               push0 
  019f:72 0726          lofsa $08c8 // gertMouth
  01a2:4a 0e             send e 

  01a4:39 42            pushi 42 // $42 setPri
  01a6:78               push1 
  01a7:78               push1 
  01a8:39 57            pushi 57 // $57 init
  01aa:76               push0 
  01ab:72 05cc          lofsa $077a // Gertie
  01ae:4a 0a             send a 

  01b0:38 00c8          pushi c8 // $c8 setLoop
  01b3:78               push1 
  01b4:39 03            pushi 3 // $3 y
  01b6:38 00a2          pushi a2 // $a2 setCel
  01b9:78               push1 
  01ba:76               push0 
  01bb:39 42            pushi 42 // $42 setPri
  01bd:78               push1 
  01be:39 03            pushi 3 // $3 y
  01c0:38 00c9          pushi c9 // $c9 ignoreActors
  01c3:78               push1 
  01c4:78               push1 
  01c5:39 57            pushi 57 // $57 init
  01c7:76               push0 
  01c8:72 0799          lofsa $0964 // gertGlass
  01cb:4a 1c             send 1c 


        code_01cd
  01cd:39 7a            pushi 7a // $7a setScript
  01cf:78               push1 
  01d0:74 050b          lofss $06de // speech38a
  01d3:54 06             self 6 

  01d5:33 08              jmp code_01df 

        code_01d7
  01d7:39 7a            pushi 7a // $7a setScript
  01d9:78               push1 
  01da:74 0539          lofss $0716 // twice
  01dd:54 06             self 6 


        code_01df
  01df:48                 ret 
    )

    (method (doit) // method_01e0
  01e0:39 3c            pushi 3c // $3c doit
  01e2:76               push0 
  01e3:57 37 04         super Rm 4 

  01e6:48                 ret 
    )

    (method (dispose) // method_01e7
  01e7:39 58            pushi 58 // $58 dispose
  01e9:76               push0 
  01ea:57 37 04         super Rm 4 

  01ed:48                 ret 
    )

    (method (handleEvent) // method_01ee
  01ee:39 6f            pushi 6f // $6f handleEvent
  01f0:78               push1 
  01f1:8f 01              lsp param1 
  01f3:57 37 06         super Rm 6 

  01f6:48                 ret 
    )

)

// 0678
(instance ClarsEye 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_01f7
  01f7:87 01              lap param1 
  01f9:65 0a             aTop state 
  01fb:36                push 
  01fc:3c                 dup 
  01fd:35 00              ldi 0 
  01ff:1a                 eq? 
  0200:31 36              bnt code_0238 
  0202:39 07            pushi 7 // $7 cel
  0204:78               push1 
  0205:39 07            pushi 7 // $7 cel
  0207:76               push0 
  0208:72 0821          lofsa $0a2c // clarEye
  020b:4a 04             send 4 

  020d:36                push 
  020e:35 01              ldi 1 
  0210:10                 xor 
  0211:36                push 
  0212:38 00c7          pushi c7 // $c7 forceUpd
  0215:76               push0 
  0216:72 0813          lofsa $0a2c // clarEye
  0219:4a 0a             send a 

  021b:35 ff              ldi ff 
  021d:65 0a             aTop state 
  021f:39 07            pushi 7 // $7 cel
  0221:76               push0 
  0222:72 0807          lofsa $0a2c // clarEye
  0225:4a 04             send 4 

  0227:31 06              bnt code_022f 
  0229:35 02              ldi 2 
  022b:65 10             aTop cycles 
  022d:33 09              jmp code_0238 

        code_022f
  022f:7a               push2 
  0230:7a               push2 
  0231:39 05            pushi 5 // $5 view
  0233:43 40 04         callk Random 4 

  0236:65 12             aTop seconds 

        code_0238
  0238:3a                toss 
  0239:48                 ret 
    )

)

// 06a8
(instance GertsEye 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_023a
  023a:87 01              lap param1 
  023c:65 0a             aTop state 
  023e:36                push 
  023f:3c                 dup 
  0240:35 00              ldi 0 
  0242:1a                 eq? 
  0243:31 26              bnt code_026b 
  0245:39 07            pushi 7 // $7 cel
  0247:78               push1 
  0248:39 07            pushi 7 // $7 cel
  024a:76               push0 
  024b:72 06c8          lofsa $0916 // gertEye
  024e:4a 04             send 4 

  0250:36                push 
  0251:35 01              ldi 1 
  0253:10                 xor 
  0254:36                push 
  0255:38 00c7          pushi c7 // $c7 forceUpd
  0258:76               push0 
  0259:72 06ba          lofsa $0916 // gertEye
  025c:4a 0a             send a 

  025e:35 ff              ldi ff 
  0260:65 0a             aTop state 
  0262:7a               push2 
  0263:78               push1 
  0264:39 06            pushi 6 // $6 loop
  0266:43 40 04         callk Random 4 

  0269:65 12             aTop seconds 

        code_026b
  026b:3a                toss 
  026c:48                 ret 
    )

)

// 06d8
(instance speech38a 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_026d
  026d:39 6f            pushi 6f // $6f handleEvent
  026f:78               push1 
  0270:8f 01              lsp param1 
  0272:57 05 06         super Script 6 

  0275:39 4c            pushi 4c // $4c claimed
  0277:76               push0 
  0278:87 01              lap param1 
  027a:4a 04             send 4 

  027c:18                 not 
  027d:31 47              bnt code_02c6 
  027f:63 18             pToa script 
  0281:18                 not 
  0282:31 42              bnt code_02c6 
  0284:39 04            pushi 4 // $4 x
  0286:39 22            pushi 22 // $22 type
  0288:76               push0 
  0289:87 01              lap param1 
  028b:4a 04             send 4 

  028d:1a                 eq? 
  028e:31 36              bnt code_02c6 
  0290:39 28            pushi 28 // $28 message
  0292:76               push0 
  0293:87 01              lap param1 
  0295:4a 04             send 4 

  0297:36                push 
  0298:35 53              ldi 53 
  029a:1a                 eq? 
  029b:2f 0d               bt code_02aa 
  029d:39 28            pushi 28 // $28 message
  029f:76               push0 
  02a0:87 01              lap param1 
  02a2:4a 04             send 4 

  02a4:36                push 
  02a5:35 73              ldi 73 
  02a7:1a                 eq? 
  02a8:31 1c              bnt code_02c6 

        code_02aa
  02aa:76               push0 
  02ab:45 0f 00         callb procedure_000f 0 // cls 

  02ae:88 00ad            lsg gSpyFlags 
  02b1:35 02              ldi 2 
  02b3:12                 and 
  02b4:18                 not 
  02b5:31 05              bnt code_02bc 
  02b7:76               push0 
  02b8:40 fdde 00        call proc_009a 0 


        code_02bc
  02bc:38 00f8          pushi f8 // $f8 newRoom
  02bf:78               push1 
  02c0:89 0c              lsg gPrevRoomNum 
  02c2:81 02              lag gCurRoom 
  02c4:4a 06             send 6 


        code_02c6
  02c6:48                 ret 
    )

    (method (doit) // method_02c7
  02c7:39 3c            pushi 3c // $3c doit
  02c9:76               push0 
  02ca:57 05 04         super Script 4 

  02cd:67 0a             pTos state 
  02cf:35 01              ldi 1 
  02d1:20                 ge? 
  02d2:30 0083            bnt code_0358 
  02d5:67 0a             pTos state 
  02d7:35 02              ldi 2 
  02d9:0a                 mod 
  02da:36                push 
  02db:35 00              ldi 0 
  02dd:1a                 eq? 
  02de:31 52              bnt code_0332 
  02e0:38 00d3          pushi d3 // $d3 setMotion
  02e3:39 03            pushi 3 // $3 y
  02e5:51 1d            class MoveTo 
  02e7:36                push 
  02e8:38 00de          pushi de // $de horizon
  02eb:39 76            pushi 76 // $76 script
  02ed:72 0674          lofsa $0964 // gertGlass
  02f0:4a 0a             send a 

  02f2:39 04            pushi 4 // $4 x
  02f4:76               push0 
  02f5:72 06d0          lofsa $09c8 // Hand
  02f8:4a 04             send 4 

  02fa:36                push 
  02fb:35 7a              ldi 7a 
  02fd:1a                 eq? 
  02fe:31 1e              bnt code_031e 
  0300:39 03            pushi 3 // $3 y
  0302:76               push0 
  0303:72 06c2          lofsa $09c8 // Hand
  0306:4a 04             send 4 

  0308:36                push 
  0309:34 0087            ldi 87 
  030c:1a                 eq? 
  030d:31 0f              bnt code_031e 
  030f:38 00ca          pushi ca // $ca show
  0312:76               push0 
  0313:39 7e            pushi 7e // $7e setCycle
  0315:78               push1 
  0316:51 1a            class End 
  0318:36                push 
  0319:72 0510          lofsa $082c // Smoke
  031c:4a 0a             send a 


        code_031e
  031e:38 00d3          pushi d3 // $d3 setMotion
  0321:39 03            pushi 3 // $3 y
  0323:51 1d            class MoveTo 
  0325:36                push 
  0326:39 7a            pushi 7a // $7a setScript
  0328:38 0087          pushi 87 // $87 clean
  032b:72 069a          lofsa $09c8 // Hand
  032e:4a 0a             send a 

  0330:33 26              jmp code_0358 

        code_0332
  0332:38 00d3          pushi d3 // $d3 setMotion
  0335:39 03            pushi 3 // $3 y
  0337:51 1d            class MoveTo 
  0339:36                push 
  033a:38 00f6          pushi f6 // $f6 carrying
  033d:38 008a          pushi 8a // $8a enable
  0340:72 0621          lofsa $0964 // gertGlass
  0343:4a 0a             send a 

  0345:38 00d3          pushi d3 // $d3 setMotion
  0348:39 03            pushi 3 // $3 y
  034a:51 1d            class MoveTo 
  034c:36                push 
  034d:38 008c          pushi 8c // $8c track
  0350:38 00be          pushi be // $be offScreenOK
  0353:72 0672          lofsa $09c8 // Hand
  0356:4a 0a             send a 


        code_0358
  0358:48                 ret 
    )

    (method (changeState) // method_0359
  0359:39 2d            pushi 2d // $2d client
  035b:76               push0 
  035c:72 03e7          lofsa $0746 // cycleMouth
  035f:4a 04             send 4 

  0361:31 0b              bnt code_036e 
  0363:35 01              ldi 1 
  0365:a3 03              sal local3 
  0367:35 01              ldi 1 
  0369:65 10             aTop cycles 
  036b:32 01ac            jmp code_051a 

        code_036e
  036e:87 01              lap param1 
  0370:65 0a             aTop state 
  0372:36                push 
  0373:3c                 dup 
  0374:35 00              ldi 0 
  0376:1a                 eq? 
  0377:31 41              bnt code_03ba 
  0379:80 00d8            lag global216 
  037c:18                 not 
  037d:31 06              bnt code_0385 
  037f:35 ff              ldi ff 
  0381:65 0a             aTop state 
  0383:33 2e              jmp code_03b3 

        code_0385
  0385:89 76              lsg gMustDos 
  0387:35 02              ldi 2 
  0389:12                 and 
  038a:18                 not 
  038b:31 1b              bnt code_03a8 
  038d:89 76              lsg gMustDos 
  038f:35 02              ldi 2 
  0391:14                  or 
  0392:a1 76              sag gMustDos 
  0394:39 7a            pushi 7a // $7a setScript
  0396:78               push1 
  0397:7a               push2 
  0398:38 0196          pushi 196 // $196 sel_406
  039b:76               push0 
  039c:43 02 04         callk ScriptID 4 

  039f:36                push 
  03a0:54 06             self 6 

  03a2:35 ff              ldi ff 
  03a4:65 0a             aTop state 
  03a6:33 0b              jmp code_03b3 

        code_03a8
  03a8:39 76            pushi 76 // $76 script
  03aa:76               push0 
  03ab:54 04             self 4 

  03ad:31 04              bnt code_03b3 
  03af:35 ff              ldi ff 
  03b1:65 0a             aTop state 

        code_03b3
  03b3:35 01              ldi 1 
  03b5:65 10             aTop cycles 
  03b7:32 015f            jmp code_0519 

        code_03ba
  03ba:3c                 dup 
  03bb:35 01              ldi 1 
  03bd:1a                 eq? 
  03be:31 33              bnt code_03f3 
  03c0:39 0e            pushi e // $e lsLeft
  03c2:38 012d          pushi 12d // $12d oldCycler
  03c5:76               push0 
  03c6:39 64            pushi 64 // $64 allTrue
  03c8:39 30            pushi 30 // $30 b-moveCnt
  03ca:39 08            pushi 8 // $8 underBits
  03cc:39 6a            pushi 6a // $6a prev
  03ce:38 0100          pushi 100 // $100 notify
  03d1:39 66            pushi 66 // $66 isEmpty
  03d3:39 0f            pushi f // $f lsBottom
  03d5:39 67            pushi 67 // $67 first
  03d7:39 ff            pushi ff // $ff checkAni
  03d9:39 69            pushi 69 // $69 last
  03db:76               push0 
  03dc:39 6b            pushi 6b // $6b addToFront
  03de:43 1b 1c         callk Display 1c 

  03e1:a3 04              sal local4 
  03e3:7a               push2 
  03e4:38 012d          pushi 12d // $12d oldCycler
  03e7:78               push1 
  03e8:40 fc77 04        call proc_0063 4 

  03ec:35 0a              ldi a 
  03ee:65 12             aTop seconds 
  03f0:32 0126            jmp code_0519 

        code_03f3
  03f3:3c                 dup 
  03f4:35 02              ldi 2 
  03f6:1a                 eq? 
  03f7:31 10              bnt code_0409 
  03f9:7a               push2 
  03fa:38 012d          pushi 12d // $12d oldCycler
  03fd:7a               push2 
  03fe:40 fc30 04        call proc_0032 4 

  0402:35 0a              ldi a 
  0404:65 12             aTop seconds 
  0406:32 0110            jmp code_0519 

        code_0409
  0409:3c                 dup 
  040a:35 03              ldi 3 
  040c:1a                 eq? 
  040d:31 11              bnt code_0420 
  040f:7a               push2 
  0410:38 012d          pushi 12d // $12d oldCycler
  0413:39 03            pushi 3 // $3 y
  0415:40 fc4a 04        call proc_0063 4 

  0419:35 0a              ldi a 
  041b:65 12             aTop seconds 
  041d:32 00f9            jmp code_0519 

        code_0420
  0420:3c                 dup 
  0421:35 04              ldi 4 
  0423:1a                 eq? 
  0424:31 11              bnt code_0437 
  0426:7a               push2 
  0427:38 012d          pushi 12d // $12d oldCycler
  042a:39 04            pushi 4 // $4 x
  042c:40 fc02 04        call proc_0032 4 

  0430:35 03              ldi 3 
  0432:65 12             aTop seconds 
  0434:32 00e2            jmp code_0519 

        code_0437
  0437:3c                 dup 
  0438:35 05              ldi 5 
  043a:1a                 eq? 
  043b:31 11              bnt code_044e 
  043d:7a               push2 
  043e:38 012d          pushi 12d // $12d oldCycler
  0441:39 05            pushi 5 // $5 view
  0443:40 fc1c 04        call proc_0063 4 

  0447:35 0a              ldi a 
  0449:65 12             aTop seconds 
  044b:32 00cb            jmp code_0519 

        code_044e
  044e:3c                 dup 
  044f:35 06              ldi 6 
  0451:1a                 eq? 
  0452:31 11              bnt code_0465 
  0454:7a               push2 
  0455:38 012d          pushi 12d // $12d oldCycler
  0458:39 06            pushi 6 // $6 loop
  045a:40 fbd4 04        call proc_0032 4 

  045e:35 0a              ldi a 
  0460:65 12             aTop seconds 
  0462:32 00b4            jmp code_0519 

        code_0465
  0465:3c                 dup 
  0466:35 07              ldi 7 
  0468:1a                 eq? 
  0469:31 11              bnt code_047c 
  046b:7a               push2 
  046c:38 012d          pushi 12d // $12d oldCycler
  046f:39 07            pushi 7 // $7 cel
  0471:40 fbee 04        call proc_0063 4 

  0475:35 0a              ldi a 
  0477:65 12             aTop seconds 
  0479:32 009d            jmp code_0519 

        code_047c
  047c:3c                 dup 
  047d:35 08              ldi 8 
  047f:1a                 eq? 
  0480:31 11              bnt code_0493 
  0482:7a               push2 
  0483:38 012d          pushi 12d // $12d oldCycler
  0486:39 08            pushi 8 // $8 underBits
  0488:40 fba6 04        call proc_0032 4 

  048c:35 0a              ldi a 
  048e:65 12             aTop seconds 
  0490:32 0086            jmp code_0519 

        code_0493
  0493:3c                 dup 
  0494:35 09              ldi 9 
  0496:1a                 eq? 
  0497:31 10              bnt code_04a9 
  0499:7a               push2 
  049a:38 012d          pushi 12d // $12d oldCycler
  049d:39 09            pushi 9 // $9 nsTop
  049f:40 fbc0 04        call proc_0063 4 

  04a3:35 04              ldi 4 
  04a5:65 12             aTop seconds 
  04a7:33 70              jmp code_0519 

        code_04a9
  04a9:3c                 dup 
  04aa:35 0a              ldi a 
  04ac:1a                 eq? 
  04ad:31 10              bnt code_04bf 
  04af:7a               push2 
  04b0:38 012d          pushi 12d // $12d oldCycler
  04b3:39 0a            pushi a // $a nsLeft
  04b5:40 fb79 04        call proc_0032 4 

  04b9:35 04              ldi 4 
  04bb:65 12             aTop seconds 
  04bd:33 5a              jmp code_0519 

        code_04bf
  04bf:3c                 dup 
  04c0:35 0b              ldi b 
  04c2:1a                 eq? 
  04c3:31 40              bnt code_0505 
  04c5:38 0089          pushi 89 // $89 hide
  04c8:76               push0 
  04c9:72 044a          lofsa $0916 // gertEye
  04cc:4a 04             send 4 

  04ce:38 0089          pushi 89 // $89 hide
  04d1:76               push0 
  04d2:72 048f          lofsa $0964 // gertGlass
  04d5:4a 04             send 4 

  04d7:38 00c8          pushi c8 // $c8 setLoop
  04da:78               push1 
  04db:76               push0 
  04dc:38 00a2          pushi a2 // $a2 setCel
  04df:78               push1 
  04e0:78               push1 
  04e1:38 00dc          pushi dc // $dc setStep
  04e4:7a               push2 
  04e5:39 05            pushi 5 // $5 view
  04e7:39 05            pushi 5 // $5 view
  04e9:38 00d3          pushi d3 // $d3 setMotion
  04ec:39 04            pushi 4 // $4 x
  04ee:51 1d            class MoveTo 
  04f0:36                push 
  04f1:38 0154          pushi 154 // $154 itemY
  04f4:39 03            pushi 3 // $3 y
  04f6:76               push0 
  04f7:72 0280          lofsa $077a // Gertie
  04fa:4a 04             send 4 

  04fc:36                push 
  04fd:7c            pushSelf 
  04fe:72 0279          lofsa $077a // Gertie
  0501:4a 20             send 20 

  0503:33 14              jmp code_0519 

        code_0505
  0505:3c                 dup 
  0506:35 0c              ldi c 
  0508:1a                 eq? 
  0509:31 0e              bnt code_0519 
  050b:76               push0 
  050c:45 0f 00         callb procedure_000f 0 // cls 

  050f:38 00f8          pushi f8 // $f8 newRoom
  0512:78               push1 
  0513:89 0c              lsg gPrevRoomNum 
  0515:81 02              lag gCurRoom 
  0517:4a 06             send 6 


        code_0519
  0519:3a                toss 

        code_051a
  051a:48                 ret 
    )

)

// 0710
(instance twice 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_051b
  051b:87 01              lap param1 
  051d:65 0a             aTop state 
  051f:36                push 
  0520:3c                 dup 
  0521:35 00              ldi 0 
  0523:1a                 eq? 
  0524:31 2e              bnt code_0554 
  0526:38 00d3          pushi d3 // $d3 setMotion
  0529:39 04            pushi 4 // $4 x
  052b:51 1d            class MoveTo 
  052d:36                push 
  052e:39 7a            pushi 7a // $7a setScript
  0530:38 0087          pushi 87 // $87 clean
  0533:7c            pushSelf 
  0534:72 0491          lofsa $09c8 // Hand
  0537:4a 0c             send c 

  0539:39 03            pushi 3 // $3 y
  053b:38 012d          pushi 12d // $12d oldCycler
  053e:39 0b            pushi b // $b nsBottom
  0540:39 58            pushi 58 // $58 dispose
  0542:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0548:38 00a4          pushi a4 // $a4 cycleSpeed
  054b:78               push1 
  054c:78               push1 
  054d:72 032a          lofsa $087a // clarMouth
  0550:4a 06             send 6 

  0552:33 7f              jmp code_05d3 

        code_0554
  0554:3c                 dup 
  0555:35 01              ldi 1 
  0557:1a                 eq? 
  0558:31 15              bnt code_056f 
  055a:35 04              ldi 4 
  055c:a3 02              sal local2 
  055e:39 7a            pushi 7a // $7a setScript
  0560:78               push1 
  0561:74 01e2          lofss $0746 // cycleMouth
  0564:72 0313          lofsa $087a // clarMouth
  0567:4a 06             send 6 

  0569:35 01              ldi 1 
  056b:65 10             aTop cycles 
  056d:33 64              jmp code_05d3 

        code_056f
  056f:3c                 dup 
  0570:35 02              ldi 2 
  0572:1a                 eq? 
  0573:31 2f              bnt code_05a4 
  0575:39 76            pushi 76 // $76 script
  0577:76               push0 
  0578:72 02ff          lofsa $087a // clarMouth
  057b:4a 04             send 4 

  057d:31 08              bnt code_0587 
  057f:35 01              ldi 1 
  0581:65 0a             aTop state 
  0583:65 10             aTop cycles 
  0585:33 1b              jmp code_05a2 

        code_0587
  0587:38 00ca          pushi ca // $ca show
  058a:76               push0 
  058b:39 7e            pushi 7e // $7e setCycle
  058d:7a               push2 
  058e:51 1a            class End 
  0590:36                push 
  0591:7c            pushSelf 
  0592:72 0297          lofsa $082c // Smoke
  0595:4a 0c             send c 

  0597:cb 01              +sl local1 
  0599:35 02              ldi 2 
  059b:22                 lt? 
  059c:31 04              bnt code_05a2 
  059e:35 00              ldi 0 
  05a0:65 0a             aTop state 

        code_05a2
  05a2:33 2f              jmp code_05d3 

        code_05a4
  05a4:3c                 dup 
  05a5:35 03              ldi 3 
  05a7:1a                 eq? 
  05a8:31 19              bnt code_05c3 
  05aa:38 00d3          pushi d3 // $d3 setMotion
  05ad:39 03            pushi 3 // $3 y
  05af:51 1d            class MoveTo 
  05b1:36                push 
  05b2:38 008c          pushi 8c // $8c track
  05b5:38 00be          pushi be // $be offScreenOK
  05b8:72 040d          lofsa $09c8 // Hand
  05bb:4a 0a             send a 

  05bd:35 0a              ldi a 
  05bf:65 10             aTop cycles 
  05c1:33 10              jmp code_05d3 

        code_05c3
  05c3:3c                 dup 
  05c4:35 04              ldi 4 
  05c6:1a                 eq? 
  05c7:31 0a              bnt code_05d3 
  05c9:38 00f8          pushi f8 // $f8 newRoom
  05cc:78               push1 
  05cd:89 0c              lsg gPrevRoomNum 
  05cf:81 02              lag gCurRoom 
  05d1:4a 06             send 6 


        code_05d3
  05d3:3a                toss 
  05d4:48                 ret 
    )

)

// 0740
(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_05d5
  05d5:39 3c            pushi 3c // $3c doit
  05d7:76               push0 
  05d8:57 05 04         super Script 4 

  05db:83 03              lal local3 
  05dd:31 08              bnt code_05e7 
  05df:35 00              ldi 0 
  05e1:a3 03              sal local3 
  05e3:35 01              ldi 1 
  05e5:65 10             aTop cycles 

        code_05e7
  05e7:48                 ret 
    )

    (method (changeState) // method_05e8
  05e8:87 01              lap param1 
  05ea:65 0a             aTop state 
  05ec:36                push 
  05ed:3c                 dup 
  05ee:35 00              ldi 0 
  05f0:1a                 eq? 
  05f1:31 18              bnt code_060b 
  05f3:39 07            pushi 7 // $7 cel
  05f5:78               push1 
  05f6:76               push0 
  05f7:39 7e            pushi 7e // $7e setCycle
  05f9:78               push1 
  05fa:51 16            class Fwd 
  05fc:36                push 
  05fd:38 00ca          pushi ca // $ca show
  0600:76               push0 
  0601:63 08             pToa client 
  0603:4a 10             send 10 

  0605:83 02              lal local2 
  0607:65 10             aTop cycles 
  0609:33 18              jmp code_0623 

        code_060b
  060b:3c                 dup 
  060c:35 01              ldi 1 
  060e:1a                 eq? 
  060f:31 12              bnt code_0623 
  0611:39 7a            pushi 7a // $7a setScript
  0613:78               push1 
  0614:76               push0 
  0615:38 0089          pushi 89 // $89 hide
  0618:76               push0 
  0619:63 08             pToa client 
  061b:4a 0a             send a 

  061d:39 2d            pushi 2d // $2d client
  061f:78               push1 
  0620:76               push0 
  0621:54 06             self 6 


        code_0623
  0623:3a                toss 
  0624:48                 ret 
  0625:00                bnot 
    )

)

// 0774
(instance Gertie of Act
    (properties
        y $68
        x $d5
        z $0
        heading $0
        yStep $2
        view $159
        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
    )
)

// 07d8
(instance Clarence of Prop
    (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
    )
)

// 0826
(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
    )
)

// 0874
(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
    )
)

// 08c2
(instance gertMouth of Prop
    (properties
        y $55
        x $d5
        z $0
        heading $0
        yStep $2
        view $159
        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
    )
)

// 0910
(instance gertEye of Prop
    (properties
        y $42
        x $db
        z $0
        heading $0
        yStep $2
        view $159
        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
    )
)

// 095e
(instance gertGlass of Act
    (properties
        y $8a
        x $f6
        z $0
        heading $0
        yStep $5
        view $159
        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 $5
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

// 09c2
(instance Hand of Act
    (properties
        y $be
        x $8c
        z $0
        heading $0
        yStep $5
        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
    )
)

// 0a26
(instance clarEye of Prop
    (properties
        y $48
        x $76
        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
    )
)

// 0a74
(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 02              ldi 2 
  0024:08                 div 
  0025:a3 02              sal local2 
  0027:36                push 
  0028:35 14              ldi 14 
  002a:22                 lt? 
  002b:31 04              bnt code_0031 
  002d:35 14              ldi 14 
  002f:a3 02              sal local2 

        code_0031
  0031:48                 ret 
)

(procedure proc_0032
  0032:76               push0 
  0033:59 01            &rest 1 
  0035:41 d4 00          call proc_000c 0 

  0038:39 7a            pushi 7a // $7a setScript
  003a:78               push1 
  003b:74 0708          lofss $0746 // cycleMouth
  003e:72 0887          lofsa $08c8 // gertMouth
  0041:4a 06             send 6 

  0043:39 0a            pushi a // $a nsLeft
  0045:59 01            &rest 1 
  0047:39 43            pushi 43 // $43 at
  0049:38 008c          pushi 8c // $8c track
  004c:39 6e            pushi 6e // $6e indexOf
  004e:39 21            pushi 21 // $21 font
  0050:39 04            pushi 4 // $4 x
  0052:39 46            pushi 46 // $46 width
  0054:38 00a0          pushi a0 // $a0 cycleDone
  0057:39 1e            pushi 1e // $1e mode
  0059:78               push1 
  005a:39 58            pushi 58 // $58 dispose
  005c:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  0062:48                 ret 
)

(procedure proc_0063
  0063:76               push0 
  0064:59 01            &rest 1 
  0066:41 a3 00          call proc_000c 0 

  0069:8b 02              lsl local2 
  006b:35 02              ldi 2 
  006d:08                 div 
  006e:a3 02              sal local2 
  0070:39 7a            pushi 7a // $7a setScript
  0072:78               push1 
  0073:74 06d0          lofss $0746 // cycleMouth
  0076:72 0801          lofsa $087a // clarMouth
  0079:4a 06             send 6 

  007b:39 0a            pushi a // $a nsLeft
  007d:59 01            &rest 1 
  007f:39 43            pushi 43 // $43 at
  0081:39 0a            pushi a // $a nsLeft
  0083:39 6e            pushi 6e // $6e indexOf
  0085:39 21            pushi 21 // $21 font
  0087:39 04            pushi 4 // $4 x
  0089:39 46            pushi 46 // $46 width
  008b:38 00a0          pushi a0 // $a0 cycleDone
  008e:39 1e            pushi 1e // $1e mode
  0090:78               push1 
  0091:39 58            pushi 58 // $58 dispose
  0093:46 00ff 0000 14  calle ff procedure_0000 14 // Print 

  0099:48                 ret 
)

(procedure proc_009a
  009a:88 00ad            lsg gSpyFlags 
  009d:35 02              ldi 2 
  009f:14                  or 
  00a0:a0 00ad            sag gSpyFlags 
  00a3:35 00              ldi 0 
  00a5:a0 0171            sag global369 
  00a8:c0 00c5            +ag global197 
  00ab:78               push1 
  00ac:39 10            pushi 10 // $10 lsRight
  00ae:45 05 02         callb procedure_0005 2 // SetFlag 

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

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

  00bd:48                 ret 
)

