14 lines
249 B
Plaintext
14 lines
249 B
Plaintext
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 |