ТЕМА: (XP) ARK Name Input

class Window_NameInput   Window_Base
  CHARACTER_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 ,   ,   ,   ,   ,
     a , b , c , d , e , f , g , h , i , j ,
     k , l , m , n , o , p , q , a , s , t ,
     u , v , w , x , y , z ,   ,   ,   ,   ,
       ,   ,   ,   ,   ,   ,   ,   ,   ,   ,
       ,   ,   ,   ,   ,   ,   ,   ,   ,   ,
     0 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 ,
     @ , $ , ~ , % , ^ , & , № ,   ,   ,   ,
     А , Б , В , Г , Д , Е , Ё , Ж , З , И ,
     Й , К , Л , М , Н , О , П , Р , С , Т ,
     У , Ф , Х , Ц , Ч , Ш , Щ , Ъ , Ы , Ь ,
     Э , Ю , Я ,   ,   ,   ,   ,   ,   ,   ,
     а , б , в , г , д , е , ё , ж , з , и ,
     й , к , л , м , н , о , п , р , с , т ,
     у , ф , х , ц , ч , ш , щ , ъ , ы , ь ,
     э , ю , я ,   ,   ,   ,   ,   ,   ,   ,
     . , , , : , ; , ! , ? , * ,   , # , ` ,
     + , - , * , = , / , ( , ) , [ , ] , _ ,
  ]
  #--------------------------------------------------
  def initialize
    super(0, 128, 640, 352)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name =  Arial 
    self.contents.font.size = 24
    @index = 0
    refresh
    update_cursor_rect
  end
  #--------------------------------------------------
  def character
    return CHARACTER_TABLE[@index]
  end
  #--------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0..199
      x = 4 + i / 10 / 10 * 316 + i % 10 * 28
      y = i / 10 % 10 * 28
      self.contents.draw_text(x, y, 28, 28, CHARACTER_TABLE[i], 1)
    end
    self.contents.draw_text(528, 10 * 29, 72, 32,  Принять , 1)
  end
  #--------------------------------------------------
  def update_cursor_rect
    if @index  = 200
      self.cursor_rect.set(520, 10 * 29, 88, 32)
    else
      x = 4 + @index / 10 / 10 * 316 + @index % 10 * 28
      y = @index / 10 % 10 * 28
      self.cursor_rect.set(x, y, 28, 28)
    end
  end
  #--------------------------------------------------
  def update
    super
    if @index  = 200
      if Input.trigger?(Input::DOWN)
        $game_system.se_play($data_system.cursor_se)
        @index -= 200
      end
      if Input.repeat?(Input::UP)
        $game_system.se_play($data_system.cursor_se)
        @index -= 200 - 90
      end
    else
      if Input.repeat?(Input::RIGHT)
        if Input.trigger?(Input::RIGHT) or
           @index / 100   1 or @index % 10   9
          $game_system.se_play($data_system.cursor_se)
          if @index % 10  9          
            @index += 1
          else
            @index += 100 -9
          end
          if @index  = 200
            @index -= 200
          end
        end
      end
      if Input.repeat?(Input::LEFT)
        if Input.trigger?(Input::LEFT) or
           @index / 100   0 or @index % 10   0
          $game_system.se_play($data_system.cursor_se)
          if @index % 10   0
            @index -= 1
          else
            @index -= 100 - 9
          end
          if @index   0
            @index += 200
          end
        end
      end
      if Input.repeat?(Input::DOWN)
        $game_system.se_play($data_system.cursor_se)
        if @index % 100   90
          @index += 10
        else
          @index += 200 - 90
        end
      end
      if Input.repeat?(Input::UP)
        if Input.trigger?(Input::UP) or @index % 100  = 10
          $game_system.se_play($data_system.cursor_se)
          if @index % 100  = 10
            @index -= 10
          else
            @index += 200
          end
        end
      end
      if Input.repeat?(Input::L) or Input.repeat?(Input::R)
        $game_system.se_play($data_system.cursor_se)
        if @index / 100   2
          @index +=200
        else
          @index -= 200
        end
      end
    end
    update_cursor_rect
  end
end