;redcode-94nop verbose ;name WaterDragon ;author Nenad Tomasev ;assert CORESIZE==8000 ;strategy stone/paper ;strategy based on my DifferentialOperatorWS ;strategy a test version... but nice scores. ;strategy this is my first optimaxed warrior ;strategy entered 94nop as 3. on 09.08.2005. ;strategy only three points behind HullaTwo :-) ;strategy died at age 50 :-( ;strategy because of the attack of several ;strategy s/d clear + imps (+stone) that did very well ;strategy against s/p's ;strategy well, I guess it wasn't optimized against ;strategy bad luck... but it's still one of my ;strategy favorites... I wonder how it'll score at ;strategy 94nop Koenigstuhl. numproc equ 6 ps1 equ 1107 ps2 equ 1893 bs1 equ 6681 c1 equ 4855 c2 equ 5477 sbd equ 3904 pbd equ 698 sstep equ 6567 ini equ (sstep+3) ds equ 3244 sptr equ (sbomb + sboff) sboff equ 4 zero equ qbomb qtab3 equ qbomb org qgo qbomb dat >qoff, >qc2 boot mov sbomb, (sbomb+sboff+sbd) spl 1, {qb1 qtab2 mov.i -1, #qb2 spl 1, {qb3 mov -1, >1 add.f stone, @-1 djn.f @-2, -1, >1 for 5 dat 0, 0 rof p1 spl @(pbomb+4), >ps1 mov }p1, >p1 mov }p1, >p1 p2 spl ps2, {cpy mov }cpy, }p2 mov pbomb, >bs1 cpy mov p2+numproc, }p2 jmz.f p2, *cpy pbomb dat <2667, <5334 for 20 dat 0, 0 rof qc2 equ ((1+(qtab3-qptr)*qy)%CORESIZE) qb1 equ ((1+(qtab2-1-qptr)*qy)%CORESIZE) qb2 equ ((1+(qtab2-qptr)*qy)%CORESIZE) qb3 equ ((1+(qtab2+1-qptr)*qy)%CORESIZE) qa1 equ ((1+(qtab1-1-qptr)*qy)%CORESIZE) qa2 equ ((1+(qtab1-qptr)*qy)%CORESIZE) qz equ 2108 qy equ 243 ;qy*(qz-1)=1 ;q0 mutation qgo sne qptr+qz*qc2, qptr+qz*qc2+qb2 seq qptr, qptr+qz+(qb2-1) jmp q2,