战神引擎激活码领取元宝自定义Npc脚本

用于战神引擎玩家使用激活码领取对应充值的Npc脚本，脚本从高爆冰雪提取出来的，版本使用了裤衩插件，帮主在提取的时候，看了一下NPC上自定义调用的素材，发现做了二次加密，故而没有提取素材，只有脚本，只有教程。该脚本适合有一定的脚本修改技术使用，纯小白无法安装成功。

战神引擎激活码领取元宝自定义Npc脚本

使用建议

1、GM自己到高爆冰雪解压rs.zip，把牵扯到的素材单独提取出来。

2、换成传统版或者自己添加新的自定义素材。

部分脚本

program Mir2;
var 
sum:Integer;
today:Integer;
num:Integer; 
sum1:Integer;  
sum2:Integer;
sum3:Integer;
sum4:Integer;
sum5:Integer;
sum6:Integer;
sum7:Integer; 
sum8:Integer;  
procedure BJMFH;
var fh0,fh1, fh2, fh3, fh4, fh5, fh6, hairid: integer;
begin
	fh0	 := This_Player.GetV(69,1);		//1号位
	fh1  := This_Player.GetV(69,2);		//2号位
	fh2  := This_Player.GetV(69,3);		//3号位
	fh3  := This_Player.GetV(69,4);		//4号位
	if fh0 < 0 then fh0 := 0;
	if fh1 < 0 then fh1 := 0;
	if fh2 < 0 then fh2 := 0;
	if fh3 < 0 then fh3 := 0;
	This_Player.StrParam := '1|kc:'+inttostr(fh0)+':'+inttostr(fh1)+':'+inttostr(fh2)+':'+inttostr(fh3);
end;
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
Procedure _10YB;
begin
   This_Npc.InputDialog(This_Player,'请输入10元充值卡密：', 0 , 200);
end;
Procedure P200;
var
L : string;
str : string;
   begin
       L := This_Npc.InputStr;
       If This_Npc.Inputok then  
        begin  
         if This_Npc.ChkStrInFile('10YB.txt', This_Npc.InputStr) = true  then  //检测卡密      
          begin
            This_Player.ScriptRequestAddYBNum(110000); 
			 This_Player.setv(99,99,This_Player.getv(99,99)+10);
		       str := '增加'+ '110000元宝!';
           This_Npc.DelStrFromFile('10YB.txt', This_Npc.InputStr); //删除卡密 
		   This_Npc.AddStrToFile('10JL.txt', This_Player.Name);
           end else
           This_NPC.NpcDialog(This_Player,'你输入的卡密无效'); 
        end;
   end;  
Procedure _50YB;
begin
   This_Npc.InputDialog(This_Player,'请输入50元充值卡密：', 0 , 201);
end;
Procedure P201;
var
L : string;
str : string;
   begin
       L := This_Npc.InputStr;
       If This_Npc.Inputok then  
        begin  
         if This_Npc.ChkStrInFile('50YB.txt', This_Npc.InputStr) = true  then  //检测卡密      
          begin
            This_Player.ScriptRequestAddYBNum(600000); 
			This_Player.setv(99,99,This_Player.getv(99,99)+50);
		       str := '增加'+ '600000元宝!';
           This_Npc.DelStrFromFile('50YB.txt', This_Npc.InputStr); //删除卡密
           This_Npc.AddStrToFile('50JL.txt', This_Player.Name);		   
           end else
           This_NPC.NpcDialog(This_Player,'你输入的卡密无效'); 
        end;
   end;  
Procedure _100YB;
begin
   This_Npc.InputDialog(This_Player,'请输入100元充值卡密：', 0 , 202);
end;
Procedure P202;
var
L : string;
str : string;
   begin
       L := This_Npc.InputStr;
       If This_Npc.Inputok then  
        begin  
		 if (This_Player.Getv(29,59) =1) and (StrToInt(This_Npc.InputStr) < 99999) then begin  This_NPC.NpcDialog(This_Player,'路费卡密只能领取一次');  exit  end;
         if This_Npc.ChkStrInFile('100YB.txt', This_Npc.InputStr) = true  then  //检测卡密      
          begin
			if StrToInt(This_Npc.InputStr) < 99999  then begin  This_Player.setv(29,59,1);  end ;
            This_Player.ScriptRequestAddYBNum(1200000); 
			This_Player.setv(99,99,This_Player.getv(99,99)+100);
		       str := '增加'+ '1200000元宝!';
           This_Npc.DelStrFromFile('100YB.txt', This_Npc.InputStr); //删除卡密 
		   This_Npc.AddStrToFile('100JL.txt', This_Player.Name);
           end else
           This_NPC.NpcDialog(This_Player,'你输入的卡密无效'); 
        end;
   end;  
Procedure _200YB;

分享到：

赞(0)