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

每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。8 j4 D/ b# H: r1 Z. R

" _# u: d+ ?( r' x  P5 ^: Q6 |4 L
) o* F3 Y( Q3 [# \{
8 Y7 B7 \0 e; B# d) Q% t6 h*******************************************************************}  ]$ B* R: I2 ~$ @; ^! O* B
Program Mir2;) y! l. }" @3 D5 o6 `
Procedure _doexit;
4 v5 T( ?$ g% R' r) E2 ]+ zbegin' K* u9 O. `: r3 e
   This_NPC.CloseDialog(This_Player);* {2 r6 y9 c- W/ C* J( f, u9 F0 p/ `
end;& B2 j8 m' Z. l, ~2 P( y
//==============================================================新手任务
2 T9 b$ L, E3 G: U8 y3 y8 j: yprocedure _GetFreeExp;4 _( f" P. ?9 R% c
var today , num: integer;. r9 `4 }/ Q& v4 R! E
begin( X( w5 s# B+ ]6 Z
    today := GetDateNum(GetNow);// 获取当前日期
+ L; E  Q/ L, d    if This_Player.GetV(13,1) <> today then     ! \7 T2 L* Q! U  ]$ r) {
    begin+ K7 `5 B- P- G& G
       This_Player.SetV(13,1,today);" w% E; N1 D7 ~% i$ J  c
       This_Player.SetV(13,2,0);
. a1 j- s5 Z8 m/ e. o8 m    end;
' P8 [7 t2 H5 o( C* H             //初始化变量值，每天首次触发，将领取变量设置为0
/ J1 z: J* m. ?, @0 `) I; p4 M3 N+ b. ]- F: H% d# m8 z
    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后: [8 t" {0 l7 H! V
    if num < 3 then9 O: R3 z1 U/ A& W6 p, _+ D% h
    begin7 O; S& e. h8 t# a: i
        This_Player.Give('经验',1000000);
$ s, _% ~/ ?: G7 d        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
% Z: }" {3 d! _( @. Z( s        This_NPC.NpcDialog(This_Player,
! n/ S/ H" k' I# q) t/ S4 f) C& {        '恭喜你获得100万点经验值'
, C$ l7 w* `/ g: h6 A! K3 @        +'|{cmd}<继续领取经验 getfreeexp="">');
$ I* }. A8 ]* R; h- {3 k
. T/ z* \7 n$ _& a# Z0 ~& `! H3 O    end else& I  y4 \5 ?- a% r
    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
8 d, f: ^  V6 f" ~end;
& q. Q- \* J2 G) g; ~6 E9 c
% p: W( ^( I' ~$ s1 K3 Jbegin//主函数入口
1 g6 F1 j& x1 \( |' N    This_NPC.NpcDialog(This_Player,' {# }* A/ D) e
    '玩家每天可免费领取3次经验，每次可领取100万'2 W& K  F/ j% t( X7 z
    +'|{cmd}<免费经验领取 getfreeexp="">');4 z; l; z( t1 L. {5 T  G, ?" I
end.. ]. `6 E' y, j9 m  P
) f/ X9 g* G* _. u9 J; L" p  {

/ l) h  Q) W; i( q1 a- w: a