#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/ ?


?? - KGC_TilesetExtension ? VX ?
#_/ ? Last update : 2008/07/13 ?
#_/----------------------------------------------------------------------------
#_/


??4?






??
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#==============================================================================
# ?


?? - Customize ?
#==============================================================================
module KGC
module TilesetExtension
# ?






#







TILE_IMAGE_PREFIX = "Tile"
# ?



??
# [SET <

?>]


TILE_PRESET = {} # ?



!
#





?
#

??
TILE_PRESET["

?"] = {
"A1"=>"A1-Maou",
"A2"=>"A2-Maou",
"B"=>"B-Maou",
"D"=>"D-Maou",
}
#



?? [SET

?]

??
# ? 4?

·?


?? (

??)
#







???4?


#





??
# nil






# ?







?
DEBUG_INFO_BUTTON = Input::F7
end
end
#?












??
$imported = {} if $imported == nil
$imported["TilesetExtension"] = true
if $data_mapinfos == nil
$data_mapinfos = load_data("Data/MapInfos.rvdata")
end
#

?? (4?


??)
module DirectionFlag
DOWN = 0x01
LEFT = 0x02
RIGHT = 0x04
UP = 0x08
end
module KGC::TilesetExtension
#




??
EX_RVDATA = "TilesetEx.rvdata"
#

?
module Regexp
# ??
INHERIT = /\[INHERIT\]/i
#

??
PRESET = /\[SET ([\w\-]+)\]/i
end
#





?
DEFAULT_FILENAME = {
"A1"=>"TileA1",
"A2"=>"TileA2",
"A3"=>"TileA3",
"A4"=>"TileA4",
"A5"=>"TileA5",
"B"=>"TileB",
"C"=>"TileC",
"D"=>"TileD",
"E"=>"TileE"
}
@@__filename = DEFAULT_FILENAME.dup
module_function
#--------------------------------------------------------------------------
# ?






?
# map_id :

ID
#--------------------------------------------------------------------------
def init_tileset_filename(map_id)
@@__filename = get_converted_tileset_filename(map_id)
end
#--------------------------------------------------------------------------
# ?





??
# map_id :

ID
#--------------------------------------------------------------------------
def get_converted_tileset_filename(map_id)
info = $data_mapinfos[map_id]
name = info.original_name
filename = DEFAULT_FILENAME.dup
if name =~ Regexp::INHERIT
#




parent_id = $data_mapinfos[map_id].parent_id
if parent_id > 0
filename = get_converted_tileset_filename(parent_id)
end
end
#




return convert_tileset_filename(filename, name)
end
#--------------------------------------------------------------------------
# ?




# filename :

?? (Hash)
# map_name :

?
#--------------------------------------------------------------------------
def convert_tileset_filename(filename, map_name)
name_buf = filename.dup
#


?
presets = map_name.scan(Regexp::PRESET)
presets.each { |s|
if TILE_PRESET.has_key?(s[0])
TILE_PRESET[s[0]].each { |k, v|
name_buf[k] = TILE_IMAGE_PREFIX + v
}
end
}
# ??
DEFAULT_FILENAME.keys.each { |key|
if map_name =~ /\[#{key} ([\w\-]+)\]/
name_buf[key] = TILE_IMAGE_PREFIX + $1
end
}
return name_buf
end
#--------------------------------------------------------------------------
# ?




#--------------------------------------------------------------------------
def get_tileset_filename
return @@__filename
end
end
#?












??
#==============================================================================
# ? KGC::Commands
#==============================================================================
module KGC
module Commands
module_function
#--------------------------------------------------------------------------
# ?



??
# x :

? X ??
# y :

? Y ??
# variable_id :





? ID
#--------------------------------------------------------------------------
def get_terrain_tag(x, y, variable_id = 0)
tag = $game_map.terrain_tag(x, y) #



?
if variable_id > 0
$game_variables[variable_id] = tag #



?
end
return tag
end
#--------------------------------------------------------------------------
# ?


ID



?
# event_id :

? ID
# variable_id :





? ID
#--------------------------------------------------------------------------
def get_event_terrain_tag(event_id, variable_id = 0)
event = $game_map.events.values.find { |e| e.id == event_id }
if event == nil
#




? 0
tag = 0
else
tag = $game_map.terrain_tag(event.x, event.y)
end
#



?
if variable_id > 0
$game_variables[variable_id] = tag
end
return tag
end
#--------------------------------------------------------------------------
# ?





# variable_id :





? ID
#--------------------------------------------------------------------------
def get_player_terrain_tag(variable_id = 0)
tag = $game_map.terrain_tag($game_player.x, $game_player.y)
#



?
if variable_id > 0
$game_variables[variable_id] = tag
end
return tag
end
end
end
class Game_Interpreter
include KGC::Commands
end
#?












??
#==============================================================================
# ¦ RPG::MapInfo
#==============================================================================
class RPG::MapInfo
#--------------------------------------------------------------------------
# ?


#--------------------------------------------------------------------------
def name
return @name.gsub(/\[.*\]/) { "" }
end
#--------------------------------------------------------------------------
# ?



??
#--------------------------------------------------------------------------
def original_name
return @name
end
end
#?












??
#==============================================================================
# ? RPG::Tileset
#------------------------------------------------------------------------------
#







#==============================================================================
class RPG::Tileset
#--------------------------------------------------------------------------
# ? ??
#--------------------------------------------------------------------------
TABLE_SIZE = 8192 # ??·?



??
#--------------------------------------------------------------------------
# ?



?
#--------------------------------------------------------------------------
attr_accessor :version #


?
attr_accessor :passages # 4


?
attr_accessor :terrain_tags #

?
#--------------------------------------------------------------------------
# ?



#--------------------------------------------------------------------------
def initialize
@version = 1
@passages = Table.new(TABLE_SIZE)
@terrain_tags = Table.new(TABLE_SIZE)
end
end
#?












??
#==============================================================================
# ¦ Game_Map
#==============================================================================
class Game_Map
LAYERS = [2, 1, 0]
#--------------------------------------------------------------------------
# ?


# map_id :

ID
#--------------------------------------------------------------------------
alias setup_KGC_TilesetExtension setup
def setup(map_id)
@map_id = map_id
init_tileset_filename
setup_KGC_TilesetExtension(map_id)
end
#--------------------------------------------------------------------------
# ?





??
#--------------------------------------------------------------------------
def init_tileset_filename
KGC::TilesetExtension.init_tileset_filename(@map_id)
end
#--------------------------------------------------------------------------
# ?




# x : X ??
# y : Y ??
#--------------------------------------------------------------------------
def passage(x, y)
LAYERS.each { |i|
tile_id = @map.data[x, y, i]
return 0 if tile_id == nil
return $data_tileset.passages[tile_id]
}
return 0
end
#--------------------------------------------------------------------------
# ?



??
# x : X ??
# y : Y ??
#--------------------------------------------------------------------------
def terrain_tag(x, y)
LAYERS.each { |i|
tile_id = @map.data[x, y, i] #

ID

return 0 if tile_id == nil #

ID

? :

?
tag = $data_tileset.terrain_tags[tile_id] #


?
return tag if tag > 0 #




}
return 0
end
#--------------------------------------------------------------------------
# ?



?
# x : X ??
# y : Y ??
# d :

?
#--------------------------------------------------------------------------
def passable_dir?(x, y, d)
# ?? (0,2,4,6,8,10) ??

?? (0,1,2,4,8,0)

flag = (1 << (d / 2 - 1)) & 0x0F
LAYERS.each { |i| #




?
tile_id = @map.data[x, y, i] #

ID

return false if tile_id == nil #

ID

? :

?
pass = $data_tileset.passages[tile_id] #




??
return false if pass & flag != 0x00 #




??
}
return true
end
end
#?












??
#==============================================================================
# ¦ Game_Character
#==============================================================================
class Game_Character
#--------------------------------------------------------------------------
# ?


# x : X ??
# y : Y ??
# d :

? (

: 10)
#--------------------------------------------------------------------------
def passable?(x, y, d = 10)
nx = moved_x(x, d)
ny = moved_y(y, d)
nx = $game_map.round_x(nx) #


??
ny = $game_map.round_y(ny) #


??
return false unless $game_map.valid?(nx, ny) #

??
return true if @through or debug_through? #

? ON?
return false unless map_passable?(x, y, d) #



?
return false unless map_passable?(nx, ny, 10 - d) #



return false if collide_with_characters?(nx, ny) #



?
return true #

end
#--------------------------------------------------------------------------
# ?

? X

?
# x : X ??
# d :

?
#

? X


??
#--------------------------------------------------------------------------
def moved_x(x, d)
return x + (d == 6 ? 1 : d == 4 ? -1 : 0)
end
#--------------------------------------------------------------------------
# ?

? Y

?
# y : Y ??
# d :

?
#

? Y


??
#--------------------------------------------------------------------------
def moved_y(y, d)
return y + (d == 2 ? 1 : d == 8 ? -1 : 0)
end
#--------------------------------------------------------------------------
# ?



# x : X ??
# y : Y ??
# d :

?
#







??
#--------------------------------------------------------------------------
def map_passable?(x, y, d)
return $game_map.passable?(x, y) && $game_map.passable_dir?(x, y, d)
end
#--------------------------------------------------------------------------
# ?

?
# turn_ok :




#--------------------------------------------------------------------------
def move_down(turn_ok = true)
if passable?(@x, @y, 2) #

?
turn_down
@y = $game_map.round_y(@y+1)
@real_y = (@y-1)*256
increase_steps
@move_failed = false
else #

??
turn_down if turn_ok
check_event_trigger_touch(@x, @y+1) #



??
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ?

?
# turn_ok :




#--------------------------------------------------------------------------
def move_left(turn_ok = true)
if passable?(@x, @y, 4) #

?
turn_left
@x = $game_map.round_x(@x-1)
@real_x = (@x+1)*256
increase_steps
@move_failed = false
else #

??
turn_left if turn_ok
check_event_trigger_touch(@x-1, @y) #



??
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ?

?
# turn_ok :




#--------------------------------------------------------------------------
def move_right(turn_ok = true)
if passable?(@x, @y, 6) #

?
turn_right
@x = $game_map.round_x(@x+1)
@real_x = (@x-1)*256
increase_steps
@move_failed = false
else #

??
turn_right if turn_ok
check_event_trigger_touch(@x+1, @y) #



??
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ?

?
# turn_ok :




#--------------------------------------------------------------------------
def move_up(turn_ok = true)
if passable?(@x, @y,

#

?
turn_up
@y = $game_map.round_y(@y-1)
@real_y = (@y+1)*256
increase_steps
@move_failed = false
else #

??
turn_up if turn_ok
check_event_trigger_touch(@x, @y-1) #



??
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ?

??
#--------------------------------------------------------------------------
def move_lower_left
unless @direction_fix
@direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y, 2) && passable?(@x, @y+1, 4)) ||
(passable?(@x, @y, 4) && passable?(@x-1, @y, 2))
@x -= 1
@y += 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ?

??
#--------------------------------------------------------------------------
def move_lower_right
unless @direction_fix
@direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y, 2) && passable?(@x, @y+1, 6)) ||
(passable?(@x, @y, 6) && passable?(@x+1, @y, 2))
@x += 1
@y += 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ?

??
#--------------------------------------------------------------------------
def move_upper_left
unless @direction_fix
@direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
end
if (passable?(@x, @y,

&& passable?(@x, @y-1, 4)) ||
(passable?(@x, @y, 4) && passable?(@x-1, @y,

)
@x -= 1
@y -= 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
#--------------------------------------------------------------------------
# ?

??
#--------------------------------------------------------------------------
def move_upper_right
unless @direction_fix
@direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
end
if (passable?(@x, @y,

&& passable?(@x, @y-1, 6)) ||
(passable?(@x, @y, 6) && passable?(@x+1, @y,

)
@x += 1
@y -= 1
increase_steps
@move_failed = false
else
@move_failed = true
end
end
end
#?












??
#==============================================================================
# ¦ Game_Player
#==============================================================================
class Game_Player < Game_Character
#--------------------------------------------------------------------------
# ?



# x : X ??
# y : Y ??
# d :

?
#







??
#--------------------------------------------------------------------------
alias map_passable_KGC_TilesetExtension? map_passable?
def map_passable?(x, y, d)
return false unless map_passable_KGC_TilesetExtension?(x, y)
return $game_map.passable_dir?(x, y, d)
end
if $TEST && KGC::TilesetExtension::DEBUG_INFO_BUTTON != nil
#--------------------------------------------------------------------------
# ?


#--------------------------------------------------------------------------
alias update_KGC_TilesetExtension update
def update
update_KGC_TilesetExtension
if Input.trigger?(KGC::TilesetExtension::DEBUG_INFO_BUTTON)
show_passage_and_terrain_tag
end
end
#--------------------------------------------------------------------------
# ?




?·?


#--------------------------------------------------------------------------
def show_passage_and_terrain_tag
passage = $game_map.passage(x, y)
tag = $game_map.terrain_tag(x, y)
#


??
s = "

?: "
s += "?" if passage & DirectionFlag::DOWN == 0x00
s += "?" if passage & DirectionFlag::LEFT == 0x00
s += "?" if passage & DirectionFlag::RIGHT == 0x00
s += "?" if passage & DirectionFlag::UP == 0x00
s += "

?: #{tag}"
p s
end
end
end
#?












??
#==============================================================================
# ¦ Sprite_Character
#==============================================================================
class Sprite_Character < Sprite_Base
#--------------------------------------------------------------------------
# ?








# tile_id :

ID
#--------------------------------------------------------------------------
def tileset_bitmap(tile_id)
filename = KGC::TilesetExtension.get_tileset_filename
set_number = tile_id / 256
return Cache.system(filename["B"]) if set_number == 0
return Cache.system(filename["C"]) if set_number == 1
return Cache.system(filename["D"]) if set_number == 2
return Cache.system(filename["E"]) if set_number == 3
return nil
end
end
#?












??
#==============================================================================
# ¦ Spriteset_Map
#==============================================================================
class Spriteset_Map
#--------------------------------------------------------------------------
# ?



#--------------------------------------------------------------------------
def create_tilemap
filename = KGC::TilesetExtension.get_tileset_filename
@tilemap = Tilemap.new(@viewport1)
@tilemap.bitmaps[0] = Cache.system(filename["A1"])
@tilemap.bitmaps[1] = Cache.system(filename["A2"])
@tilemap.bitmaps[2] = Cache.system(filename["A3"])
@tilemap.bitmaps[3] = Cache.system(filename["A4"])
@tilemap.bitmaps[4] = Cache.system(filename["A5"])
@tilemap.bitmaps[5] = Cache.system(filename["B"])
@tilemap.bitmaps[6] = Cache.system(filename["C"])
@tilemap.bitmaps[7] = Cache.system(filename["D"])
@tilemap.bitmaps[8] = Cache.system(filename["E"])
@tilemap.map_data = $game_map.data
@tilemap.passages = $game_map.passages
end
end
#?












??
#==============================================================================
# ¦ Scene_Title
#==============================================================================
class Scene_Title < Scene_Base
#--------------------------------------------------------------------------
# ?



?
#--------------------------------------------------------------------------
alias load_database_KGC_TilesetExtension load_database
def load_database
load_database_KGC_TilesetExtension
load_tileset
end
#--------------------------------------------------------------------------
# ?




??
#--------------------------------------------------------------------------
def load_tileset
begin
$data_tileset = load_data("Data/#{KGC::TilesetExtension::EX_RVDATA}")
rescue
$data_tileset = RPG::Tileset.new
end
end
end
#?












??
#==============================================================================
# ¦ Scene_File
#==============================================================================
class Scene_File < Scene_Base
#--------------------------------------------------------------------------
# ?



??
# file :





(


)
#--------------------------------------------------------------------------
alias read_save_data_KGC_TilesetExtension read_save_data
def read_save_data(file)
read_save_data_KGC_TilesetExtension(file)
$game_map.init_tileset_filename
Graphics.frame_reset
end
end