;redcode
;name Dog ate my warrior
;author Michal Janeczek
;strategy CWSET 2005 - round 2, vs. Zul Nadzri
;strategy stone/imp
;strategy dumbed down Hammerhead
;assert 1

     org   boot

step equ   3576
hop  equ   45

inc  spl   #step, <-step
     mov   {step, @loop-step-hop
     mov   bomb,  @-1
     add   inc, -2
loop jmp   @-1, <-step+inc
     mov   bomb, >inc-6
     djn.f -1, >inc-6
bomb dat   <2731, hop

     for   50
     dat   0, 0
     rof

boot mov   <away, {away
     mov   <away, {away
     mov   <away, {away
     mov   <away, {away
     mov   <away, {away
     spl   inc
     spl   inc
     spl   inc
away jmp   5+(loop-hop)-110*step, 5+pump

imp  equ   2731
off  equ   500

pump spl   #off, 1234
     sub.f #-imp-1, 2
     mov   2, }pump
vect jmp   pump+off-2*(imp+1), >2*imp
     mov.i #10, imp