用于战神引擎红名传送Npc脚本，玩家下地图要Pk值>100才行，当然还需要等级和元宝，经常有兄弟问帮主要各种千奇百怪的脚本，帮主看到了，就提取出来，判断等级和扣除元宝下地图的脚本太多了，今天这个要PK值，也就是红名玩家才行，脚本是明文版的，可以根据自己的需要，任意修改里面的数值条件。

部分脚本

procedure _yic; 
begin
    if (This_Player.Level >= 46) and (This_Player.myPKpoint >= 100) and (This_Player.YBNum >= 2000)then
  begin                 
   This_Player.RandomFlyto('diyu2');
   This_Player.Flyto('diyu2',22 + random(3) - 1,22 + random(3) - 1); 
   This_Player.ScriptRequestSubYBNum(2000);
   ServerSay('大恶之人:[<' + This_Player.Name + '>]进入了红名才能进的[红名地狱]，希望他能活着回来！', 2);
  end else
   begin
       This_Npc.NpcDialog(This_Player,
    '进入失败：\'
   +'1.等级不足46级。|\'
   +'2.pk值不足 100 没有红名|\'
   +'3.没有 1000元宝\'
   +'|{cmd}<返回/@main>^<关闭/@doexit>'
   );   
   end;
end;
 procedure jcttt1;
	begin
if CompareText(This_Player.MapName,'D5071~11') = 0 then 
  begin
	This_Player.RandomFlyto('0159');
 //   This_Player.GroupFly('0159')
    This_Player.PlayerNotice(
           '此层时间已到.未进入下一层,传回城！!',5);
  end else
  end;
Begin
  domain;
end.