最简洁的烈焰私服红名追杀榜点击直达红名所在处

function ontalk2111(npc,event,player)
 player:echo(0,npc:GetLowGUID(),[[
本榜单上显示的全是十恶不赦的大红名。如果您单身前往可能有危险，建议联系盟友组队前往追杀. <u><a href='event:M2402,0'>刷新位置</a></u>
#&talk_line#&
]]);
 local i=0;
 for k,v in pairs(GetPlayersInWorld()) do
  if v:get_pk_value()>=300 then
i=i+1;
player:echo(0,npc:GetLowGUID(),[[玩家：<font color="#FFFF00">]]..v:GetName()..[[(Lv]]..v:get_level()..[[)</font>,PK值：<font color="#FFFF00">]]..v:get_pk_value()..[[</font> 所处：<font color="#FFFF00">]]..MapIdToMapName[v:GetMapId()]..[[</font>
所在坐标：]]..v:GetX()..[[,]]..v:GetY()..[[ <a href='event:M2402,]]..k..[['><u>前往追杀</u></a>
]]);
  end
 end
 if i==0 then
player:echo(0,npc:GetLowGUID(),[[
恭喜：
本服玩家都是良好市民，目前没有需要追杀的红名玩家.请稍后再来.

#&talk_line#&
yeyo6.com 倾力打造
]]);
 end
end

function CreatureNpcFun(npc,event,player,funid)
 if funid ==0 then
  ontalk2111(npc,event,player);
 end
 for i,v in pairs(GetPlayersInWorld()) do
  if funid == i then
   player:enter_map(v:GetMapId(),v:GetX(),v:GetY());
  end
 end
end

RegisterUnitEvent(2111,20,"ontalk2111")
RegisterUnitEvent(2111,29,"CreatureNpcFun")