客户端创建人物向服务端发送创建数据

基础初始化: // 在 TfrmMain.Create 中初始化基本组件 constructor TfrmMain.Create; begin // ... 其他初始化代码 ... // 创建场景管理器 DScreen := TDrawScreen.Create; IntroScene :...

meinvwudi · 2024-12-08T03:31:22+00:00

基础初始化: // 在 TfrmMain.Create 中初始化基本组件 constructor TfrmMain.Create; begin // ... 其他初始化代码 ... // 创建场景管理器 DScreen := TDrawScreen.Create; IntroScene :...

客户端创建人物向服务端发送创建数据

meinvwudi

基础初始化:
```
// 在 TfrmMain.Create 中初始化基本组件
constructor TfrmMain.Create;
begin
  // ... 其他初始化代码 ...
  
  // 创建场景管理器
  DScreen := TDrawScreen.Create;
  IntroScene := TIntroScene.Create;
  LoginScene := TLoginScene.Create; 
  SelectChrScene := TSelectChrScene.Create;
  g_PlayScene := TPlayScene.Create;
  
  // 创建角色相关列表
  g_FreeActorList := TList.Create;
  g_GroupMembers := THStringList.Create;
  // ... 其他初始化
end;
```
1. 角色创建:
```
// 在场景中创建新角色
procedure TPlayScene.NewActor(
  nRecogId: Integer;     // 角色ID 
  nX, nY: Integer;       // 位置坐标
  nSeriesNum: Integer;   // 序列号
  nFeature: Integer;     // 外观特征
  nStatus: Integer;      // 状态
  // ... 其他参数
);
```
1. 角色属性设置:
```
// 设置角色名称和颜色
Actor.m_sDescUserName := GetValidStr3(data, Actor.m_sUserName, ['\']);
Actor.m_sUserNameOffSet := g_DXCanvas.TextWidth(Actor.m_sUserName) div 2;
Actor.m_btNameColor := Str_ToInt(Str, 0);

// 设置角色类型颜色
if Actor.m_btRace = RCC_MERCHANT then
  Actor.m_nNameColor := clLime  // 商人为绿色
else
  Actor.m_nNameColor := GetRGB(Actor.m_btNameColor);
```
  1. 角色移动控制:
```
// 处理角色移动消息
SM_WALK, SM_RUN, SM_HORSERUN: begin
  DecodeBuffer(body, @desc, SizeOf(TCharDesc));
  if msg.Recog <> g_MySelf.m_nRecogId then
    g_PlayScene.SendMsg(msg.ident, msg.Recog,
      msg.param {x},
      msg.tag {y},
      msg.series {dir+light},
      desc.Feature,
      desc.Status, '', desc.StatusEx);
end;
```
  2. 特效处理:
```
// 添加角色特效
procedure DrawEffectHum(nType, nX, nY: Integer);
begin
  case nType of
    // 登录特效
    84: begin  
      Effect := TNormalDrawEffect.Create(...);
      g_SndMgr.PlaySound(...);
    end;
    
    // 其他特效类型
    // ...
  end;
end;
```

meinvwudi

从代码结构来看，创建角色并发送数据到 SelGate 服务器的主要相关代码在以下几个关键部分：

在 ClMain.pas 中找到发送新建角色的函数：

procedure TfrmMain.SendNewChr(
  uid,        // 用户ID  
  uname,      // 角色名
  shair,      // 发型
  sjob,       // 职业
  ssex: string // 性别
);
begin
  // 发送创建角色请求到服务器
  SendClientMessage(CM_NEWCHR, 0, 0, 0, 0);
end;

在 MShare.pas 中定义了相关常量和数据结构：

const
  CM_NEWCHR = 100;       // 创建角色消息ID
  CM_DELCHR = 101;       // 删除角色消息ID  
  CM_SELCHR = 102;       // 选择角色消息ID

type
  // 角色创建数据结构
  TNewChrMsg = record
    UID: string[16];     // 账号
    ChrName: string[20]; // 角色名
    Hair: Byte;          // 发型
    Job: Byte;          // 职业
    Sex: Byte;          // 性别
  end;

在 LoginSrv.pas 中处理创建角色请求：

procedure TLoginSrv.ProcessNewChr(
  PlayObject: TPlayObject; 
  DefMsg: pTDefaultMessage;
  Buff: PChar
);
var
  NewChrMsg: TNewChrMsg;
begin
  // 解析创建角色数据
  Move(Buff^, NewChrMsg, SizeOf(TNewChrMsg));
  
  // 验证角色名是否合法
  if not CheckChrName(NewChrMsg.ChrName) then begin
    SendFailMsg(PlayObject, '角色名不合法');
    Exit;  
  end;

  // 创建角色数据
  if CreateNewChr(NewChrMsg) then begin
    // 通知客户端创建成功
    SendCreateSuccess(PlayObject);
  end else begin
    // 通知客户端创建失败
    SendFailMsg(PlayObject, '创建角色失败');
  end;
end;

在 SelGate.pas 中转发创建角色请求：

procedure TSelGate.ProcessClientNewChr(
  Client: TGameClient;
  DefMsg: pTDefaultMessage; 
  Buff: PChar
);
begin
  // 转发创建角色请求到 LoginServer
  SendToLoginServer(Client.Socket, 
    DefMsg.Ident,
    DefMsg.Recog,
    DefMsg.Param,
    DefMsg.Tag,
    DefMsg.Series,
    Buff
  );
end;

主要流程：

从代码结构来看，创建角色并发送数据到 SelGate 服务器的主要相关代码在以下几个关键部分：

在 ClMain.pas 中找到发送新建角色的函数：

procedure TfrmMain.SendNewChr(
  uid,        // 用户ID  
  uname,      // 角色名
  shair,      // 发型
  sjob,       // 职业
  ssex: string // 性别
);
begin
  // 发送创建角色请求到服务器
  SendClientMessage(CM_NEWCHR, 0, 0, 0, 0);
end;

在 MShare.pas 中定义了相关常量和数据结构：

const
  CM_NEWCHR = 100;       // 创建角色消息ID
  CM_DELCHR = 101;       // 删除角色消息ID  
  CM_SELCHR = 102;       // 选择角色消息ID

type
  // 角色创建数据结构
  TNewChrMsg = record
    UID: string[16];     // 账号
    ChrName: string[20]; // 角色名
    Hair: Byte;          // 发型
    Job: Byte;          // 职业
    Sex: Byte;          // 性别
  end;

在 LoginSrv.pas 中处理创建角色请求：

procedure TLoginSrv.ProcessNewChr(
  PlayObject: TPlayObject; 
  DefMsg: pTDefaultMessage;
  Buff: PChar
);
var
  NewChrMsg: TNewChrMsg;
begin
  // 解析创建角色数据
  Move(Buff^, NewChrMsg, SizeOf(TNewChrMsg));
  
  // 验证角色名是否合法
  if not CheckChrName(NewChrMsg.ChrName) then begin
    SendFailMsg(PlayObject, '角色名不合法');
    Exit;  
  end;

  // 创建角色数据
  if CreateNewChr(NewChrMsg) then begin
    // 通知客户端创建成功
    SendCreateSuccess(PlayObject);
  end else begin
    // 通知客户端创建失败
    SendFailMsg(PlayObject, '创建角色失败');
  end;
end;

在 SelGate.pas 中转发创建角色请求：

procedure TSelGate.ProcessClientNewChr(
  Client: TGameClient;
  DefMsg: pTDefaultMessage; 
  Buff: PChar
);
begin
  // 转发创建角色请求到 LoginServer
  SendToLoginServer(Client.Socket, 
    DefMsg.Ident,
    DefMsg.Recog,
    DefMsg.Param,
    DefMsg.Tag,
    DefMsg.Series,
    Buff
  );
end;

主要流程：

客户端填写角色信息并点击创建按钮
客户端调用 SendNewChr() 发送创建请求
SelGate 服务器接收请求并转发给 LoginServer
LoginServer 处理创建请求:
- 验证角色名
- 创建角色数据
- 返回创建结果
结果通过 SelGate 返回给客户端

关键点：

使用 CM_NEWCHR 等消息ID标识不同操作
定义 TNewChrMsg 结构体传输角色数据
SelGate 作为中转服务器转发请求
LoginServer 负责实际的角色创建逻辑
包含角色名验证等安全检查

所以创建角色的核心代码主要分布在这几个文件中，通过消息机制和数据结构实现客户端、SelGate和LoginServer之间的通信。

meinvwudi

您说得对,我之前的分析有误。Mir2确实主要使用DBF(*.db)文件来存储数据。让我重新分析一下代码:

type
  // 角色数据记录结构
  THumInfo = record
    sUserID: string[16];      // 账号
    sCharName: string[20];    // 角色名
    btJob: Byte;              // 职业
    btHair: Byte;             // 发型
    btSex: Byte;              // 性别
    btLevel: Byte;            // 等级
    nGold: Integer;           // 金币
    sHomeMap: string[20];     // 出生地图
    nHomeX: Word;             // 出生X坐标  
    nHomeY: Word;             // 出生Y坐标
    // ... 其他属性
  end;

// 保存角色数据到 HUM.DB
function CreateNewHuman(UserEntry: THumInfo): Boolean;
var
  nIndex: Integer;
  HumDB: TFileDB;
begin
  Result := False;
  try
    // 1. 打开HUM.DB文件
    HumDB := TFileDB.Create(g_Config.sHumDBFilePath, HUM_DB_HEADER);
    try
      // 2. 检查角色名是否已存在
      if HumDB.FindByName(UserEntry.sCharName) >= 0 then begin
        Exit;
      end;

      // 3. 获取新记录索引
      nIndex := HumDB.GetNewIndex;
      if nIndex < 0 then Exit;

      // 4. 写入角色数据
      if HumDB.WriteRecord(nIndex, @UserEntry, SizeOf(THumInfo)) then begin
        Result := True;
      end;

    finally
      HumDB.Free;
    end;

  except
    on E: Exception do begin
      MainOutMessage('[Exception] CreateNewHuman');
      MainOutMessage(E.Message);
    end;
  end;
end;

meinvwudi

HUM.DB - 存储角色基本信息
```
// HUM.DB 文件头
const 
  HUM_DB_HEADER = 'HUM.DB 2.0';  

// 记录结构
type
  THumDBRecord = record
    Header: TRecordHeader;     // 记录头
    HumInfo: THumInfo;         // 角色数据
  end;
```
1. MIR.DB - 存储角色详细信息
```
// MIR.DB 文件头  
const
  MIR_DB_HEADER = 'MIR.DB 2.0';

// 记录结构  
type
  TMirDBRecord = record
    Header: TRecordHeader;     // 记录头
    UseItems: array[0..12] of TUserItem;  // 装备
    BagItems: array[0..39] of TUserItem;  // 背包
    // ... 其他数据
  end;
```
  1. 创建角色时:
```
// 1. 保存基本信息到 HUM.DB
CreateNewHuman(HumInfo);

// 2. 保存详细信息到 MIR.DB  
SaveHumanData(MirInfo);
```
    1. 读取角色时:
```
// 1. 从 HUM.DB 读取基本信息
LoadHuman(sCharName, @HumInfo);

// 2. 从 MIR.DB 读取详细信息
LoadHumanData(sCharName, @MirInfo); 
```
      您说得对,我之前的分析有误。Mir2确实主要使用DBF(*.db)文件来存储数据。让我重新分析一下代码:
```
type
  // 角色数据记录结构
  THumInfo = record
    sUserID: string[16];      // 账号
    sCharName: string[20];    // 角色名
    btJob: Byte;              // 职业
    btHair: Byte;             // 发型
    btSex: Byte;              // 性别
    btLevel: Byte;            // 等级
    nGold: Integer;           // 金币
    sHomeMap: string[20];     // 出生地图
    nHomeX: Word;             // 出生X坐标  
    nHomeY: Word;             // 出生Y坐标
    // ... 其他属性
  end;

// 保存角色数据到 HUM.DB
function CreateNewHuman(UserEntry: THumInfo): Boolean;
var
  nIndex: Integer;
  HumDB: TFileDB;
begin
  Result := False;
  try
    // 1. 打开HUM.DB文件
    HumDB := TFileDB.Create(g_Config.sHumDBFilePath, HUM_DB_HEADER);
    try
      // 2. 检查角色名是否已存在
      if HumDB.FindByName(UserEntry.sCharName) >= 0 then begin
        Exit;
      end;

      // 3. 获取新记录索引
      nIndex := HumDB.GetNewIndex;
      if nIndex < 0 then Exit;

      // 4. 写入角色数据
      if HumDB.WriteRecord(nIndex, @UserEntry, SizeOf(THumInfo)) then begin
        Result := True;
      end;

    finally
      HumDB.Free;
    end;

  except
    on E: Exception do begin
      MainOutMessage('[Exception] CreateNewHuman');
      MainOutMessage(E.Message);
    end;
  end;
end;
```
      数据库文件结构:
      1. HUM.DB - 存储角色基本信息
        // HUM.DB 文件头 const HUM_DB_HEADER = 'HUM.DB 2.0'; // 记录结构 type THumDBRecord = record Header: TRecordHeader; // 记录头 HumInfo: THumInfo; // 角色数据 end;
        
        MIR.DB - 存储角色详细信息
        // MIR.DB 文件头 const MIR_DB_HEADER = 'MIR.DB 2.0'; // 记录结构 type TMirDBRecord = record Header: TRecordHeader; // 记录头 UseItems: array[0..12] of TUserItem; // 装备 BagItems: array[0..39] of TUserItem; // 背包 // ... 其他数据 end;
        主要存储流程:
        
        创建角色时:
        // 1. 保存基本信息到 HUM.DB CreateNewHuman(HumInfo); // 2. 保存详细信息到 MIR.DB SaveHumanData(MirInfo);
        
        读取角色时:
        // 1. 从 HUM.DB 读取基本信息 LoadHuman(sCharName, @HumInfo); // 2. 从 MIR.DB 读取详细信息 LoadHumanData(sCharName, @MirInfo);
        关键特点:
        
        使用自定义DB文件格式
        
        文件头标识
        
        记录索引
        
        记录状态标记
        
        数据组织
        
        HUM.DB 存储基础信息
        
        MIR.DB 存储详细信息
        
        按角色名索引
        
        文件操作
        
        直接读写二进制数据
        
        使用文件锁保证并发安全
        
        支持记录的增删改查
        
        性能考虑
        
        文件缓存机制
        
        索引优化
        
        记录重用
        这种存储方式比SQL数据库更适合游戏服务器:
        更轻量级
        
        读写更快
        
        便于备份
        
        数据结构固定