月卡会员Npc脚本(支持四种类型)

用于战神引擎的月卡会员Npc脚本，方便你们自己添加，但月卡功能涉及到计时器，牵扯了到2个文件，登陆脚本和CommonScripts，你们在添加的时候，要记得，如果不熟悉，可以参照一下176天堂复古版本，里面有完整的，这个脚本也是从里面提取的。脚本有体验天卡、月卡、季卡、年卡，还有会员免费领取每日奖励还对应的传送地图，脚本是明文版的，可以任意修改里面的内容。只要你懂就行。

月卡会员Npc脚本(支持四种类型)

部分脚本

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;

分享到：

赞(0)