module BI
  module DJIIN
    Armor_ID = 1
    # Ici, mettez le type de l'armure :
#~    1 => Bouclier
#~    2 => Casque
#~    3 => Armure
#~    4 => Acessoire
    Type_Armor = 1
   
    #Mettez ici, l'id du skill que l'armure nous apprend en fonction du level !
    Skill_ID = {
    0 => 1,
    1 => 1,
    2 => 1,
    3 => 1,
    4 => 2,
    }
   
    Name_Djiin = "Truc" # Nom de Base
    Exp_Djiin = 2 # Variable qui stocke l'exp.
    Level_Djiin = 3 # Variable qui stocke le level.
   
   
    # Pour gagner une valeur aléatoire d'exp, mettez rand(NB) avec NB = nombre max.
    # Ex : rand(20) vous fera gagne une valeur d'exp aléatoire entre 0 et 20
    Skill_Use_Exp = rand(10) # Augmentation des exp à chaque utilisation du skill !
   
   
    # Mettez ici les exps que doivent atteindre le bouclier pour monter de niveau.
    # A chaque monter de niveau, l'exp se remet à 0 !!
    Level_Up = {
    0 => 2,
    1 => 4,
    2 => 6,
    3 => 8,
    4 => 10,
    }
   
    Stats_Level = {
    0 => [ Force = 0, Def = 0, Agi = 0, Int = 0],
    1 => [ Force = 1, Def = 1, Agi = 1, Int = 1],
    2 => [ Force = 2, Def = 2, Agi = 2, Int = 2],
    3 => [ Force = 3, Def = 3, Agi = 3, Int = 3],
    4 => [ Force = 4, Def = 4, Agi = 4, Int = 4],
    }
 
    COMMAND = "Djiin" # Nom de l'onglet qui apparait dans le menu !
   
    FACE = "Face_Djiin" # Nom de la face du djiin. Celle-ci doit être seule et doit se trouver dans le dossier Faces
   
    LEVEL_UP_BATTLE = "Votre Djiin monte de niveau !"
  end
end

#======================================================================#
# SCENE_TITLE
#======================================================================#

class Scene_Title < Scene_Base
 
  alias command_new_game_djiin command_new_game
  alias command_continue_djiin command_continue
 
  include BI::DJIIN
 
  def command_new_game
    command_new_game_djiin
    $djiin = Djiin.new
  end
 
  def command_continue
    command_continue_djiin
    if @continue_enabled
      if $djiin == nil
        $djiin = Djiin.new
      end
    end
  end
end


#======================================================================#
# SCENE_BATTLE
#======================================================================#

class Scene_Battle < Scene_Base
 
  include BI::DJIIN
 
  alias display_exp_and_gold_djiin display_exp_and_gold
  alias start_djiin start
 
  def start
    start_djiin
    $level_djiin = nil
  end
   
 
  def djiin_skill
          if @skill_window != nil
        if @skill_window.skill != nil and @skill_window.skill.id != nil
          if @skill_window.skill.id == Skill_ID[$game_variables[Level_Djiin]]
            $game_variables[Exp_Djiin] += Skill_Use_Exp
            if $game_variables[Exp_Djiin] >= Level_Up[$game_variables[Level_Djiin]]
                  for i in $game_party.members
        if Type_Armor == 1 # Bouclier
          type = i.armor1_id
        elsif Type_Armor == 2 # Casque
          type = i.armor2_id
        elsif Type_Armor == 3 # Armure
          type = i.armor3_id
        elsif Type_Armor == 4 # Accessoire
          type = i.armor4_id
        end # if
       
        if type == Armor_ID
            i.forget_skill(Skill_ID[$game_variables[Level_Djiin]])
        end
    end # for

            $game_variables[Level_Djiin] += 1
            i.learn_skill(Skill_ID[$game_variables[Level_Djiin]])
           
            $data_armors[Armor_ID].atk = Stats_Level[$game_variables[Level_Djiin]][0]
            $data_armors[Armor_ID].def = Stats_Level[$game_variables[Level_Djiin]][1]
            $data_armors[Armor_ID].agi = Stats_Level[$game_variables[Level_Djiin]][2]
            $data_armors[Armor_ID].spi = Stats_Level[$game_variables[Level_Djiin]][3]
            $game_variables[Exp_Djiin] = 0
            $level_djiin = true
          else
            $level_djiin = false
            end
          end
        end
      end
    end
   
    def update_target_enemy_selection
    @target_enemy_window.update
    if Input.trigger?(Input::B)
      Sound.play_cancel
      end_target_enemy_selection
    elsif Input.trigger?(Input::C)
      Sound.play_decision
      @active_battler.action.target_index = @target_enemy_window.enemy.index
      end_target_enemy_selection
      djiin_skill
      end_skill_selection
      end_item_selection
      next_actor
    end
  end
 
  def display_exp_and_gold
  if $level_djiin == true
      text = LEVEL_UP_BATTLE.to_s
      $game_message.texts.push('\.' + text)
    end
    display_exp_and_gold_djiin
end


  def determine_skill
    @active_battler.action.set_skill(@skill.id)
    @skill_window.active = false
    if @skill.need_selection?
      if @skill.for_opponent?
        start_target_enemy_selection
      else
        start_target_actor_selection
      end
    else
      djiin_skill
      end_skill_selection
      next_actor
    end
  end

end

#======================================================================#
# SCENE_MAP
#======================================================================#

class Scene_Map < Scene_Base
  include BI::DJIIN
 
  alias update_djiin update
 
  def update
    update_djiin
    for i in $game_party.members
        if Type_Armor == 1 # Bouclier
          type = i.armor1_id
        elsif Type_Armor == 2 # Casque
          type = i.armor2_id
        elsif Type_Armor == 3 # Armure
          type = i.armor3_id
        elsif Type_Armor == 4 # Accessoire
          type = i.armor4_id
        end # if
       
        if type == Armor_ID
          if Skill_ID != nil or Skill_ID != 0
            i.learn_skill(Skill_ID[$game_variables[Level_Djiin]])
          end
        else
            i.forget_skill(Skill_ID[$game_variables[Level_Djiin]])
        end
    end # for
  end # udpate
end # Scene_Map


#======================================================================#
# SCENE_EQUIP
#======================================================================#

class Scene_Equip < Scene_Base
 
  include BI::DJIIN
 
    def update_item_selection
    if Input.trigger?(Input::B)
      Sound.play_cancel
      @equip_window.active = true
      @item_window.active = false
      @item_window.index = -1
    elsif Input.trigger?(Input::C)
      Sound.play_equip
      @actor.change_equip(@equip_window.index, @item_window.item)
      @equip_window.active = true
      @item_window.active = false
      if @item_window.item == $data_armors[Armor_ID]
        $game_actors[@equip_window.index].learn_skill(Skill_ID[$game_variables[Level_Djiin]])
      else
        $game_actors[@equip_window.index].forget_skill(Skill_ID[$game_variables[Level_Djiin]])
      end
      @item_window.index = -1
      @equip_window.refresh
      for item_window in @item_windows
        item_window.refresh
      end
    end
  end

end

#======================================================================#
# DJIIN
#======================================================================#

class Djiin < Scene_Base
 
  attr_reader  :name                    # name
  attr_reader  :exp                          # exp
  attr_reader  :lvl                            # lvl
 
  include BI::DJIIN
 
  def name
    return Name_Djiin.to_s
  end
 
  def exp
    return $game_variables[Exp_Djiin].to_s
  end
 
  def lvl
    return $game_variables[Level_Djiin].to_s
  end
 
  def start
    create_menu_background
    @win = Window_Base.new(0, 0, 350, 300)
    @win.x = (544/2) - (350/2)
    @win.y = (416/2) - (300/2)
    @win.z = 255
    draw_djiin
  end
 
  def terminate
    dispose_menu_background
    @win.dispose
    dispose_djiin
  end
 
  def update
    if Input.trigger?(Input::C) or Input.trigger?(Input::B)
      $scene = Scene_Menu.new(4)
    end
  end
 
  def draw_djiin
    @face = Sprite.new
    @face.bitmap = Cache.face(FACE)
    @face.x = @win.x + 10
    @face.y = @win.y + 10
    @face.z =@win.z + 10
   
    @name_txt = "Nom du Djiin : "
    @exp_txt = "Exp du Djiin : "
    @lvl_txt = "Niveau du Djiin : "
    @prochain = "Prochain niveau dans        exp"
    @win.contents.font.color = Color.new(90, 90, 255, 255)
    @win.contents.draw_text( @face.x , -175, 544, 416, @name_txt, 0)
    @win.contents.draw_text( 20 , -100, 544, 416, @exp_txt, 0)
    @win.contents.draw_text( 20 , -25, 544, 416, @lvl_txt, 0)
    @win.contents.draw_text( 45+5, 25, 544, 416, @prochain, 0)
    @name = Name_Djiin
    @exp = $game_variables[Exp_Djiin]
    @lvl = $game_variables[Level_Djiin]
    @win.contents.font.color = Color.new(255, 255, 255, 255)
    @win.contents.draw_text( @face.x  + 25, -150, 544, 416, @name, 0)
    @win.contents.draw_text( 20 + 25, -75, 544, 416, @exp, 0)
    @win.contents.draw_text( 20 +25 , 0, 544, 416, @lvl, 0)
    @prochain_exp = Level_Up[$game_variables[Level_Djiin]] - $game_variables[Exp_Djiin]
    @win.contents.draw_text(250, 25, 544, 416, @prochain_exp, 0)
  end
 
 
  def dispose_djiin
    @face.dispose
  end
end


#======================================================================#
# SCENE_MENU
#======================================================================#

class Scene_Menu < Scene_Base
 
  include BI::DJIIN
    #--------------------------------------------------------------------------
  # * Create Command Window
  #--------------------------------------------------------------------------
  def create_command_window
    s1 = Vocab::item
    s2 = Vocab::skill
    s3 = Vocab::equip
    s4 = Vocab::status
    s7 = COMMAND
    s5 = Vocab::save
    s6 = Vocab::game_end
    @command_window = Window_Command.new(160, [s1, s2, s3, s4, s7, s5, s6])
    @command_window.index = @menu_index
    if $game_party.members.size == 0          # If number of party members is 0
      @command_window.draw_item(0, false)    # Disable item
      @command_window.draw_item(1, false)    # Disable skill
      @command_window.draw_item(2, false)    # Disable equipment
      @command_window.draw_item(3, false)    # Disable status
    end
    if $game_system.save_disabled            # If save is forbidden
      @command_window.draw_item(5, false)    # Disable save
    end
  end
 
  def update_command_selection
    if Input.trigger?(Input::B)
      Sound.play_cancel
      $scene = Scene_Map.new
    elsif Input.trigger?(Input::C)
      if $game_party.members.size == 0 and @command_window.index < 4
        Sound.play_buzzer
        return
      elsif $game_system.save_disabled and @command_window.index == 4
        Sound.play_buzzer
        return
      end
      Sound.play_decision
      case @command_window.index
      when 0      # Item
        $scene = Scene_Item.new
      when 1,2,3  # Skill, equipment, status
        start_actor_selection
      when 4
        $scene = Djiin.new
      when 5      # Save
        $scene = Scene_File.new(true, false, false)
      when 6      # End Game
        $scene = Scene_End.new
      end
    end
  end
end