;redcode ;name Inphanticisism ;author Robert Macrae ;assert CORESIZE == 8000 ;strategy Incisive and Phantasm variants ;-------------------------------------------------------- STEP equ 25 GAP equ 10 scst equ (loop+150) gate dat scst+GAP, scst for 5 dat 0, 0 rof sweep3 dat #gate-10, repeat-gate+1 sweep2 dat #gate-2676, repeat-gate+3 sweep1 spl #gate-10, repeat-gate+3 clear spl #-STEP, >-STEP clean mov.i @repeat, >gate mov.i @repeat, >gate repeat djn.b clean, {sweep1 for 3 dat 0, 0 rof loop sub.f clear, gate sne.i *gate, @gate check djn.f loop, <-1510 ;may as well build a decoy jmp clear, pclear hit1 jmp pit, }pclear dat 0, 0 dat 0, 0 pit2 mov dbomb, >pclear jmp -1, }pclear ; --------- hit2 dat 0, 0 sneak mov bomb, pclear jmp -1, }pclear hit5 dat 0,0 dbomb dat 0, -pclear+1 dat 0, 0 dat 0, 0 fang jmp pit-stfang, stfang ; ---------------------------------------------- ; Boot and Selection Logic select sfrom spl 1, sneak+2 mov