'Leacher Destroyer

'Gene 1 - Warns Alge that it is a leacher destroyer
start
  15 .tout1 store
  15 .out1 store
stop

'Gene 2 - Deletes ties
cond
  *.numties 0 >
start
  1 .deltie store
  2 .deltie store
  1000 .dn store
stop

'(Memloc)
'cond
'  *.robage 0 =
'start
'  50 .memloc store
'  100 50 store
'stop

'Gene 3 - Looks for a Leacher
cond
  *.eye5 0 =
  '*.memval *50 =
start
  314 rnd .aimsx store
stop

'Gene 4 - Turn around if it is at edge
cond
  *.edge 1 =
start
  618 .aimsx store
stop

'Gene 5 - follow leacher or veggie
cond
  *.eye5 0 >
  '*.memval *50 !=
start
  *.refveldx .dx store
  *.refvelup 30 add .up store
stop

cond
  *.eye5 50 >
  '*.memval *50 =
start
  *.refveldx .dx store
  *.refvelup .up store
  -1 .shoot store
stop

cond
  *.totalbots *.totalmyspecies sub 100 sub *.totalmybots div > *.totalmybots
  *.totalmyspecies 5 < or
  *.body 1000 >
  *.nrg 6000 >
start
  15 rnd 5 add 10 mult .repro store
stop

cond
  *.nrg 6000 >
  *.body 1500 <
start
  .strbody 10 store
stop

cond
  *.nrg 6500 <
  *.body 1000 >
start
  .fdbody 10 store
stop
end