cond
*.nrg 255 >
start
2 rnd .aimdx store
8 rnd .up store
stop

cond
*.velup 16 >
start
8 .dn store
stop

cond
*.veldn 16 >
start
8 .up store
stop

cond
*.velsx 16 >
start
8 .dx store
stop

cond
*.veldx 16 >
start
8 .sx store
stop

cond
*.refxpos 0 > and
*.refshoot 0 =
start
*.refxpos *.refypos angle .setaim store
16 .shootval store
-1 .shoot store
stop

cond
*.shflav 0 != and
*.shflav -2 !=
start
0 .shflav store
*.aim *.shang sub .setaim store
*.maxvel .dn store
stop

cond
*.nrg 64 > and
*.body 16 <
start
8 .strbody store
stop

cond
*.nrg 32 < and
*.body 64 >
start
8 .fdbody store
stop

cond
*.nrg 64 > and
*.body 64 >
start
50 .repro store
314 rnd .aimdx store
stop

cond
*.nrg 128 > and
*.shell 16 <
start
8 .mkshell store
stop
