Dir["Graphics/XP_Characters/*.png"].each do |path|
  filename = File.basename(path, ".png")
  next if FileTest.directory?(filename)
  bitmap = Bitmap.new(path)
  width, height = bitmap.width / 4 * 3, bitmap.height
  src_rect = Rect.new(bitmap.width / 4, 0, width, height)
  new_bitmap = Bitmap.new(width, height)
  new_bitmap.blt(0, 0, bitmap, src_rect)
  new_bitmap.save_png("Graphics/Characters/$#{filename}.png")
  p '=*' * 30
  p "行走图:#{path}"
  p '已转为VX/VA的行走图并输出到'
  p "Graphics/Characters/$#{filename}.png"
end
msgbox '素材转化结束'
exit