'simple eyebot

'eyebot
'for testing purposes

cond
*.robage 0 >=
start
1 .focuseye store
1221 .eye6width store
stop

cond
*.eye6 0 =
*.refeye *.myeye = or
start
314 rnd .aimdx *.edge mult store
30 .up store
stop

cond
*.eye6 0 >
*.refeye *.myeye !=
start
*.refveldx .dx store
*.eye5 100 sub -2 div *.refvelup add .up store
stop

cond
*.eye5 50 >
*.refeye *.myeye !=
start
-1 .shoot store
*.refveldx .dx store
*.refvelsx .sx store
stop

cond
*.eye5 0 =
*.eye6 0 !=
*.refeye *.myeye !=
start
314 rnd .aimdx store
stop

cond
*.nrg 5000 >
start
30 .repro store
stop
end