(script 967)

(string
    string_0126 "DCIcon"
    string_012d ""
)

(said
)

(local
)

// 00b8
(class DCIcon of DIcon
    (properties
        type $4
        state $0
        nsTop $0
        nsLeft $0
        nsBottom $0
        nsRight $0
        key $0
        said $0
        value $0
        view $0
        loop $0
        cel $0
        cycler $0
        cycleSpeed $10
        signal $0
        count $ffff
    )
    (method (init) // method_0004
  0004:39 57            pushi 57 // $57 init
  0006:78               push1 
  0007:7c            pushSelf 
  0008:39 56            pushi 56 // $56 new
  000a:76               push0 
  000b:51 16            class Fwd 
  000d:4a 04             send 4 

  000f:65 20             aTop cycler 
  0011:4a 06             send 6 

  0013:48                 ret 
    )

    (method (cycle) // method_0014
  0014:3f 02             link 2 // (var $2)
  0016:63 20             pToa cycler 
  0018:31 7a              bnt code_0094 
  001a:63 1e             pToa cel 
  001c:a5 00              sat temp0 
  001e:39 3c            pushi 3c // $3c doit
  0020:76               push0 
  0021:63 20             pToa cycler 
  0023:4a 04             send 4 

  0025:67 1e             pTos cel 
  0027:85 00              lat temp0 
  0029:1c                 ne? 
  002a:31 68              bnt code_0094 
  002c:67 26             pTos count 
  002e:35 ff              ldi ff 
  0030:1c                 ne? 
  0031:31 1d              bnt code_0050 
  0033:8d 01              lst temp1 
  0035:63 26             pToa count 
  0037:1e                 gt? 
  0038:31 16              bnt code_0050 
  003a:80 00d5            lag global213 
  003d:31 06              bnt code_0045 
  003f:35 00              ldi 0 
  0041:65 1e             aTop cel 
  0043:33 0b              jmp code_0050 

        code_0045
  0045:78               push1 
  0046:7c            pushSelf 
  0047:43 0e 02         callk NumCels 2 

  004a:36                push 
  004b:35 01              ldi 1 
  004d:04                 sub 
  004e:65 1e             aTop cel 

        code_0050
  0050:39 53            pushi 53 // $53 draw
  0052:76               push0 
  0053:54 04             self 4 

  0055:67 26             pTos count 
  0057:35 ff              ldi ff 
  0059:1c                 ne? 
  005a:31 38              bnt code_0094 
  005c:67 1e             pTos cel 
  005e:78               push1 
  005f:7c            pushSelf 
  0060:43 0e 02         callk NumCels 2 

  0063:36                push 
  0064:35 01              ldi 1 
  0066:04                 sub 
  0067:1a                 eq? 
  0068:31 2a              bnt code_0094 
  006a:c5 01              +at temp1 
  006c:80 00d5            lag global213 
  006f:31 23              bnt code_0094 
  0071:78               push1 
  0072:7c            pushSelf 
  0073:43 0d 02         callk NumLoops 2 

  0076:36                push 
  0077:35 01              ldi 1 
  0079:1e                 gt? 
  007a:31 18              bnt code_0094 
  007c:63 1c             pToa loop 
  007e:2f 0d               bt code_008d 
  0080:7a               push2 
  0081:78               push1 
  0082:39 64            pushi 64 // $64 allTrue
  0084:43 40 04         callk Random 4 

  0087:36                push 
  0088:35 33              ldi 33 
  008a:22                 lt? 
  008b:31 07              bnt code_0094 

        code_008d
  008d:67 1c             pTos loop 
  008f:35 01              ldi 1 
  0091:10                 xor 
  0092:65 1c             aTop loop 

        code_0094
  0094:48                 ret 
    )

    (method (dispose) // method_0095
  0095:63 20             pToa cycler 
  0097:31 07              bnt code_00a0 
  0099:39 58            pushi 58 // $58 dispose
  009b:76               push0 
  009c:63 20             pToa cycler 
  009e:4a 04             send 4 


        code_00a0
  00a0:39 58            pushi 58 // $58 dispose
  00a2:76               push0 
  00a3:57 0e 04         super DIcon 4 

  00a6:48                 ret 
    )

    (method (lastCel) // method_00a7
  00a7:78               push1 
  00a8:7c            pushSelf 
  00a9:43 0e 02         callk NumCels 2 

  00ac:36                push 
  00ad:35 01              ldi 1 
  00af:04                 sub 
  00b0:48                 ret 
  00b1:00                bnot 
    )

)



