Weird Tetris

странный тетрис

<> клавиши со стрелками для перемещения фигур

Мне пришлось удалить часть кода, очищающую строки, потому что так было легче разместить код, и потому что я думаю, что это почти невозможно? дайте мне знать, если я ошибаюсь.

код:

::i::
s,z,q=0,pset,pget
poke(0x5f2c,3)
cls()
rect(4,4, 59,59,6)
::n::
s+=1
h,x,y,p,c=false,30,5,{},ceil(rnd(14) ))+1
для i=0,11 do
p[i]=flr(rnd(2))
end
p[4]=1
::l::
rect(5,16,58,16,1)
для i=0,11 do
if (p[i]==1) z(x+ i%3,y+flr(i/3),0)
end
y+=1a=0
if(btn(⬅️))a=-1
if( btn(➡️))a=1
для i=0,11 do
if (p[i]==1 и q(x+i%3+a,y+flr(i/3) ))>1)a=0
end
x+=a
для i=0,11 do
if p[i]==1 then
if( q(x+i%3,y+flr(i/3)+1)>1)h=true
z(x+i%3,y+flr(i/3),c)
end
end
if h then
if (y<17)goto o else goto n
end
flip()
goto l
::o::
cls()
?"игра окончена\nscore: "..s.."\n❎->",4,3
if(btn( ❎))перейти к i
flip()
перейти к o