每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
/ E, ]" D% |( |0 a! q& @5 \
6 Y/ `7 J7 f/ [3 d ^" p5 u
% t k) C& ?% m: }) \5 K* `5 P
{
6 C2 z; o6 A, H( h! P6 ?+ D*******************************************************************}
% s# v: b& {- g7 p: B8 t3 D
Program Mir2;
6 y! g8 Q2 G# J! sProcedure _doexit;
0 W7 i6 y9 I r( g. E- ]6 K* ?& b
begin
" f0 Q8 @0 Q$ z( X6 d* m This_NPC.CloseDialog(This_Player);
3 D/ y3 Z5 r% \' b6 H! l) Send;
# i6 {( O" H$ Y6 G" s# I% U; z//==============================================================新手任务
2 @$ }/ t4 `7 M4 Eprocedure _GetFreeExp;
: F1 i( I* h- D' ]% y1 ~var today , num: integer;
, K9 j0 E4 T9 X* Q# {9 ]# j5 q
begin
{- ^. Z$ m4 P* J& Y7 g* k today := GetDateNum(GetNow);// 获取当前日期
9 @+ P( m- s1 I& p
if This_Player.GetV(13,1) <> today then
# Z% i5 N( W6 {- z2 m- i
begin
% u/ f8 f2 M; Y
This_Player.SetV(13,1,today);
: a6 [: A. P4 U/ C7 ?' g This_Player.SetV(13,2,0);
2 G5 ^& o6 ^' \% R1 }7 e
end;
; c I' X/ q+ e& k' u! {# _
//初始化变量值，每天首次触发，将领取变量设置为0
+ O! ]4 N# h, o; V# F
! x# _* C- O n9 C( Q8 H4 Q num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
! N2 o% W& h( O if num < 3 then
0 Y- l. Y( [; M8 h& F! o8 j
begin
. k( }5 U& [) W3 q
This_Player.Give('经验',1000000);
5 S3 X! E. i' O7 J/ @2 Q( n2 g
This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
: q9 m3 U: M% i$ d" K) y. p
This_NPC.NpcDialog(This_Player,
4 Q0 W* ^7 f, I '恭喜你获得100万点经验值'
# q$ K3 w0 y! H' V+ x2 }% y
+'|{cmd}<继续领取经验 getfreeexp="">');
: ` \+ Z1 P3 S! j
9 c- B# X5 w& D2 | end else
. x0 c* { C: {! [0 \4 {1 d
This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
, I6 l$ h! A3 _0 w: x7 Lend;
2 o1 I8 F6 e. p. m+ `8 m g) d; q
5 f9 D- u- A# obegin//主函数入口
$ q8 a, y! z8 C4 j
This_NPC.NpcDialog(This_Player,
( @% }2 o" y Q+ ^ [ '玩家每天可免费领取3次经验，每次可领取100万'
9 ]- b8 U: D! C" [ +'|{cmd}<免费经验领取 getfreeexp="">');
' k5 O+ ~" u1 u& H5 Eend.
8 {' i8 B, f1 r& x+ U) T
( s! ^+ {* s' L1 ]: Y, B8 n6 l2 q, I, T* `
发表于 2025-11-15 00:40:46