{$MODE OBJFPC}
unit MEGameEngine;

{-----------------------------------------------------------------}
{                                                                 }
{                Machina Engine - Game Engine Unit                }
{                                                                 }
{-----------------------------------------------------------------}

interface

uses Windows, SysUtils, Variants, Classes, Contnrs, Graphics, Math;

type
  TBaseMessage = class
  public
    FMessage : Cardinal;
    FParamL : Integer;
    FParamR : Integer;
    FParamResult : Integer;
  end;

  TImgType = (itNone, itPNG, itBMP);

  TBasePicture = class(TObject)
  public
    FPicture : TGraphic;
    FImageType : TImgType;

    constructor Create;
    destructor Destroy;
  end;

  TBaseRoom = class(TObject)
  public
    FName : String;
    FWidth : Integer;
    FHeight : Integer;
    FRoomTiled : Boolean;
    FMajorGrid : Boolean;
    FMajorGridWidth : Integer;
    FMajorGridHeight : Integer;
    FTileSetGrid : Boolean;
    FTileWidth : Integer;
    FTileHeight : Integer;

    FObjectList : TObjectList;

    constructor Create;
    destructor Destroy;
  end;

  TBaseSprite = class(TObject)
  public

    constructor Create;
    destructor Destroy;
  end;

  TBaseClass = class(TObject)
  private
    FName : String;
    FPosX, FPosY, FPosZ : Extended;
    FSprite : TBaseSprite;
    FSpriteIndex : Integer;
    FSpriteSpeed : Extended;

    FDirection : Extended;
    FSpeed : Extended;
    FSpeedH : Extended;
    FSpeedV : Extended;
    FVisible : Boolean;
    FRoomOwner : TBaseRoom;

    destructor Destroy;
    constructor Create;
  end;

  TApplicationGame = class(TObject)
  public
    FMainRoom : TBaseRoom;
    FRoom : TBaseRoom;

    procedure ProcessMessages;

    constructor Create;
    destructor Destroy;
  end;

var
  FObjList : TObjectList;

implementation

{ Implementation }

procedure SetFPosition(BObject : TBaseClass; BPosX, BPosY : Extended);
begin
  if (BObject <> nil) then
  begin
    BObject.FPosX := BPosX;
    BObject.FPosY := BPosY;
  end;
end;

procedure SetFPositionEx(BObject : TBaseClass; BPosX, BPosY, BPosZ : Extended);
begin
  if (BObject <> nil) then
  begin
    BObject.FPosX := BPosX;
    BObject.FPosY := BPosY;
    BObject.FPosZ := BPosZ;
  end;
end;

procedure SetFDirection(BObject : TBaseClass; BDirection : Extended);
begin
  if (BObject <> nil) then
  begin
    BObject.FDirection := BDirection;
  end;
end;

procedure SetFSpeed(BObject : TBaseClass; BSpeed : Extended);
begin
  if (BObject <> nil) then
  begin
    BObject.FSpeed := BSpeed;
  end;
end;

procedure SetFSprite(BObject : TBaseClass; BSprite : TBaseSprite; BSpriteSpeed : Extended; BSpriteIndex : Integer);
begin
  if ((BObject <> nil) and (BSprite <> nil)) then
  begin
    BObject.FSprite := BSprite;
    BObject.FSpriteSpeed := BSpriteSpeed;
    BObject.FSpriteIndex := BSpriteIndex;
  end;
end;

procedure DestroyFObject(BObject : TBaseClass);
begin
  if (BObject <> nil) then
  begin
    FreeAndNil(BObject);
  end;
end;

procedure SetFRoomOwner(BObject : TBaseClass; BRoom : TBaseRoom);
begin
  if ((BObject <> nil) and (BRoom <> nil)) then
  begin
    BObject.FRoomOwner := BRoom;
  end;
end;

{ Implementation - TBasePicture }

constructor TBasePicture.Create;
begin

end;

destructor TBasePicture.Destroy;
begin

end;

{ Implementation - TBaseRoom }

constructor TBaseRoom.Create;
begin
  inherited Create;

end;

destructor TBaseRoom.Destroy;
begin

  inherited Destroy;
end;

{ Implementation - TBaseSprite }

constructor TBaseSprite.Create;
begin
  inherited Create;

end;

destructor TBaseSprite.Destroy;
begin

  inherited Destroy;
end;

{ Implementation - TBaseClass }

constructor TBaseClass.Create;
begin
  inherited Create;

end;

destructor TBaseClass.Destroy;
begin

  inherited Destroy;
end;

{ Implementation - TApplicationGame }

procedure TApplicationGame.ProcessMessages;
begin

end;

constructor TApplicationGame.Create;
begin

end;

destructor TApplicationGame.Destroy;
begin

end;

end.

[DATAFILE] DFScenarios001;

[ROOMDATA]

  [ROOM] RRoomName001;
  [ROOMBEGIN] RRoomName001;
    [FIELD] FGridWidth := '32';
    [FIELD] FGridHeight := '32';
    [FIELD] FRoomTiled := 'True';
    [FIELD] FWidth := '8';
    [FIELD] FHeight := '8';
    [FIELD] FLayer [ 1 ] := { 2.2,2.2,1.1,1.1,0.0 };

    [FIELD] FLayerTileSet [ 1 ] := 'LTSGrassLand';
   
    [LISTBEGIN] FObjectList;
    [OBJECT] TBaseObject : 'FMainCharacter';
    [OBJECTBEGIN] TBaseObject;
      [FIELD] FName := 'FMainCharacter';
      [FIELD] FPosX := '20';
      [FIELD] FPosY := '26';
      [FIELD] FPosZ := '0';
      [FIELD] FSpriteName : 'SName';
      [FIELD] FSpriteIndex : '1';
      [FIELD] FSpriteSpeed : '0.6'; // Speed of the sprite's framerate;
    [OBJECTEND] TBaseObject : 'FMainCharacter';

    [LISTEND] FObjectList;

  [ROOMEND] RRoomName001;

[ROOMDATAEND]

[DATAFILEEND]