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

用于战神引擎手游版本里面的新手上线激活角色Npc脚本,新手玩家上线以后,出生在指定的地图,然后需要验证信用分和激活角色才能出去,你们在添加的时候,记得限制一下回车按钮功能。脚本牵扯到的文件在one1文件夹内,里面的推广二码就是写激活码的文件,你们把里面的123456换成自己要的数字,记得是数字,然后保存,就行了。

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

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

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

 

部分脚本

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)