战神引擎输入激活码领取元宝Npc脚本

用于战神引擎的输入激活码领取元宝Npc脚本，玩家不需要通过充值平台充值后才能领取元宝，而是通过输入对应的领取码获得元宝，一个激活码只能使用一次，无法重复领取，脚本默认有八种金额对应的元宝，明文版，可以任意修改里面的金额和比例还有领取码。

战神引擎输入激活码领取元宝Npc脚本

部分脚本

Procedure P204;
var
L : string;
str : string;
   begin
       L := This_Npc.InputStr;
       If This_Npc.Inputok then  
        begin  
         if This_Npc.ChkStrInFile('500YB.txt', This_Npc.InputStr) = true  then  //检测卡密      
          begin
            This_Player.ScriptRequestAddYBNum(250000); 
		       str := '增加'+ '250000元宝!';
			     This_Player.AddLF(0,500);
           This_Npc.DelStrFromFile('500YB.txt', This_Npc.InputStr); //删除卡密 
           This_Npc.AddStrToFile('500JL.txt', This_Player.Name);
           end else
           This_NPC.NpcDialog(This_Player,'你输入的卡密无效'); 
        end;
   end; 
Procedure _1000YB;
begin
   This_Npc.InputDialog(This_Player,'请输入卡密：', 0 , 205);
end;
Procedure P205;
var
L : string;
str : string;
   begin
       L := This_Npc.InputStr;
       If This_Npc.Inputok then  
        begin  
         if This_Npc.ChkStrInFile('1000YB.txt', This_Npc.InputStr) = true  then  //检测卡密      
          begin
            This_Player.ScriptRequestAddYBNum(500000); 
		       str := '增加'+ '500000元宝!';
			     This_Player.AddLF(0,1000);
           This_Npc.DelStrFromFile('1000YB.txt', This_Npc.InputStr); //删除卡密 
           This_Npc.AddStrToFile('1000JL.txt', This_Player.Name);
           end else
           This_NPC.NpcDialog(This_Player,'你输入的卡密无效'); 
        end;
   end; 
   Procedure _2000YB;
begin
   This_Npc.InputDialog(This_Player,'请输入卡密：', 0 , 206);
end;
Procedure P206;
var
L : string;
str : string;
   begin
       L := This_Npc.InputStr;
       If This_Npc.Inputok then  
        begin  
         if This_Npc.ChkStrInFile('2000YB.txt', This_Npc.InputStr) = true  then  //检测卡密      
          begin
            This_Player.ScriptRequestAddYBNum(1000000); 
		       str := '增加'+ '1000000元宝!';
			     This_Player.AddLF(0,2000);
           This_Npc.DelStrFromFile('2000YB.txt', This_Npc.InputStr); //删除卡密 
           This_Npc.AddStrToFile('2000JL.txt', This_Player.Name);
           end else
           This_NPC.NpcDialog(This_Player,'你输入的卡密无效'); 
        end;
   end; 
   Procedure _5000YB;
begin
   This_Npc.InputDialog(This_Player,'请输入卡密：', 0 , 207);
end;
Procedure P207;
var
L : string;
str : string;
   begin
       L := This_Npc.InputStr;
       If This_Npc.Inputok then  
        begin  
         if This_Npc.ChkStrInFile('5000YB.txt', This_Npc.InputStr) = true  then  //检测卡密      
          begin
            This_Player.ScriptRequestAddYBNum(2500000); 
		       str := '增加'+ '2500000元宝!';
			     This_Player.AddLF(0,5000);
           This_Npc.DelStrFromFile('5000YB.txt', This_Npc.InputStr); //删除卡密 
           This_Npc.AddStrToFile('5000JL.txt', This_Player.Name);
           end else
           This_NPC.NpcDialog(This_Player,'你输入的卡密无效'); 
        end;
   end; 
Procedure _chongzhiYB;
begin
   This_Npc.NpcDialog(This_Player, 
   '|{cmd}<领取10元/@10YB> \'+
   '|{cmd}<领取50元/@50YB>>^<领取100元/@100YB>\'+
   '|{cmd}<领取200元/@200YB>^<领取500元/@500YB>  \'+
   '|{cmd}<领取1000元/@1000YB>^<领取2000元/@2000YB>  \'+
   '|{cmd}<领取5000元/@5000YB> \'+
   '|{cmd}<离开/@doexit>' );
end;
begin    
  This_Npc.NpcDialog(This_Player,
   '|　　　　　　　　　　　　　　　　　　　　　\'+
   '|为了本服的长期发展,感谢您的充值赞助\'+
   '|<【充值比例】:/c=red>1元=500元宝\'+
   '|<　　　　　　　　　　　　　　　　　　　　/c=red>\'+
   '|<请选择你充值的元宝金额。/c=red>\'+
  '为了防止乱输入，输错超过三次将被暂时冻结充值服务\ \'+
  '|{cmd}<领取充值元宝/@chongzhiYB>                      \ \' 
  );
end.

分享到：

赞(0)