``` 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.OpenBag; //打开背包,等同于F9 Player.OpenMailbox; //打开邮箱 Player.OpenMarket; //打开市场 Player.OpenShop; //打开商城 end; end. ```