推箱子游戏———DELPHI

 

1  游戏总共有四个级别（初级，中级，高级，特高级），每个级别10关，可自行选择，且每关可以从来。背景音乐6首可自己选择，并可以背景音效的开关。成绩判定根据所走的“步数”来判定！更多相关内容在“帮助”菜单中可得到解决！

2  在这里我仅仅介绍一下它的制作流程，对初学delphi的朋友来说这是个不错的小项目！具体代码没有贴出，如有需要可跟我联系！建议自己写，挺简单的！

3  简介：

(1) 相关变量及类型声明：
Type
  GKdata=(n,m,w,b,h);   //枚举类定义，用于界面信息的存储
  GK_array=array [0..9,0..13] of GKdata;//界面显示箱子的存储结构

type block=record   //记录类，记录箱子位置
    x:byte;
    y:byte;
    end;

type
  TForm1 = class(TForm)
    procedure drawimg(var gk2:GK_array); //显示游戏界面，自定义
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);   //方向键的输入，Tform类事件
    procedure leftgo();    //向左移动一个单位 (每个单位即是一个箱子大小)
    procedure upgo();    //向上移动一个单位
    procedure rightgo();   //向右移动一个单位
    procedure downgo();    //向下移动一个单位

var
  gks:byte;    //关卡
  img:array of array of Timage;  //动态timage控件数组
  man:block;    //人物
  hole:array of block;   //洞的位置数组
  holenum:byte;    //每关洞的个数
  gk_array1:GK_array;   //界面显示箱子的存储结构
  degree:byte=0;   //难度系数
  steps:byte=0;    //步数
  dylabel:Tlabel;   //在pannel组建上显示状态信息

 

(2) 部分函数，过程声明
function mtow(dir:byte):boolean; //人撞墙
function mtob(dir:byte):boolean; //人撞箱子
function mtobtob(dir:byte):boolean; //人撞箱子到箱子
function mtobtow(dir:byte):boolean; //人撞箱子到墙
procedure mrun(dir:byte);  //人走
procedure brun(dir:byte);  //箱子走
function win():boolean;   //过关
function degreewin():boolean;  //关卡
procedure count();   //统计“洞”的个数
procedure stations(den:byte;gkn:byte;stn:byte); //每走一步的状态

 

(3) 存储结构
采用矩阵的存储结构，并自定义枚举类型用于界面信息的存储；
如： for i:=0 to 9 do
  for j:=0 to 13 do
         gk[i][j]:=n;//GKdata=(n,m,w,b,h)自定义枚举类

 

4 关键字：
  枚举类型  记录类型  动态数组  动态组件生成及使用  内存的分配及释放  数据存储结构  过程   函数  音乐文件的调用  TMainmenu  Tpannel Tlabel  Timage

代码下载：http://gnolhh168.download.csdn.net/