战神引擎每日签到领取物品脚本(24小时内)

战神引擎每日签到领取物品脚本，领取的物品可以任意修改，每24小时免费领取一次。

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;

             //初始化变量值，每天首次触发，将领取变量设置为0

      num := This_Player.GetV(14,2);  //获取已领取次数，**取值时切记写在初始化之后

    if num<1 then

    begin

        This_Player.Give('三碗不过岗',3);

        This_Player.SetV(14,2, num + 1); //领取变量每领取一次加一

        This_Player.PlayerDialog(

        '<恭喜你获得:三碗不过岗3个 c="red">'

        );

    end else

   This_Player.PlayerDialog(

      '<你今天已领取了每日签到奖励 c="red">'

      );

end;  

begin

 This_Npc.NpcDialog(This_Player,

   '|<【每日签到】: c="251">三碗不过岗3个\'+

 '|{cmd}<每日签到 lingqu="">\'

   );

end.