Compressed Bytes used
1024

Source Code (OPTIONAL)
camera(-64,-64)posz=0
::start::
cls()?-posz.." cyber metres",-35,0
?"press ❎",-20,6
if(btn(❎))goto real
flip()goto start::real::
sc={{-.25,0,-1},{.25,0,-1},{.75,0,0},{-.75,0,0},{0,.5,0}}
faces={{1,2,3,4},{4,5,3},{1,2,5}}
r=0n=4f=64𝘱1=(f+n)/(n-f)𝘱2=2*f*n/(n-f)𝘨=16rm=𝘨+1posz=0posx=0rep=72sz=posz-4sx=posx
function gh(x,z)bh=sin((x+z)/(rep/2))+cos(z/rep)
if abs(x)==𝘨 then
bh=8elseif abs(x)>=𝘨/1.5then bh=4end
return bh/2end
hj={}
for z=0,𝘨-1do
for x=1,𝘨 do
add(hj,{x+z*rm,x+1+z*rm,x+1+(z+1)*rm,x+(z+1)*rm})
end
end
function ic(fz,lz)return lz>=-1and lz<=1and fz>=-1and fz<1end
function df(sq,𝘱)
for i=1,#sq do
cp=𝘱[sq[i]]np=𝘱[sq[(i%(#sq))+1]]
if ic(np[3],cp[3])then
line(np[1]*64,-np[2]*64,cp[1]*64,-cp[2]*64,col)end
end
end
function tm(𝘱)
x=𝘱[1]-posx
y=𝘱[2]-ch
z=𝘱[3]-posz
w=-z
x/=w
y/=w
z=z*𝘱1+𝘱2
z=z/w
return{x,y,z}
end
es={}
function ds(sx,sz,rot,scol)
w={}
for 𝘱 in all(sc)do
add(w,{𝘱[1]+sx,𝘱[2]+gh(sx,sz),𝘱[3]+sz})
end
sp={}
for 𝘱 in all(w)do
add(sp,tm(𝘱))
end
col=5
fillp(▒)
for i=1,#faces do
df(faces[i],sp)
end
w={}
for 𝘱 in all(sc)do
y=𝘱[2]z=𝘱[3]x=𝘱[1]xx=cos(rot)*x+y*sin(rot)yy=-sin(rot)*x+cos(rot)*y
add(w,{xx+sx,yy+gh(sx,sz)+.5,z+sz})
end
sp={}for 𝘱 in all(w)do
add(sp,tm(𝘱))end
col=scol
fillp()for i=1,#faces do
df(faces[i],sp)
end
end
::loop::
cls()ch=gh(posx-1,posz)+4h={}l=-𝘨*2l+=posz/2\1*2u=l+𝘨*2+2
for z=l,u,2do
for x=-𝘨,𝘨,2do
add(h,{x,gh(x,z),z})end
end
if(rnd()<0.05)and#es<21then
x=rnd((𝘨-6)*2)-(𝘨-6)add(es,{x,l,max(-0.4,rnd(2)-1)})
end
tp={}for 𝘱 in all(h)do
add(tp,tm(𝘱))end
for i=1,#hj do
col=8fillp()
if(i<𝘨*5)col=2
if(i<𝘨*3)col=1
if(i<𝘨*2)col=1fillp(▒)
df(hj[i],tp)end
for 𝘱 in all(es)do
𝘱[2]+=𝘱[3]
ds(𝘱[1],𝘱[2],0,12)
if(𝘱[2]>u)del(es,𝘱)
if(((𝘱[1]-sx)^2+(𝘱[2]-sz)^2)<1or gh(sx,sz)>=2)goto start
end
ds(sx,sz,r,7)posz-=.5sz-=.5𝘳=0
if(btn(⬅️))𝘳=.05
if(btn(➡️))𝘳=-.05
e=𝘳-r
r+=e/5posx-=r*8.3sx-=r*10.3?-posz\1,-5,-64,7
flip()goto loop