《用DelphiDirectX开发简单RPG游戏》由会员分享，可在线阅读，更多相关《用DelphiDirectX开发简单RPG游戏（14页珍藏版）》请在金锄头文库上搜索。
1、用 Delphi + DirectX 开发简单 RPG 游戏提到 RPG （角色扮演游戏， Role Play Game），在座各位恐怕没有不熟悉的。从古老经典的 DOS 版仙剑奇侠传到新潮花哨的轩辕剑系列，无不以曲折优美的故事情节，美丽可人的主角，悦耳动情的背景音乐，震撼了每一个玩家的心灵。而说到 RPG，就不能不提 DirectX，因为 PC 上大部分的 RPG 都是用这个冬冬开发的。早在 轩辕剑叁外传天之痕推出的时候，我就曾想过用 DirectX 写一个自己的 RPG，自己来安排故事情节的发展，却总是因为这样或那样的事情，一直没有能够实现这个心愿。在耗费了宝贵的几年青春，搞定了诸如考试、
2、恋爱、出国等琐碎杂事之后，我终于可以在这个 SARS 肆虐的时代，坐在陪伴了我整个大学生涯的电脑前，听着颓废而又声嘶力竭的不知名歌曲，写一些一直想写却没有写的东西。DirectX 简介DirectX 对于大多数游戏爱好者来说都不陌生（当然，那些只在 DOS 下艰苦作战的朋友例外），在安装一个游戏前，系统总是会提示你是否需要同时升级 DirectX。简单地说，DirectX 就是一系列的 DLL （动态连接库），通过这些 DLL，开发者可以在无视于设备差异的情况下访问底层的硬件。DirectX 封装了一些 COM（ Component Object Model）对象，这些 COM 对象为访问系统
3、硬件提供了一个主要的接口。首先，我们先来看一下 DirectX 的结构：图 1：DirectX 基本结构DirectX 目前主要由以下七个主要部分组成：DirectDraw 为程序直接访问显存提供接口，同时和其它的 Windows 应用程序保持兼容。 Direct3D 为访问 3D 加速设备提供接口。 DirectInput 为各种输入设备提供接口，比如鼠标，键盘，力反馈游戏手柄和操纵杆等。 DirectPlay 为游戏提供网络功能接口，比如支持通过 TCP/I、IPX 等协议进行游戏中的数据传输。DirectSound 为访问声卡提供接口，支持 WAV、MIDI 等文件的直接播放。 Dire
4、ctSound3D 通过此接口，可以模拟出某一个声音在三维空间中任何一个位置的播放所产生的效果，从而达到逼真的环绕立体声。 DirectMusic 此接口主要是生成一系列的原始声音采样反馈给相应的用户事件。 开发工具（Delphi & DelphiX）下一步，我们来介绍开发工具。我们通常所安装的其实只有 DirectX 的运行库（一系列封装好的 DLL 文件），其内部函数结构非常复杂，所以我们还需要 DirectX 的开发工具。所谓工欲善其事，必先利其器，虽然微软公布了 DirectX SDK，但是由于所有的头文件都是用 C/C+ 写成的，作为 Delphi 的热情拥护者，我们还是无从下手。把
5、 C/C+ 写成的代码转换成 Pascal 可不是一件容易的事，但是不必担心，这项工作已经有人做好了。日本人 Hiroyuki Hori 为 Delphi 写了一个免费的组件包，称作 DelphiX。这些组件可以使得开发者可以轻松地访问 DirectX 的 DirectDraw、Direct3D、DirectSound、DirectInput （支持力反馈手柄）和 DirectPlay 对象。目前的 DelphiX 包支持 Borland Delphi 3/4/5/6/7 和 DirectX 7.0 以上版本（见图 2）。安装了 DelphiX 之后，我们将不需要再安装微软的 DirectX
6、SDK。在这篇文章里我们将使用的就是 DelphiX。TDXDraw DirectDraw 和 Direct3D 组件 TDXDIB 容纳 DIB（设备无关位图，Device Independent Bitmap）的组件 TDXImageList 图片列表组件 TDX3D Direct3D 组件 （和 TDXDraw 一起使用） TDXSound DirectSound 组件 TDXWave 容纳 Wave（波形音频文件）的组件 TDXWaveList Wave 文件列表组件 TDXInput 输入组件，包括键盘和手柄输入 Tlay 通讯组件，用于网络游戏开发 TDXSpriteEngine
7、精灵引擎，用于管理游戏中产生的精灵（Sprite）详见游戏开发过程 TDXTimer 高速定时器，比 TTimer 要更快，更准确 TaintBox TpaintBox 的 DIB 版本 TDXForm 优化过的 TForm，专门用于游戏开发 动画原理在介绍动画的原理之前，我们先来介绍几个 DirectX 的术语。表面（Surfaces ）这里我们暂且称作表面吧。在 DirectX 中，显存中被用来存储各种位图和视频缓冲的部分均被称作表面。而当前被显示在屏幕上的表面被称作主表面（primary surface）。在实验动画的过程中，我们通常要预先生成至少一个不显示的表面，称作后台表面（offs
8、creen surface）。在需要产生动画的时候，我们可以直接将后台表面中的内容显示到屏幕上，而将原来主表面翻转到后台而不再显示。这么说可能大家更容易明白，我们大家在小的时候都玩过在书上画小人的游戏吧。在每页书的下方空白处画上一个个小人，每页上的内容逐渐发生变化，然后快速翻动整本书，就可以看到有小人在跳动。我们现在的主表面就是你现在正看到那页书，后面的那些还没有翻到的页面就是后台表面，通过翻动实现了动画效果。在运行一些大型游戏的时候，在显存已经用完的情况下，游戏将自动调用系统内存。目前而言，想要流畅地运行一个 DirectX 游戏，非 3D 类的最好有 4M 以上的显存，3D 类的则显存越大
9、越好。每秒帧数（Frames per Second）通常简称 FPS，用我们刚才举的例子来描述，也就是指我们每秒所翻过的书的页数。当帧数达到 24帧每秒时，人眼已经无法分辨，从而认为画面是连续的。电影采用的 24 帧每秒，而电视采用的是 25帧每秒。实际上，在日本的动画制作中有一拍二（12 帧每秒）甚至一拍三（8 帧每秒）的做法，同样可做出欺骗肉眼的效果，这个我们暂且不作讨论。在游戏中，我们将采用 24 帧或 25 帧每秒的速度以达到欺骗肉眼的效果。位图和精灵（Bitmaps and Sprites）精灵是指在游戏中用来实现动画效果的一组图片，这些图片通常采用位图格式，并且有用特定颜色填充的透
10、明区域。如下图，就是一个精灵。图中的用黑色填充部分就是预先所定义的透明区域，在游戏中，我们按照白色线条可以将整个图片分别切开成 9 块，每块的大小均为 8050。我们先从左向右，然后在从上往下对起进行编号为 19。如果我们将这九张图片依次循环显示出来，并且设置播放的速度为每秒 24 张，我们就可以得到一个飞船在旋转的动画，也就是一个飞船精灵。开发过程说了许多废话以后，下面我们脱离纸上谈兵，开始正式的开发。在本例中，我们主要实现用鼠标来控制精灵往八个方向行走。所有图片均来自大宇公司轩辕剑叁天之痕，其中精灵采用故事中陈靖仇的形象特此致谢。同时，请各位读者勿把这些图片用于商业用途，否则后果自负。 打
11、开 Delphi 并新建一个应用程序，依次选中 DelphiX 组件栏的 TDXDraw、TDXImageList 、TDXInput、TDXTimer 、TDXSpriteEngine 组件，添加到用户区，分别命名为 DXDraw、DXImageList、DXInput、DXTimer、 DXSpriteEngine，按照下表设置其各项属性。对于 DXImageList，点击 Object Inspector 中的 Items，在其中加入两张位图（background.bmp 和player.bmp） ，分别命名为 background 和 player，设置 player 的 Patter
12、nHeight 和 PatternWidth 均为120 象素，设置其 transparentcolor 为粉红色（clFuchsia） 。控件 属性 值 DXDraw Align alClient Display.Width 800 Display.Height 600 Display.BitCount 24 Options doAllowReboot, doWaitVBlank, doCenter, doFlip AutoInitialize True DXTimer Enabled True Interval 0 DXInput Mouse.BindInputState True Mou
13、se.Enabled True DXSpriteEngine DXDraw DXDraw下面就是全部的源程序，请先在 Delphi 中产生相应事件然后填入代码，最后按下 F9 运行就可以运行程序了。用鼠标点击你的目的地，陈靖仇就会自动跑到指定地点。尝试一下开发一些简单的游戏吧，用 DelphiX 这把牛刀！所有程序在 Delphi 4.0 + DirectX 8.0 环境下测试通过。本文所需控件可以在 这里 下载。Unit Main;InterfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dia
14、logs,StdCtrls, ExtCtrls, Menus, DXClass, DXSprite, DXInput, DXDraws;typeTDirection = (DrUp, DrDown, DrLeft, DrRight, DrUpLeft, DrUpRight, DrDownLeft, DrDownRight);自定义游戏中所用到的方向TPlayerSprite = class (TImageSprite)CanMove: Boolean;protectedprocedure DoMove(MoveCount: Integer); override;procedure MoveTo
15、(MoveCount:Integer; Direction: TDirection);procedure DoCollision(Sprite: TSprite; var Done: Boolean); override; end;TMainForm = class(TDXForm) 此处使用优化过的 TDXForm 来代替 TFormDXTimer: TDXTimer;DXDraw: TDXDraw;DXSpriteEngine: TDXSpriteEngine;DXInput: TDXInput;ImageList: TDXImageList;procedure FormKeyDown(S
16、ender: TObject; var Key: Word; Shift: TShiftState);procedure DXDrawFinalize(Sender: TObject);procedure DXDrawInitialize(Sender: TObject);procedure FormCreate(Sender: TObject);procedure DXTimerTimer(Sender: TObject; LagCount: Integer);procedure DXDrawMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);procedure DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);proc
