(script 974)

(string
    string_0188 "Follow"
    string_018f ""
)

(said
)

(local
)

// 011a
(class Follow 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 $14
    )
    (method (init) // method_0004
  0004:8f 00              lsp paramTotal 
  0006:35 01              ldi 1 
  0008:20                 ge? 
  0009:31 1a              bnt code_0025 
  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 0f              bnt code_0025 
  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 04              bnt code_0025 
  0021:87 03              lap param3 
  0023:65 24             aTop distance 

        code_0025
  0025:38 00ae          pushi ae // $ae distanceTo
  0028:78               push1 
  0029:67 22             pTos who 
  002b:63 08             pToa client 
  002d:4a 06             send 6 

  002f:36                push 
  0030:63 24             pToa distance 
  0032:1e                 gt? 
  0033:31 19              bnt code_004e 
  0035:39 57            pushi 57 // $57 init
  0037:39 03            pushi 3 // $3 y
  0039:67 08             pTos client 
  003b:39 04            pushi 4 // $4 x
  003d:76               push0 
  003e:63 22             pToa who 
  0040:4a 04             send 4 

  0042:36                push 
  0043:39 03            pushi 3 // $3 y
  0045:76               push0 
  0046:63 22             pToa who 
  0048:4a 04             send 4 

  004a:36                push 
  004b:57 1c 0a         super Motion a 


        code_004e
  004e:48                 ret 
    )

    (method (onTarget) // method_004f
  004f:38 00ae          pushi ae // $ae distanceTo
  0052:78               push1 
  0053:67 22             pTos who 
  0055:63 08             pToa client 
  0057:4a 06             send 6 

  0059:36                push 
  005a:63 24             pToa distance 
  005c:24                 le? 
  005d:48                 ret 
    )

    (method (setTarget) // method_005e
  005e:87 00              lap paramTotal 
  0060:31 0b              bnt code_006d 
  0062:38 00ab          pushi ab // $ab setTarget
  0065:76               push0 
  0066:59 01            &rest 1 
  0068:57 1c 04         super Motion 4 

  006b:33 20              jmp code_008d 

        code_006d
  006d:38 00ac          pushi ac // $ac onTarget
  0070:76               push0 
  0071:54 04             self 4 

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

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

  0089:36                push 
  008a:57 1c 08         super Motion 8 


        code_008d
  008d:48                 ret 
    )

    (method (doit) // method_008e
  008e:3f 01             link 1 // (var $1)
  0090:38 00ae          pushi ae // $ae distanceTo
  0093:78               push1 
  0094:67 22             pTos who 
  0096:63 08             pToa client 
  0098:4a 06             send 6 

  009a:36                push 
  009b:63 24             pToa distance 
  009d:1e                 gt? 
  009e:31 28              bnt code_00c8 
  00a0:39 3c            pushi 3c // $3c doit
  00a2:76               push0 
  00a3:57 1c 04         super Motion 4 

  00a6:67 14             pTos b-moveCnt 
  00a8:35 00              ldi 0 
  00aa:1a                 eq? 
  00ab:31 19              bnt code_00c6 
  00ad:39 57            pushi 57 // $57 init
  00af:39 03            pushi 3 // $3 y
  00b1:67 08             pTos client 
  00b3:39 04            pushi 4 // $4 x
  00b5:76               push0 
  00b6:63 22             pToa who 
  00b8:4a 04             send 4 

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

  00c2:36                push 
  00c3:57 1c 0a         super Motion a 


        code_00c6
  00c6:33 4a              jmp code_0112 

        code_00c8
  00c8:39 04            pushi 4 // $4 x
  00ca:39 04            pushi 4 // $4 x
  00cc:76               push0 
  00cd:63 08             pToa client 
  00cf:4a 04             send 4 

  00d1:36                push 
  00d2:39 03            pushi 3 // $3 y
  00d4:76               push0 
  00d5:63 08             pToa client 
  00d7:4a 04             send 4 

  00d9:36                push 
  00da:39 04            pushi 4 // $4 x
  00dc:76               push0 
  00dd:63 22             pToa who 
  00df:4a 04             send 4 

  00e1:36                push 
  00e2:39 03            pushi 3 // $3 y
  00e4:76               push0 
  00e5:63 22             pToa who 
  00e7:4a 04             send 4 

  00e9:36                push 
  00ea:43 43 08         callk GetAngle 8 

  00ed:a5 00              sat temp0 
  00ef:39 3e            pushi 3e // $3e looper
  00f1:76               push0 
  00f2:63 08             pToa client 
  00f4:4a 04             send 4 

  00f6:31 12              bnt code_010a 
  00f8:39 3c            pushi 3c // $3c doit
  00fa:7a               push2 
  00fb:67 08             pTos client 
  00fd:8d 00              lst temp0 
  00ff:39 3e            pushi 3e // $3e looper
  0101:76               push0 
  0102:63 08             pToa client 
  0104:4a 04             send 4 

  0106:4a 08             send 8 

  0108:33 08              jmp code_0112 

        code_010a
  010a:7a               push2 
  010b:67 08             pTos client 
  010d:8d 00              lst temp0 
  010f:43 50 04         callk DirLoop 4 


        code_0112
  0112:48                 ret 
    )

    (method (moveDone) // method_0113
  0113:48                 ret 
    )

)



