每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
; d# P/ f3 e% [: D, l
- H2 o- H3 {! r
8 u1 f: B! p/ d8 G9 b4 j7 ~1 p' U r
{
1 C, X! l c" F T8 f
*******************************************************************}
5 Y1 Q( D4 l) y* X$ d( R
Program Mir2;
+ \- Q) s) X/ L9 h4 g
Procedure _doexit;
" g9 E3 |$ v3 E( e/ J8 t0 t1 Ibegin
% v) k8 ?: o9 N9 A- n
This_NPC.CloseDialog(This_Player);
4 h! D1 G1 q9 q& E
end;
% ?$ ?( d& I2 S: B; q//==============================================================新手任务
$ R+ S- j: A N e9 t. ]& u
procedure _GetFreeExp;
% d9 I' ]9 b3 m2 k; Q
var today , num: integer;
; U% t$ l. i5 j( Y) A! O1 ~3 {
begin
3 q; g7 V3 S6 X5 c1 N' {+ q
today := GetDateNum(GetNow);// 获取当前日期
' Y% A% ]/ e0 u* O
if This_Player.GetV(13,1) <> today then
1 D5 e3 f2 U, d4 C' y begin
' c# P4 N( ~) v* _7 H: ^9 g9 {) d
This_Player.SetV(13,1,today);
" V) ^; g9 |- q1 X/ `
This_Player.SetV(13,2,0);
+ P: C" a" |: p end;
9 `4 i" W& t% ~
//初始化变量值，每天首次触发，将领取变量设置为0
- G% ]* g* _1 l G* ? }0 _# M8 j/ h5 G) A+ o$ Q
num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
7 c$ V5 z* m" d" N) ?* P+ @1 B( _ if num < 3 then
; O7 V7 Z" p* q2 c1 @3 j2 a/ e
begin
( }3 k3 ]+ D6 P1 _: ]2 }( `' n This_Player.Give('经验',1000000);
1 j* }$ @# c1 C' G1 u: L+ k This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
) p* i% ^, B. ]8 V5 o& T This_NPC.NpcDialog(This_Player,
9 ?: s9 k2 e* Q- b9 J1 p
'恭喜你获得100万点经验值'
: B7 q5 W: J: A( s I/ {
+'|{cmd}<继续领取经验 getfreeexp="">');
3 n0 H' S* P! L9 s
' d3 [/ W. J( L
end else
' b1 B* a" B+ |, i# {. O
This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
. M; }/ }. d) k2 K$ @4 J. _" rend;
: U& f2 U' e$ @
. o7 b2 L! h* c8 w5 F5 x
begin//主函数入口
. ?. K" e' j! u, u: b: C2 t This_NPC.NpcDialog(This_Player,
8 E+ f. F1 M; ?* _# |
'玩家每天可免费领取3次经验，每次可领取100万'
. w# Z7 k7 X: ]. W& E& S2 X +'|{cmd}<免费经验领取 getfreeexp="">');
/ d1 n6 o/ r) d8 j: b# ?8 B+ T2 dend.
2 C: y) I3 v" T
: n$ ]- l$ m6 V( d% x
& x* F5 E5 H4 r& m
发表于 2025-11-15 00:40:46
