' Alga minimalis, version 3
'
' Vegetable
'

cond
*.robage 0 =
start
.tie inc
stop

cond
*.numties 0 !=
start
100 .dn store
*.chlr .rmchlr store
stop

cond 'new gene from Botsareus and Panda
  *.chlr
  *.light
  <
start
160 .mkchlr *.numties -1 mult sgn 1 add mult store
stop
cond
  *.nrg
  6000
  >
start
  314 rnd
  .aimdx
  store
  50
  .repro
  store
stop
end