[XP] Objet et event commun[RESOLU]

#==============================================================================
# Objets trié par onglets
#----------------------------------
# Script de Sunabozu
# Ce script permet de trier les objets par onglet.
# Merci de ne pas distribuer ce script sans ma permission.
# Si vous avez un probleme, contactez moi sur RPG Creative.
#------------------------------------------------------------------------------
# ● Mode d'emploi :
# ● 1) Pour créer un onglet il faudra créer un nouvel élément dans la base de donnée
# contenant le symbole $ et portant le nom de l'onglet
# Exemple : Créer l'élément "$Objet" ou encore "$Trésor"
# ● 2) Ensuite tout les objets, armes ou armures devant s'afficher dans cet
# onglet devra avoir l'élément crée de coché
# ● 3) Seul les objets consommables seront affichés en combat
# ● 4) Si aucun élément n'est coché l'objet sera affiché en combat uniquement
#========================================================================
# class Window_Command_Item
# affiche les onglets
#========================================================================
class Window_Command_Item < Window_Selectable
 
  #----------------------------------------------------------------------------------------------------------------
  def initialize
    super(0, 64, 640, 64)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
   
    # initialisation des tableaux
    @commands = []            # nom des onglets
    @commands_id = []        # id de l'attribut
   
    for i in 0...$data_system.elements.size
      # clonage d'une case du tableau contenant les éléments
      tableau_element = $data_system.elements[i].clone
      # si le mot contient la lettre $
      if tableau_element.include?("$")
        # on remplace $ par rien (on supprime)
        tableau_element["$"] = ""
        # ajout de l'element sans le $ au tableau
        @commands[i] = tableau_element
        # ajout de l'id de l'element dans le tableau
        @commands_id[i] = i
      end     
    end
    # compactage des tableaux (supression espace vide)
    @commands.compact!
    @commands_id.compact!
   
    @item_max = @commands.size
    @column_max = @commands.size
   
    refresh
    self.index = 0
  end
 
  #----------------------------------------------------------------------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0...@item_max
      draw_item(i)
    end
  end
 
  #----------------------------------------------------------------------------------------------------------------
  def draw_item(index)
    x = 4 + index * ((640)/@item_max)
    w = self.width / @column_max - 32
    self.contents.draw_text(x, 0, w-4, 32, @commands[index])
  end
 
  #----------------------------------------------------------------------------------------------------------------
  def commands
    return @commands
  end
  #----------------------------------------------------------------------------------------------------------------
  def commands_id
    return @commands_id
  end
end

#========================================================================
# class Window_Item
# affiche les objets
#========================================================================
class Window_Item < Window_Selectable
 
  #----------------------------------------------------------------------------------------------------------------
  def initialize(id=0)
    super(0, 128, 640, 352)
    @column_max = 2
    self.index = 0
    # If in battle, move window to center of screen
    # and make it semi-transparent
    if $game_temp.in_battle
      self.y = 64
      self.height = 256
      self.back_opacity = 160
    end
    refresh(id)
  end
 
  #----------------------------------------------------------------------------------------------------------------
  def refresh(id=0)
    #-----------------------------------------------------------
    if self.contents != nil
      self.contents.dispose
      self.contents = nil
    end
   
    @data = []
    for i in 1...$data_items.size
      if ($game_party.item_number(i) > 0 and $data_items[i].element_set.include?(id)) or
        ($game_party.item_number(i) > 0 and $game_temp.in_battle)
        @data.push($data_items[i])
      end
    end
   
    unless $game_temp.in_battle
      for i in 1...$data_weapons.size
        if $game_party.weapon_number(i) > 0 and $data_weapons[i].element_set.include?(id)
          @data.push($data_weapons[i])
        end
      end
      for i in 1...$data_armors.size
        if $game_party.armor_number(i) > 0 and $data_armors[i].guard_element_set.include?(id)
          @data.push($data_armors[i])
        end
      end
    end
    @item_max = @data.size
    if @item_max > 0
      self.contents = Bitmap.new(width - 32, row_max * 32)
      self.contents.font.name = $fontface
      self.contents.font.size = $fontsize
      for i in 0...@item_max
        draw_item(i)
      end
    end
  end

end # class end



#========================================================================
# class Scene_Item
#========================================================================
class Scene_Item
 
  #----------------------------------------------------------------------------------------------------------------
  def main
    #-----------------------------------------------------------
    @help_window = Window_Help.new
    @command_window = Window_Command_Item.new
    @item_window = Window_Item.new(@command_window.commands_id[@command_window.index])
    @item_window.help_window = @help_window
    @help_window.set_text("")
    @target_window = Window_Target.new
    #-----------------------------------------------------------
    @command_window.active = true
    @command_window.visible = true
    @item_window.active = false
    @target_window.visible = false
    @target_window.active = false
    #-----------------------------------------------------------
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    #-----------------------------------------------------------
    @help_window.dispose
    @item_window.dispose
    @target_window.dispose
    @command_window.dispose
  end
 
  #----------------------------------------------------------------------------------------------------------------
  def update
    #-----------------------------------------------------------
    @item_window.update
    @target_window.update
    @command_window.update
    #-----------------------------------------------------------
    if @item_window.active
      update_item
      return
    end
    #-----------------------------------------------------------
    if @target_window.active
      update_target
      return
    end
    #-----------------------------------------------------------
    if @command_window.active
      update_command
      return
    end
  end
 
  #----------------------------------------------------------------------------------------------------------------
  def update_item
    #-----------------------------------------------------------
    @help_window.update
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      @command_window.active = true
      @command_window.visible = true
      @item_window.active = false
      @item_window.index = 0
      @help_window.set_text("")
      return
    end
    #-----------------------------------------------------------
    if Input.trigger?(Input::C)
      @item = @item_window.item
      unless @item.is_a?(RPG::Item)
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      unless $game_party.item_can_use?(@item.id)
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      $game_system.se_play($data_system.decision_se)
      if @item.scope >= 3
        @item_window.active = false
        @target_window.x = (@item_window.index + 1) % 2 * 304
        @target_window.visible = true
        @target_window.active = true
        if @item.scope == 4 || @item.scope == 6
          @target_window.index = -1
        else
          @target_window.index = 0
        end
      else
        if @item.common_event_id > 0
          $game_temp.common_event_id = @item.common_event_id
          $game_system.se_play(@item.menu_se)
    #-----------------------------------------------------------
          if @item.consumable
            $game_party.lose_item(@item.id, 1)
            @item_window.draw_item(@item_window.index)
          end
          $scene = Scene_Map.new
          return
        end
      end
      return
    end
  end
 
  #----------------------------------------------------------------------------------------------------------------
    def update_command
      if Input.trigger?(Input::LEFT) or Input.trigger?(Input::RIGHT)
      @item_window.refresh(@command_window.commands_id[@command_window.index])
    end
    #-----------------------------------------------------------
    if Input.trigger?(Input::B)
      $game_system.se_play($data_system.cancel_se)
      $scene = Scene_Menu.new(0)
      return
    end
    #-----------------------------------------------------------
    if Input.trigger?(Input::C)
      $game_system.se_play($data_system.decision_se)
      @item_window.active = true
      @command_window.active = false
      return
    end
  end

#----------------------------------------------------------------------------------------------------------------
  def update_target
    # If B button was pressed
    if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # If unable to use because items ran out
      unless $game_party.item_can_use?(@item.id)
        # Remake item window contents
        @item_window.refresh(@command_window.commands_id[@command_window.index])
    end
      # Erase target window
      @item_window.active = true
      @target_window.visible = false
      @target_window.active = false
      return
    end
    # If C button was pressed
    if Input.trigger?(Input::C)
      # If items are used up
      if $game_party.item_number(@item.id) == 0
        # Play buzzer SE
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      # If target is all
      if @target_window.index == -1
        # Apply item effects to entire party
        used = false
        for i in $game_party.actors
          used |= i.item_effect(@item)
        end
      end
      # If single target
      if @target_window.index >= 0
        # Apply item use effects to target actor
        target = $game_party.actors[@target_window.index]
        used = target.item_effect(@item)
      end
      # If an item was used
      if used
        # Play item use SE
        $game_system.se_play(@item.menu_se)
        # If consumable
        if @item.consumable
          # Decrease used items by 1
          $game_party.lose_item(@item.id, 1)
          # Redraw item window item
          @item_window.draw_item(@item_window.index)
        end
        # Remake target window contents
        @target_window.refresh
        # If all party members are dead
        if $game_party.all_dead?
          # Switch to game over screen
          $scene = Scene_Gameover.new
          return
        end
        # If common event ID is valid
        if @item.common_event_id > 0
          # Common event call reservation
          $game_temp.common_event_id = @item.common_event_id
          # Switch to map screen
          $scene = Scene_Map.new
          return
        end
      end
      # If item wasn't used
      unless used
        # Play buzzer SE
        $game_system.se_play($data_system.buzzer_se)
      end
      return
    end
  end
#########    FIN DE CLASSE    ########################################
end

#==============================================================================
# ■ Item Message
#------------------------------------------------------------------------------
# 　Message lors de l'utilisation d'un objet
#------------------------------------------------------------------------------
#  Par Siegfried
#------------------------------------------------------------------------------
#  Le message apparaît si :
#  -Il existe dans la liste
#  -Si l'objet est utilisé sur un ou plusieurs membres de l'équipe
#  -Si l'objet est utilisable dans le menu, mais sans aucune cible prévue
#==============================================================================

#==============================================================================
# ■ Item_Message_Config
#==============================================================================
module Item_Message_Config
  # Descriptions
  # ID => ["ligne 1", "ligne 2", etc...],
  LIST = {
    1 => ["Rien d'autre qu'une potion."],
    31 => [
      "Ceci est une carte à jouer utilisée jadis par des collégiens",
      "incapables de trouver mieux à faire à la récré depuis",
      "qu'ils ne jouaient plus au loup."
    ],
  }
end

#==============================================================================
# □ Game_Party
#==============================================================================
class Game_Party
  #--------------------------------------------------------------------------
  # ○ Lose_item
  #--------------------------------------------------------------------------
  alias item_text_lose_item lose_item
  def lose_item(item_id, n)
    if $scene.is_a?(Scene_Item)
      $scene.show_item_message_window
    end
    item_text_lose_item(item_id, n)
  end
end

#==============================================================================
# □ Scene_Item
#==============================================================================
class Scene_Item
  #--------------------------------------------------------------------------
  # ○ Main
  #--------------------------------------------------------------------------
  alias item_message_main main
  def main
    @item_message_window = Item_Message_Window.new
    item_message_main
    @item_message_window.dispose
  end
  #--------------------------------------------------------------------------
  # ○ Update
  #--------------------------------------------------------------------------
  alias item_message_update update
  def update
    if @item_message_window.visible
      if Input.trigger?(Input::C) or Input.trigger?(Input::B)
        $game_system.se_play($data_system.cancel_se)
        @item_message_window.visible = false
        return
      end
      return
    end
    item_message_update
  end
  #--------------------------------------------------------------------------
  # ○ Update_item
  #--------------------------------------------------------------------------
  alias item_message_update_item update_item
  def update_item
    item = @item_window.item
    if item != nil and $game_party.item_can_use?(item.id) and
      item.scope == 0 and [0, 2].include?(item.occasion)
      if Input.trigger?(Input::C)
        if item.consumable
          $game_party.lose_item(item.id, 1)
          @item_window.draw_item(@item_window.index)
        else
          show_item_message_window
        end
        return
      end
    end
    item_message_update_item
  end
  #--------------------------------------------------------------------------
  # ● Show_item_message_window
  #--------------------------------------------------------------------------
  def show_item_message_window
    $game_system.se_play($data_system.decision_se)
    table = Item_Message_Config::LIST[@item_window.item.id]
    if table != nil
      @item_message_window.set_text(table)
      @item_message_window.x = 320 - @item_message_window.width / 2
      @item_message_window.y = 240 - @item_message_window.height / 2
      @item_message_window.visible = true
    end
  end
end

#==============================================================================
# ■ Item_Message_Window
#==============================================================================
class Item_Message_Window < Window_Base
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 580, 64)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    self.z = 1000
    self.visible = false
    @text = []
    refresh
  end
  #--------------------------------------------------------------------------
  # ● Set_text
  #--------------------------------------------------------------------------
  def set_text(table)
    self.height = 32 * (table.size + 1)
    self.contents = Bitmap.new(self.width - 32, self.height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    @text = table
    refresh
  end
  #--------------------------------------------------------------------------
  # ● Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0...@text.size
      w = self.contents.width
      self.contents.draw_text(0, i * 32, w, 32, @text[i])
    end
  end
end

$scene = Scene_Map.new

#$scene = Scene_Map.new

#==============================================================================
# □ Game_Party
#==============================================================================
class Game_Party
  #--------------------------------------------------------------------------
  # ○ Lose_item
  #--------------------------------------------------------------------------
  alias bonus_points_lose_item lose_item
  def lose_item(item_id, n)
    if $scene.is_a?(Scene_Item)
      case item_id
      when 24
        for i in 2001...2008
          $game_variables[i] += 2
        end
      when 25
        for i in 2001...2008
          $game_variables[i] += 5
        end
      when 26
        for i in 2001...2008
          $game_variables[i] += 10
        end
      end
    end
    bonus_points_lose_item(item_id, n)
  end
end

#==============================================================================
# ■ Item Message
#------------------------------------------------------------------------------
# 　Message lors de l'utilisation d'un objet
#------------------------------------------------------------------------------
#  Par Siegfried
#------------------------------------------------------------------------------
#  Le message apparaît si :
#  -Il existe dans la liste
#  -Si l'objet est utilisé sur un ou plusieurs membres de l'équipe
#  -Si l'objet est utilisable dans le menu, mais sans aucune cible prévue
#==============================================================================

#==============================================================================
# ■ Item_Message_Config
#==============================================================================
module Item_Message_Config
  # Descriptions
  # ID => ["ligne 1", "ligne 2", etc...],
  LIST = {
    1 => ["Rien d'autre qu'une potion."],
    31 => [
      "Ceci est une carte à jouer utilisée jadis par des collégiens",
      "incapables de trouver mieux à faire à la récré depuis",
      "qu'ils ne jouaient plus au loup."
    ],
  }
end

#==============================================================================
# □ Game_Party
#==============================================================================
class Game_Party
  #--------------------------------------------------------------------------
  # ○ Lose_item
  #--------------------------------------------------------------------------
  alias item_text_lose_item lose_item
  def lose_item(item_id, n)
    if $scene.is_a?(Scene_Item)
      $scene.show_item_message_window
    end
    item_text_lose_item(item_id, n)
  end
end

#==============================================================================
# □ Scene_Item
#==============================================================================
class Scene_Item
  #--------------------------------------------------------------------------
  # ○ Main
  #--------------------------------------------------------------------------
  alias item_message_main main
  def main
    @item_message_window = Item_Message_Window.new
    item_message_main
    @item_message_window.dispose
  end
  #--------------------------------------------------------------------------
  # ○ Update
  #--------------------------------------------------------------------------
  alias item_message_update update
  def update
    if @item_message_window.visible
      if Input.trigger?(Input::C) or Input.trigger?(Input::B)
        $game_system.se_play($data_system.cancel_se)
        @item_message_window.visible = false
        return
      end
      return
    end
    item_message_update
  end
  #--------------------------------------------------------------------------
  # ○ Update_item
  #--------------------------------------------------------------------------
  alias item_message_update_item update_item
  def update_item
    item = @item_window.item
    if item != nil and $game_party.item_can_use?(item.id) and
      item.scope == 0 and [0, 2].include?(item.occasion)
      if Input.trigger?(Input::C)
        if item.consumable
          $game_party.lose_item(item.id, 1)
          @item_window.draw_item(@item_window.index)
        else
          show_item_message_window
        end
        return
      end
    end
    item_message_update_item
  end
  #--------------------------------------------------------------------------
  # ● Show_item_message_window
  #--------------------------------------------------------------------------
  def show_item_message_window
    table = Item_Message_Config::LIST[@item_window.item.id]
    if table != nil
      $game_system.se_play($data_system.decision_se)
      @item_message_window.set_text(table)
      @item_message_window.x = 320 - @item_message_window.width / 2
      @item_message_window.y = 240 - @item_message_window.height / 2
      @item_message_window.visible = true
    end
  end
end

#==============================================================================
# ■ Item_Message_Window
#==============================================================================
class Item_Message_Window < Window_Base
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 580, 64)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    self.z = 1000
    self.visible = false
    @text = []
    refresh
  end
  #--------------------------------------------------------------------------
  # ● Set_text
  #--------------------------------------------------------------------------
  def set_text(table)
    self.height = 32 * (table.size + 1)
    self.contents = Bitmap.new(self.width - 32, self.height - 32)
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    @text = table
    refresh
  end
  #--------------------------------------------------------------------------
  # ● Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    for i in 0...@text.size
      w = self.contents.width
      self.contents.draw_text(0, i * 32, w, 32, @text[i])
    end
  end
end