;redcode-94x ;name Evolve X v4.0 ;author John Wilkinson ;assert CORESIZE==55440 ;strategy q^2 -> paper and imp. my last version got 0 losses against ;strategy most warriors... but it didn't have a qscan. ;assert CORESIZE==55440 d equ 29179 ; 19 34117 ; 13 -- 38567 ;23 org start step equ 12 ; gap between qbombs strafelen equ 4 ; coverage area = step*strafelen*3 bomb dat <1, step qstep dat -step, 2*step ;*************** QSCAN qs equ 10 QS1 equ (400) QS2 equ (3*QS1) QS3 equ (6*QS2) QBASE equ (tab+20300) SIG01 equ a01 SIG02 equ {a01 SIG03 equ }a01 SIG04 equ >a01 SIG05 equ evol evoli: spl #d, bstep-1 mov b1, >2 add.f evoli, j j: jmp.f imp2-(d+1), {-6+bstep dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 dat 0, 0 b1 dat <1, 1 imp2 mov.i #d, *0