L&B CG系统报错

泥路留痕

第一次发帖，请各位包涵。
标题：为什么L&B CG系统报错，请求解决方案。
因为脚本简单，故不提供工程和图片，请见谅。
随意新建工程，将以下脚本粘贴入工程。（注释为原作者添加，脚本第46行报错，已标记。错误原因：include?未定义。）
此脚本只需在事件中显示过前缀为cg的并且在PICYURES文件夹下的图片，即可自动存入数据库。（Graphics/Pictures/cg*）
望各位能够指出错误，谢谢！
=begin
class RPG::System
  def cg_open
    if @cg_open.nil?
      return (@cg_open = [])
    else
      return @cg_open
    end
  end
end
=end
class Interpreter
  alias baozi_is_a_gay_command_231 command_231
  def command_231
    $cg_list |= ["Graphics/Pictures/#{@parameters[1]}"]
    save_data($cg_list, "Data/CG_List.rxdata")
    baozi_is_a_gay_command_231
  end
  def open_all_cg
    arr = Dir["Graphics/Pictures/cg*"]
    arr.delete(".")
    arr.delete("..")
    arr.each{|line| line[-4,4] = ""}
    $cg_list |= arr
    save_data($cg_list, "Data/CG_List.rxdata")
  end
end
class Scene_CG
  def main
    #changeTitle("CG鉴赏".to_ansi + "\000")
    @preview = []
    @bg = Window_Base.new(0,0,640,480)
    @bg.z = -1000
    @secected = -1
    @cg_detail = Sprite.new

    arr = Dir["Graphics/Pictures/cg*"]
    arr.delete(".")
    arr.delete("..")
    arr.each{|line| line[-4,4] = ""}
    #@cgs = arr & $cg_list
    #for i in 0...arr.size
    #  if arr[i]
    @cgs = arr
    for bn in 0...arr.size
      if $cg_list.include?(arr[bn])###########################这里报错！！！###################
        s = Sprite.new
        s.bitmap = Bitmap.new(arr[bn])
        s.zoom_x = 0.2
        s.zoom_y = 0.2
        s.z = 999
        s.x = bn % 4 * 160 + 16
        s.y = (bn / 4).truncate * 120 + 16
        @preview.push(s)
      else
        s = Sprite.new
        s.bitmap = Bitmap.new(128,96)
        s.bitmap.draw_text(0,(96 - 32)/2,128,32,"未取得此CG",1)
        s.z = 999
        s.x = bn % 4 * 160 + 16
        s.y = (bn / 4).truncate * 120 + 16
        @preview.push(s)
      end
    end
    Graphics.transition
    # 主循环
    loop do
      # 刷新游戏画面
      Graphics.update
      # 刷新输入情报
      Input.update
      # 刷新画面
      update
      # 如果画面切换的话就中断循环
      if $scene != self
        break
      end
    end
    Graphics.freeze
    for i in @preview
      i.dispose
    end
    @bg.dispose
  end
  def update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      if @cg_detail.z == 1000
        @cg_detail.z = -1000
        @cg_detail.bitmap = nil
      else
        $scene = Scene_Title.new(true)
      end
    end
    return if @preview.empty?
    x,y = Mouse.get_mouse_pos
    for i in @preview
      if x >= i.x && x <= (i.x + i.bitmap.width*i.zoom_x) && y >= i.y && y <= (i.y + i.zoom_y*i.bitmap.height)
        @bg.cursor_rect = Rect.new(i.x-17,i.y-17,130,98)
      end
    end
    if Input.trigger?(Input::C)
      for i in @preview
        if x >= i.x && x <= (i.x + i.bitmap.width) && y >= i.y && y <= (i.y + i.bitmap.height)
          @selected = @preview.index(i)
        end
      end
      if $cg_list.include?(@cgs[@selected])
        $game_system.se_play($data_system.decision_se)
        @cg_detail.bitmap = @preview[@selected].bitmap
        @cg_detail.z = 1000
      else
        $game_system.se_play($data_system.buzzer_se)
      end
    end
  end
end
注：此脚本应该是独立的。

泥路留痕

抱歉，能说得更清楚些吗，在原系统全局搜素cg_open，发现只有在此脚本内定义，而其他地方均没有调用过。
见图，这8个地方均被注释掉了(=begin)。而BackGroundMusic与此脚本没有多大关系，因为粘贴上去仍然报错。
   Scripts.rxdata (142.01 KB, 下载次数: 17)

2013-7-17 20:26 上传

点击文件名下载附件

脚本文件在这里（重新编辑过的）。

泥路留痕

补充：麻烦版主结贴吧，已经...可以了，只是并没有正确答案稍微有点可惜了。