=begin

Mode07 on the Map!
Includes:
 Mode07 v0.6
 Overworld Sprite Resize
 Written by mewsterus

Special Thanks:
 Fanha Giang (for a reverse engineered Tilemap class)
--------------------------------------------------------------------------------
Instructions:
--------------------------------------------------------------------------------
To install, just insert this in a descriptive code slot right above Main.
 This is different than previous instructions; please read the next paragraph.

If you had a previous install of this script and need an original version of
 Spriteset_Map, one can be found at:
 http://www.rpg-palace.com/scripts/spriteset_map.txt

To activate Mode07, add [#XX] to the map's name, replacing XX with the
 percentage of Mode07 to apply. Greater numbers will result in a more slanted
 world.
 
To activate overworld sprite resize, add [OV] to the map's name. This will make
 sprites smaller on that map.

For the purposes of location scripts, these identifiers will not appear.


Examples:

"Overworld[#40]" will result in a slant identical to the second screenshot.
"Underworld[OV]" will resize only the player character to a small size, as if
 seen from high above.
"Atthelevelworld[OV][#12]" will result in the player being resized, and a modest
 slant of 12%
"JustPlainWorld" will result in the same old map you've always seen.

To add a sky, simply use the panorama with the tileset. Also, events will not
 be drawn flat with the map. Any vertical objects such as trees should be put
 in events and displayed that way.

You can also add a sky by adding a fog. If you add this, you can make it look
 like the first screenshot.

A note on the $strip_size variable; the default value is 8, however there is
 extremely minimal, almost nonexistant lag with 16. The screen is extremely
 smooth with 4, or even 2. If you're having major problems with lag, you may
 need to use 32, but it won't look too pretty.
--------------------------------------------------------------------------------
* Draw_Tilemap v1.72-0.6
Fanha Giang, 02/12/2006 (mm/dd/yyyy)
Edited for Mode07 by mewsterus 08/08/2006 (mm/dd/yyyy)
=end

#因为百度不能贴一次性太长的脚本
#请把分开了的脚本全部插入同一页在main之前

#===============================================================================
$width = 640 # Screen width (will not change resolution,
$height = 480 # Screen height here for compatibility)
$ov_zoom = 0.6 # Overworld zoom multiplier
$strip_size = 8 # Size of each strip of the map. Higher numbers will lag less.
 # Recommended that this number be a power of 2.
 # Do not make higher than 64.
$curve = true # Whether the map is curled, for overworlds (old method)
$data_map = load_data("Data/MapInfos.rxdata")
#===============================================================================
class RPG::MapInfo
 def name # Definition prevents location scripts from reading anything within
 return @name.gsub(/\[.*\]/) {""} # brackets, including the brackets
 end
 #-----------------------------------------------------------------------------
 def original_name
 return @name
 end
 #-----------------------------------------------------------------------------
 def overworld?
 return @name.scan(/[OV]/).size > 0
 end
 #-----------------------------------------------------------------------------
 def pitch
 @name =~ /\[#[ ]*([00-99]+)\]/i
 return $1
 end
end
#===============================================================================
class Draw_Tilemap # This class controls a set of sprites, with different Z
 # values, arranged into horizontal bars
 attr_accessor :tileset
 attr_accessor :map_data
 attr_accessor :priorities
 attr_accessor :autotiles
 attr_accessor :bitmaps
 attr_accessor :pitch
 attr_accessor :ox
 attr_accessor :oy
 attr_accessor :plus_y
 INDEX = # Autotile definitions
 [
 26, 27, 32, 33, 4, 27, 32, 33, 26, 5, 32, 33, 4, 5, 32, 33,
 26, 27, 32, 11, 4, 27, 32, 11, 26, 5, 32, 11, 4, 5, 32, 11,
 26, 27, 10, 33, 4, 27, 10, 33, 26, 5, 10, 33, 4, 5, 10, 33,
 26, 27, 10, 11, 4, 27, 10, 11, 26, 5, 10, 11, 4, 5, 10, 11,
 24, 25, 30, 31, 24, 5, 30, 31, 24, 25, 30, 11, 24, 5, 30, 11,
 14, 15, 20, 21, 14, 15, 20, 11, 14, 15, 10, 21, 14, 15, 10, 11,
 28, 29, 34, 35, 28, 29, 10, 35, 4, 29, 34, 35, 4, 29, 10, 35,
 38, 39, 44, 45, 4, 39, 44, 45, 38, 5, 44, 45, 4, 5, 44, 45,
 24, 29, 30, 35, 14, 15, 44, 45, 12, 13, 18 ,19, 12, 13, 18, 11,
 16, 17, 22, 23, 16, 17, 10, 23, 40, 41, 46, 47, 4, 41, 46, 47,
 36, 37, 42, 43, 36, 5, 42, 43, 12, 17, 18, 23, 12, 13, 42, 43,
 36, 41, 42, 47, 16, 17, 46, 47, 12, 17, 42, 47, 0, 1, 6, 7
 ]
 X = [0, 1, 0, 1] # Used in 16x16 autotile drawing; left, right, left, right
 Y = [0, 0, 1, 1] # Used in 16x16 autotile drawing; up, up, down, down
 #-----------------------------------------------------------------------------
 def initialize
 # Get initial data from Game_Map
 @tileset = RPG::Cache.tileset($game_map.tileset_name)
 @map_data = $game_map.data
 @priorities = $game_map.priorities
 @autotiles = []
 for i in 0..6
 @autotiles[i] = RPG::Cache.autotile($game_map.autotile_names[i])
 end
 # Provide blank data in proper object form
 @ox = 0
 @oy = 0
 # Bitmaps used for each priority's drawing. Priorities 2-5 are combined.
 @bitmaps = [Bitmap.new($game_map.width*32, $game_map.height*32+$strip_size),
 Bitmap.new($game_map.width*32, $game_map.height*32+$strip_size),
 Bitmap.new($game_map.width*32, $game_map.height*32+$strip_size)]
 # Generate blank sprites
 @sprites = [[], [], []]
 for i in 0..2 # For each layer
 for j in 0..$game_map.height * (32 / $strip_size) - 1
 # For each horizontal strip of $strip_size height, make a blank sprite
 @sprites[i].push(Sprite.new)
 @sprites[i][j].bitmap = Bitmap.new($game_map.width*32, $strip_size*2)
 @sprites[i][j].x = $width / 2
 @sprites[i][j].y = -64
 @sprites[i][j].z = -5 + (i * 10)
 end
 end
 @disposed = false
 draw
 end
 #-----------------------------------------------------------------------------
 def update
 # Retrieve variable values for slant drawing; these values accesible by event
 @pitch = $game_map.pitch.to_f
 @plus_y = $game_map.plus_y
 for i in 0..2 # For each layer
 for j in [0, (($height / 2) - (($height * 60) /
 @pitch) + @oy) / $strip_size].max.to_i..[@sprites[i].size - 1,
 (@oy + $height) / $strip_size].min.to_i
 # For each strip within the visible screen, update OX/Y
 @sprites[i][j].x = $width / 2
 @sprites[i][j].y = j * $strip_size - @oy
 unless @pitch == 0 # Apply X Zoom
 @sprites[i][j].zoom_x = (@sprites[i][j].y - $height / 2) *
 (@pitch / ($height * 25)) + 1
 if $curve # Zoom Y values same as X, and compensate
 @sprites[i][j].zoom_y = @sprites[i][j].zoom_x
 @sprites[i][j].y += $strip_size * (1 - @sprites[i][j].zoom_y) *
 ((1 - @sprites[i][j].zoom_y) /
 (2 * ((@pitch / 100) /
 ($height / ($strip_size * 2)))) + 0.5)
 end
 end
 @sprites[i][j].ox = @ox + $width / 2
 # Add plus_y value; used in airship script
 @sprites[i][j].y += @plus_y
 end
 end
 end

#-----------------------------------------------------------------------------
 def dispose
 # Dispose all sprites
 for i in 0..2
 for j in @sprites[i]
 j.bitmap.dispose
 j.dispose
 end
 end
 for i in @bitmaps
 i.dispose
 end
 @tileset.dispose
 for i in 0..6
 @autotiles[i].dispose
 end
 @disposed = true
 end
 #-----------------------------------------------------------------------------
 def disposed?
 return @disposed
 end
 #-----------------------------------------------------------------------------
 def draw
 # Draw each individual position by XY value
 for x in 0...@map_data.xsize
 for y in 0...@map_data.ysize
 draw_position(x, y)
 end
 end
 for i in 0..2 # For each priority
 for j in 0..@sprites[i].size - 1
 # For each horizontal strip, transfer the bitmap appropriately
 @sprites[i][j].bitmap.blt(0, 0, @bitmaps[i],
 Rect.new(0, j * $strip_size, $game_map.width * 32, $strip_size * 2))
 end
 end
 end
 #-----------------------------------------------------------------------------
 def draw_position(x, y)
 for layer in 0..2
 pos = @map_data[x, y, layer]
 @priorities[pos] = 2 if @priorities[pos] > 2 # Round priorities down to 2
 if pos >= 384 # If it is a tile
 # src_rect = 32x32 Rect on the tileset for source bitmap
 src_rect = Rect.new(((pos-384)%8)*32, ((pos-384)/8)*32, 32, 32)
 # Transfer source bitmap on the tileset to the current map tile
 @bitmaps[@priorities[pos]].blt(x * 32, y * 32, @tileset, src_rect)
 elsif pos >= 48 and pos < 384 # If it is an autotile
 id = pos / 48 - 1 # Which autotile is used (0-6)
 # plus_x is in development for animated autotiles
 plus_x = 0 #((@anim / 4) % (@autotiles[id].width / 96)) * 96
 for corner in 0..3
 h = 4 * (pos % 48) + corner # Used to access INDEX
 # src_rect = 16x16 Rect on the autotile for source bitmap
 src_rect = Rect.new((INDEX[h]%6)*16+plus_x, (INDEX[h]/6)*16, 16, 16)
 # Transfer source bitmap on the autotile to the current 16x16 tile
 @bitmaps[@priorities[pos]].blt(x*32+X[corner]*16, y*32+Y[corner]*16,
 @autotiles[id], src_rect)
 end
 end
 end
 end
end
#===============================================================================
class Game_Map
 attr_accessor :pitch
 attr_accessor :plus_y
 #-----------------------------------------------------------------------------
 alias setup_or :setup
 def setup(map_id)
 setup_or(map_id)
 @pitch = $data_map[$game_map.map_id].pitch
 @plus_y = 0
 end
 #-----------------------------------------------------------------------------
 def name
 return $data_map[@map_id].name
 end
end
#===============================================================================
class Sprite_Character < RPG::Sprite
 attr_accessor :character
 #-----------------------------------------------------------------------------
 def initialize(character = nil)
 super()
 @character = character
 update
 end
 #-----------------------------------------------------------------------------
 alias update_or :update
 def update
 update_or
 # Update pitch value, and update zoom values to match


 @pitch = $data_map[$game_map.map_id].pitch.to_f
 self.zoom_x =
 self.zoom_y = ((@character.screen_y - 16) - ($height / 2)) *
 (@pitch / ($height * 25)) + 1
 # Set sprite coordinates. X value is multiplied by zoom value from the center
 self.x = ($width / 2) + ((@character.screen_x - ($width / 2)) * self.zoom_x)
 self.y = @character.screen_y
 # Add Y value for zoom compensation while in curve mode
 if $curve and @pitch != 0
 self.y += (8 * (1 - self.zoom_y) * ((1 - self.zoom_y) /
 (2 * ((@pitch / 100) / ($height / 16.0))) + 0.5))
 end
 # Add plus_y value; used in airship script
 self.y += $game_map.plus_y unless @character.is_a?(Game_Player)
 self.z = @character.screen_z(@ch) - (self.zoom_y < 0.5 ? 1000 : 0)
 if $data_map[$game_map.map_id].overworld? and
 @character.is_a?(Game_Player) # Multiply zoom by Overworld factor if
 self.zoom_x *= $ov_zoom # the map is marked with [OV] and event
 self.zoom_y *= $ov_zoom # is a Game_Player
 end
 end
end
#===============================================================================
class Spriteset_Map
 def initialize
 # Make viewports
 @viewport1 = Viewport.new(0, 0, 640, 480)
 @viewport2 = Viewport.new(0, 0, 640, 480)
 @viewport3 = Viewport.new(0, 0, 640, 480)
 @viewport2.z = 2000
 @viewport3.z = 5000
 # Make tilemap
 @tilemap = Draw_Tilemap.new
 # Make panorama plane
 @panorama = Plane.new
 @panorama.z = -2000
 # Make fog plane
 @fog = Plane.new
 @fog.z = 3000
 # Make character sprites
 @character_sprites = []
 for i in $game_map.events.keys.sort
 sprite = Sprite_Character.new($game_map.events[i])
 @character_sprites.push(sprite)
 end
 @character_sprites.push(Sprite_Character.new($game_player))
 # Make weather
 @weather = RPG::Weather.new(@viewport1)
 # Make picture sprites
 @picture_sprites = []
 for i in 1..50
 @picture_sprites.push(Sprite_Picture.new(@viewport2,
 $game_screen.pictures[i]))
 end
 # Make timer sprite
 @timer_sprite = Sprite_Timer.new
 # Frame update
 update
 end
 #-----------------------------------------------------------------------------
 def dispose
 # Dispose of tilemap
 @tilemap.dispose
 # Dispose of panorama plane
 @panorama.dispose
 # Dispose of fog plane
 @fog.dispose
 # Dispose of character sprites
 for sprite in @character_sprites
 sprite.dispose
 end
 # Dispose of weather
 @weather.dispose
 # Dispose of picture sprites
 for sprite in @picture_sprites
 sprite.dispose
 end
 # Dispose of timer sprite
 @timer_sprite.dispose
 # Dispose of viewports
 @viewport1.dispose
 @viewport2.dispose
 @viewport3.dispose
 end
end

#===============================================================================
$width = 640 # Screen width (will not change resolution,
$height = 480 # Screen height here for compatibility)
$ov_zoom = 0.6 # Overworld zoom multiplier
$strip_size = 8 # Size of each strip of the map. Higher numbers will lag less.
 # Recommended that this number be a power of 2.
 # Do not make higher than 64.
$curve = true # Whether the map is curled, for overworlds (old method)
$data_map = load_data("Data/MapInfos.rxdata")
#===============================================================================
class RPG::MapInfo
 def name # Definition prevents location scripts from reading anything within
 return @name.gsub(/\[.*\]/) {""} # brackets, including the brackets
 end
 #-----------------------------------------------------------------------------
 def original_name
 return @name
 end
 #-----------------------------------------------------------------------------
 def overworld?
 return @name.scan(/[OV]/).size > 0
 end
 #-----------------------------------------------------------------------------
 def pitch
 @name =~ /\[#[ ]*([00-99]+)\]/i
 return $1
 end
end
#===============================================================================
class Draw_Tilemap # This class controls a set of sprites, with different Z
 # values, arranged into horizontal bars
 attr_accessor :tileset
 attr_accessor :map_data
 attr_accessor :priorities
 attr_accessor :autotiles
 attr_accessor :bitmaps
 attr_accessor :pitch
 attr_accessor :ox
 attr_accessor :oy
 attr_accessor :plus_y
 INDEX = # Autotile definitions
 [
 26, 27, 32, 33, 4, 27, 32, 33, 26, 5, 32, 33, 4, 5, 32, 33,
 26, 27, 32, 11, 4, 27, 32, 11, 26, 5, 32, 11, 4, 5, 32, 11,
 26, 27, 10, 33, 4, 27, 10, 33, 26, 5, 10, 33, 4, 5, 10, 33,
 26, 27, 10, 11, 4, 27, 10, 11, 26, 5, 10, 11, 4, 5, 10, 11,
 24, 25, 30, 31, 24, 5, 30, 31, 24, 25, 30, 11, 24, 5, 30, 11,
 14, 15, 20, 21, 14, 15, 20, 11, 14, 15, 10, 21, 14, 15, 10, 11,
 28, 29, 34, 35, 28, 29, 10, 35, 4, 29, 34, 35, 4, 29, 10, 35,
 38, 39, 44, 45, 4, 39, 44, 45, 38, 5, 44, 45, 4, 5, 44, 45,
 24, 29, 30, 35, 14, 15, 44, 45, 12, 13, 18 ,19, 12, 13, 18, 11,
 16, 17, 22, 23, 16, 17, 10, 23, 40, 41, 46, 47, 4, 41, 46, 47,
 36, 37, 42, 43, 36, 5, 42, 43, 12, 17, 18, 23, 12, 13, 42, 43,
 36, 41, 42, 47, 16, 17, 46, 47, 12, 17, 42, 47, 0, 1, 6, 7
 ]
 X = [0, 1, 0, 1] # Used in 16x16 autotile drawing; left, right, left, right
 Y = [0, 0, 1, 1] # Used in 16x16 autotile drawing; up, up, down, down
 #-----------------------------------------------------------------------------
 def initialize
 # Get initial data from Game_Map
 @tileset = RPG::Cache.tileset($game_map.tileset_name)
 @map_data = $game_map.data
 @priorities = $game_map.priorities
 @autotiles = []
 for i in 0..6
 @autotiles[i] = RPG::Cache.autotile($game_map.autotile_names[i])
 end
 # Provide blank data in proper object form
 @ox = 0
 @oy = 0
 # Bitmaps used for each priority's drawing. Priorities 2-5 are combined.
 @bitmaps = [Bitmap.new($game_map.width*32, $game_map.height*32+$strip_size),


 @bitmaps[@priorities[pos]].blt(x * 32, y * 32, @tileset, src_rect)
 elsif pos >= 48 and pos < 384 # If it is an autotile
 id = pos / 48 - 1 # Which autotile is used (0-6)
 # plus_x is in development for animated autotiles
 plus_x = 0 #((@anim / 4) % (@autotiles[id].width / 96)) * 96
 for corner in 0..3
 h = 4 * (pos % 48) + corner # Used to access INDEX
 # src_rect = 16x16 Rect on the autotile for source bitmap
 src_rect = Rect.new((INDEX[h]%6)*16+plus_x, (INDEX[h]/6)*16, 16, 16)
 # Transfer source bitmap on the autotile to the current 16x16 tile
 @bitmaps[@priorities[pos]].blt(x*32+X[corner]*16, y*32+Y[corner]*16,
 @autotiles[id], src_rect)
 end
 end
 end
 end
end
#===============================================================================
class Game_Map
 attr_accessor :pitch
 attr_accessor :plus_y
 #-----------------------------------------------------------------------------
 alias setup_or :setup
 def setup(map_id)
 setup_or(map_id)
 @pitch = $data_map[$game_map.map_id].pitch
 @plus_y = 0
 end
 #-----------------------------------------------------------------------------
 def name
 return $data_map[@map_id].name
 end
end
#===============================================================================
class Sprite_Character < RPG::Sprite
 attr_accessor :character
 #-----------------------------------------------------------------------------
 def initialize(character = nil)
 super()
 @character = character
 update
 end
 #-----------------------------------------------------------------------------
 alias update_or :update
 def update
 update_or
 # Update pitch value, and update zoom values to match
 @pitch = $data_map[$game_map.map_id].pitch.to_f
 self.zoom_x =
 self.zoom_y = ((@character.screen_y - 16) - ($height / 2)) *
 (@pitch / ($height * 25)) + 1
 # Set sprite coordinates. X value is multiplied by zoom value from the center
 self.x = ($width / 2) + ((@character.screen_x - ($width / 2)) * self.zoom_x)
 self.y = @character.screen_y
 # Add Y value for zoom compensation while in curve mode
 if $curve and @pitch != 0
 self.y += (8 * (1 - self.zoom_y) * ((1 - self.zoom_y) /
 (2 * ((@pitch / 100) / ($height / 16.0))) + 0.5))
 end
 # Add plus_y value; used in airship script
 self.y += $game_map.plus_y unless @character.is_a?(Game_Player)
 self.z = @character.screen_z(@ch) - (self.zoom_y < 0.5 ? 1000 : 0)
 if $data_map[$game_map.map_id].overworld? and
 @character.is_a?(Game_Player) # Multiply zoom by Overworld factor if
 self.zoom_x *= $ov_zoom # the map is marked with [OV] and event
 self.zoom_y *= $ov_zoom # is a Game_Player
 end
 end
end
#===============================================================================
class Spriteset_Map
 def initialize
 # Make viewports
 @viewport1 = Viewport.new(0, 0, 640, 480)
 @viewport2 = Viewport.new(0, 0, 640, 480)
 @viewport3 = Viewport.new(0, 0, 640, 480)
 @viewport2.z = 2000
 @viewport3.z = 5000
 # Make tilemap
 @tilemap = Draw_Tilemap.new
 # Make panorama plane
 @panorama = Plane.new
 @panorama.z = -2000
 # Make fog plane
 @fog = Plane.new
 @fog.z = 3000
 # Make character sprites
 @character_sprites = []
 for i in $game_map.events.keys.sort
 sprite = Sprite_Character.new($game_map.events[i])
 @character_sprites.push(sprite)
 end
 @character_sprites.push(Sprite_Character.new($game_player))
 # Make weather
 @weather = RPG::Weather.new(@viewport1)
 # Make picture sprites
 @picture_sprites = []
 for i in 1..50
 @picture_sprites.push(Sprite_Picture.new(@viewport2,
 $game_screen.pictures[i]))
 end
 # Make timer sprite
 @timer_sprite = Sprite_Timer.new
 # Frame update
 update
 end
 #-----------------------------------------------------------------------------
 def dispose
 # Dispose of tilemap
 @tilemap.dispose
 # Dispose of panorama plane
 @panorama.dispose
 # Dispose of fog plane
 @fog.dispose
 # Dispose of character sprites
 for sprite in @character_sprites
 sprite.dispose
 end
 # Dispose of weather
 @weather.dispose
 # Dispose of picture sprites
 for sprite in @picture_sprites
 sprite.dispose
 end
 # Dispose of timer sprite
 @timer_sprite.dispose
 # Dispose of viewports
 @viewport1.dispose
 @viewport2.dispose
 @viewport3.dispose
 end
end

=begin

Mode07 on the Map!
Includes:
 Mode07 v0.6
 Overworld Sprite Resize
 Written by mewsterus

Special Thanks:
 Fanha Giang (for a reverse engineered Tilemap class)
--------------------------------------------------------------------------------
Instructions:
--------------------------------------------------------------------------------
To install, just insert this in a descriptive code slot right above Main.
 This is different than previous instructions; please read the next paragraph.

If you had a previous install of this script and need an original version of
 Spriteset_Map, one can be found at:
 http://www.rpg-palace.com/scripts/spriteset_map.txt

To activate Mode07, add [#XX] to the map's name, replacing XX with the
 percentage of Mode07 to apply. Greater numbers will result in a more slanted
 world.
 
To activate overworld sprite resize, add [OV] to the map's name. This will make
 sprites smaller on that map.

For the purposes of location scripts, these identifiers will not appear.


Examples:

"Overworld[#40]" will result in a slant identical to the second screenshot.
"Underworld[OV]" will resize only the player character to a small size, as if
 seen from high above.
"Atthelevelworld[OV][#12]" will result in the player being resized, and a modest
 slant of 12%
"JustPlainWorld" will result in the same old map you've always seen.

To add a sky, simply use the panorama with the tileset. Also, events will not
 be drawn flat with the map. Any vertical objects such as trees should be put
 in events and displayed that way.

You can also add a sky by adding a fog. If you add this, you can make it look
 like the first screenshot.

A note on the $strip_size variable; the default value is 8, however there is
 extremely minimal, almost nonexistant lag with 16. The screen is extremely
 smooth with 4, or even 2. If you're having major problems with lag, you may
 need to use 32, but it won't look too pretty.
--------------------------------------------------------------------------------
* Draw_Tilemap v1.72-0.6
Fanha Giang, 02/12/2006 (mm/dd/yyyy)
Edited for Mode07 by mewsterus 08/08/2006 (mm/dd/yyyy)
=end
#===============================================================================
$width = 640 # Screen width (will not change resolution,
$height = 480 # Screen height here for compatibility)
$ov_zoom = 0.6 # Overworld zoom multiplier
$strip_size = 8 # Size of each strip of the map. Higher numbers will lag less.
 # Recommended that this number be a power of 2.
 # Do not make higher than 64.
$curve = true # Whether the map is curled, for overworlds (old method)
$data_map = load_data("Data/MapInfos.rxdata")
#===============================================================================
class RPG::MapInfo
 def name # Definition prevents location scripts from reading anything within
 return @name.gsub(/\[.*\]/) {""} # brackets, including the brackets
 end
 #-----------------------------------------------------------------------------
 def original_name


 return @name
 end
 #-----------------------------------------------------------------------------
 def overworld?
 return @name.scan(/[OV]/).size > 0
 end
 #-----------------------------------------------------------------------------
 def pitch
 @name =~ /\[#[ ]*([00-99]+)\]/i
 return $1
 end
end
#===============================================================================
class Draw_Tilemap # This class controls a set of sprites, with different Z
 # values, arranged into horizontal bars
 attr_accessor :tileset
 attr_accessor :map_data
 attr_accessor :priorities
 attr_accessor :autotiles
 attr_accessor :bitmaps
 attr_accessor :pitch
 attr_accessor :ox
 attr_accessor :oy
 attr_accessor :plus_y
 INDEX = # Autotile definitions
 [
 26, 27, 32, 33, 4, 27, 32, 33, 26, 5, 32, 33, 4, 5, 32, 33,
 26, 27, 32, 11, 4, 27, 32, 11, 26, 5, 32, 11, 4, 5, 32, 11,
 26, 27, 10, 33, 4, 27, 10, 33, 26, 5, 10, 33, 4, 5, 10, 33,
 26, 27, 10, 11, 4, 27, 10, 11, 26, 5, 10, 11, 4, 5, 10, 11,
 24, 25, 30, 31, 24, 5, 30, 31, 24, 25, 30, 11, 24, 5, 30, 11,
 14, 15, 20, 21, 14, 15, 20, 11, 14, 15, 10, 21, 14, 15, 10, 11,
 28, 29, 34, 35, 28, 29, 10, 35, 4, 29, 34, 35, 4, 29, 10, 35,
 38, 39, 44, 45, 4, 39, 44, 45, 38, 5, 44, 45, 4, 5, 44, 45,
 24, 29, 30, 35, 14, 15, 44, 45, 12, 13, 18 ,19, 12, 13, 18, 11,
 16, 17, 22, 23, 16, 17, 10, 23, 40, 41, 46, 47, 4, 41, 46, 47,
 36, 37, 42, 43, 36, 5, 42, 43, 12, 17, 18, 23, 12, 13, 42, 43,
 36, 41, 42, 47, 16, 17, 46, 47, 12, 17, 42, 47, 0, 1, 6, 7
 ]
 X = [0, 1, 0, 1] # Used in 16x16 autotile drawing; left, right, left, right
 Y = [0, 0, 1, 1] # Used in 16x16 autotile drawing; up, up, down, down
 #-----------------------------------------------------------------------------
 def initialize
 # Get initial data from Game_Map
 @tileset = RPG::Cache.tileset($game_map.tileset_name)
 @map_data = $game_map.data
 @priorities = $game_map.priorities
 @autotiles = []
 for i in 0..6
 @autotiles[i] = RPG::Cache.autotile($game_map.autotile_names[i])
 end
 # Provide blank data in proper object form
 @ox = 0
 @oy = 0
 # Bitmaps used for each priority's drawing. Priorities 2-5 are combined.
 @bitmaps = [Bitmap.new($game_map.width*32, $game_map.height*32+$strip_size),
 Bitmap.new($game_map.width*32, $game_map.height*32+$strip_size),
 Bitmap.new($game_map.width*32, $game_map.height*32+$strip_size)]
 # Generate blank sprites
 @sprites = [[], [], []]
 for i in 0..2 # For each layer
 for j in 0..$game_map.height * (32 / $strip_size) - 1
 # For each horizontal strip of $strip_size height, make a blank sprite
 @sprites[i].push(Sprite.new)
 @sprites[i][j].bitmap = Bitmap.new($game_map.width*32, $strip_size*2)
 @sprites[i][j].x = $width / 2
 @sprites[i][j].y = -64
 @sprites[i][j].z = -5 + (i * 10)
 end
 end
 @disposed = false
 draw
 end
 #-----------------------------------------------------------------------------
 def update
 # Retrieve variable values for slant drawing; these values accesible by event
 @pitch = $game_map.pitch.to_f
 @plus_y = $game_map.plus_y


 for i in 0..2 # For each layer
 for j in [0, (($height / 2) - (($height * 60) /
 @pitch) + @oy) / $strip_size].max.to_i..[@sprites[i].size - 1,
 (@oy + $height) / $strip_size].min.to_i
 # For each strip within the visible screen, update OX/Y
 @sprites[i][j].x = $width / 2
 @sprites[i][j].y = j * $strip_size - @oy
 unless @pitch == 0 # Apply X Zoom
 @sprites[i][j].zoom_x = (@sprites[i][j].y - $height / 2) *
 (@pitch / ($height * 25)) + 1
 if $curve # Zoom Y values same as X, and compensate
 @sprites[i][j].zoom_y = @sprites[i][j].zoom_x
 @sprites[i][j].y += $strip_size * (1 - @sprites[i][j].zoom_y) *
 ((1 - @sprites[i][j].zoom_y) /
 (2 * ((@pitch / 100) /
 ($height / ($strip_size * 2)))) + 0.5)
 end
 end
 @sprites[i][j].ox = @ox + $width / 2
 # Add plus_y value; used in airship script
 @sprites[i][j].y += @plus_y
 end
 end
 end
 #-----------------------------------------------------------------------------
 def dispose
 # Dispose all sprites
 for i in 0..2
 for j in @sprites[i]
 j.bitmap.dispose
 j.dispose
 end
 end
 for i in @bitmaps
 i.dispose
 end
 @tileset.dispose
 for i in 0..6
 @autotiles[i].dispose
 end
 @disposed = true
 end
 #-----------------------------------------------------------------------------
 def disposed?
 return @disposed
 end
 #-----------------------------------------------------------------------------
 def draw
 # Draw each individual position by XY value
 for x in 0...@map_data.xsize
 for y in 0...@map_data.ysize
 draw_position(x, y)
 end
 end
 for i in 0..2 # For each priority
 for j in 0..@sprites[i].size - 1
 # For each horizontal strip, transfer the bitmap appropriately
 @sprites[i][j].bitmap.blt(0, 0, @bitmaps[i],
 Rect.new(0, j * $strip_size, $game_map.width * 32, $strip_size * 2))
 end
 end
 end
 #-----------------------------------------------------------------------------
 def draw_position(x, y)
 for layer in 0..2
 pos = @map_data[x, y, layer]
 @priorities[pos] = 2 if @priorities[pos] > 2 # Round priorities down to 2
 if pos >= 384 # If it is a tile
 # src_rect = 32x32 Rect on the tileset for source bitmap
 src_rect = Rect.new(((pos-384)%8)*32, ((pos-384)/8)*32, 32, 32)
 # Transfer source bitmap on the tileset to the current map tile
 @bitmaps[@priorities[pos]].blt(x * 32, y * 32, @tileset, src_rect)
 elsif pos >= 48 and pos < 384 # If it is an autotile
 id = pos / 48 - 1 # Which autotile is used (0-6)
 # plus_x is in development for animated autotiles
 plus_x = 0 #((@anim / 4) % (@autotiles[id].width / 96)) * 96
 for corner in 0..3
 h = 4 * (pos % 48) + corner # Used to access INDEX
 # src_rect = 16x16 Rect on the autotile for source bitmap
 src_rect = Rect.new((INDEX[h]%6)*16+plus_x, (INDEX[h]/6)*16, 16, 16)
 # Transfer source bitmap on the autotile to the current 16x16 tile
 @bitmaps[@priorities[pos]].blt(x*32+X[corner]*16, y*32+Y[corner]*16,
 @autotiles[id], src_rect)
 end
 end
 end
 end
end
#===============================================================================
class Game_Map
 attr_accessor :pitch


 attr_accessor :plus_y
 #-----------------------------------------------------------------------------
 alias setup_or :setup
 def setup(map_id)
 setup_or(map_id)
 @pitch = $data_map[$game_map.map_id].pitch
 @plus_y = 0
 end
 #-----------------------------------------------------------------------------
 def name
 return $data_map[@map_id].name
 end
end
#===============================================================================
class Sprite_Character < RPG::Sprite
 attr_accessor :character
 #-----------------------------------------------------------------------------
 def initialize(character = nil)
 super()
 @character = character
 update
 end
 #-----------------------------------------------------------------------------
 alias update_or :update
 def update
 update_or
 # Update pitch value, and update zoom values to match
 @pitch = $data_map[$game_map.map_id].pitch.to_f
 self.zoom_x =
 self.zoom_y = ((@character.screen_y - 16) - ($height / 2)) *
 (@pitch / ($height * 25)) + 1
 # Set sprite coordinates. X value is multiplied by zoom value from the center
 self.x = ($width / 2) + ((@character.screen_x - ($width / 2)) * self.zoom_x)
 self.y = @character.screen_y
 # Add Y value for zoom compensation while in curve mode
 if $curve and @pitch != 0
 self.y += (8 * (1 - self.zoom_y) * ((1 - self.zoom_y) /
 (2 * ((@pitch / 100) / ($height / 16.0))) + 0.5))
 end
 # Add plus_y value; used in airship script
 self.y += $game_map.plus_y unless @character.is_a?(Game_Player)
 self.z = @character.screen_z(@ch) - (self.zoom_y < 0.5 ? 1000 : 0)
 if $data_map[$game_map.map_id].overworld? and
 @character.is_a?(Game_Player) # Multiply zoom by Overworld factor if
 self.zoom_x *= $ov_zoom # the map is marked with [OV] and event
 self.zoom_y *= $ov_zoom # is a Game_Player
 end
 end
end
#===============================================================================
class Spriteset_Map
 def initialize
 # Make viewports
 @viewport1 = Viewport.new(0, 0, 640, 480)
 @viewport2 = Viewport.new(0, 0, 640, 480)
 @viewport3 = Viewport.new(0, 0, 640, 480)
 @viewport2.z = 2000
 @viewport3.z = 5000
 # Make tilemap
 @tilemap = Draw_Tilemap.new
 # Make panorama plane
 @panorama = Plane.new
 @panorama.z = -2000
 # Make fog plane
 @fog = Plane.new
 @fog.z = 3000
 # Make character sprites
 @character_sprites = []
 for i in $game_map.events.keys.sort
 sprite = Sprite_Character.new($game_map.events[i])
 @character_sprites.push(sprite)
 end
 @character_sprites.push(Sprite_Character.new($game_player))
 # Make weather
 @weather = RPG::Weather.new(@viewport1)
 # Make picture sprites
 @picture_sprites = []
 for i in 1..50
 @picture_sprites.push(Sprite_Picture.new(@viewport2,
 $game_screen.pictures[i]))
 end
 # Make timer sprite
 @timer_sprite = Sprite_Timer.new
 # Frame update
 update
 end
 #-----------------------------------------------------------------------------
 def dispose
 # Dispose of tilemap
 @tilemap.dispose
 # Dispose of panorama plane
 @panorama.dispose
 # Dispose of fog plane
 @fog.dispose
 # Dispose of character sprites
 for sprite in @character_sprites
 sprite.dispose
 end
 # Dispose of weather
 @weather.dispose
 # Dispose of picture sprites
 for sprite in @picture_sprites
 sprite.dispose
 end
 # Dispose of timer sprite
 @timer_sprite.dispose
 # Dispose of viewports
 @viewport1.dispose
 @viewport2.dispose
 @viewport3.dispose
 end
end