Thank you,
buggageMy favorite tetris on NES called "Tetris Tengen", in this Tetris have one line 4x1, i do same
I used array setup for each figure. Like this
if flagnew=true
n=2
select nexta
case 1 // I--
block(0,0)=1
block(0,1)=1
block(0,2)=1
block(1,0)=1
block(1,1)=0
block(1,2)=0
block(2,0)=0
block(2,1)=0
block(2,2)=0
case 2 // --L
block(0,0)=1
block(0,1)=1
block(0,2)=1
block(1,0)=0
block(1,1)=0
block(1,2)=1
block(2,0)=0
block(2,1)=0
block(2,2)=0
case 3 // =_
block(0,0)=1
block(0,1)=1
block(0,2)=0
block(1,0)=0
block(1,1)=1
block(1,2)=1
block(2,0)=0
block(2,1)=0
block(2,2)=0
case 4// _=
block(0,0)=0
block(0,1)=1
block(0,2)=1
block(1,0)=1
block(1,1)=1
block(1,2)=0
block(2,0)=0
block(2,1)=0
block(2,2)=0
case 5 //T
block(0,0)=1
block(0,1)=1
block(0,2)=1
block(1,0)=0
block(1,1)=1
block(1,2)=0
block(2,0)=0
block(2,1)=0
block(2,2)=0
case 6
block(0,0)=1
block(0,1)=1
block(0,2)=0
block(1,0)=1
block(1,1)=1
block(1,2)=0
block(2,0)=0
block(2,1)=0
block(2,2)=0
case 7
n=3
block(0,0)=0
block(0,1)=0
block(0,2)=0
block(0,3)=0
block(1,0)=1
block(1,1)=1
block(1,2)=1
block(1,3)=1
block(2,0)=0
block(2,1)=0
block(2,2)=0
block(2,3)=0
block(3,0)=0
block(3,1)=0
block(3,2)=0
block(3,3)=0
endselect
flagnew=false
endif