战神引擎组队传送下地图Npc脚本

用于战神引擎组队传送Npc脚本，必须要2个以上的玩家，完成组队，然后由队长通过NPC，直接传送，这种脚本之前有好几个GM文件帮主有没有，今天终于在测试一个版本里面发现了，就提取出来了，经过帮主亲自测试，功能完整，脚本有些复杂，不懂的，建议只修改地图和使用时间就行，其他的不懂建议别动。

战神引擎组队传送下地图Npc脚本

部分脚本

if CheckOtherMapHum('632~8') < 1 then 
begin
This_Player.ScriptRequestSubYBNum(50000);
  This_Player.GroupFly('632~8');
  	 ServerSay('★玩家<'+This_Player.Name+'>进入了众神之路·简单⑧★',2);
  if (This_NPC.CheckMapMonByName('632~8','阿努比斯') < 1) then
  begin
    This_NPC.CreateMon('632~8',98,128,300,'阿努比斯',3);
	This_NPC.CreateMon('632~8',98,128,300,'腐烂秃鹫',20);
	This_NPC.CreateMon('632~8',98,128,300,'魔龙奴仆',20);
	This_NPC.CreateMon('632~8',98,128,300,'神祗奴仆',20);
	This_NPC.CreateMon('632~8',98,128,300,'炎魔奴仆',20);
	This_NPC.CreateMon('632~8',98,128,300,'地狱奴仆',20);
end;
	end else
 This_Npc.NpcDialog(This_Player,'<当前地图已经有人了/fcolor=254>' );
end;
procedure _jiandan9;
begin
   if not This_Player.IsGroupOwner then
     begin
        This_Npc.NpcDialog(This_Player,'<你不是队长无法进入/fcolor=254>' );
        Exit;
     end;
	 if This_Player.level < 66 then
   begin
    This_Npc.NpcDialog(This_Player, '<等级太低/fcolor=254>' );
		 Exit;
     end;
	  if This_Player.YBnum <= 50000 then 
   begin
    This_Npc.NpcDialog(This_Player, '<元宝不足/fcolor=254>' );
		 Exit;
     end;
if CheckOtherMapHum('632~9') < 1 then 
begin
This_Player.ScriptRequestSubYBNum(50000);
  This_Player.GroupFly('632~9');
  	 ServerSay('★玩家<'+This_Player.Name+'>进入了众神之路·简单⑨★',2);
  if (This_NPC.CheckMapMonByName('632~9','阿努比斯') < 1) then
  begin
    This_NPC.CreateMon('632~9',98,128,300,'阿努比斯',3);
	This_NPC.CreateMon('632~9',98,128,300,'腐烂秃鹫',20);
	This_NPC.CreateMon('632~9',98,128,300,'魔龙奴仆',20);
	This_NPC.CreateMon('632~9',98,128,300,'神祗奴仆',20);
	This_NPC.CreateMon('632~9',98,128,300,'炎魔奴仆',20);
	This_NPC.CreateMon('632~9',98,128,300,'地狱奴仆',20);
end;
	end else
 This_Npc.NpcDialog(This_Player,'<当前地图已经有人了/fcolor=254>' );
end;
procedure _jiandan10;
begin
   if not This_Player.IsGroupOwner then
     begin
        This_Npc.NpcDialog(This_Player,'<你不是队长无法进入/fcolor=254>' );
        Exit;
     end;
	 if This_Player.level < 66 then
   begin
    This_Npc.NpcDialog(This_Player, '<等级太低/fcolor=254>' );
		 Exit;
     end;
	  if This_Player.YBnum <= 50000 then 
   begin
    This_Npc.NpcDialog(This_Player, '<元宝不足/fcolor=254>' );
		 Exit;
     end;
if CheckOtherMapHum('632~10') < 1 then 
begin
This_Player.ScriptRequestSubYBNum(50000);
  This_Player.GroupFly('632~10');
  	 ServerSay('★玩家<'+This_Player.Name+'>进入了众神之路·简单⑩★',2);
  if (This_NPC.CheckMapMonByName('632~10','阿努比斯') < 1) then
  begin
    This_NPC.CreateMon('632~10',98,128,300,'阿努比斯',3);
	This_NPC.CreateMon('632~10',98,128,300,'腐烂秃鹫',20);
	This_NPC.CreateMon('632~10',98,128,300,'魔龙奴仆',20);
	This_NPC.CreateMon('632~10',98,128,300,'神祗奴仆',20);
	This_NPC.CreateMon('632~10',98,128,300,'炎魔奴仆',20);
	This_NPC.CreateMon('632~10',98,128,300,'地狱奴仆',20);
end;
	end else
 This_Npc.NpcDialog(This_Player,'<当前地图已经有人了/fcolor=254>' );
end;
//==========================================================主号转职开始
Begin
	doMain;		
end.

分享到：

赞(1)