cond
*.nrg 128 <
start
0 .fixpos store
stop

cond
*.nrg 250 >
and
*.fixpos 1 <
start
1 .fixpos store
stop

cond
*.waste 250 >
and
*.chlr 250 <
start
16 .mkchlr store
stop

cond
*.fixpos 0 >
and
*.nrg 250 >
and
*.slime 250 <
start
50 .mkslime store
stop

cond
*.nrg 500 >
start
10 .strbody store
stop

cond
*.body 16000 >
start
314 rnd .aimright store
50 .repro store
stop
