;redcode-94nop ;name Really Frenzy II ;author Lukasz Grabun ;strategy optimized and altered version of Really Frenzy ;assert 1 org qGo step equ 3510 gate equ (TOP-4) away equ 2000 dist equ 15 boot mov bim , away+20+TOP src spl 2 , TOP+10 dest spl 2 , TOP+10+away spl 1 , <-away mov dest , #5 jmp TOP+away+1 , <-away TOP start add #step , 2 mov 19 , @1 mov >bis , @2-dist jmz.b -3 , gate djn.f -1 , >gate bmb dat >5335 , 2-gate for 5 dat 0 , 0 rof bim mov dist , }dist for 36 dat 0 , 0 rof qf equ qKil qs equ 200 qd equ 4000 qi equ 7 qr equ 8 qBmb dat {qi*qr-10 , {1 ; -+)>] 0/1 cycles [(<+- qGo seq qd+qf+qs , qf+qs ; 1 jmp qSki , {qd+qf+qs+qi+2 sne qd+qf+5*qs , qf+5*qs ; B+1 seq qf+4*qs , {qTab ; B jmp qFas , }qTab sne qd+qf+8*qs , qf+8*qs ; A seq qf+7*qs , {qTab-1 ; A-1 jmp qFas , {qFas sne qd+qf+10*qs , qf+10*qs ; C seq qf+9*qs , {qTab+1 ; C-1 jmp qFas , }qFas seq qd+qf+2*qs , qf+2*qs ; B-2 jmp qFas , {qTab seq qd+qf+6*qs , qf+6*qs ; A-2 djn.a qFas , {qFas seq qd+qf+3*qs , qf+3*qs ; B-1 jmp qFas , {qd+qf+3*qs+qi+2 ; -+>)] 2 cycles [(<+- sne qd+qf+14*qs , qf+14*qs ; E+1 seq qf+13*qs , qTab sne qd+qf+17*qs , qf+17*qs ; D seq qf+16*qs ,