;redcode-94x ;author Kurt Franke ;name Hector 2 ;strategy qscan -> replicator ;strategy (I didn't even change the constants for the big hill..) ;assert CORESIZE == 55440 start ;'94 scan (from FAQ) s1 for 4 sne start+400*s1, start+400*s1+100 ;check two locations seq start+400*s1+200, start+400*s1+300 ;check two locations mov #start+400*s1-found, found ;they differ so set pointer rof jmn which, found ;if we have something, get it s3 for 4 sne start+400*(s3+8), start+400*(s3+8)+100 ;check two locations seq start+400*(s3+8)+200, start+400*(s3+8)+300 ;check two locations mov #start+400*(s3+8)-found, found ;they differ so set pointer rof jmn which, found ;if we have something, get it s2 for 4 sne start+400*(s2+4), start+400*(s2+4)+100 seq start+400*(s2+4)+200, start+400*(s2+4)+300 mov #start+400*(s2+4)-found-100, found rof found jmz paper, #0 ;skip attack if qscan found nothing add #100, -1 ;increment pointer till we get the which jmz -1, @found ;right place mov start-1, @found sub #16, found mov start-1, @found add #8, found djn -2, #7 jmp paper for 40 dat 0,0 rof ASTEP equ 2268 ;; replicator (test1) with computer optimized constants BSTEP equ 5879 CSTEP equ 7901 paper spl 1, <-200 mov -1, 0 spl 1, <-300 one spl @one, }ASTEP onea mov }one, >one two spl @two, }BSTEP twoa mov }two, >two threea mov {two, CSTEP end start