(script 992)

(string
    string_052e "Beg"
    string_0532 "CT"
    string_0535 "Cycle"
    string_053b "End"
    string_053f "Fwd"
    string_0543 "Motion"
    string_054a "MoveTo"
    string_0551 "Walk"
)

(said
)

(local
)

// 02f0
(class Cycle of Obj
    (properties
        client $0
        caller $0
        cycleDir $1
        cycleCnt $0
        completed $0
    )
    (method (init) // method_0004
  0004:87 01              lap param1 
  0006:65 08             aTop client 
  0008:35 00              ldi 0 
  000a:65 0e             aTop cycleCnt 
  000c:48                 ret 
    )

    (method (nextCel) // method_000d
  000d:6b 0e            ipToa cycleCnt 
  000f:67 0e             pTos cycleCnt 
  0011:38 00a4          pushi a4 // $a4 cycleSpeed
  0014:76               push0 
  0015:63 08             pToa client 
  0017:4a 04             send 4 

  0019:24                 le? 
  001a:31 09              bnt code_0025 
  001c:39 07            pushi 7 // $7 cel
  001e:76               push0 
  001f:63 08             pToa client 
  0021:4a 04             send 4 

  0023:33 26              jmp code_004b 

        code_0025
  0025:35 00              ldi 0 
  0027:65 0e             aTop cycleCnt 
  0029:39 11            pushi 11 // $11 signal
  002b:76               push0 
  002c:63 08             pToa client 
  002e:4a 04             send 4 

  0030:36                push 
  0031:34 1000            ldi 1000 
  0034:12                 and 
  0035:31 09              bnt code_0040 
  0037:39 07            pushi 7 // $7 cel
  0039:76               push0 
  003a:63 08             pToa client 
  003c:4a 04             send 4 

  003e:33 0b              jmp code_004b 

        code_0040
  0040:39 07            pushi 7 // $7 cel
  0042:76               push0 
  0043:63 08             pToa client 
  0045:4a 04             send 4 

  0047:36                push 
  0048:63 0c             pToa cycleDir 
  004a:02                 add 

        code_004b
  004b:48                 ret 
    )

    (method (cycleDone) // method_004c
  004c:48                 ret 
    )

    (method (motionCue) // method_004d
  004d:38 00a5          pushi a5 // $a5 cycler
  0050:78               push1 
  0051:76               push0 
  0052:63 08             pToa client 
  0054:4a 06             send 6 

  0056:63 10             pToa completed 
  0058:31 0f              bnt code_0069 
  005a:78               push1 
  005b:67 0a             pTos caller 
  005d:43 06 02         callk IsObject 2 

  0060:31 07              bnt code_0069 
  0062:39 79            pushi 79 // $79 cue
  0064:76               push0 
  0065:63 0a             pToa caller 
  0067:4a 04             send 4 


        code_0069
  0069:39 58            pushi 58 // $58 dispose
  006b:76               push0 
  006c:54 04             self 4 

  006e:48                 ret 
    )

)

// 0334
(class Fwd of Cycle
    (properties
        client $0
        caller $0
        cycleDir $1
        cycleCnt $0
        completed $0
    )
    (method (doit) // method_006f
  006f:3f 01             link 1 // (var $1)
  0071:38 009f          pushi 9f // $9f nextCel
  0074:76               push0 
  0075:54 04             self 4 

  0077:a5 00              sat temp0 
  0079:36                push 
  007a:38 00a6          pushi a6 // $a6 lastCel
  007d:76               push0 
  007e:63 08             pToa client 
  0080:4a 04             send 4 

  0082:1e                 gt? 
  0083:31 08              bnt code_008d 
  0085:38 00a0          pushi a0 // $a0 cycleDone
  0088:76               push0 
  0089:54 04             self 4 

  008b:33 09              jmp code_0096 

        code_008d
  008d:39 07            pushi 7 // $7 cel
  008f:78               push1 
  0090:8d 00              lst temp0 
  0092:63 08             pToa client 
  0094:4a 06             send 6 


        code_0096
  0096:48                 ret 
    )

    (method (cycleDone) // method_0097
  0097:39 07            pushi 7 // $7 cel
  0099:78               push1 
  009a:76               push0 
  009b:63 08             pToa client 
  009d:4a 06             send 6 

  009f:48                 ret 
    )

)

// 0370
(class Walk of Fwd
    (properties
        client $0
        caller $0
        cycleDir $1
        cycleCnt $0
        completed $0
    )
    (method (doit) // method_00a0
  00a0:3f 01             link 1 // (var $1)
  00a2:38 00a7          pushi a7 // $a7 isStopped
  00a5:76               push0 
  00a6:63 08             pToa client 
  00a8:4a 04             send 4 

  00aa:18                 not 
  00ab:31 06              bnt code_00b3 
  00ad:39 3c            pushi 3c // $3c doit
  00af:76               push0 
  00b0:57 16 04         super Fwd 4 


        code_00b3
  00b3:48                 ret 
    )

)

// 03a8
(class CT of Cycle
    (properties
        client $0
        caller $0
        cycleDir $1
        cycleCnt $0
        completed $0
        endCel $0
    )
    (method (init) // method_00b4
  00b4:3f 01             link 1 // (var $1)
  00b6:39 57            pushi 57 // $57 init
  00b8:78               push1 
  00b9:8f 01              lsp param1 
  00bb:57 15 06         super Cycle 6 

  00be:87 03              lap param3 
  00c0:65 0c             aTop cycleDir 
  00c2:8f 00              lsp paramTotal 
  00c4:35 04              ldi 4 
  00c6:1a                 eq? 
  00c7:31 04              bnt code_00cd 
  00c9:87 04              lap param4 
  00cb:65 0a             aTop caller 

        code_00cd
  00cd:38 00a6          pushi a6 // $a6 lastCel
  00d0:76               push0 
  00d1:63 08             pToa client 
  00d3:4a 04             send 4 

  00d5:a5 00              sat temp0 
  00d7:8f 02              lsp param2 
  00d9:85 00              lat temp0 
  00db:1e                 gt? 
  00dc:31 04              bnt code_00e2 
  00de:85 00              lat temp0 
  00e0:33 02              jmp code_00e4 

        code_00e2
  00e2:87 02              lap param2 

        code_00e4
  00e4:65 12             aTop endCel 
  00e6:48                 ret 
    )

    (method (doit) // method_00e7
  00e7:3f 02             link 2 // (var $2)
  00e9:38 00a6          pushi a6 // $a6 lastCel
  00ec:76               push0 
  00ed:63 08             pToa client 
  00ef:4a 04             send 4 

  00f1:a5 01              sat temp1 
  00f3:67 12             pTos endCel 
  00f5:85 01              lat temp1 
  00f7:1e                 gt? 
  00f8:31 04              bnt code_00fe 
  00fa:85 01              lat temp1 
  00fc:65 12             aTop endCel 

        code_00fe
  00fe:38 009f          pushi 9f // $9f nextCel
  0101:76               push0 
  0102:54 04             self 4 

  0104:a5 00              sat temp0 
  0106:39 07            pushi 7 // $7 cel
  0108:78               push1 
  0109:8d 00              lst temp0 
  010b:85 01              lat temp1 
  010d:1e                 gt? 
  010e:31 04              bnt code_0114 
  0110:35 00              ldi 0 
  0112:33 0d              jmp code_0121 

        code_0114
  0114:8d 00              lst temp0 
  0116:35 00              ldi 0 
  0118:22                 lt? 
  0119:31 04              bnt code_011f 
  011b:85 01              lat temp1 
  011d:33 02              jmp code_0121 

        code_011f
  011f:85 00              lat temp0 

        code_0121
  0121:36                push 
  0122:63 08             pToa client 
  0124:4a 06             send 6 

  0126:67 0e             pTos cycleCnt 
  0128:35 00              ldi 0 
  012a:1a                 eq? 
  012b:31 12              bnt code_013f 
  012d:67 12             pTos endCel 
  012f:39 07            pushi 7 // $7 cel
  0131:76               push0 
  0132:63 08             pToa client 
  0134:4a 04             send 4 

  0136:1a                 eq? 
  0137:31 06              bnt code_013f 
  0139:38 00a0          pushi a0 // $a0 cycleDone
  013c:76               push0 
  013d:54 04             self 4 


        code_013f
  013f:48                 ret 
    )

    (method (cycleDone) // method_0140
  0140:35 01              ldi 1 
  0142:65 10             aTop completed 
  0144:63 0a             pToa caller 
  0146:31 06              bnt code_014e 
  0148:35 01              ldi 1 
  014a:a1 3a              sag global58 
  014c:33 06              jmp code_0154 

        code_014e
  014e:38 00a1          pushi a1 // $a1 motionCue
  0151:76               push0 
  0152:54 04             self 4 


        code_0154
  0154:48                 ret 
    )

)

// 03ec
(class End of CT
    (properties
        client $0
        caller $0
        cycleDir $1
        cycleCnt $0
        completed $0
        endCel $0
    )
    (method (init) // method_0155
  0155:39 57            pushi 57 // $57 init
  0157:39 04            pushi 4 // $4 x
  0159:8f 01              lsp param1 
  015b:38 00a6          pushi a6 // $a6 lastCel
  015e:76               push0 
  015f:87 01              lap param1 
  0161:4a 04             send 4 

  0163:36                push 
  0164:78               push1 
  0165:8f 00              lsp paramTotal 
  0167:35 02              ldi 2 
  0169:1a                 eq? 
  016a:31 04              bnt code_0170 
  016c:87 02              lap param2 
  016e:33 02              jmp code_0172 

        code_0170
  0170:35 00              ldi 0 

        code_0172
  0172:36                push 
  0173:57 19 0c         super CT c 

  0176:48                 ret 
    )

)

// 0428
(class Beg of CT
    (properties
        client $0
        caller $0
        cycleDir $1
        cycleCnt $0
        completed $0
        endCel $0
    )
    (method (init) // method_0177
  0177:39 57            pushi 57 // $57 init
  0179:39 04            pushi 4 // $4 x
  017b:8f 01              lsp param1 
  017d:76               push0 
  017e:39 ff            pushi ff // $ff checkAni
  0180:8f 00              lsp paramTotal 
  0182:35 02              ldi 2 
  0184:1a                 eq? 
  0185:31 04              bnt code_018b 
  0187:87 02              lap param2 
  0189:33 02              jmp code_018d 

        code_018b
  018b:35 00              ldi 0 

        code_018d
  018d:36                push 
  018e:57 19 0c         super CT c 

  0191:48                 ret 
    )

)

// 0464
(class Motion of Obj
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
    )
    (method (init) // method_0192
  0192:3f 02             link 2 // (var $2)
  0194:8f 00              lsp paramTotal 
  0196:35 01              ldi 1 
  0198:20                 ge? 
  0199:31 25              bnt code_01c0 
  019b:87 01              lap param1 
  019d:65 08             aTop client 
  019f:8f 00              lsp paramTotal 
  01a1:35 02              ldi 2 
  01a3:20                 ge? 
  01a4:31 1a              bnt code_01c0 
  01a6:87 02              lap param2 
  01a8:65 0c             aTop x 
  01aa:8f 00              lsp paramTotal 
  01ac:35 03              ldi 3 
  01ae:20                 ge? 
  01af:31 0f              bnt code_01c0 
  01b1:87 03              lap param3 
  01b3:65 0e             aTop y 
  01b5:8f 00              lsp paramTotal 
  01b7:35 04              ldi 4 
  01b9:20                 ge? 
  01ba:31 04              bnt code_01c0 
  01bc:87 04              lap param4 
  01be:65 0a             aTop caller 

        code_01c0
  01c0:35 00              ldi 0 
  01c2:65 14             aTop b-moveCnt 
  01c4:39 3a            pushi 3a // $3a heading
  01c6:78               push1 
  01c7:39 04            pushi 4 // $4 x
  01c9:39 04            pushi 4 // $4 x
  01cb:76               push0 
  01cc:63 08             pToa client 
  01ce:4a 04             send 4 

  01d0:36                push 
  01d1:39 03            pushi 3 // $3 y
  01d3:76               push0 
  01d4:63 08             pToa client 
  01d6:4a 04             send 4 

  01d8:36                push 
  01d9:67 0c             pTos x 
  01db:67 0e             pTos y 
  01dd:43 43 08         callk GetAngle 8 

  01e0:36                push 
  01e1:63 08             pToa client 
  01e3:4a 06             send 6 

  01e5:39 3e            pushi 3e // $3e looper
  01e7:76               push0 
  01e8:63 08             pToa client 
  01ea:4a 04             send 4 

  01ec:31 18              bnt code_0206 
  01ee:39 3c            pushi 3c // $3c doit
  01f0:7a               push2 
  01f1:67 08             pTos client 
  01f3:39 3a            pushi 3a // $3a heading
  01f5:76               push0 
  01f6:63 08             pToa client 
  01f8:4a 04             send 4 

  01fa:36                push 
  01fb:39 3e            pushi 3e // $3e looper
  01fd:76               push0 
  01fe:63 08             pToa client 
  0200:4a 04             send 4 

  0202:4a 08             send 8 

  0204:33 0e              jmp code_0214 

        code_0206
  0206:7a               push2 
  0207:67 08             pTos client 
  0209:39 3a            pushi 3a // $3a heading
  020b:76               push0 
  020c:63 08             pToa client 
  020e:4a 04             send 4 

  0210:36                push 
  0211:43 50 04         callk DirLoop 4 


        code_0214
  0214:78               push1 
  0215:7c            pushSelf 
  0216:43 53 02         callk InitBresen 2 

  0219:48                 ret 
    )

    (method (onTarget) // method_021a
  021a:39 04            pushi 4 // $4 x
  021c:76               push0 
  021d:63 08             pToa client 
  021f:4a 04             send 4 

  0221:36                push 
  0222:63 0c             pToa x 
  0224:1a                 eq? 
  0225:31 0f              bnt code_0236 
  0227:39 03            pushi 3 // $3 y
  0229:76               push0 
  022a:63 08             pToa client 
  022c:4a 04             send 4 

  022e:36                push 
  022f:63 0e             pToa y 
  0231:1a                 eq? 
  0232:31 02              bnt code_0236 
  0234:35 01              ldi 1 

        code_0236
  0236:48                 ret 
    )

    (method (setTarget) // method_0237
  0237:87 00              lap paramTotal 
  0239:31 08              bnt code_0243 
  023b:87 01              lap param1 
  023d:65 0c             aTop x 
  023f:87 02              lap param2 
  0241:65 0e             aTop y 

        code_0243
  0243:48                 ret 
    )

    (method (doit) // method_0244
  0244:3f 06             link 6 // (var $6)
  0246:78               push1 
  0247:7c            pushSelf 
  0248:43 54 02         callk DoBresen 2 

  024b:67 0c             pTos x 
  024d:39 04            pushi 4 // $4 x
  024f:76               push0 
  0250:63 08             pToa client 
  0252:4a 04             send 4 

  0254:1a                 eq? 
  0255:31 13              bnt code_026a 
  0257:67 0e             pTos y 
  0259:39 03            pushi 3 // $3 y
  025b:76               push0 
  025c:63 08             pToa client 
  025e:4a 04             send 4 

  0260:1a                 eq? 
  0261:31 07              bnt code_026a 
  0263:38 00a9          pushi a9 // $a9 moveDone
  0266:76               push0 
  0267:54 04             self 4 

  0269:48                 ret 

        code_026a
  026a:48                 ret 
    )

    (method (triedToMove) // method_026b
  026b:67 14             pTos b-moveCnt 
  026d:35 00              ldi 0 
  026f:1a                 eq? 
  0270:48                 ret 
    )

    (method (moveDone) // method_0271
  0271:35 01              ldi 1 
  0273:65 20             aTop completed 
  0275:63 0a             pToa caller 
  0277:31 06              bnt code_027f 
  0279:35 01              ldi 1 
  027b:a1 3a              sag global58 
  027d:33 06              jmp code_0285 

        code_027f
  027f:38 00a1          pushi a1 // $a1 motionCue
  0282:76               push0 
  0283:54 04             self 4 


        code_0285
  0285:48                 ret 
    )

    (method (motionCue) // method_0286
  0286:39 3b            pushi 3b // $3b mover
  0288:78               push1 
  0289:76               push0 
  028a:63 08             pToa client 
  028c:4a 06             send 6 

  028e:63 20             pToa completed 
  0290:31 0f              bnt code_02a1 
  0292:78               push1 
  0293:67 0a             pTos caller 
  0295:43 06 02         callk IsObject 2 

  0298:31 07              bnt code_02a1 
  029a:39 79            pushi 79 // $79 cue
  029c:76               push0 
  029d:63 0a             pToa caller 
  029f:4a 04             send 4 


        code_02a1
  02a1:39 58            pushi 58 // $58 dispose
  02a3:76               push0 
  02a4:54 04             self 4 

  02a6:48                 ret 
    )

)

// 04d4
(class MoveTo of Motion
    (properties
        client $0
        caller $0
        x $0
        y $0
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
    )
    (method (init) // method_02a7
  02a7:39 57            pushi 57 // $57 init
  02a9:76               push0 
  02aa:59 01            &rest 1 
  02ac:57 1c 04         super Motion 4 

  02af:48                 ret 
    )

    (method (onTarget) // method_02b0
  02b0:78               push1 
  02b1:39 04            pushi 4 // $4 x
  02b3:76               push0 
  02b4:63 08             pToa client 
  02b6:4a 04             send 4 

  02b8:36                push 
  02b9:63 0c             pToa x 
  02bb:04                 sub 
  02bc:36                push 
  02bd:43 41 02         callk Abs 2 

  02c0:36                push 
  02c1:39 36            pushi 36 // $36 xStep
  02c3:76               push0 
  02c4:63 08             pToa client 
  02c6:4a 04             send 4 

  02c8:24                 le? 
  02c9:31 1d              bnt code_02e8 
  02cb:78               push1 
  02cc:39 03            pushi 3 // $3 y
  02ce:76               push0 
  02cf:63 08             pToa client 
  02d1:4a 04             send 4 

  02d3:36                push 
  02d4:63 0e             pToa y 
  02d6:04                 sub 
  02d7:36                push 
  02d8:43 41 02         callk Abs 2 

  02db:36                push 
  02dc:39 37            pushi 37 // $37 yStep
  02de:76               push0 
  02df:63 08             pToa client 
  02e1:4a 04             send 4 

  02e3:24                 le? 
  02e4:31 02              bnt code_02e8 
  02e6:35 01              ldi 1 

        code_02e8
  02e8:48                 ret 
  02e9:00                bnot 
    )

)



