'A primitive bot that only uses touch senses.
'Make sure to disable vision for this one.
'
cond
*.refxpos 0 > and
*.refshoot *.myshoot !=
start
*.refxpos *.refypos angle .setaim store
8 .shootval store
-6 .shoot store
stop

cond
*.nrg 16000 >
start
10 .strbody store
stop

cond
*.body 16000 >
start
50 .repro store
15 .aimdx store
stop

cond
*.shflav -1 =
start
16 .up store
stop

cond
*.shflav -6 =
start
32 .dn store
stop

cond
*.shflav 0 != and
*.shflav -2 !=
start
0 .shflav store
*.aim *.shang sub .setaim store
*.maxvel .dn store
-4 .shoot store
*.waste .shootval store
stop

end
