俄罗斯方块14.txt

来自「学习Delphi最好的教材。通过一个个简单而实用的实例」· 文本 代码 · 共 28 行

17.把这些方块堆起来(碰到别的方块就停下来)
PutDown函数改为
procedure TForm1.PutDown;
var
  Stop:Boolean;
begin
  //判断哪些轻快要把它放下来，就是说要将
  //方块所在的那些格子填满
  Stop:=False;
  //当方块到达底部停下来
  if y=17 then Stop:=True;
  //当方块左肩下满时
  if Box[x,y+1]>0 then Stop:=True;
  //当方块右肩下满时
  if Box[x+2,y+1]>0 then Stop:=True;
  //当方块脚下满时
  if Box[x+1,y+3]>0 then Stop:=True;
  if Stop then
  begin
    Box[x,y]:=1;
    Box[x+1,y]:=1;
    Box[x+2,y]:=1;
    Box[x+1,y+1]:=1;
    Box[x+1,y+2]:=1;
    //然后一个新的方块又从上面下来
    y:=0;
  end;
end;