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

china0396

{

*******************************************************************}

" B% v8 L5 }  `, N9 L- h- yProgram Mir2;
3 y) r# l% B$ {9 Z1 l; I* T7 j" F
Procedure _doexit;
  q. j$ y; x1 R) @; w+ s% ?" j
( R- |/ m' O5 [" a3 X3 ~begin

   This_NPC.CloseDialog(This_Player);

end;
" I+ ?2 w6 r6 C. K+ g5 h
//==============================================================新手任务

4 f  [& Y- {2 s# L- G6 {procedure _GetFreeExp;
, h, Z# x8 }/ G/ \
var today , num: integer;

3 E8 _$ H; n* K5 Sbegin
6 w7 }" `8 S8 K; K  K0 Z
, w  b3 N( ~) |1 R    today := GetDateNum(GetNow);// 获取当前日期
$ Z. U4 [$ y; _
    if This_Player.GetV(13,1) <> today then     
: S# m* `0 p, D2 U
" C  ]6 z6 ~6 ?" f4 k    begin

       This_Player.SetV(13,1,today);
9 Z9 U7 G) R& B
$ W+ C0 h7 c& P4 |9 E       This_Player.SetV(13,2,0);

    end;
  T: ]  [  d' O
0 M" T7 K6 G/ s: O9 y) T             //初始化变量值，每天首次触发，将领取变量设置为0
7 q+ i3 q! o; ?+ t7 S  Y
' B2 d6 P* N: \" _
5 M* A% u, L, G- y
& {' x& c% [0 v2 ^- t+ W& |; s    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后

    if num < 3 then
1 n' w. q8 G. P4 T' D
" w) c0 }; |; B& Q* d    begin
- B5 X8 Y8 @7 s: p( J7 G9 |5 U1 w
8 @+ L% W8 u$ \: Q7 _* q1 ^        This_Player.Give('经验',1000000);
3 K- h6 M- |2 m& p! k# b+ [
: m1 L# I5 j4 k  j6 _) P! u        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
/ m4 A. C+ C) p3 N8 C9 f
        This_NPC.NpcDialog(This_Player,
2 w) ?  z3 p2 J" @4 e9 W% B0 q; M
, v# L$ @' s% |/ L        '恭喜你获得100万点经验值'
9 B# K+ o  z0 ~" s5 i
        +'|{cmd}<继续领取经验 getfreeexp="">');
1 Q, w8 {" R/ Y& |. X


    end else

    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
. L, E. _! k9 C( N6 Q* o
5 k) ^# U6 ^4 e/ [! jend;
8 g2 z. s% y: S: Q. Z: D


begin//主函数入口
1 ?$ A) q9 P3 r
& p+ Y4 ]; b5 u# H2 r8 ?3 Z  A/ W    This_NPC.NpcDialog(This_Player,
" e% |9 K  V2 M( U9 h
& q4 m: ?* B* M% q5 ]# l    '玩家每天可免费领取3次经验，每次可领取100万'
- C' C! m* o0 |" b8 v/ B$ [# o
* Q( e' d6 J# r* x/ L! D    +'|{cmd}<免费经验领取 getfreeexp="">');
* W. V+ i3 b& B
3 g2 t% d0 p; c9 h* u. u8 g/ {* ~end.
/ h& |" E1 k/ b( v, w