Snake is a self-vamping vampire/imp which entered the Intel 88 hill in May 1993 and survived 554+ challenges before being ;killed the following month. Snake was also entered into the EBS Summer Tournament.

;redcode
;name Snake
;author Wayne Sheppard
;strategy Pitbomber-impspiral

;Dan only plays bombers and imps on the hill.  But I am hoping
;that he will go with a paper or scanner

;Snake is a vampire and imp
;Night Crawler would lose vs paper
;The vampire should gain enough wins to beat paper
;Should still have a winning record vs scanners
;Probably lose vs other imps

dist equ 121             ;Bomb spread
imp  equ icopy+1800      ;Imp start
hide equ 1600            ;Vamp location

trap jmp pit-x-121+2,x+121   ;Trap statement in front to foil tracers
x    spl 0,trap
     mov @0,@trap
     sub 4,@-1
     jmp -2
pit  mov @dist,<0-dist
     spl 0     ;This should change more losses into ties
     spl -1    ;than wins into ties

dat <trap,<1   ;decoys
dat <trap,<1   ;slow down enemy djn
dat <trap,<1   ;but don't cmp equal
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1
dat <trap,<1

start mov trap+4,hide
      mov trap+3,<start       ;Copy vamp
      mov trap+2,<start       ;to a safe place
      mov trap+1,<start
      mov trap,<start
      mov pit+2,hide
      mov pit+1,<-1
      mov pit,<-2
      spl start+hide-3,<1     ;1st split to vamp

ring  spl 9,<4050             ;binary ring
      spl 5,<4100             ;startup
      spl 3,<4150
      mov icopy,imp           ;puts imp away from decoy
      jmp start+hide-3,<4200  ;2nd split to vamp
      jmp imp,<4250
      spl 2,<4300
      jmp 2667+imp,<6350
      jmp 5334+imp,<4400
      spl 4,<4450
      spl 2,<4500
      jmp 1+imp,<4550
      jmp 2668+imp,<4600
      spl 2,<4650
      jmp 5335+imp,<4700
      jmp 2+imp,<4750
icopy mov 0,2667
end   start