(script 975)

(string
    string_013c "Chase"
)

(said
)

(local
)

// 00d2
(class Chase 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
        who $0
        distance $0
    )
    (method (init) // method_0004
  0004:8f 00              lsp paramTotal 
  0006:35 01              ldi 1 
  0008:20                 ge? 
  0009:31 25              bnt code_0030 
  000b:87 01              lap param1 
  000d:65 08             aTop client 
  000f:8f 00              lsp paramTotal 
  0011:35 02              ldi 2 
  0013:20                 ge? 
  0014:31 1a              bnt code_0030 
  0016:87 02              lap param2 
  0018:65 22             aTop who 
  001a:8f 00              lsp paramTotal 
  001c:35 03              ldi 3 
  001e:20                 ge? 
  001f:31 0f              bnt code_0030 
  0021:87 03              lap param3 
  0023:65 24             aTop distance 
  0025:8f 00              lsp paramTotal 
  0027:35 04              ldi 4 
  0029:20                 ge? 
  002a:31 04              bnt code_0030 
  002c:87 04              lap param4 
  002e:65 0a             aTop caller 

        code_0030
  0030:39 57            pushi 57 // $57 init
  0032:39 04            pushi 4 // $4 x
  0034:67 08             pTos client 
  0036:39 04            pushi 4 // $4 x
  0038:76               push0 
  0039:63 22             pToa who 
  003b:4a 04             send 4 

  003d:36                push 
  003e:39 03            pushi 3 // $3 y
  0040:76               push0 
  0041:63 22             pToa who 
  0043:4a 04             send 4 

  0045:36                push 
  0046:67 0a             pTos caller 
  0048:57 1c 0c         super Motion c 

  004b:48                 ret 
    )

    (method (onTarget) // method_004c
  004c:38 00ae          pushi ae // $ae distanceTo
  004f:78               push1 
  0050:67 22             pTos who 
  0052:63 08             pToa client 
  0054:4a 06             send 6 

  0056:36                push 
  0057:63 24             pToa distance 
  0059:24                 le? 
  005a:48                 ret 
    )

    (method (setTarget) // method_005b
  005b:87 00              lap paramTotal 
  005d:31 0b              bnt code_006a 
  005f:38 00ab          pushi ab // $ab setTarget
  0062:76               push0 
  0063:59 01            &rest 1 
  0065:57 1c 04         super Motion 4 

  0068:33 20              jmp code_008a 

        code_006a
  006a:38 00ac          pushi ac // $ac onTarget
  006d:76               push0 
  006e:54 04             self 4 

  0070:18                 not 
  0071:31 17              bnt code_008a 
  0073:38 00ab          pushi ab // $ab setTarget
  0076:7a               push2 
  0077:39 04            pushi 4 // $4 x
  0079:76               push0 
  007a:63 22             pToa who 
  007c:4a 04             send 4 

  007e:36                push 
  007f:39 03            pushi 3 // $3 y
  0081:76               push0 
  0082:63 22             pToa who 
  0084:4a 04             send 4 

  0086:36                push 
  0087:57 1c 08         super Motion 8 


        code_008a
  008a:48                 ret 
    )

    (method (doit) // method_008b
  008b:38 00ae          pushi ae // $ae distanceTo
  008e:78               push1 
  008f:67 22             pTos who 
  0091:63 08             pToa client 
  0093:4a 06             send 6 

  0095:36                push 
  0096:63 24             pToa distance 
  0098:24                 le? 
  0099:31 08              bnt code_00a3 
  009b:38 00a9          pushi a9 // $a9 moveDone
  009e:76               push0 
  009f:54 04             self 4 

  00a1:33 28              jmp code_00cb 

        code_00a3
  00a3:39 3c            pushi 3c // $3c doit
  00a5:76               push0 
  00a6:57 1c 04         super Motion 4 

  00a9:67 14             pTos b-moveCnt 
  00ab:35 00              ldi 0 
  00ad:1a                 eq? 
  00ae:31 1b              bnt code_00cb 
  00b0:39 57            pushi 57 // $57 init
  00b2:39 04            pushi 4 // $4 x
  00b4:67 08             pTos client 
  00b6:39 04            pushi 4 // $4 x
  00b8:76               push0 
  00b9:63 22             pToa who 
  00bb:4a 04             send 4 

  00bd:36                push 
  00be:39 03            pushi 3 // $3 y
  00c0:76               push0 
  00c1:63 22             pToa who 
  00c3:4a 04             send 4 

  00c5:36                push 
  00c6:67 0a             pTos caller 
  00c8:57 1c 0c         super Motion c 


        code_00cb
  00cb:48                 ret 
    )

)



