``` unit Q55; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var APlay: TPlayObject; begin Player.SendMessage('你的机器码是:'+ Player.MachineCode); APlay := Gamelib.FindPlayer('张三'); //查找一个玩家 if APlay <> nil then //如果玩家存在(在线) begin if APlay.MachineCode = Player.MachineCode then //如果当前玩家和查找到的玩家的机器码相同 Player.SendMessage('你和张三在同一电脑上游戏！！！'); end; end; end. ``` >[danger] **//机器码格式为： XXXX-XXXX-XXXX-XXXX**