[Starbase Game] Material point scanner script for Origin's Safezone : display stacks and price

scanner.yolol

s=1728 o=" Ore" c=" Crystal" in="\nScanning..." no="\nNo Result"
m1="Ajatite" p1=.544 m2="Valkite" p2=p1 m3="Ice" p3=.816 m4="Bastium"
p4=.87 m5="Vokarium" p5=.979 m6="Nhurgite" p6=2.721 m7="Charodium"
p7=3.81 m8="Exorium" p8=4.354 m9="Aegisium" p9=2.503
// end of init
:Materials=no
e="" i=0 sr="" cr=0 :Scan=1 goto7+:ScanOre
:Materials=in ifi>=:ScanResults thengoto6*(i>0)+6end :Index=i
m=:Material-o-c v=:Volume/s i++ sr+="\n"+m+"\n"+v+" stks"
p=(m==m1)*p1+(m==m2)*p2+(m==m3)*p3+(m==m4)*p4+(m==m5)*p5+(m==m6)*p6
p+=(m==m7)*p7+(m==m8)*p8+(m==m9)*p9 cr+=v*p ifp==0thene+="?"end goto8
:ScanOre=0 :Reset=1 sr+="\nCredit:\n"+cr+"k"+e :Materials=sr goto7

// Material point scanner script for Origin's Safezone
// Devices:
//  Material point scanner | :Active->:ScanOre
//  Text panel 24×24 | :PanelValue->:Materials
//  button | :ButtonState->:ScanOre, :ButtonStyle=1