#========================================================================
#  Zdarzenia Chodzące po Wodzie / Events Walking on Water [VX]
#  by Ayene
#  21.03.2010
#  www.ultimateam.pl
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Skrypt umożliwia przede wszystkim zdarzeniom poruszać się na wodzie.
# Wpierw krótkie wyjaśnienie:
# Domyślnie łódka (boat) porusza się po wodzie płytkiej (jaśniejsza niebieska),
# statek (ship) pływa po wodzie głębokiej i płytkiej, a zepelin (airship) porusza się
# wszędzie (nie może tylko lądować na wodzie).
#
# Ustawianie chodzenia po wodzie zdarzeniom odbywa się zgodnie z powyższą zasadą.
# Wpisując komentarz w zdarzeniu:
# \boat - zdarzenie będzie się poruszać jak łódka
# \ship - analogicznie do statku
# \air - będzie chodzić po wszystkim
#
# Komentarz jest pobierany z aktualnej strony zdarzenia.
#
# Skrypt umożliwia również chodzenie po wodzie drużynie. Wystarczy włączyć
# przełącznik zadeklarowany poniżej.
#========================================================================
# Instalacja: Wystarczy umieścić nad Main
#========================================================================
module Ayene
  UM_SWITCH = 20  # przełącznik, który umożliwia chodzenie drużynie po wodzie
end

#========================================================================
class Game_Map
  def airship_passable?(x, y)
    return passable?(x, y, 0x10)
  end
 
  def player_passable?(x, y)   
    if $game_switches[Ayene::UM_SWITCH]
      return passable?(x, y, 0x10)     
    else
      return passable?(x, y)
    end     
  end
end

#========================================================================
class Game_Character
 
  alias ayene_wat_pas_gamchar_pas? passable?
 
  def passable?(*args)
    return false if collide_with_characters?(*args) unless (@through or debug_through?)
    return $game_map.airship_passable?(*args) if @airship_object
    return $game_map.ship_passable?(*args) if @ship_object
    return $game_map.boat_passable?(*args) if @boat_object
    ayene_wat_pas_gamchar_pas?(*args)
  end
end

#========================================================================
class Game_Event < Game_Character
  alias ayene_wat_pas_gameve_init initialize
  alias ayene_wat_pas_gameve_setup setup
 
  def initialize(*args)   
    @boat_object = false
    @ship_object = false
    @airship_object = false
    ayene_wat_pas_gameve_init(*args)
  end
 
  def setup(new_page)
    @page = new_page
    if @page != nil       
      if @page.list[0].code == 108
        @boat_object = @page.list[0].parameters[0][/\\BOAT/i] != nil
        @ship_object = @page.list[0].parameters[0][/\\SHIP/i] != nil
        @airship_object = @page.list[0].parameters[0][/\\AIR/i] != nil
      end     
    end   
    ayene_wat_pas_gameve_setup(new_page)
  end
end

#========================================================================
class Game_Player < Game_Character
  def map_passable?(*args)
    case @vehicle_type
    when 0
      return $game_map.boat_passable?(*args)
    when 1
      return $game_map.ship_passable?(*args)
    when 2
      return true
    else     
      return $game_map.player_passable?(*args)
    end
  end
end