20 lines
1.1 KiB
Plaintext
20 lines
1.1 KiB
Plaintext
b=" st." c="Tier: " d="Scanning..." e="1-6" f=:ore g=:crystal j=98
|
|
con=:Continuous r=100 rr=1000 h=1728 a="\n" if:scan==-1thengoto19end
|
|
q=:rng k="/" i=o+k+s :sca=0 :rst=1 goto(:scan*3)+(q<r)*(q>0)
|
|
q=:rng :sca=1 :scn=1 :_ore=i+a+d+a goto((:scan*4)+(:scr>0))*(q<r)
|
|
m1=:mat-f-g v1=:vol v3=(v1/h) :idx=1 m2=:mat-f-g v2=:vol v4=(v2/h)
|
|
:m1=m1 :v1=v1 :m2=m2 :v2=v2 //Line for scanner mods
|
|
:sca=0 :scn=0 t=(v4>5)*7+(v4>10)*2+(v4>40) z=t if t==0thenz=e end s+=1
|
|
i=o+k+s goto(:scan*8+(:scr>0)+(:scr>1)+(:scr>2)*3)*(:scr!=0)
|
|
q=:rng :_ore=i+a+m2+a+v4+b :scan=con*:scan goto9*:scan-(q==rr)*9
|
|
if m2==:ore_radar then o+=1 :scat=1 :sty=8 :snd=1 :scan=0 end
|
|
i=o+k+s o=o-(o>j)*j :_ore=i+a+c+z+a+m2+a+v4+b+a+m1+a+v3+b
|
|
q=:rng s=s-(s>j)*j :scan=con*:scan goto12*:scan-(q==rr)*12
|
|
:idx=0 m1=:mat-f-g :idx=1 m2=:mat-f-g :idx=2
|
|
i=o+k+s m3=:mat-f-g :_ore=i+a+m1+a+m2+a+m3
|
|
if :scr>3 then :idx=3 m4=:mat-f-g :_ore+=a+m4 end
|
|
if :scr>4 then :idx=4 m5=:mat-f-g :_ore+=a+m5 end
|
|
if :scr>5 then :idx=5 m6=:mat-f-g :_ore+=a+m6 end
|
|
q=:rng :scan=con*:scan goto18*:scan-(q==rr)*18
|
|
s=0 o=0 :scan=0 :sr=1
|
|
i=o+k+s :_ore=i+a+a+" Scanner"+a+" code v5"+a+"by Adrianrc" |