#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#                          Système de Plateforme               
#  par berka                        v 1.0                    rgss2
#                        http://www.rpgmakervx-fr.com
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
# A coller au dessus de main
# Ajuste le saut en fonction des obstacles
# Possibilité de définir les maps de plateforme
# Scroll de la map pour stresser un peu
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

module Berka
  module Plateforme
    Saut=[[4, 0],[4, 1],[4, 2],                  # distances de saut [x,y]
          [3,-2],[3,-1],[3, 0],[3,1],
          [2,-3],[2,-2],[2,-1],[2,0],[2,1],
          [1,-3],[1,-2],[1,-1],[1,0],[1,1],[1,2]]
    Id_Maps_Plateforme=[1,2]                    # id des maps de plateforme
    Vit_Scroll=4.5                              # vitesse du scroll de la map
    Scroll=true                                  # active le scroll de la map
    Scroll_Id=1                                  # id de l'interrupteur activé
                                                # en cas de rattrapage du scroll
  end
end
include Berka::Plateforme
class Game_Player<Game_Character;attr_accessor :direction_fix;end
class Scene_Map<Scene_Base
  alias :platef_update :update unless $@
  alias :platef_transfer_player :update_transfer_player unless $@
  def update
    platef_update
    saut_update if @plateforme
  end
  def saut_update
    if Scroll
      $game_map.start_scroll(6,1,Vit_Scroll)
      $game_switches[Scroll_Id]=true if $game_player.real_x<$game_map.display_x
    end
    tombe if !$game_player.jumping?
    return if $game_player.moving?||$game_map.interpreter.running?
    if Input.press?(Input::C)&&!$game_player.jumping?
      if Input.press?(Input::LEFT)
        $game_player.turn_left
        Saut.each{|a|
        if $game_map.passable?($game_player.x-a[0],$game_player.y+a[1])
          $game_player.jump(-a[0],a[1])
          break
        end}
      elsif Input.press?(Input::RIGHT)
        $game_player.turn_right
        Saut.each{|a|
        if $game_map.passable?($game_player.x+a[0],$game_player.y+a[1])
          $game_player.jump(a[0],a[1])
          break
        end}
      else;$game_player.jump(0,-2)
      end
    else
      if Input.press?(Input::LEFT)
        if $game_map.passable?($game_player.x-1,$game_player.y+1)
          $game_player.turn_left;$game_player.move_lower_left
        elsif $game_map.passable?($game_player.x-1,$game_player.y)
          $game_player.turn_left;$game_player.move_left
        end
      elsif Input.press?(Input::RIGHT)
        if $game_map.passable?($game_player.x+1,$game_player.y+1)
          $game_player.turn_right;$game_player.move_lower_right
        elsif $game_map.passable?($game_player.x+1,$game_player.y)
          $game_player.turn_right;$game_player.move_right
        end
      else;tombe if !$game_player.jumping?
      end
    end
  end
  def tombe
    return if !$game_map.passable?($game_player.x,$game_player.y-1)
    $game_player.direction_fix=true
    $game_player.move_down
    $game_player.direction_fix=false
  end
  def update_transfer_player
    platef_transfer_player
    if Id_Maps_Plateforme.include?($game_map.map_id);@plateforme=true
    else;@plateforme=false
    end
  end
end