'*************************************
' Cyanobacterium nostoc
'
' Made march 29, 2006 and
'
' edited August 25, 2012 by Testlund
'*************************************

'Gene 1. Transfer energy to body.
cond
*.nrg 10000 >
start
100 .strbody store
stop

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

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

'Gene 4. Delete a tie if more than 2
cond
*.numties 2 >
start
.deltie inc
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