rcrutch.pas

是一个非常好的游戏

unit rcrutch;

interface
type
  TRCurtch = class
  public
    FStatus: Byte;
    FX, FY: Integer;
  public
    constructor Create;
    procedure Rotate;
    procedure Move(DX: Integer);
    function Drop: Boolean;
    procedure Draw;
    function IsOver: Boolean;
  end;
implementation
uses
  Main;

constructor TRCurtch.Create;
begin
  FX := 4;
  FY := 0;
  FStatus := 0;
  if not IsOver then
    Draw;
end;

function TRCurtch.IsOver: Boolean;
begin
  if (BG[FX, FY] <> 0) or (BG[FX + 1, FY] <> 0) or
    (BG[FX + 2, FY] <> 0) or (BG[FX + 2, FY + 1] <> 0) then
    Result := True
  else
    Result := False;
end;

function TRCurtch.Drop: Boolean;
begin
  case FStatus of
    0: begin
        if FY >= 18 then
        begin
          Result := False;
        end
        else if (BG[FX, FY + 1] = 0) and (BG[FX + 1, FY + 1] = 0) and (BG[FX + 2, FY + 2] = 0) then
        begin
          FY := FY + 1;
          Draw;
          Result := True;
        end
        else
          Result := False;
        if not Result then
        begin
          BG[FX, FY] := 5;
          BG[FX + 1, FY] := 5;
          BG[FX + 2, FY] := 5;
          BG[FX + 2, FY + 1] := 5;
        end;
      end;
    1: begin
        if FY >= 17 then
        begin
          Result := False;
        end
        else if (BG[FX, FY + 3] = 0) and (BG[FX + 1, FY + 1] = 0) then
        begin
          FY := FY + 1;
          Draw;
          Result := True;
        end
        else
          Result := False;
        if not Result then
        begin
          BG[FX, FY] := 5;
          BG[FX, FY + 1] := 5;
          BG[FX, FY + 2] := 5;
          BG[FX + 1, FY] := 5;
        end;
      end;
    2: begin
        if FY >= 17 then
        begin
          Result := False;
        end
        else if (BG[FX, FY + 3] = 0) and (BG[FX + 1, FY + 3] = 0) and (BG[FX + 2, FY + 3] = 0) then
        begin
          FY := FY + 1;
          Draw;
          Result := True;
        end
        else
          Result := False;
        if not Result then
        begin
          BG[FX, FY + 2] := 5;
          BG[FX + 1, FY + 2] := 5;
          BG[FX + 2, FY + 2] := 5;
          BG[FX, FY + 1] := 5;
        end;
      end;
    3: begin
        if FY >= 17 then
        begin
          Result := False;
        end
        else if (BG[FX + 1, FY + 3] = 0) and (BG[FX + 2, FY + 3] = 0) then
        begin
          FY := FY + 1;
          Draw;
          Result := True;
        end
        else
          Result := False;
        if not Result then
        begin
          BG[FX + 2, FY] := 5;
          BG[FX + 2, FY + 1] := 5;
          BG[FX + 2, FY + 2] := 5;
          BG[FX + 1, FY + 2] := 5;
        end;
      end;
  else
    Result := False;
  end;
end;

procedure TRCurtch.Move(DX: Integer);
begin
  case FStatus of
    0: begin
        if (FX + DX >= 0) and (FX + DX <= 7) then
        begin
          if (BG[FX + DX, FY] = 0) and (BG[FX + DX + 1, FY] = 0) and
            (BG[FX + DX + 2, FY] = 0) and (BG[FX + DX + 2, FY + 1] = 0) then
            FX := FX + DX;
        end;
      end;
    1: begin
        if (FX + DX >= 0) and (FX + DX <= 8) then
        begin
          if (BG[FX + DX, FY] = 0) and
            (BG[FX + DX, FY + 1] = 0) and
            (BG[FX + DX, FY + 2] = 0) and
            (BG[FX + DX + 1, FY] = 0) then
            FX := FX + DX;
        end;
      end;
    2: begin
        if (FX + DX >= 0) and (FX + DX <= 7) then
        begin
          if (BG[FX + DX, FY + 2] = 0) and (BG[FX + DX + 1, FY + 2] = 0) and
            (BG[FX + DX + 2, FY + 2] = 0) and (BG[FX + DX, FY + 1] = 0) then
            FX := FX + DX;
        end;
      end;
    3: begin
        if (FX + DX + 1 >= 0) and (FX + DX <= 7) then
        begin
          if (BG[FX + DX + 2, FY] = 0) and
            (BG[FX + DX + 2, FY + 1] = 0) and
            (BG[FX + DX + 2, FY + 2] = 0) and
            (BG[FX + DX + 1, FY + 2] = 0) then
            FX := FX + DX;
        end;
      end;
  end;
  Draw;
end;

procedure TRCurtch.Draw;
begin
  FillChar(FG, 200, #0);
  case FStatus of
    0: begin
        FG[FX, FY] := 5;
        FG[FX + 1, FY] := 5;
        FG[FX + 2, FY] := 5;
        FG[FX + 2, FY + 1] := 5;
      end;
    1: begin
        FG[FX, FY] := 5;
        FG[FX, FY + 1] := 5;
        FG[FX, FY + 2] := 5;
        FG[FX + 1, FY] := 5;
      end;
    2: begin
        FG[FX, FY + 2] := 5;
        FG[FX + 1, FY + 2] := 5;
        FG[FX + 2, FY + 2] := 5;
        FG[FX, FY + 1] := 5;
      end;
    3: begin
        FG[FX + 2, FY] := 5;
        FG[FX + 2, FY + 1] := 5;
        FG[FX + 2, FY + 2] := 5;
        FG[FX + 1, FY + 2] := 5;
      end;
  end;
end;

procedure TRCurtch.Rotate;
begin
  case FStatus of
    0: if (FY <= 17) then
      begin
        if (BG[FX, FY + 2] = 0) and (BG[FX, FY + 1] = 0) then
          FStatus := 1;
      end;
    1: if (FX <= 7) then
      begin
        if (BG[FX + 1, FY + 2] = 0) and (BG[FX + 2, FY + 2] = 0) then
          FStatus := 2;
      end;
    2: if (FY > 0) then
      begin
        if (BG[FX + 2, FY] = 0) and (BG[FX + 2, FY + 1] = 0) then
          FStatus := 3;
      end;
    3: if (FX >= 0) then
      begin
        if (BG[FX, FY] = 0) and (BG[FX + 1, FY] = 0) then
          FStatus := 0;
      end;
  end;
  Draw;
end;
end.