Dialogs exporter/importer

**caveman** · 11.07.2013, 11:43

Dialogs exporter/importer(XP, VXACE)
Автор: caveman + DeadElf79
Версия: 1.03 (XP); 1.07, 1.03 (VXACE)
Тип: Работа с БД и текстом

Описание:

Под влиянием и при помощи некоторых товарищей написал простенький экспортер / импортер диалогов и БД игры.
Могут спросить, зачем оно, когда есть DrеaMaker?

Отвечаю по списку:

DreaMaker - сторонняя программа, и работает в отрыве от мейкера. Вариант на скриптах же интересен тем, что текст можно загрузить на ходу, что позволит сделать, например, выбор языка при старте игры (как сделано в приложенной к топику демке)
Варианта DreaMaker для ACE, насколько мне известно, не существует
В будущем, используя классы типа Window_Message, я планирую сделать подгонку текста под размер окна диалогов, учитывая часть системных значений, типа \w[21] - иконка+название оружия. Это поможет, в первую очередь, при переводе на языки типа немецкого (где там в интернетах эта картинка про длины слов? )

Особенности:

Позволяет выгрузить текст и выборы событий, общих событий, а также БД в довольно понятный и структурированный файл (или удобный набор файлов для ace)
Позволяет загрузить из файла в игру текст и выборы событий, общих событий, а также БД.
Варианты применения:
1) Облегченный перевод игры (не надо ковыряться в событиях игры, а выгрузив в текстовик, спокойно отдать переводчику), а потом загрузить готовый перевод
2) Проверка орфографии: выгрузил -> ворд+спеллчекер -> обратно
3) Чуть подшаманив (см. демо), можно сделать игру сразу на нескольких языках, после выбора языка игроком подгрузив нужный файл перевода

Скрипт для XP (положить выше main):

Спойлер скрипт XP:

Код:

#===============================================================================
=begin
  Автор - caveman + DeadElf79
  Версия 1.03
  Экспорт и импорт диалогов
  Сделано по аналогии с DreaMaker, но внутри XP
 
  История изменений:
  1.02 - исправлен импорт выбора; добавлен экспорт/импорт для common events
  1.03 - вывод разных типов объектов отделен друг от друга; добавлен экспорт/импорт для базы
=end
#===============================================================================
$max_maps=999
$counter=0
class Game_Event
  attr_accessor :erased
 
  def g_event
    return @event
  end
end
 
class Game_Map
  def g_map
    return @map
  end
end
 
class Dial_Extract
  #=============================================================================
  # Необходимая инициализация
  #============================================================================= 
  def initialize
    $data_actors        = load_data("Data/Actors.rxdata")
    $data_classes       = load_data("Data/Classes.rxdata")
    $data_skills        = load_data("Data/Skills.rxdata")
    $data_items         = load_data("Data/Items.rxdata")
    $data_weapons       = load_data("Data/Weapons.rxdata")
    $data_armors        = load_data("Data/Armors.rxdata")
    $data_enemies       = load_data("Data/Enemies.rxdata")
    $data_troops        = load_data("Data/Troops.rxdata")
    $data_states        = load_data("Data/States.rxdata")
    $data_animations    = load_data("Data/Animations.rxdata")
    $data_tilesets      = load_data("Data/Tilesets.rxdata")
    $data_common_events = load_data("Data/CommonEvents.rxdata")
    $data_system        = load_data("Data/System.rxdata")
    $data_mapinfos      = load_data("Data/MapInfos.rxdata")
 
    $game_system = Game_System.new
    $game_temp          = Game_Temp.new
    $game_system        = Game_System.new
    $game_switches      = Game_Switches.new
    $game_variables     = Game_Variables.new
    $game_self_switches = Game_SelfSwitches.new
    $game_screen        = Game_Screen.new
    $game_actors        = Game_Actors.new
    $game_party         = Game_Party.new
    $game_troop         = Game_Troop.new
    $game_map           = Game_Map.new
    $game_player        = Game_Player.new
    $game_party.setup_starting_members
  end
 
  #=============================================================================
  # Функции для вызова
  #=============================================================================
  def export(filename)
    @file=File.open(filename,"w")
    export_database
    $counter = 0
    @file.write("=================== COMMON EVENTS ===================" + "\n")
    export_common_events
    $counter = 0
    @file.write("=================== MAPS ===================" + "\n")
    for map in 1..$max_maps
      if FileTest.exist?(sprintf("Data/Map%03d.rxdata",map))
        export_map(map)
      else
        next
      end
    end
    @file.close
    exit
  end
 
  def import(filename)
    @file=File.open(filename,"r")
    @lines = @file.readlines
    @line = 0
    import_database
    @line += 1 # == COMMON EVENTS ==
    import_common_events
    @line += 1 # == MAPS ==
    for map in 1..$max_maps
      if FileTest.exist?(sprintf("Data/Map%03d.rxdata",map))
        import_map(map)
        save_data($game_map.g_map, sprintf("Data/Map%03d.rxdata", map))
      else
        next
      end
    end
    save_data($data_mapinfos, "Data/MapInfos.rxdata")
    save_data($data_common_events, "Data/CommonEvents.rxdata")
    @file.close
  end
 
 
 
  #=============================================================================
  # Экспорт и импорт Базы
  #=============================================================================
  def export_database
    @file.write("=================== ACTORS ===================" + "\n")
    for i in 1...$data_actors.size
      text = i.to_s + ":" + $data_actors[i].name
      @file.write(text + "\n")
    end
    @file.write("=================== CLASSES ===================" + "\n")
    for i in 1...$data_classes.size
      text = i.to_s + ":" + $data_classes[i].name
      @file.write(text + "\n")
    end
    @file.write("=================== SKILLS ===================" + "\n")
    for i in 1...$data_skills.size
      text = i.to_s + ":" + $data_skills[i].name
      @file.write(text + "\n")
      @file.write($data_skills[i].description + "\n")
    end
    @file.write("=================== ITEMS ===================" + "\n")
    for i in 1...$data_items.size
      text = i.to_s + ":" + $data_items[i].name
      @file.write(text + "\n")
      @file.write($data_items[i].description + "\n")
    end
    @file.write("=================== WEAPONS ===================" + "\n")
    for i in 1...$data_weapons.size
      text = i.to_s + ":" + $data_weapons[i].name
      @file.write(text + "\n")
      @file.write($data_weapons[i].description + "\n")
    end
    @file.write("=================== ARMORS ===================" + "\n")
    for i in 1...$data_armors.size
      text = i.to_s + ":" + $data_armors[i].name
      @file.write(text + "\n")
      @file.write($data_armors[i].description + "\n")
    end
    @file.write("=================== ENEMIES ===================" + "\n")
    for i in 1...$data_enemies.size
      text = i.to_s + ":" + $data_enemies[i].name
      @file.write(text + "\n")
    end
    @file.write("=================== TROOPS ===================" + "\n")
    for i in 1...$data_troops.size
      text = i.to_s + ":" + $data_troops[i].name
      @file.write(text + "\n")
    end
    @file.write("=================== STATES ===================" + "\n")
    for i in 1...$data_states.size
      text = i.to_s + ":" + $data_states[i].name
      @file.write(text + "\n")
    end
    @file.write("=================== ANIMATIONS ===================" + "\n")
    for i in 1...$data_animations.size
      text = i.to_s + ":" + $data_animations[i].name
      @file.write(text + "\n")
    end
    @file.write("=================== TILESETS ===================" + "\n")
    for i in 1...$data_tilesets.size
      text = i.to_s + ":" + $data_tilesets[i].name
      @file.write(text + "\n")
    end
    @file.write("=================== SYSTEM ===================" + "\n")
    @file.write("ELEMENTS:" + "\n")
    for i in 1...$data_system.elements.size
      text = i.to_s + ":" + $data_system.elements[i]
      @file.write(text + "\n")
    end
    @file.write("WORDS:" + "\n")
    @file.write("gold:" + $data_system.words.gold + "\n")
    @file.write("hp:" + $data_system.words.hp + "\n")
    @file.write("sp:" + $data_system.words.sp + "\n")
    @file.write("str:" + $data_system.words.str + "\n")
    @file.write("dex:" + $data_system.words.dex + "\n")
    @file.write("agi:" + $data_system.words.agi + "\n")
    @file.write("int:" + $data_system.words.int + "\n")
    @file.write("atk:" + $data_system.words.atk + "\n")
    @file.write("pdef:" + $data_system.words.pdef + "\n")
    @file.write("mdef:" + $data_system.words.mdef + "\n")
    @file.write("weapon:" + $data_system.words.weapon + "\n")
    @file.write("armor1:" + $data_system.words.armor1 + "\n")
    @file.write("armor2:" + $data_system.words.armor2 + "\n")
    @file.write("armor3:" + $data_system.words.armor3 + "\n")
    @file.write("armor4:" + $data_system.words.armor4 + "\n")
    @file.write("attack:" + $data_system.words.attack + "\n")
    @file.write("skill:" + $data_system.words.skill + "\n")
    @file.write("guard:" + $data_system.words.guard + "\n")
    @file.write("item:" + $data_system.words.item + "\n")
    @file.write("equip:" + $data_system.words.equip + "\n")
  end
 
  def import_database
    @line += 1 #"=================== ACTORS ==================="
    for i in 1...$data_actors.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_actors[i].name = $2.to_s
      end
      @line += 1
    end
    @line += 1 #"=================== CLASSES ==================="
    for i in 1...$data_classes.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_classes[i].name = $2.to_s
      end
      @line += 1
    end
    @line += 1 #"=================== SKILLS ==================="
    for i in 1...$data_skills.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_skills[i].name = $2.to_s
      end
      @line += 1
      $data_skills[i].description = @lines[@line]
      @line += 1
    end
    @line += 1 #"=================== ITEMS ==================="
    for i in 1...$data_items.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_items[i].name = $2.to_s
      end
      @line += 1
      $data_items[i].description = @lines[@line]
      @line += 1
    end
    @line += 1 #"=================== WEAPONS ==================="
    for i in 1...$data_weapons.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_weapons[i].name = $2.to_s
      end
      @line += 1
      $data_weapons[i].description = @lines[@line]
      @line += 1
    end
    @line += 1 #"=================== ARMORS ==================="
    for i in 1...$data_armors.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_armors[i].name = $2.to_s
      end
      @line += 1
      $data_armors[i].description = @lines[@line]
      @line += 1
    end
    @line += 1 #"=================== ENEMIES ==================="
    for i in 1...$data_enemies.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_enemies[i].name = $2.to_s
      end
      @line += 1
    end
    @line += 1 #"=================== TROOPS ==================="
    for i in 1...$data_troops.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_troops[i].name = $2.to_s
      end
      @line += 1
    end
    @line += 1 #"=================== STATES ==================="
    for i in 1...$data_states.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_states[i].name = $2.to_s
      end
      @line += 1
    end
    @line += 1 #"=================== ANIMATIONS ==================="
    for i in 1...$data_animations.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_animations[i].name = $2.to_s
      end
      @line += 1
    end
    @line += 1 #"=================== TILESETS ==================="
    for i in 1...$data_tilesets.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_tilesets[i].name = $2.to_s
      end
      @line += 1
    end
    @line += 1 #"=================== SYSTEM ==================="
    @line += 1 # "ELEMENTS:"
    for i in 1...$data_system.elements.size
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_system.elements[i] = $2.to_s
      end
      @line += 1
    end
    @line += 1 # "WORDS:"
 
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.gold = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.hp = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.sp = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.str = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.dex = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.agi = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.int = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.atk = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.pdef = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.mdef = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.weapon = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.armor1 = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.armor2 = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.armor3 = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.armor4 = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.attack = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.skill = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.guard = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.item = $2.to_s
    end
    @line += 1
    @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.words.equip = $2.to_s
    end
    @line += 1
 
    save_data($data_actors, "Data/Actors.rxdata")
    save_data($data_classes, "Data/Classes.rxdata")
    save_data($data_skills, "Data/Skills.rxdata")
    save_data($data_items, "Data/Items.rxdata")
    save_data($data_weapons, "Data/Weapons.rxdata")
    save_data($data_armors, "Data/Armors.rxdata")
    save_data($data_enemies, "Data/Enemies.rxdata")
    save_data($data_troops, "Data/Troops.rxdata")
    save_data($data_states, "Data/States.rxdata")
    save_data($data_animations, "Data/Animations.rxdata")
    save_data($data_tilesets, "Data/Tilesets.rxdata")
    save_data($data_system, "Data/System.rxdata")
  end
 
 
  #=============================================================================
  # Экспорт и импорт COMMON EVENTS
  #=============================================================================
  def export_common_events
    for i in 1...$data_common_events.size
      ev_text = "common_event_id:" + i.to_s 
      @file.write(ev_text + "\n")
 
      ev_text = "common_event_name:" + $data_common_events[i].name 
      @file.write(ev_text + "\n")
 
      list = $data_common_events[i].list
      if list != nil
        for command in list
          str4=""
          case command.code
          when 101 
            wait_flag = true
            $counter+=1
            @file.write((sprintf("%07d",$counter))+":")
            @file.write("#{command.parameters[0]}"+"\n")
          when 401 #message
            if wait_flag
              @file.write("#{command.parameters[0]}"+"\n")
            end
          when 102 #choices
            wait_flag = false
            $counter+=1
            @file.write((sprintf("%07d",$counter))+":")
            @file.write("CHOICE"+"\n")
            for j in 0...command.parameters[0].size
              @file.write("#{command.parameters[0][j]}"+"\n")
            end
          else
            wait_flag = false
          end
        end
      end
    end
  end
 
  def import_common_events
    choices = []
    for i in 1...$data_common_events.size
      @line += 1 # common_event_id
 
      # common_event_name
      @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_common_events[i].name = $2.to_s
      end
      @line += 1
 
      list = $data_common_events[i].list
      if list != nil
        for command in list
          case command.code
          when 101  #message start
            wait_flag = true
            @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
              command.parameters[0] = $2.to_s
            end
            @line += 1
          when 401  #message continue
            if wait_flag
              @lines[@line].gsub(/\A(.+?)\Z/) do
                command.parameters[0] = $1.to_s
                @line += 1
              end
            end
 
          when 102 #choices list
            wait_flag = false
            @line += 1 # отметка CHOICE
            for j in 0...command.parameters[0].size
              @lines[@line].gsub(/\A(.+?)\Z/) do
                command.parameters[0][j] = $1.to_s
                choices.push($1.to_s)
                @line += 1
              end
            end
            choices.reverse! # нам нужен не стек, а очередь!
          when 402 #choice
            wait_flag = false
            command.parameters[1] = choices.pop
 
          else
            wait_flag = false
          end
        end
      end
    end
  end
 
 
 
  #=============================================================================
  # Экспорт и импорт карт
  #=============================================================================
  def export_map(map_id)
    map_text = "=================== MAP " + map_id.to_s
    map_text = map_text + " ==================="
    @file.write(map_text + "\n")
    str4="[map_name=#{$data_mapinfos[map_id].name}]"
    @file.write((sprintf("%07d",$counter))+":#{str4}\n")
 
    $game_map = Game_Map.new
    $game_map.setup(map_id)
    events=$game_map.events
 
    wait_flag = true
 
    for i in 1..9999
      if events[i]!=nil
        ev_text = "event_id:" + i.to_s 
        @file.write(ev_text + "\n")
 
        for page in events[i].g_event.pages
          unless page.list.nil?
            for command in page.list
              str4=""
              case command.code
              when 101 
                wait_flag = true
                $counter+=1
                @file.write((sprintf("%07d",$counter))+":")
                @file.write("#{command.parameters[0]}"+"\n")
              when 401 #message
                if wait_flag
                  @file.write("#{command.parameters[0]}"+"\n")
                end
              when 102 #choices
                wait_flag = false
                $counter+=1
                @file.write((sprintf("%07d",$counter))+":")
                @file.write("CHOICE"+"\n")
                for j in 0...command.parameters[0].size
                  @file.write("#{command.parameters[0][j]}"+"\n")
                end
              else
                wait_flag = false
              end
            end
          end
        end
      end
    end
  end
 
  def import_map(map_id)
    @line += 1 # == MAP map_id ==
    $game_map = Game_Map.new
    $game_map.setup(map_id)
    events=$game_map.events
    choices = []
 
    @lines[@line].gsub(/\A(.+?)\[(.+?)\=(.+?)\]\Z/) do
      $data_mapinfos[map_id].name = $3.to_s
    end
    @line += 1
 
    wait_flag = true
 
    for i in 1..9999
      if events[i]!=nil        
        @line += 1 # event_id
 
        for page in events[i].g_event.pages
          unless page.list.nil?
            for command in page.list
              case command.code
 
 
              when 101  #message start
                wait_flag = true
                @lines[@line].gsub(/\A(.+?)\:(.+?)\Z/) do
                  command.parameters[0] = $2.to_s
                end
                @line += 1
              when 401  #message continue
                if wait_flag
                  @lines[@line].gsub(/\A(.+?)\Z/) do
                    command.parameters[0] = $1.to_s
                    @line += 1
                  end
                end
 
              when 102 #choices list
                wait_flag = false
                @line += 1 # отметка CHOICE
                for j in 0...command.parameters[0].size
                  @lines[@line].gsub(/\A(.+?)\Z/) do
                    command.parameters[0][j] = $1.to_s
                    choices.push($1.to_s)
                    @line += 1
                  end
                end
                choices.reverse! # нам нужен не стек, а очередь!
              when 402 #choice
                wait_flag = false
                command.parameters[1] = choices.pop
 
              else
                wait_flag = false
              end
            end
          end
        end
      end
    end
  end
end

Скрипты для ACE (положить в Materials):

Спойлер скрипы ACE:

1. Настроечный модуль и добавление пункта "настройки", откуда можно произвести экспорт и импорт, в титульное меню

Код:

#===============================================================================
=begin
                                DIALS module
  Экстрактор диалогов, часть третья
  Этот скрипт необходим для настройки работы экспорта и импорта.
  Автор: DeadElf79
  Версия: 1.01 Добавлены настройки для импорта (caveman)
=end
#===============================================================================
class Dials
  def initialize
    #==========МЕНЯЕМ ТОЛЬКО ЗДЕСЬ==========
    #возможность экспорта (true-вкл, false-выкл)
    @do_export=true
    #возможность импорта
    @do_import=true
    #включить экспорт базы данных
    @do_save_db=true
    #включить импорт базы данных
    @do_load_db=true
    #экспорт карт в отдельные файлы (сколько карт, столько и файлов)
    #а также импорт из них
    @do_map_is_file=false
    #экспорт базы данных в отдельный файл(если do_save_db=true)
    #а также импорт из него (если do_load_db=true)
    @do_db_is_file=true
    #экспорт данных из Общих событий
    @do_save_common=true
    #импорт данных из Общих событий
    @do_load_common=true
    #экспорт общих событий в отдельные файлы
    #а также импорт из них
    @do_common_is_file=false
    #комментарии в файлах
    @do_comments=true
    #язык комментариев в файлах (true-русский, false-английский)
    #только если do_comments=true
    @do_comments_lang=true
    #язык, на котором написаны данные в экспортируемом
    #файле. необходимо для запуска в игре одного из нескольких
    #по выбору.
    #может быть одним из вариантов:
    #rus eng deu fre jap
    @do_language="rus"
    #возможность экспорта/импорта прямо из титульного экрана
    #если проект был запущен из редактора (то есть $DEBUG=true)
    @do_title_debug=true
    #==========ДАЛЬШЕ НЕ ТРОГАЕМ============
    @options_button_name="Настройки"
    @options_extractor_name="Экспортировать"
    @options_import_name="Импортировать"
    @options_cancel_name="Отмена"
  end
  
  attr_accessor :do_title_debug
  attr_accessor :do_export
  attr_accessor :do_import
  attr_accessor :do_save_db
  attr_accessor :do_load_db
  attr_accessor :do_map_is_file
  attr_accessor :do_db_is_file
  attr_accessor :do_save_common
  attr_accessor :do_load_common
  attr_accessor :do_common_is_file
  attr_accessor :do_comments_lang
  attr_accessor :do_comments
  attr_accessor :do_language
  attr_reader :options_button_name
  attr_reader :options_extractor_name
  attr_reader :options_import_name
  attr_reader :options_cancel_name
  attr_reader :do_dir
end

$max_maps=999
$counter=0
class Game_Event
  attr_accessor :erased
  def g_event
    return @event
  end
end

class Game_Map
  def g_map
    return @map
  end
end

class Window_TitleCommand
  def make_command_list
    add_command(Vocab::new_game, :new_game)
    add_command(Vocab::continue, :continue, continue_enabled)
    if $dials.do_title_debug
      add_command($dials.options_button_name, :extractor)
    end
    add_command(Vocab::shutdown, :shutdown)
  end
end

class Window_DialsCommand<Window_TitleCommand
  def make_command_list
    add_command($dials.options_extractor_name,:extract,$dials.do_export)
    add_command($dials.options_import_name,:import,$dials.do_import)
    add_command($dials.options_cancel_name,:cancel)
  end
end

class Scene_Title
  def start
    super
    SceneManager.clear
    Graphics.freeze
    create_background
    create_foreground
    $dials=Dials.new
    create_command_window
    create_extra_window
    play_title_music
  end
  
  def create_command_window
    @command_window = Window_TitleCommand.new
    @command_window.set_handler(:new_game, method(:command_new_game))
    @command_window.set_handler(:continue, method(:command_continue))
    if $dials.do_title_debug
      @command_window.set_handler(:extractor, method(:command_extractor))
    end
    @command_window.set_handler(:shutdown, method(:command_shutdown))
  end
  
  def create_extra_window
    @extra=Window_DialsCommand.new
    @extra.visible=false
    @extra.x = (Graphics.width - @command_window.width) / 2+@extra.width
    @extra.y = (Graphics.height * 1.6 - @command_window.height) / 2
    @extra.set_handler(:extract, method(:command_extract))
    @extra.set_handler(:import, method(:command_import))
    @extra.set_handler(:cancel, method(:command_cancel))
  end
  
  def command_extractor
    @extra.visible=true
    @extra.openness=0
    @extra.open
    @command_window.active=false
    @extra.active=true
  end
  
  def command_extract
    extract=Dial_Extract.new
    if extract.done then
      @extra.close
      msgbox "Операция успешно завершена!"
      update until @extra.close?
      @command_window.active=true
      @extra.active=false
    end
  end
  
  def command_import
    extract=Dial_Import.new
    if extract.done then
      @extra.close
      msgbox "Операция успешно завершена!"
      update until @extra.close?
      @command_window.active=true
      @extra.active=false
    end
  end
  
  def command_cancel
    @extra.close
    update until @extra.close?
    @command_window.active=true
    @extra.active=false
  end
end

2. Класс экспорта

Код:

#===============================================================================
=begin
                                DIAL_EXPORT
  Экспортер
  Этот скрипт извлекает все сообщения и слова БД из проекта и записывает
  в файл dials_<язык>.txt или же в несколько файлов
  Авторы: DeadElf79, caveman
  Версия: 1.07
  История версий:
    1.08 - добавлен экспорт закладки Terms
    1.07 - изменен формат экспорта;
         - добавлен экспорт для Общих событий (Common Events);
         - добавлен экспорт базы данных;
         - опционально: экспорт каждой карты в отдельный файл;
         - опционально: экспорт базы данных в отдельный файл;
         - опционально: экспорт общих событий в отдельный файл;
         - добавлен модуль настроек Dials.
    1.06 - оригинальный скрипт, вывод имени карты и сообщений построчно.
  Ограничения: 
  - На одном из проектов не нашлось записи Vocab::surprise, что привело к 
    падению, решил добавлением в Vocab этой строки
=end
#===============================================================================
class Dial_Extract
  attr_accessor :done
  attr_accessor :error
  def initialize
    DataManager.init
    $dials=Dials.new if $dials==nil
    
    @file=File.open("dials_#{$dials.do_language}.txt","w")
    if $dials.do_save_db
      if $dials.do_db_is_file==false
        export_database
      else
        @file.close
        @file=File.open("dials_#{$dials.do_language}_DATABASE.txt","w")
        export_database
        @file.close
        @file=File.open("dials_#{$dials.do_language}.txt","w")
      end
    end
    if $dials.do_save_common
      if $dials.do_common_is_file==false
        export_common_events
      else
        @file.close
        @file=File.open("dials_#{$dials.do_language}_COMMONEVENTS.txt","w")
        export_common_events
        @file.close
        @file=File.open("dials_#{$dials.do_language}.txt","w")
      end
    end
    
    if $dials.do_map_is_file!=false
      @file.close
      File.delete("dials_#{$dials.do_language}.txt")
    end
    for map in 1..$max_maps
      if FileTest.exist?(sprintf("Data/Map%03d.rvdata2",map))
        if $dials.do_map_is_file==false
          export_map(map)
        else
          @file.close if @file.closed?!=true
          $counter=0
          @file=File.open(sprintf("dials_#{$dials.do_language}_Map%03d_"+
          "#{$data_mapinfos[map].name}.txt",map),"w")
          export_map(map)
          @file.close
        end
      else
        next
      end
    end
    @file.close if @file.closed?!=true
    @done=true
  end
  
  def export_database
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("||||||||||||||DATABASE||||||||||||||" + "\n")
      else
        @file.write("||||||||||||||База данных||||||||||||||" + "\n")
      end
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== ACTORS ===================" + "\n")
      else
        @file.write("=================== ГЕРОИ ===================" + "\n")
      end
    end
    if $data_actors.size>2
      for i in 1...$data_actors.size
        text = i.to_s + ":" + $data_actors[i].name
        @file.write(text + "\n")
      end
    else
      if $data_actors[1].name.size>1
        text = 1.to_s + ":" + $data_actors[1].name
        @file.write(text + "\n")
      else
        @file.write("Ни одного героя не было создано" + "\n")
      end
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== CLASSES ===================" + "\n")
      else
        @file.write("=================== КЛАССЫ ===================" + "\n")
      end
    end
    if $data_classes.size>2
      for i in 1...$data_classes.size
        text = i.to_s + ":" + $data_classes[i].name
        @file.write(text + "\n")
      end
    else
      if $data_classes[1].name.size>1
        text = 1.to_s + ":" + $data_classes[1].name
        @file.write(text + "\n")
      else
        @file.write("Ни одного класса не было создано" + "\n")
      end
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== SKILLS ===================" + "\n")
      else
        @file.write("=================== НАВЫКИ ===================" + "\n")
      end
    end
    for i in 1...$data_skills.size
      text = i.to_s + ":" + $data_skills[i].name
      @file.write(text + "\n")
      @file.write($data_skills[i].description + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== ITEMS ===================" + "\n")
      else
        @file.write("=================== ПРЕДМЕТЫ ===================" + "\n")
      end
    end
    for i in 1...$data_items.size
      text = i.to_s + ":" + $data_items[i].name
      @file.write(text + "\n")
      @file.write($data_items[i].description + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        file.write("=================== WEAPONS ===================" + "\n")
      else
        @file.write("=================== ОРУЖИЕ ===================" + "\n")
      end
    end
    for i in 1...$data_weapons.size
      text = i.to_s + ":" + $data_weapons[i].name
      @file.write(text + "\n")
      @file.write($data_weapons[i].description + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== ARMORS ===================" + "\n")
      else
        @file.write("=================== БРОНЯ ===================" + "\n")
      end
    end
    for i in 1...$data_armors.size
      text = i.to_s + ":" + $data_armors[i].name
      @file.write(text + "\n")
      @file.write($data_armors[i].description + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== ENEMIES ===================" + "\n")
      else
        @file.write("=================== ПРОТИВНИКИ =========\n==========" + "\n")
      end
    end
    for i in 1...$data_enemies.size
      text = i.to_s + ":" + $data_enemies[i].name
      @file.write(text + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== TROOPS ===================" + "\n")
      else
        @file.write("=================== ГРУППЫ ВРАГОВ ===================" + "\n")
      end
    end
    for i in 1...$data_troops.size
      text = i.to_s + ":" + $data_troops[i].name
      @file.write(text + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== STATES ===================" + "\n")
      else
        @file.write("=================== СТАТУСЫ ===================" + "\n")
      end
    end
    for i in 1...$data_states.size
      text = i.to_s + ":" + $data_states[i].name
      @file.write(text + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== ANIMATIONS ===================" + "\n")
      else
        @file.write("=================== ИМЕНА АНИМАЦИЙ ===================" + "\n")
      end
    end
    for i in 1...$data_animations.size
      text = i.to_s + ":" + $data_animations[i].name
      @file.write(text + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== TILESETS ===================" + "\n")
      else
        @file.write("=================== ТАЙЛСЕТЫ ===================" + "\n")
      end
    end
    for i in 1...$data_tilesets.size
      text = i.to_s + ":" + $data_tilesets[i].name
      @file.write(text + "\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== SYSTEM ===================" + "\n")
      else
        @file.write("=================== СИСТЕМНЫЕ СТРОКИ ===================\n")
      end
    end
    @file.write("ShopBuy:#{Vocab::ShopBuy}\n")
    @file.write("ShopSell:#{Vocab::ShopSell}\n")
    @file.write("ShopCancel:#{Vocab::ShopCancel}\n")
    @file.write("Possession:#{Vocab::Possession}\n")
    @file.write("ExpTotal:#{Vocab::ExpTotal}\n")
    @file.write("ExpNext:#{Vocab::ExpNext}\n")
    @file.write("SaveMessage:#{Vocab::SaveMessage}\n")
    @file.write("LoadMessage:#{Vocab::LoadMessage}\n")
    @file.write("File:#{Vocab::File}\n")
    @file.write("PartyName:#{Vocab::PartyName}\n")
    @file.write("Emerge:#{Vocab::Emerge}\n")
    @file.write("Preemptive:#{Vocab::Preemptive}\n")
    @file.write("Surprise:#{Vocab::Surprise}\n")
    @file.write("EscapeStart:#{Vocab::EscapeStart}\n")
    @file.write("EscapeFailure:#{Vocab::EscapeFailure}\n")
    @file.write("Victory:#{Vocab::Victory}\n")
    @file.write("Defeat:#{Vocab::Defeat}\n")
    @file.write("ObtainExp:#{Vocab::ObtainExp}\n")
    @file.write("ObtainGold:#{Vocab::ObtainGold}\n")
    @file.write("ObtainItem:#{Vocab::ObtainItem}\n")
    @file.write("LevelUp:#{Vocab::LevelUp}\n")
    @file.write("ObtainSkill:#{Vocab::ObtainSkill}\n")
    @file.write("UseItem:#{Vocab::UseItem}\n")
    @file.write("CrticalToEnemy:#{Vocab::CriticalToEnemy}\n")
    @file.write("CriticalToActor:#{Vocab::CriticalToActor}\n")
    @file.write("ActorDamage:#{Vocab::ActorDamage}\n")
    @file.write("ActorRecovery:#{Vocab::ActorRecovery}\n")
    @file.write("ActorGain:#{Vocab::ActorGain}\n")
    @file.write("ActorLoss:#{Vocab::ActorLoss}\n")
    @file.write("ActorDrain:#{Vocab::ActorDrain}\n")
    @file.write("ActorNoDamage:#{Vocab::ActorNoDamage}\n")
    @file.write("ActorNoHit:#{Vocab::ActorNoHit}\n")
    @file.write("EnemyDamage:#{Vocab::EnemyDamage}\n")
    @file.write("EnemyRecovery:#{Vocab::EnemyRecovery}\n")
    @file.write("EnemyGain:#{Vocab::EnemyGain}\n")
    @file.write("EnemyLoss:#{Vocab::EnemyLoss}\n")
    @file.write("EnemyDrain:#{Vocab::EnemyDrain}\n")
    @file.write("EnemyNoDamage:#{Vocab::EnemyNoDamage}\n")
    @file.write("EnomyNoHit:#{Vocab::EnemyNoHit}\n")
    @file.write("Evasion:#{Vocab::Evasion}\n")
    @file.write("MagicEvasion:#{Vocab::MagicEvasion}\n")
    @file.write("MagicReflection:#{Vocab::MagicReflection}\n")
    @file.write("CounterAttack:#{Vocab::CounterAttack}\n")
    @file.write("Substitute:#{Vocab::Substitute}\n")
    @file.write("BuffAdd:#{Vocab::BuffAdd}\n")
    @file.write("DebuffAdd:#{Vocab::DebuffAdd}\n")
    @file.write("BuffRemove:#{Vocab::BuffRemove}\n")
    @file.write("ActionFailure:#{Vocab::ActionFailure}\n")
    @file.write("PlayerPosError:#{Vocab::PlayerPosError}\n")
    @file.write("EventOverflow:#{Vocab::EventOverflow}\n")
    
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("=================== TERMINS ===================" + "\n")
      else
        @file.write("=================== ТЕРМИНЫ ===================" + "\n")
      end
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("ELEMENTS:" + "\n")
      else
        @file.write("ЭЛЕМЕНТЫ:" + "\n")
      end
    end
    for i in 1...$data_system.elements.size
      @file.write("#{i.to_s}:#{$data_system.elements[i]}\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("SKILL TYPES:" + "\n")
      else
        @file.write("ТИПЫ СКИЛЛОВ:" + "\n")
      end
    end
    for i in 1...$data_system.skill_types.size
      @file.write("#{i.to_s}:#{$data_system.skill_types[i]}\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("WEAPON TYPES:" + "\n")
      else
        @file.write("ТИПЫ ОРУЖИЯ:" + "\n")
      end
    end
    for i in 1...$data_system.weapon_types.size
      @file.write("#{i.to_s}:#{$data_system.weapon_types[i]}\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("ARMOR TYPES:" + "\n")
      else
        @file.write("ТИПЫ БРОНИ:" + "\n")
      end
    end
    for i in 1...$data_system.armor_types.size
      @file.write("#{i.to_s}:#{$data_system.armor_types[i]}\n")
    end
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("TERMS:" + "\n")
      else
        @file.write("ТЕРМИНЫ:" + "\n")
      end
    end
    # basic
    @file.write("Level:#{$data_system.terms.basic[0]}\n")
    @file.write("Level (short):#{$data_system.terms.basic[1]}\n")
    @file.write("HP:#{$data_system.terms.basic[2]}\n")
    @file.write("HP (short):#{$data_system.terms.basic[3]}\n")
    @file.write("MP:#{$data_system.terms.basic[4]}\n")
    @file.write("MP (short):#{$data_system.terms.basic[5]}\n")
    @file.write("TP:#{$data_system.terms.basic[6]}\n")
    @file.write("TP (short):#{$data_system.terms.basic[7]}\n")
    # params 
    @file.write("MHP:#{$data_system.terms.params[0]}\n")
    @file.write("MMP:#{$data_system.terms.params[1]}\n")
    @file.write("ATK:#{$data_system.terms.params[2]}\n")
    @file.write("DEF:#{$data_system.terms.params[3]}\n")
    @file.write("MAT:#{$data_system.terms.params[4]}\n")
    @file.write("MDF:#{$data_system.terms.params[5]}\n")
    @file.write("AGI:#{$data_system.terms.params[6]}\n")
    @file.write("LUK:#{$data_system.terms.params[7]}\n")
    # etypes 
    @file.write("Weapon:#{$data_system.terms.etypes[0]}\n")
    @file.write("Shield:#{$data_system.terms.etypes[1]}\n")
    @file.write("Head:#{$data_system.terms.etypes[2]}\n")
    @file.write("Body:#{$data_system.terms.etypes[3]}\n")
    @file.write("Accessory:#{$data_system.terms.etypes[4]}\n")
    # commands 
    @file.write("Fight:#{$data_system.terms.commands[0]}\n")
    @file.write("Escape:#{$data_system.terms.commands[1]}\n")
    @file.write("Attack:#{$data_system.terms.commands[2]}\n")
    @file.write("Defend:#{$data_system.terms.commands[3]}\n")
    @file.write("Item:#{$data_system.terms.commands[4]}\n")
    @file.write("Skill:#{$data_system.terms.commands[5]}\n")
    @file.write("Equip:#{$data_system.terms.commands[6]}\n")
    @file.write("Status:#{$data_system.terms.commands[7]}\n")
    @file.write("Sort:#{$data_system.terms.commands[8]}\n")
    @file.write("Save:#{$data_system.terms.commands[9]}\n")
    @file.write("Exit Game:#{$data_system.terms.commands[10]}\n")
    @file.write("(not used):#{$data_system.terms.commands[11]}\n")
    @file.write("Weapon:#{$data_system.terms.commands[12]}\n")
    @file.write("Armor:#{$data_system.terms.commands[13]}\n")
    @file.write("Key Item:#{$data_system.terms.commands[14]}\n")
    @file.write("Change Equipment:#{$data_system.terms.commands[15]}\n")
    @file.write("Ultimate Equipment:#{$data_system.terms.commands[16]}\n")
    @file.write("Remove All:#{$data_system.terms.commands[17]}\n")
    @file.write("New Game:#{$data_system.terms.commands[18]}\n")
    @file.write("Continue:#{$data_system.terms.commands[19]}\n")
    @file.write("Shut Down:#{$data_system.terms.commands[20]}\n")
    @file.write("Go to Title:#{$data_system.terms.commands[21]}\n")
    @file.write("Cancel:#{$data_system.terms.commands[22]}\n")

    @file.write("\n\n")
  end
  
  def export_common_events
    if $dials.do_comments
      if $dials.do_comments_lang==false
        @file.write("||||||||||||||COMMON EVENTS||||||||||||||" + "\n")
      else
        @file.write("||||||||||||||ОБЩИЕ СОБЫТИЯ||||||||||||||" + "\n")
      end
    end
    for i in 1...$data_common_events.size
      if $dials.do_comments_lang==false
        ev_text = "common_event_id:" + i.to_s
      else
        ev_text = "Номер:" + i.to_s
      end
      @file.write(ev_text + "\n")
      
      if $dials.do_comments_lang==false
        ev_text = "common_event_name:" + $data_common_events[i].name 
      else
        ev_text = "Название:" + $data_common_events[i].name 
      end
      @file.write(ev_text + "\n")
      
      list = $data_common_events[i].list
      if list != nil
        for command in list
          str4=""
          case command.code
          when 101 
            wait_flag = true
            $counter+=1
            @file.write((sprintf("%07d",$counter))+":")
            @file.write("#{command.parameters[0]}"+"\n")
          when 401 #message
            if wait_flag
              @file.write("#{command.parameters[0]}"+"\n")
            end
          when 102 #choices
            wait_flag = false
            $counter+=1
            @file.write((sprintf("%07d",$counter))+":")
            if $dials.do_comments_lang==false
              @file.write("CHOICE:"+"\n")
            else
              @file.write("Варианты выбора:\n")
            end
            for j in 0...command.parameters[0].size
              @file.write("#{command.parameters[0][j]}"+"\n")
            end
          else
            wait_flag = false
          end
        end
      end
    end
    
    @file.write("\n\n")
  end
  
  #=============================================================================
  #=============================================================================
  #========================САМОЕ ГЛАВНОЕ В ЭТОМ СКРИПТЕ!========================
  #=============================================================================
  #=============================================================================
  def export_map(map_id)
    if $dials.do_comments_lang==false
      @file.write(sprintf("||||||||||||||MAP %03d||||||||||||||",map_id) + "\n")
    else
      @file.write(sprintf("||||||||||||||КАРТА %03d||||||||||||||",map_id) + "\n")
    end
    if $dials.do_comments_lang==false
      str4="[map name in editor=\"#{$data_mapinfos[map_id].name}\"]"
      #str4="[map name in game=\"#{$data_maps[map_id].name}\"]"
    else
      str4="[имя карты в редакторе=\"#{$data_mapinfos[map_id].name}\"]"
      #str4="[имя карты в игре=\"#{$data_mapinfos[map_id].display_name}\"]"
    end
    @file.write((sprintf("%07d",$counter))+":#{str4}\n")

    $game_map = Game_Map.new
    $game_map.setup(map_id)
    events=$game_map.events
    
    wait_flag = true
     
    for i in 1..9999
      if events[i]!=nil
        if $dials.do_comments_lang==false
          ev_text = "event_id:" + i.to_s 
        else
          #name="smthng"
          ev_text = "Событие №:" + i.to_s# + ":"+name#events[i].name
        end
        @file.write(ev_text + "\n")
        
        for page in events[i].g_event.pages
          unless page.list.nil?
            for command in page.list
              str4=""
              case command.code
              when 101 
                wait_flag = true
                $counter+=1
                @file.write((sprintf("%07d",$counter))+":")
                @file.write("#{command.parameters[0]}"+"\n")
              when 401 #message
                if wait_flag
                  @file.write("#{command.parameters[0]}"+"\n")
                end
              when 102 #choices
                wait_flag = false
                $counter+=1
                @file.write((sprintf("%07d",$counter))+":")
                if $dials.do_comments_lang==false
                  @file.write("CHOICE:"+"\n")
                else
                  @file.write("Варианты выбора:\n")
                end
                for j in 0...command.parameters[0].size
                  @file.write("#{command.parameters[0][j]}"+"\n")
                end
              else
                wait_flag = false
              end
            end
          end
        end
      end
    end
    @file.write("\n\n")
  end
end

2. Класс импорта

Код:

#===============================================================================
=begin
                                DIAL_IMPORT
  Импортер
  Этот скрипт анализирует файлы экспорта и ипмортирует их,
  заменяя текст сообщений и БД проекта на содержимое файлов.
  Автор: DeadElf79, caveman
  Версия: 1.02 Импорт БД, общих событий и карт
  Ограничения: 
  - Импорт многострочных описаний в БД пока без переноса
  - Нет импорта названий тайлсетов (да и не стоит)
  - Нет импорта Vocab
=end
#===============================================================================

class Dial_Import
  attr_accessor :done
  attr_accessor :error
  
  def initialize
    DataManager.init
    $dials=Dials.new if $dials==nil
    @lines = []
    @lines_db = []
    @lines_common = []
    @lines_map = []
    @line_all = 0
    
    if !FileTest.exist?("dials_#{$dials.do_language}.txt") 
      p "Файл с общими данными не найден"
      @error = true
      return
    end
    
    @file=File.open("dials_#{$dials.do_language}.txt","r")
    @lines = @file.readlines
    @file.close
    
    if $dials.do_load_db
      if !$dials.do_db_is_file
        import_database
      else
        if !FileTest.exist?("dials_#{$dials.do_language}_DATABASE.txt") 
          p "Файл _DATABASE не найден"
          @error = true
          return
        end
        @file=File.open("dials_#{$dials.do_language}_DATABASE.txt","r")
        @lines_db = @file.readlines
        @file.close
        
        import_database
      end
    end
    
    if $dials.do_load_common
      if !$dials.do_common_is_file
        import_common_events
      else
        @file.close if @file.closed?!=true
        if !FileTest.exist?("dials_#{$dials.do_language}_COMMONEVENTS.txt") 
          p "Файл _COMMONEVENTS не найден"
          @error = true
          return
        end
        @file=File.open("dials_#{$dials.do_language}_COMMONEVENTS.txt","r")
        @lines_common = @file.readlines
        @file.close

        import_common_events        
      end
      save_data($data_common_events, "Data/CommonEvents.rvdata2")
    end
    
    for map in 1..$max_maps
      if FileTest.exist?(sprintf("Data/Map%03d.rvdata2",map))
        if !$dials.do_map_is_file
          import_map(map)
        else
          @file.close if @file.closed?!=true
          if !FileTest.exist?(sprintf("dials_#{$dials.do_language}_Map%03d_"+
              "#{$data_mapinfos[map].name}.txt",map))
            p = "Файл карты" + map + ' не найден'
            @error = true
            return
          end
        
          @file=File.open(sprintf("dials_#{$dials.do_language}_Map%03d_"+
            "#{$data_mapinfos[map].name}.txt",map),"r")
          @lines_map = @file.readlines
          @file.close

          import_map(map)
        end
        save_data($game_map.g_map, sprintf("Data/Map%03d.rvdata2", map))
      else
        next
      end
    end
    save_data($data_mapinfos, "Data/MapInfos.rvdata2")
    @file.close if @file.closed?!=true
    @done=true
  end
  
  def import_database
    l = $dials.do_db_is_file ? 0 : @line_all 
    data = $dials.do_db_is_file ? @lines_db : @lines 
    
    l += 1 if $dials.do_comments #DATABASE

    l += 1 if $dials.do_comments #ACTORS
    for i in 1...$data_actors.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_actors[i].name = $2.to_s
      end
      l += 1
    end
    
    l += 1 if $dials.do_comments #CLASSES
    for i in 1...$data_classes.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_classes[i].name = $2.to_s
      end
      l += 1
    end
    
    l += 1 if $dials.do_comments #SKILLS
    for i in 1...$data_skills.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_skills[i].name = $2.to_s
      end
      l += 1
      text = ""
      while !data[l].include?(":") and !data[l].include?("==")
        text += data[l] + " \n"
        l += 1
      end
      $data_skills[i].description = text
    end
    
    l += 1 if $dials.do_comments #ITEMS
    for i in 1...$data_items.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_items[i].name = $2.to_s
      end
      l += 1
      text = ""
      while !data[l].include?(":") and !data[l].include?("==")
        text += data[l] + " \n"
        l += 1
      end
      $data_items[i].description = text
    end
    
    l += 1 if $dials.do_comments #WEAPONS
    for i in 1...$data_weapons.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_weapons[i].name = $2.to_s
      end
      l += 1
      text = ""
      while !data[l].include?(":") and !data[l].include?("==")
        text += data[l] + " \n"
        l += 1
      end
      $data_weapons[i].description = text
    end
    
    l += 1 if $dials.do_comments #ARMORS
    for i in 1...$data_armors.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_armors[i].name = $2.to_s
      end
      l += 1
      text = ""
      while !data[l].include?(":") and !data[l].include?("==")
        text += data[l] + " \n"
        l += 1
      end
      $data_armors[i].description = text
    end
    
    l += 1 if $dials.do_comments #ENEMIES
    for i in 1...$data_enemies.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_enemies[i].name = $2.to_s
      end
      l += 1
    end
    
    l += 1 if $dials.do_comments #TROOPS
    for i in 1...$data_troops.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_troops[i].name = $2.to_s
      end
      l += 1
    end
    
    l += 1 if $dials.do_comments #STATES
    for i in 1...$data_states.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_states[i].name = $2.to_s
      end
      l += 1
    end
    
    l += 1 if $dials.do_comments #ANIMATIONS
    for i in 1...$data_animations.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_animations[i].name = $2.to_s
      end
      l += 1
    end
    
    l += 1 if $dials.do_comments #TILESETS
    for i in 1...$data_tilesets.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_tilesets[i].name = $2.to_s
      end
      l += 1
    end

    l += 1 if $dials.do_comments #SYSTEM
    l += 50 # словарь не импортим
    
    l += 1 if $dials.do_comments #TERMS
    l += 1 if $dials.do_comments #ELEMENTS
    for i in 1...$data_system.elements.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_system.elements[i] = $2.to_s
      end
      l += 1
    end
    l += 1 if $dials.do_comments #SKILL TYPES
    for i in 1...$data_system.skill_types.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_system.skill_types[i] = $2.to_s
      end
      l += 1
    end
    l += 1 if $dials.do_comments #WEAPON TYPES
    for i in 1...$data_system.weapon_types.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_system.weapon_types[i] = $2.to_s
      end
      l += 1
    end
    l += 1 if $dials.do_comments #ARMOR TYPES
    for i in 1...$data_system.armor_types.size
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_system.armor_types[i] = $2.to_s
      end
      l += 1
    end
    
    l += 1 if $dials.do_comments #TERMS
    # basic
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.basic[0] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.basic[1] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.basic[2] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.basic[3] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.basic[4] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.basic[5] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.basic[6] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.basic[7] = $2.to_s
    end
    l += 1
    # params 
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.params[0] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.params[1] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.params[2] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.params[3] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.params[4] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.params[5] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.params[6] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.params[7] = $2.to_s
    end
    l += 1
    # etypes
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.etypes[0] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.etypes[1] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.etypes[2] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.etypes[3] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.etypes[4] = $2.to_s
    end
    l += 1
    # commands 
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[0] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[1] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[2] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[3] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[4] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[5] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[6] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[7] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[8] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[9] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[10] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[11] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[12] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[13] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[14] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[15] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[16] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[17] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[18] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[19] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[20] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[21] = $2.to_s
    end
    l += 1
    data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
      $data_system.terms.commands[22] = $2.to_s
    end
    l += 3 # \n\n
    
    save_data($data_actors, "Data/Actors.rvdata2")
    save_data($data_classes, "Data/Classes.rvdata2")
    save_data($data_skills, "Data/Skills.rvdata2")
    save_data($data_items, "Data/Items.rvdata2")
    save_data($data_weapons, "Data/Weapons.rvdata2")
    save_data($data_armors, "Data/Armors.rvdata2")
    save_data($data_enemies, "Data/Enemies.rvdata2")
    save_data($data_troops, "Data/Troops.rvdata2")
    save_data($data_states, "Data/States.rvdata2")
    save_data($data_animations, "Data/Animations.rvdata2")
    save_data($data_system, "Data/System.rvdata2")
    
    
    @line_all = l if !$dials.do_db_is_file
  end
  
  def import_common_events
    l = $dials.do_common_is_file ? 0 : @line_all 
    data = $dials.do_common_is_file ? @lines_common : @lines 
    l += 1 if $dials.do_comments #COMMON EVENTS
    has_dials = false
    
    choices = []
    for i in 1...$data_common_events.size
      l += 1 # common_event_id
      
      # common_event_name
      data[l].gsub(/\A(.+?)\:(.+?)\Z/) do
        $data_common_events[i].name = $2.to_s
      end
      l += 1
      
      list = $data_common_events[i].list
      if list != nil
        for command in list
          case command.code
          when 101  #message start
            wait_flag = true
            l += 1 # counter id
          when 401  #message continue
            if wait_flag
              data[l].gsub(/\A(.+?)\n\Z/) do
                 command.parameters[0] = data[l] = $1.to_s
              end
              l += 1
              has_dials = true
            end
            when 102 #choices list
              wait_flag = false
              p data[l]
              l += 1 # counter id
              
              for j in 0...command.parameters[0].size
                data[l].gsub(/\A(.+?)\Z/) do
                  command.parameters[0][j] = $1.to_s
                  choices.push($1.to_s)
                end
                l += 1
              end
              choices.reverse! # нам нужен не стек, а очередь!
          when 402 #choice
            wait_flag = false
            command.parameters[1] = choices.pop
            
          else
            wait_flag = false
          end
        end
      end
    end
    l += 2 #\n\n
    @line_all = l if !$dials.do_common_is_file
    p @line_all
  end
  
  def import_map(map)
    l = $dials.do_map_is_file ? 0 : @line_all 
    data = $dials.do_map_is_file ? @lines_map : @lines
    
    l += 1 # == MAP map_id ==
    $game_map = Game_Map.new
    $game_map.setup(map)
    events=$game_map.events
    choices = []

    p 'map: ' + data[l]
    data[l].gsub(/\A(.+?)\:\[(.+?)\=\"(.+?)\"]\Z/) do
      $data_mapinfos[map].name = $3.to_s
    end
    l += 1

    wait_flag = false
    
    for i in 1..9999
      if events[i]!=nil        
        l += 1 # event_id
        
        for page in events[i].g_event.pages
          unless page.list.nil?
            for command in page.list
              case command.code
             when 101  #message start
                wait_flag = true
                l += 1 # counter id
              when 401  #message continue
                if wait_flag
                  data[l].gsub(/\A(.+?)\n\Z/) do
                    command.parameters[0] = data[l] = $1.to_s
                  end
                  l += 1
                end
              when 102 #choices list
                wait_flag = false
                p data[l]
                l += 1 # counter id
                
                for j in 0...command.parameters[0].size
                  data[l].gsub(/\A(.+?)\Z/) do
                    command.parameters[0][j] = $1.to_s
                    choices.push($1.to_s)
                  end
                  l += 1
                end
                choices.reverse! # нам нужен не стек, а очередь!
              when 402 #choice
                wait_flag = false
                command.parameters[1] = choices.pop
                
              else
                wait_flag = false
              end
            end
          end
        end
      end
    end
    l += 2 #\n\n
    @line_all = l if !$dials.do_map_is_file
  end
end

Использование для XP:
Вызов команд простой:
@extractor = Dial_Extract.new - создать экземпляр класса экстрактора
@extractor.export("dials.txt") - экспортировать диалоги и БД в файл dials.txt
@extractor.import("dials.txt") - импортировать диалоги и БД из файла dials.txt

На закуску - демка, в которой добавлен еще один класс Scene_Language, вызывающийся перед титульным экраном (в Main вместо $scene = Scene_Title.new => $scene = Scene_Language.new), позволяющий выбрать язык перед началом игры.
http://yadi.sk/d/UEacESFV6iOMj
В папке с демой лежит экспортированный файл dials_rus.txt и, частичнопереведенный, dials_eng.txt. Нужный файл подгружается на лету и меняет язык диалогов, БД и названия карты.

Использование для ACE:
Описание работы и настроек лежит в файле Dials. Также при помощи модуля настроек можно экспортить / импортить без дополнитильных усилий.
Демку прилагаю https://yadi.sk/d/AG1rXG9ud2QWe

Общие правила:
- Выбираете удобные настройки экспорта (можно все в 1 файл либо разделить БД, общие события и карты, или даже разбить карты на кучу файлов покартово)
- Экспортируете
- Правите текстовые файлы
- Импортируете при тех же настройках и не меняя ничего в игре между экспортом и импортом

PS:
В будущем планируется сделать:
- более удобный интерфейс и частичную выгрузку/загрузку и для XP
- автоподгонку текста (с переносами и добавлением при необходимости доп команд вывода)

**еХе** · 11.07.2013, 11:52

Сообщение от caveman

DeadElf79 готовит аналог для VX ACE

Скорее бы

**caveman** · 11.07.2013, 12:13

Да он увлекся этим CIGUI.
Посмотрим, будет чуть свободного времени - может попрошу его наработки (у него готов экспорт для аси) и доделаю импорт.

Upd: выпросил, читаю, разбираюсь)

**Валера** · 11.07.2013, 15:19

На энтузиазме держится мейкер.

**caveman** · 12.07.2013, 14:58

Сделал версию для VX ACE, с более удобным интерфейсом и возможностью экспорта/импорта частично и в разные файлы (настройки и экспорт от DeadElf79, импорт обратно - дописал caveman). Обновил первый пост и выдал ссылку на демо для ace.
Протестировал на своей "Долгая дорога домой" парой способов - работает. Если найдете ошибки - сообщайте. И настоятельно рекомендую бекапить проекты перед использованием скрипта

Модерам: не нашел как исправить префикс в названии темы с

на [XP, VXACE], если можете - поправьте

**Рольф** · 26.12.2014, 05:00

Перезалей демку для асе.

П.с. Все разобрался. Хороший скрипт.

**Рольф** · 19.01.2015, 12:18

Использую версию вх, хороший скрипт.

**caveman** · 19.01.2015, 13:32

https://yadi.sk/d/UstuEDoGe5sTa просто вставил скрипты в демку квестбука Эльфа. Появился пункт в главном меню "Настройки".
Там экспортировать / импортировать.