start
30 .up store
stop

cond
*.eye5 0 >
start
-1 .shoot store
stop

cond
*.eye5 0 =
*.nrg 5000 >
*.body 1000 >
start
50 .repro store
stop