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

{* q$ U# h) s1 @" I7 o2 O

. f8 K  ]2 ^( A7 D" z' q*******************************************************************}
2 x  }/ r3 j# r, V4 L7 D9 K6 {( G5 w+ w; I/ ]% {; h# r
Program Mir2;
) v/ t" i6 O8 C. i, q$ ?3 @
6 _5 K. E0 A9 t) \0 E! FProcedure _doexit;
% @5 g1 R0 g  S2 i8 `: Y
! G) y  l1 y5 [begin( M' q( \6 ?# w1 H, \

* @" W% }9 X* ^' [% a' b% ~1 {6 P   This_NPC.CloseDialog(This_Player);& m+ @& V9 L8 C% J) [! f. d

2 p. s1 X; [1 t  Z3 Iend;
6 i2 B& J3 a( w. O8 i+ ?' _
! k! f9 j4 Q  h9 k4 K) ]//==============================================================新手任务
6 d. d" T0 V' k# Z
3 k: I2 [2 a' e0 u& G/ w0 gprocedure _GetFreeExp; ! ?* ?, B& V& j# S0 M! s
0 E" L( l; T: D! R  I" n1 ^
var today , num: integer;9 w5 l2 a1 s2 f8 b) h8 ?* d% Q, q
* [3 |- L/ u" M4 i  @* \1 \9 V8 W
begin
4 M5 x' N/ P* x( J
+ e4 M5 J, A. s) `    today := GetDateNum(GetNow);// 获取当前日期
. N8 O8 Q# M) S6 a/ A0 t
/ a3 i2 W8 _0 v+ d5 m    if This_Player.GetV(13,1) <> today then     % {1 n) l" J. K+ K! a  A; C+ y

! {. m3 p2 M; i  c, _) w* a    begin# U3 L' n( C7 U! Y8 K

8 H+ ?0 X/ n! u       This_Player.SetV(13,1,today);
* X2 G$ R# j3 P" N# ?
: B4 ]) p, M9 q- k8 b& y6 C6 H       This_Player.SetV(13,2,0);4 g* d& c! ^6 G/ _  r& K2 K2 h% V
1 I5 I) ]- M! i; k* I( M
    end;
7 P: r" \) H. D, A- D. P- W0 O" z' L! T. V2 ?! o
             //初始化变量值，每天首次触发，将领取变量设置为0/ ^3 s+ G1 C, `& e; T' [
$ Y3 ?7 N; D% C7 [; C1 O
2 e$ @$ `$ \5 J' t6 V0 i7 f" J
* S* ?, C' M: u- G' }( }$ A0 X$ G; ^
    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后, Z( _1 e. G' b8 J

6 q  ^; S& N7 i6 K7 N8 a    if num < 3 then% c) r" m! K$ E, F8 D2 D
2 N3 f# i8 ~7 b% y% x9 @: i
    begin
/ n- P  O) M$ q! H
4 C, @3 d. Q4 ^" S4 W1 {  \3 I        This_Player.Give('经验',1000000);
' X' k; B$ _9 O/ g, y% p% z7 i3 v7 X7 N; z. ^. P, s) p) w. t% r3 s
        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
* i8 T% e7 M! l' B
, g# U0 W/ \6 C- a' I0 ^        This_NPC.NpcDialog(This_Player,
2 z+ Q: U. I3 G$ O' Z+ R) g3 f5 h. M* O; l! w
        '恭喜你获得100万点经验值'
' Z/ r' L8 p' L( M3 r7 y& l: l$ {# J, Q8 x+ [
        +'|{cmd}<继续领取经验 getfreeexp="">');
: z9 u/ {* D. K# ?$ z% X# N
- V! P. p4 N! T; |5 s1 m" [1 Q% ^2 ?: |/ u$ P3 G4 c
% X1 W0 f, ], m' `# {! O
    end else; V9 K0 h: t! F. g1 ]

6 W: {7 l* i( {( P3 o    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
# l9 b$ W9 u5 U; e8 w1 v
8 u0 A. A" F& U' _# b# Z8 ^end;7 I  R- H3 a7 W0 ]: ~
/ O! W6 o* ^% O
" @: B! E7 `/ \: \7 y1 N  _

$ n+ T) H+ l; ~  c. X6 @begin//主函数入口
4 C0 `& W6 @/ h1 @( o# U3 `0 M2 ^5 y) ^) U( C& j
    This_NPC.NpcDialog(This_Player,
  n4 w+ P& e1 X4 Y7 j/ i4 G8 {& }  I9 ~- p0 t: T. v% f
    '玩家每天可免费领取3次经验，每次可领取100万'' D3 a8 g4 j4 H* v, d

* T& W/ |* ]+ f2 T, G    +'|{cmd}<免费经验领取 getfreeexp="">');
; i5 `) @; U; {8 a. t; u$ x, ?: K% O) P+ J! m5 ?
end." E& G* H( E( y7 [- M. i
$ {3 g4 T2 O# n$ Z) M' A