;redcode-94nop verbose ;name Gods Of Destiny ;author Nenad Tomasev ;assert CORESIZE==8000 ;strategy stone/paper ;strategy high expectations ;strategy I hope I won't get ;strategy disappointed this time ;strategy CoreRW + qsilver stone ps1 equ 4143 ps2 equ 1011 ps3 equ 7321 bs1 equ 5700 bs2 equ 3823 pbd equ 1208 c1 equ 3182 c2 equ 1092 sdist equ 3526 zero equ qbomb qtab3 equ qbomb hStep equ 3039 hTime equ 3360 hDjn equ 2813 hOff equ 5 hDist equ pbd+sdist org qgo qbomb dat >qoff, >qc2 boot mov hBomb, sgo+hDist+hOff spl 1, {qb1 qtab2 spl 1, {qb2 spl 1, {qb3 mov ps1 mov }p1, >p1 p2 spl @0, >ps2 mov }p2, >p2 mov.i #1, {1 mov.i bs1, }bs2 mov {p2, {p3 p3 jmz.a ps3, *0 for 8 dat 0, 0 rof stone spl #0, 0 hLoop mov hBomb+hOff, @hPtr hHit add #hStep*2, hPtr hPtr mov hBomb+hOff, }hHit-hStep*hTime djn.f hLoop, 1 for 13 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,