战神引擎每日免费领取3次经验手游脚本

china0396

{

*******************************************************************}

Program Mir2;

Procedure _doexit;
- o' Z# L- m+ Q1 k5 @' t# B$ d
begin

2 l: I! y  l5 i2 a   This_NPC.CloseDialog(This_Player);
- p0 N4 t- c  y" u" J+ E3 O2 j, A; q
' b% l( c9 w* C) o# n+ O# send;

//==============================================================新手任务

procedure _GetFreeExp;
$ M. ^* z; f1 P4 ]
var today , num: integer;

begin

    today := GetDateNum(GetNow);// 获取当前日期

    if This_Player.GetV(13,1) <> today then     
& u% s; D2 _# T+ C# I$ ~- }% O# t
    begin
7 ]) o! i5 i7 k+ B8 x5 R+ B
) K  s5 I  s( e3 p$ D3 @  `8 p       This_Player.SetV(13,1,today);

& C$ t& C9 V7 I. \       This_Player.SetV(13,2,0);
1 E* L+ f5 }5 L7 @
    end;
# H. [# X4 b" Q  B
+ a; f0 ^7 b1 z& J7 _4 M' e             //初始化变量值，每天首次触发，将领取变量设置为0



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

    if num < 3 then

; ^1 j0 ~! b; \/ }, m9 B8 Q    begin

        This_Player.Give('经验',1000000);

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

        This_NPC.NpcDialog(This_Player,

  N# F0 \: E& f% e        '恭喜你获得100万点经验值'

        +'|{cmd}<继续领取经验 getfreeexp="">');



    end else

    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
% n1 ^- H1 a! j
8 E1 ]9 d- R% [; ?end;



begin//主函数入口
0 ?- K8 m- n% e
  T- I7 A/ A3 y    This_NPC.NpcDialog(This_Player,

    '玩家每天可免费领取3次经验，每次可领取100万'

0 d$ E4 i0 F2 V    +'|{cmd}<免费经验领取 getfreeexp="">');

; D+ D0 `1 F  m3 P# Iend.
, S) w; C5 `& t) |5 ^
/ Y6 ~5 s( ~; w) N# p