新手上线激活角色Npc脚本(战神引擎手游专用)

用于战神引擎手游版本里面的新手上线激活角色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.

分享到：

赞(0)