;redcode-odd ;name Hooligans and Thugs ;author Chip Wendell ;strategy Entry for Redcoders Frenzy #21 ;strategy Start with a sparse bombing run, ;strategy then search for ball and goal. ;strategy Show no mercy! ;assert CORESIZE==8000 value equ 3456 ; just for Koenigstuhl [CCB] goal equ value ball equ value top savegoal mov.ab #ptr-kicker, kicker add.b ptr, kicker ;Get the location of the goal jmp next vamp mov.ab #kicker-ptr, vbomb sub.b ptr, vbomb ;Vamp the ball into the kicker mov vbomb, @ptr jmp next vbomb jmp @0, kicker-ptr check slt #bottom-ptr, ptr ;Are we seeing ourselves? ptr dat 0, top ; ... Yes; we can't win add #2, ptr loop sne