def tbot 971
def head 20
def bodyp 972
def trig 21
def eye 22

''birth

cond
*.robage 0 =
start
.tbot inc
stop

cond
*.robage 2 =
*.head 0 =
start
*.tiepres .bodyp store
stop

''nrg

start
50 .sharenrg store
stop

cond
*.bodyp 2 !=
start
100 *.body sub 0 floor .strbody store
*.body 100 sub 0 floor .fdbody store
stop

''head

'feeding

'moving

'turning

'botbuilding

cond
*.head 1 =
start
314 .tieang1 store
-314 .tieang2 store
628 .tieang3 store
100 .tielen1 store
100 .tielen2 store
100 .tielen3 store
*.tin2 .tout2 store
stop

cond
*.head 1 =
*.numties 3 =
*.trig 2 =
start
1 .tie store
0 .trig store
stop

cond
*.head 1 =
*.numties 2 =
*.trig 0 =
start
50 .repro store
2 .trig store
stop

cond
*.head 1 =
*.trig 1 =
start
2 .tie store
0 .trig store
stop

cond
*.head 1 =
*.numties 2 <
*.trig 0 =
start
50 .repro store
1 .trig store
stop

''body

'moving

'turning

'botbuilding

''tenticals

cond
*.bodyp 2 =
*.tin2 1 >
*.eye 0 =
start

''repro

cond
*.numties 0 =
start
1 .head store
0 .tbot store
0 .bodyp store
stop

cond
*.bodyp 1 =
*.tbot 5 =
*.nrg 5000 >
start
1 .deltie store
1 .head store
0 .tbot store
0 .bodyp store
stop