``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.Guild <> nil then begin if Player.Guild.AddRankName(2{称号编号,不可重复}, '猛虎队'{称号名称,不可重复}) then Player.Messagebox('称号添加成功'); end; end; ```