``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.ActiveTitle <> nil then begin //ActiveTitle即人物当前设置的称号 end; end; ```