用于战神引擎手游版本里面的新手上线激活角色Npc脚本，新手玩家上线以后，出生在指定的地图，然后需要验证信用分和激活角色才能出去，你们在添加的时候，记得限制一下回车按钮功能。脚本牵扯到的文件在one1文件夹内，里面的推广二码就是写激活码的文件，你们把里面的123456换成自己要的数字，记得是数字，然后保存，就行了。
部分脚本
program Mir2;
var
num :integer;
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
{$I ActiveValidateCom.pas}
procedure _jihuo;
begin
This_NPC.InputDialog(This_Player,'请输入激活码',0,1234) ;
procedure p1234;
begin
num := StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1
if This_NPC.InputOK then
begin
if (num < 99999) or (num > 999998) then
begin
This_NPC.NpcDialog(This_Player,'激活码格式错误，检查是否为6位数字!') ;
end
else if (num >= 100000) and (num < 999999) then
begin
if This_Npc.ChkStrInFile('\one1\角色码.txt', This_NPC.InputStr) = false then //检测文档是否有该推广码
begin
This_Player.CallOut(This_NPC,1,'jxyb1');
end
else
This_NPC.NpcDialog(This_Player,'你已经领取过了!' ) ;
end
else
This_NPC.NpcDialog(This_Player,'激活码错误，请加QQ群领取激活码!') ;
end;
end;
end;
begin
if This_Npc.ChkStrInFile('\one1\角色码.txt', This_NPC.InputStr) = false then //防刷，再次检测文档是否有该推广码
begin
This_Npc.DelStrFromFile('\one1\角色码.txt', This_NPC.InputStr); //删除推广码后给予奖励
This_Player.SetV(60,15,1);
This_NPC.NpcDialog(This_Player,
'恭喜：你已经激活了，可以闯荡夜雨传奇了！' );
end
else
This_NPC.NpcDialog(This_Player,'激活码有误,请重新输入。');
end
else
This_NPC.NpcDialog(This_Player,'背包请留出10个空格');
end;
Procedure _letgo;
begin
'你还没激活角色，请联系GM!' );
end;
begin
This_Npc.NpcDialog(This_Player,
+'| <夜雨沉默纯公益/c=red> \'
+'|<所有装备都可以打出来，只要你够肝！/SCOLOR=250>\'
+'|一一一一一一一一一一一一一一一一一一一一\'
+'|<1:激活角色/SCOLOR=254> <---QQ群9068150/SCOLOR=250>\'
+'|一一一一一一一一一一一一一一一一一一一一\'
+'|< 游戏提示：点击下方血球-可以设置更多内容。/SCOLOR=253>\'
+'|< 游戏提示：点击设置-显示，可以设置视野距离！。/SCOLOR=253>\'
+'|<请先激活角色，再传送新手训练营/SCOLOR=249>'
+'|<↓↓请点击信用验证，否则出现问题不负责↓↓/SCOLOR=70>'
+'|{cmd}<传送新手训练营【没验证的，请点击下方验证】/@letgo> \'
+'|{cmd}<激活角色【联系GM获取免费激活码】/@jihuo> \'
+ActiveValidateStr
);
end.