テトリスを作る (774ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

533: 531 2005/12/26(月)15:02 ID:TOAf+nRF(1/5) AAS
532さん、レスありがとうございます。
とりあえず、見づらいですが途中までのソース載せときます。
buffer 1,,,1
picload "tetris.bmp" ;32×32の灰色のブロックと黄色いブロック
screen 0,415,607,1
palcopy 1
*START
省2

---

534: 531 2005/12/26(月)15:04 ID:TOAf+nRF(2/5) AAS
*LOOP1
redraw 0
gosub *ブロック
gosub *DRAWMAP
redraw 1
await 60
goto *LOOP1
省7

---

535: 531 2005/12/26(月)15:08 ID:TOAf+nRF(3/5) AAS
*DRAWMAP
color 0,0,0 :boxf 0,0,414,606
repeat 19
RCNT=cnt
repeat 19
if MAP.cnt.RCNT=1 {
pos cnt*32,RCNT*32 :gcopy 1,0,0,32,32 ;壁用灰色ブロック
省5

---

536: 531 2005/12/26(月)15:14 ID:TOAf+nRF(4/5) AAS
*SETMAP
dim MAP,19,19
MAP.0.0=1,0,0,0,0,0,2,0,0,0,0,0,1
MAP.0.1=1,0,0,0,0,0,0,0,0,0,0,0,1
∫
MAP.0.17=1,0,0,0,0,0,0,0,0,0,0,0,1
MAP.0.18=1,1,1,1,1,1,1,1,1,1,1,1,1
省10

---

537: 531 2005/12/26(月)15:19 ID:TOAf+nRF(5/5) AAS
これで以上です。
まずは黄色いブロックが、底辺まできたら蓄積されるようにしたいのですがどうしたら良いでしょうか？
ちなみに、１が壁用ブロック、２が落下用ブロックです。
（本当は１２×１９マスの配列にしたいのですが、良くわからず１９×１９の配列になってます）

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.356s*