1;redcode-94nop 2;name CrazyShot 2 3;author Christian Schmidt 4;strategy mini Q^4 -> .66c Bishot-style Scanner 5;strategy new qscan, slightly tweaked scanner 6;assert 1 7 8sOff equ (20*sStep-1) 9sStep equ 10 10sDelet equ 205 11sSt equ 3 12 13sOne add.f sAdd, sPtr 14 sne.i *sPtr, @sPtr 15 jmp sOne, 0 16 jmp sBomb, 0 17for sSt 18 dat 0, 0 19rof 20 dat 0, 0 21sAdd dat.f sStep, sStep 22sPtr spl {sOff, >4000+sOff-sDelet 23 dat 0, 0 24 dat 0, 0 25 dat {10, >4010-sDelet 26sBomb spl #20, <-100 27sLoop mov sBomb, >sPtr 28 mov sBomb, }sPtr 29sBack djn.a sLoop, <sBomb 30 31for 44-sSt 32dat 0, 0 33rof 34 35org qGo 36 37qf equ qKil 38qs equ 200 39qd equ 4000 40qi equ 7 41qr equ 8 42 43qBmb dat {qi*qr-10, {1 44qGo seq qd+qf+qs, qf+qs 45 jmp qSki, {qd+qf+qs+qi+2 46 sne qd+qf+5*qs, qf+5*qs 47 seq qf+4*qs, {qTab 48 jmp qFas, }qTab 49 sne qd+qf+8*qs, qf+8*qs 50 seq qf+7*qs, {qTab-1 51 jmp qFas, {qFas 52 sne qd+qf+10*qs, qf+10*qs 53 seq qf+9*qs, {qTab+1 54 jmp qFas, }qFas 55 seq qd+qf+2*qs, qf+2*qs 56 jmp qFas, {qTab 57 seq qd+qf+6*qs, qf+6*qs 58 djn.a qFas, {qFas 59 seq qd+qf+3*qs, qf+3*qs 60 jmp qFas, {qd+qf+3*qs+qi+2 61 sne qd+qf+14*qs, qf+14*qs 62 seq qf+13*qs, <qTab 63 jmp qSlo, >qTab 64 sne qd+qf+17*qs, qf+17*qs 65 seq qf+16*qs, <qTab-1 66 jmp qSlo, {qSlo 67 seq qd+qf+11*qs, qf+11*qs 68 jmp qSlo, <qTab 69 seq qd+qf+15*qs, qf+15*qs 70 djn.b qSlo, {qSlo 71 sne qd+qf+12*qs, qf+12*qs 72 jmz sOne, qd+qf+12*qs-qi 73qSlo mov.ba qTab, qTab 74qFas mul.ab qTab, qKil 75qSki sne qBmb-1, @qKil 76 add #qd, qKil 77qLoo mov.i qBmb, @qKil 78qKil mov.i qBmb, *qs 79 sub.ab #qi, qKil 80 djn qLoo, #qr 81 jmp sOne, <-4000 82 dat 5408, 7217 83qTab dat 4804, 6613 84dSrc dat 5810, qBmb-5 85 86end 87 88