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

每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。. f( W; d. {7 s5 T& G# B( Z
# M5 C$ \9 E6 h3 u: F
1 f$ e. X$ g% I( E& O5 L
{
, X3 F) n5 _2 ~, b8 ~: B7 N" a*******************************************************************}
( H* k/ `9 i  \. K& O2 _" c5 j# LProgram Mir2;1 p+ d8 ^) s" h. ]( D
Procedure _doexit;) K$ X, l/ n( F
begin$ ]; X4 m, g! e  B
   This_NPC.CloseDialog(This_Player);
) q1 k2 o1 j' c' {: a8 zend;
0 {' ]8 ^2 k: g" L//==============================================================新手任务% X5 q% p6 n( q, Y2 N; k
procedure _GetFreeExp;
. K) Q+ G3 [' y) B5 Z. v! evar today , num: integer;$ O/ H8 O9 Q! _. j
begin
1 p, ~5 X/ `- a5 C1 X) ]7 U    today := GetDateNum(GetNow);// 获取当前日期
& @  V- _4 y! n3 N1 \    if This_Player.GetV(13,1) <> today then     
' k% }6 r- I2 {" M! C: a    begin5 Z7 z/ W3 D' w7 J% ^
       This_Player.SetV(13,1,today);. O1 W. u7 ~: e( S! l
       This_Player.SetV(13,2,0);6 C9 L- S! L7 {9 U# ]
    end;
, I0 D0 t+ E/ \0 J# I; n) ~0 A             //初始化变量值，每天首次触发，将领取变量设置为0% Q. E+ ~4 a& y% h' {6 S* `7 {. m

: a0 m2 r  d8 r9 m& _    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后* L" b4 C0 X, G- s) s
    if num < 3 then2 v' ~3 Z: _' r( Y) f1 u1 k$ i) B
    begin
$ y/ z$ l( U& z        This_Player.Give('经验',1000000);3 H, v! }& Y% q" x+ D/ v
        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一* e4 J+ x, @2 M! f1 u  N( Z
        This_NPC.NpcDialog(This_Player,
; T. O, S" @' k( l9 s) t; b        '恭喜你获得100万点经验值'2 M5 X+ {, e$ h
        +'|{cmd}<继续领取经验 getfreeexp="">');
: c- J. t* o4 A! o& z, R8 T5 U
4 U. r4 E- J, @' e' q, C) t    end else3 T4 P) T5 P4 @' H
    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');7 q& b) b+ r* L+ w; V
end;
" f6 E! b0 `/ i9 [' L$ y
3 u. o: W8 X9 D: g2 jbegin//主函数入口
2 Y  f/ b2 D2 @7 r( x    This_NPC.NpcDialog(This_Player,
8 @# ~: C2 T5 }) k0 H    '玩家每天可免费领取3次经验，每次可领取100万'
1 {$ q/ K5 a  v' E5 \    +'|{cmd}<免费经验领取 getfreeexp="">');: L3 f- c, v& f7 j' m( \. Q' T
end.
/ H( @2 o+ h. b( ~7 ]( w+ W) e- z7 C' Q0 s2 n
$ B( n( N' _. P. i