x=7.2 y=-4.56 r=57.296
n="\n" q=n+n s=1728 k=" stks"+q o=" Ore" c=" Crystal" e="Scanning..."
i=0 f=q if:scr<1then:Scan=q+"OFF" goto3end :scn=1 :Range=1 f+=e t=q
d=:Distance+x if:Distance>0thend=y/d*r end :mp=d
ifi<:sr then:ix=i a=:vl/s b=:mt-c-o t+=b+n+a+k i++ goto4end
ift!=q thenf=t end :scan=f goto3