;redcode-94f
;name Nimble Mimeo
;author Roy van Rijn
;assert (1||1||0||0)&&!(0||0||0||0)&&(1||1||0||1)&&(1||1||1||0)
;assert (1||0||1||1)&&(1||0||1||0)&&(1||0||1||1)&&(1||1||1||0)

;The original name is in the assert lines
;Jens can probably decypher it

for 0

Ok, some things I noted about this round.
You have to be very fast, and be adaptive is crutial.

The warriors always start at the same position so everything is the same each round. If you lose one round, and don't change anything you'll lose all the others too.

Thats why I made two things:
 - Lightning fast clear
 - Self optimizing paper

In the first component speed is crutial, it boots very quickly and places a simple dat-clear close to the enemy. The distance is startes its clear from is loaded from p-space. If the opponent is slow/few processes there is a big change we'll find the right offset and 100% kill it!

When its almost done booting the clear we start with the second component. This is a simple Moore-style-paper (which I love!) The special thing about this version is its boot/setting. The paper uses p-space, it loads its steps from p-space and when it doesn't win it adjusts these steps itself! Because we can't really optimise before the match.... I decided to do it DURING the match :-)

No idea how I'm going to do, it all depend on what Chip is going to send.

rof


for 300
dat 0,0
rof

pScore equ 0
pStart equ 34

p	ldp #pStart,a
	mod.ab #500,a
	ldp #pScore,#0
	seq.b -1,#1
	add.ab #211,a
	stp.b a,#pStart

	mov.i a-4,1799
	mov.i a-3,1799
	mov.i a-2,1799
	mov.i a-1,1799
	mov.i a,1799
	spl 1794,>1421
	jmp pap

	mov.i att,1799
	mov.i att+1,1799
	jmp 1797,>2341

;Super fast clear:
att 	mov.i -1,>1
a 	jmp -1,2
;b-field will contain the offset

for 23
dat 0,0
rof

pStep equ 221
pBomb equ 423

pap	ldp.a	#pStep		, pGo
	ldp.ab	#pBomb		, pAtt
	sne.b	p+2		, #1
	jmp	paper

;if we won, continue
;else adjust the constants

	add.ab	#1341		, pAtt
     	stp.b	pAtt		, #pBomb

	add.a	#7457		, pGo
     	stp.ab	pGo		, #pStep

;the paper Moore-style paper
paper	spl	2
	spl	1
	spl	1

pGo	spl	0		, {3
	mov	}2		, }-1
pAtt	mov	pBmb		, >0
	mov	3		, }-3
	jmz.f	-4		, *-1
pBmb	dat	<1		, }1


end p