[传奇技术]GOM引擎传奇角色名称限制2位数参数设置

源码资源网 · 发表于昨天 22:18

GOM引擎传奇角色名称限制2位数参数设置

DBServer 中SelectClient

// 创建新角色
procedure TSelectClient.NewChr(sData: string; UserInfo: pTUserInfo);
var
Data, sAccount, sChrName, sHair, sJob, sSex: string; // 角色相关数据
nCode: Integer; // 返回结果代码
sMsg: string; // 临时消息（未使用）
HumRecord: THumInfo; // 角色信息结构体
I: Integer;
DefMsg: TDefaultMessage; // 默认消息结构体，用于反馈客户端
boNew: Boolean; // 是否成功创建新角色
begin
boNew := False;
nCode := -1; // 默认状态：未定义错误
// 是否允许创建角色
if g_boCanCreateHuman then begin
// 解码数据并依次取出账号、角色名、发型、职业、性别
Data := DecodeString(sData);
Data := GetValidStr3(Data, sAccount, ['/']);
Data := GetValidStr3(Data, sChrName, ['/']);
Data := GetValidStr3(Data, sHair, ['/']);
Data := GetValidStr3(Data, sJob, ['/']);
Data := GetValidStr3(Data, sSex, ['/']);
// 基础检查
if Trim(Data) <> '' then nCode := 0;
sChrName := Trim(sChrName);
if Length(sChrName) < 3 then nCode := 0; // 名字太短
if not CheckDenyChrName(sChrName) then nCode := 2; // 是否在黑名单
if not CheckChrName(sChrName) then nCode := 0; // 是否是合法名字
// 去掉非法字符
for I := Length(sChrName) downto 1 do
if (not (sChrName[I] in TextChars)) then Delete(sChrName, I, 1);
// 检查是否包含敏感字符（过滤）
if CheckFilterNewHumanChrName(sChrName) then nCode := 2;
// 检查特殊符号
if (not g_boDenyChrName) and (nCode = -1) then
for I := 1 to Length(sChrName) do begin
if (sChrName[I] in [' ', '/', '@', '?', '''', '"', '\',
'.', ',', ':', ';', '`', '~', '!',
'#', '
, '%', '^', '&', '*', '(', ')',
'-', '_', '+', '=', '|', '[', '{', ']', '}']) then
begin
nCode := 0; // 包含非法符号
break;
end;
end;
// 检查是否禁止全数字名字
if (nCode = -1) and g_boForbidNumberName and CheckNumberName(sChrName) then
nCode := 6;
// 检查是否禁止全字母名字
if (nCode = -1) and g_boForbidLetterName and CheckLetterName(sChrName) then
nCode := 7;
// ================== 检查数据库中是否已有该名字 ==================
if nCode = -1 then begin
try
g_HumCharDB.Lock;
if g_HumCharDB.Index(sChrName) >= 0 then nCode := 2; // 已存在
finally
g_HumCharDB.UnLock;
end;
try
g_HumDataDB.Lock;
if g_HumDataDB.Index(sChrName) >= 0 then nCode := 2; // 已存在
finally
g_HumDataDB.UnLock;
end;
// ================== 正式写入数据库，创建角色 ==================
if nCode = -1 then begin
try
if g_HumCharDB.Open then begin
// 检查账号下是否超过最大建角数
if g_HumCharDB.ChrCountOfAccount(sAccount) < g_nCreateChrNameCount then begin
FillChar(HumRecord, SizeOf(THumInfo), #0); // 清空结构体
HumRecord.Header.boIsHero := False;
HumRecord.Header.sName := sChrName;
HumRecord.Header.nSelectID := 0;
HumRecord.Header.boDeleted := False;
HumRecord.sChrName := sChrName;
HumRecord.sAccount := sAccount;
HumRecord.boDeleted := False;
HumRecord.boIsHero := False;
HumRecord.btCount := 0;
// 写入角色数据库
if HumRecord.Header.sName <> '' then
if not g_HumCharDB.Add(@HumRecord) then
nCode := 2 // 数据库添加失败
else
boNew := True; // 角色信息写入成功
end else
nCode := 3; // 超过建角数量
end;
finally
g_HumCharDB.Close;
end;
// ================== 新建角色数据 ==================
if (nCode = -1) and boNew then begin
if NewChrData(sChrName, Str_ToInt(sSex, 0), Str_ToInt(sJob, 0), Str_ToInt(sHair, 0)) then
nCode := 1 // 成功
else begin
// 如果建档失败，回滚数据库
if boNew then begin
try
if g_HumCharDB.Open then begin
g_HumCharDB.Delete(sChrName);
end;
finally
g_HumCharDB.Close;
end;
end;
end;
end else begin
// 如果建档失败，删除残留
if boNew then begin
try
if g_HumCharDB.Open then begin
g_HumCharDB.Delete(sChrName);
end;
finally
g_HumCharDB.Close;
end;
end;
nCode := 4; // 创建失败
end;
end;
end;
end else
nCode := 5; // 禁止创建人物
// ================== 返回结果给客户端 ==================
if nCode = 1 then begin
DefMsg := MakeDefaultMsg(SM_NEWCHR_SUCCESS, 0, 0, 0, 0);
end else begin
DefMsg := MakeDefaultMsg(SM_NEWCHR_FAIL, nCode, 0, 0, 0);
end;
SendUserSocket(UserInfo.sConnID, EncodeMessage(DefMsg));
end;

复制代码

		自动登录	找回密码
密码			立即注册

[游戏架设教程] [传奇技术]GOM引擎传奇角色名称限制2位数参数设置

相关帖子