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

china0396

{

% a3 f  l, C$ W6 H5 V! {; B*******************************************************************}

' X) f% I/ ^7 ^7 N+ _" d3 IProgram Mir2;
) m- G/ M! g  a  }
& n+ X4 H* |0 b- M# l# U2 d/ g& KProcedure _doexit;

begin
9 u" w* ?5 w' T7 L4 s9 P" r
, n' t5 d2 O9 Y" ?) C& \9 X   This_NPC.CloseDialog(This_Player);

9 o3 p! O7 {6 h2 b4 P$ x+ C: rend;
. Q6 {6 F$ y5 T6 H' ^) r
//==============================================================新手任务

procedure _GetFreeExp;
( g- b) m6 g% p2 V2 x4 l# E
! e% B+ U, w% O7 cvar today , num: integer;

3 {) z2 S! q) w9 c5 \" d  nbegin
: F# c5 Z* b$ a6 X% |
    today := GetDateNum(GetNow);// 获取当前日期

; Q" ?% t( v3 @4 ]3 C& Z0 j; H    if This_Player.GetV(13,1) <> today then     

    begin
' Q& ?; B7 q8 ]' R) W
  [0 |) B6 [' Y# `2 D- S       This_Player.SetV(13,1,today);

0 B1 y; l% E- a' @6 [       This_Player.SetV(13,2,0);

, T/ x  J0 i3 x( R4 r4 P    end;
6 p' f( `4 o! `: T
' N7 G$ A2 {; e- U             //初始化变量值，每天首次触发，将领取变量设置为0
2 C' B, z% J! n1 n' w. R
" D# i+ C" B4 g6 f8 `$ r; ^; R
3 H6 W8 K0 t" ~( h8 Y  o1 A# l* Q6 O
    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后

* |" ?3 G2 E; P. h" Q& n, t    if num < 3 then
. M4 x* k' O: A  }' Y; |; Z% T
3 k& H" w, o5 C    begin

        This_Player.Give('经验',1000000);

        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一

! B# g4 G, ]5 R        This_NPC.NpcDialog(This_Player,
( f& X( ?6 F+ z+ C
& ?: _. p+ w8 ~( [  A8 n, J$ \        '恭喜你获得100万点经验值'

0 }) |' c9 K. d7 N4 u        +'|{cmd}<继续领取经验 getfreeexp="">');

/ ~* W: v2 M2 f; N; N! t
8 W: P; Q! ~6 a+ u: E2 V4 `
    end else
1 P& b5 z2 F5 t0 w
    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
# o& B6 d; i1 l
5 e& o! \1 _0 i! w1 y0 M1 Dend;
% M) ~# ?; W3 l, d+ }) N
- n6 p! {& V% A+ k* A
2 q  x! s, N. O( `9 _+ T; |
% l  o3 d9 a# Wbegin//主函数入口
" S4 }$ h; L5 v. g+ [
! c2 \! \+ z8 _- p9 O    This_NPC.NpcDialog(This_Player,

0 }+ L' m, R7 S: X    '玩家每天可免费领取3次经验，每次可领取100万'
+ O. L8 u$ ?+ A+ p( R$ S: {# c4 Q
. V. }) b7 n  x3 m: l; b    +'|{cmd}<免费经验领取 getfreeexp="">');
: M& m  H# p/ ^
' Z) S5 h- K1 z# t* p. i( d8 j5 send.