``` 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.OpenURL('http://www.baidu.com', 800, 600); //打开百度首页,窗口大小为800X600 end; end. ```