每日物品、货币、充值点免费领取脚本

之前帮主也更新了类似的脚本，但今天这个脚本更强一点，玩家可以每天免费领取每日物品、货币、充值点，脚本是明文版，可以任意修改里面的领取内容，背景图是自动读取当前游戏的背景图。

program mir2;
procedure _LINGQU; 
var today , num: integer;
begin
    today := GetDateNum(GetNow);// 获取当前日期
    if This_Player.GetV(14,1) <> today then     
    begin
       This_Player.SetV(14,1,today);
       This_Player.SetV(14,2,0);
    end;
      num := This_Player.GetV(14,2);  //获取已领取次数，**取值时切记写在初始化之后
    if num <1 then
    begin
        This_Player.SetV(88,88,This_Player.GetV(88,88)+1000);
		This_Player.SetV(99,99,This_Player.GetV(99,99)+1000);	 
        This_Player.GiveBindItem('魔龙牙',100);
		This_Player.GiveBindItem('时装神石',100);
		This_Player.GiveBindItem('魂骨',100);
		This_Player.GiveBindItem('合成晶石',500);
		 This_Player.ScriptRequestAddYBNum(5000000);
		 This_Player.AddLF(0,1000000);			
        This_Player.SetV(14,2, num + 1); //领取变量每领取一次加一
        This_Player.PlayerDialog(
        '<领取成功！/c=red>'
        );
    end else
   This_Player.PlayerDialog(
      '<你今天已经领取过了/c=red>'
      );
end;  
begin
 This_Npc.NpcDialog(This_Player,
   '|<【每日奖励】:/c=251>  \'+
   '|<魂骨：100/c=25>  \'+
   '|<魔龙牙：100/c=25>  \'+
   '|<时装神石：100/c=25>  \'+
   '|<合成晶石：500/c=25>  \'+
   '|<元宝：500万/c=25>  \'+
   '|<灵符：100万/c=25>  \'+
   '|<累计充值：1000元/c=25>  \'+
   '|<每日充值：1000元/c=25>  \'+
 '|{cmd}<领取/@LINGQU>\'
   );
end.