Compressed Bytes used
1024

Source Code (OPTIONAL)
--picopelago
--𝘣𝘺 𝘦𝘳𝘪𝘤 𝘣𝘪𝘭𝘭𝘪𝘯𝘨𝘴𝘭𝘦𝘺
cls()memset(0,0,4096)w={2,3,4,5,6,7,8,9,10,11,12,13,14,15,15,1}g={0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,0}c={1,1,8,2,9,9,8,8,8,8,9,9,9,9,9,0}𝘣={2,2,3,12,[0]=1}𝘺={1,1,2,3,4,5,6,6,7,7,7,13,10,11,12,0}pal({1,140,12,135,9,139,3,131,5,134,6,7,13,132,133,129},1)palt(0)n="title"r=0𝘯=0d=1e,𝘦=64,64i={}function f(n)s[mid(127,flr(n))]=true end for n=0,255do e=flr(rnd(128))i[n]={e,e+flr(rnd(4)),flr(rnd(4))}end function p(e,t,i,d,o)for n=t,t+d-1do sspr(e,n%128,i,d,e,(n+o)%128)sspr(e-128,n%128,i,d,e-128,(n+o)%128)f(n%128)end end function 𝘤()for n=0,127do f(n)end end function _draw()poke(24405,0)s={}if n=="title"and btnp(❎)then n=r 𝘤()if n==1then cls()poke(24365,3)end elseif n==1then f(o-1)f(o)f(o+1)end a,o=stat(32),stat(33)if n==1then e,𝘦=a,o end for t=1,16do e=(e+rnd(4)-2)%128𝘦=(𝘦+rnd(2)-1)%128d=mid(d+rnd"0.5"-.25,2,n==1and 1)if n~=1or stat(34)~=0then if d>1then pal(rnd{w,0})palt(0)p(e-2,𝘦,d*4,d*2,-1)if d>1.5then p(e,𝘦-1,d*4-4,1,0)end end end pal(0)palt(0)l=flr(rnd(128))for n=1,20do 𝘰=rnd(128)𝘢,u=(𝘰+rnd{-1,0,1})%128,(l+1)%128𝘪,𝘳=pget(𝘰,l),pget(𝘢,u)𝘭=rnd{-1,0,0,1}if 𝘪>𝘳+1then pset(𝘰,l,𝘪-1+𝘭)f(l)pset(𝘢,u,𝘳+1+𝘭)f(u)end if 𝘪==15and rnd()<.001then pal(g)sspr(0,0,128,128)𝘤()end end i[flr(rnd(255))][3]=flr(rnd(4))end poke(24405,96)for n,e in pairs(s)do x=0pal(𝘺)sspr(0,n,128,1,0,n)pal(c)for e=0,127do h=sget(e,n)if x>h+.5then pset(e,n,h)elseif h<5and(i[n][3]>1and i[n][1]==e or i[n][3]%2==1and i[n][2]==e)then pal(𝘣)pset(e,n,h)pal(c)end if h>x then x=h end x-=.5end end pal(0)if n==1then?"゜",a-1,o-1,12
pset(a,o,0)elseif n=="title"then pal(0)rectfill(0,29,127,50,2)rectfill(0,83,127,96,2)r=(r+tonum(btnp(⬆️))-tonum(btnp(⬇️)))%2?"⁶t⁶wp𝘪𝘤𝘰⁴hp⁴f𝘦l𝘢g𝘰",25,32,3
?"⁶t⁶wp𝘪𝘤𝘰⁴hp⁴f𝘦l𝘢g𝘰",26,31,12
?"𝘣𝘺 𝘦𝘳𝘪𝘤 𝘣𝘪𝘭𝘭𝘪𝘯𝘨𝘴𝘭𝘦𝘺",29,44
?"s𝘤𝘳𝘦𝘦𝘯𝘴𝘢𝘷𝘦𝘳 𝘮𝘰𝘥𝘦",33,84
?"d𝘳𝘢𝘸 𝘮𝘰𝘥𝘦",33,91
?"❎",22,84+r*7,1
?"❎",22,83+r*7+4*t()%2,12
end end

Link to Commented Source Code (OPTIONAL)
https://gist.github.com/Woflox/c5c8bf57c36799553afc1400ebba5085