``` 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.CreditPoint := Player.CreditPoint + 110; //调整声望值 Player.RecalcAbilitys; //刷新属性并更新到客户端 end; end. ```