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

china0396

{
' `' w( V1 L! H9 G9 a; [1 }
*******************************************************************}

: [" w; _& C9 f$ H! \, c* EProgram Mir2;
0 {/ X3 ?, w7 v
0 v( H# G/ L. t, EProcedure _doexit;

/ [% w& f" Q& Vbegin
/ i/ W! c7 ?4 @
9 N  `5 }2 I$ f6 M! |   This_NPC.CloseDialog(This_Player);

) G3 I5 Z) p/ {: g- pend;

1 p' O; h0 a0 l! ^% |//==============================================================新手任务

" W; ~! d% G# ]* v* ?9 v! `5 g% p) {8 kprocedure _GetFreeExp;
. p, k; F; a! |6 v5 b
var today , num: integer;
+ j, [2 }5 e: ]7 L8 D( H" O# M6 K
! D7 R1 s: R4 x4 I& Wbegin

    today := GetDateNum(GetNow);// 获取当前日期
2 }+ r2 `% z  w: t& @1 R2 H. p4 z
    if This_Player.GetV(13,1) <> today then     
# y( \0 F/ b6 g2 P7 t: J
    begin

) G1 v  i" X# d: c  ^1 @3 ^0 R       This_Player.SetV(13,1,today);
, Y4 R, x, f+ p
       This_Player.SetV(13,2,0);
6 ?, V' R0 ~- Z/ L* s
' D& b* A  c2 O5 |0 B$ Z0 j    end;

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

. ?; Q' d( W1 F  T1 ~# ]

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

    if num < 3 then

9 w: P9 Z" I4 x: C- P$ e0 X9 e    begin

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

1 z( P1 J% \$ N+ ]3 V6 K        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一

. @: ]0 _9 D7 H4 y" U        This_NPC.NpcDialog(This_Player,

        '恭喜你获得100万点经验值'

. f5 M" t8 C% Z6 B- F6 t# l1 E        +'|{cmd}<继续领取经验 getfreeexp="">');
3 N8 u1 g) o; o, g


    end else

; x" u" {5 M9 T; A1 S0 X    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
: H8 b1 c0 H* s
* Z! E6 q/ [+ e; x5 \2 @% Eend;
$ z* n- ]8 r7 D3 J! q
$ n4 c8 u' w3 E4 P; |
5 A4 o$ ~5 o2 z7 S$ e7 t
begin//主函数入口

$ ?/ y" B) y' Z  V- N, X$ S+ @    This_NPC.NpcDialog(This_Player,

4 u) e& d, K6 ~% a1 R) j3 a! ]- h    '玩家每天可免费领取3次经验，每次可领取100万'
& B/ `& i/ s9 P- ^/ z( @
; q$ J6 D, Q8 Z: w+ t* v7 ?! X6 q) u/ F    +'|{cmd}<免费经验领取 getfreeexp="">');
- E% {, Q; a, g" A5 u. ^
  E2 g4 V& Y" \/ C9 iend.
. ~7 Y; T. g  W7 V  z2 c