# =============================================================================
# TheoAllen - Terrain Tag as Passability
# Version : 1.0
# Contact : www.rpgmakerid.com (or) http://theolized.blogspot.com
# (English Documentation)
# =============================================================================
($imported ||= {})[:Theo_TagPassability] = true
# =============================================================================
# CHANGE LOGS:
# -----------------------------------------------------------------------------
# 2013.06.21 - Finished script
# =============================================================================
=begin

  Perkenalan : 
  This script can make terrain tag as passability instead of use X or O
  
  Cara penggunaan :
  Put this script below material but above main
  Setting terrain tag in database, use this comment in event  
  
  <terrain tag: n>
  <terrain tag: m,n>
  <terrain tag: m,n, ...>
  
  Which n and m is a terrain tag number. You can also add multiple terrain tag
  such as <terrain tag: 1,2,3,4,5,6>
  
  Remember, if the event's terrain tag is determined, the event won't able to
  move to other tile with different terrain tag even if the tile passability
  is O
  
  Terms of use :
  Credit me, TheoAllen. You are free to edit this script by your own. As long
  as you don't claim it yours. For commercial purpose, don't forget to give me
  a free copy of the game.


=end
# =============================================================================
# No configuration. Better don't touch anything unless you know what to do
# =============================================================================
module THEO
  module MAP
  module REGEXP
    TAGS = /<(?:TERRAIN_TAG|terrain tag):[ ]*[ ]*(\d+(?:\s*,\s*\d+)*)>/i
  end
  end
end

class Game_Event < Game_Character
  
  alias ori_passable? map_passable?
  def map_passable?(x,y,d)
    return ori_passable?(x,y,d) if @tag_passable.empty?
    return tag_passable?(x,y,d)
  end  
  
  
  def read_tag_passability
    @tag_passable = []
    @list.each do |command|
      next unless command.code == 108 || command.code == 408
      case command.parameters[0]
      when THEO::MAP::REGEXP::TAGS
        $1.scan(/\d+/).each do |num|
          puts num.to_i
          @tag_passable.push(num.to_i)
        end
      end
    end
  end
  
  def tag_passable?(x,y,d)
    x2 = $game_map.round_x_with_direction(x, d)
    y2 = $game_map.round_y_with_direction(y, d)
    @tag_passable.include?($game_map.terrain_tag(x2,y2))
  end
  
end

class Game_Map
  
  alias pre_tag_setup setup
  def setup(map_id)
    pre_tag_setup(map_id)
    setup_event_passability
  end
  
  def setup_event_passability
    @events.values.each do |event|
      event.read_tag_passability
    end
  end
  
end