# ▽△▽ 付加属性名称判定ライブラリ ▽△▽
#
# update 2005/ 3/12
#
#==============================================================================
# --- 付加属性名称判定モジュール ---
#==============================================================================
module XRXS
  #--------------------------------------------------------------------------
  # ○ 配列が指定名の属性を持つか判定
  #--------------------------------------------------------------------------
  def XRXS.element_check(set, element_name)
    returnar = [false, 0, 0, []] # 存在したか?, 固定値の合計、%値の合計
    return returnar if !set.is_a?(Array) or set.size == 0 or element_name == ""
    for i in set
      if $data_system.elements[i] =~ /^#{element_name}([+-]?[0-9]+)?(%)?/
        returnar[0] = true
        if $2 == nil
          returnar[1] += $1.to_i
          returnar[3].push($1.to_i)
        else
          returnar[2] += $1.to_i
        end
      end
    end
    return returnar
  end
  def XRXS.element_include?(set, element_name)
    return element_check(set, element_name)[0]
  end
  def XRXS.element_amount(set, element_name)
    return element_check(set, element_name)[1]
  end
  def XRXS.element_percent(set, element_name)
    return element_check(set, element_name)[2]
  end
  def XRXS.element_numbers(set, element_name)
    return element_check(set, element_name)[3]
  end
end