战神引擎每日祈福/膜拜祈福得经验Npc脚本

用于战神引擎每日祈福/膜拜祈福得经验Npc脚本，玩家每天可以在上面经行祈福获得经验，脚本默认支持三种祈福方式，每日是完全免费的，千次和超级都需要元宝，当然获得经验也就更多，脚本是明文版的，可以任意修改里面的经验数字和元宝数量。

部分脚本

procedure _qf3; 
var today , num: integer;
begin
    today := GetDateNum(GetNow);// 获取当前日期
    if This_Player.GetV(23,1) <> today then     
    begin
       This_Player.SetV(23,1,today);
       This_Player.SetV(23,2,0);
    end;
             //初始化变量值，每天首次触发，将领取变量设置为0
    num := This_Player.GetV(23,2);  //获取已领取次数，**取值时切记写在初始化之后
   if This_Player.YBNum >= 100 then 
   begin
    if num < 3 then
    begin
	    This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,100,1);
        This_Player.Give('经验',20000000);
	    ServerSay('恭喜“' + This_Player.Name + ' 在祈福雕像前静心焚香进行了超级祈福.获得了2000W经验！',3)		
        This_Player.SetV(23,2, num + 1); //领取变量每领取一次加一
        This_NPC.NpcDialog(This_Player,
        '恭喜你获得了2000W经验！'
        +'|{cmd}<继续超级祈福/@qf3>');
    end else
    This_NPC.NpcDialog(This_Player,'你今天已进行了三次祈福')
    end else
    This_NPC.NpcDialog(This_Player,'你的元宝不足');
end; 
procedure _qf4;
     begin
   if This_Player.MyLFnum >= 100 then 
  begin
  This_Player.Give('经验',5000000);
  This_Player.DecLF(0, 100, false);
  end
    else
    This_Npc.NpcDialog(This_Player,
    '对不起，你没有足够的灵符！'
    );
end;
begin//主函数入口
    This_NPC.NpcDialog(This_Player,
	 '<祈福/c=red> '+'每日可以在祈福雕像祈福3次！\|'	
	+'<祈福/c=red> '+'每次祈福均可获得经验\|'
	+'<祈福/c=red> '+'每日祈福每次可获得500W经验\|'
    +'<祈福/c=red> '+'虔诚祈福每次可获得1000W经验\|'		
	+'<祈福/c=red> '+'超级祈福每次可获得2000W经验\|'
	//+'<祈福/c=red> '+'灵符祈福可获得500W经验\|'
	+'<祈福/c=red> '+'虔诚祈福需50元宝.超级祈福100元宝\|'	
	+'<祈福/c=red> '+'每人每天只可以祈福3次\|'
 //   +'<祈福/c=red> '+'灵符祈福每次需要100灵符.不受次数限制\|'	
   +'|{cmd}<进行每日祈福/@qf1> ^<进行虔诚祈福/@qf2> '
   +'|{cmd}<进行超级祈福/@qf3>   '//^ <进行灵符祈福/@qf4> '	
	);
end.

分享到：

赞(0)