class Scene_Creator
  attr_accessor :categories
  def initialize
    $charset = []
    $sexe = 0
    @ok = false
    @cat = ["Corps", "Yeux", "Tete", "Haut", "Bas", "Objets"]
    @listing = Game_Listing.new
    @categories = Window_Command.new(394,@cat, 6, 0)
    @categories.index = 0;  @categories.active = false
    @categories.y = 416-@categories.height; @categories.x = 150
    @help_window = Window_Help.new
    @choix = Window_Command.new(150,["Choisir", 'Retirer', 'Suivant', 'Quitter'])
    @choix.height = 104; @choix.y = 416 - @choix.height
    @choix.active = true
    @listes = Window_Command.new(150,@listing.type(@cat[@categories.index])[$sexe])
    @listes.y = 56; @listes.height = 256; @listes.active = false
    @vue = Window_Vue.new
  end
  def main
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      break if $scene != self
    end
    Graphics.freeze
    @help_window.dispose
    @vue.calque.dispose rescue nil
    @vue.dispose;@choix.dispose;@listes.dispose;@categories.dispose
  end
  def update
    @listes.update
    @help_window.update
    @categories.update
    @choix.update
    (@listes.dispose;@listes=Window_Command.new(150,@listing.type(@cat[@categories.index])[$sexe]);@listes.y=56;@listes.height=256;@listes.active=false) if @categories.active
    @vue.refresh(@cat[@categories.index]+"/"+@listing.type(@cat[@categories.index])[$sexe][@listes.index]) rescue nil if @listes.active
    if Input.trigger?(Input::C)
      (@listes.y=56;@listes.height=256;@listes.active = true;@categories.active=false;return) if @categories.active
      (($charset.push(Cache.creator(@cat[@categories.index]+"/"+@listing.type(@cat[@categories.index])[$sexe][@listes.index]));@categories.active=true;@categories.index+=1 rescue nil;return)rescue nil) if @listes.active && !@ok
      if @choix.active
        case @choix.index
        when 0; @categories.active=true;@choix.active=false; ok = false
        when 1; @choix.active=false;@listes.dispose;@listes=Window_Command.new(150,$charset);@listes.y=56;@listes.height=256; @ok = true; return
        when 3; creation
        end
      end
    end
    if Input.trigger?(Input::B)
      (@categories.active=true;@listes.active=false;@choix.active=false;return) if @listes.active
      (@choix.active=true;@categories.active=false;@listes.active=false rescue nil;return) if @categories.active
      $scene = Scene_Map.new if @choix.active
    end
  end
  def creation
    @a = Bitmap.new(128,192)
    @a.rect.set(299,128,128,192)
    $charset.each { |element| @a.stretch_blt(Rect.new(0,0, 128,192), element, element.rect, 255)}
    capture(@a, "hero.bmp")
    $scene = Scene_Map.new
  end
end

class Window_Vue < Window_Base
  attr_accessor :calque
  def initialize
    super(150, 56, 394, 304)
    @calque = Sprite.new
    refresh
  end
  def refresh(fichier = "")
    self.contents.clear
    (@calque.bitmap = Cache.creator(fichier)
    @calque.z = 1000 * ($scene.categories.index+1)
    @calque.x,@calque.y = 299, 128)rescue nil
    if !$charset.empty?
      $charset.each { |element|
      self.contents.stretch_blt(Rect.new((self.width-element.width)/2, (self.height-element.height)/2, 128,192), element, element.rect, 255)}
    end
  end
end
module Cache
  def self.creator(filename)
    load_bitmap("./creator/", filename)
  end
end