(script 323)

(string
    string_0c9a "Clarence"
    string_0ca3 "ClarsEye"
    string_0cac "Gloria"
    string_0cb3 "GlorsEyes"
    string_0cbd "Hand"
    string_0cc2 "Smoke"
    string_0cc8 "clarEye"
    string_0cd0 "clarMouth"
    string_0cda "cycleMouth"
    string_0ce5 "glorEye"
    string_0ced "glorHand"
    string_0cf6 "glorMouth"
    string_0d00 "glorSmoke"
    string_0d0a "glow"
    string_0d0f "myMusic"
    string_0d17 "puff"
    string_0d1c "scene36b"
    string_0d25 "speech36b"
    string_0d2f "twice"
    string_0d35 ""
)

(said
)

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

// 071e
(instance public scene36b 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_00d6
  00d6:39 57            pushi 57 // $57 init
  00d8:76               push0 
  00d9:57 37 04         super Rm 4 

  00dc:7a               push2 
  00dd:38 0087          pushi 87 // $87 clean
  00e0:39 04            pushi 4 // $4 x
  00e2:43 00 04         callk Load 4 

  00e5:76               push0 
  00e6:45 03 00         callb procedure_0003 0 // HandsOff 

  00e9:39 2b            pushi 2b // $2b number
  00eb:78               push1 
  00ec:39 1b            pushi 1b // $1b elements
  00ee:39 06            pushi 6 // $6 loop
  00f0:78               push1 
  00f1:39 ff            pushi ff // $ff checkAni
  00f3:39 2a            pushi 2a // $2a play
  00f5:76               push0 
  00f6:72 0b73          lofsa $0c6c // myMusic
  00f9:4a 10             send 10 

  00fb:38 00c8          pushi c8 // $c8 setLoop
  00fe:78               push1 
  00ff:39 04            pushi 4 // $4 x
  0101:39 42            pushi 42 // $42 setPri
  0103:78               push1 
  0104:7a               push2 
  0105:38 00c9          pushi c9 // $c9 ignoreActors
  0108:78               push1 
  0109:78               push1 
  010a:39 57            pushi 57 // $57 init
  010c:76               push0 
  010d:38 00c6          pushi c6 // $c6 stopUpd
  0110:76               push0 
  0111:38 0089          pushi 89 // $89 hide
  0114:76               push0 
  0115:72 09a2          lofsa $0aba // glorSmoke
  0118:4a 1e             send 1e 

  011a:39 57            pushi 57 // $57 init
  011c:76               push0 
  011d:38 00c6          pushi c6 // $c6 stopUpd
  0120:76               push0 
  0121:38 0089          pushi 89 // $89 hide
  0124:76               push0 
  0125:72 0a44          lofsa $0b6c // glow
  0128:4a 0c             send c 

  012a:39 42            pushi 42 // $42 setPri
  012c:78               push1 
  012d:7a               push2 
  012e:39 57            pushi 57 // $57 init
  0130:76               push0 
  0131:72 08ea          lofsa $0a1e // glorMouth
  0134:4a 0a             send a 

  0136:39 42            pushi 42 // $42 setPri
  0138:78               push1 
  0139:7a               push2 
  013a:39 57            pushi 57 // $57 init
  013c:76               push0 
  013d:38 00c6          pushi c6 // $c6 stopUpd
  0140:76               push0 
  0141:39 7a            pushi 7a // $7a setScript
  0143:78               push1 
  0144:74 0659          lofss $07a0 // GlorsEyes
  0147:72 09d4          lofsa $0b1e // glorEye
  014a:4a 14             send 14 

  014c:39 42            pushi 42 // $42 setPri
  014e:78               push1 
  014f:78               push1 
  0150:38 00c9          pushi c9 // $c9 ignoreActors
  0153:78               push1 
  0154:78               push1 
  0155:39 57            pushi 57 // $57 init
  0157:76               push0 
  0158:72 0875          lofsa $09d0 // Gloria
  015b:4a 10             send 10 

  015d:39 42            pushi 42 // $42 setPri
  015f:78               push1 
  0160:78               push1 
  0161:39 57            pushi 57 // $57 init
  0163:76               push0 
  0164:38 0089          pushi 89 // $89 hide
  0167:76               push0 
  0168:72 0a4f          lofsa $0bba // puff
  016b:4a 0e             send e 

  016d:38 00c8          pushi c8 // $c8 setLoop
  0170:78               push1 
  0171:78               push1 
  0172:38 00a2          pushi a2 // $a2 setCel
  0175:78               push1 
  0176:76               push0 
  0177:39 42            pushi 42 // $42 setPri
  0179:78               push1 
  017a:39 03            pushi 3 // $3 y
  017c:39 36            pushi 36 // $36 xStep
  017e:78               push1 
  017f:39 05            pushi 5 // $5 view
  0181:39 37            pushi 37 // $37 yStep
  0183:78               push1 
  0184:39 05            pushi 5 // $5 view
  0186:38 00c9          pushi c9 // $c9 ignoreActors
  0189:78               push1 
  018a:78               push1 
  018b:39 57            pushi 57 // $57 init
  018d:76               push0 
  018e:72 0a77          lofsa $0c08 // glorHand
  0191:4a 28             send 28 

  0193:88 009a            lsg gClarenceWilburState 
  0196:35 04              ldi 4 
  0198:1a                 eq? 
  0199:30 009b            bnt code_0237 
  019c:7a               push2 
  019d:38 0087          pushi 87 // $87 clean
  01a0:39 29            pushi 29 // $29 edit
  01a2:43 00 04         callk Load 4 

  01a5:7a               push2 
  01a6:38 008f          pushi 8f // $8f moveTo
  01a9:38 0196          pushi 196 // $196 sel_406
  01ac:45 15 04         callb procedure_0015 4 // LoadMany 

  01af:7a               push2 
  01b0:38 0080          pushi 80 // $80 timeLeft
  01b3:38 0282          pushi 282 // $282 sel_642
  01b6:43 00 04         callk Load 4 

  01b9:39 05            pushi 5 // $5 view
  01bb:38 0084          pushi 84 // $84 stop
  01be:39 1d            pushi 1d // $1d back
  01c0:39 5e            pushi 5e // $5e respondsTo
  01c2:39 5f            pushi 5f // $5f yourself
  01c4:39 60            pushi 60 // $60 size
  01c6:45 15 0a         callb procedure_0015 a // LoadMany 

  01c9:35 05              ldi 5 
  01cb:a0 009a            sag gClarenceWilburState 
  01ce:39 42            pushi 42 // $42 setPri
  01d0:78               push1 
  01d1:78               push1 
  01d2:39 57            pushi 57 // $57 init
  01d4:76               push0 
  01d5:72 0694          lofsa $086c // Clarence
  01d8:4a 0a             send a 

  01da:39 42            pushi 42 // $42 setPri
  01dc:78               push1 
  01dd:7a               push2 
  01de:39 57            pushi 57 // $57 init
  01e0:76               push0 
  01e1:72 06ec          lofsa $08d0 // clarMouth
  01e4:4a 0a             send a 

  01e6:38 00c8          pushi c8 // $c8 setLoop
  01e9:78               push1 
  01ea:39 08            pushi 8 // $8 underBits
  01ec:39 42            pushi 42 // $42 setPri
  01ee:78               push1 
  01ef:7a               push2 
  01f0:39 57            pushi 57 // $57 init
  01f2:76               push0 
  01f3:38 00c6          pushi c6 // $c6 stopUpd
  01f6:76               push0 
  01f7:39 7a            pushi 7a // $7a setScript
  01f9:78               push1 
  01fa:74 0573          lofss $0770 // ClarsEye
  01fd:72 086c          lofsa $0a6c // clarEye
  0200:4a 1a             send 1a 

  0202:38 00c8          pushi c8 // $c8 setLoop
  0205:78               push1 
  0206:76               push0 
  0207:38 00a2          pushi a2 // $a2 setCel
  020a:78               push1 
  020b:78               push1 
  020c:39 42            pushi 42 // $42 setPri
  020e:78               push1 
  020f:78               push1 
  0210:39 37            pushi 37 // $37 yStep
  0212:78               push1 
  0213:39 05            pushi 5 // $5 view
  0215:39 57            pushi 57 // $57 init
  0217:76               push0 
  0218:72 0751          lofsa $096c // Hand
  021b:4a 1c             send 1c 

  021d:39 42            pushi 42 // $42 setPri
  021f:78               push1 
  0220:7a               push2 
  0221:39 57            pushi 57 // $57 init
  0223:76               push0 
  0224:38 0089          pushi 89 // $89 hide
  0227:76               push0 
  0228:72 06f3          lofsa $091e // Smoke
  022b:4a 0e             send e 

  022d:39 7a            pushi 7a // $7a setScript
  022f:78               push1 
  0230:74 059d          lofss $07d0 // speech36b
  0233:54 06             self 6 

  0235:33 08              jmp code_023f 

        code_0237
  0237:39 7a            pushi 7a // $7a setScript
  0239:78               push1 
  023a:74 05cb          lofss $0808 // twice
  023d:54 06             self 6 


        code_023f
  023f:48                 ret 
    )

    (method (doit) // method_0240
  0240:39 3c            pushi 3c // $3c doit
  0242:76               push0 
  0243:57 37 04         super Rm 4 

  0246:48                 ret 
    )

    (method (dispose) // method_0247
  0247:39 58            pushi 58 // $58 dispose
  0249:76               push0 
  024a:57 37 04         super Rm 4 

  024d:48                 ret 
    )

    (method (handleEvent) // method_024e
  024e:39 6f            pushi 6f // $6f handleEvent
  0250:78               push1 
  0251:8f 01              lsp param1 
  0253:57 37 06         super Rm 6 

  0256:48                 ret 
    )

)

// 076a
(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_0257
  0257:87 01              lap param1 
  0259:65 0a             aTop state 
  025b:36                push 
  025c:3c                 dup 
  025d:35 00              ldi 0 
  025f:1a                 eq? 
  0260:31 36              bnt code_0298 
  0262:39 07            pushi 7 // $7 cel
  0264:78               push1 
  0265:39 07            pushi 7 // $7 cel
  0267:76               push0 
  0268:72 0801          lofsa $0a6c // clarEye
  026b:4a 04             send 4 

  026d:36                push 
  026e:35 01              ldi 1 
  0270:10                 xor 
  0271:36                push 
  0272:38 00c7          pushi c7 // $c7 forceUpd
  0275:76               push0 
  0276:72 07f3          lofsa $0a6c // clarEye
  0279:4a 0a             send a 

  027b:35 ff              ldi ff 
  027d:65 0a             aTop state 
  027f:39 07            pushi 7 // $7 cel
  0281:76               push0 
  0282:72 07e7          lofsa $0a6c // clarEye
  0285:4a 04             send 4 

  0287:31 06              bnt code_028f 
  0289:35 02              ldi 2 
  028b:65 10             aTop cycles 
  028d:33 09              jmp code_0298 

        code_028f
  028f:7a               push2 
  0290:7a               push2 
  0291:39 05            pushi 5 // $5 view
  0293:43 40 04         callk Random 4 

  0296:65 12             aTop seconds 

        code_0298
  0298:3a                toss 
  0299:48                 ret 
    )

)

// 079a
(instance GlorsEyes 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_029a
  029a:87 01              lap param1 
  029c:65 0a             aTop state 
  029e:36                push 
  029f:3c                 dup 
  02a0:35 00              ldi 0 
  02a2:1a                 eq? 
  02a3:31 14              bnt code_02b9 
  02a5:38 00c6          pushi c6 // $c6 stopUpd
  02a8:76               push0 
  02a9:72 0872          lofsa $0b1e // glorEye
  02ac:4a 04             send 4 

  02ae:7a               push2 
  02af:7a               push2 
  02b0:39 05            pushi 5 // $5 view
  02b2:43 40 04         callk Random 4 

  02b5:65 12             aTop seconds 
  02b7:33 1a              jmp code_02d3 

        code_02b9
  02b9:3c                 dup 
  02ba:35 01              ldi 1 
  02bc:1a                 eq? 
  02bd:31 14              bnt code_02d3 
  02bf:38 00a3          pushi a3 // $a3 startUpd
  02c2:76               push0 
  02c3:39 7e            pushi 7e // $7e setCycle
  02c5:7a               push2 
  02c6:51 1b            class Beg 
  02c8:36                push 
  02c9:7c            pushSelf 
  02ca:72 0851          lofsa $0b1e // glorEye
  02cd:4a 0c             send c 

  02cf:35 ff              ldi ff 
  02d1:65 0a             aTop state 

        code_02d3
  02d3:3a                toss 
  02d4:48                 ret 
    )

)

// 07ca
(instance speech36b 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_02d5
  02d5:39 6f            pushi 6f // $6f handleEvent
  02d7:78               push1 
  02d8:8f 01              lsp param1 
  02da:57 05 06         super Script 6 

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

  02e4:18                 not 
  02e5:31 47              bnt code_032e 
  02e7:63 18             pToa script 
  02e9:18                 not 
  02ea:31 42              bnt code_032e 
  02ec:39 04            pushi 4 // $4 x
  02ee:39 22            pushi 22 // $22 type
  02f0:76               push0 
  02f1:87 01              lap param1 
  02f3:4a 04             send 4 

  02f5:1a                 eq? 
  02f6:31 36              bnt code_032e 
  02f8:39 28            pushi 28 // $28 message
  02fa:76               push0 
  02fb:87 01              lap param1 
  02fd:4a 04             send 4 

  02ff:36                push 
  0300:35 53              ldi 53 
  0302:1a                 eq? 
  0303:2f 0d               bt code_0312 
  0305:39 28            pushi 28 // $28 message
  0307:76               push0 
  0308:87 01              lap param1 
  030a:4a 04             send 4 

  030c:36                push 
  030d:35 73              ldi 73 
  030f:1a                 eq? 
  0310:31 1c              bnt code_032e 

        code_0312
  0312:76               push0 
  0313:45 0f 00         callb procedure_000f 0 // cls 

  0316:88 00ad            lsg gSpyFlags 
  0319:35 01              ldi 1 
  031b:12                 and 
  031c:18                 not 
  031d:31 05              bnt code_0324 
  031f:76               push0 
  0320:40 fd9d 00        call proc_00c1 0 


        code_0324
  0324:38 00f8          pushi f8 // $f8 newRoom
  0327:78               push1 
  0328:89 0c              lsg gPrevRoomNum 
  032a:81 02              lag gCurRoom 
  032c:4a 06             send 6 


        code_032e
  032e:48                 ret 
    )

    (method (doit) // method_032f
  032f:39 3c            pushi 3c // $3c doit
  0331:76               push0 
  0332:57 05 04         super Script 4 

  0335:67 0a             pTos state 
  0337:35 01              ldi 1 
  0339:20                 ge? 
  033a:30 016a            bnt code_04a7 
  033d:67 0a             pTos state 
  033f:35 02              ldi 2 
  0341:0a                 mod 
  0342:36                push 
  0343:35 00              ldi 0 
  0345:1a                 eq? 
  0346:30 00bb            bnt code_0404 
  0349:67 0a             pTos state 
  034b:35 08              ldi 8 
  034d:1c                 ne? 
  034e:30 00b3            bnt code_0404 
  0351:35 00              ldi 0 
  0353:a3 00              sal local0 
  0355:39 06            pushi 6 // $6 loop
  0357:78               push1 
  0358:39 03            pushi 3 // $3 y
  035a:38 00a4          pushi a4 // $a4 cycleSpeed
  035d:78               push1 
  035e:76               push0 
  035f:39 7e            pushi 7e // $7e setCycle
  0361:78               push1 
  0362:51 16            class Fwd 
  0364:36                push 
  0365:72 06b6          lofsa $0a1e // glorMouth
  0368:4a 12             send 12 

  036a:38 00d3          pushi d3 // $d3 setMotion
  036d:39 03            pushi 3 // $3 y
  036f:51 1d            class MoveTo 
  0371:36                push 
  0372:38 00a7          pushi a7 // $a7 isStopped
  0375:39 6f            pushi 6f // $6f handleEvent
  0377:72 088e          lofsa $0c08 // glorHand
  037a:4a 0a             send a 

  037c:38 0089          pushi 89 // $89 hide
  037f:76               push0 
  0380:72 07e9          lofsa $0b6c // glow
  0383:4a 04             send 4 

  0385:39 04            pushi 4 // $4 x
  0387:76               push0 
  0388:72 087d          lofsa $0c08 // glorHand
  038b:4a 04             send 4 

  038d:36                push 
  038e:34 00a7            ldi a7 
  0391:1a                 eq? 
  0392:31 26              bnt code_03ba 
  0394:39 03            pushi 3 // $3 y
  0396:76               push0 
  0397:72 086e          lofsa $0c08 // glorHand
  039a:4a 04             send 4 

  039c:36                push 
  039d:35 6f              ldi 6f 
  039f:1a                 eq? 
  03a0:31 18              bnt code_03ba 
  03a2:38 00c5          pushi c5 // $c5 posn
  03a5:7a               push2 
  03a6:38 0094          pushi 94 // $94 retreat
  03a9:39 59            pushi 59 // $59 showStr
  03ab:38 00ca          pushi ca // $ca show
  03ae:76               push0 
  03af:39 7e            pushi 7e // $7e setCycle
  03b1:78               push1 
  03b2:51 16            class Fwd 
  03b4:36                push 
  03b5:72 0702          lofsa $0aba // glorSmoke
  03b8:4a 12             send 12 


        code_03ba
  03ba:38 00c6          pushi c6 // $c6 stopUpd
  03bd:76               push0 
  03be:72 050f          lofsa $08d0 // clarMouth
  03c1:4a 04             send 4 

  03c3:39 04            pushi 4 // $4 x
  03c5:76               push0 
  03c6:72 05a3          lofsa $096c // Hand
  03c9:4a 04             send 4 

  03cb:36                push 
  03cc:35 7a              ldi 7a 
  03ce:1a                 eq? 
  03cf:31 1e              bnt code_03ef 
  03d1:39 03            pushi 3 // $3 y
  03d3:76               push0 
  03d4:72 0595          lofsa $096c // Hand
  03d7:4a 04             send 4 

  03d9:36                push 
  03da:34 0087            ldi 87 
  03dd:1a                 eq? 
  03de:31 0f              bnt code_03ef 
  03e0:38 00ca          pushi ca // $ca show
  03e3:76               push0 
  03e4:39 7e            pushi 7e // $7e setCycle
  03e6:78               push1 
  03e7:51 1a            class End 
  03e9:36                push 
  03ea:72 0531          lofsa $091e // Smoke
  03ed:4a 0a             send a 


        code_03ef
  03ef:38 00d3          pushi d3 // $d3 setMotion
  03f2:39 03            pushi 3 // $3 y
  03f4:51 1d            class MoveTo 
  03f6:36                push 
  03f7:39 7a            pushi 7a // $7a setScript
  03f9:38 0087          pushi 87 // $87 clean
  03fc:72 056d          lofsa $096c // Hand
  03ff:4a 0a             send a 

  0401:32 00a3            jmp code_04a7 

        code_0404
  0404:39 7e            pushi 7e // $7e setCycle
  0406:78               push1 
  0407:51 16            class Fwd 
  0409:36                push 
  040a:72 04c3          lofsa $08d0 // clarMouth
  040d:4a 06             send 6 

  040f:38 00d3          pushi d3 // $d3 setMotion
  0412:39 03            pushi 3 // $3 y
  0414:51 1d            class MoveTo 
  0416:36                push 
  0417:38 008c          pushi 8c // $8c track
  041a:38 00be          pushi be // $be offScreenOK
  041d:72 054c          lofsa $096c // Hand
  0420:4a 0a             send a 

  0422:39 04            pushi 4 // $4 x
  0424:76               push0 
  0425:72 07e0          lofsa $0c08 // glorHand
  0428:4a 04             send 4 

  042a:36                push 
  042b:34 00ba            ldi ba 
  042e:1a                 eq? 
  042f:31 42              bnt code_0473 
  0431:39 03            pushi 3 // $3 y
  0433:76               push0 
  0434:72 07d1          lofsa $0c08 // glorHand
  0437:4a 04             send 4 

  0439:36                push 
  043a:35 6f              ldi 6f 
  043c:1a                 eq? 
  043d:31 34              bnt code_0473 
  043f:8b 00              lsl local0 
  0441:35 00              ldi 0 
  0443:1a                 eq? 
  0444:31 2d              bnt code_0473 
  0446:35 01              ldi 1 
  0448:a3 00              sal local0 
  044a:38 00ca          pushi ca // $ca show
  044d:76               push0 
  044e:72 071b          lofsa $0b6c // glow
  0451:4a 04             send 4 

  0453:39 06            pushi 6 // $6 loop
  0455:78               push1 
  0456:7a               push2 
  0457:39 7e            pushi 7e // $7e setCycle
  0459:78               push1 
  045a:51 16            class Fwd 
  045c:36                push 
  045d:38 00a4          pushi a4 // $a4 cycleSpeed
  0460:78               push1 
  0461:39 03            pushi 3 // $3 y
  0463:72 05b8          lofsa $0a1e // glorMouth
  0466:4a 12             send 12 

  0468:38 0089          pushi 89 // $89 hide
  046b:76               push0 
  046c:72 064b          lofsa $0aba // glorSmoke
  046f:4a 04             send 4 

  0471:33 34              jmp code_04a7 

        code_0473
  0473:83 00              lal local0 
  0475:18                 not 
  0476:31 2f              bnt code_04a7 
  0478:38 00d3          pushi d3 // $d3 setMotion
  047b:39 03            pushi 3 // $3 y
  047d:51 1d            class MoveTo 
  047f:36                push 
  0480:38 00ba          pushi ba // $ba targetX
  0483:39 6f            pushi 6f // $6f handleEvent
  0485:72 0780          lofsa $0c08 // glorHand
  0488:4a 0a             send a 

  048a:38 00d3          pushi d3 // $d3 setMotion
  048d:39 03            pushi 3 // $3 y
  048f:51 1d            class MoveTo 
  0491:36                push 
  0492:38 00a9          pushi a9 // $a9 moveDone
  0495:39 59            pushi 59 // $59 showStr
  0497:72 0620          lofsa $0aba // glorSmoke
  049a:4a 0a             send a 

  049c:39 7e            pushi 7e // $7e setCycle
  049e:78               push1 
  049f:51 1a            class End 
  04a1:36                push 
  04a2:72 0579          lofsa $0a1e // glorMouth
  04a5:4a 06             send 6 


        code_04a7
  04a7:48                 ret 
    )

    (method (changeState) // method_04a8
  04a8:39 2d            pushi 2d // $2d client
  04aa:76               push0 
  04ab:72 038a          lofsa $0838 // cycleMouth
  04ae:4a 04             send 4 

  04b0:31 0b              bnt code_04bd 
  04b2:35 01              ldi 1 
  04b4:a3 02              sal local2 
  04b6:35 01              ldi 1 
  04b8:65 10             aTop cycles 
  04ba:32 0182            jmp code_063f 

        code_04bd
  04bd:87 01              lap param1 
  04bf:65 0a             aTop state 
  04c1:36                push 
  04c2:3c                 dup 
  04c3:35 00              ldi 0 
  04c5:1a                 eq? 
  04c6:31 41              bnt code_0509 
  04c8:80 00d8            lag global216 
  04cb:18                 not 
  04cc:31 06              bnt code_04d4 
  04ce:35 ff              ldi ff 
  04d0:65 0a             aTop state 
  04d2:33 2e              jmp code_0502 

        code_04d4
  04d4:89 76              lsg gMustDos 
  04d6:35 02              ldi 2 
  04d8:12                 and 
  04d9:18                 not 
  04da:31 1b              bnt code_04f7 
  04dc:89 76              lsg gMustDos 
  04de:35 02              ldi 2 
  04e0:14                  or 
  04e1:a1 76              sag gMustDos 
  04e3:39 7a            pushi 7a // $7a setScript
  04e5:78               push1 
  04e6:7a               push2 
  04e7:38 0196          pushi 196 // $196 sel_406
  04ea:76               push0 
  04eb:43 02 04         callk ScriptID 4 

  04ee:36                push 
  04ef:54 06             self 6 

  04f1:35 ff              ldi ff 
  04f3:65 0a             aTop state 
  04f5:33 0b              jmp code_0502 

        code_04f7
  04f7:39 76            pushi 76 // $76 script
  04f9:76               push0 
  04fa:54 04             self 4 

  04fc:31 04              bnt code_0502 
  04fe:35 ff              ldi ff 
  0500:65 0a             aTop state 

        code_0502
  0502:35 01              ldi 1 
  0504:65 10             aTop cycles 
  0506:32 0135            jmp code_063e 

        code_0509
  0509:3c                 dup 
  050a:35 01              ldi 1 
  050c:1a                 eq? 
  050d:31 33              bnt code_0542 
  050f:39 0e            pushi e // $e lsLeft
  0511:38 0143          pushi 143 // $143 elevatorFunc
  0514:76               push0 
  0515:39 64            pushi 64 // $64 allTrue
  0517:39 30            pushi 30 // $30 b-moveCnt
  0519:39 08            pushi 8 // $8 underBits
  051b:39 6a            pushi 6a // $6a prev
  051d:38 0100          pushi 100 // $100 notify
  0520:39 66            pushi 66 // $66 isEmpty
  0522:39 0f            pushi f // $f lsBottom
  0524:39 67            pushi 67 // $67 first
  0526:39 ff            pushi ff // $ff checkAni
  0528:39 69            pushi 69 // $69 last
  052a:76               push0 
  052b:39 6b            pushi 6b // $6b addToFront
  052d:43 1b 1c         callk Display 1c 

  0530:a3 03              sal local3 
  0532:7a               push2 
  0533:38 0143          pushi 143 // $143 elevatorFunc
  0536:78               push1 
  0537:40 fb41 04        call proc_007c 4 

  053b:35 0a              ldi a 
  053d:65 12             aTop seconds 
  053f:32 00fc            jmp code_063e 

        code_0542
  0542:3c                 dup 
  0543:35 02              ldi 2 
  0545:1a                 eq? 
  0546:31 10              bnt code_0558 
  0548:7a               push2 
  0549:38 0143          pushi 143 // $143 elevatorFunc
  054c:7a               push2 
  054d:40 fadb 04        call proc_002c 4 

  0551:35 04              ldi 4 
  0553:65 12             aTop seconds 
  0555:32 00e6            jmp code_063e 

        code_0558
  0558:3c                 dup 
  0559:35 03              ldi 3 
  055b:1a                 eq? 
  055c:31 11              bnt code_056f 
  055e:7a               push2 
  055f:38 0143          pushi 143 // $143 elevatorFunc
  0562:39 03            pushi 3 // $3 y
  0564:40 fb14 04        call proc_007c 4 

  0568:35 07              ldi 7 
  056a:65 12             aTop seconds 
  056c:32 00cf            jmp code_063e 

        code_056f
  056f:3c                 dup 
  0570:35 04              ldi 4 
  0572:1a                 eq? 
  0573:31 11              bnt code_0586 
  0575:7a               push2 
  0576:38 0143          pushi 143 // $143 elevatorFunc
  0579:39 04            pushi 4 // $4 x
  057b:40 faad 04        call proc_002c 4 

  057f:35 0a              ldi a 
  0581:65 12             aTop seconds 
  0583:32 00b8            jmp code_063e 

        code_0586
  0586:3c                 dup 
  0587:35 05              ldi 5 
  0589:1a                 eq? 
  058a:31 11              bnt code_059d 
  058c:7a               push2 
  058d:38 0143          pushi 143 // $143 elevatorFunc
  0590:39 05            pushi 5 // $5 view
  0592:40 fae6 04        call proc_007c 4 

  0596:35 08              ldi 8 
  0598:65 12             aTop seconds 
  059a:32 00a1            jmp code_063e 

        code_059d
  059d:3c                 dup 
  059e:35 06              ldi 6 
  05a0:1a                 eq? 
  05a1:31 11              bnt code_05b4 
  05a3:7a               push2 
  05a4:38 0143          pushi 143 // $143 elevatorFunc
  05a7:39 06            pushi 6 // $6 loop
  05a9:40 fa7f 04        call proc_002c 4 

  05ad:35 0a              ldi a 
  05af:65 12             aTop seconds 
  05b1:32 008a            jmp code_063e 

        code_05b4
  05b4:3c                 dup 
  05b5:35 07              ldi 7 
  05b7:1a                 eq? 
  05b8:31 10              bnt code_05ca 
  05ba:7a               push2 
  05bb:38 0143          pushi 143 // $143 elevatorFunc
  05be:39 07            pushi 7 // $7 cel
  05c0:40 fab8 04        call proc_007c 4 

  05c4:35 08              ldi 8 
  05c6:65 12             aTop seconds 
  05c8:33 74              jmp code_063e 

        code_05ca
  05ca:3c                 dup 
  05cb:35 08              ldi 8 
  05cd:1a                 eq? 
  05ce:31 10              bnt code_05e0 
  05d0:7a               push2 
  05d1:38 0143          pushi 143 // $143 elevatorFunc
  05d4:39 08            pushi 8 // $8 underBits
  05d6:40 faa2 04        call proc_007c 4 

  05da:35 08              ldi 8 
  05dc:65 12             aTop seconds 
  05de:33 5e              jmp code_063e 

        code_05e0
  05e0:3c                 dup 
  05e1:35 09              ldi 9 
  05e3:1a                 eq? 
  05e4:31 48              bnt code_062e 
  05e6:76               push0 
  05e7:45 0f 00         callb procedure_000f 0 // cls 

  05ea:38 0089          pushi 89 // $89 hide
  05ed:76               push0 
  05ee:72 02df          lofsa $08d0 // clarMouth
  05f1:4a 04             send 4 

  05f3:38 0089          pushi 89 // $89 hide
  05f6:76               push0 
  05f7:72 0472          lofsa $0a6c // clarEye
  05fa:4a 04             send 4 

  05fc:38 0089          pushi 89 // $89 hide
  05ff:76               push0 
  0600:72 041b          lofsa $0a1e // glorMouth
  0603:4a 04             send 4 

  0605:38 00c8          pushi c8 // $c8 setLoop
  0608:78               push1 
  0609:39 07            pushi 7 // $7 cel
  060b:38 00dc          pushi dc // $dc setStep
  060e:7a               push2 
  060f:39 05            pushi 5 // $5 view
  0611:39 05            pushi 5 // $5 view
  0613:38 00d3          pushi d3 // $d3 setMotion
  0616:39 04            pushi 4 // $4 x
  0618:51 1d            class MoveTo 
  061a:36                push 
  061b:39 d8            pushi d8 // $d8 observeBlocks
  061d:39 03            pushi 3 // $3 y
  061f:76               push0 
  0620:72 0249          lofsa $086c // Clarence
  0623:4a 04             send 4 

  0625:36                push 
  0626:7c            pushSelf 
  0627:72 0242          lofsa $086c // Clarence
  062a:4a 1a             send 1a 

  062c:33 10              jmp code_063e 

        code_062e
  062e:3c                 dup 
  062f:35 0a              ldi a 
  0631:1a                 eq? 
  0632:31 0a              bnt code_063e 
  0634:38 00f8          pushi f8 // $f8 newRoom
  0637:78               push1 
  0638:89 0c              lsg gPrevRoomNum 
  063a:81 02              lag gCurRoom 
  063c:4a 06             send 6 


        code_063e
  063e:3a                toss 

        code_063f
  063f:48                 ret 
    )

)

// 0802
(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_0640
  0640:87 01              lap param1 
  0642:65 0a             aTop state 
  0644:36                push 
  0645:3c                 dup 
  0646:35 00              ldi 0 
  0648:1a                 eq? 
  0649:31 1e              bnt code_0669 
  064b:38 00c5          pushi c5 // $c5 posn
  064e:7a               push2 
  064f:38 0094          pushi 94 // $94 retreat
  0652:39 59            pushi 59 // $59 showStr
  0654:38 00ca          pushi ca // $ca show
  0657:76               push0 
  0658:39 7e            pushi 7e // $7e setCycle
  065a:78               push1 
  065b:51 16            class Fwd 
  065d:36                push 
  065e:72 0459          lofsa $0aba // glorSmoke
  0661:4a 12             send 12 

  0663:35 01              ldi 1 
  0665:65 10             aTop cycles 
  0667:33 5c              jmp code_06c5 

        code_0669
  0669:3c                 dup 
  066a:35 01              ldi 1 
  066c:1a                 eq? 
  066d:31 15              bnt code_0684 
  066f:39 03            pushi 3 // $3 y
  0671:38 0143          pushi 143 // $143 elevatorFunc
  0674:39 09            pushi 9 // $9 nsTop
  0676:39 58            pushi 58 // $58 dispose
  0678:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  067e:35 04              ldi 4 
  0680:65 12             aTop seconds 
  0682:33 41              jmp code_06c5 

        code_0684
  0684:3c                 dup 
  0685:35 02              ldi 2 
  0687:1a                 eq? 
  0688:31 2b              bnt code_06b5 
  068a:76               push0 
  068b:45 0f 00         callb procedure_000f 0 // cls 

  068e:38 00d3          pushi d3 // $d3 setMotion
  0691:39 03            pushi 3 // $3 y
  0693:51 1d            class MoveTo 
  0695:36                push 
  0696:38 00a9          pushi a9 // $a9 moveDone
  0699:39 59            pushi 59 // $59 showStr
  069b:72 041c          lofsa $0aba // glorSmoke
  069e:4a 0a             send a 

  06a0:38 00d3          pushi d3 // $d3 setMotion
  06a3:39 04            pushi 4 // $4 x
  06a5:51 1d            class MoveTo 
  06a7:36                push 
  06a8:38 00ba          pushi ba // $ba targetX
  06ab:39 6f            pushi 6f // $6f handleEvent
  06ad:7c            pushSelf 
  06ae:72 0557          lofsa $0c08 // glorHand
  06b1:4a 0c             send c 

  06b3:33 10              jmp code_06c5 

        code_06b5
  06b5:3c                 dup 
  06b6:35 03              ldi 3 
  06b8:1a                 eq? 
  06b9:31 0a              bnt code_06c5 
  06bb:38 00f8          pushi f8 // $f8 newRoom
  06be:78               push1 
  06bf:89 0c              lsg gPrevRoomNum 
  06c1:81 02              lag gCurRoom 
  06c3:4a 06             send 6 


        code_06c5
  06c5:3a                toss 
  06c6:48                 ret 
    )

)

// 0832
(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_06c7
  06c7:39 3c            pushi 3c // $3c doit
  06c9:76               push0 
  06ca:57 05 04         super Script 4 

  06cd:83 02              lal local2 
  06cf:31 08              bnt code_06d9 
  06d1:35 00              ldi 0 
  06d3:a3 02              sal local2 
  06d5:35 01              ldi 1 
  06d7:65 10             aTop cycles 

        code_06d9
  06d9:48                 ret 
    )

    (method (changeState) // method_06da
  06da:87 01              lap param1 
  06dc:65 0a             aTop state 
  06de:36                push 
  06df:3c                 dup 
  06e0:35 00              ldi 0 
  06e2:1a                 eq? 
  06e3:31 18              bnt code_06fd 
  06e5:39 07            pushi 7 // $7 cel
  06e7:78               push1 
  06e8:76               push0 
  06e9:39 7e            pushi 7e // $7e setCycle
  06eb:78               push1 
  06ec:51 16            class Fwd 
  06ee:36                push 
  06ef:38 00ca          pushi ca // $ca show
  06f2:76               push0 
  06f3:63 08             pToa client 
  06f5:4a 10             send 10 

  06f7:83 01              lal local1 
  06f9:65 10             aTop cycles 
  06fb:33 18              jmp code_0715 

        code_06fd
  06fd:3c                 dup 
  06fe:35 01              ldi 1 
  0700:1a                 eq? 
  0701:31 12              bnt code_0715 
  0703:39 7a            pushi 7a // $7a setScript
  0705:78               push1 
  0706:76               push0 
  0707:38 0089          pushi 89 // $89 hide
  070a:76               push0 
  070b:63 08             pToa client 
  070d:4a 0a             send a 

  070f:39 2d            pushi 2d // $2d client
  0711:78               push1 
  0712:76               push0 
  0713:54 06             self 6 


        code_0715
  0715:3a                toss 
  0716:48                 ret 
  0717:00                bnot 
    )

)

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

// 08ca
(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
    )
)

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

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

// 09ca
(instance Gloria of Prop
    (properties
        y $6e
        x $e7
        z $0
        heading $0
        yStep $2
        view $16f
        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
    )
)

// 0a18
(instance glorMouth of Prop
    (properties
        y $60
        x $d3
        z $0
        heading $0
        yStep $2
        view $16f
        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
    )
)

// 0a66
(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
    )
)

// 0ab4
(instance glorSmoke of Act
    (properties
        y $59
        x $94
        z $0
        heading $0
        yStep $5
        view $16f
        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
    )
)

// 0b18
(instance glorEye of Prop
    (properties
        y $4c
        x $cc
        z $0
        heading $0
        yStep $2
        view $16f
        loop $7
        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
    )
)

// 0b66
(instance glow of Prop
    (properties
        y $59
        x $aa
        z $0
        heading $0
        yStep $2
        view $16f
        loop $1
        cel $1
        priority $0
        underBits $0
        signal $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        lsTop $0
        lsLeft $0
        lsBottom $0
        lsRight $0
        brTop $0
        brLeft $0
        brBottom $0
        brRight $0
        cycleSpeed $0
        script $0
        cycler $0
        timer $0
    )
)

// 0bb4
(instance puff of Prop
    (properties
        y $58
        x $c4
        z $0
        heading $0
        yStep $2
        view $16f
        loop $8
        cel $0
        priority $0
        underBits $0
        signal $4000
        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
    )
)

// 0c02
(instance glorHand of Act
    (properties
        y $6f
        x $a7
        z $0
        heading $0
        yStep $2
        view $16f
        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
    )
)

// 0c66
(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:39 07            pushi 7 // $7 cel
  002e:78               push1 
  002f:76               push0 
  0030:39 7e            pushi 7e // $7e setCycle
  0032:78               push1 
  0033:51 1a            class End 
  0035:36                push 
  0036:38 00ca          pushi ca // $ca show
  0039:76               push0 
  003a:72 0b7d          lofsa $0bba // puff
  003d:4a 10             send 10 

  003f:76               push0 
  0040:59 01            &rest 1 
  0042:41 c7 00          call proc_000c 0 

  0045:8b 01              lsl local1 
  0047:8b 01              lsl local1 
  0049:35 04              ldi 4 
  004b:08                 div 
  004c:02                 add 
  004d:a3 01              sal local1 
  004f:39 7a            pushi 7a // $7a setScript
  0051:78               push1 
  0052:74 07e3          lofss $0838 // cycleMouth
  0055:72 09c6          lofsa $0a1e // glorMouth
  0058:4a 06             send 6 

  005a:39 0b            pushi b // $b nsBottom
  005c:59 01            &rest 1 
  005e:39 43            pushi 43 // $43 at
  0060:38 008c          pushi 8c // $8c track
  0063:39 73            pushi 73 // $73 seconds
  0065:39 21            pushi 21 // $21 font
  0067:39 04            pushi 4 // $4 x
  0069:39 46            pushi 46 // $46 width
  006b:38 008c          pushi 8c // $8c track
  006e:39 1e            pushi 1e // $1e mode
  0070:78               push1 
  0071:39 53            pushi 53 // $53 draw
  0073:39 58            pushi 58 // $58 dispose
  0075:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  007b:48                 ret 
)

(procedure proc_007c
  007c:38 0089          pushi 89 // $89 hide
  007f:76               push0 
  0080:72 0b37          lofsa $0bba // puff
  0083:4a 04             send 4 

  0085:76               push0 
  0086:59 01            &rest 1 
  0088:41 81 00          call proc_000c 0 

  008b:8b 01              lsl local1 
  008d:8b 01              lsl local1 
  008f:35 02              ldi 2 
  0091:08                 div 
  0092:02                 add 
  0093:a3 01              sal local1 
  0095:39 7a            pushi 7a // $7a setScript
  0097:78               push1 
  0098:74 079d          lofss $0838 // cycleMouth
  009b:72 0832          lofsa $08d0 // clarMouth
  009e:4a 06             send 6 

  00a0:39 0b            pushi b // $b nsBottom
  00a2:59 01            &rest 1 
  00a4:39 43            pushi 43 // $43 at
  00a6:39 0a            pushi a // $a nsLeft
  00a8:39 73            pushi 73 // $73 seconds
  00aa:39 21            pushi 21 // $21 font
  00ac:39 04            pushi 4 // $4 x
  00ae:39 46            pushi 46 // $46 width
  00b0:38 008c          pushi 8c // $8c track
  00b3:39 1e            pushi 1e // $1e mode
  00b5:78               push1 
  00b6:39 53            pushi 53 // $53 draw
  00b8:39 58            pushi 58 // $58 dispose
  00ba:46 00ff 0000 16  calle ff procedure_0000 16 // Print 

  00c0:48                 ret 
)

(procedure proc_00c1
  00c1:88 00ad            lsg gSpyFlags 
  00c4:35 01              ldi 1 
  00c6:14                  or 
  00c7:a0 00ad            sag gSpyFlags 
  00ca:35 00              ldi 0 
  00cc:a0 0171            sag global369 
  00cf:78               push1 
  00d0:39 17            pushi 17 // $17 name
  00d2:45 05 02         callb procedure_0005 2 // SetFlag 

  00d5:48                 ret 
)

