每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
& B. x! n. u% x2 c: ~0 U
8 I s! J: L: M
( g. q- s7 k/ \3 A2 f{
5 a% c% C2 A& V$ k# |
*******************************************************************}
8 Z# E5 s1 a# k) O$ w, b2 w( yProgram Mir2;
; K0 Q X' N/ B- w- F& y
Procedure _doexit;
- y8 Y% X% ], Z* D2 y3 R
begin
) _$ l1 V2 Z9 @! i0 W, f7 C) ] This_NPC.CloseDialog(This_Player);
7 I8 e$ B# l/ P3 send;
8 L! {+ s7 D3 d7 l# H2 A//==============================================================新手任务
# _6 H4 y+ ?) q7 b
procedure _GetFreeExp;
$ z' r& c: \/ }6 H" N! K) i+ O
var today , num: integer;
: `. N, d8 u& R0 Z T9 W2 z6 Y& tbegin
; \5 v; T( D0 G today := GetDateNum(GetNow);// 获取当前日期
" w7 u5 ~4 R7 [; j+ W
if This_Player.GetV(13,1) <> today then
, K/ d3 W! w. P7 @' M
begin
& m6 h& ~! t1 }- c
This_Player.SetV(13,1,today);
( L7 K2 o7 C- H. e o This_Player.SetV(13,2,0);
. `' e2 D& D4 V6 d2 C: o+ u end;
) X6 Z8 O; {/ A; o5 P. A //初始化变量值，每天首次触发，将领取变量设置为0
( |' z. \$ n0 r, H) J; k; m
: d7 a) r" ~! N% h" `# U h3 J) W- | num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
' O& P. V% W1 |
if num < 3 then
0 m) A8 m/ _$ O | begin
8 C; y7 `# S. y
This_Player.Give('经验',1000000);
& j! i4 ~) `8 {" C" p
This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
9 n$ p" ?6 }. m' G* n0 A This_NPC.NpcDialog(This_Player,
0 ^0 {3 y* U( ^9 i* x$ i '恭喜你获得100万点经验值'
" G- \' F/ k+ _) j +'|{cmd}<继续领取经验 getfreeexp="">');
4 R) n0 R+ }! {3 n9 S6 ]5 a9 M; z% ]2 S. r" B
end else
, D; G" ]" R% e
This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
! m, U7 a ?; e+ `end;
* N7 U" I( D, ?5 r7 I, c ^
1 u# m4 S2 N% i( a/ ?. pbegin//主函数入口
( b( \: Z% z6 P5 E& M& E& r! K$ J# N5 @ This_NPC.NpcDialog(This_Player,
5 l' }( R! C: _ '玩家每天可免费领取3次经验，每次可领取100万'
# A" @! x* l7 G6 G1 }4 ]4 l +'|{cmd}<免费经验领取 getfreeexp="">');
8 ~; d3 i! z6 M7 X
end.
6 }. W J" s/ L* Q( \) m2 y# I% a5 \) n1 e/ w& g2 d
( w( Y; l# @* c3 [/ i8 M2 j6 ^1 _" r2 H
发表于 2025-11-15 00:40:46
