if $TEST

a, b = [], 0
text = "●" + load_data("Data/System.rvdata").game_title + "のイベント数●\n"
infos = load_data("Data/MapInfos.rvdata")
for i in 0..999
  filename = sprintf("Data/Map%03d.rvdata", i)
  next unless FileTest.exist?(filename)
  map = load_data(filename)
  a.push [map.events.keys.size, i, infos[i].name]
  b += map.events.keys.size
end

text += "・ゲーム内イベント数合計：" + b.to_s + "\n"
text += "・マップ数：" + a.size.to_s + "\n"
c = (b * 1.00 / a.size)
text += "・平均イベント密度：" + sprintf("%.2f", c).to_s + "個\n"
for i in a.sort.reverse
  text += " MAPID："
  case i[1].to_s.size
    when 1 ; text += "  " + i[1].to_s
    when 2 ; text += " " + i[1].to_s
    else ; text += i[1].to_s
  end
  text += " イベント数：" + i[0].to_s + " マップ名：" + i[2] + "\n"
end

File.open("使用イベント数一覧.txt", "w") do |file|
  file.write(text)
end

end