[教程/工具] 战神引擎 每日免费领取3次经验修改手游脚本

每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
0 T- f  u  \2 H( F6 P; Q
, X  M3 I4 }* e8 G( H9 I
# Y& G2 v  |1 i& P+ ]: ^{
& o% _8 X9 X" a* G*******************************************************************}  [- g9 W! h  I/ \/ x7 D
Program Mir2;* [7 B( o) f$ t/ g
Procedure _doexit;
, k+ X; r2 E3 mbegin; I7 g% z! i  ^7 N2 J$ W
   This_NPC.CloseDialog(This_Player);7 I6 F; F7 u! ]7 K! s8 d( T9 @# r0 a
end;
7 g6 z) G0 q5 P8 u- }//==============================================================新手任务
! W! L1 w7 _  T) jprocedure _GetFreeExp;
8 }, ~  S: N+ E/ lvar today , num: integer;
8 \: Q$ `4 c) l$ {& {! n' vbegin
: t9 f# p) O. F" z; H& J    today := GetDateNum(GetNow);// 获取当前日期: O0 V4 }- F  o" |
    if This_Player.GetV(13,1) <> today then     
: C' p( O2 B. c5 P1 J; [& p* i    begin. u( K" y/ i4 J/ P/ l
       This_Player.SetV(13,1,today);1 V3 ]2 I  T+ T" L  H; z+ l
       This_Player.SetV(13,2,0);
& k1 N* H- v% l6 P    end;6 |! Q- O' O5 j/ @0 }
             //初始化变量值，每天首次触发，将领取变量设置为0
# ~. h1 N. g. y2 B$ @% c; Q/ x3 b: l2 T
    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后
- ]) O7 d$ ?0 P3 R9 |* k) C    if num < 3 then+ \# [8 ~$ B* i$ G, n& `. x
    begin
; q) ~9 ]1 g6 H# q. H& ~- x4 W5 h        This_Player.Give('经验',1000000);
2 d, ~+ s% H& I" f  G        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一% e* @* a/ y# V
        This_NPC.NpcDialog(This_Player,
, h7 X) }  A, }; [/ P& c        '恭喜你获得100万点经验值'
) q7 E# \$ c; L( w" P- F+ P        +'|{cmd}<继续领取经验 getfreeexp="">');7 W" f2 ]' [% H9 L( y
% v: q* G' n" n; l2 o
    end else& K7 C( n" x0 l+ e9 K$ b  x' ~
    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');! T' h7 ^# M; s8 _# ?
end;# j3 q+ ]1 R# t+ _9 @, O

6 y0 |0 D: d- m& D9 v5 T3 abegin//主函数入口
$ e' X. d+ \* t; y    This_NPC.NpcDialog(This_Player,
1 u* n" v0 s& D2 b    '玩家每天可免费领取3次经验，每次可领取100万'% y& ]: Y& Y. t4 r% z- k" r: n; N
    +'|{cmd}<免费经验领取 getfreeexp="">');* O7 ~( u$ f" c" O6 W5 i; U! I$ ~
end.
) @% z* U; O& R1 s. t# N+ E3 S- t; z( i/ {, g+ _# N- `8 M

2 x0 \+ K8 E% n