每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
! [7 b& r, w# M1 V9 U. j( G! F+ ~; A
$ E; r' f: B% a
{
: X8 o4 G6 O, i* k
*******************************************************************}
6 x6 O$ ~3 K" k. H1 r9 C9 C) W! wProgram Mir2;
3 p7 Z. v# w- f% H
Procedure _doexit;
0 D; X& a: v% j4 b' }8 R
begin
( _( \, W5 A% |, |8 {* N This_NPC.CloseDialog(This_Player);
2 e, k% |5 u2 Y' ]) {end;
+ U' s( ^" p! S- j
//==============================================================新手任务
( t: s, t4 {5 `9 w" q1 G
procedure _GetFreeExp;
, ^& }+ g4 e p% v I
var today , num: integer;
4 N! l' e$ r8 v, |begin
: }2 Z/ k: d, ?; p; |! }0 f. H1 s
today := GetDateNum(GetNow);// 获取当前日期
- M& _; m6 a' O& J
if This_Player.GetV(13,1) <> today then
' \" e9 t/ ~4 T& H
begin
, y; k. D: f6 @) P
This_Player.SetV(13,1,today);
7 H' J( P( Z8 j1 q8 c# Z
This_Player.SetV(13,2,0);
( M0 E) G$ G9 _; i0 ? end;
5 M9 ?( `* Z4 R+ \6 p
//初始化变量值，每天首次触发，将领取变量设置为0
+ {3 k% Y5 i5 g3 b. r" j/ m
2 E6 I' Z2 i# Y& C num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
( Y a* c% h. u5 G$ ~4 N if num < 3 then
2 `2 O5 a( X3 {; ~ begin
/ z4 X) E5 s' F6 J
This_Player.Give('经验',1000000);
D8 g) g6 Z5 w5 T/ O' S* N
This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
0 S4 T% I& b7 `4 Q
This_NPC.NpcDialog(This_Player,
4 l. U8 J6 T- `/ R o9 P" e '恭喜你获得100万点经验值'
. }: S9 I# p$ M5 e* Y( W
+'|{cmd}<继续领取经验 getfreeexp="">');
# J y4 H( i# X9 ^* l3 k+ S8 ^8 Y. y2 Z- r$ u
end else
+ y/ L9 c* Y1 D, \3 d3 \1 S
This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
( z9 q, I r! v; b
end;
1 S# N4 J t( C- I; U; }6 Z& T0 e8 ^$ s8 J$ Q( G; s
begin//主函数入口
9 R7 R: t6 x9 P) a This_NPC.NpcDialog(This_Player,
% S! V5 k4 P2 ^* i! o ?& O, m6 ]
'玩家每天可免费领取3次经验，每次可领取100万'
5 } x6 c: V- i0 {1 r! W' z5 B
+'|{cmd}<免费经验领取 getfreeexp="">');
! g) g( n- v% z, C) \# L' k
end.
' ]; s" @5 F. U% L) A( e& S3 W0 j6 i
' X- B. Q: e! W# r& i# j1 g& a
发表于 2025-11-15 00:40:46