月卡会员Npc脚本(有转职+变性+随时泡点+专属地图)

用于战神引擎的月卡会员npc脚本，相比之前更新的类似的脚本，这个做了一些功能方面的增强，比如添加了转职、变性、专属地图、随身泡点等功能，虽然这些功能都不算什么新的功能，但之前看到的都是要添加NPC的，现在都集成到月卡会员里面了。非常的方便，让玩家有开会员的冲动。脚本是明文版，可以任意修改里面的所有内容。

部分脚本

procedure _bianxing1;            //主号变性
begin
	if This_Player.YBNum >= 1000 then
	begin
    This_Player.ScriptRequestSubYBNum(1000);
	This_Player.SetS(1,1,3);
    ServerSay('变性系统：恭喜玩家【' + This_Player.Name + '】品尝到了变性的快感！', 3); 
	    This_Npc.NpcDialog(This_Player,'<恭喜你:变性成功.请小退方可正常游戏！/fcolor=250>|'
		+'|{cmd} <返回上页/@zhbx> ^ <关闭此页/@exit>') ;	 
    This_Player.SetS(1,1,16);     //踢玩家下线		
end
else
	    This_Npc.NpcDialog(This_Player,'<很遗憾:变性失败.元宝不足/fcolor=243> '+inttostr(GetG(108,4))+' <无法手术>！|'
		+'|{cmd} <返回上页/@bianxing> ^ <关闭此页/@exit>') ;	  	
end;
procedure _vipGo;
begin
	 This_NPC.NpcDialog(This_Player,
    '你想去哪里？我可以免费送你一程。\ \'
	+'|{cmd}<尸 王 殿/@move01>    {cmd}<生死之间/@move02>    {cmd}<沃玛三层/@move03>    {cmd}<石墓七层/@move04> \'
	+'|{cmd}<祖玛七层/@move05>    {cmd}<牛魔六层/@move06>    {cmd}<幻境三层/@move07>    {cmd}<沙藏宝阁/@move08> \'
	+'|{cmd}<快择之地/@move09>    {cmd}<幻境七层/@move10>    {cmd}<王者禁地/@move11>    {cmd}<六新衣服/@move12> \'
    );
end;
procedure _getyueka;
begin
	if This_Player.GetV(55,3) < GetDateNum(GetNow) then begin if This_Player.FreeBagNum > 5 then
				begin
					This_Player.SetV(55,3,GetDateNum(GetNow));
					This_Player.Give('月卡礼包', 1);
				end
			else
			This_NPC.NpcDialog(This_Player,
				'背包已经满了哦，请清理一下再领取吧 \ \'
			);
		end
	else
		This_NPC.NpcDialog(This_Player,
			'您已经领取过月卡礼包了哦 \ \'
		);
end;
procedure _move01;
begin
This_Player.FlyTo('Q004',15,15);
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了尸王殿！', 2);
end;
procedure _move02;
begin
This_Player.FlyTo('D613',9,51);
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了生死之间！', 2);
end;
procedure _move03;
begin
This_Player.RandomFlyTo('D024');
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了沃玛三层！', 2);
end;
procedure _move04;
begin
This_Player.FlyTo('D717',26,74);
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了石墓七层！', 2);
end;
procedure _move05;
begin
This_Player.FlyTo('D5071',8,10);
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了祖玛七层！', 2);
end;
procedure _move06;
begin
This_Player.FlyTo('D2078',250,250);
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了牛魔六层！', 2);
end;
procedure _move07;
begin
This_Player.RandomFlyTo('H003');
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了幻境三层！', 2);
end;
procedure _move08;
begin
This_Player.RandomFlyTo('H204');
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了沙藏宝阁！', 2);
end;
procedure _move09;
begin
This_Player.FlyTo('D1004',171,88);
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了快择之地！', 2);
end;
procedure _move10;
begin
This_Player.FlyTo('H007',161,172);
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了幻境七层！', 2);
end;
procedure _move11;
begin
This_Player.RandomFlyTo('H106');  
ServerSay('玩家<' + This_Player.Name + '>从会员服务免费进入了王者禁地！', 2);
end;
procedure _move12;
begin
    This_NPC.NpcDialog(This_Player,
'|{cmd}<死亡神殿/@yifu01>    {cmd}<地狱烈焰/@yifu02>    {cmd}<钳虫巢穴/@yifu03> \'
+'|{cmd}<堕落坟场/@yifu04>    {cmd}<困惑殿堂/@yifu05>    {cmd}<深渊魔域/@yifu06> \'
);
end;
procedure _yifu01;
begin 
   if compareText(This_Player.MapName,'3') = 0 then
      This_Player.Flyto('4',205,218);
end; 
procedure _yifu02;
begin 
   if compareText(This_Player.MapName,'3') = 0 then
      This_Player.Flyto('0',428,474);
end; 
procedure _yifu03;
begin 
   if compareText(This_Player.MapName,'3') = 0 then
      This_Player.Flyto('11',343,325);
end; 
procedure _yifu04;
begin 
   if compareText(This_Player.MapName,'3') = 0 then
      This_Player.Flyto('1',320,56);
end; 
procedure _yifu05;
begin 
   if compareText(This_Player.MapName,'3') = 0 then
      This_Player.Flyto('R001',55,94);
end; 
procedure _yifu06;
begin 
   if compareText(This_Player.MapName,'3') = 0 then
      This_Player.Flyto('1',215,312);
end;
procedure _vipGo1;  
  begin                 
    This_Player.CallOut(This_Npc, 1, 'MFBG31');
    //This_Player.RandomFlyTo('Q004~4');
	   ServerSay('玩家<' + This_Player.Name + '>从会员服务开启了随身泡点,每秒享受18888经验！', 2);
   end;
   procedure MFBG31;
   begin
   if This_Player.Level <= 70 then
 //  begin
//   if CompareText(This_Player.MapName,'Q004~4') = 0 then
  begin
    This_Player.CallOut(This_Npc, 1, 'MFBG31');
    This_Player.Give('经验',18888);
  // end; 
  end  
   else   
  begin
       This_Player.FlyTo('3', 333, 333);
       This_Npc.NpcDialog(This_Player,
   '等级超过70级。'
   );   
  end;  
 end;
procedure _clearmember;
begin
	This_Player.SetV(55,1,0);
		This_Player.SetV(55,2,0);
		This_Player.SetV(55,3,0);
end;

分享到：

赞(0)