mapunit.pas

《Delphi深度历险》附书源码 Delphi学习书本

unit mapunit;

interface

uses Windows, SysUtils, Graphics, Classes, tiles, util;

type
  TMapArray = array[0..TILE_NUM_Y - 1, 0..TILE_NUM_X - 1] of Byte;
  
  tmap = class
  private
    FTerrMap, FItemMap: TMapArray; //