;redcode-94 ;name La Bomba ;author Beppe Bezzi ;assert CORESIZE == 8000 ;kill La Bomba org start qstep equ 5 qrounds equ 7 bigst equ 99 qst equ qstart -(4*bigst) qstart equ start+145 dest0 equ 2200 dest1 equ 3740 dest2 equ -1278 range equ 933 start s1 for 5 sne.x qst+4*bigst*s1, qst+4*bigst*s1+bigst*1 ;check two locations seq.x qst+4*bigst*s1+bigst*2, qst+4*bigst*s1+bigst*3 mov.ab #qst+4*bigst*s1-found, found ;they differ so set pointer rof jmn which, found s2 for 5 sne.x qst+4*bigst*(s2+5), qst+4*bigst*(s2+5)+bigst*1 seq.x qst+4*bigst*(s2+5)+bigst*2, qst+4*bigst*(s2+5)+bigst*3 mov.ab #qst+4*bigst*(s2+5)-found, found rof jmn which, found s3 for 5 sne.x qst+4*bigst*(s3+10), qst+4*bigst*(s3+10)+bigst*1 seq.x qst+4*bigst*(s3+10)+bigst*2, qst+4*bigst*(s3+10)+bigst*3 mov.ab #qst+4*bigst*(s3+10)-found, found rof jmn.b which, found s4 for 5 sne.x qst+4*bigst*(s4+15), qst+4*bigst*(s4+15)+bigst*1 seq.x qst+4*bigst*(s4+15)+bigst*2, qst+4*bigst*(s4+15)+bigst*3 mov.ab #qst+4*bigst*(s4+15)-found, found rof jmn.b which, found found jmz.b warr, #0 ;skip attack if qscan found nothing add #bigst, -1 ;increment pointer till we get the which jmz.f -1, @found ;right place qattack ;found.b points target mov bomba, @found ;in case small and dangerous for 0 After decoding enemy position it checks the location found+32 and, if it proves not to be empty, shifts 30 cells the bombing zone to the right This added near 5 points to my score rof add.ba found, qstone add.b found, qstone seq *qstone,-100 add.f shift, qstone qst1 mov qbomb, *qstone ;Tornado bombing engine the faster way mov qbomb, @qstone ;to fill your enemy with hot lead qstone mov 32, *32-qstep sub.f qincr, qstone djn.b qst1, #qrounds warr ;Paper01 the hint warrior paper spl 1, <300 spl 1, <400 spl 1, <500 silk spl @0, {dest0 mov.i }-1, >-1 silk1 spl @0, -1 mov.i bomba, }range mov {silk1, dest2 bomba dat <2667, <1 qbomb dat #-qstep, #-qstep qincr dat #3*qstep,#3*qstep shift dat #30, #30 for MAXLENGTH-CURLINE-9 dat 0,0 rof for 9 dat 1,1 rof end