'********************************
' Cyanobacterium nostoc
'
' Made mars 29, 2006 by Testlund
'
' Thanks to Eric L for sorting
' out the errors.
'********************************
'Gene 1. Reproduction
cond
*.nrg 10000 >
start
50 .repro store
15 .aimdx store
stop
'Gene 2. Attach to parent
cond
*.robage 0 =
start
.tie inc
.shoot .ploc store
stop
'Gene 3. Simple search pattern 1
cond
*.eye3 *.eye5 >
start
-25 .aimdx store
stop
'Gene 4. Simple search pattern 2
cond
*eye7 *eye5 >
start
25 .aimdx store
stop
'Gene 5. Feeding
cond
*.eye5 40 >
*.nrg 3000 <
*.refeye *.myeye !=
start
-1 .shoot store
stop
'Gene 6. Avoid conspecifics
cond
*eye5 0 >
*.refeye 6 =
start
180 .aimdx store
stop
'Gene 7. Spread out
cond
*.nrg 1000 <
start
.deltie inc
stop
'Gene 8. Store poison
cond
*.poison 500 <
start
50 .strpoison store
stop
*.eye5
end