;redcode-94 ;name Cooperative Black Dimension 1.0 ;author Blake Escritt/C. Schmidt ;strategy Handshake -> qscanner -> stone/paper ;strategy 1.0: Original program ;strategy Borrowing some code, testing the idea ;strategy of cooperative hill configurations. ;assert 1 ; Sorry about the sparse comments. ORG enemy WID EQU (7876) ;r edcode-94nop ;n ame Spiritual Black Dimension ;a uthor Christian Schmidt ;s trategy ;a ssert 1 pStep1 equ 431 pStep2 equ 4692 sAwa equ 4275 dAwa equ 3524 dStep equ 2862 dOff equ 4655 zero equ qbomb qtab3 equ qbomb qbomb dat >qoff, >qc2 wGo mov >dLoop, >dBoo spl 2, dLoop, >dBoo mov dBoo pBoo djn wGo+dAwa+6, #wGo+sAwa dGo spl #2*dStep, {2*dStep mov dBmb, *2 add.f -2, 1 mov dOff, dOff+dStep dLoop jmp -3, dGo dat 0, 0 dBmb dat }1, >1 for 4 dat 0, 0 rof dat zero-1, qa1 qtab1 dat zero-1, qa2 pGo spl pStep1, {3 mov }2, }-1 mov pBmb, >pStep2 mov 3, }-3 jmz.f -4, *-1 pBmb dat <2667, <5334 pEnd dat 0, 0 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 qgo sne qptr + qz*qc2, qptr + qz*qc2 + qb2 seq qptr, qptr + qz + (qb2-1) jmp q2,