unit uGame;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 DXDraws, StdCtrls, ExtCtrls, DXInput, DXClass;

const TileHeight=15;

type TTile = Record
              TileImage:Integer;
              Marked:Boolean;
            end;

type TTileMap = Record
                 Map:array[1..50,1..50]of TTile;
               end;

type
 TMainForm = class(TDXForm)
   DXDraw: TDXDraw;
   TileMaps: TDXImageList;
   DXTimer: TDXTimer;
   DXInput: TDXInput;
   Panel: TPanel;
   Markers: TDXImageList;
   procedure DXTimerTimer(Sender: TObject; LagCount: Integer);
   procedure FormCreate(Sender: TObject);
   procedure DrawTiles(StartX,StartY:Integer);
   procedure CheckTiles(X,Y:Integer; var XTile, YTile: Integer);
   procedure DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X,
     Y: Integer);
   procedure FormKeyDown(Sender: TObject; var Key: Word;
     Shift: TShiftState);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Frame:Integer;
 MainForm: TMainForm;
 Map:TTileMap;
 StartX,StartY:Integer;
 TileX,TileY:Integer;

implementation

{$R *.DFM}

procedure TMainForm.DrawTiles(StartX,StartY:Integer);
var PosX,PosY,LoopX,LoopY,XTile,YTile,NumOfTilesY,TileImage:Integer;
begin
 PosY:=0;
 PosX:=1;
 NumOfTilesY := 0;
 for LoopY := 1 to 49 do
 begin
   NumOfTilesY := NumOfTilesY + 1;
   XTile:=1;
   YTile:=LoopY;
   for LoopX := 1 to NumOfTilesY do
   begin
     TileImage:=Map.Map[XTile,YTile].TileImage;
     TileMaps.Items[TileImage].Draw(DXDraw.Surface,StartX+PosX+LoopX*64,StartY+LoopY*15,Frame);
     if Map.Map[XTile,YTile].Marked then
     begin
       //Markers.Items[0].Draw(DXDraw.Surface,StartX+PosX+LoopX*64,StartY+LoopY*15,0);
     end;
     XTile:=XTile+1;
     YTile:=YTile-1;
   end;

   PosX:=PosX-32;
   PosY:=PosY+15;
 end;
 for LoopY := 1 to 50 do
 begin
   XTile:=LoopY;
   YTile:=50;
   for LoopX := 1 to NumOfTilesY do
   begin
     TileImage:=Map.Map[XTile,YTile].TileImage;
     TileMaps.Items[TileImage].Draw(DXDraw.Surface,StartX+PosX+LoopX*64,StartY+PosY+LoopY*15,Frame);
     if Map.Map[XTile,YTile].Marked then
     begin
       //Markers.Items[0].Draw(DXDraw.Surface,StartX+PosX+LoopX*64,StartY+PosY+LoopY*15,0);
     end;
     XTile:=XTile+1;
     YTile:=YTile-1;
   end;
   NumOfTilesY:=NumOfTilesY-1;
   PosX:=PosX+32;
 end;

 // draw map marker here, above all tiles...
 //Markers.Items[0].Draw(DXDraw.Surface,StartX+PosX+LoopX*64,StartY+PosY+LoopY*15,0);
 
end;


procedure TMainForm.DXTimerTimer(Sender: TObject; LagCount: Integer);

begin
 if not DXDraw.CanDraw then Exit;
 DXDraw.Surface.Fill(0);
 Panel.Caption:='FPS: '+IntToStr(DXTimer.FrameRate) +' TileX: '+IntToStr(TileX) +' TileY: '+IntToStr(TileY);
 DrawTiles(StartX,StartY);
 DXDraw.Flip;
 DXInput.Update;
 { Check for mouse input here }
 If isLeft in DXInput.States then StartX:=StartX+16;
 If isRight in DXInput.States then StartX:=StartX-16;
 If isUp in DXInput.States then StartY:=StartY+8;
 If isDown in DXInput.States then StartY:=StartY-8;
 If (Frame=5) then
   Frame:=0
 else
   Frame:=Frame+1;

end;

procedure TMainForm.FormCreate(Sender: TObject);
var i,ii: integer;
begin
 Frame:=0;
 StartX:=0;
 StartY:=0;

 for i := 1 to 50 do
   for ii := 1 to 50 do
     Map.Map[i,ii].TileImage := Random(16); // 0-12

 DXTimer.Enabled:=True;
end;

procedure TMainForm.CheckTiles(X,Y:Integer; var XTile,YTile:Integer);
var LoopX,LoopY:Integer;
begin
 for LoopY := 1 to 50 do
 begin
   if (Y-((0.46875)*(X-StartX)+StartY+(LoopY*30))<15) and (Y-((0.46875)*(X-StartX)+StartY+(LoopY*30))>(-15)) then
   begin
     YTile:=LoopY;
   end;
 end;
 for LoopX := 1 to 50 do
 begin
   if (-(0.46875)*(X-StartX)+StartY+(LoopX*30)-Y<15) and ((-0.46875)*(X-StartX)+StartY+(LoopX*30)-Y>(-15)) then
   begin
     XTile:=LoopX;
   end;
 end;
end;

procedure TMainForm.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X,
 Y: Integer);
begin
 Map.Map[TileX,TileY].Marked:=False;
 CheckTiles(X-96,Y,TileX,TileY);
 Map.Map[TileX,TileY].Marked:=True;
end;

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if key = 27 then Application.Terminate();
end;

end.