7 lines
303 B
Plaintext
7 lines
303 B
Plaintext
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
|