``` 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.Messagebox(Format('你当前共有%d封邮件,其中%d封未读!', [Player.MailCount{邮件数量}, Player.MailUnreadCount{未读邮件数量}])); end; end. ```