;redcode-lp
;name Inferno 1.8
;author Philip Kendall
;strategy Tornado-based dat bomber -> d-clear
;strategy 1.8: now with stun power
;assert CORESIZE == 8000

step    equ     3205
bomb1   equ     (hit+step)
trigger equ     (hit-step)

ptr     equ     (cbomb-1)
cstart  equ     (safety+3-ptr)

cbomb   dat.f   >5335,cstart
mbomb   mov.i   step,1
dbomb   jmp.a   #1,1
loop    mov.i   dbomb,*stone
x       mov.i   mbomb,@stone
stone   mov.i   bomb1,*bomb1+step
        add.f   inc,@x
hit     jmz.f   loop,trigger
inc     spl.a   #(step*3),>(step*3)
clear   mov.i   cbomb,>ptr
        djn.f   clear,>ptr
safety  jmp.a   inc,>ptr

        end     loop