source: trunk/Games/UTetris.pas

unit UTetris;

{$mode delphi}

interface

uses
  Classes, SysUtils, UGame, UGraphics, fgl;

type
  TShape = class
    Body: array of Byte;
  end;

  { TShapes }

  TShapes = class(TFPGObjectList<TShape>)
    function AddNew(Body: array of Byte): TShape;
  end;

  { TTetris }

  TTetris = class(TGame)
    Shapes: TShapes;
    Space: array of array of TColor;
    procedure Paint(Canvas: TCanvas);
    constructor Create; override;
    destructor Destroy; override;
  end;

implementation

{ TShapes }

function TShapes.AddNew(Body: array of Byte): TShape;
var
  I: Integer;
begin
  Result := TShape.Create;
  SetLength(Result.Body, Length(Body));
  for I := 0 to Length(Result.Body) - 1 do
    Result.Body[I] := Body[I];
  Add(Result);
end;

{ TTetris }

procedure TTetris.Paint(Canvas: TCanvas);
begin
  with Canvas do begin
    Rectangle(Bounds(0, 0, Size.Width, Size.Height));
  end;
end;

constructor TTetris.Create;
begin
  inherited;
  Shapes := TShapes.Create;
  Shapes.AddNew([2, 2, 2, 2]);
  Shapes.AddNew([0, 6, 6, 0]);
  Shapes.AddNew([2, 2, 6, 0]);
  Shapes.AddNew([2, 6, 2, 0]);
  Shapes.AddNew([2, 6, 4, 0]);
end;

destructor TTetris.Destroy;
begin
  Shapes.Free;
  inherited;
end;

end.