'Shapehater

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

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

cond
 *.eye5 0 >
 *.reftype 1 =
 *.nrg 32 >
start
 50 .dn store
stop

cond
 *.eye3 *.eye5 >
start
 -50 .aimright store
stop

cond
 *.eye7 *.eye5 >
start
 50 .aimright store
stop

cond
 *.eye5 0 >
 *.memval *68 !=
 *.reftype 1 !=
 *.shflav -1 !=
 *.shflav -6 !=
 *.nrg 32 >
start
 .deltie inc
 *.refxpos *.refypos angle .setaim store
 *.refvelup 32 .up store
 -6 .shoot store 
stop

cond
 *.eye5 0 >
 *.nrg 128 <
start
 .deltie inc
 *.refxpos *.refypos angle .setaim store
 *.refvelup 32 .up store
 -6 .shoot store 
stop

cond
 *.eye5 0 >
 *.memval *68 =
start
 .tie inc
stop

cond
 *.eye5 0 >
 *.memval *68 !=
start
 .tie inc
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