cond
*.eye5 0 >
*.refeye *.myeye !=
start
*.refveldx .dx store
*.refvelup 30 add .up store
stop

cond
*.eye5 100 >
*.refeye *.myeye !=
*.refnrg 0 > and
start
-1 .shoot store
*.refvelup .up store
stop

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

cond
*.nrg 20000 >
start
100 .strbody store
stop

cond
*.body 4000 >
start
50 .repro store
stop
end
