コラム / テトリスぽいもの / 39

• Prev
• Next
• コラム/テトリスぽいもの

これで難易度調整はできたのですが、
１っ箇所直し忘れが

procedure TForm1.FormCreate(Sender: TObject);
begin
   (略)
   Piece:=TPiece.Create;
   Piece.Init(5,-3,30,MapBlocks);
   SetRandomShapeToPiece(Piece);
end;

↓

procedure TForm1.FormCreate(Sender: TObject);
begin
   (略)
   Piece:=TPiece.Create;
   Piece.Init(5,-3,10,MapBlocks);
   SetRandomShapeToPiece(Piece);
end;

これで遊んでみてください。
だんだん難しい＆スコアがいっぱい
４段同時消しはスコアﾃﾗﾀｶｽｸﾘﾆｯｸ

になってると思います。
テトリスフリーク（？）な人は、
Level.Captionを最初から60とかにしとくといいと思う。

• Prev
  コラム/テトリスぽいもの/38
• Next
  コラム/テトリスぽいもの/40
• Home
  Up