(script 334)

(string
    string_048e "Clarence"
    string_0497 "Eye"
    string_049b "Hand"
    string_04a0 "movements"
    string_04aa "myMusic"
    string_04b2 "scene48f"
    string_04bb "twice"
    string_04c1 "writing"
    string_04c9 ""
)

(said
)

(local
    local0 = $0000
)

// 0284
(instance Clarence 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
    )
)

// 02d2
(instance Eye 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
    )
)

// 0320
(instance Hand of Act
    (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
        illegalBits $8000
        xLast $0
        yLast $0
        xStep $3
        moveSpeed $0
        blocks $0
        baseSetter $0
        mover $0
        looper $0
        viewer $0
        avoider $0
    )
)

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

// 03ae
(instance public scene48f 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_000c
  000c:39 57            pushi 57 // $57 init
  000e:76               push0 
  000f:57 37 04         super Rm 4 

  0012:76               push0 
  0013:45 03 00         callb procedure_0003 0 // HandsOff 

  0016:7a               push2 
  0017:38 0087          pushi 87 // $87 clean
  001a:39 29            pushi 29 // $29 edit
  001c:43 00 04         callk Load 4 

  001f:7a               push2 
  0020:38 0080          pushi 80 // $80 timeLeft
  0023:38 0282          pushi 282 // $282 sel_642
  0026:43 00 04         callk Load 4 

  0029:39 05            pushi 5 // $5 view
  002b:38 0084          pushi 84 // $84 stop
  002e:39 1d            pushi 1d // $1d back
  0030:39 5e            pushi 5e // $5e respondsTo
  0032:39 5f            pushi 5f // $5f yourself
  0034:39 60            pushi 60 // $60 size
  0036:45 15 0a         callb procedure_0015 a // LoadMany 

  0039:7a               push2 
  003a:38 008f          pushi 8f // $8f moveTo
  003d:38 0196          pushi 196 // $196 sel_406
  0040:45 15 04         callb procedure_0015 4 // LoadMany 

  0043:39 2b            pushi 2b // $2b number
  0045:78               push1 
  0046:39 1b            pushi 1b // $1b elements
  0048:39 06            pushi 6 // $6 loop
  004a:78               push1 
  004b:39 ff            pushi ff // $ff checkAni
  004d:39 2a            pushi 2a // $2a play
  004f:76               push0 
  0050:72 0337          lofsa $038a // myMusic
  0053:4a 10             send 10 

  0055:39 05            pushi 5 // $5 view
  0057:78               push1 
  0058:38 019b          pushi 19b // $19b sel_411
  005b:38 00c5          pushi c5 // $c5 posn
  005e:7a               push2 
  005f:39 7e            pushi 7e // $7e setCycle
  0061:39 68            pushi 68 // $68 release
  0063:39 06            pushi 6 // $6 loop
  0065:78               push1 
  0066:7a               push2 
  0067:39 07            pushi 7 // $7 cel
  0069:78               push1 
  006a:76               push0 
  006b:39 42            pushi 42 // $42 setPri
  006d:78               push1 
  006e:7a               push2 
  006f:38 00c9          pushi c9 // $c9 ignoreActors
  0072:78               push1 
  0073:78               push1 
  0074:39 57            pushi 57 // $57 init
  0076:76               push0 
  0077:72 0210          lofsa $028a // Clarence
  007a:4a 2a             send 2a 

  007c:39 05            pushi 5 // $5 view
  007e:78               push1 
  007f:38 019b          pushi 19b // $19b sel_411
  0082:38 00c5          pushi c5 // $c5 posn
  0085:7a               push2 
  0086:39 5c            pushi 5c // $5c isKindOf
  0088:39 6d            pushi 6d // $6d addAfter
  008a:38 00c8          pushi c8 // $c8 setLoop
  008d:78               push1 
  008e:39 03            pushi 3 // $3 y
  0090:39 07            pushi 7 // $7 cel
  0092:78               push1 
  0093:76               push0 
  0094:39 42            pushi 42 // $42 setPri
  0096:78               push1 
  0097:78               push1 
  0098:39 7a            pushi 7a // $7a setScript
  009a:78               push1 
  009b:74 0392          lofss $0430 // writing
  009e:39 57            pushi 57 // $57 init
  00a0:76               push0 
  00a1:72 0282          lofsa $0326 // Hand
  00a4:4a 2a             send 2a 

  00a6:39 05            pushi 5 // $5 view
  00a8:78               push1 
  00a9:38 019b          pushi 19b // $19b sel_411
  00ac:38 00c5          pushi c5 // $c5 posn
  00af:7a               push2 
  00b0:39 66            pushi 66 // $66 isEmpty
  00b2:39 4b            pushi 4b // $4b said
  00b4:38 00c8          pushi c8 // $c8 setLoop
  00b7:78               push1 
  00b8:39 04            pushi 4 // $4 x
  00ba:39 07            pushi 7 // $7 cel
  00bc:78               push1 
  00bd:78               push1 
  00be:39 42            pushi 42 // $42 setPri
  00c0:78               push1 
  00c1:39 03            pushi 3 // $3 y
  00c3:39 7a            pushi 7a // $7a setScript
  00c5:78               push1 
  00c6:74 0397          lofss $0460 // movements
  00c9:39 57            pushi 57 // $57 init
  00cb:76               push0 
  00cc:72 0209          lofsa $02d8 // Eye
  00cf:4a 2a             send 2a 

  00d1:39 7a            pushi 7a // $7a setScript
  00d3:78               push1 
  00d4:74 0329          lofss $0400 // twice
  00d7:54 06             self 6 

  00d9:48                 ret 
    )

    (method (doit) // method_00da
  00da:39 3c            pushi 3c // $3c doit
  00dc:76               push0 
  00dd:57 37 04         super Rm 4 

  00e0:48                 ret 
    )

    (method (dispose) // method_00e1
  00e1:39 58            pushi 58 // $58 dispose
  00e3:76               push0 
  00e4:57 37 04         super Rm 4 

  00e7:48                 ret 
    )

    (method (handleEvent) // method_00e8
  00e8:39 6f            pushi 6f // $6f handleEvent
  00ea:78               push1 
  00eb:8f 01              lsp param1 
  00ed:57 37 06         super Rm 6 

  00f0:48                 ret 
    )

)

// 03fa
(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_00f1
  00f1:87 01              lap param1 
  00f3:65 0a             aTop state 
  00f5:36                push 
  00f6:3c                 dup 
  00f7:35 00              ldi 0 
  00f9:1a                 eq? 
  00fa:31 40              bnt code_013c 
  00fc:80 00d8            lag global216 
  00ff:18                 not 
  0100:31 06              bnt code_0108 
  0102:35 ff              ldi ff 
  0104:65 0a             aTop state 
  0106:33 2e              jmp code_0136 

        code_0108
  0108:89 76              lsg gMustDos 
  010a:35 08              ldi 8 
  010c:12                 and 
  010d:18                 not 
  010e:31 1b              bnt code_012b 
  0110:89 76              lsg gMustDos 
  0112:35 08              ldi 8 
  0114:14                  or 
  0115:a1 76              sag gMustDos 
  0117:39 7a            pushi 7a // $7a setScript
  0119:78               push1 
  011a:7a               push2 
  011b:38 0196          pushi 196 // $196 sel_406
  011e:76               push0 
  011f:43 02 04         callk ScriptID 4 

  0122:36                push 
  0123:54 06             self 6 

  0125:35 ff              ldi ff 
  0127:65 0a             aTop state 
  0129:33 0b              jmp code_0136 

        code_012b
  012b:39 76            pushi 76 // $76 script
  012d:76               push0 
  012e:54 04             self 4 

  0130:31 04              bnt code_0136 
  0132:35 ff              ldi ff 
  0134:65 0a             aTop state 

        code_0136
  0136:35 01              ldi 1 
  0138:65 10             aTop cycles 
  013a:33 2a              jmp code_0166 

        code_013c
  013c:3c                 dup 
  013d:35 01              ldi 1 
  013f:1a                 eq? 
  0140:31 14              bnt code_0156 
  0142:39 03            pushi 3 // $3 y
  0144:38 014e          pushi 14e // $14e exitY
  0147:76               push0 
  0148:39 58            pushi 58 // $58 dispose
  014a:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  0150:35 08              ldi 8 
  0152:65 12             aTop seconds 
  0154:33 10              jmp code_0166 

        code_0156
  0156:3c                 dup 
  0157:35 02              ldi 2 
  0159:1a                 eq? 
  015a:31 0a              bnt code_0166 
  015c:38 00f8          pushi f8 // $f8 newRoom
  015f:78               push1 
  0160:89 0c              lsg gPrevRoomNum 
  0162:81 02              lag gCurRoom 
  0164:4a 06             send 6 


        code_0166
  0166:3a                toss 
  0167:48                 ret 
    )

)

// 042a
(instance writing 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_0168
  0168:87 01              lap param1 
  016a:65 0a             aTop state 
  016c:36                push 
  016d:3c                 dup 
  016e:35 00              ldi 0 
  0170:1a                 eq? 
  0171:31 14              bnt code_0187 
  0173:38 00d3          pushi d3 // $d3 setMotion
  0176:39 04            pushi 4 // $4 x
  0178:51 1d            class MoveTo 
  017a:36                push 
  017b:39 5a            pushi 5a // $5a showSelf
  017d:39 78            pushi 78 // $78 changeState
  017f:7c            pushSelf 
  0180:72 01a3          lofsa $0326 // Hand
  0183:4a 0c             send c 

  0185:33 7d              jmp code_0204 

        code_0187
  0187:3c                 dup 
  0188:35 01              ldi 1 
  018a:1a                 eq? 
  018b:31 49              bnt code_01d6 
  018d:7a               push2 
  018e:78               push1 
  018f:39 08            pushi 8 // $8 underBits
  0191:43 40 04         callk Random 4 

  0194:36                push 
  0195:35 01              ldi 1 
  0197:1c                 ne? 
  0198:31 28              bnt code_01c2 
  019a:35 00              ldi 0 
  019c:65 0a             aTop state 
  019e:38 00c5          pushi c5 // $c5 posn
  01a1:7a               push2 
  01a2:39 5a            pushi 5a // $5a showSelf
  01a4:7a               push2 
  01a5:76               push0 
  01a6:7a               push2 
  01a7:43 40 04         callk Random 4 

  01aa:04                 sub 
  01ab:36                push 
  01ac:39 78            pushi 78 // $78 changeState
  01ae:7a               push2 
  01af:76               push0 
  01b0:39 03            pushi 3 // $3 y
  01b2:43 40 04         callk Random 4 

  01b5:04                 sub 
  01b6:36                push 
  01b7:72 016c          lofsa $0326 // Hand
  01ba:4a 08             send 8 

  01bc:35 02              ldi 2 
  01be:65 10             aTop cycles 
  01c0:33 12              jmp code_01d4 

        code_01c2
  01c2:38 00d3          pushi d3 // $d3 setMotion
  01c5:39 04            pushi 4 // $4 x
  01c7:51 1d            class MoveTo 
  01c9:36                push 
  01ca:39 5a            pushi 5a // $5a showSelf
  01cc:39 78            pushi 78 // $78 changeState
  01ce:7c            pushSelf 
  01cf:72 0154          lofsa $0326 // Hand
  01d2:4a 0c             send c 


        code_01d4
  01d4:33 2e              jmp code_0204 

        code_01d6
  01d6:3c                 dup 
  01d7:35 02              ldi 2 
  01d9:1a                 eq? 
  01da:31 14              bnt code_01f0 
  01dc:38 00d3          pushi d3 // $d3 setMotion
  01df:39 04            pushi 4 // $4 x
  01e1:51 1d            class MoveTo 
  01e3:36                push 
  01e4:39 5c            pushi 5c // $5c isKindOf
  01e6:39 6d            pushi 6d // $6d addAfter
  01e8:7c            pushSelf 
  01e9:72 013a          lofsa $0326 // Hand
  01ec:4a 0c             send c 

  01ee:33 14              jmp code_0204 

        code_01f0
  01f0:3c                 dup 
  01f1:35 03              ldi 3 
  01f3:1a                 eq? 
  01f4:31 0e              bnt code_0204 
  01f6:35 ff              ldi ff 
  01f8:65 0a             aTop state 
  01fa:7a               push2 
  01fb:39 05            pushi 5 // $5 view
  01fd:39 0a            pushi a // $a nsLeft
  01ff:43 40 04         callk Random 4 

  0202:65 10             aTop cycles 

        code_0204
  0204:3a                toss 
  0205:48                 ret 
    )

)

// 045a
(instance movements 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_0206
  0206:87 01              lap param1 
  0208:65 0a             aTop state 
  020a:36                push 
  020b:3c                 dup 
  020c:35 00              ldi 0 
  020e:1a                 eq? 
  020f:31 31              bnt code_0242 
  0211:7a               push2 
  0212:78               push1 
  0213:39 05            pushi 5 // $5 view
  0215:43 40 04         callk Random 4 

  0218:36                push 
  0219:35 01              ldi 1 
  021b:1a                 eq? 
  021c:31 1e              bnt code_023c 
  021e:38 0089          pushi 89 // $89 hide
  0221:76               push0 
  0222:72 00b3          lofsa $02d8 // Eye
  0225:4a 04             send 4 

  0227:39 07            pushi 7 // $7 cel
  0229:78               push1 
  022a:78               push1 
  022b:72 005c          lofsa $028a // Clarence
  022e:4a 06             send 6 

  0230:7a               push2 
  0231:39 04            pushi 4 // $4 x
  0233:39 0a            pushi a // $a nsLeft
  0235:43 40 04         callk Random 4 

  0238:65 10             aTop cycles 
  023a:33 04              jmp code_0240 

        code_023c
  023c:35 01              ldi 1 
  023e:65 10             aTop cycles 

        code_0240
  0240:33 3a              jmp code_027c 

        code_0242
  0242:3c                 dup 
  0243:35 01              ldi 1 
  0245:1a                 eq? 
  0246:31 34              bnt code_027c 
  0248:39 07            pushi 7 // $7 cel
  024a:76               push0 
  024b:72 003c          lofsa $028a // Clarence
  024e:4a 04             send 4 

  0250:31 09              bnt code_025b 
  0252:39 07            pushi 7 // $7 cel
  0254:78               push1 
  0255:76               push0 
  0256:72 0031          lofsa $028a // Clarence
  0259:4a 06             send 6 


        code_025b
  025b:38 00ca          pushi ca // $ca show
  025e:76               push0 
  025f:39 07            pushi 7 // $7 cel
  0261:78               push1 
  0262:7a               push2 
  0263:76               push0 
  0264:78               push1 
  0265:43 40 04         callk Random 4 

  0268:36                push 
  0269:72 006c          lofsa $02d8 // Eye
  026c:4a 0a             send a 

  026e:35 ff              ldi ff 
  0270:65 0a             aTop state 
  0272:7a               push2 
  0273:39 04            pushi 4 // $4 x
  0275:39 0f            pushi f // $f lsBottom
  0277:43 40 04         callk Random 4 

  027a:65 10             aTop cycles 

        code_027c
  027c:3a                toss 
  027d:48                 ret 
    )

)



