;redcode-94 ;name Sauron T ;author Michael Constant ;strategy special tournament version of Sauron ;strategy ;strategy I just hope Wayne doesn't figure out the one thing that beats ;strategy Sauron senseless... if not then I'm OK. ;kill Sauron ;macro DIST equ 2300 cclear mov split, <-10 jmz.a cclear, last+10 split spl #11, <-30 mov bomb, <-5 jump jmp -1, <-32 f impgen spl 1, stone+4+1 mov -1, 0 spl 1 spl 2 jmp @0, imp add #2667, -1 bomb dat <-31-2668,<-31 ; is this right? I'm not very familiar ; with gate-breaking imps... oh well. look qscan for 36 ;this would be 38 if there was enough room in the program cmp.x look+((qscan+1)*100), look+4000+((qscan+1)*100) mov.ab #-15+look+((qscan+1)*100)-found, @found rof found jmz blind, #0 zap mov.i split, >found mov.i jump, @found add #4002, found djn -3, #45 t jmp cclear, stone+4+1+DIST stone mov.i <1-10, 3+10 spl -1, #incr+1 sub.f incr, stone djn.f -2, <-3002 incr mov.i 10, <-10 blind spl impgen mov