``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Npc.MessageBox(Player, '服务器名称是:'+Gamelib.ServerName); end; ```