'A primitive bot that only uses touch senses.
'Make sure to disable vision for this one.
'
cond
*.refxpos 0 > and
*.refdn *.mydn !=
start
*.refxpos *.refypos angle .setaim store
8 .shootval store
-6 .shoot store
stop
start
*.nrg 16000 >
10 .strbody store
stop
start
*.body 16000 >
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 !=
*.shflav -2 != and
start
0 .shflav store
*.aim *.shang sub .setaim store
*.maxvel .dn store
-4 .shoot store
*.waste .shootval store
stop
end
