``` 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.PlaySound('Wav\0001.wav'); //播放声音文件,首先从Resources目录下搜索,如果文件不存在再找游戏的Wav目录 end; end. ```