A version of Tetris made for Tweet Tweet Jam 4 which was not submitted due to size constraints.

Arrow keys - move
X - rotate



Cartridge code (773 chars):

m=memcpy
cls()poke(0x5f2c,3)a=24576j=20k=0h=0z={1137,1605,1809,551,1571,369,1095,1857,865,1123,865,1123,1585,613,1585,613,115,611,625,563,17477,3841,17477,3841}for i=0,23 do
fillp(-z[i+1])rectfill(i*4,0,i*4+3,3,1)end
m(0,a,1024)cls()y=20x=30s=0g=sget::█::fillp()pal(1,0)p=pget
?s,31,59,0
sspr(h,0,4,4,x,y)pal(1,7+j/4)rect(26,20,38,43,1)l=1r=2
if(btnp(❎))k+=1
h=min(j+k%4,23)*4y+=.25f=0
for w=0,3 do
for z=0,3 do
b=g(h+w,z)>0
if(p(x+w-1,y+z)>0 and b)l=0
if(p(x+w+1,y+z)>0 and b)r=0
if(p(x+w,y+z+1)>0 and b and g(h+w,z+1)==0)f=1
end
end
if(btn()&l>0)x-=.5
if(btn()&r>0)x+=.5
sspr(h,0,4,4,x,y)
if f>0 then
x=30y=20j=flr(rnd(6))*4::c::for z=42,21,-1 do
l=true
for w=27,37 do
l=l and pget(w,z)>0
end
if(l)m(a+64,a,z*64)s+=1line(27,21,37,21,0)goto c
end
end
?s,31,59
flip()goto █