;redcode-94
;name Babbo Natale
;author Maurizio Vittuari
;strategy test based on Taking Names engine
;assert CORESIZE == 8000
;kill Babbo Natale

step    equ    98
soap	equ	2

for 100-23
	dat.f	0,	0
rof

spl3	stp	#soap,	#0	;era uno spl	-3
clrptr  dat	last+2
jmp4	jmp	-4,	<-1
bomb	dat	<-2666,	<2667	;{2667
reset   dat	#step-4,#step
spl2	spl	-2,	<1
spl1	spl	-1,	<2
attack	mov	jmp4,	*comp
compptr	mov	spl3,	{comp
	mov	spl2,	{comp
	mov	spl1,	{comp
	mov	spl0,	{comp
	sub	reset,	@compptr

scan	add	spl0,	@compptr
comp	sne	2*step,	3*step
	add	spl0,	@compptr
	seq	*comp,	@comp
	slt	#100+step,@compptr
ctr	djn	scan,	#2500
	jmn	attack,	-1

spl0	spl.i	#(2*step),#(2*step)
clear	mov	bomb,	>clrptr	;era reset
last	jmp	-1
end	comp