Theo - Database Manager

# =============================================================================
# TheoAllen - Database Manager
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_DBManager] = true
# =============================================================================
# Change Logs:
# -----------------------------------------------------------------------------
# 2013.11.11 - Finished Script
# =============================================================================
=begin
  ----------------------------------------------------------------------------
  Perkenalan :
  Merasa kurang bebas ngedit database dari editor yang hanya disedian copy,
  paste, clear, dan multicopy?

  Sekarang, dengan script ini, kamu bisa menukar ID dari sebuah database,
  atau bahkan menyisipkan database kosong dan menghapus database untuk alasan
  kerapian. Coba aja

  ----------------------------------------------------------------------------
  Cara penggunaan :
  Pasang script ini dibawah material namun diatas main
  Set Activate ke true jika kamu ingin mengaktifasi script ini. Lalu playtest.

  Setelah kamu selesai mengedit database dari game, tutup gamenya beserta
  editornya. Lalu buka kembali editor RMVXA kamu. Dan lihat database yang
  barusan kamu ubah

  ----------------------------------------------------------------------------
  Terms of use :
  Script ini diperuntukkan cuman buat alat bantu ngedit database. Kalo kamu
  bisa dan berani mengedit script ini, wa bolehin. Kalo kamu share script
  versi editan dari ini, jangan lupa, tetep kredit gw, TheoAllen

=end
# =============================================================================
Font.default_name = ["Calibri"]       # <-- Default font
class Window_DB < Window_Selectable   # <-- Yang ini jangan diubah-ubah
# =============================================================================
  # --------------------------------------------------------------------------
  # Activation flag. Set ke true jika kamu mau gunain script ini
  # --------------------------------------------------------------------------
    Activate = true
  # --------------------------------------------------------------------------
  # Database Object. Tulis antara pilihan berikut :
  # --------------------------------------------------------------------------
  # $data_actors          >> Untuk database Actor
  # $data_classes         >> Untuk database Class
  # $data_skills          >> Untuk database Skill
  # $data_items           >> Untuk database Item
  # $data_weapons         >> Untuk database Weapon
  # $data_armors          >> Untuk database Armor
  # $data_enemies         >> Untuk database Enemy
  # $data_troops          >> Untuk database Troop
  # $data_states          >> Untuk database State
  # $data_animations      >> Untuk database Animasi
  # $data_tilesets        >> Untuk database Tileset
  # $data_common_events   >> Untuk database common event
  #
  # Letakkan antara "def" dan "end"
  # --------------------------------------------------------------------------
  def database
    $data_skills  # <-- disini
  end
# =============================================================================
# Akhir dari konfigurasi. Setelah ini jangan sentuh apapun, atawa database
# game lu bakal rusak :v
# =============================================================================
  attr_reader :pending_index
  def initialize(*args)
    super(*args)
    @load_index = 0
    reset_pending_index
    init_handlers
    refresh
    activate
    select(0)
  end

  def window_progress=(window)
    @progress = window
  end

  def reset_pending_index
    @pending_index = -1
  end

  def init_handlers
    set_handler(:ok, method(:on_okay))
    set_handler(:cancel, method(:on_cancel))
  end

  def on_okay
    if pending?
      change_id
      clear_pending
    elsif index == pending_index
      clear_pending
    else
      @pending_index = index
      draw_pending(@pending_index)
    end
    activate
  end

  def on_cancel
    if pending?
      clear_pending
    else
      SceneManager.exit
    end
    activate
  end

  def pending?
    @pending_index > -1
  end

  def item
    @data[index]
  end

  def pending_item
    @data[@pending_index]
  end

  def change_id
    id1 = item.id
    id2 = pending_item.id
    temp_item = item
    database[id1] = pending_item
    database[id2] = temp_item
    database[id1].id = id1
    database[id2].id = id2
    make_item_list
    redraw_item(id1)
    redraw_item(index)
  end

  def draw_pending(index)
    clear_item(index) if index >= 0
    contents.fill_rect(item_rect(index), Color.new(255,255,255,128))
    draw_item(index)  if index >= 0
  end

  def clear_pending
    index = @pending_index
    redraw_item(index)
    reset_pending_index
  end

  def item_max
    unless @data
      make_item_list
    end
    @data.size
  end

  def make_item_list
    @data = database.compact
  end

  def draw_item(index)
    item = @data[index]
    if item
      rect = item_rect(index)
      rect.width -= 4
      draw_item_name(item, rect.x, rect.y, true)
    end
  end

  def draw_item_name(item, x, y, enabled = true, width = contents.width)
    return unless item
    if item.respond_to?("icon_index") && !item.icon_index.nil?
      draw_icon(item.icon_index, x, y, enabled)
    else
      draw_icon(0, x, y, enabled)
    end
    change_color(normal_color, enabled)
    contents.font.size = line_height
    draw_text(x+24, y, width, line_height, sprintf("%03d:%s",item.id,item.name))
  end

  def update_help
    @help_window.set_item(item)
  end

  def refresh
    make_item_list
    create_contents
    draw_all_items
  end

  def draw_all_items
    @load_index = 0
    @fiber = Fiber.new { fiber_load }
  end

  def insert_new_db(index)
    Sound.play_ok
    index += 1
    database.insert(index, db_class.new)
    database[index].id = database.index(database[index])
    refresh_id(index+1)
    refresh_at(index-1)
  end

  def delete_db(index)
    Sound.play_cancel
    index += 1
    database.delete_at(index)
    refresh_id(index)
    refresh_at(index-1)
  end

  def refresh_at(index)
    make_item_list
    @load_index = index
    @fiber = Fiber.new { fiber_load }
  end

  def refresh_id(start_id)
    for id in (start_id)..database.size-1
      database[id].id = id
    end
  end

  def save_database
    save_data(database, db_name[db_class])
  end

  def db_name
    hash = {
      RPG::Actor => "Data/Actors.rvdata2",
      RPG::Class => "Data/Classes.rvdata2",
      RPG::Skill => "Data/Skills.rvdata2",
      RPG::Item => "Data/Items.rvdata2",
      RPG::Weapon => "Data/Weapons.rvdata2",
      RPG::Armor => "Data/Armors.rvdata2",
      RPG::Enemy => "Data/Enemies.rvdata2",
      RPG::Troop => "Data/Troops.rvdata2",
      RPG::State => "Data/States.rvdata2",
      RPG::Animation => "Data/Animations.rvdata2",
      RPG::Tileset => "Data/Tilesets.rvdata2",
      RPG::CommonEvent => "Data/CommonEvents.rvdata2",
    }
    return hash
  end

  def db_class
    database[1].class
  end

  def process_handling
    super
    return unless open? && active
    return insert_new_db(index) if Input.trigger?(:SHIFT)
    return delete_db(index) if Input.trigger?(:CTRL)
    if Input.trigger?(:ALT)
      Sound.play_load
      return refresh
    end
  end

  def update
    super
    if @fiber
      @fiber.resume
    end
  end

  def fiber_load
    refresh_count = 5
    for index in @load_index..item_max
      redraw_item(index)
      refresh_count -= 1
      # --------------------------------------------
      # To avoid lag
      # --------------------------------------------
      if @progress && refresh_count == 0
        @progress.set(index+1, item_max-1)
        refresh_count = 5
      end
      Fiber.yield
    end
    @progress.set(1,1)
    Graphics.frame_reset
    @fiber = nil
  end

end

class Manual < Window_Base

  def initialize(*args)
    super(*args)
    @line = 0
    refresh
  end

  def text(command,text)
    change_color(system_color)
    draw_text(0,@line,contents.width,line_height,command)
    change_color(normal_color)
    xpos = text_size(command).width
    draw_text(xpos,@line,contents.width,line_height,text)
  end

  def just_text(text,align = 1)
    draw_text(0,@line,contents.width,line_height,text,align)
  end

  def refresh
    @line = 0
    contents.clear
    contents.font.size = line_height
    just_text "------------------------------------------"
    line_plus
    just_text "Movement Controls"
    line_plus
    just_text "------------------------------------------"
    line_plus
    text "Up              :"," Scroll up"
    line_plus
    text "Down         :"," Scroll down"
    line_plus
    text "PageUP      :"," Prev page"
    line_plus
    text "PageDown :"," Next Page"
    line_plus
    just_text "------------------------------------------"
    line_plus
    just_text "Editor Controls"
    line_plus
    just_text "------------------------------------------"
    line_plus
    text "Z       :"," Swap database"
    line_plus
    text "X       :"," Cancel / Exit"
    line_plus
    text "Shift  :"," Insert empty database"
    line_plus
    text "CTRL :"," Delete database"
    line_plus
    text "ALT   :"," Refresh database list"
    line_plus
    text "S      :"," Save Database"
  end

  def line_plus
    @line += line_height
  end

end

class Window_DBLoading < Window_Base

  def initialize(*args)
    super(*args)
  end

  def set(current, max)
    contents.clear
    rate = ((current/max.to_f) * 100).to_i
    rect = contents.rect
    txt = sprintf("%d%",rate)
    txt2 = (rate < 100 ? "Loading . . ." : "Done")
    draw_text(rect, txt, 2)
    draw_text(rect, txt2)
  end

end

class DBHelp < Window_Help

  def set_item(item)
    if item.respond_to?("description")
      super(item)
    end
    contents.font.size = 20
    text = "#{item.class}"
    h = text_size(text).height
    rect = Rect.new(0,contents.height-h,contents.width-6,h)
    draw_text(rect,text,2)
  end

end

class DBManager < Scene_Base

  def start
    super
    Graphics.resize_screen(680,480)
    create_help
    create_list
    create_manual
    create_loading_progress
    create_popup
  end

  def create_help
    @help = DBHelp.new
  end

  def create_list
    wy = @help.height
    ww = Graphics.width / 2
    wh = Graphics.height - wy - 48
    @list = Window_DB.new(0,wy,ww,wh)
    @list.help_window = @help
  end

  def create_popup
    @popup = Window_Base.new(0,0,200,48)
    @popup.x = (Graphics.width - @popup.width)/2
    @popup.y = (Graphics.height - @popup.height)/2
    @popup.draw_text(@popup.contents.rect, "Database Saved!",1)
    @popup.openness = 0
  end

  def create_manual
    wx = @list.width
    wy = @list.y
    ww = @list.width
    wh = @list.height + 48
    @manual = Manual.new(wx,wy,ww,wh)
  end

  def create_loading_progress
    wx = 0
    wy = @list.height + @help.height
    ww = @list.width
    wh = 48
    @loading = Window_DBLoading.new(wx,wy,ww,wh)
    @list.window_progress = @loading
  end

  def update
    super
    if Input.trigger?(:Y)
      Sound.play_save
      @list.deactivate
      @list.save_database
      @popup.open
      wait(180)
      @popup.close
      @list.activate
    end
  end

  def return_scene
    SceneManager.exit
  end

  def wait(duration)
    duration.times do
      update_basic
      if Input.trigger?(:C)
        Sound.play_ok
        return
      end
    end
  end

end

class << SceneManager

  alias theo_dbmanager_first_scene first_scene_class
  def first_scene_class
    Window_DB::Activate ? DBManager : theo_dbmanager_first_scene
  end

end