start
30 .up store
stop

cond
*.robage 0 =
start
.dnalen .memloc store
'This makes the eye wider, but gives it less range.
'There's also the option to use eye1-9
300 .eye5width store
stop

cond
*.eye5 0 >
*.memval *.dnalen !=
start
-1 .shoot store
*.refxpos *.refypos angle .setaim store
*.refveldx .dx store
stop

cond
*.eye5 30 >
*.memval *.dnalen !=
start
*.refvelup 10 add .up store
stop

cond
*.nrg 200 >
start
10 .shootval store
stop

cond
*.nrg 200 <=
start
0 .shootval store
stop

cond
*.eye5 0 =
*.nrg 5000 >
*.body 1000 >
start
50 .repro store
stop

cond
*.nrg 3000 >
*.body 1500 <
start
100 .strbody store
stop

cond
*.nrg 500 <
*.body 200 >
start
100 .fdbody store
stop