;redcode-DN ;name LPower ;author Christian Schmidt ;strategy anti-imp LP paper, scanner, dwarf ;assert 1 ;------------LP paper AI------------------- ;----Replication---- l equ 26 zofs equ 2309 ;------Bombing------ bo1 equ 6327 bo2 equ 2285 color equ 686 a equ 4029 b equ 5354 c equ 4846 from mov #l, #0 loop mov d1 , >a mov d1 , >b mov d1 , >c mov from, }color to jmz zofs, *0 d1 dat <5334 , <2667 for 34 dat 0, 0 rof ;------------Scanner------------------- STEP equ 5379 SDIST equ from+5085 ;6421;1703 sgate equ (scan-2) scissor mov *sclr, @sptr for 8 mov {sclr, scan-1 pscan jmz.f scan, @scan slt scan, #sclr+1-scan chg mov.i @pscan, @mv chk jmn scan, scan mov.f dclr, >chk djn.f 1 end pThink