'Topic: Vegetable Bot
'Tragos (posted as guest)
'The social vegetable
'reproduction
'replicate
cond
*.nrg 1000 >
*.eye5 30 <
*.numties 4 <
start
80 .repro store
stop
'spore formation
cond
*.nrg 5000 >
*.eye5 30 <
*.numties 3 >
start
1 .mrepro store
stop
‘tie to parent
cond
*.robage 10 =
start
.tie inc
100 .tielen store
378 .fixang store
stop
'moving to make more bots
cond
*.nrg 1000 >
*20 100 <
start
300 .aimdx store
20 inc
stop
cond
*.numties 0 !=
start
.sharenrg inc
stop
cond
*.numties 4 <
*.nrg 100 <
start
.tie inc
stop
cond
*.numties 0 >
start
.sharewaste inc
stop
end