(script 991)

(string
    string_03dc "Jump"
    string_03e1 "JumpTo"
)

(said
)

(local
)

// 02d6
(class Jump of Motion
    (properties
        client $0
        caller $0
        x $4e20
        y $4e20
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        gx $0
        gy $3
        xStep $4e20
        yStep $0
        signal $0
        illegalBits $0
        waitApogeeX $1
        waitApogeeY $1
    )
    (method (init) // method_0004
  0004:3f 01             link 1 // (var $1)
  0006:87 01              lap param1 
  0008:65 08             aTop client 
  000a:8f 00              lsp paramTotal 
  000c:35 02              ldi 2 
  000e:1a                 eq? 
  000f:31 04              bnt code_0015 
  0011:87 02              lap param2 
  0013:65 0a             aTop caller 

        code_0015
  0015:39 12            pushi 12 // $12 illegalBits
  0017:76               push0 
  0018:63 08             pToa client 
  001a:4a 04             send 4 

  001c:65 2c             aTop illegalBits 
  001e:39 11            pushi 11 // $11 signal
  0020:76               push0 
  0021:63 08             pToa client 
  0023:4a 04             send 4 

  0025:65 2a             aTop signal 
  0027:39 12            pushi 12 // $12 illegalBits
  0029:78               push1 
  002a:76               push0 
  002b:39 42            pushi 42 // $42 setPri
  002d:76               push0 
  002e:63 08             pToa client 
  0030:4a 0a             send a 

  0032:67 26             pTos xStep 
  0034:34 4e20            ldi 4e20 
  0037:1a                 eq? 
  0038:31 45              bnt code_007f 
  003a:39 3a            pushi 3a // $3a heading
  003c:76               push0 
  003d:63 08             pToa client 
  003f:4a 04             send 4 

  0041:a5 00              sat temp0 
  0043:36                push 
  0044:34 014a            ldi 14a 
  0047:1e                 gt? 
  0048:2f 16               bt code_0060 
  004a:8d 00              lst temp0 
  004c:35 1e              ldi 1e 
  004e:22                 lt? 
  004f:2f 0f               bt code_0060 
  0051:38 0096          pushi 96 // $96 busy
  0054:85 00              lat temp0 
  0056:22                 lt? 
  0057:31 05              bnt code_005e 
  0059:60               pprev 
  005a:34 00d2            ldi d2 
  005d:22                 lt? 

        code_005e
  005e:31 04              bnt code_0064 

        code_0060
  0060:35 00              ldi 0 
  0062:33 19              jmp code_007d 

        code_0064
  0064:8d 00              lst temp0 
  0066:34 00b4            ldi b4 
  0069:22                 lt? 
  006a:31 09              bnt code_0075 
  006c:39 36            pushi 36 // $36 xStep
  006e:76               push0 
  006f:63 08             pToa client 
  0071:4a 04             send 4 

  0073:33 08              jmp code_007d 

        code_0075
  0075:39 36            pushi 36 // $36 xStep
  0077:76               push0 
  0078:63 08             pToa client 
  007a:4a 04             send 4 

  007c:16                 neg 

        code_007d
  007d:65 26             aTop xStep 

        code_007f
  007f:63 2e             pToa waitApogeeX 
  0081:31 0d              bnt code_0090 
  0083:67 26             pTos xStep 
  0085:63 22             pToa gx 
  0087:06                 mul 
  0088:36                push 
  0089:35 00              ldi 0 
  008b:22                 lt? 
  008c:31 02              bnt code_0090 
  008e:35 01              ldi 1 

        code_0090
  0090:18                 not 
  0091:31 04              bnt code_0097 
  0093:35 00              ldi 0 
  0095:65 2e             aTop waitApogeeX 

        code_0097
  0097:63 30             pToa waitApogeeY 
  0099:31 0d              bnt code_00a8 
  009b:67 28             pTos yStep 
  009d:63 24             pToa gy 
  009f:06                 mul 
  00a0:36                push 
  00a1:35 00              ldi 0 
  00a3:22                 lt? 
  00a4:31 02              bnt code_00a8 
  00a6:35 01              ldi 1 

        code_00a8
  00a8:18                 not 
  00a9:31 04              bnt code_00af 
  00ab:35 00              ldi 0 
  00ad:65 30             aTop waitApogeeY 

        code_00af
  00af:38 00c4          pushi c4 // $c4 setTest
  00b2:76               push0 
  00b3:54 04             self 4 

  00b5:48                 ret 
    )

    (method (doit) // method_00b6
  00b6:3f 02             link 2 // (var $2)
  00b8:39 04            pushi 4 // $4 x
  00ba:78               push1 
  00bb:39 04            pushi 4 // $4 x
  00bd:76               push0 
  00be:63 08             pToa client 
  00c0:4a 04             send 4 

  00c2:36                push 
  00c3:63 26             pToa xStep 
  00c5:02                 add 
  00c6:36                push 
  00c7:39 03            pushi 3 // $3 y
  00c9:78               push1 
  00ca:39 03            pushi 3 // $3 y
  00cc:76               push0 
  00cd:63 08             pToa client 
  00cf:4a 04             send 4 

  00d1:36                push 
  00d2:63 28             pToa yStep 
  00d4:02                 add 
  00d5:36                push 
  00d6:63 08             pToa client 
  00d8:4a 0c             send c 

  00da:63 26             pToa xStep 
  00dc:a5 00              sat temp0 
  00de:63 28             pToa yStep 
  00e0:a5 01              sat temp1 
  00e2:67 26             pTos xStep 
  00e4:63 22             pToa gx 
  00e6:02                 add 
  00e7:65 26             aTop xStep 
  00e9:67 28             pTos yStep 
  00eb:63 24             pToa gy 
  00ed:02                 add 
  00ee:65 28             aTop yStep 
  00f0:63 2e             pToa waitApogeeX 
  00f2:18                 not 
  00f3:31 2a              bnt code_011f 
  00f5:67 0c             pTos x 
  00f7:34 4e20            ldi 4e20 
  00fa:1c                 ne? 
  00fb:31 22              bnt code_011f 
  00fd:76               push0 
  00fe:67 10             pTos dx 
  0100:39 04            pushi 4 // $4 x
  0102:76               push0 
  0103:63 08             pToa client 
  0105:4a 04             send 4 

  0107:36                push 
  0108:63 0c             pToa x 
  010a:04                 sub 
  010b:06                 mul 
  010c:24                 le? 
  010d:31 10              bnt code_011f 
  010f:39 04            pushi 4 // $4 x
  0111:78               push1 
  0112:67 0c             pTos x 
  0114:63 08             pToa client 
  0116:4a 06             send 6 

  0118:38 00a9          pushi a9 // $a9 moveDone
  011b:76               push0 
  011c:54 04             self 4 

  011e:48                 ret 

        code_011f
  011f:63 30             pToa waitApogeeY 
  0121:18                 not 
  0122:31 2a              bnt code_014e 
  0124:67 0e             pTos y 
  0126:34 4e20            ldi 4e20 
  0129:1c                 ne? 
  012a:31 22              bnt code_014e 
  012c:76               push0 
  012d:67 12             pTos dy 
  012f:39 03            pushi 3 // $3 y
  0131:76               push0 
  0132:63 08             pToa client 
  0134:4a 04             send 4 

  0136:36                push 
  0137:63 0e             pToa y 
  0139:04                 sub 
  013a:06                 mul 
  013b:24                 le? 
  013c:31 10              bnt code_014e 
  013e:39 03            pushi 3 // $3 y
  0140:78               push1 
  0141:67 0e             pTos y 
  0143:63 08             pToa client 
  0145:4a 06             send 6 

  0147:38 00a9          pushi a9 // $a9 moveDone
  014a:76               push0 
  014b:54 04             self 4 

  014d:48                 ret 

        code_014e
  014e:8d 00              lst temp0 
  0150:63 26             pToa xStep 
  0152:06                 mul 
  0153:36                push 
  0154:35 00              ldi 0 
  0156:24                 le? 
  0157:31 0a              bnt code_0163 
  0159:35 00              ldi 0 
  015b:65 2e             aTop waitApogeeX 
  015d:38 00c4          pushi c4 // $c4 setTest
  0160:76               push0 
  0161:54 04             self 4 


        code_0163
  0163:8d 01              lst temp1 
  0165:63 28             pToa yStep 
  0167:06                 mul 
  0168:36                push 
  0169:35 00              ldi 0 
  016b:24                 le? 
  016c:31 0a              bnt code_0178 
  016e:35 00              ldi 0 
  0170:65 30             aTop waitApogeeY 
  0172:38 00c4          pushi c4 // $c4 setTest
  0175:76               push0 
  0176:54 04             self 4 


        code_0178
  0178:48                 ret 
    )

    (method (triedToMove) // method_0179
  0179:35 01              ldi 1 
  017b:48                 ret 
    )

    (method (moveDone) // method_017c
  017c:39 12            pushi 12 // $12 illegalBits
  017e:78               push1 
  017f:67 2c             pTos illegalBits 
  0181:39 11            pushi 11 // $11 signal
  0183:78               push1 
  0184:67 2a             pTos signal 
  0186:63 08             pToa client 
  0188:4a 0c             send c 

  018a:63 0a             pToa caller 
  018c:31 08              bnt code_0196 
  018e:35 01              ldi 1 
  0190:a1 3a              sag global58 
  0192:35 01              ldi 1 
  0194:65 20             aTop completed 

        code_0196
  0196:48                 ret 
    )

    (method (setTest) // method_0197
  0197:39 04            pushi 4 // $4 x
  0199:76               push0 
  019a:63 08             pToa client 
  019c:4a 04             send 4 

  019e:36                push 
  019f:63 0c             pToa x 
  01a1:1e                 gt? 
  01a2:2f 14               bt code_01b8 
  01a4:39 04            pushi 4 // $4 x
  01a6:76               push0 
  01a7:63 08             pToa client 
  01a9:4a 04             send 4 

  01ab:36                push 
  01ac:63 0c             pToa x 
  01ae:1a                 eq? 
  01af:31 0b              bnt code_01bc 
  01b1:67 26             pTos xStep 
  01b3:35 00              ldi 0 
  01b5:1e                 gt? 
  01b6:31 04              bnt code_01bc 

        code_01b8
  01b8:35 ff              ldi ff 
  01ba:33 02              jmp code_01be 

        code_01bc
  01bc:35 01              ldi 1 

        code_01be
  01be:65 10             aTop dx 
  01c0:39 03            pushi 3 // $3 y
  01c2:76               push0 
  01c3:63 08             pToa client 
  01c5:4a 04             send 4 

  01c7:36                push 
  01c8:63 0e             pToa y 
  01ca:1e                 gt? 
  01cb:2f 14               bt code_01e1 
  01cd:39 03            pushi 3 // $3 y
  01cf:76               push0 
  01d0:63 08             pToa client 
  01d2:4a 04             send 4 

  01d4:36                push 
  01d5:63 0e             pToa y 
  01d7:1a                 eq? 
  01d8:31 0b              bnt code_01e5 
  01da:67 28             pTos yStep 
  01dc:35 00              ldi 0 
  01de:1e                 gt? 
  01df:31 04              bnt code_01e5 

        code_01e1
  01e1:35 ff              ldi ff 
  01e3:33 02              jmp code_01e7 

        code_01e5
  01e5:35 01              ldi 1 

        code_01e7
  01e7:65 12             aTop dy 
  01e9:48                 ret 
    )

    (method (motionCue) // method_01ea
  01ea:39 3b            pushi 3b // $3b mover
  01ec:78               push1 
  01ed:76               push0 
  01ee:63 08             pToa client 
  01f0:4a 06             send 6 

  01f2:63 20             pToa completed 
  01f4:31 0f              bnt code_0205 
  01f6:78               push1 
  01f7:67 0a             pTos caller 
  01f9:43 06 02         callk IsObject 2 

  01fc:31 07              bnt code_0205 
  01fe:39 79            pushi 79 // $79 cue
  0200:76               push0 
  0201:63 0a             pToa caller 
  0203:4a 04             send 4 


        code_0205
  0205:39 58            pushi 58 // $58 dispose
  0207:76               push0 
  0208:54 04             self 4 

  020a:48                 ret 
    )

)

// 0362
(class JumpTo of Jump
    (properties
        client $0
        caller $0
        x $4e20
        y $4e20
        dx $0
        dy $0
        b-moveCnt $0
        b-i1 $0
        b-i2 $0
        b-di $0
        b-xAxis $0
        b-incr $0
        completed $0
        gx $0
        gy $3
        xStep $4e20
        yStep $0
        signal $0
        illegalBits $0
        waitApogeeX $1
        waitApogeeY $1
    )
    (method (init) // method_020b
  020b:3f 36             link 36 // (var $36)
  020d:87 01              lap param1 
  020f:65 08             aTop client 
  0211:87 02              lap param2 
  0213:65 0c             aTop x 
  0215:87 03              lap param3 
  0217:65 0e             aTop y 
  0219:67 0c             pTos x 
  021b:39 04            pushi 4 // $4 x
  021d:76               push0 
  021e:87 01              lap param1 
  0220:4a 04             send 4 

  0222:1a                 eq? 
  0223:31 25              bnt code_024a 
  0225:67 0e             pTos y 
  0227:39 03            pushi 3 // $3 y
  0229:76               push0 
  022a:87 01              lap param1 
  022c:4a 04             send 4 

  022e:1a                 eq? 
  022f:31 19              bnt code_024a 
  0231:39 12            pushi 12 // $12 illegalBits
  0233:76               push0 
  0234:63 08             pToa client 
  0236:4a 04             send 4 

  0238:65 2c             aTop illegalBits 
  023a:39 11            pushi 11 // $11 signal
  023c:76               push0 
  023d:63 08             pToa client 
  023f:4a 04             send 4 

  0241:65 2a             aTop signal 
  0243:38 00a9          pushi a9 // $a9 moveDone
  0246:76               push0 
  0247:54 04             self 4 

  0249:48                 ret 

        code_024a
  024a:67 0c             pTos x 
  024c:39 04            pushi 4 // $4 x
  024e:76               push0 
  024f:87 01              lap param1 
  0251:4a 04             send 4 

  0253:04                 sub 
  0254:a5 00              sat temp0 
  0256:67 0e             pTos y 
  0258:39 03            pushi 3 // $3 y
  025a:76               push0 
  025b:87 01              lap param1 
  025d:4a 04             send 4 

  025f:04                 sub 
  0260:a5 01              sat temp1 
  0262:39 04            pushi 4 // $4 x
  0264:7c            pushSelf 
  0265:8d 00              lst temp0 
  0267:8d 01              lst temp1 
  0269:67 24             pTos gy 
  026b:43 56 08         callk SetJump 8 

  026e:85 00              lat temp0 
  0270:18                 not 
  0271:31 05              bnt code_0278 
  0273:34 4e20            ldi 4e20 
  0276:65 0c             aTop x 

        code_0278
  0278:85 01              lat temp1 
  027a:18                 not 
  027b:31 05              bnt code_0282 
  027d:34 4e20            ldi 4e20 
  0280:65 0e             aTop y 

        code_0282
  0282:8f 00              lsp paramTotal 
  0284:3c                 dup 
  0285:35 03              ldi 3 
  0287:1a                 eq? 
  0288:31 0a              bnt code_0294 
  028a:39 57            pushi 57 // $57 init
  028c:78               push1 
  028d:8f 01              lsp param1 
  028f:57 22 06         super Jump 6 

  0292:33 10              jmp code_02a4 

        code_0294
  0294:3c                 dup 
  0295:35 04              ldi 4 
  0297:1a                 eq? 
  0298:31 0a              bnt code_02a4 
  029a:39 57            pushi 57 // $57 init
  029c:7a               push2 
  029d:8f 01              lsp param1 
  029f:8f 04              lsp param4 
  02a1:57 22 08         super Jump 8 


        code_02a4
  02a4:3a                toss 
  02a5:48                 ret 
    )

    (method (moveDone) // method_02a6
  02a6:67 0c             pTos x 
  02a8:34 4e20            ldi 4e20 
  02ab:1c                 ne? 
  02ac:31 09              bnt code_02b7 
  02ae:39 04            pushi 4 // $4 x
  02b0:78               push1 
  02b1:67 0c             pTos x 
  02b3:63 08             pToa client 
  02b5:4a 06             send 6 


        code_02b7
  02b7:67 0e             pTos y 
  02b9:34 4e20            ldi 4e20 
  02bc:1c                 ne? 
  02bd:31 09              bnt code_02c8 
  02bf:39 03            pushi 3 // $3 y
  02c1:78               push1 
  02c2:67 0e             pTos y 
  02c4:63 08             pToa client 
  02c6:4a 06             send 6 


        code_02c8
  02c8:38 00a9          pushi a9 // $a9 moveDone
  02cb:76               push0 
  02cc:57 22 04         super Jump 4 

  02cf:48                 ret 
    )

)



