``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin if Player.Guild <> nil then begin if Player.Guild.DropRankName('猛虎队') then //删除一个指定的称号,其下的全部成员进入普通成员 Player.Messagebox('称号删除成功'); if Player.Guild.UpdateRankName('菜鸟队', '猛虎队') then //将一个称号修改成新的称号,新的称号必须是不存在的 Player.Messagebox('称号修改成功'); end; end; ```