|
每个玩家，每天免费领取三次经验脚本，是从手游服务端里面提取出来的，经过测试，领取三次之后，就无法重复领取，脚本测试过程中，没有发现任何问题，领取的经验和次数，都可以在脚本里面修改。2 w, W8 B- y! G j. }5 D
$ h4 ~7 o/ p) m' ~- ~2 b, @8 Q( b }
: H0 d3 R* P5 F% c4 M
{
% `/ F" q) @; P0 Q1 y*******************************************************************}
X# g# ^0 E) ?4 ]3 _8 X1 T- v2 v+ VProgram Mir2;8 }( X2 m0 ~ n; J* N5 P
Procedure _doexit;
9 D+ z4 X# j% q2 L' ?begin
; V, m0 S+ U& R! g This_NPC.CloseDialog(This_Player);. l+ J# n0 q2 J( M
end;9 Z3 @0 w. ?. t2 _
//==============================================================新手任务
, {1 L, ?% L7 q. j6 pprocedure _GetFreeExp;
, ^5 ~# H9 b7 s! v! R: xvar today , num: integer;: x# Z/ a& M/ B
begin
1 u4 @ z; G) ?- ?' k today := GetDateNum(GetNow);// 获取当前日期0 z1 y7 V" m. ^
if This_Player.GetV(13,1) <> today then ) p1 {7 p5 m v1 C4 K, }
begin
' [& d0 | R. h) _- B9 l/ }& |. { This_Player.SetV(13,1,today);
+ O: I' X4 u3 e3 x This_Player.SetV(13,2,0);
' W! q2 b# { |$ j1 h& n0 [ end;
- v2 z* ~, g6 j, B8 I //初始化变量值，每天首次触发，将领取变量设置为0
# i7 `1 d2 Q. f
: X [: B4 X7 {9 c) @ num := This_Player.GetV(13,2); //获取已领取次数，**取值时切记写在初始化之后
/ P; L C" S3 U: I$ | if num < 3 then
- k- R0 m$ D) J begin2 k: d5 ^" m9 R" P" m' d
This_Player.Give('经验',1000000);) z, {+ k( u, J3 P5 ]5 o, l3 q9 {
This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
" S: o2 P' u* v7 q This_NPC.NpcDialog(This_Player,
" F' \& S! w7 f+ u8 V7 ] '恭喜你获得100万点经验值'0 x8 }) l* g; J' l- }/ O/ h
+'|{cmd}<继续领取经验 getfreeexp="">');7 Q9 n1 e' |) o4 N I& ? @
$ a8 p0 y. W: K( C
end else
7 o; Z( v( P- W7 ?1 x. b This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
4 F8 o# O& ]5 yend;
! T V. Z' N: I8 K$ O) A9 y
* w4 r/ I h# i& {' x4 K8 Obegin//主函数入口) y5 |) b( A% G' z6 ^
This_NPC.NpcDialog(This_Player,# T/ H/ G# a# r7 b( ]8 k% u
'玩家每天可免费领取3次经验，每次可领取100万'/ c }* t8 z, {
+'|{cmd}<免费经验领取 getfreeexp="">');
$ G: f4 _; N& I& s0 w- |end.' b6 R+ j* X2 V6 O& @+ n. _3 |
# Q$ _' p+ N8 u) X
% ~, }! f4 H" [0 I6 ` D |
免责
帖子地址
打造全网最多免费游戏网站,部分资源失效,私聊站长补
|
发表于 2025-11-15 00:40:46