'Shapelover

cond
 *.robage 0 =
start
 67 .memloc store
 101 67 store
stop

cond
 *.shflav -1 =
 *.shflav -6 = or
start
 .deltie inc
 *.aim *.shang sub .setaim store
 *.maxvel .dn store
stop

cond
 *.eye1 0 !=
 *.eye5 0 != or
 *.eye5 5 <
 *.eye9 0 != or
 *.reftype 1 =
 *.nrg 32 >
start
 *.refxpos *.refypos angle .setaim store
 10 .up store
stop

cond
 *.eye5 100 >
 *.reftype 1 =
start
 628 .aimright store
stop

cond
 *.eye5 10 >
 *.memval *67 =
start
 .tie inc
stop

cond
 *.eye5 10 >
 *.memval *67 !=
start
 .deltie inc
stop

cond
 *.eye1 40 >
 *.eye5 40 >
 * eye9 40 >
 *.reftype 1 !=
 *.memval *67 !=
 *.shflav -1 !=
 *.shflav -6 !=
 *.nrg 32 >
start
 *.refxpos *.refypos angle .setaim store
 -6 .shoot store 
stop

cond
 *.eye1 40 >
 *.eye5 40 >
 * eye9 40 >
 *.nrg 128 <
start
 *.refxpos *.refypos angle .setaim store
 -6 .shoot store 
stop

cond
 *.body 1000 <
 *.nrg 1000 >
start
 1 .strbody store
stop

cond
 *.body 1000 >
 *.nrg 1000 <
start
 1 .fdbody store
stop

cond
 *.nrg 1000 >
 *.body 1000 >
start
 50 .repro store
stop

end