用于战神引擎的月卡会员Npc脚本，方便你们自己添加，但月卡功能涉及到计时器，牵扯了到2个文件，登陆脚本和CommonScripts，你们在添加的时候，要记得，如果不熟悉，可以参照一下176天堂复古版本，里面有完整的，这个脚本也是从里面提取的。脚本有体验天卡、月卡、季卡、年卡，还有会员免费领取每日奖励还对应的传送地图，脚本是明文版的，可以任意修改里面的内容。只要你懂就行。
部分脚本
program mir2;
{$I common.pas}
procedure _Exit;
begin
This_Npc.CloseDialog(This_Player);
end;
Procedure domain;
//var today , var regday,var exday,typ: integer,flg: integer;
begin
This_Player.CallOut(This_NPC,1,'xunhuan');
//flg := This_Player.GetV(55,1);
//GetV(55,1) = 1 是会员 <>1 不是会员
if (GetDateNum(GetNow) - This_Player.GetV(55,2) < 30) and (GetDateNum(GetNow) - This_Player.GetV(56,2) < 90) and (GetDateNum(GetNow) - This_Player.GetV(57,2) < 365) and (GetDateNum(GetNow) - This_Player.GetV(58,2) < 1) then
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统//SCOLOR=253> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
'您已经聚集了所有的会员。 |\'+
+'|{cmd}<会员服务/@member2> '
);
//end;
end else
if (GetDateNum(GetNow) - This_Player.GetV(55,2) < 30) and (GetDateNum(GetNow) - This_Player.GetV(56,2) < 90) and (GetDateNum(GetNow) - This_Player.GetV(57,2) < 365)then
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统//SCOLOR=253> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
'您已经月卡,季卡，年卡会员。 |\'+
+'|{cmd}<体验会员/@buy0> \'
+'|{cmd}<会员服务/@member2> '
);
end else
if (GetDateNum(GetNow) - This_Player.GetV(55,2) < 30) and (GetDateNum(GetNow) - This_Player.GetV(56,2) < 90) then
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统/c=red> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
'您已经是月卡和季卡会员。 |\'+
+'|{cmd}<体验会员/@buy0> {cmd}<年卡会员/@buy3>\'
+'|{cmd}<会员服务/@member1> '
);
//end;
end else
if (GetDateNum(GetNow) - This_Player.GetV(56,2) < 90) and (GetDateNum(GetNow) - This_Player.GetV(57,2) < 365) then
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统/c=red> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
'您已经是季卡和年卡会员。 |\'+
+'|{cmd}<体验会员/@buy0> {cmd}<月卡会员/@buy1>\'
+'|{cmd}<会员服务/@member2> '
);
//end;
end else
if GetDateNum(GetNow) - This_Player.GetV(55,2) <= 30 then
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统/c=red> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
'您已经是月卡会员。 |\'+
+'|{cmd}<体验会员/@buy0> {cmd}<季卡会员/@buy2> {cmd}<年卡会员/@buy3>\'
+'|{cmd}<会员服务/@member> '
);
//end;
end else
if GetDateNum(GetNow) - This_Player.GetV(56,2) < 90 then
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统/c=red> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
'您已经是季卡会员。 |\'+
+'|{cmd}<体验会员/@buy0> {cmd}<月卡会员/@buy1> {cmd}<年卡会员/@buy3>\'
+'|{cmd}<会员服务/@member1> '
);
end else
if GetDateNum(GetNow) - This_Player.GetV(57,2) < 365 then
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统/c=red> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
'您已经是年卡会员。 |\'+
+'|{cmd}<体验会员/@buy0> {cmd}<月卡会员/@buy1> {cmd}<季卡会员/@buy2>\'
+'|{cmd}<会员服务/@member2> '
);
end else
if (GetDateNum(GetNow) - This_Player.GetV(58,2) < 1) then
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统/c=red> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
'您已经是体验会员。 |\'+
+'|{cmd}<月卡会员/@buy1> {cmd}<季卡会员/@buy2> {cmd}<年卡会员/@buy3>\'
+'|{cmd}<会员服务/@member3> '
);
end else
begin
This_NPC.NpcDialog(This_Player,
'<你好，在这里我可以加入会员系统/c=red> |\'+
'<会员可以进入全部地图且不限制等级哦。/SCOLOR=254> |\'+
'<会员分为：体验会员,月卡,季卡,年卡四种会员/SCOLOR=251> |\'+
+'|{cmd}<体验会员/@buy0> {cmd}<月卡会员/@buy1> {cmd}<季卡会员/@buy2> {cmd}<年卡会员/@buy3>\'
);
end;