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

china0396

{
" E* P" |. r% Y) d3 I, D
*******************************************************************}

" H8 M* f( Z9 M! k: ^# Z: BProgram Mir2;

8 n" r' V1 D; F+ |, d% J( `- `Procedure _doexit;

$ {% R. R6 c; E- A# zbegin

6 p  `  }, B+ P8 g0 B# H2 E   This_NPC.CloseDialog(This_Player);

9 r8 @, y  _9 c+ x4 H& Q+ A6 Nend;

6 ^+ e+ _! ]8 ?& {( U//==============================================================新手任务
" o# f6 l$ I: W* r, a6 ?
procedure _GetFreeExp;
( `* ]; _" G3 w0 j! t
  j4 I' O/ L! f# dvar today , num: integer;
# @2 H5 m8 }- J; T
begin
7 o7 j- @& S4 h6 B9 ?& B' V: |* H! Y
: V+ w" M1 R3 i7 I+ C( j0 N# `& F8 ~    today := GetDateNum(GetNow);// 获取当前日期

8 `/ F' C4 C' Z/ p) o+ ?9 S% L    if This_Player.GetV(13,1) <> today then     
7 P# E( R5 Q; i. n/ ?3 L5 I
& ?$ e+ D! A9 T, T2 a% Y7 k    begin
2 r* {0 w& f  u/ @9 l
       This_Player.SetV(13,1,today);

* C$ K) p+ T- v; R6 D! L       This_Player.SetV(13,2,0);

    end;
7 P7 t5 P6 ?' d( w
8 |3 k. `9 A* ^( F$ Z- e             //初始化变量值，每天首次触发，将领取变量设置为0
$ j; l8 n$ A9 t- o/ Y
9 }) }( v$ B' f0 [7 L
- Z' p9 `. k. Z
1 A( k: R: S, @0 C& A    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后

- o& V( J& C( N+ j    if num < 3 then

    begin
6 f8 x  e* ^) c/ D0 v/ @: p3 [
        This_Player.Give('经验',1000000);
+ Y- q9 Z& s' C
        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
1 N7 R( M6 D' V, U
        This_NPC.NpcDialog(This_Player,

        '恭喜你获得100万点经验值'
* Z* w5 ]; [6 G& X8 _* |! i2 u$ j
* v6 F0 v; W/ B* F* V/ L8 m        +'|{cmd}<继续领取经验 getfreeexp="">');

; s' B. b; S, N! l
. L9 Y3 @4 H7 z1 }0 m5 Y# m
# y! I  m- D1 j$ r. Y+ p    end else
) V9 W, s# i7 f" s
    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
, o  ?! u3 [) x+ C; F7 a! r2 G
% O& {( q# D% _2 p# d- |: @end;
5 Y& V' v4 X# P5 v

5 J! s& @: ~& T7 b% u* K
begin//主函数入口
, [" G6 j5 G, p6 |+ y( A/ }
* S7 N5 s8 D# p4 p: E. `    This_NPC.NpcDialog(This_Player,
9 n$ F0 [+ ]7 o# h, }: V6 E. L
) z  A& N# T' G* Z, u    '玩家每天可免费领取3次经验，每次可领取100万'

    +'|{cmd}<免费经验领取 getfreeexp="">');

end.