求一个自动安装字体的脚本！！

失去的记忆

谁有自动安装字体脚本啊？
给小弟一个呗！

枪胜贤者

#==============================================================================
# ■ Main
#------------------------------------------------------------------------------
# 　各定义结束后、从这里开始实际处理。
#==============================================================================

begin
  # 准备过渡
  # 设置系统默认字体
  
  Font.default_name = (["黑体","宋体","楷体_GB2312","黑体"])
  Mess_Text.ini
  Graphics.freeze
  #Graphics.frame_rate = 60
  #$DEBUG = true
  # 生成场景对像 (标题画面)
  if FileTest.exist?("Save/NoTitle.rxdata")
    print("如果要显示LOGO,请把NoTitle.rxdata文件从Save文件夹删除!")
    $scene = Scene_Title.new#Title.new#Logo.new
  else
    print("如果要去掉LOGO,请把NoTitle.rxdata文件放入Save文件夹!")
    $scene = Scene_Logo.new
  end
  # $scene 为有效的情况下调用 main 过程
  begin
  while $scene != nil
    $scene.main
  end
  rescue SystemExit
  if $scene.is_a?(Scene_Map) and !$refresh["mess"] and !$game_system.map_interpreter.running?
    Scene_Save.new.on_decision("Save/Save4.rxdata")
  end
  end
  # 淡入淡出
  Graphics.transition(20)
#rescue Hangup#Errno::ENOENT
  # 补充 Errno::ENOENT 以外错误
  # 无法打开文件的情况下、显示信息后结束
# filename = $!.message.sub("No such file or directory - ", "")
  #print("#{filename}丢失,无法继续正常游戏。 ")
  #print("天外之音:\n你的电脑  配置低  或者  内存不足\n什么?都不是,那就是你电脑卡- -\n \n[PS:不适宜玩本游戏- -]")
#end
rescue Hangup
  retry
end