# =============================================================================
# TheoAllen - External Texts
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (This script documentation is written in informal indonesian language)
# =============================================================================
($imported ||= {})[:Theo_ExternalTexts] = true
# =============================================================================
# Change Logs:
# -----------------------------------------------------------------------------
# 2014.02.07 - Finished script
# =============================================================================
=begin

  -----------------------------------------------------------------------------
  Perkenalan :
  Sempat berkeinginan untuk ngebikin game kamu jadi dual language? Namun keburu
  males duluan lantaran bakal kebanyakan percabangan? Pengen nyatet dialog
  in game pake file external biar bisa saling cross check dengan timmu? Script
  ini bisa menjawab keinginanmu
  
  -----------------------------------------------------------------------------
  Cara penggunaan :
  Pasang script ini di bawah material namun di atas main
  Buat folder baru di dalam folder data dengan nama "Texts"
  
  Buat file baru di dalam folder tersebut dengan Ms.Excel (atawa software 
  sejenisnya). Isi dengan format yang udah wa jelasin diblog. Simpan dengan 
  ekstensi [dot]csv
  
  Panggil text yang sudah kamu tulis dengan script call
  set_message("namafile", "key")
  
  Instruksi lengkap : 
  http://theolized.blogspot.com/2014/02/theo-external-texts.html
  
  Karena bakal banyak gambar dan susah jelasin kalo cuman dari sekedar tulisan
  komen di script kayak gini
  
  -----------------------------------------------------------------------------
  Terms of use :
  Credit gw, TheoAllen. Kalo semisal u bisa ngedit2 script gw trus jadi lebih
  keren, terserah. Ane bebasin. Asal ngga ngeklaim aja. Kalo semisal mau
  dipake buat komersil, jangan lupa, gw dibagi gratisannya.    

=end
# =============================================================================
# Tentukan switch ID untuk merubah bahasa disini. Isi dengan 0 jika kamu
# tidak menggunakannya
# =============================================================================
  TextSwitch = 1
# =============================================================================
# Jangan sentuh apapun setelah baris ini
# =============================================================================
module Theo
  module MsgCache
    Text_Key = /<(.+)>/
    Text_Skip = /#+/
    
    def self.init
      @cache = {}
    end
  
    def self.openfile(path)
      path = "Data/Texts/#{path}.csv"
      if @cache[path]
        @cache[path]
      else
        set_cache(path)
      end
    end
  
    def self.set_cache(path)
      @cache[path] = TextMessages.new(path)
      @cache[path]
    end
  
    def self.get_text(path, key)
      openfile(path).get_text(key) rescue nil
    end
  end
end
Theo::MsgCache.init
class Game_Interpreter
  
  def set_message(path, key)
    wait_for_message
    text_file = Theo::MsgCache.get_text(path, key)
    unless text_file
      msgbox "Message with following keys doesn't exist\n\n"+
      "Path : #{path}.csv\n"+
      "Key : #{key}\n\n"+
      "Please recheck once again"
      return
    end
    $game_message.face_name   = text_file.face_name
    $game_message.face_index  = text_file.face_index
    $game_message.background  = text_file.background
    $game_message.position    = text_file.position
    text_file.get_text.each do |text_msg|
      $game_message.add(text_msg)
    end
    case next_event_code
    when 102  # Show Choices
      @index += 1
      setup_choices(@list[@index].parameters)
    when 103  # Input Number
      @index += 1
      setup_num_input(@list[@index].parameters)
    when 104  # Select Item
      @index += 1
      setup_item_choice(@list[@index].parameters)
    end
    wait_for_message
  end
  
end

class TextMessages
  
  def initialize(path)
    @texts = {}
    @path = path
    setup(path)
  end
  
  def setup(path)
    file = File.open(path, 'r')
    text_node = nil
    file.each_line do |data|
      array = data.split(/[\n;]/)
      next if array[0] =~ Theo::MsgCache::Text_Skip
      if array[0][Theo::MsgCache::Text_Key]
        key = $1.to_s
        text_node = TextMessage.new
        text_node.face_name = array[1].to_s
        text_node.face_index = array[2].to_i
        text_node.position = array[3].to_i if array[3]
        text_node.background = array[4].to_i
        @texts[key] = text_node
      elsif text_node
        text_node.text1.push(array[0]) if !array[0].empty?
        text2 = array[1].to_s
        text_node.text2.push(text2) if !text2.empty?
      end
    end
    file.close
  end
  
  def get_text(key)
    @texts[key]
  end
  
end

class TextMessage
  attr_accessor :face_index
  attr_accessor :face_name
  attr_accessor :position
  attr_accessor :background
  attr_accessor :text1
  attr_accessor :text2
  
  def initialize
    @face_index = 0
    @face_name = ''
    @position = 2
    @background = 0
    @text1 = []
    @text2 = []
  end
  
  def get_text
    $game_switches[TextSwitch] ? text2 : text1
  end
  
end