;redcode
;name wickedTriathlon
;author EL KAUKA

;strategy p-switcher
;strategy 1. AntFarm v.01 (paper/bomber)
;strategy 2. paralyse v.01 (paper?/spl-bomber/core-clear)
;strategy 3. TheTideIsHigh v.02 (on-axis-scaner/imp/imp-gate)

org boot

boot    ldp     #0,     -1
        ldp.a   #2,     5
        sne     -3,     -4
        add.a   #1,     3
        add.a   #1,     2
        mod.a   #5,     1
        jmp     0,      0
        jmp     taktik1
        jmp     taktik2
        jmp     taktik3


;~~~~~~~*TAKTIK 1*~~~~~~~~
taktik1 stp     #0,     #2

; AntFarm (paper/bomber)

        jmp     start

aim     equ     361

p1      nop     0,      aim
p2      nop     0,      aim
start   mov.i   p2,     p1
loop    mov.i   }p1,>p1
        djn.b   loop,   #10
        spl     p1+aim+2
        add     #4,     p1+aim+4

        add     #306,1
        mov     2,2
        jmp     -2


;~~~~~~~*TAKTIK 2*~~~~~~~~
        dat     0,      0
        dat     0,      0

taktik2 stp     #1,     #2

;paralyse (paper?/spl-bomber/coreclear)

PREboot spl     ex
        jmp     bot

lop     add     #280,   z1

bot     mov     fi3,    <z1
        mov     fi2,    <z1
        mov     fi1,    <z1
        spl     @z1
        mov     sp,     <z1
        djn     lop,    z2
        jmp     ex

fi1     mov     -1,     220
fi2     sub     #4,     -1
fi3     djn     -2,     -2

sp      spl     0

z1      dat     0,      100
z2      dat     0,      28

bmb     dat     0,      0

ex      spl     tc
zu      add     #1,     1
        mov     bmb,    6
        jmp     zu

tc      add     #-70,   1
        mov     bmb,    0
        jmp     tc



;~~~~~~~*TAKTIK 3*~~~~~~~~
taktik3 stp     #2,     #2


; TheTideIsHigh (scaner)


        jmp     load

aim2    equ     4005
gatK    equ     -5

imp     mov     0,      1
gate    jmp     0,      <gatK

load    mov     imp,    320
        spl     319
        mov     imp,    4320
        spl     4319

        mov     gate,   2000
        spl     1999
        mov     gate,   5998
        spl     5997

        mov     gate,   3850
        spl     3849
        mov     gate,   7848
        spl     7847

i       for     4
mov     scan+i-1,       aim2
        rof

spl     aim2-1

scan    seq     0,      4000
        mov     *scan,  @scan
        nop     {scan,  <scan
        jmp     scan,   <gatK

end