Compressed Bytes used
1023

Source Code (OPTIONAL)
r=3::_::f,x,y,o,v,cx,cy,a,t,l,w={15,1,1,6,6,6,6,6,6,6,6,6,9,9,9,0,0,2,2,3,1},16,16.5,1,0,0,.75,0,0,100,8pal({1,141,137,130,133,141,133,141,134,4,9,135,131,3,139},1)memset(8192,9,4096)
for j=1,30 do
for i=1,30 do
k=f[1+rnd(#f)\1]mset(i,j,k)f[16+i%3]=k
end
end
mset(14,16,11)
mset(15,15,11)
mset(15,16,1)
mset(15,17,11)
mset(16,15,2)
mset(16,16,2)
mset(16,17,2)
mset(17,15,2)
mset(17,16,2)
mset(17,17,2)
fillp(0xa5a5)
::l::
if r>0 then
if(r==1)?"ore mined: "..a
if(r==2)?"signal lost"
if(r==3)?"moon miner"
if(btn(5))r=0goto _
goto l
end
t+=1
for j=1,30 do
for i=1,30 do
k=mget(i,j)m=i+rnd(3)\1-1n=j+rnd(3)\1-1
if(t%360<1and k==3and mget(m,n)<3)mset(m,n,3)
end
end
s=0
if(btn(2))s=.05
if(btn(3))s=-.05
if(mget(x+o*s,y)<4)x+=o*s
if(mget(x,y+v*s)<4)y+=v*s
s=0
if(btn(0))s=-.01
if(btn(1))s=.01
i=mget(x,y)
if(i==3)l-=1?"\ag4"
if(l==0)r=2
if(x\1==15and y\1==16)r=1
m=mget(x+o,y+v)
if(btn(5)and (m==15or m==6))mset(x+o,y+v,rnd(2))?"\ag0"
if(btn(5)and m==15)a+=1?"\ab3"
if(btn(4)and m==9and w>0)mset(x+o,y+v,12)w-=1
i=o
o=o*cos(s)+v*sin(s)v=i*-sin(s)+v*cos(s)
i=cx
cx=cx*cos(s)+cy*sin(s)cy=i*-sin(s)+cy*cos(s)
cls(3)for z=0,127do
local sx=2*z/128-1
local r,s=o+cx*sx,v+cy*sx
local ly,g,w,cy,sx,sy,sd=127,1,0,0,1,1,0
local i,j=x\1,y\1
local lc=mget(i,j)
local c,dx,dy=lc,abs(1/r),abs(1/s)
if(r==0)dx=30
if(s==0)dy=30
local u,v=(i+1-x)*dx,(j+1-y)*dy
if(r<0)sx=-1u=(x-i)*dx
if(s<0)sy=-1v=(y-j)*dy
while g do
if u<v then
sd=0u+=dx
i+=sx
else
sd=1v+=dy
j+=sy
end
c=mget(i,j)
g=c<4
if(sd==0)d=u-dx
if(sd==1)d=v-dy
local f=128/d\1/2+64line(z,ly,z,f,80+lc)
if(lc<2)line(z,127-ly,z,127-f,sget(16+lc,max(0,min((d-1)/3\1,3))))cy=127-f
w=128/d+.5\1
if(c<2)c2=6line(z,max(cy,-w*2+64),z,-w/2+64,bor(max(c2-2,c2-sd-d/3\1),shl(max(c2-2,c2-(d+.5)/3\1),4)))
ly,lc=f,c
end
h=-w/2
if(lc>1)h=-w*2
c2=c
line(z,max(cy,h+64),z,w/2+64,bor(max(c2-2,c2-sd-d/3\1),shl(max(c2-2,c2-(d+.5)/3\1),4)))end?"\ff◆"..a.." ♥"..l.." ˇ"..w
flip()goto l