'Leacher

'Gene 1 - Untie Alga when pain
cond
  *.pain 100 >
start
  2 .deltie store
  1000 .dn store
stop

'Gene 2 - Memloc
cond
  *.robage 0 =
start
  50 .memloc store
  100 50 store
stop

'Gene 3 - Warns freinds to untie from eachother
start
  10 .tout1 store
stop

'Gene 4 - Removes tie from freind
cond
  *.tin1 10 =
start
  2 .deltie store
  618 .aimdx store
  200 .up store
stop

'Gene 5 - Steal most enemy's energy
cond
  *.numties 1 >=
start
  2 .tienum store
  99 .sharenrg store
stop

'Gene 6 - Look for Vegies, if sees same species then continue looking
cond
  *.numties 0 =
  *.eye5 0 =
  *.memval *67 =
  *.memval *50 !=
start
  10 .up store
stop

'Gene 7 - If bot is at edge, turn around.
cond
  *.edge 1 =
start
  50 rnd 100 sub 618 add .aimdx store
stop

'Gene 8 - If has seen alge then chase it, do not chase same bot species
cond
  *.eye5 0 >
  *.memval *67 =
  *.memval *50 != or
  *.numties 0 =
start
  *.refveldx .dx store
  *.refvelup 30 add .up store
stop

'Gene 9 - Fire tie at alge, do not fire same bot species
cond
  *.eye5 50 >
  *.memval *67 =
  *.memval *50 != or
start
  2 .tie store
stop

'Gene 10 - Reproduce
cond
  *.body 1000 >
  *.nrg 6000 >
start
  2 .deltie store
  50 .up store
  10 rnd 5 add 10 mult .repro store
stop

Gene 11 - Store body
cond
  *.nrg 6000 >
  *.body 1500 <
start
  10 .strbody store
stop

Gene 12 - Feed on body
cond
  *.nrg 6500 <
  *.body 1000 >
start
  10 .fdbody store
stop
end