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

每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。1 C! S: {' d4 n9 t0 N
. Y/ K! W' |8 v1 J0 k5 ~

$ V* d8 I1 a, d/ h% H2 C2 |{7 U, d- y2 u! \: }
*******************************************************************}. \& E8 p: q7 K' a5 O
Program Mir2;" j  I9 `# E' o: [( B4 D0 T$ {
Procedure _doexit;
  T2 Y* _4 j& F4 Wbegin0 O- @" v* m- M( H) l1 ?. ~
   This_NPC.CloseDialog(This_Player);9 j0 R" B+ W6 s$ u$ M
end;1 e6 H; h( ^! j+ i1 T" P
//==============================================================新手任务
# o8 y" {0 I0 H, Wprocedure _GetFreeExp;" r7 ^7 V. P- c$ h
var today , num: integer;
( c4 {. o$ [  Z% @3 vbegin
$ p' c. |6 |& E/ y2 {    today := GetDateNum(GetNow);// 获取当前日期4 @) s  j* G4 S0 f# h/ |
    if This_Player.GetV(13,1) <> today then     * N1 a6 h2 t4 `% k% Q
    begin
5 a$ g9 C, p, h: O, T       This_Player.SetV(13,1,today);' N4 w5 h, N0 H3 b, l" n0 F/ a- S0 k
       This_Player.SetV(13,2,0);
' d+ x- h; H, k5 r    end;
( A$ S% l$ H8 N2 B3 _' T             //初始化变量值，每天首次触发，将领取变量设置为0
/ M3 Q' ]8 D2 T0 [. i) @/ i
# _1 {" @  Y0 P    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后
9 `9 }+ i# o% r) t( p* A7 C    if num < 3 then: ?3 A: A! G2 ^: }3 E$ U) ?
    begin; L4 u8 M! B7 O* u  j
        This_Player.Give('经验',1000000);
$ J3 V6 t( q- v$ K( F2 |: x5 D, V( J        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
2 S" i9 [3 Q; {+ j: s        This_NPC.NpcDialog(This_Player,
. q0 m$ z# O2 H* J" t# ]        '恭喜你获得100万点经验值'3 ?+ V' H" d. R0 s" {
        +'|{cmd}<继续领取经验 getfreeexp="">');4 M, P2 x- `' T2 B2 b

, i# m' k, y6 {* l, [: J8 I    end else) I; \* {7 k+ @6 c! f# i8 Y9 k* Y
    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
: _) h7 @; U2 ]; Fend;
5 i8 S" e8 ~( U3 Q2 }- r( t" W0 ^( U* X9 B$ q$ P. P6 d
begin//主函数入口
; s8 Z! @: A$ |) J    This_NPC.NpcDialog(This_Player,
$ x: M* q2 ]/ t5 v, |6 H& X    '玩家每天可免费领取3次经验，每次可领取100万'+ Q; [2 u1 @# t1 f" A$ `3 Z4 N4 u
    +'|{cmd}<免费经验领取 getfreeexp="">');
9 V2 ?7 _) s: j- x2 z$ }6 kend.* `" l" V/ _$ c' E% E! s

6 C) c! T3 j9 e7 X+ D+ P7 u7 u0 s7 {8 n