用于战神引擎的会员NPC脚本，当然，你也可以去掉会员判断，无条件使用，脚本有6个功能，名字变色(要结合盘古插件)、随时泡点、礼包、仓库、买药、打捆。脚本是明文版的，可以任意增减里面的服务内容和服务条件。

盘古设置

部分脚本

program Mir2;
{$I common.pas}
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
Procedure domain;
begin
	 if This_Player.GetV(55,1) <> 1 then
	    begin
		    This_Player.SetV(55,1,0);
			This_Player.SetV(55,2,0);
			This_Player.SetV(55,3,0);
			This_NPC.NpcDialog(This_Player,
			   '您不是月卡会员！！ \ \'
			 );
		end
	else
		begin
			 if GetDateNum(GetNow) - This_Player.GetV(55,2) < 31 then
					begin
						 This_NPC.NpcDialog(This_Player,
						   '您需要什么服务？ \ \' 
	                       +'|{cmd}<领取礼包/@getyueka>  ^<会员仓库/@storage>  ^<随身泡点/@suishen11> ' 
	                       +'|{cmd}<打捆玫瑰/@storage111111> ^<会员买药/@maiyao11>^<名字变色/@test36>'	
	                       +'|{cmd}<离开/@Exit>'						   
						 );
					end
			else
					begin
					This_Player.SetV(55,1,0);
					This_Player.SetV(55,2,0);
					This_Player.SetV(55,3,0);
					This_Player.PlayerDialog('你的月卡会员时间已经到期');
					end;
		end;
end;
procedure _test36;
var color : Integer;
begin
	color := random(256);
	This_Player.PlayerNotice(inttostr(color),0);
	This_Player.SetS(1,2,color);//设置名字颜色
		This_Player.StrParam := '1|'+ '<武易会员>';
end;
procedure _maiyao11;
Begin
   This_Npc.NpcDialog(This_Player,
   '金色橡树果《10000金币1个》。\'
	+'|{cmd}<3个/@yigeguo>  ^<5个/@yigeguo3>  ^<10个/@yigeguo5> ' 
   );
end;
procedure _yigeguo5;
 begin
if This_Player.GoldNum >=50000 then
   begin
        This_Player.DecGold(50000);
        This_Player.Give('金色橡树果',10);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'金币不足'); 
  end; 
procedure _yigeguo3;
 begin
if This_Player.GoldNum >=30000 then
   begin
        This_Player.DecGold(30000);
        This_Player.Give('金色橡树果',5);
; 
    end
	else
        This_NPC.NpcDialog(This_Player,
		'金币不足'); 
  end; 
procedure _yigeguo;
 begin
if This_Player.GoldNum >=10000 then
   begin
        This_Player.DecGold(10000);
        This_Player.Give('金色橡树果',3);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'金币不足'); 
  end; 
procedure _storage111111;
Begin
   This_Npc.NpcDialog(This_Player,
   '打捆玫瑰 《10朵一捆》。\'
   +'|{cmd}<捆红玫瑰/@dakun1>  ^<捆蓝玫瑰/@dakun2> ' 
   +'|{cmd}<拆红玫瑰/@dakun3>  ^<拆蓝玫瑰/@dakun4> ' 
   );
end;
procedure _dakun1;
 begin
 if This_Player.GetBagItemCount ('红玫瑰') >= 10 then
   begin
        This_Player.Take('红玫瑰',10);
        This_Player.Give('打捆红玫瑰',1);
        This_NPC.NpcDialog(This_Player,
		'成功'); 
    end
	else
        This_NPC.NpcDialog(This_Player,
		'红玫瑰不足'); 
  end;