[教程/工具] 战神引擎每日免费领取3次经验手游脚本

{
) d1 s# ^8 u, [! C; u/ F
2 i: W' [* I9 z*******************************************************************}) A4 k- d( W+ ^

8 ]" @6 ?: |: y# FProgram Mir2;
1 M- K$ X3 H: t/ \# t' t5 u. p( |5 [* G4 s8 p
Procedure _doexit;
& n+ ~- [* R9 k8 Y: J& z+ Q+ h
( l, {8 K" U+ |( Gbegin
) k3 m* A- h3 t3 a8 d4 P, \  B/ c8 `1 U
   This_NPC.CloseDialog(This_Player);
3 o; l% h, i* L( ?, w# d
& _% q9 \6 Y  K! _* ]end;
6 z( @  b4 c& g. |, T9 S
, c8 U7 v& D8 v4 Z! B1 }5 F: X//==============================================================新手任务 $ M7 U3 V7 O  Z
2 E7 y* ?5 g# J' P0 _
procedure _GetFreeExp;
- u6 a) F: z0 ]# o2 @4 r
6 `0 X. o. v) ~% ]- w+ \4 [var today , num: integer;
5 ~2 ]7 y+ M  s& _2 }6 ^7 M  q6 X
: d* h3 l/ V1 \- Rbegin
  V- F( l+ z5 E' ^8 H4 P
* s* U6 i$ x  ~% G: P    today := GetDateNum(GetNow);// 获取当前日期7 f5 A4 S6 V" @9 [
, {  n# i- g* H' }( @- V! `: M
    if This_Player.GetV(13,1) <> today then     
% i- |: U- E$ X; O- a' V. o) ~1 z7 a# ^( r8 w) z
    begin6 r. w3 u5 k4 k( M: e$ z/ c
0 }3 E  e3 k8 ?
       This_Player.SetV(13,1,today);3 T, g8 T! Y  J8 [
  j4 r% N5 [8 V, }5 Z& @" q
       This_Player.SetV(13,2,0);
! `( v: f0 H+ W! ~' r) Q. R2 |1 I& V. o  {
    end;) v9 f( {$ l) i& |* |1 C& n

  f) {1 Q' k+ z3 |* s             //初始化变量值，每天首次触发，将领取变量设置为0
2 U! p. u6 ?  [+ g8 Q: ]% l1 Q/ W4 v8 f2 _) x

. D7 R) g2 L! m$ W( @/ I
& u3 n+ q' T8 q; `    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后
$ a2 ?7 H9 m8 a4 }8 F* I. Z5 h8 t! c7 W; x! F4 e  z0 M
    if num < 3 then2 o- M, H9 F6 [
5 a) `" c7 U! t0 O* t% t5 z
    begin
8 p' M# }$ |# d9 m7 U
8 Q( V9 Q& R- ^3 t) P        This_Player.Give('经验',1000000);
- o5 K0 L9 e  S* R4 V8 f" K2 s* }5 k( y9 ^3 p8 B7 I  b( ^: L/ Z
        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一; s4 r* y2 I: d5 g, s  H( k& o

, t* ]* P$ c6 U( x& }( x- C% \        This_NPC.NpcDialog(This_Player,
% y) M( d; f3 n' }* I- [5 C( @3 f! f, D/ I7 h2 A( Y
        '恭喜你获得100万点经验值'
  D  i# S! W0 X" T; x' [3 W6 C0 t
2 d4 m( {( {3 L1 q/ _3 Q- ~        +'|{cmd}<继续领取经验 getfreeexp="">');+ |" {5 }) K2 E9 ~% ]& M8 \

# _/ ^6 M* z. n  z7 h: [, U$ N: c

% I/ v( `3 Y. z# n( X    end else
9 R: a' [% C" @" S/ }6 R% A. m( x& k5 w! a+ G7 ]3 {! M
    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');/ g4 i9 E7 s7 i3 F$ Z

( D7 a9 a" c- P9 U3 p7 B8 Uend;6 w; N% j4 i; m  n" z0 Z9 c, D& z
# p, e3 S% P( w

9 S: b& x: o4 @3 G) e; R+ H. l
; K& H/ I. O- ]2 hbegin//主函数入口" N  I( h! N: z8 p) D" x
5 R0 p. p6 T  M3 ^1 p
    This_NPC.NpcDialog(This_Player,/ t# S6 l; g6 h7 _7 {$ k* I

4 Q; E  S4 n7 |9 s# }4 }: @    '玩家每天可免费领取3次经验，每次可领取100万'3 z1 W' M& N6 f) p. E( C

4 f" r5 Y& Q) p  g; q    +'|{cmd}<免费经验领取 getfreeexp="">');
2 ]4 Y  F) s6 Q# U6 C7 ?' w! c/ x4 s+ `. ?' c& H
end.. s6 m, `6 E9 q% F4 F
  n9 M2 y2 f; w! I3 _, X5 F, f