procedure TForm1.InitPST;
var i,j,k:integer;
begin
//Falseは先に全部いれちゃう
For i:=0 to 6 do begin
For j:=0 to 3 do begin
For k:=0 to 3 do begin
PieceShapeTables[i,j,k]:=False;
end;
end;
end;
// ■
// ■
// ■
// ■
PieceShapeTables[0,0,1]:=True;
PieceShapeTables[0,1,1]:=True;
PieceShapeTables[0,2,1]:=True;
PieceShapeTables[0,3,1]:=True;
// ■
// ■
// ■■
PieceShapeTables[1,0,1]:=True;
PieceShapeTables[1,1,1]:=True;
PieceShapeTables[1,2,1]:=True;
PieceShapeTables[1,2,2]:=True;
// ■
// ■
// ■■
PieceShapeTables[2,0,2]:=True;
PieceShapeTables[2,1,2]:=True;
PieceShapeTables[2,2,2]:=True;
PieceShapeTables[2,2,1]:=True;
// ■
// ■■
// ■
PieceShapeTables[3,0,1]:=True;
PieceShapeTables[3,1,1]:=True;
PieceShapeTables[3,1,2]:=True;
PieceShapeTables[3,2,2]:=True;
// ■
// ■■
// ■
PieceShapeTables[4,0,2]:=True;
PieceShapeTables[4,1,2]:=True;
PieceShapeTables[4,1,1]:=True;
PieceShapeTables[4,2,1]:=True;
// ■
// ■■
// ■
PieceShapeTables[5,0,1]:=True;
PieceShapeTables[5,1,2]:=True;
PieceShapeTables[5,1,1]:=True;
PieceShapeTables[5,2,1]:=True;
// ■■
// ■■
PieceShapeTables[6,1,1]:=True;
PieceShapeTables[6,1,2]:=True;
PieceShapeTables[6,2,1]:=True;
PieceShapeTables[6,2,2]:=True;
// orz........
end;
うっぷす
コンテンツ
最新の12件
2023-06-12
2021-02-15
2013-06-19
2012-07-14
2012-02-04
2012-01-06
2011-03-31
2010-08-26
2010-03-15
2009-10-21
2009-02-12
2008-11-18
メニュー編集
- counter: 886
- today: 1
- yesterday: 0
- online: 1