每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
. l/ F' X' m1 g9 h9 Z: @& ~, Q" N& W2 `2 `
; _5 D% e0 O- X& d' y5 W# J7 F
{
- m- x8 v7 k- ?* x$ Y" l9 k$ u
*******************************************************************}
) H% C4 ]* {- G( x% jProgram Mir2;
/ H2 T2 ]3 P$ H2 n
Procedure _doexit;
- b/ E0 n8 K! J% C
begin
; p3 S2 \) s G- g! v( c% _ This_NPC.CloseDialog(This_Player);
2 s* k v* }: M: Y
end;
9 v, X$ e) X1 Q3 A F- a8 d# g& n) X7 K
//==============================================================新手任务
- k# j7 Z# O% L$ |% M3 z
procedure _GetFreeExp;
% x( J0 a% D! P {: Gvar today , num: integer;
8 l/ W7 \. p5 S: c6 m" d* z4 K
begin
+ ^: s9 y1 k% p6 H6 i5 n; a today := GetDateNum(GetNow);// 获取当前日期
& N0 @3 o# Y5 `: u5 N
if This_Player.GetV(13,1) <> today then
: f( P" T; ^# b
begin
4 s3 O% }( G. Q5 G# c5 B5 m+ \
This_Player.SetV(13,1,today);
, [- \; {+ d7 \: w This_Player.SetV(13,2,0);
+ ~6 g+ S$ e/ U# i$ L6 u" X2 G+ M end;
3 b3 Z) ^. ?( q3 H* \
//初始化变量值，每天首次触发，将领取变量设置为0
6 j% a# w9 Z. S4 n h6 u5 J
8 o2 M! Q. B3 }. M num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
4 A, U( E2 |1 A" ?( h `
if num < 3 then
# ~$ v/ q/ q* `( J3 |' k1 \" n
begin
* J0 V- y: e+ C; p1 X4 w
This_Player.Give('经验',1000000);
. W4 i4 i) }! j/ n
This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
6 m4 t+ @; N% R; n This_NPC.NpcDialog(This_Player,
6 D' R* c( W7 z5 W '恭喜你获得100万点经验值'
2 `+ [( x+ ]0 B7 u
+'|{cmd}<继续领取经验 getfreeexp="">');
r0 [5 `# d8 `* ` H3 l* K
K2 K/ O) s& X3 V$ V+ l; m
end else
0 h, [ q0 L" s0 }# k( \: m
This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
2 ^- `. D! W* Y8 A" U* q, J4 Vend;
! {% B8 q& X3 [' x5 @+ V9 G5 _" B7 x2 a/ J! f5 \1 E! T
begin//主函数入口
% ?/ b3 S) R' G8 j0 c+ _5 V4 |! m
This_NPC.NpcDialog(This_Player,
& d2 m# V8 K* K+ L0 U6 y% w* `, s '玩家每天可免费领取3次经验，每次可领取100万'
; C; p- `5 _0 }. `" R +'|{cmd}<免费经验领取 getfreeexp="">');
& J! Q6 ~" ]- }' Rend.
% V* L9 @! p- c- B$ J9 ?" F
1 t, D* j- d- g+ K
* K5 Z* [% o$ A, O, I% L
发表于 2025-11-15 00:40:46
