``` unit Q2; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Player.AllowSendMessage := False; //不允许发送聊天消息 //Player.AllowSendMessage := True; ---> 允许发送聊天消息 end; end. ```