每日福利Npc脚本(可免费领取和元宝领取)

用于战神引擎的每日福利Npc脚本，在之前测试的许多版本里面，这种每日福利非常的常见，但也非常的简单，都是无条件每天领取一次，所有玩家都没有无条件领取，但今天更新的这个每日福利Npc脚本有了一些功能方面的加强，所以把脚本提取出来分享给大家，脚本有3个特点。

1、领取的等级必须要大于42级

2、免费领取

3、消费30元宝领取

因为脚本是明文版的，可以任意修改里面的领取内容和领取等级等条件，但你们在修改物品的时候，先要确定数据库里面存在，然后测试可以正常使用的才行，领取的物品最好是绑定的，仿制被N个小号刷福利。

部分脚本

program Mir2;
var
today: integer; 
mrfl: string;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure _mianfei;          //领取   
begin  
      if This_Player.Level >= 42 then			   
      begin	
	  if This_Player.getV(19,4) <= 0 then     
      begin                              
         This_Player.Give('经验',500000);	 
         This_Player.setV(19,4,10) ;    
		ServerSay('恭喜玩家['+This_Player.Name+']领取了[每日免费福利]！', 2);			 
         This_NPC.NpcDialog(This_Player,
         '<领取成功：获得 50W 经验!/fcolor=250>|\'+
         '|                                                         <返回首页/@main>'); 		 	 
      end else
      begin
         This_NPC.NpcDialog(This_Player,
          '<领取失败：你已经领取了每日福利!>|\'+
          '|                                                         <返回首页/@main>');
	  end;   
      end else
      begin
         This_NPC.NpcDialog(This_Player,
          '<领取失败：你的等级不足 42 级!>|\'+
          '|                                                         <返回首页/@main>');		  
end;
end; 
procedure _yuanbao;          //领取   
begin  
      if This_Player.Level >= 42 then			     
         This_Player.Give('六倍卷轴',1);	
         This_Player.ScriptRequestSubYBNum(30);		 
         This_Player.setV(19,4,10) ;    
		ServerSay('恭喜玩家['+This_Player.Name+']领取了[每日元宝福利]！', 2);			 
         This_NPC.NpcDialog(This_Player,
         '<领取成功：/fcolor=250>|\'+
         '<1：获得 500W 经验!/fcolor=250>|\'+
         '<2：6倍经验卷轴(2小时)  *  1!/fcolor=250>\'+		 
         '|                                                         <返回首页/@main>'); 		 	 
      end else
      begin
         This_NPC.NpcDialog(This_Player,
          '<领取失败：你元宝不足 30 颗！>|\'+
          '|                                                         <返回首页/@main>');
      end;
      end else
      begin
         This_NPC.NpcDialog(This_Player,
          '<领取失败：你已经领取了每日福利!>|\'+
          '|                                                         <返回首页/@main>');		  
	  end;   
      end else
      begin
         This_NPC.NpcDialog(This_Player,
          '<领取失败：你的等级不足 42 级!>|\'+
          '|                                                         <返回首页/@main>');		  
end;
end;
Procedure domain;
 begin    
  if This_Player.getV(19,4) <= 0 then  
  begin
   begin
	 This_NPC.NpcDialog(This_Player,
	'<★★★★★/fcolor=250><【><全民每日福利/fcolor=254><】><★★★★★/fcolor=250>\'+	
    +'|<─────────────────────>\' 		
    +'|<免费领取福利/fcolor=254>：              \'
    +'|<1.   50W   经验/fcolor=243>                            <免费领取福利/@mianfei> \'
    +'|<─────────────────────>\'  	
    +'|<元宝领取福利/fcolor=254>：                             需 30 元宝\'
    +'|<1.   500W  经验 /fcolor=243>    \'
    +'|<2. 六倍经验卷轴(2小时)  *  1 /fcolor=243>   <元宝领取福利/@yuanbao>  \'
    +'|<─────────────────────>\' 	
    +'|<当前您的福利：/fcolor=254>      '+mrfl +'  |\' 	
    +'|注：<42级>以上玩家每日可领取 <福利> <二选一/fcolor=250>|\'	
//	+'|{cmd}      <免费领取福利/@lq10>   ^       <元宝领取福利/@lq30>\'
);
end;	  
end;
end;
Begin     
today := GetDateNum(GetNow);// 获取当前日期        //
  if This_Player.GetV(99,4) <> today then     
   begin  
   This_Player.setV(99,4,today);
   This_Player.SetV(19,4,0);  //获取 日期  每日 重置自己的领取 次数 不充值 无法领取                    
     end;       
   domain;
end.

分享到：

赞(0)