每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
4 }+ G2 Q$ z0 n' X, r. S$ C5 w e
/ {# s& g0 s4 M" `; k6 S. Z( ^
7 C9 E+ d7 q6 ?8 O6 {/ {$ `{
! b0 a5 A" J- V1 V* v*******************************************************************}
- a: Z8 F5 N5 n$ t+ \3 G3 Z
Program Mir2;
9 ], }) I: t. h9 V, t* y. TProcedure _doexit;
$ ~( ?7 S3 T8 vbegin
4 Z7 P( {. O6 \, f
This_NPC.CloseDialog(This_Player);
8 ?& d) c- C) Q) L+ @/ k8 Wend;
5 z# c" e d! `! V//==============================================================新手任务
9 C. C0 H" \9 g% B' u* |) i% Eprocedure _GetFreeExp;
+ e, ]" t2 Z6 ]4 n6 X1 i( Ovar today , num: integer;
6 l. k0 K! f; }2 C T* \) ybegin
) R g- a, j) h3 o today := GetDateNum(GetNow);// 获取当前日期
3 y' |$ r. y# G if This_Player.GetV(13,1) <> today then
1 z* d- m) s6 \ ^
begin
7 L1 @5 O) q9 S$ q2 c- c$ J This_Player.SetV(13,1,today);
: o# U4 R9 S3 X This_Player.SetV(13,2,0);
; r* F5 ?& H/ `( h" N* A
end;
6 w+ J4 C2 x/ j6 j; u3 ~! a, ]2 P //初始化变量值，每天首次触发，将领取变量设置为0
" ^: L( e$ |9 |1 ?8 L/ ]% H
, ?7 G. m8 m9 B, p- v. d num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
7 }. \' F3 _: \ if num < 3 then
. f& T9 L- r) Z0 W begin
- Q) Z1 |& z0 p, T6 g: X) j
This_Player.Give('经验',1000000);
$ Y2 m s2 T5 w0 [
This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
$ K( U# J& b0 ?, f8 k! ~$ w- C This_NPC.NpcDialog(This_Player,
! i% l2 R# Z, D$ Z- m, ]9 l' K" Q
'恭喜你获得100万点经验值'
; f- l. V" p& |9 G
+'|{cmd}<继续领取经验 getfreeexp="">');
, I, u: n1 X0 A, y: g( o5 m3 n" \! l) c5 f `' P
end else
6 p) Y* [% P" ]( a4 N4 A& g7 i; C, j This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
! W) F# N! A i+ N$ ^- t
end;
- y/ f! V4 j% f! D `: ]8 J- R+ u, N' A! B5 N% {7 j
begin//主函数入口
4 n$ H2 b! b/ E. h
This_NPC.NpcDialog(This_Player,
# G2 W; w4 C# s3 X0 B* \4 u '玩家每天可免费领取3次经验，每次可领取100万'
8 J% r( i1 R& V
+'|{cmd}<免费经验领取 getfreeexp="">');
5 }* t( ?# X# B- y. d n! Fend.
' t( S! F7 O/ J% t) C: W2 A
, D# s0 f( S6 b2 x- K* ?' O+ s% i2 c& B6 s% s
发表于 2025-11-15 00:40:46
