a=1000 goto1+:scan*(:rng<a)*(:rng>0)
b=(:r1<a)*(:r1>0) c=(:r3<a)*(:r3>0) d=(:r5<a)*(:r5>0)
e=(:r7<a)*(:r7>0) f=b+c g=d+e h=f+g goto1+:scan+(h>3)*2
if:sound and :rng>100 and :rng<a then goto5 end goto1+:scan
:scat=0 :sty=10 :snd=1








goto:scan+1