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

china0396

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

% J4 O. u: U1 S1 j4 Z' }
{
; n# ?2 W; O" E0 M. Y% ^/ V7 }) I6 |*******************************************************************}
Program Mir2;
Procedure _doexit;
begin
   This_NPC.CloseDialog(This_Player);
end;
5 s2 Y. M: L5 A2 l$ {* [" a//==============================================================新手任务
' p7 t; j0 H0 @! ~; `- i& M- u4 yprocedure _GetFreeExp;
; |, T1 c, V4 f8 mvar today , num: integer;
begin
) C/ ]% |" Y( R5 R7 P# u    today := GetDateNum(GetNow);// 获取当前日期
% y% i, O1 n7 W, D    if This_Player.GetV(13,1) <> today then     
    begin
       This_Player.SetV(13,1,today);
       This_Player.SetV(13,2,0);
    end;
             //初始化变量值，每天首次触发，将领取变量设置为0
2 v- g4 `' P, n/ `3 a1 K
    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后
5 d8 U  w5 f; L    if num < 3 then
    begin
9 T; }/ i4 O  f) W        This_Player.Give('经验',1000000);
9 M' V+ f- u# ~/ K  o, H3 ?        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
8 i# |4 G: N. U# y% q7 c3 W/ I4 U        This_NPC.NpcDialog(This_Player,
5 I! J. V/ s# ^% x5 ?        '恭喜你获得100万点经验值'
! Q9 u) D3 O9 X        +'|{cmd}<继续领取经验 getfreeexp="">');

8 |% s  R, M! O    end else
6 [: z# ^1 P5 f( t: \    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
- e' l: a+ J3 R* Z5 J$ |end;
, P1 |8 O6 V4 F: a4 j- d
begin//主函数入口
% h+ t$ k7 R" w* J+ l/ E    This_NPC.NpcDialog(This_Player,
    '玩家每天可免费领取3次经验，每次可领取100万'
; g: Q- W& @" h5 v2 `3 k) @    +'|{cmd}<免费经验领取 getfreeexp="">');
end.

1 h( T& X5 @3 _5 j