globals.pas

很多人想要研究的真彩传奇2客户端,一般来说传奇2的客户端是256色的,现在出了个飞尔真彩传奇,想必很吸引大家的眼球.现在把我收藏的拿出来一起共享

unit Globals;

interface

uses MirWil;


{------------------------------------------------------------------------------}
// 全局常量
{------------------------------------------------------------------------------}
const
  // 屏幕大小
  CLIENT_WIDTH = 800;
  CLIENT_HEIGHT = 600;

  // 显示地图的大小
  MAPSURFACE_WIDTH = 800;
  MAPSURFACE_HEIGHT = 445;

  // 地图单位/背景图片尺寸
  MAPUNIT_WIDTH = 48;
  MAPUNIT_HEIGHT = 32;

  // 地图单位中心象素点
  MAPCENTER_X = (MAPSURFACE_WIDTH - MAPUNIT_WIDTH) div 2;
  MAPCENTER_Y = (MAPSURFACE_HEIGHT - MAPUNIT_HEIGHT) div 2;

  // 逻辑地图单位 (估计是微量屏幕移动的最小值)
  LOGICALMAPUNIT = 20;

var

{------------------------------------------------------------------------------}
// 全局变量
{------------------------------------------------------------------------------}

  // 路径定义
  G_MirPath   : string = '';
  G_MirMapPath: string = '';
  G_MirWilPath: string = '';
  G_MirWavPath: string = '';

var

{------------------------------------------------------------------------------}
// WIL 图片文件
{------------------------------------------------------------------------------}
  // 前景图片
  ShuJi  : TWilFile;
  //BackDxFastBlt:TDxFastBlt;
  // 背景图片
 // G_WilTile     : TWilFile;
 // G_WilTileSm   : TWilFile;
  // 人类角色图片
  //G_WilHuman    : TWilFile;         // Human Actor 的身体图片文件 (hum.wil)
  //G_WilHair     : TWilFile;         // Human Actor 的头发图片文件 (hair.wil)
  //G_WilWeapon   : TWilFile;         // Human Actor 的武器图片文件 (weapon.wil)
  //G_WilMagic    : TWilFile;         // Human Actor 的魔法图片文件 (magic.wil)
  // 游戏界面图片
  //G_WilPrgUse   : TWilFile;

type

{------------------------------------------------------------------------------}
// 全局数据结构
{------------------------------------------------------------------------------}

  // 游戏状态
  TGameState = (gsLogin, gsSelChr, gsLogout, gsPlay);

implementation

end.