``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.SendMessage('你的IP地址是:' + Player.IP); Player.SendMessage('你的IP地址来源是:' + Player.IPLocal); Player.SendMessage('你的机器码是:' + Player.MachineCode); end; ```