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

china0396

{
% q- k$ D5 {1 r/ N
*******************************************************************}

3 R- k/ {  N- n( Y# `$ c2 v, HProgram Mir2;

+ \( u* V+ ?+ tProcedure _doexit;

begin

; v* O  i7 |' e) J5 @! v) @   This_NPC.CloseDialog(This_Player);

+ z; {8 d3 ]# eend;
' ~! @4 e  l' Q( g6 d& [$ F5 g/ Z5 Z
2 L% K0 _' p/ [* r+ `//==============================================================新手任务

: T3 u( f7 Y2 f! Bprocedure _GetFreeExp;
9 n' f6 k: Y) Q3 V. C  X2 g
0 \' o; ]6 [: c5 Dvar today , num: integer;
3 t+ ^. D0 e/ |( V, Z2 N: }
& r  y" r# `2 r2 D, d4 Ubegin

9 E4 t9 K1 v' o5 q7 p% J+ d    today := GetDateNum(GetNow);// 获取当前日期

& R! T$ z# G! c& w6 q% u- A    if This_Player.GetV(13,1) <> today then     

    begin
$ |5 Q# U9 a' c2 }  ~
       This_Player.SetV(13,1,today);
5 B/ K. R0 P  x- {0 n) t. o) \& R
6 m. f" s; n9 {3 ]1 ?# x5 j8 q( j/ Q/ N       This_Player.SetV(13,2,0);

( o/ R* l6 \+ y3 m, k4 {% i3 w    end;

8 \3 Z8 B1 U9 ^4 A& n8 `: B/ P             //初始化变量值，每天首次触发，将领取变量设置为0
( S  V/ k. \5 t% G( z" i
( {0 C! \- A% |& @' ~: }

# L$ Y% j* B$ d' S' @* Y+ p    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后

" B9 ^0 ^8 S2 O5 t% F0 c2 Z    if num < 3 then

5 L$ x2 O2 a. y( z    begin

9 y. j% P) @, E3 R- Q) P3 \        This_Player.Give('经验',1000000);
  x6 Z- m/ Z0 c
        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
0 _. z3 |8 p' r- `# i
. ]4 s3 p: ]. ?) l0 X        This_NPC.NpcDialog(This_Player,
, [4 H$ ~. h3 r) T7 p
        '恭喜你获得100万点经验值'

        +'|{cmd}<继续领取经验 getfreeexp="">');
7 ]# M% V0 W9 c6 S) d* `& C

9 H' f, M0 m0 {+ F/ X
    end else

    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
/ M: s& M) h5 ^7 ~9 s1 u9 m/ X9 d) K
# v$ X) |/ v4 D9 |) Z) S1 L3 Jend;



3 {( R6 s) i$ jbegin//主函数入口

    This_NPC.NpcDialog(This_Player,
" _! B; a' e2 `% q
$ T; ^* m1 U' M0 |/ j    '玩家每天可免费领取3次经验，每次可领取100万'

+ i( |# u* f" A% f    +'|{cmd}<免费经验领取 getfreeexp="">');

end.