|
每个玩家,每天免费领取三次经验脚本,是从手游服务端里面提取出来的,经过测试,领取三次之后,就无法重复领取,脚本测试过程中,没有发现任何问题,领取的经验和次数,都可以在脚本里面修改。
{
*******************************************************************}
Program Mir2;
Procedure _doexit;
begin
This_NPC.CloseDialog(This_Player);
end;
//==============================================================新手任务
procedure _GetFreeExp;
var today , num: integer;
begin
today := GetDateNum(GetNow);// 获取当前日期
if This_Player.GetV(13,1) <> today then
begin
This_Player.SetV(13,1,today);
This_Player.SetV(13,2,0);
end;
//初始化变量值,每天首次触发,将领取变量设置为0
num := This_Player.GetV(13,2); //获取已领取次数,**取值时切记写在初始化之后
if num < 3 then
begin
This_Player.Give('经验',1000000);
This_Player.SetV(13,2, num + 1); //领取变量每领取一次加一
This_NPC.NpcDialog(This_Player,
'恭喜你获得100万点经验值'
+'|{cmd}<继续领取经验 getfreeexp="">');
end else
This_NPC.NpcDialog(This_Player,'你今天已领取了3次经验');
end;
begin//主函数入口
This_NPC.NpcDialog(This_Player,
'玩家每天可免费领取3次经验,每次可领取100万'
+'|{cmd}<免费经验领取 getfreeexp="">');
end.
|
上一篇:WD GM工具专业版+易语言源代码 (源码+成品)下一篇:小棉花 王者荣耀全角色课程教程打包 严禁商业用途
|