[XP] MENU G

#==============================================================================
# ** Menu G
#------------------------------------------------------------------------------
#crér par : eddy de galdon
#transparence par : Makoto  ?
#Merci a shin pour avoir regroupé tout les scripts en un !
#
#MAJ 16/01/14 : ajout de l'exp
#MAJ 19/02/14 : position des fentres pas|argent|temps de jeu au hasard
#
#les images doivent faire 80x80 et elles doivent etre placer dans le dossier
#pictures. ces images doivent avoir le meme nom du heros utilisé.
#==============================================================================
#MODIFICATION :
#==============================================================================
#Ligne 346 :
#Coordonées X a modifier si le nom d'une classe ou d'un héros est trop long

#Ligne 73 : modifier pour d'autres nom
#==============================================================================
#MODULE TRANSPARENCE DEBUT
module XRXS_MP7_Module
  def create_spriteset
  # ƒXƒvƒ‰ƒCƒgƒZƒbƒg‚ðì¬
  @spriteset = Spriteset_Map.new
  end
  def dispose_spriteset
  # ƒXƒvƒ‰ƒCƒgƒZƒbƒg‚ð‰ð•ú
  @spriteset.dispose
  end
end

class Window_Base < Window
  alias xrxs_mp7_initialize initialize
  def initialize(x, y, width, height)
  xrxs_mp7_initialize(x, y, width, height)
  if $scene.is_a?(Scene_Menu) or
  $scene.is_a?(Scene_Item) or
  $scene.is_a?(Scene_Skill) or
  $scene.is_a?(Scene_Equip) or
  $scene.is_a?(Scene_Status) or
  $scene.is_a?(Scene_Save) or
  $scene.is_a?(Scene_End)
      self.back_opacity = 160
  end
  end
  def draw_facesets(actor, x, y)
  back = RPG::Cache.picture(actor.name)
  cw = back.width
  ch = back.height
  src_rect = Rect.new(0, 0, cw, ch)
  self.contents.blt(x - cw / 2, y - ch, back, src_rect)
  end
  def draw_actor_name(actor, x, y)
  self.contents.font.color = normal_color
  self.contents.draw_text(x, y, 120, 32, actor.name)
  end
end
#MODULE TRANSPARENCE FIN
#==============================================================================
# ** Menu G -début-
#------------------------------------------------------------------------------
class Scene_Menu
  include XRXS_MP7_Module
  #--------------------------------------------------------------------------
  # * Object Initialization
  #    menu_index : command cursor's initial position
  #--------------------------------------------------------------------------
  def initialize(menu_index = 0)
    @menu_index = menu_index
  end
  #--------------------------------------------------------------------------
  # * Main Processing
  #--------------------------------------------------------------------------
  def main
  create_spriteset
    # Make command window
    s1 = $data_system.words.item
    s2 = $data_system.words.skill
    s3 = $data_system.words.equip
    s4 = "Statut"
    s5 = "Sauvegarder"
    s6 = "Quitter le jeu"
    @command_window = Window_Command.new(160, [s1, s2, s3, s4, s5, s6])
    @command_window.index = @menu_index
    # If number of party members is 0
    if $game_party.actors.size == 0
      # Disable items, skills, equipment, and status
      @command_window.disable_item(0)
      @command_window.disable_item(1)
      @command_window.disable_item(2)
      @command_window.disable_item(3)
    end
    # If save is forbidden
    if $game_system.save_disabled
      # Disable save
      @command_window.disable_item(4)
    end
    # Make play time window
    @playtime_window = Window_PlayTime.new
    @playtime_window.x =  0 + rand(120)
    @playtime_window.y = 224
    # Make steps window
    @steps_window = Window_Steps.new
    @steps_window.x = 0 + rand (120)
    @steps_window.y = 320
    # Make gold window
    @gold_window = Window_Gold.new
    @gold_window.x = 0 + rand (120)
    @gold_window.y = 416
    # Make status window
    @status_window = Window_MenuStatus.new
    @status_window.x = 280
    @status_window.y = 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
    @command_window.dispose
    @playtime_window.dispose
    @steps_window.dispose
    @gold_window.dispose
    @status_window.dispose
  dispose_spriteset
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    # Update windows
    @command_window.update
    @playtime_window.update
    @steps_window.update
    @gold_window.update
    @status_window.update
    # If command window is active: call update_command
    if @command_window.active
      update_command
      return
    end
    # If status window is active: call update_status
    if @status_window.active
      update_status
      return
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update (when command window is active)
  #--------------------------------------------------------------------------
  def update_command
    # If B button was pressed
    if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # Switch to map screen
      $scene = Scene_Map.new
      return
    end
    # If C button was pressed
    if Input.trigger?(Input::C)
      # If command other than save or end game, and party members = 0
      if $game_party.actors.size == 0 and @command_window.index < 4
        # Play buzzer SE
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      # Branch by command window cursor position
      case @command_window.index
      when 0  # item
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to item screen
        $scene = Scene_Item.new
      when 1  # skill
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Make status window active
        @command_window.active = false
        @status_window.active = true
        @status_window.index = 0
      when 2  # equipment
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Make status window active
        @command_window.active = false
        @status_window.active = true
        @status_window.index = 0
      when 3  # status
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Make status window active
        @command_window.active = false
        @status_window.active = true
        @status_window.index = 0
      when 4  # save
        # If saving is forbidden
        if $game_system.save_disabled
          # Play buzzer SE
          $game_system.se_play($data_system.buzzer_se)
          return
        end
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to save screen
        $scene = Scene_Save.new
      when 5  # end game
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to end game screen
        $scene = Scene_End.new
      end
      return
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update (when status window is active)
  #--------------------------------------------------------------------------
  def update_status
    # If B button was pressed
    if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # Make command window active
      @command_window.active = true
      @status_window.active = false
      @status_window.index = -1
      return
    end
    # If C button was pressed
    if Input.trigger?(Input::C)
      # Branch by command window cursor position
      case @command_window.index
      when 1  # skill
        # If this actor's action limit is 2 or more
        if $game_party.actors[@status_window.index].restriction >= 2
          # Play buzzer SE
          $game_system.se_play($data_system.buzzer_se)
          return
        end
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to skill screen
        $scene = Scene_Skill.new(@status_window.index)
      when 2  # equipment
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to equipment screen
        $scene = Scene_Equip.new(@status_window.index)
      when 3  # status
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to status screen
        $scene = Scene_Status.new(@status_window.index)
      end
      return
    end
  end
end
#==============================================================================
# ** Menu G -fin-
#------------------------------------------------------------------------------
class Scene_Item
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
  create_spriteset
  xrxs_mp7_main
  dispose_spriteset
  end
end
class Scene_Skill
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
  create_spriteset
  xrxs_mp7_main
  dispose_spriteset
  end
end
class Scene_Equip
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
  create_spriteset
  xrxs_mp7_main
  dispose_spriteset
  end
end
class Scene_Status
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
  create_spriteset
  xrxs_mp7_main
  dispose_spriteset
  end
end
class Scene_Save
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
  create_spriteset
  xrxs_mp7_main
  dispose_spriteset
  end
end
class Scene_End
  alias xrxs_mp7_main main
  def main
  xrxs_mp7_main
  end
end

#------------------------------------------------------------------------------#

class Window_MenuStatus < Window_Selectable
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 360, 480)
    self.contents = Bitmap.new(width - 32, height - 32)
    refresh
    self.active = false
    self.index = -1
  end
  #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    @item_max = $game_party.actors.size
    for i in 0...$game_party.actors.size
      x = 64
      y = i * 116
      actor = $game_party.actors[i]
      draw_facesets(actor, x + 60, y + 80)
     
      #CORDONER A MODIFIER EN X SI LE NOM EST TROP LONG
      draw_actor_name(actor, x -50, y - 10)
      draw_actor_class(actor, x -65, y + 20)
      draw_actor_state(actor, x -60, y + 40)
      draw_actor_level(actor, x + 100, y - 5)
      draw_actor_hp(actor, x + 100, y + 12)
      draw_actor_sp(actor, x + 100, y + 32)
      draw_actor_exp(actor, x - 50, y + 72)
    end
  end
  #--------------------------------------------------------------------------
  # * Cursor Rectangle Update
  #--------------------------------------------------------------------------
  def update_cursor_rect
    if @index < 0
      self.cursor_rect.empty
    else
      self.cursor_rect.set(0, @index * 116, self.width - 32, 96)
    end
  end
end

#==============================================================================
# ** Menu G
#------------------------------------------------------------------------------
#crér par : eddy de galdon pour : l'ile endormie
#
#les images doivent faire 80x80 et elles doivent etre placer dans le dossier
#pictures. ces images doivent avoir le meme nom du heros utilisé.
#==============================================================================
module XRXS_MP7_Module
  def create_spriteset
   # ƒXƒvƒ‰ƒCƒgƒZƒbƒg‚ðì¬
   @spriteset = Spriteset_Map.new
  end
  def dispose_spriteset
   # ƒXƒvƒ‰ƒCƒgƒZƒbƒg‚ð‰ð•ú
   @spriteset.dispose
  end
end

class Window_Base < Window
  alias xrxs_mp7_initialize initialize
  def initialize(x, y, width, height)
   xrxs_mp7_initialize(x, y, width, height)
   if $scene.is_a?(Scene_Menu) or
   $scene.is_a?(Scene_Item) or
   $scene.is_a?(Scene_Skill) or
   $scene.is_a?(Scene_Equip) or
   $scene.is_a?(Scene_Status) or
   $scene.is_a?(Scene_Save) or
   $scene.is_a?(Scene_End)
      self.back_opacity = 160
   end
  end
  def draw_facesets(actor, x, y)
   back = RPG::Cache.picture(actor.name)
   cw = back.width
   ch = back.height
   src_rect = Rect.new(0, 0, cw, ch)
   self.contents.blt(x - cw / 2, y - ch, back, src_rect)
  end
  def draw_actor_name(actor, x, y)
   self.contents.font.color = normal_color
   self.contents.draw_text(x, y, 120, 32, actor.name)
  end
end

class Scene_Menu
  include XRXS_MP7_Module
  #--------------------------------------------------------------------------
  # * Object Initialization
  #    menu_index : command cursor's initial position
  #--------------------------------------------------------------------------
  def initialize(menu_index = 0)
    @menu_index = menu_index
  end
  #--------------------------------------------------------------------------
  # * Main Processing
  #--------------------------------------------------------------------------
  def main
   create_spriteset
    # Make command window
    s1 = $data_system.words.item
    s2 = $data_system.words.skill
    s3 = $data_system.words.equip
    s4 = "Statut"
    s5 = "Sauvegarder"
    s6 = "Quitter le jeu"
    @command_window = Window_Command.new(160, [s1, s2, s3, s4, s5, s6])
    @command_window.index = @menu_index
    # If number of party members is 0
    if $game_party.actors.size == 0
      # Disable items, skills, equipment, and status
      @command_window.disable_item(0)
      @command_window.disable_item(1)
      @command_window.disable_item(2)
      @command_window.disable_item(3)
    end
    # If save is forbidden
    if $game_system.save_disabled
      # Disable save
      @command_window.disable_item(4)
    end
    # Make play time window
    @playtime_window = Window_PlayTime.new
    @playtime_window.x = 120
    @playtime_window.y = 224
    # Make steps window
    @steps_window = Window_Steps.new
    @steps_window.x = 0
    @steps_window.y = 320
    # Make gold window
    @gold_window = Window_Gold.new
    @gold_window.x = 120
    @gold_window.y = 416
    # Make status window
    @status_window = Window_MenuStatus.new
    @status_window.x = 280
    @status_window.y = 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
    @command_window.dispose
    @playtime_window.dispose
    @steps_window.dispose
    @gold_window.dispose
    @status_window.dispose
   dispose_spriteset
  end
  #--------------------------------------------------------------------------
  # * Frame Update
  #--------------------------------------------------------------------------
  def update
    # Update windows
    @command_window.update
    @playtime_window.update
    @steps_window.update
    @gold_window.update
    @status_window.update
    # If command window is active: call update_command
    if @command_window.active
      update_command
      return
    end
    # If status window is active: call update_status
    if @status_window.active
      update_status
      return
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update (when command window is active)
  #--------------------------------------------------------------------------
  def update_command
    # If B button was pressed
    if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # Switch to map screen
      $scene = Scene_Map.new
      return
    end
    # If C button was pressed
    if Input.trigger?(Input::C)
      # If command other than save or end game, and party members = 0
      if $game_party.actors.size == 0 and @command_window.index < 4
        # Play buzzer SE
        $game_system.se_play($data_system.buzzer_se)
        return
      end
      # Branch by command window cursor position
      case @command_window.index
      when 0  # item
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to item screen
        $scene = Scene_Item.new
      when 1  # skill
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Make status window active
        @command_window.active = false
        @status_window.active = true
        @status_window.index = 0
      when 2  # equipment
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Make status window active
        @command_window.active = false
        @status_window.active = true
        @status_window.index = 0
      when 3  # status
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Make status window active
        @command_window.active = false
        @status_window.active = true
        @status_window.index = 0
      when 4  # save
        # If saving is forbidden
        if $game_system.save_disabled
          # Play buzzer SE
          $game_system.se_play($data_system.buzzer_se)
          return
        end
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to save screen
        $scene = Scene_Save.new
      when 5  # end game
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to end game screen
        $scene = Scene_End.new
      end
      return
    end
  end
  #--------------------------------------------------------------------------
  # * Frame Update (when status window is active)
  #--------------------------------------------------------------------------
  def update_status
    # If B button was pressed
    if Input.trigger?(Input::B)
      # Play cancel SE
      $game_system.se_play($data_system.cancel_se)
      # Make command window active
      @command_window.active = true
      @status_window.active = false
      @status_window.index = -1
      return
    end
    # If C button was pressed
    if Input.trigger?(Input::C)
      # Branch by command window cursor position
      case @command_window.index
      when 1  # skill
        # If this actor's action limit is 2 or more
        if $game_party.actors[@status_window.index].restriction >= 2
          # Play buzzer SE
          $game_system.se_play($data_system.buzzer_se)
          return
        end
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to skill screen
        $scene = Scene_Skill.new(@status_window.index)
      when 2  # equipment
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to equipment screen
        $scene = Scene_Equip.new(@status_window.index)
      when 3  # status
        # Play decision SE
        $game_system.se_play($data_system.decision_se)
        # Switch to status screen
        $scene = Scene_Status.new(@status_window.index)
      end
      return
    end
  end
end
class Scene_Item
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
   create_spriteset
   xrxs_mp7_main
   dispose_spriteset
  end
end
class Scene_Skill
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
   create_spriteset
   xrxs_mp7_main
   dispose_spriteset
  end
end
class Scene_Equip
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
   create_spriteset
   xrxs_mp7_main
   dispose_spriteset
  end
end
class Scene_Status
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
   create_spriteset
   xrxs_mp7_main
   dispose_spriteset
  end
end
class Scene_Save
  include XRXS_MP7_Module
  alias xrxs_mp7_main main
  def main
   create_spriteset
   xrxs_mp7_main
   dispose_spriteset
  end
end
class Scene_End
  alias xrxs_mp7_main main
  def main
   create_spriteset
   xrxs_mp7_main
   dispose_spriteset
  end
end

#------------------------------------------------------------------------------#
class Window_MenuStatus < Window_Selectable
  #--------------------------------------------------------------------------
  # * Object Initialization
  #--------------------------------------------------------------------------
  def initialize
    super(0, 0, 360, 480)
    self.contents = Bitmap.new(width - 32, height - 32)
    refresh
    self.active = false
    self.index = -1
  end
  #--------------------------------------------------------------------------
  # * Refresh
  #--------------------------------------------------------------------------
  def refresh
    self.contents.clear
    @item_max = $game_party.actors.size
    for i in 0...$game_party.actors.size
      x = 64
      y = i * 116
      actor = $game_party.actors[i]
      draw_facesets(actor, x + 60, y + 80)
      draw_actor_name(actor, x -50, y - 10)
      draw_actor_class(actor, x -65, y + 20)#CORDONER A MODIFIER EN X SI LE NOM DE LA CLASSE EST TROP LONG
      draw_actor_state(actor, x -60, y + 40)
      draw_actor_level(actor, x + 100, y + 12)
      draw_actor_hp(actor, x + 100, y + 32)
      draw_actor_sp(actor, x + 100, y + 52)
    end
  end
  #--------------------------------------------------------------------------
  # * Cursor Rectangle Update
  #--------------------------------------------------------------------------
  def update_cursor_rect
    if @index < 0
      self.cursor_rect.empty
    else
      self.cursor_rect.set(0, @index * 116, self.width - 32, 96)
    end
  end
end