cond
start
*.eye5 *.eye1 sub *.eye5 *.eye2 sub *.eye5 *.eye3 sub *.eye5 *.eye4 sub add add add 4 div *.eye5 *.eye6 sub *.eye5 *.eye7 sub *.eye5 *.eye8 sub *.eye5 *.eye9 sub add add add 4 div sub 2 mult .aimdx
store
-1 .shoot store
*.maxvel *.vel sub .up store
stop
cond
*.nrg 10000 >
start
50 .repro store
stop
end