cond
*.robage 5000 mod 200 <
start
*.maxvel .dn store
stop

cond
*.nrg *.body 3 mult >
start
100 .strbody store
stop

cond
*.nrg *.body 2 mult <
start
100 .fdbody store
stop

cond
*.nrg 6000 >
*.body 2000 >
*.robage 500 >
start
50 .repro store
stop