' Alga shellular
'
' Vegetable
'
' Modification of Alga minimalis
' able to create shell.

cond
*.robage 0 =
start
.tie inc
stop

cond
*.robage 1 =
start
.deltie inc
stop


cond
  *.nrg
  10000
  >
start
  25 .repro store
stop

cond
  *.eye5 0  >
start

200 rnd .aimdx  store
*.nrg 11000 sub 100 div .up store
stop

cond
*.robage 1000 >
*.shell 10000 <
start
1 .mkshell store
stop

cond
*.robage 30 <
start
30 .up store
stop

cond
*.robage 30 =
start
300 rnd .aimdx store
stop

'Poison
'*********
cond
*.robage 1000 >
*.poison 200 <
start
1 .strpoison store
stop

'Body
'***********
cond
*.nrg 3000 >
*.robage 30 >
start
10 .strbody store
stop

cond
*.nrg 1000 <
start
10 .fdbody store
stop

end