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

china0396

{

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

) ]1 l: N4 d& Z; f+ EProgram Mir2;

Procedure _doexit;

+ v- _' Y6 r4 J0 f" C8 P. ^( Bbegin

   This_NPC.CloseDialog(This_Player);

, j0 ^' Y+ Y5 Zend;

//==============================================================新手任务
( E5 B# F1 b" _! |3 O4 W
; _; Q7 s9 ?4 t( N& zprocedure _GetFreeExp;

* s* p, _  w/ v8 ovar today , num: integer;

) y7 V/ @  j! ]& D  K# Ibegin

    today := GetDateNum(GetNow);// 获取当前日期
3 t$ D1 ^3 R# I- u
    if This_Player.GetV(13,1) <> today then     
. x" }& D4 o+ |% p+ K
    begin

       This_Player.SetV(13,1,today);
4 g5 G) r" O( f4 V3 s( E3 r+ ]
       This_Player.SetV(13,2,0);
5 F5 S. z% C: }7 f( e9 _
    end;

( b. o$ {! H5 A/ |: i8 j2 M' l             //初始化变量值，每天首次触发，将领取变量设置为0


$ Y9 ?9 G6 n! O3 k8 R. l
5 V; U3 T; q) K6 D$ {; p    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后

    if num < 3 then

    begin
" R+ L7 P. ~: r1 d- H
+ B2 s" }0 u' o& s" `        This_Player.Give('经验',1000000);
" n/ `# R8 s; D% s
! n; V4 ~3 a, z- V- ^- l        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
/ n1 N/ S' {' P5 T
1 Q9 \* J, P1 l6 S        This_NPC.NpcDialog(This_Player,
4 ?% I3 ?: @, E9 M4 c1 h
6 O2 S1 G* ?" B, `0 \) H1 x        '恭喜你获得100万点经验值'
  D0 I$ S6 Y0 C  l* J1 S1 h
        +'|{cmd}<继续领取经验 getfreeexp="">');
* S5 X% A0 @8 U& B% H9 @4 u
* H$ i4 d0 K0 |$ j
2 l* \( v: ^% O! c' F/ i# L
    end else
2 j0 {: w3 |/ Y5 x$ K  U/ E" b3 R
2 E% S5 u/ R; l& v2 R0 n9 G" q    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
+ ]; Q5 ~% y: Z( t
( J2 B$ q8 x# p0 {2 ]end;
4 k( G0 I  n2 }" I! d& P3 {) r
5 |2 M) i, e5 m0 s3 _8 y
$ I2 A4 I5 K& u9 Y7 N
begin//主函数入口

    This_NPC.NpcDialog(This_Player,
% b# V( r: X1 q+ X$ x! E
    '玩家每天可免费领取3次经验，每次可领取100万'

    +'|{cmd}<免费经验领取 getfreeexp="">');
* \# Y: X" G" ]$ i, J
end.

! @# Y" w% r$ T3 U" p