'***************************************
' Cyanobacterium nostoc
'
' Made march 29, 2006 and
'
' modified in September 2013 by Testlund
'***************************************

'Gene 1. Make chloroplast
cond
*.nrg 2999 > and
*.chlr 1000 <
start
25 .mkchlr store
stop

'Gene 2. Transfer energy to body.
cond
*.nrg 3000 > and
*.chlr 999  >
start
100 .strbody store
stop

'Gene 3. Reproduction
cond
*.body 2000 >
*.numties 2 < and
start
628 .aimright store
50 .repro store
stop

'Gene 4. Attach to parent and store poison
start
*.robage 0 =
.tie inc
.shoot .ploc store
stop

'Gene 5. Simple search pattern 1
start
*.eye3 *.eye5 >
-50 .aimright store
stop

'Gene 6. Simple search pattern 2
start
*.eye7 *.eye5 >
50 .aimright store
stop

'Gene 7. Feeding
cond
*.eye5 40 >
*.nrg 3000 < and
start
*.refeye *.myeye !=
-1 .shoot store
stop

'Gene 8. Delete ties to Spread out better
cond
*.nrg 1000 <
start
.deltie inc
stop

'Gene 9. Store slime
cond
*.body 16000 >
*.slime 32 < and
start
480 .mkslime store
stop

'Gene 10. Store poison
cond
*.body 24000 >
*.poison 32 < and
start
480 .strpoison store
stop

*.eye5

end