;redcode-94nop ;name DanceOfFallenAngels ;author Nenad Tomasev ;assert CORESIZE==8000 ;strategy stone/paper ;strategy a improved Starfall ps1 equ 1082 ps2 equ 2877 ps3 equ 4043 bs equ 3850 step equ 1471 ini equ (step-2) ds equ 3323 pbd equ 737 sdist equ 4754 sbd equ (pbd+sdist) c1 equ 6144 c2 equ 4146 zero equ qbomb qtab3 equ qbomb org qgo qbomb dat >qoff, >qc2 dat 0, 0 boot spl 1, {qb1 qtab2 spl 1, {qb2 spl 1, {qb3 mov ps1 mov }-1, >-1 p1 spl @0, >ps2 mov }-1, >-1 mov.i b, >bs mov {p1, {1 jmz.a ps3, *0 b dat <2667, <5334 for 5 dat 0, 0 rof stone spl #-3*step, >-3*step mov.i sbomb, @shoot sub.f stone, @-1 shoot mov.i }ini, }ini+step djn.f (stone+1), step, >1 for 16 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,