DELPHI版传奇引擎学习菜鸟篇(applem2)-01

http://www.cnblogs.com/iicc/category/282648.html

一点废话:因为非工科出身,又对编程有点兴趣,杂乱的学习了好多(C,C++,PYTHON…)等好多语言,最后发现DEKLPI上手比较快,对于不知道线代和高数等是什么的我来说也许是较好的选择了,毕竟只是兴趣而已,对于DELPHI的资料不是没有,就是觉得没有自己可以渐进入门的.因为以前玩过一个叫传奇的游戏,所以知道最早的传奇是DELPHI开发的,感觉还好,这就找了不少服务端学习(呵呵,研究说不上,因为咱没到那层次),自己动手架设修改,有时还提供给网友玩公益.然后就找传奇的DELPHI源码,不算很多,毕竟现在大部分还是用C写的,也不会开源给大家看,后来听网友说APPLEM2引擎不知道因为什么开源了,就找到一个比较全的(当然还是少了很多东西,比如三方VLC),看着前辈们写的东西,在佩服的同时也觉得自己对照写一遍也许会得到点什么,于是就开始了这个过程,决心从头开始把代码都敲一遍,尽管时间很长,也有点"盗用"(虽说APPLEM2开源了,但是架构模式也还是有知识产权的)嫌疑,呵呵…,不管怎么说,我发现这样学习东西很快,至少对我来说是这样的,这样的过程让我知道了什么是记录,什么是类,什么是SOCKET,对于初学的我来说,收获还是颇丰的,当然也发现了早期代码有不少的不妥之处,函数和过程的繁杂让我一贯找不着北,在试着将一些繁杂的代码简化后,突然发现有的函数被我重新写过了,也许这也是一种提高的方式吧,希望我能坚持下去.正题开始.

后续所有内容都是我自己学习DELPHI过程中对程序设计的一点浅显的了解,有的也许会引发前辈门笑喷,但是这恰是我学习的成长过程,也是我提高的途径.

 

1.传奇服务端结构:

大部分名字都叫MirServer,基本结构包含八个文件夹和一个GAMECENTER.EXE文件和一个CONFIG.INI文件,以下按照启动顺序说明.

名称	说明	描述
GAMECENTER	控制中心	引导所有服务端程序启动,早期的端我没看到过
DBServer	数据库服务器	管理人物\怪物\物品\魔法数据
LoginSrv	登录服务器	控制账号登录
LogServer	日志服务器	记录玩家操作日志
Mir200	游戏主引擎	管理游戏庞大的脚本和设置
RunGate	游戏网关	呵呵,现在我还不知道什么是网关
SelGate	角色网关	好像进入游戏与角色选择有关吧
LoginGate	登录网关	好像是登录控制和玩家状态检测的
Mud2	数据文件夹	物品\魔法\怪物数据,应该是paradox的

applem2的还有个排行榜的,我想大部分端应该集成在M2里边了吧.

能够看到的就这些,既然从头开始,就先把目录硬记下来,虽然后边在"抄写"的过程中会改变一些设置.

2.源代码结构

源代码和上述结构一样,除了MUD2,每个都对应一个工程文件,用了好多插件,准备把不需要的都去掉,把所有的服务端程序集中到一个进程里边,暂时不考虑性能如何,尽量用不带插件的DELPHI完整编译,版本以2007为基准吧.先写完了一个GAMECENTER和DBServer,效果如下:





服务端只有一个Server.exe程序,其他服务都集成到一个父窗口中,然后根据主程序设置决定需要启动那些服务,毕竟传奇架设的时候有些服务可能不在一个服务器上,虽然是菜鸟,但是咱也得考虑远一点,学习前辈们的一些先进理念,也是拓展了自己的学习思路.

3.GAMECENTER

先说说启动中心,不说别的,光是主窗口4000多行的代码就让我眼花缭乱了,这对我来说太难了,有的过程或函数快300行了,阅读比较困难,还是先从自己的角度去理解吧.

GAMECENTER工程架构如下(名字都是从自己理解的角度起的):

//本身包含的单元
ugamecenter.pas     // 主窗口单元
GShare.pas          // 全局常量单元
DataBackUp.pas      // 数据备份单元
//引用的单元
DBShare.pas         // 共享数据单元
HUtil32.pas         // 人物操作单元
MD5Unit.pas         // 数据校验单元
Common.pas          // 通用常量单元

3.1 GShare.pas单元

单元之间的引用很复杂,也许是因为早起代码的原因吧,先说说GShare.pas单元,这个单元包含了服务器的配置常量,如文件夹名字\服务状态\配置文件等全局常量和服务的启动\停止函数以及消息处理过程,先记录一点自己能够理解的.

unit GShare;

interface
uses
Windows, Messages, Classes, SysUtils, INIFiles, DataBackUp, ComCtrls;

const
MAXRUNGATECOUNT = 8;  // 最大游戏网关数量
{以下0-9是每个服务的消息编号常量}
tDBServer = 0;
tLoginSrv = 1;
tLogServer = 2;
tM2Server = 3;
tLoginGate = 4;
tSelGate = 6;
tRunGate = 8;
tPlugTop = 9;
{不言而喻,这里是服务配置INI文件的节名称常量}
BasicSectionName = 'GameConfig';
DBServerSectionName = 'DBServer';
LoginSrvSectionName = 'LoginSrv';
M2ServerSectionName = 'M2Server';
LogServerSectionName = 'LogServer';
RunGateSectionName = 'RunGate';
SelGateSectionName = 'SelGate';
LoginGateSectionName = 'LoginGate';
PlugTopSectionName='PlugTop';
{IP设置,APPLEM2自带一机双IP设置}
sAllIPaddr = '0.0.0.0';
sLocalIPaddr = '127.0.0.1';
sLocalIPaddr2 = '127.0.0.2';
nLimitOnlineUser = 2000;    //服务器最高上线人数(源码自带注释)
{以下是各个服务的配置路径和文件常量}
SERVERCONFIGDIR = 'Config\';
SERVERCONFIGFILE = 'Config.ini';
SERVERGAMEDATADIR = 'GameData\';
SERVERLOGDIR = 'Log\';

DBSERVERSECTIONNAME2 = 'DBServer';
DBSERVERDBDIR = 'DB\';
DBSERVERALLOWADDR = 'AllowAddr.txt';
DBSERVERGATEINFO = 'GateInfo.txt';

LOGINSRVSECTIONNAME2 = 'LoginSrv';
LOGINSRVCHRLOGNAME = SERVERLOGDIR + 'ChrLog\';
LOGINSRVALLOWADDR = 'LoginSrv_AllowAddr.txt';
LOGINSRVGETINFO = 'LoginSrv_GateInfo.txt';
LOGINSRVUSERLIMIT = 'LoginSrv_UserLimit.txt';

M2SERVERCONFIGFILE = '!Setup.txt';
M2SERVERSECTIONNAME1 = 'Server';
M2SERVERSECTIONNAME2 = 'Share';
M2SERVERSEGuildBase = SERVERGAMEDATADIR + 'GuildBase\';
M2SERVERSEGuildDir = M2SERVERSEGuildBase + 'Guilds\';
M2SERVERSEGuildFile = M2SERVERSEGuildBase + 'GuildList.txt';
M2SERVERSEConLogDir = SERVERLOGDIR + 'M2ConLog\';
M2SERVERSECastleDir = SERVERGAMEDATADIR + 'Castle\';
M2SERVERSECastleFile = SERVERGAMEDATADIR + 'Castle\List.txt';
M2SERVERSELogDir = SERVERLOGDIR + 'M2Log\';
M2SERVERSEEMailDir = SERVERLOGDIR + 'M2Log\';
M2SERVERSEnvirDir = 'Envir\';
M2SERVERSMapDir = 'Map\';
M2SERVERSALLOWADDR = 'M2Server_AllowAddr.txt';
M2SERVERSEmailDir = SERVERGAMEDATADIR + 'EMail\';

LOGSERVERSECTIONNAME2 = 'LogDataServer';
LOGSERVERBaseDir = SERVERGAMEDATADIR + 'GameLog\';
RunGateSectionName2 = 'RunGate';
SelGateSectionName2 = 'SelGate';
LoginGateSectionName2 = 'LoginGate';
PlugTopDIR=SERVERGAMEDATADIR +'\mir200\';

type
{定义每个服务的应用程序状态结构指针}
pTProgram = ^TProgram;
TProgram = packed record
boGetStart: Boolean; //DBServer启动标志 (源码自带注释)
boReStart: Boolean; //程序异常停止，是否重新启动 (源码自带注释)
btStartStatus: Byte;//0,1,2,3 未启动，正在启动，已启动,正在关闭 (源码自带注释)
sProgramFile: string[50];
sDirectory: string[100];
ProcessInfo: TProcessInformation; //服务的进程信息(进程,线程,进程ID,线程ID)
ProcessHandle: THandle;           //进程句柄
MainFormHandle: THandle;          //主窗口句柄,后续改为每个服务对应的活动窗口句柄
nMainFormX: Integer;  //服务端启动后窗口位置
nMainFormY: Integer;
end;
{应该是加载地图文件的结构指针}
pTDataListInfo = ^TDataListInfo;
TDataListInfo = packed record
sFileName: string[255];
MapFileHandle: THandle;
MapFileBuffer: PChar;
DateTime: TDateTime;
Data: PChar;
DataSize: Integer;
Item: TListItem;
end;
{检测服务运行状态}
TCheckCode = packed record
dwThread0: LongWord;
sThread0: string;
end;
{下边的一堆CONFIG是对应的每个服务状态的结构}
TDBServerConfig = packed record
MainFormX: Integer;
MainFormY: Integer;
GatePort: Integer;
ServerPort: Integer;
GetStart: Boolean;
ProgramFile: string[50];
end;

TLoginSrvConfig = packed record
MainFormX: Integer;
MainFormY: Integer;
GatePort: Integer;
ServerPort: Integer;
MonPort: Integer;
GetStart: Boolean;
ProgramFile: string[50];
end;

TM2ServerConfig = packed record
MainFormX: Integer;
MainFormY: Integer;
GatePort: Integer;
MsgSrvPort: Integer;
GetStart: Boolean;
ProgramFile: string[50];
end;

TLogServerConfig = packed record
MainFormX: Integer;
MainFormY: Integer;
Port: Integer;
GetStart: Boolean;
ProgramFile: string[50];
end;

TPlugTopConfig = packed record
MainFormX: Integer;
MainFormY: Integer;
Port: Integer;
GetStart: Boolean;
ProgramFile: string[50];
end;

TRunGateConfig = packed record
MainFormX: Integer;
MainFormY: Integer;
GetStart: array[0..MAXRUNGATECOUNT - 1] of Boolean;
GatePort: array[0..MAXRUNGATECOUNT - 1] of Integer;
ProgramFile: string[50];
end;

TSelGateConfig = packed record
MainFormX: Integer;
MainFormY: Integer;
GatePort: array[0..1] of Integer;
GetStart1: Boolean;
GetStart2: Boolean;
ProgramFile: string[50];
end;

TLoginGateConfig = packed record
MainFormX: Integer;
MainFormY: Integer;
GatePort: Integer;
GetStart: Boolean;
ProgramFile: string[50];
end;
{将所有的服务状态声明为一个结构指针}
pTConfig = ^TConfig;
TConfig = packed record
DBServer: TDBServerConfig;
LoginSrv: TLoginSrvConfig;
M2Server: TM2ServerConfig;
LogServer: TLogServerConfig;
RunGate: TRunGateConfig;
SelGate: TSelGateConfig;
LoginGate: TLoginGateConfig;
PlugTop: TPlugTopConfig;
end;

procedure LoadConfig();  //加载启动设置
procedure SaveConfig();  //保存启动设置
{下边2个是启动和停止每个服务的函数}
function RunProgram(var ProgramInfo: TProgram; sHandle: string; dwWaitTime: LongWord): LongWord;
function StopProgram(var ProgramInfo: TProgram; dwWaitTime: LongWord): Integer;
{发送每个服务当前状态的消息处理过程}
procedure SendProgramMsg(DesForm: THandle; wIdent: Word; sSendMsg: string);

先将学习过的温习一下,然后再将服务器的状态处理连贯做一下记录.

关注过程,不知不觉就发现了结果原来如此...