(script 352)

(string
    string_05ea "ColoEyes"
    string_05f3 "Colonel"
    string_05fb "Hand"
    string_0600 "Smoke"
    string_0606 "coloEyes"
    string_060f "coloFace"
    string_0618 "coloMouth"
    string_0622 "myMusic"
    string_062a "scene42b"
    string_0633 "twice"
    string_0639 ""
)

(said
)

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

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

// 036a
(instance Smoke 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
    )
)

// 03ce
(instance Colonel 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
    )
)

// 041c
(instance coloFace 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
    )
)

// 046a
(instance coloMouth 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
    )
)

// 04b8
(instance coloEyes 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
    )
)

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

// 0530
(instance public scene42b 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:39 2b            pushi 2b // $2b number
  0018:78               push1 
  0019:39 1b            pushi 1b // $1b elements
  001b:39 06            pushi 6 // $6 loop
  001d:78               push1 
  001e:39 ff            pushi ff // $ff checkAni
  0020:39 2a            pushi 2a // $2a play
  0022:76               push0 
  0023:72 04e6          lofsa $050c // myMusic
  0026:4a 10             send 10 

  0028:39 05            pushi 5 // $5 view
  002a:78               push1 
  002b:38 0137          pushi 137 // $137 downID
  002e:38 00c5          pushi c5 // $c5 posn
  0031:7a               push2 
  0032:39 65            pushi 65 // $65 contains
  0034:39 69            pushi 69 // $69 last
  0036:39 06            pushi 6 // $6 loop
  0038:78               push1 
  0039:78               push1 
  003a:39 07            pushi 7 // $7 cel
  003c:78               push1 
  003d:76               push0 
  003e:39 42            pushi 42 // $42 setPri
  0040:78               push1 
  0041:78               push1 
  0042:39 57            pushi 57 // $57 init
  0044:76               push0 
  0045:38 00c6          pushi c6 // $c6 stopUpd
  0048:76               push0 
  0049:72 0388          lofsa $03d4 // Colonel
  004c:4a 28             send 28 

  004e:39 05            pushi 5 // $5 view
  0050:78               push1 
  0051:38 0137          pushi 137 // $137 downID
  0054:38 00c5          pushi c5 // $c5 posn
  0057:7a               push2 
  0058:39 72            pushi 72 // $72 cycles
  005a:39 58            pushi 58 // $58 dispose
  005c:39 06            pushi 6 // $6 loop
  005e:78               push1 
  005f:76               push0 
  0060:39 07            pushi 7 // $7 cel
  0062:78               push1 
  0063:76               push0 
  0064:39 42            pushi 42 // $42 setPri
  0066:78               push1 
  0067:7a               push2 
  0068:39 57            pushi 57 // $57 init
  006a:76               push0 
  006b:38 00c6          pushi c6 // $c6 stopUpd
  006e:76               push0 
  006f:72 03b0          lofsa $0422 // coloFace
  0072:4a 28             send 28 

  0074:39 05            pushi 5 // $5 view
  0076:78               push1 
  0077:38 0137          pushi 137 // $137 downID
  007a:38 00c5          pushi c5 // $c5 posn
  007d:7a               push2 
  007e:39 72            pushi 72 // $72 cycles
  0080:39 03            pushi 3 // $3 y
  0082:76               push0 
  0083:72 039c          lofsa $0422 // coloFace
  0086:4a 04             send 4 

  0088:36                push 
  0089:35 0f              ldi f 
  008b:04                 sub 
  008c:36                push 
  008d:39 06            pushi 6 // $6 loop
  008f:78               push1 
  0090:7a               push2 
  0091:39 07            pushi 7 // $7 cel
  0093:78               push1 
  0094:76               push0 
  0095:39 42            pushi 42 // $42 setPri
  0097:78               push1 
  0098:39 03            pushi 3 // $3 y
  009a:39 7a            pushi 7a // $7a setScript
  009c:78               push1 
  009d:74 04e2          lofss $0582 // ColoEyes
  00a0:39 57            pushi 57 // $57 init
  00a2:76               push0 
  00a3:38 00c6          pushi c6 // $c6 stopUpd
  00a6:76               push0 
  00a7:72 0414          lofsa $04be // coloEyes
  00aa:4a 2e             send 2e 

  00ac:39 05            pushi 5 // $5 view
  00ae:78               push1 
  00af:38 0137          pushi 137 // $137 downID
  00b2:38 00c5          pushi c5 // $c5 posn
  00b5:7a               push2 
  00b6:39 72            pushi 72 // $72 cycles
  00b8:39 58            pushi 58 // $58 dispose
  00ba:39 06            pushi 6 // $6 loop
  00bc:78               push1 
  00bd:39 04            pushi 4 // $4 x
  00bf:39 07            pushi 7 // $7 cel
  00c1:78               push1 
  00c2:76               push0 
  00c3:39 42            pushi 42 // $42 setPri
  00c5:78               push1 
  00c6:7a               push2 
  00c7:38 00a4          pushi a4 // $a4 cycleSpeed
  00ca:78               push1 
  00cb:78               push1 
  00cc:39 57            pushi 57 // $57 init
  00ce:76               push0 
  00cf:38 0089          pushi 89 // $89 hide
  00d2:76               push0 
  00d3:72 039a          lofsa $0470 // coloMouth
  00d6:4a 2e             send 2e 

  00d8:39 05            pushi 5 // $5 view
  00da:78               push1 
  00db:38 0137          pushi 137 // $137 downID
  00de:38 00c5          pushi c5 // $c5 posn
  00e1:7a               push2 
  00e2:38 0080          pushi 80 // $80 timeLeft
  00e5:38 0088          pushi 88 // $88 fade
  00e8:38 00c8          pushi c8 // $c8 setLoop
  00eb:78               push1 
  00ec:78               push1 
  00ed:38 00a2          pushi a2 // $a2 setCel
  00f0:78               push1 
  00f1:78               push1 
  00f2:39 42            pushi 42 // $42 setPri
  00f4:78               push1 
  00f5:39 03            pushi 3 // $3 y
  00f7:39 38            pushi 38 // $38 moveSpeed
  00f9:78               push1 
  00fa:78               push1 
  00fb:39 12            pushi 12 // $12 illegalBits
  00fd:78               push1 
  00fe:76               push0 
  00ff:38 00c9          pushi c9 // $c9 ignoreActors
  0102:78               push1 
  0103:78               push1 
  0104:39 57            pushi 57 // $57 init
  0106:76               push0 
  0107:38 0089          pushi 89 // $89 hide
  010a:76               push0 
  010b:72 01fe          lofsa $030c // Hand
  010e:4a 3a             send 3a 

  0110:39 05            pushi 5 // $5 view
  0112:78               push1 
  0113:38 0137          pushi 137 // $137 downID
  0116:38 00c8          pushi c8 // $c8 setLoop
  0119:78               push1 
  011a:39 03            pushi 3 // $3 y
  011c:39 7e            pushi 7e // $7e setCycle
  011e:78               push1 
  011f:51 17            class Walk 
  0121:36                push 
  0122:39 42            pushi 42 // $42 setPri
  0124:78               push1 
  0125:39 03            pushi 3 // $3 y
  0127:39 12            pushi 12 // $12 illegalBits
  0129:78               push1 
  012a:76               push0 
  012b:38 00c9          pushi c9 // $c9 ignoreActors
  012e:78               push1 
  012f:78               push1 
  0130:39 57            pushi 57 // $57 init
  0132:76               push0 
  0133:38 0089          pushi 89 // $89 hide
  0136:76               push0 
  0137:72 0236          lofsa $0370 // Smoke
  013a:4a 2c             send 2c 

  013c:39 7a            pushi 7a // $7a setScript
  013e:78               push1 
  013f:74 0470          lofss $05b2 // twice
  0142:54 06             self 6 

  0144:48                 ret 
    )

    (method (doit) // method_0145
  0145:39 3c            pushi 3c // $3c doit
  0147:76               push0 
  0148:57 37 04         super Rm 4 

  014b:48                 ret 
    )

    (method (dispose) // method_014c
  014c:39 58            pushi 58 // $58 dispose
  014e:76               push0 
  014f:57 37 04         super Rm 4 

  0152:48                 ret 
    )

    (method (handleEvent) // method_0153
  0153:39 6f            pushi 6f // $6f handleEvent
  0155:78               push1 
  0156:8f 01              lsp param1 
  0158:57 37 06         super Rm 6 

  015b:48                 ret 
    )

)

// 057c
(instance ColoEyes 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_015c
  015c:87 01              lap param1 
  015e:65 0a             aTop state 
  0160:36                push 
  0161:3c                 dup 
  0162:35 00              ldi 0 
  0164:1a                 eq? 
  0165:31 43              bnt code_01aa 
  0167:35 ff              ldi ff 
  0169:65 0a             aTop state 
  016b:8b 03              lsl local3 
  016d:35 01              ldi 1 
  016f:10                 xor 
  0170:a3 03              sal local3 
  0172:31 14              bnt code_0188 
  0174:38 0089          pushi 89 // $89 hide
  0177:76               push0 
  0178:72 0343          lofsa $04be // coloEyes
  017b:4a 04             send 4 

  017d:7a               push2 
  017e:7a               push2 
  017f:39 03            pushi 3 // $3 y
  0181:43 40 04         callk Random 4 

  0184:65 12             aTop seconds 
  0186:33 22              jmp code_01aa 

        code_0188
  0188:39 07            pushi 7 // $7 cel
  018a:78               push1 
  018b:7a               push2 
  018c:78               push1 
  018d:38 752f          pushi 752f // $752f sel_29999
  0190:43 40 04         callk Random 4 

  0193:36                push 
  0194:34 2710            ldi 2710 
  0197:08                 div 
  0198:36                push 
  0199:38 00c7          pushi c7 // $c7 forceUpd
  019c:76               push0 
  019d:38 00ca          pushi ca // $ca show
  01a0:76               push0 
  01a1:72 031a          lofsa $04be // coloEyes
  01a4:4a 0e             send e 

  01a6:35 03              ldi 3 
  01a8:65 10             aTop cycles 

        code_01aa
  01aa:3a                toss 
  01ab:48                 ret 
    )

)

// 05ac
(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 (doit) // method_01ac
  01ac:39 3c            pushi 3c // $3c doit
  01ae:76               push0 
  01af:57 05 04         super Script 4 

  01b2:67 0a             pTos state 
  01b4:35 03              ldi 3 
  01b6:1a                 eq? 
  01b7:31 20              bnt code_01d9 
  01b9:39 07            pushi 7 // $7 cel
  01bb:76               push0 
  01bc:72 01b1          lofsa $0370 // Smoke
  01bf:4a 04             send 4 

  01c1:36                push 
  01c2:78               push1 
  01c3:74 01aa          lofss $0370 // Smoke
  01c6:43 0e 02         callk NumCels 2 

  01c9:36                push 
  01ca:35 01              ldi 1 
  01cc:04                 sub 
  01cd:1a                 eq? 
  01ce:31 09              bnt code_01d9 
  01d0:38 0089          pushi 89 // $89 hide
  01d3:76               push0 
  01d4:72 0199          lofsa $0370 // Smoke
  01d7:4a 04             send 4 


        code_01d9
  01d9:48                 ret 
    )

    (method (changeState) // method_01da
  01da:87 01              lap param1 
  01dc:65 0a             aTop state 
  01de:36                push 
  01df:3c                 dup 
  01e0:35 00              ldi 0 
  01e2:1a                 eq? 
  01e3:31 15              bnt code_01fa 
  01e5:39 03            pushi 3 // $3 y
  01e7:38 0160          pushi 160 // $160 sel_352
  01ea:76               push0 
  01eb:39 58            pushi 58 // $58 dispose
  01ed:46 00ff 0000 06  calle ff procedure_0000 6 // Print 

  01f3:35 01              ldi 1 
  01f5:65 10             aTop cycles 
  01f7:32 0104            jmp code_02fe 

        code_01fa
  01fa:3c                 dup 
  01fb:35 01              ldi 1 
  01fd:1a                 eq? 
  01fe:31 3f              bnt code_023f 
  0200:39 07            pushi 7 // $7 cel
  0202:78               push1 
  0203:76               push0 
  0204:38 00c7          pushi c7 // $c7 forceUpd
  0207:76               push0 
  0208:72 0217          lofsa $0422 // coloFace
  020b:4a 0a             send a 

  020d:39 03            pushi 3 // $3 y
  020f:78               push1 
  0210:39 03            pushi 3 // $3 y
  0212:76               push0 
  0213:72 020c          lofsa $0422 // coloFace
  0216:4a 04             send 4 

  0218:36                push 
  0219:35 0f              ldi f 
  021b:04                 sub 
  021c:36                push 
  021d:38 00c7          pushi c7 // $c7 forceUpd
  0220:76               push0 
  0221:72 029a          lofsa $04be // coloEyes
  0224:4a 0a             send a 

  0226:38 00ca          pushi ca // $ca show
  0229:76               push0 
  022a:38 00d3          pushi d3 // $d3 setMotion
  022d:39 04            pushi 4 // $4 x
  022f:51 1d            class MoveTo 
  0231:36                push 
  0232:39 74            pushi 74 // $74 lastSeconds
  0234:39 74            pushi 74 // $74 lastSeconds
  0236:7c            pushSelf 
  0237:72 00d2          lofsa $030c // Hand
  023a:4a 10             send 10 

  023c:32 00bf            jmp code_02fe 

        code_023f
  023f:3c                 dup 
  0240:35 02              ldi 2 
  0242:1a                 eq? 
  0243:31 1f              bnt code_0264 
  0245:38 00c6          pushi c6 // $c6 stopUpd
  0248:76               push0 
  0249:72 00c0          lofsa $030c // Hand
  024c:4a 04             send 4 

  024e:38 00ca          pushi ca // $ca show
  0251:76               push0 
  0252:39 7e            pushi 7e // $7e setCycle
  0254:78               push1 
  0255:51 16            class Fwd 
  0257:36                push 
  0258:72 0215          lofsa $0470 // coloMouth
  025b:4a 0a             send a 

  025d:35 03              ldi 3 
  025f:65 12             aTop seconds 
  0261:32 009a            jmp code_02fe 

        code_0264
  0264:3c                 dup 
  0265:35 03              ldi 3 
  0267:1a                 eq? 
  0268:31 21              bnt code_028b 
  026a:39 7e            pushi 7e // $7e setCycle
  026c:78               push1 
  026d:51 1a            class End 
  026f:36                push 
  0270:72 01fd          lofsa $0470 // coloMouth
  0273:4a 06             send 6 

  0275:38 00d3          pushi d3 // $d3 setMotion
  0278:39 04            pushi 4 // $4 x
  027a:51 1d            class MoveTo 
  027c:36                push 
  027d:38 0080          pushi 80 // $80 timeLeft
  0280:38 0088          pushi 88 // $88 fade
  0283:7c            pushSelf 
  0284:72 0085          lofsa $030c // Hand
  0287:4a 0c             send c 

  0289:33 73              jmp code_02fe 

        code_028b
  028b:3c                 dup 
  028c:35 04              ldi 4 
  028e:1a                 eq? 
  028f:31 5d              bnt code_02ee 
  0291:38 0089          pushi 89 // $89 hide
  0294:76               push0 
  0295:72 0074          lofsa $030c // Hand
  0298:4a 04             send 4 

  029a:39 07            pushi 7 // $7 cel
  029c:78               push1 
  029d:78               push1 
  029e:38 00c7          pushi c7 // $c7 forceUpd
  02a1:76               push0 
  02a2:72 017d          lofsa $0422 // coloFace
  02a5:4a 0a             send a 

  02a7:38 0089          pushi 89 // $89 hide
  02aa:76               push0 
  02ab:72 01c2          lofsa $0470 // coloMouth
  02ae:4a 04             send 4 

  02b0:39 03            pushi 3 // $3 y
  02b2:78               push1 
  02b3:39 03            pushi 3 // $3 y
  02b5:76               push0 
  02b6:72 0169          lofsa $0422 // coloFace
  02b9:4a 04             send 4 

  02bb:36                push 
  02bc:35 10              ldi 10 
  02be:04                 sub 
  02bf:36                push 
  02c0:38 00c7          pushi c7 // $c7 forceUpd
  02c3:76               push0 
  02c4:72 01f7          lofsa $04be // coloEyes
  02c7:4a 0a             send a 

  02c9:38 00ca          pushi ca // $ca show
  02cc:76               push0 
  02cd:39 07            pushi 7 // $7 cel
  02cf:78               push1 
  02d0:76               push0 
  02d1:38 00c5          pushi c5 // $c5 posn
  02d4:7a               push2 
  02d5:39 74            pushi 74 // $74 lastSeconds
  02d7:39 51            pushi 51 // $51 button
  02d9:38 00d3          pushi d3 // $d3 setMotion
  02dc:39 04            pushi 4 // $4 x
  02de:51 1d            class MoveTo 
  02e0:36                push 
  02e1:38 0080          pushi 80 // $80 timeLeft
  02e4:39 65            pushi 65 // $65 contains
  02e6:7c            pushSelf 
  02e7:72 0086          lofsa $0370 // Smoke
  02ea:4a 1e             send 1e 

  02ec:33 10              jmp code_02fe 

        code_02ee
  02ee:3c                 dup 
  02ef:35 05              ldi 5 
  02f1:1a                 eq? 
  02f2:31 0a              bnt code_02fe 
  02f4:38 00f8          pushi f8 // $f8 newRoom
  02f7:78               push1 
  02f8:89 0c              lsg gPrevRoomNum 
  02fa:81 02              lag gCurRoom 
  02fc:4a 06             send 6 


        code_02fe
  02fe:3a                toss 
  02ff:48                 ret 
    )

)



