CentrED/UOLib/UMap.pas

(*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at
 * http://www.opensource.org/licenses/cddl1.php.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at
 * http://www.opensource.org/licenses/cddl1.php.  If applicable,
 * add the following below this CDDL HEADER, with the fields enclosed
 * by brackets "[]" replaced with your own identifying * information:
 *      Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 *
 *
 *      Portions Copyright 2009 Andreas Schneider
 *)
unit UMap;

{$mode objfpc}{$H+}

interface

uses
  SysUtils, Classes, fgl, UWorldItem;

const
  MapCellSize = 3;
  MapBlockSize = 4 + (64 * MapCellSize);

type

  { TMapCell }

  TMapCell = class(TWorldItem)
    constructor Create(AOwner: TWorldBlock; AData: TStream; AX, AY: Word); overload;
    constructor Create(AOwner: TWorldBlock; AData: TStream); overload;
  protected
    FIsGhost: Boolean;
    FGhostZ: ShortInt;
    FGhostID: LongWord;
    function GetTileID: LongWord; override;
    function GetZ: ShortInt; override;
  public
    property Altitude: ShortInt read GetZ write SetZ;
    property IsGhost: Boolean read FIsGhost write FIsGhost;
    property GhostZ: ShortInt read FGhostZ write FGhostZ;
    property GhostID: LongWord write FGhostID;

    function Clone: TMapCell; override;
    function GetSize: Integer; override;
    procedure Write(AData: TStream); override;
  end;

  TMapCellList = specialize TFPGObjectList<TMapCell>;

  { TMapBlock }

  TMapBlock = class(TWorldBlock)
    constructor Create(AData: TStream; AX, AY: Word); overload;
    constructor Create(AData: TStream); overload;
    destructor Destroy; override;
  protected
    FHeader: LongInt;
  public
    Cells: array[0..63] of TMapCell;
    property Header: LongInt read FHeader write FHeader;
    function Clone: TMapBlock; override;
    function GetSize: Integer; override;
    procedure Write(AData: TStream); override;
  end;

function GetMapCellOffset(ABlock: Integer): Integer;

implementation

function GetMapCellOffset(ABlock: Integer): Integer;
var
  group, tile: Integer;
begin
  group := ABlock div 64;
  tile := ABlock mod 64;

  Result := group * MapBlockSize + 4 + tile * MapCellSize;
end;

{ TMapCell }

constructor TMapCell.Create(AOwner: TWorldBlock; AData: TStream; AX, AY: Word);
begin
  inherited Create(AOwner);

  FX := AX;
  FY := AY;
  if AData <> nil then
  begin
    AData.Read(FTileID, SizeOf(Word));
    AData.Read(FZ, SizeOf(ShortInt));
  end;

  FIsGhost := False;
end;

constructor TMapCell.Create(AOwner: TWorldBlock; AData: TStream);
begin
  Create(AOwner, AData, 0, 0);
end;

function TMapCell.GetTileID: LongWord;
begin
  if FIsGhost then
    Result := FGhostID
  else
    Result := FTileID;
end;

function TMapCell.GetZ: ShortInt;
begin
  if FIsGhost then
    Result := FGhostZ
  else
    Result := FZ;
end;

function TMapCell.Clone: TMapCell;
begin
  Result := TMapCell.Create(nil, nil);
  Result.FX := FX;
  Result.FY := FY;
  Result.FZ := FZ;
  Result.FTileID := FTileID;
end;

procedure TMapCell.Write(AData: TStream);
begin
  AData.Write(FTileID, SizeOf(Word));
  AData.Write(FZ, SizeOf(ShortInt));
end;

function TMapCell.GetSize: Integer;
begin
  Result := MapCellSize;
end;

{ TMapBlock }

constructor TMapBlock.Create(AData: TStream; AX, AY: Word);
var
  iX, iY: Integer;
  buffer: TMemoryStream;
begin
  inherited Create;
  FX := AX;
  FY := AY;
  try
    buffer := nil;
    if Assigned(AData) then
    begin
      buffer := TMemoryStream.Create;
      buffer.CopyFrom(AData, 196);
      buffer.Position := 0;
      buffer.Read(FHeader, SizeOf(LongInt));
    end;
    for iY := 0 to 7 do
      for iX := 0 to 7 do
        Cells[iY * 8 + iX] := TMapCell.Create(Self, buffer, AX * 8 + iX, AY * 8 + iY);
  finally
    buffer.Free;
  end;
  FChanged := False;
end;

constructor TMapBlock.Create(AData: TStream);
begin
  Create(AData, 0, 0);
end;

destructor TMapBlock.Destroy;
var
  i: Integer;
begin
  for i := 0 to 63 do
    Cells[i].Free;
  inherited;
end;

function TMapBlock.Clone: TMapBlock;
var
  i: Integer;
begin
  Result := TMapBlock.Create(nil);
  Result.FX := FX;
  Result.FY := FY;
  for i := 0 to 63 do
    Result.Cells[i] := Cells[i].Clone;
end;

procedure TMapBlock.Write(AData: TStream);
var
  i: Integer;
begin
  AData.Write(FHeader, SizeOf(LongInt));
  for i := 0 to 63 do
    Cells[i].Write(AData);
end;

function TMapBlock.GetSize: Integer;
begin
  Result := MapBlockSize;
end;

end.