Compressed Bytes used
962

Source Code (OPTIONAL)
d=0i=0♥=2●=0l=1n=0★=32o=1s=0c=0f=true a=btnp 𝘴=rnd e=pget r=rectfill reload(4096,4096,8192)mset(3,3,5)mset(0,0,1)█={"?","p𝘢𝘵𝘩","c𝘩𝘦𝘴𝘵","m𝘰𝘯𝘴𝘵𝘦𝘳","s𝘵𝘰𝘳𝘦","s𝘵𝘢𝘪𝘳𝘴","g𝘢𝘮𝘦 o𝘷𝘦𝘳"}x={"●","●","♥","♥","",""}e=2function _draw()cls()if(c>t())camera(sin(time()*10))
?█[e],52,49,7
if(t()<n and rnd()<.8and f)o=flr(rnd(6))+1
if e==2do for f=0,3do for n=0,3do r(f*★,n*★,f*★+30,n*★+30,mget(f,n)+1)print(█[mget(f,n)+1],3+f*★,25+n*★,7)end end?"😐",d*★+11,i*★+10+sin(t()),7
?"웃",d*★+11,i*★+14,7
if f and(a(⬇️)or a(➡️))do if(a(➡️)and d<3)d+=1☉()
if(a(⬇️)and i<3)i+=1☉()
elseif not f do if(t()>n)e=mget(d,i)+1n=t()+3s=flr(rnd(3)+1)*l f=true
end elseif e==7do elseif e==5do if(a(⬅️)and ●>0)●-=1♥+=1
if(a(➡️))😐()
?"1●->1♥ e𝘹𝘪𝘵",25,93,7
?" ⬅️ ➡️",25,99,2
elseif e==6do if(t()>n)♥+=1l+=1e=2d=0i=0f=true 𝘵()
elseif e==4do?"🐱",56,26+sin(t()),8
?"웃"..max(0,s).."♥",56,30,8
?"😐",56,72+sin(t()),8
?"웃"..max(0,♥).."♥",56,76,8
if ♥>0and s>0do if f do u(59,90,o)if(t()>n)c=t()+.2s-=o
else local f=mid(1,flr(o/3*l),6)u(59,38,f)if(t()>n)c=t()+.2♥-=f
end if(t()>n)n=t()+3f=not f
else if(not f)u(59,90,o)
if s>0do?" w𝘪𝘯𝘴",50,58,7
else?" l𝘰𝘰𝘴𝘦𝘴",50,58,7
end if(t()>n)😐()●+=flr(l/2)
end elseif e==3do u(57,60,o)if(t()>n and f)f=false n=t()+3color(7)
if(t()>n and not f)😐()𝘦(o)
?x[o],58,78
end?"² "..max(0,♥).."♥ "..●.."● "..l.."⬇️",40,1,7
end function 𝘦(f)if(f<3)●+=1
if(f>2and f<5)♥+=l
end function u(f,n,e)r(f,n,f+8,n+8,8)local d={{4,4},{2,2,6,6},{2,2,4,4,6,6},{2,2,2,6,6,2,6,6},{2,2,2,6,4,4,6,2,6,6},{2,2,2,4,2,6,6,2,6,4,6,6}}for i=1,#d[e],2do pset(f+d[e][i],n+d[e][i+1],7)end end function 𝘵()reload(4096,4096,8192)mset(3,3,5)mset(0,0,1)end function 😐()if(♥>0)f=true e=2
if(♥<1)e=7
end function ☉()f=false if(d+i~=6)mset(d,i,rnd(4)+1)
n=t()+1end