' Alga Cohesum
'
' Forms large colonies
' and sends out spores
' to form new colonies
cond
*.robage 0 =
start
.tie inc
0 .fixpos store
100 .tielen1 store
100 .tielen2 store
100 .tielen3 store
100 .tielen4 store
stop
cond
*.robage 2 >
*.velscalar 0 =
*.fixed 0 =
start
1 .fixpos store
stop
cond
*.robage 5 >
*.fixed 1 =
start
.repro inc
1256 rnd .setaim store
stop
end