;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