ブロックの表示

ブロックを表示します。ブロックの情報は配列変数を使って表現するのが良いでしょう。
二次元の配列変数をそのままブロックに見立てて使用します。

配列変数 block は、ブロックが壊れているかどうかを判別するための変数です。
今回は役に立ちませんが、ボールがブロックに当たったときにこの変数の値を変更してブロックの状態を変えます。

row = 10 //ブロックの行数
col = 6  //ブロックの列数
b_width = 30 //ブロックの幅
b_height = 15 //ブロックの高さ

dim block,row,col //ブロックの状態
dim bx,row,col //ブロックのＸ座標
dim by,row,col //ブロックのＹ座標

//ブロックの情報
repeat row
	i = cnt
	repeat col
		j = cnt
		block(i,j) = 1
		bx(i,j) = b_width*(i+1)
		by(i,j) = b_height*(j+1)
	loop
loop

screen 0,360,400
boxf
color 0,0,255
//ブロックの表示
repeat col
	j = cnt
	repeat row
		i = cnt
		if block(i,j) = 1:boxf bx(i,j)+1, by(i,j)+1, bx(i,j)+b_width-1, by(i,j)+b_height-1
	loop
loop