[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français - Scripts

Auteur : Mr Drerrawyn
Logiciel : RPG Maker XP
Nombre de scripts : 1

Disclaimer : Ceci est mon tout premier script sur RPG Maker, je l'ai fait pour découvrir le moteur et RGSS, le code est très certainement moche à voir, c'est pas anormal.

Fonctionnalités
Il s'agit d'un menu qui permet de recruter dans l'équipe des personnages de la BDD. Il ne permet pas de retirer des personnages de l'équipe et d'en échanger, mais seulement d'en recruter.

Conditions d'utilisation
- Vous devez créditeur l'auteur (Mr Drearrawyn)

Installation
A placer au-dessus de Main.

Utilisation
Il suffit de l'appeler via la commande d'appel de script suivante:

1	$scene = Scene_Hire.new(a, b, c, d)

en remplaçant a, b, c et d par le numéro dans la base de donnée des quatre personnages que vous laisserez recruter. On peut très bien renseigner moins de quatre personnages, dans ce cas, le systême remplira les trous avec le premier personnage, sans perturber le fonctionnement du script.
Vous pouvez modifier le titre du menu en modifiant la chaine à la ligne 175:

1	@Title = Window_Title.new("Sélectionnez le personnage à recruter")

def every_char_in_team(id)
  for i in (0..3)
    if not $game_party.actors.include?($game_actors[id[i]])
      return false
    end
  end
  return true
end
 
# HIRE WINDOW BUY
 
class Window_Hire_Buy < Window_Base
  attr_reader   :index
  
  def initialize(cost)
    super(400, 226, 150, 96)
    @cost = cost
    @index  = 0
    self.contents = Bitmap.new(width-32, height-32)
    # Police
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
 
  def refresh
    self.contents.clear
    self.contents.draw_text(0, 0, 75, 32, "Engager")
    self.contents.draw_text(0, 32, 75, 32, "Annuler")
    self.cursor_rect.set(-5,@index*32,127,32)
  end
 
  def cursor_up
    @index = (@index + 1)% 2
  end
 
  def cursor_down
    cursor_up
  end
end
 
# HIRE DESCRIPTION WINDOW
 
class Window_Hire_Desc < Window_Base
  def initialize(actor=nil)
    super(0, 162, 640, 318)
    self.contents = Bitmap.new(width-32, height-32)
    # Police
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh(actor)
  end
 
  def refresh(actor)
    self.contents.clear
    if(actor != nil)
      draw_actor_class(actor, 0, 0)
      draw_actor_name(actor, 180, 0)
      draw_actor_level(actor, 0, 32)
      draw_actor_exp(actor, 180, 32)
      draw_actor_hp(actor, 0, 64, 172)
      draw_actor_sp(actor, 0, 96, 172)
      draw_actor_parameter(actor, 180, 64, 1)
      draw_actor_parameter(actor, 180, 92, 2)
      draw_actor_parameter(actor, 0, 160, 3)
      draw_actor_parameter(actor, 0, 192, 4)
      draw_actor_parameter(actor, 0, 224, 5)
      draw_actor_parameter(actor, 0, 256, 6)
      
      draw_actor_state(actor, 90, 128)
 
      draw_item_name($data_weapons[actor.weapon_id], 180, 160)
      draw_item_name($data_armors[actor.armor1_id], 180, 192)
      draw_item_name($data_armors[actor.armor2_id], 180, 224)
      draw_item_name($data_armors[actor.armor3_id], 180, 256)
      draw_item_name($data_armors[actor.armor4_id], 180, 288)
    end
  end
end
 
# HIRE WINDOW
 
class Window_Hire < Window_Base
  attr_reader :index
  attr_reader :actors
  
  def initialize(actor1, actor2, actor3, actor4)
    @separateur = 48
    @index = 0
    @actors = Array.[](actor1, actor2, actor3, actor4)
    super(112, 70, 416, 86)
    self.contents = Bitmap.new(width-32, height-32)
    # Police
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
 
  def next_good_index
    nb_choix = 8
    loop do 
      if nb_choix == 0
        return false  # Erreur
      end
      cursor_right
      nb_choix -= 1
      break if not $game_party.actors.include?(actors[index])
    end
    return true
  end
 
  def previous_good_index
    nb_choix = 8
    loop do
      if nb_choix == 0
        return false  # Erreur
      end
      cursor_left
      nb_choix -= 1
      break if not $game_party.actors.include?(actors[index])
    end
    return true
  end
 
  def cursor_left
    @index = (@index + 3) % 4
  end
 
  def cursor_right
    @index = (@index + 1) % 4
  end
 
  def update_cursor
    self.cursor_rect.set(@index*2*@separateur,0,(@index+1)*2*@separateur-@index*2*@separateur, 52)
  end
 
  def refresh
    self.contents.clear
    update_cursor
    for i in 0..3
      if not $game_party.actors.include?(@actors[i])
        draw_actor_graphic(@actors[i], @separateur*(i*2+1), 50)
      end
    end
  end
end
 
# HIRE WINDOW TITLE
 
class Window_Title < Window_Base
  
  def initialize(msg)
    super(0,0,640,64)
    @message = msg
    self.contents = Bitmap.new(width-32, height-32)
    # Police
    self.contents.font.name = $fontface
    self.contents.font.size = $fontsize
    refresh
  end
  
  def refresh
    self.contents.clear
    self.contents.font.color = normal_color
    self.contents.draw_text(0, 0, 640, 32, @message, 1)
  end
end 
 
# HIRE SCENE
 
class Scene_Hire
  def initialize(first = 1, second = first, third = first, fourth = first)
    @Actors_id = Array.[](first, second, third, fourth)
    # --------------------- TITRE DU MENU --------------------------
    @Title = Window_Title.new("Sélectionnez le personnage à recruter")
    #---------------------------------------------------------------
    @Hire = Window_Hire.new($game_actors[@Actors_id[0]], $game_actors[@Actors_id[1]], $game_actors[@Actors_id[2]], $game_actors[@Actors_id[3]])
    if not every_char_in_team(@Actors_id)
      @Hire_desc = Window_Hire_Desc.new(@Hire.actors[@Hire.index])
    else
      @Hire_desc = Window_Hire_Desc.new
    end
    @Hire.next_good_index
    @Hire.previous_good_index
    @Hire.refresh
    update_desc
  end
 
  def main
    Graphics.transition
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    close
  end
 
  def close
    Graphics.freeze
    @Title.dispose
    @Hire.dispose
    @Hire_desc.dispose
  end
 
  def update_desc
    @Hire_desc.refresh(@Hire.actors[@Hire.index])
  end
 
  def update
    if @Hire_buy == nil
      @Title.update
      @Hire.update
      @Hire_desc.update
      if Input.trigger?(Input::B) # ANNULATION
        $game_system.se_play($data_system.cancel_se)
        $scene = Scene_Map.new
        return
      end
      if Input.trigger?(Input::C) # VALIDATION
        if not every_char_in_team(@Actors_id)
          $game_system.se_play($data_system.decision_se)
          @Hire_buy = Window_Hire_Buy.new(500)
        else
          $game_system.se_play($data_system.buzzer_se)
        end
        return
      end
      if Input.trigger?(Input::RIGHT)
        if not @Hire.next_good_index
          $game_system.se_play($data_system.buzzer_se)
          return
        else
          $game_system.se_play($data_system.cursor_se)
        end
        @Hire.refresh
        update_desc
        return
      end
      if Input.trigger?(Input::LEFT)
        if not @Hire.previous_good_index
          $game_system.se_play($data_system.buzzer_se)
          return
        else
          $game_system.se_play($data_system.cursor_se)
        end
        @Hire.refresh
        update_desc
        return
      end
    else
      @Hire_buy.update
      if Input.trigger?(Input::DOWN)
        $game_system.se_play($data_system.cursor_se)
        @Hire_buy.cursor_down
        @Hire_buy.refresh
        return
      end
      if Input.trigger?(Input::UP)
        $game_system.se_play($data_system.cursor_se)
        @Hire_buy.cursor_up
        @Hire_buy.refresh
        return
      end
      if Input.trigger?(Input::C)
        if @Hire_buy.index == 1
          $game_system.se_play($data_system.decision_se)
          @Hire_buy.dispose
          @Hire_buy = nil
        else
          if $game_party.actors.size < 4
            $game_system.se_play($data_system.decision_se)
            $game_party.add_actor(@Actors_id[@Hire.index])
            @Hire_buy.dispose
            @Hire_buy = nil
            if not @Hire.next_good_index
              $scene = Scene_Map.new
            end
            @Hire.refresh
            @Hire_desc.refresh(@Hire.actors[@Hire.index])
          else
            $game_system.se_play($data_system.buzzer_se)
          end
        end
        return
      end
      if Input.trigger?(Input::B)
        @Hire_buy.dispose
        @Hire_buy = nil
        return
      end
    end
  end
end