테스트용으로 예전에 해 본 것입니다.  손댄 것이라고는 해도 문자셋 추가 정도입니다.  한글 문자셋은 조합입력 루틴이 없는 더미로, 그냥 이런 식으로 문자셋 추가가 가능함을 보여주는 예시입니다.(물론 마음같아서는 모 씨의 한글이름 입력기의 조합입력 부분을 도입하고 싶지만 실력이 안 되어서...)  원본이 어떻게 작동하는 지 궁금하다면 http://avangs.info/255902에 첨부되어 있는 데모를 받아서 실행시켜 보기 바랍니다.

# Advanced Enter Hero Name Window
# by RPG Advocate


#==============================================================================
# ** Window_NameEdit
#------------------------------------------------------------------------------
#  This window is used to edit your name on the input name screen.
#==============================================================================

class Window_NameEdit < Window_Base
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :char_type                # character type
  #--------------------------------------------------------------------------
  # * Object Initialization
  #     actor    : actor
  #     max_char : maximum number of characters
  #--------------------------------------------------------------------------
  def initialize(actor, max_char)
    super(0, 0, 640, 128)
    self.contents = Bitmap.new(width - 32, height - 32)
    @actor = actor
    @name = actor.name
    @max_char = max_char
    @char_type = []
    # Fit name within maximum number of characters
    name_array = @name.split(//)[0...@max_char]
    @name = ""
    for i in 0...name_array.size
      @name += name_array[i]
      @char_type[i] = 1
    end
    @default_name = @name
    @index = name_array.size
    refresh
    update_cursor_rect
  end
  #--------------------------------------------------------------------------
  # * Return to Default Name
  #--------------------------------------------------------------------------
  def restore_default
    @name = @default_name
    for i in 0..@default_name.size
       @char_type[i] = 1
    end
    @index = @name.split(//).size
    refresh
    update_cursor_rect
  end
  #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    # Draw name
    name_array = @name.split(//)
    for i in 0...@max_char
      c = name_array[i]
      if c == nil
        c = "＿"
      end
      x = 320 - @max_char * 14 + i * 28
      if @char_type[i] == 1 or @char_type[i] == 5
        self.contents.font.name = "Arial"
        self.contents.font.size = 24
      elsif @char_type[i] == 2 or @char_type[i] == 3
        self.contents.font.name = ["ＭＳ Ｐゴシック",'MS PGothic']
        self.contents.font.size = 22
      else
        self.contents.font.name = ["굴림",'Gulim']
        self.contents.font.size = 22
      end
      self.contents.draw_text(x, 32, 28, 32, c, 1)
    end
    # Draw graphic
    draw_actor_graphic(@actor, 320 - @max_char * 14 - 40, 80)
  end
end



#==============================================================================
# ** Window_NameInput
#------------------------------------------------------------------------------
#  This window is used to select text characters on the input name screen.
#==============================================================================

class Window_NameInput < Window_Base
  #--------------------------------------------------------------------------
  # * Public Instance Variables
  #--------------------------------------------------------------------------
  attr_accessor :mode
  #--------------------------------------------------------------------------
  # * CONSTANTS
  #--------------------------------------------------------------------------
  ENGLISH_TABLE =
  [
    "A","B","C","D","E",
    "F","G","H","I","J",
    "K","L","M","N","O",
    "P","Q","R","S","T",
    "U","V","W","X","Y",
    "Z","","IJ","Ç","Ñ",
    "0","1","2","3","4",
    "5", "6" ,"7", "8" ,"9",
    "","","","","",
    "a", "b" ,"c", "d" ,"e",
    "f","g","h","i","j",
    "k","l","m","n","o",
    "p","q","r","s","t",
    "u","v","w","x","y",
    "z","","ij","ç","ñ",
    ".",",","?","!","/",
    "\\","<",">",";",":",
    "","", "" , "" , "" ,
    "@","#","$","%","^",
    "&","*","(",")","",
    "[","]","'","\"","~",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "", "" ,"", "" ,"",
    "","","","","",
  ]
  HIRAGANA_TABLE =
  [
    "あ","い","う","え","お",
    "か","き","く","け","こ",
    "さ","し","す","せ","そ",
    "た","ち","つ","て","と",
    "な","に","ぬ","ね","の",
    "は","ひ","ふ","へ","ほ",
    "ま","み","む","め","も",
    "や", "" ,"ゆ", "" ,"よ",
    "ら","り","る","れ","ろ",
    "わ", "" ,"を", "" ,"ん",
    "が","ぎ","ぐ","げ","ご",
    "ざ","じ","ず","ぜ","ぞ",
    "だ","ぢ","づ","で","ど",
    "ば","び","ぶ","べ","ぼ",
    "ぱ","ぴ","ぷ","ぺ","ぽ",
    "ゃ","ゅ","ょ","っ","ゎ",
    "ぁ","ぃ","ぅ","ぇ","ぉ",
    "ー","・", "" , "" , "" ,
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
  ]
  KATAKANA_TABLE =
  [
    "ア","イ","ウ","エ","オ",
    "カ","キ","ク","ケ","コ",
    "サ","シ","ス","セ","ソ",
    "タ","チ","ツ","テ","ト",
    "ナ","ニ","ヌ","ネ","ノ",
    "ハ","ヒ","フ","ヘ","ホ",
    "マ","ミ","ム","メ","モ",
    "ヤ", "" ,"ユ", "" ,"ヨ",
    "ラ","リ","ル","レ","ロ",
    "ワ", "" ,"ヲ", "" ,"ン",
    "ガ","ギ","グ","ゲ","ゴ",
    "ザ","ジ","ズ","ゼ","ゾ",
    "ダ","ヂ","ヅ","デ","ド",
    "バ","ビ","ブ","ベ","ボ",
    "パ","ピ","プ","ペ","ポ",
    "ャ","ュ","ョ","ッ","ヮ",
    "ァ","ィ","ゥ","ェ","ォ",
    "ー","・","ヴ", "" , "" ,
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
  ]
  HANGUL_TABLE =
  [
    "ㄱ","ㄴ","ㄷ","ㄹ","ㅁ",
    "ㅂ","ㅅ","ㅇ","ㅈ","ㅊ",
    "ㅋ","ㅌ","ㅍ","ㅎ","",
    "ㄲ","ㄸ","ㅃ","ㅆ","ㅉ",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "ㅏ","ㅑ","ㅓ","ㅕ","ㅗ",
    "ㅛ", "ㅜ" ,"ㅠ", "ㅡ" ,"ㅣ",
    "ㅐ","ㅔ","ㅒ","ㅖ","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
    "","","","","",
  ]
  ETC_LATIN_LETTER_TABLE= #May require Unicode typeset
  [
    'À','È','Ì','Ò','Ù',
    'Á','É','Í','Ó','Ú',
    'Â','Ê','Î','Ô','Û',
    'Ä','Ë','Ï','Ö','Ü',
    'Ā','Ē','Ī','Ō','Ū',
    'Ă','Ĕ','Ĭ','Ŏ','Ŭ',
    'Ǎ','Ě','Ǐ','Ǒ','Ǔ',
    'Ã','Ẽ','Ĩ','Õ','Ũ',
    "","","","","",
    'à','è','ì','ò','ù',
    'á','é','í','ó','ú',
    'â','ê','î','ô','û',
    'ä','ë','ï','ö','ü',
    'ā','ē','ī','ō','ū',
    'ă','ĕ','ĭ','ŏ','ŭ',
    'ǎ','ě','ǐ','ǒ','ǔ',
    'ã','ẽ','ĩ','õ','ũ',
    "","","","","",
    'Å','Æ','Œ','Ø','Ÿ',
    'å','æ','œ','ø','ÿ',
    'Ő','Ű','Č','Ð','Đ',
    'ő','ű','č','ð','đ',
    "Ş","Ł","Ř","Š","Ž",
    "ş","ł","ř","š","ž",
    "","","","","",
    "","","","","",
    "","","","","¿",
  ]
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def initialize
    super(160, 128, 480, 352)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.active = false
    @index = -1
    @mode = 1
    refresh
    update_cursor_rect
  end
  #--------------------------------------------------------------------------
  # * Set Cursor Position
  #     index : new cursor position
  #--------------------------------------------------------------------------
  def index=(value)
    @index = value
    update_cursor_rect
  end
  #--------------------------------------------------------------------------
  # * Set Character Type
  #--------------------------------------------------------------------------
  def character
    if @mode == 1
      return ENGLISH_TABLE[@index]
    elsif @mode == 2
      return HIRAGANA_TABLE[@index]
    elsif @mode == 3
      return KATAKANA_TABLE[@index]
    elsif @mode == 4
      return HANGUL_TABLE[@index]
    else
      return ETC_LATIN_LETTER_TABLE[@index]
    end
  end
  #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0..134
      x = 4 + i / 5 / 9 * 152 + i % 5 * 28
      y = i / 5 % 9 * 32
      if @mode == 1
        self.contents.font.name = "Arial"
        self.contents.font.size = 24
        self.contents.draw_text(x, y, 28, 32, ENGLISH_TABLE[i], 1)
      elsif @mode == 2
        self.contents.font.name = ["ＭＳ Ｐゴシック",'MS PGothic']
        self.contents.font.size = 22
        self.contents.draw_text(x, y, 28, 32, HIRAGANA_TABLE[i], 1)
      elsif @mode == 3
        self.contents.font.name = ["ＭＳ Ｐゴシック",'MS PGothic']
        self.contents.font.size = 22
        self.contents.draw_text(x, y, 28, 32, KATAKANA_TABLE[i], 1)
      elsif @mode == 4
        self.contents.font.name = ["굴림",'Gulim']
        self.contents.font.size = 22
        self.contents.draw_text(x, y, 28, 32, HANGUL_TABLE[i], 1)
      else
        self.contents.font.name = "Arial"
        self.contents.font.size = 24
        self.contents.draw_text(x, y, 28, 32, ETC_LATIN_LETTER_TABLE[i], 1)
      end
    end
  end
  #--------------------------------------------------------------------------
  # * Update Cursor Rectangle
  #--------------------------------------------------------------------------
  def update_cursor_rect
    if self.active == false
      self.cursor_rect.empty
    else
      x = 4 + @index / 5 / 9 * 152 + @index % 5 * 28
      y = @index / 5 % 9 * 32
      self.cursor_rect.set(x, y, 28, 32)
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    super
    if @index >= 0 && @index <= 134
      if Input.repeat?(Input::RIGHT)
        $game_system.se_play($data_system.cursor_se)
          if @index % 5 == 4
            if @index < 94
              @index += 41
            end
          else
            @index += 1
          end
        end
      if Input.repeat?(Input::LEFT)
        $game_system.se_play($data_system.cursor_se)
          if @index % 5 == 0
            if @index < 45
              self.active = false
              @index = -999
              return
            else
              @index -= 41
            end
          else
            @index -= 1
          end
      end
      if Input.repeat?(Input::DOWN)
        $game_system.se_play($data_system.cursor_se)
        if @index % 45 < 40
          @index += 5
        end
      end
      if Input.repeat?(Input::UP)
        if Input.trigger?(Input::UP) or @index % 45 >= 5
          $game_system.se_play($data_system.cursor_se)
          if @index % 45 >= 5
            @index -= 5
          end
        end
      end
    end
    update_cursor_rect
  end
end



#==============================================================================
# ** Window_NameCommand
#------------------------------------------------------------------------------
#  This window is used to choose the font on the input name screen.
#==============================================================================

class Window_NameCommand < Window_Command
  #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0...@item_max
      if i == 1 or i == 2
        font = 1
        self.contents.font.name = ["ＭＳ Ｐゴシック",'MS PGothic']
        self.contents.font.size = 22
      elsif i == 3
        font = 2
        self.contents.font.name = ["굴림",'Gulim']
        self.contents.font.size = 22
      else
        font = 0
        self.contents.font.name = "Arial"
        self.contents.font.size = 24      
      end
      draw_item(i, normal_color, font)
    end
  end
  #--------------------------------------------------------------------------
  # * Draw Item
  #     index : item number
  #     color : text color
  #     f     : character fontname
  #--------------------------------------------------------------------------
  def draw_item(index, color, f)
    if f == 0
      self.contents.font.color = color
      self.contents.font.name = "Arial"
      self.contents.font.size = 24
    elsif f == 1
      self.contents.font.name = ["ＭＳ Ｐゴシック",'MS PGothic']
      self.contents.font.size = 22
    else
      self.contents.font.name = ["굴림",'Gulim']
      self.contents.font.size = 22
    end
    rect = Rect.new(4, 32 * index, self.contents.width - 8, 32)
    self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
    self.contents.draw_text(rect, @commands[index])
  end
end



#==============================================================================
# ** Scene_Name
#------------------------------------------------------------------------------
#  This class performs name input screen processing.
#==============================================================================

class Scene_Name
  #--------------------------------------------------------------------------
  # * Main Processing
  #--------------------------------------------------------------------------
  def main
    # Get actor
    @actor = $game_actors[$game_temp.name_actor_id]
    # Make windows
    @edit_window = Window_NameEdit.new(@actor, $game_temp.name_max_char)
    @input_window = Window_NameInput.new
    @alert_window = Window_Base.new(188, 208, 264, 64)
    @alert_window.contents = Bitmap.new(228, 32)
    @alert_window.contents.font.name = "Arial"
    @alert_window.contents.font.size = 24
    @alert_window.contents.draw_text(0, 0, 228, 32, "You must enter a name.")
    @alert_window.z = 1001
    @alert_window.visible = false
    c1 = "English"
    c2 = "ひらがな"
    c3 = "カタカナ"
    c4 = "한글"
    c5 = "Etc"
    c6 = "Space"
    c7 = "Backspace"
    c8 = "Default"
    c9 = "Done"
    commands = [c1, c2, c3, c4, c5, c6, c7, c8, c9]
    @command_window = Window_NameCommand.new(160, commands)
    @input_window.active = false
    @input_window.visible = true
    @command_window.index = 0
    @command_window.visible = true
    @command_window.active = true
    @command_window.x = 0
    @command_window.y = 128
    @command_window.z = 1000
    @alert_count = 0
    # Execute transition
    Graphics.transition
    # Main loop
    loop do
      # Update game screen
      Graphics.update
      # Update input information
      Input.update
      # Frame update
      update
      # Abort loop if screen is changed
      if $scene != self
        break
      end
    end    
    # Prepare for transition
    Graphics.freeze
    # Dispose of windows
    @edit_window.dispose
    @input_window.dispose
    @command_window.dispose
    @alert_window.dispose
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    # Update windows
    @edit_window.update
    @input_window.update
    @command_window.update
    @alert_window.update
    if @alert_window.visible == true && @alert_count > 0
      @alert_count -= 1
      if @alert_count <= 0
        @command_window.active = true
        @alert_window.visible = false
      end
      return
    end
    if @input_window.active == false
      @command_window.active = true
    end
    if @command_window.active == false
      @input_window.active = true
    end
    if Input.repeat?(Input::B) && @input_window.active == true
      if @edit_window.index == 0
        return
      else
        $game_system.se_play($data_system.cancel_se)
        @edit_window.back
      end
    end
    if Input.repeat?(Input::B) && @command_window.active == true
      $game_system.se_play($data_system.buzzer_se)
      return
    end
    if Input.trigger?(Input::C)
      if @command_window.active == true
        case @command_window.index
        when 0 #Latin Alphabet and Numbers
          $game_system.se_play($data_system.decision_se)
          @input_window.mode = 1
          @input_window.refresh
          @command_window.active = false
          @input_window.active = true
          @input_window.index = 0
          return
        when 1 #Japanese Hiragana
          $game_system.se_play($data_system.decision_se)
          @input_window.mode = 2
          @input_window.refresh
          @command_window.active = false
          @input_window.active = true
          @input_window.index = 0
          return
        when 2 #Japanese Katakana
          $game_system.se_play($data_system.decision_se)
          @input_window.mode = 3
          @input_window.refresh
          @command_window.active = false
          @input_window.active = true
          @input_window.index = 0
          return
        when 3 #Korean
          $game_system.se_play($data_system.decision_se)
          @input_window.mode = 4
          @input_window.refresh
          @command_window.active = false
          @input_window.active = true
          @input_window.index = 0
          return
        when 4 #Latin Alphabet with Diacritics and other
          $game_system.se_play($data_system.decision_se)
          @input_window.mode = 5
          @input_window.refresh
          @command_window.active = false
          @input_window.active = true
          @input_window.index = 0
          return
        when 5
          if @edit_window.index < $game_temp.name_max_char
            $game_system.se_play($data_system.decision_se)
            @edit_window.add(" ")
          else
            $game_system.se_play($data_system.buzzer_se)
          end
          return
        when 6
          $game_system.se_play($data_system.decision_se)
          @edit_window.back
          return
        when 7
          $game_system.se_play($data_system.decision_se)
          @edit_window.restore_default
          return
        when 8
          if @edit_window.name == ""
            $game_system.se_play($data_system.buzzer_se)
            @alert_window.visible = true
            @command_window.active = false
            @alert_count = 60
            return
          end
          $game_system.se_play($data_system.decision_se)
          @actor.name = @edit_window.name
          $game_system.se_play($data_system.decision_se)
          $scene = Scene_Map.new
          return
        end
      end
      if @edit_window.index == $game_temp.name_max_char && 
         @input_window.active == true
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      if @input_window.character == "" && @input_window.active == true
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      if @input_window.character != nil && @input_window.active == true &&
         @edit_window.index <= $game_temp.name_max_char
        $game_system.se_play($data_system.decision_se)
        if @input_window.mode == 1
          @edit_window.char_type[@edit_window.index] = 1
        else
          @edit_window.char_type[@edit_window.index] = 2
        end
        @edit_window.add(@input_window.character)
      end
      return
    end
  end
end