每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
0 y4 C% p% A4 _( c' O
8 a& |" ~- m3 c6 P( D2 N
& d3 }& }- N8 Q9 J: B- i$ C{
% r$ K9 x8 b, W" i" [7 q+ N
*******************************************************************}
a0 T# U* @5 q' @/ wProgram Mir2;
* L5 H P2 R1 S+ W/ C
Procedure _doexit;
8 `- @1 {" [0 V8 s
begin
+ N! c$ y1 Z& |( b1 @/ X6 a This_NPC.CloseDialog(This_Player);
8 I- l1 d7 A) z q8 ^7 {; nend;
8 H1 h* ]+ V6 I; T9 }+ s) T1 U" A//==============================================================新手任务
( V1 |9 ?' T# p. s' i/ W& f
procedure _GetFreeExp;
* \& e$ `! X8 N1 k; E% |var today , num: integer;
/ i8 {1 m" W% ~6 ubegin
" d/ }9 M* F7 J: \8 A today := GetDateNum(GetNow);// 获取当前日期
! s6 y0 F# t) h, r# U6 V% J
if This_Player.GetV(13,1) <> today then
6 j5 I: j( P4 r* }, { begin
& q2 j% ?' S+ M- a' p* H/ U* B This_Player.SetV(13,1,today);
q* d9 ~7 o& D7 ^# r9 D; V# K6 C This_Player.SetV(13,2,0);
7 p& V) @8 f$ |7 o. y
end;
' z& r: q7 n2 c( W: v7 B //初始化变量值，每天首次触发，将领取变量设置为0
; l, m7 E: p# u5 v7 Q/ A+ K& d9 b- G5 V% o
num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
4 X# a9 U% s4 W( j, [ \; v
if num < 3 then
# J: e- Q! C; }% f# c8 U7 b6 v% V
begin
+ E) P! N0 e! f: e7 O2 G- x, ^6 }. u
This_Player.Give('经验',1000000);
+ R# V5 O0 H9 y" i9 R" L G This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
* _1 v5 P3 v+ \+ F+ E3 v. y3 U! f This_NPC.NpcDialog(This_Player,
6 @! h, g2 I3 w2 e$ e- A1 c3 G6 k I3 l
'恭喜你获得100万点经验值'
# v7 j$ ]! v+ z, G( P
+'|{cmd}<继续领取经验 getfreeexp="">');
+ @ i+ K# e/ w" V
+ V. ?5 L7 l* V, X end else
$ c( T3 x) `2 `8 ^ This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
) D6 P" V6 L; H- K+ H, Hend;
* I# r/ o* t9 K" f
. W% l" A2 v3 |+ w5 Qbegin//主函数入口
3 Q4 q7 b/ }( d6 r
This_NPC.NpcDialog(This_Player,
9 r. v' }7 x3 V; y, i2 j
'玩家每天可免费领取3次经验，每次可领取100万'
7 ~9 \8 ?5 Q$ v9 P: }6 n% D: C +'|{cmd}<免费经验领取 getfreeexp="">');
* g; _5 P+ ?) i% T( B- K
end.
4 b* Q. X+ c) I: c* w
. y$ b) g" b0 s8 S# k7 S8 v
+ [. ?. F& I- G' v4 }& ~, o
发表于 2025-11-15 00:40:46