;redcode-94 test ;name traumatic smurf ;author bjoern guenzel ;strategy torch t18 with b-clear ;assert 1 ;; for 0 ;; ;;the bomber of traumatic smurf is based on a variant of torch t18 (no ;;time to search for better steps...) and a brainwashing variant of ;;d-clear ;; ;; rof shift equ -3780 step equ 54 count equ 2000 sm mov.i step+1,}step+1 ;mov half of incendary dat 0,0 dat 0,0 sp spl #-step,1 ;spl half of incendary loop sub #2*step,ptr ptr mov.i sp, *hit+(step*count)-17228-step-1 ;Kline's hard work mov sm,@ptr hit jmz.b loop,#0 ;hit with spl -> start clear clear mov.i *bptr,>sm djn.f -1,>sm last dat 0,0 ;boot this dat, too dat 0,0 dat 0,0 dat #1,bptr-sm+5 ;bomb for clear bptr stp.ab >0,#bptr-sm ;decrement to switch to dat boot mov.i {source,{boptr ;boot clear bombs mov.i {source,{boptr for 8 mov.i 1000 boptr div.f #bptr+1+shift,#last+1+shift boptr2 div.f #0,#sm+shift source dat #bptr+1,#last+1 for 10 dat 0,0 rof z for MAXLENGTH-CURLINE spl #z,-z rof end boot