每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。
3 o8 X) D% |- l+ q7 ]
0 V: {9 U7 `) V* b; ?& R- U( s+ h& S0 w s
{
7 n7 o" a# [/ ~/ t# S*******************************************************************}
! W2 z: }% N4 {7 E6 zProgram Mir2;
9 E; [3 J% N$ I3 A! N" T9 z! t" o
Procedure _doexit;
- o6 u9 g2 v6 Z9 Vbegin
* Y1 u! {9 u) }
This_NPC.CloseDialog(This_Player);
+ G3 O- e9 K7 iend;
, G+ f4 z' p" t- @. h//==============================================================新手任务
a& S: F$ P% F6 Q7 hprocedure _GetFreeExp;
. \. s6 b5 I* {4 d! w
var today , num: integer;
8 Q- q* j$ H. w% @9 @4 i' K& p" w
begin
/ S: U5 |' I# R. B2 h* a/ k
today := GetDateNum(GetNow);// 获取当前日期
# P; ]3 `/ |" |. R4 N' P q: O; X0 p
if This_Player.GetV(13,1) <> today then
, j$ j; ]7 k% p, A. Z' v0 A/ B
begin
, p1 _/ [ U' `/ X# l8 k# v$ U1 N
This_Player.SetV(13,1,today);
# I8 ?0 M; f' E3 Z% D This_Player.SetV(13,2,0);
7 n8 A( i9 n* z end;
" _9 F$ _* x0 y# R5 e //初始化变量值，每天首次触发，将领取变量设置为0
7 y0 h' E3 T4 n/ v
4 u/ W y% I' m P1 ~& C% {- E num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
5 }/ v& H( G! r* N J7 W if num < 3 then
1 D& g" a5 M, B! ]/ G. j
begin
- G0 q0 b& M/ ^( D; w8 _" K
This_Player.Give('经验',1000000);
! J! p; J7 E4 \1 ] This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
0 t# R! r4 D* s7 \4 \& O
This_NPC.NpcDialog(This_Player,
# G" O H g' W
'恭喜你获得100万点经验值'
+ `: s. W9 ?' n/ `, ?: E2 O
+'|{cmd}<继续领取经验 getfreeexp="">');
/ u# L3 a9 Z% l5 S0 S: @- N. ]6 M0 H0 i7 g- f7 L
end else
0 |* e0 d3 s( W P- r0 S. V
This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
* Z& x* H) u. x5 n5 ^end;
w5 d5 R: _' D0 K0 e
* m( C* L5 \) dbegin//主函数入口
) d& o! n0 P, H" W# d0 x This_NPC.NpcDialog(This_Player,
- b: z/ E% i0 W8 |
'玩家每天可免费领取3次经验，每次可领取100万'
- J: t( D0 R0 ~5 L& x: \
+'|{cmd}<免费经验领取 getfreeexp="">');
& e$ e2 I+ w3 }* T1 w1 f: Rend.
% p1 k: Z$ a7 i
' O: N$ ~- T- s6 h
8 R8 b' u- v1 ]1 o) O, n
发表于 2025-11-15 00:40:46