#=========================================================================
=====
#Tileset Substitution Script by ERZENGEL
# Instructions written by ichiruki (Ian Gabriel Sanchez)
#
#==============================================================================

#==============================================================================
# How to use
#------------------------------------------------------------------------------
# Tilesets have to be in Graphics/System. To change a Tileset put one or more
# of the next lines in a Call Script.
#
# $game_map.tile_a1 = 'Name of the new Tile A1'
# $game_map.tile_a2 = 'Name of the new Tile A2'
# $game_map.tile_a3 = 'Name of the new Tile A3'
# $game_map.tile_a4 = 'Name of the new Tile A4'
# $game_map.tile_a5 = 'Name of the new Tile A5'
# $game_map.tile_b = 'Name of the new Tile B'
# $game_map.tile_c = 'Name of the new Tile C'
# $game_map.tile_d = 'Name of the new Tile D'
# $game_map.tile_e = 'Name of the new Tile E'
#==============================================================================

#==============================================================================
# ** Game_Map
#==============================================================================
class Game_Map
#--------------------------------------------------------------------------
# * �ffentliche Instanzvariablen
#--------------------------------------------------------------------------
attr_accessor :tile_a1, :tile_a2, :tile_a3, :tile_a4, :tile_a5,
:tile_b, :tile_c, :tile_d, :tile_e
#--------------------------------------------------------------------------
# * Objektinitialisation
#--------------------------------------------------------------------------
alias erzvx_tilesubst_init initialize
def initialize
erzvx_tilesubst_init
# Namen der Standardtilesets
@tile_a1 = 'TileA1'; @tile_a2 = 'TileA2'; @tile_a3 = 'TileA3';
@tile_a4 = 'TileA4'; @tile_a5 = 'TileA5'; @tile_b = 'TileB';
@tile_c = 'TileC'; @tile_d = 'TileD'; @tile_e = 'TileE'
end
end
#==============================================================================
# ** Spriteset_Map
#==============================================================================
class Spriteset_Map
#--------------------------------------------------------------------------
# * Objektinitialisation
#--------------------------------------------------------------------------
alias erzvx_tilesubst_init2 initialize
def initialize
erzvx_tilesubst_init2
@tile_a1 = $game_map.tile_a1; @tile_a2 = $game_map.tile_a2;
@tile_a3 = $game_map.tile_a3; @tile_a4 = $game_map.tile_a4;
@tile_a5 = $game_map.tile_a5; @tile_b = $game_map.tile_b;
@tile_c = $game_map.tile_c; @tile_d = $game_map.tile_d;
@tile_e = $game_map.tile_e
end
#--------------------------------------------------------------------------
# * Create Tilemap
#--------------------------------------------------------------------------
def create_tilemap
@tilemap = Tilemap.new(@viewport1)
# Zuweisung von Variablen statt fester Strings
@tilemap.bitmaps[0] = Cache.system($game_map.tile_a1)
@tilemap.bitmaps[1] = Cache.system($game_map.tile_a2)
@tilemap.bitmaps[2] = Cache.system($game_map.tile_a3)
@tilemap.bitmaps[3] = Cache.system($game_map.tile_a4)
@tilemap.bitmaps[4] = Cache.system($game_map.tile_a5)
@tilemap.bitmaps[5] = Cache.system($game_map.tile_b)
@tilemap.bitmaps[6] = Cache.system($game_map.tile_c)
@tilemap.bitmaps[7] = Cache.system($game_map.tile_d)
@tilemap.bitmaps[8] = Cache.system($game_map.tile_e)
@tilemap.map_data = $game_map.data
@tilemap.passages = $game_map.passages
end
#--------------------------------------------------------------------------
# * Update Tilemap
#--------------------------------------------------------------------------
alias erzvx_tilesubst_upd update_tilemap
def update_tilemap
# Abfrage, ob Tilesets gewechselt wurden
@tilemap.bitmaps[0] =
Cache.system($game_map.tile_a1) if @tile_a1 != $game_map.tile_a1
@tilemap.bitmaps[1] =
Cache.system($game_map.tile_a2) if @tile_a2 != $game_map.tile_a2
@tilemap.bitmaps[2] =
Cache.system($game_map.tile_a3) if @tile_a3 != $game_map.tile_a3
@tilemap.bitmaps[3] =
Cache.system($game_map.tile_a4) if @tile_a4 != $game_map.tile_a4
@tilemap.bitmaps[4] =
Cache.system($game_map.tile_a5) if @tile_a5 != $game_map.tile_a5
@tilemap.bitmaps[5] =
Cache.system($game_map.tile_b) if @tile_b != $game_map.tile_b
@tilemap.bitmaps[6] =
Cache.system($game_map.tile_c) if @tile_c != $game_map.tile_c
@tilemap.bitmaps[7] =
Cache.system($game_map.tile_d) if @tile_d != $game_map.tile_d
@tilemap.bitmaps[8] =
Cache.system($game_map.tile_e) if @tile_e != $game_map.tile_e
# Alter Code
erzvx_tilesubst_upd
end
end