;redcode quiet
;name Eclipse II
;kill Eclipse
;author P.Kline
;strategy bscan, ringkiller, avamp, spl-0 carpet, clear->gate's
;strategy including ideas from Plasma, Paratroops, and old Eclipse
;strategy added mouse for emergencies (Paratroops attack)
;strategy small change in anti-vamp
step     equ 3094
hold     equ scan-250
ptr      equ scan-120
ptr2     equ ptr+1
minone   equ scan-4000
splmin1  spl -1,<57
start    sub #1,minone
         jmp next
ref3     add @7931,7932
         mov 7984,<7931
         mov 7983,@7929
         cmp 7950,<7928
         jmp 7995
         jmn 7994,<7926
         sub @50,@46
         djn 7992,#8
         spl 14
p2ck     spl 24
         mov <10,<3
clrback  mov ptr,ptr2
         add @ptr,ptr2
         mov splmin1,<ptr2
         mov splmin1,@ptr
         cmp -50,<ptr
         jmp clrback
         jmn clrback,<ptr
clrback2 sub @save,@ptrptr
         djn clrback,#8
         
phase2   spl g2copy
         spl avamp
         
g1copy   mov <g1f,<g1t1
         mov @g1f,<g1t2
g1ct     djn g1copy,#5
g1t1     spl @0,g1f+1000
g1t2     jmp @0,g1f+5002
g1a      mov g1c,<2000-30
g1b      jmz -1,10
g1c      spl 0,<-20
g1d      mov 1,<-23
g1e      dat <-22,<-21
g1f      dat #0
         dat #0
g2copy   mov <g2f,<g2t1
         mov @g2f,<g2t2
g2ct     djn g2copy,#5
g2t1     spl @0,g1f+3003
g2t2     jmp @0,g1f+7005
g2a      mov g2c,<2000-30
g2b      jmz -1,10
g2c      spl 0,<-20
g2d      mov 1,<-23
g2e      dat <-22,<-21
g2f      dat #0
avamp    jmz 0,<2
         sub @1,<1
         mov 500,<700
         djn -1,#75
bomb1    dat #0
ref1     add #step,@2
         jmz 7999,@7880
         cmp 3999,@7879
         slt #170,@7999
         jmn 7996,7996
         slt #3900,@7876
         mov @7875,7745
         slt #20,@7999
         mov #5,@7998
         mov 3992,@7872
         add @7996,@7992
         jmn 7998,@7870
         
next     add #step,@ptrptr
scan     jmz next,@ptr
ptrptr   cmp minone,@ptr
         slt #170,@ptrptr
         jmn next,next
         slt #3900,@ptr
save     mov @ptr,hold
         slt #20,@save
         mov #5,@save
attack   mov minone,@ptr
         add @save,@ptrptr
scanptr  jmn attack,@ptr
         jmz clrback2,p2ck
         jmp ms
ref2     cmp 3999,@7879
         slt #170,@7999
         jmn 7996,7996
         slt #3900,@7876
         mov @7875,7745
         slt #20,@7999
         mov #5,@7998
         mov 3992,@7872
         add @7996,@7992
         jmn 7998,@7870
         jmz 7944,7935
         jmp 13
         
ms       mov #8,0
         add #1431,mnew
         mov <ms,<mnew
         jmn -1,ms
mnew     spl @0,0
         jmz ms,ms
         mov 0,-3
         end start