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

{
2 t7 l& L& N8 _+ ?5 u" @
& b/ P; L! j4 r2 J" ?*******************************************************************}
0 n5 G- ^) ?; G* W0 t5 k+ Q0 x% d
Program Mir2;
# U% {$ J/ f; I; M  R7 i$ L6 v" P6 N9 i! n$ A  b* H
Procedure _doexit;
; f. j. g( w5 t
2 Z" C5 ?, q3 a6 \! w7 rbegin
+ o7 O- N' f; c# a
- j9 z7 d) S' a. C$ L   This_NPC.CloseDialog(This_Player);
. B5 h! U) T+ }- W
6 n/ G3 |% ~* gend;" H- i4 @4 O/ H5 h

1 l; s+ I4 k/ G  a  ?- U" b3 V//==============================================================新手任务 3 X7 {2 q9 }+ D( r, z
. \6 m: ?! F6 z1 K8 j. A! O! @
procedure _GetFreeExp; ; g) Q2 {' X+ R; V4 c" P" {' _

9 _( B3 Z: ]' \var today , num: integer;
8 M- Y1 @! k& r  e7 T8 ]- |8 v7 G/ m& l/ h
begin* }6 D  `3 Q: Z7 w$ N
; ~& N2 e' W; j: c2 Z8 S& y8 \
    today := GetDateNum(GetNow);// 获取当前日期- ]5 Y, b* v) E1 ?

+ I( [* G3 Q7 o, ~+ P% G    if This_Player.GetV(13,1) <> today then     
0 z6 v+ t/ E* X1 f1 W7 e2 p
6 |/ o) M5 r; x' b3 r    begin
, K5 g* n8 [7 u0 M; I; p) p: a% b1 J* L; ^- B; V
       This_Player.SetV(13,1,today);
$ H% z( }; `! _0 ~" s. q3 @6 F7 k. D, E
       This_Player.SetV(13,2,0);
& L! ?+ D# D8 e8 \+ _8 n' K+ e) A4 c, s* t  K
    end;
2 E% M' o" H6 Z+ _& @+ ^; P- V! U4 n6 V3 b& z( s$ T  n0 D
             //初始化变量值，每天首次触发，将领取变量设置为0
$ I7 o( E& O( o6 a) I! O$ @
7 w$ v0 Z5 N  p
" I7 j5 G9 o, Y2 K9 O8 q. D' i- G9 f- m$ |' U% b
    num := This_Player.GetV(13,2);  //获取已领取次数，**取值时切记写在初始化之后* C0 C& i; d* Q* h

: i1 T4 b1 N( f% Y; P8 r2 e) j) a. ]' v    if num < 3 then
, U9 _1 d/ ?2 y. |* ^5 G; `. @) V; U3 Z
    begin8 X/ ^( Z6 q7 u) o  G; z+ I  b
' F' b  p% v' h1 R$ e- M( C+ V' C
        This_Player.Give('经验',1000000);6 Q6 X# ?8 C# F7 d

& E/ @  i# D( Y        This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
7 F) }. `4 x0 ~, Y" T  {1 D5 U5 D. q- z8 q3 H: e1 [
        This_NPC.NpcDialog(This_Player,1 D0 `& X, l$ F! s; |, k+ P
- K1 W! d2 V& {5 q
        '恭喜你获得100万点经验值'& p/ h7 y1 q# E1 p. ^7 O

; u6 i, O) C, r1 N        +'|{cmd}<继续领取经验 getfreeexp="">');" m) d$ B+ x% l
" t+ ]8 ~$ Z0 Y5 V% k

0 C# U1 J2 c' k. E0 h
, F+ R' B4 E" c- y! h    end else
5 x% a: ]# T4 _6 i: D( n
# V$ }- n6 G& g7 L$ R    This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
0 b$ w$ o* c, _% q  N! {8 [8 C  k5 k" V3 B6 D
end;5 I- C1 a5 o% S7 L) L
. n* o1 M/ p$ U! g1 R

6 x3 q3 L! n: y5 d. x8 U/ v9 g! @) j& f/ ]# |
begin//主函数入口
" ?' k9 ]# M. c+ O" p: a" E; B& t# O1 @* I
    This_NPC.NpcDialog(This_Player,) q7 c' X2 g- I, X# L) A5 _( n5 Z; ]& X
1 A, u0 |6 [* [- Q: K" P
    '玩家每天可免费领取3次经验，每次可领取100万'1 X" E" Y7 _$ i# V$ u  ^

. W- c6 H9 c: t' |  h1 n    +'|{cmd}<免费经验领取 getfreeexp="">');# v- A, O1 v- |

7 o- F9 k! [( P3 L1 G1 T; S" j7 @end.% S8 G% X& x; f% a4 J
0 p! Y6 _& g$ |" g/ H' z: e+ ?