;redcode-b
;name Uvavu II revistited
;author Scott Manley
;strategy 0.6c Mod 8 spl,spl,jmp bomber -> continuous core clear/gate
;strategy added multi process imp protection if it gets hit.
;strategy Pspaced paper (paper 1), same faster boot code and active decoy.
;assert 1

	SPL	0,0
	SPL	0,1
	SPL	1,0
	SPL	1,1
	SPL	1,0
	SPL	0,1
	SPL	0,0
last	DAT	1,1
lost	DAT	1,1
plyd	DAT	1,1
strat	DAT	1,1
think	LDP.A   #0,last ;Won/lost
	LDP.A	#1,lost ;Battles lost
	LDP.A   #2,plyd ;Battles Played
	LDP.A 	#3,strat ;Dominant Strategy
	ADD.A	#1,plyd
	SNE.AB	last,#0
	ADD.A 	#1,lost
	SLT.AB	plyd, #20
	JMP	think2
	JMP	store
think2	STP.AB	lost,#1
	STP.AB	plyd,#2
	SUB.A	lost,plyd
	SLT.A	plyd,lost
	JMP 	decided
	STP.AB	#0,#1
	STP.AB	#0,#2
	SEQ.AB	strat,#0
	MOV.A	#-1,strat
	ADD.A	#1,strat
	STP.AB	strat,#3
decided	SEQ.A 	#0,strat
	JMP	paper
	JMP	boot
 store 	STP.AB 	lost,#1
	STP.AB	plyd,#2
	SEQ.A	#0,strat
	JMP	paper
boot	MOV.I	jmpb, -3500
	MOV.I   {boot,<boot
	MOV.I	{boot,<boot
	MOV.I	{boot,<boot
	MOV.I	{boot,<boot
	MOV.I	{boot,<boot
	MOV.I	{boot,<boot
	MOV.I	{boot,<boot
	MOV.I	{boot,<boot
	MOV	-1,boot
	JMP	-3516
inc	DAT	<-2936,<-2936
loop1	MOV	splb,*2
	MOV	jmpb,@1
	MOV	-2938,*-2936
	ADD.F	inc,-1
	DJN	loop1,#999
splb	SPL	0,<-3
	MOV	inc,<1
jmpb	JMP	-1,<-3
	SPL	0,0
	SPL	0,1
	SPL	1,0
	SPL	1,1
	SPL	1,0
	SPL	0,1
	DAT	1,1
	DAT	1,1
	DAT	1,1
paper	SPL	1, <300
	SPL	1, <400
	SPL	1,<500
silk	SPL	@0,{2200
	MOV.I	}-1,>-1	
silk1	SPL	@0,<3740
	MOV.I	}-1,>-1
	MOV.I	bom,>933
	MOV	{silk1,<silk2
silk2	JMP	@0,>-1278
bom	DAT	<2667,<1
	DAT	0,0
	DAT 	0,0
	DAT	1,1
	DAT	1,1
	SPL	0,0
	SPL	0,1
	SPL	1,0
	SPL	1,1
	SPL	0,1
	SPL	0,0
	SPL	1,0
	SPL	0,1
	SPL	1,1
	SPL	0,1
	SPL	1,0
	SPL	0,0
	SPL	1,1
	SPL	0,1
	SPL	1,1
	SPL	1,0
	SPL	0,1

	END	think