start
*.body 10 div *.shell sub .mkshell store
*.body 10 div *.slime sub .mkslime store
*.body 10 div *.poison sub .strpoison store
.shoot .ploc store
10000 .out4 store
*.body 250 div 2 floor .up store
*.nrg *.body sub dup .strbody store - .fdbody store
*.nrg 10 div *.eye5 31999 sub sgn 0 floor .shootval mult *.in4 *.out4 sub sgn abs mult store
-6 *.eye5 40 sub sgn 0 floor .shoot mult *.in4 *.out4 sub sgn abs mult store
-4 *.eye1 sgn mult *.eye2 sgn -- abs mult *.eye3 sgn -- abs mult *.eye4 sgn -- abs mult *.eye5 sgn -- abs mult *.eye6 sgn -- abs mult *.eye7 sgn -- abs mult *.eye8 sgn -- abs mult *.eye9 sgn -- abs mult 4 *.eye9 sgn mult *.eye2 sgn -- abs mult *.eye3 sgn -- abs mult *.eye4 sgn -- abs mult *.eye5 sgn -- abs mult *.eye6 sgn -- abs mult *.eye7 sgn -- abs mult *.eye8 sgn -- abs mult add -3 *.eye2 sgn mult *.eye3 sgn -- abs mult *.eye4 sgn -- abs mult *.eye5 sgn -- abs mult *.eye6 sgn -- abs mult *.eye7 sgn -- abs mult *.eye8 sgn -- abs mult add 3 *.eye8 sgn mult *.eye3 sgn -- abs mult *.eye4 sgn -- abs mult *.eye5 sgn -- abs mult *.eye6 sgn -- abs mult *.eye7 sgn -- abs mult add -2 *.eye3 sgn mult *.eye4 sgn -- abs mult *.eye5 sgn -- abs mult *.eye6 sgn -- abs mult *.eye7 sgn -- abs mult add 2 *.eye7 sgn mult *.eye4 sgn -- abs mult *.eye5 sgn -- abs mult *.eye6 sgn -- abs mult add -1 *.eye4 sgn mult *.eye5 sgn -- abs mult *.eye6 sgn -- abs mult add 1 *.eye6 sgn mult *.eye5 sgn -- abs mult add 0 *.eye5 sgn mult add .focuseye store
*.refxpos *.refypos angle .setaim *.eyef sgn mult *.out4 *.in4 sub sgn abs mult store
*.waste *.waste 250 sub sgn 0 floor .shootval mult store
-4 *.waste 250 sub sgn 0 floor .shoot mult store
100 .dx *.eyef 20 sub sgn 0 floor mult *.out4 *.in4 sub sgn abs -- abs mult store
400 .aimdx *.eye5 sgn -- abs mult *.eye1 sgn -- abs mult *.eye2 sgn -- abs mult *.eye3 sgn -- abs mult *.eye4 sgn -- abs mult *.eye6 sgn -- abs mult *.eye7 sgn -- abs mult *.eye8 sgn -- abs mult *.eye9 sgn -- abs mult store
3 *.body 31900 sub sgn 0 floor .repro mult store
stop
