uinclude.pas

一个dos游戏的源代码

//极限1000米
//Author: CrazyWill
//Email: [e-mail]

unit uInclude;

interface
uses Windows, Classes, SysUtils, Graphics, Forms, ComCtrls, Messages, Math;

type

  TDirection = (drUp, drDown, drLeft, drRight); //方向

  TGameStatus = (
    gsTitle, // 欢迎画面
    gsPlaying, // 游戏进行中
    gsPause, // 游戏暂停
    gsSuccess, // Success
    gsOver, // GAME OVER
    gsTerminate); // 程序即将退出

const
  // 欲传递给游戏主循环的消息
  WM_INIT_LEVEL = WM_USER + 0; // 游戏重新开始
  WM_PAUSE = WM_USER + 1; // 游戏暂停
  WM_CONTINUE = WM_USER + 2; // 退出暂停状态，继续运行
  WM_GAMEOVER = WM_USER + 3; // 游戏结束
  WM_SUCCESS = WM_USER + 4; //胜利过关

  SPRITE_DEFAULT_MAXHP = 100; // 角色的默认最大血量
  SPRITE_DEFAULT_SPEED = 3; // 角色的默认速度

  MAP_DEFAULT_SPEED = 2; // 背景的默认卷动速度

  MaxArrowNumber = 1; //同一屏幕上最多能出现多少个Arrow

  MaxFireNumber = 4; //同一屏幕上最多能出现多少个火球

  Dynameter = 100;

var
  GameIniFilename: string = 'Game.ini';
  IniDirectory: string = 'base1\';
  IniFilename: string = 'pic.ini';

  CurrentSkinName: string = 'BaseSkin';

  //所有图片中以该色彩(0代表黑色)为透明色
  Transparent_Color: TColor = 0;

  MapRollSpeed: integer = MAP_DEFAULT_SPEED;

  WORLD_WIDTH: integer = 400;

  WORLD_HEIGHT: integer = 200;

implementation

var
  I: Integer;
initialization
  //  TRANSPARENT_COLOR := RGB(0, 0, 0);

finalization
end.