DBC2000 通区检测重名 + 自动改名脚本制作教程

检测内容分两个部分一个新登录时名字没有其他人使用,就记录下来名字账号和所有在区服正常游戏,二是检测到有相同名字后且不是相同区服和相同ID时,就要弹出改名NPC改名后正常游戏
如果引擎没有使用通用数据库作为账号数据而是使用DBC2000这个脚本就可以用。
. }8 g! U8 t# k. [# |如果引擎使用通用数据库如MSSQL MYSQL等S/C模式的数据库可以让其他IP存取数据就不需要这个脚本。
. }4 c: q% Q" |" F0 c这个脚本原本不需要但是某些引擎在合区时发现无限制仓库在遇到两个相同名字时会丢失一个角色的仓库数据
这个脚本可以在玩家登录后检测名字是否与其他区的玩家重复
然后改名来确保无限制仓库在合区时不出现BUG。如果引擎没这个问题这个脚本无意义。


[@名称检测]
{
9 d0 @/ w' n; v: K8 ?- S#IF
( _! _% ~+ |2 w% `- }NOT checknamelist ..\..\..\同名检测\游戏名称表.txt
#ACT;
! J8 f& t& P" `6 z" d( gaddnamelist ..\..\..\同名检测\游戏名称表.txt
2 j2 m: R4 y3 {8 q6 }- K& kAddTextListEx ..\..\..\同名检测\游戏ID号.txt <$USERNAME>:<$USERID>:<$SERVERNAME>:X
BREAK


, B# i! j" w; q% @3 a- t/ F#IF
; h2 t9 b, A/ w3 ?3 G! Z7 kchecknamelist ..\..\..\同名检测\游戏名称表.txt
9 J3 F8 B, |1 U& ~#ACT
% l: m$ m: ^# p8 o/ O5 ]MOV S90 <$USERNAME>:<$USERID>:<$SERVERNAME>:X
6 R( l8 K1 t0 F6 j% o! j8 H

" n3 \9 ~1 k0 _( ^2 t6 Y$ L#IF
checknamelist ..\..\..\同名检测\游戏名称表.txt
" F) b4 Z* h( N" _/ C* i* _7 v. P0 zNOT CheckTextList ..\..\..\同名检测\游戏ID号.txt <$STR(S90)>
#ACT
! P7 t4 ~* X2 c+ \% Z;这里加锁定脚本，可以限制玩家移动来强制玩家改名============
( V5 V: w0 w8 n7 u' u- b0 t#SAY
< >\   \
游戏中名字应该是唯一，你的名字已经有人使用了<！！！！>\  \
8 z' I+ I" _1 Y- L0 F<输入修改名字/@@InPutString6>\\


[@InPutString6]
#IF
NOT CheckTextList  ..\..\..\同名检测\游戏名称表.txt <$STR(S6)>
0 h6 a& Y( d6 |  {& r+ R% C#ACT
. i7 M  ~+ z7 A/ ]6 m;角色名称<$username>修改为<$str(s6)>
CHANGEHUMNAME <$username> <$str(s6)>
3 N' t6 V* u  g5 d  g8 qaddnamelist ..\..\..\同名检测\游戏名称表.txt
4 c- c9 M2 C0 z: A& PAddTextListEx ..\..\..\同名检测\游戏ID号.txt <$USERNAME>:<$USERID>:<$SERVERNAME>:X
;添加解除锁定脚本，玩家正常游戏==============
' J: j: A) \, t# t. n3 m( BBREAK
8 l, i3 o1 x; t, Z4 g; f

, r; j, P+ r' O( t+ v& k, B#IF
& A% h2 Y; Y4 g0 R/ n# N! oCheckTextList  ..\..\..\同名检测\游戏名称表.txt <$STR(S6)>
#SAY
0 {$ P5 S  S% g, s\  \
【<$str(s6)>】已经被人使用了！！！！！\  \
. M' d2 H/ L* Z; W$ X9 ?$ i3 D9 o<重新输入新名字/@@InPutString6>\\
" d" t0 \5 U; K- w5 }% E- e! S

$ s$ ]1 ~, J4 L[@ChangeHumNameOK]
% D) S% b3 N: @. ?7 q5 |* O2 Q#act
SENDMSG 0 【名字修改成功】
CLOSE
( ~+ {1 y! q( S0 f) j1 R* U;CLOSE可以关闭NPC
[@ChangeHumNameFail]
#act
SENDMSG 0 名字修改失败
}

0 b3 Y9 K2 W* K4 \9 |
: q8 p, x8 X7 s3 }* _% ?: S  Q0 [===改为单文件检测==================================
+ g/ m! B" G5 a/ j; j( p[@名称检测]
{
#IF
NOT CheckTextList ..\..\..\同名检测\游戏ID号.txt <$USERNAME>
8 y' M1 a1 d! m- c, F#ACT
' m! e1 M  {& J  m3 J2 U2 `AddTextListEx ..\..\..\同名检测\游戏ID号.txt <$USERNAME>:<$USERID>:<$SERVERNAME>:X
9 b3 d9 k. o6 S1 |) x1 b9 N5 O' T6 _BREAK


#IF
;检测到有这个名字，但不是在同个服务区和ID时，要改名。如果有相同ID和区，就正常游戏
3 N, _# P/ u9 d- F  x2 S  |CheckTextList ..\..\..\同名检测\游戏ID号.txt <$USERNAME>
2 a- Z/ a! l1 f. |) ?NOT CheckTextList ..\..\..\同名检测\游戏ID号.txt <$USERNAME>:<$USERID>:<$SERVERNAME>:X
#ACT
;这里加锁定脚本，可以限制玩家移动来强制玩家改名============
1 s. @- Y# A2 E! M9 U#SAY
8 M2 F4 ?0 A9 e7 R* N< >\   \
9 o) p, O2 x, p, @& {游戏中名字应该是唯一，你的名字已经有人使用了<！！！！>\  \
<输入修改名字/@@InPutString6>\\


[@InPutString6]
4 n0 d7 h0 ^- X$ [6 m2 E#IF
NOT CheckTextList  ..\..\..\同名检测\游戏ID号.txt <$STR(S6)>
1 z( s$ X5 ?7 R#ACT
; ^* d- E1 J2 R3 C4 B) k* L8 g;角色名称<$username>修改为<$str(s6)>
CHANGEHUMNAME <$username> <$str(s6)>
AddTextListEx ..\..\..\同名检测\游戏ID号.txt <$USERNAME>:<$USERID>:<$SERVERNAME>:X
. Q* |: q2 \" O$ W;添加解除锁定脚本，玩家正常游戏==============
( n0 A, ^+ t' X! {) `BREAK

. z) U/ U1 f0 f9 g9 p
/ G: s+ `  O: }% t#IF
CheckTextList  ..\..\..\同名检测\游戏名称表.txt <$STR(S6)>
3 M4 u/ @8 S4 ~; u. G#SAY
/ a4 j9 N; e8 l, ^0 E* N2 B\  \
【<$str(s6)>】已经被人使用了！！！！！\  \
* ?" \' X1 E* }- c$ e6 p- ]; E<重新输入新名字/@@InPutString6>\\
$ V: H, w. B4 X' r* T- j5 c
. J- ~4 l: a; A# s$ N2 M3 `0 P- ~
% H7 B" F/ G" S, M* V[@ChangeHumNameOK]
( r7 [5 k; T3 ?1 Z+ q& {7 S* p#act
SENDMSG 0 【名字修改成功】
" Z8 v; V( K  MCLOSE
5 _# T) h0 [0 A. b8 H, s+ l;CLOSE可以关闭NPC
3 F( z0 w- @4 `$ l/ U2 g" }/ [[@ChangeHumNameFail]
# x* b, W) R$ d2 q6 C  s  x6 e#act
0 g- P1 |; V) j. M; {) ?8 L" `8 MSENDMSG 0 名字修改失败
" n, j) L) y0 T8 s}
/ H; }1 i- e6 v+ v" \6 l% a
' U8 C+ L0 M; F  r* q& m