;redcode-94 ;name Leprechaun on speed ;author Anders Ivner ;contact d91andiv@und.ida.liu.se ;NSFCWT Round 1 ;strategy Quickscanner -> Leprechaun deluxe ;strategy Optimizing carpet launch ;assert 1 STEP equ (-5741) A equ (loop2+5-STEP) lep equ check gate equ (loop2-3) offset equ 5230; CENSOR QSTEP equ 105 q0 equ (pt+QSTEP) start cmp q0+QSTEP*(-start), q0+QSTEP*(-start+1) mov #QSTEP*(-start-1)+q0-pt,pt for 7 cmp q0+QSTEP*(-start), q0+QSTEP*(-start+1) mov #QSTEP*(-start-1)+q0-pt,pt rof jmn attack, pt for 8 cmp q0+QSTEP*(-start), q0+QSTEP*(-start+1) mov #QSTEP*(-start-1)+q0-pt,pt rof jmn attack, pt for 8 cmp q0+QSTEP*(-start), q0+QSTEP*(-start+1) mov #QSTEP*(-start-1)+q0-pt,pt rof jmn attack, pt for 8 cmp q0+QSTEP*(-start), q0+QSTEP*(-start+1) mov #QSTEP*(-start-1)+q0-pt,pt rof jmz lep, pt attack jmn.f 2, @pt add #QSTEP, pt pt add.ba #69, #0 mov.f pt, pt-23 mov.f pt, pt-46 loop mov sb, {pt mov sb, gate djn.f clr, {gate dat 0,0 dat 0,0 const dat -STEP*3,-STEP*3 mb mov @0, }STEP dat 0,0 dat 0,0 bmb dat -1, 18 end start