赞 | 47 |
VIP | 6 |
好人卡 | 0 |
积分 | 61 |
经验 | 88175 |
最后登录 | 2024-8-12 |
在线时间 | 443 小时 |
Lv4.逐梦者
- 梦石
- 1
- 星屑
- 5094
- 在线时间
- 443 小时
- 注册时间
- 2006-1-31
- 帖子
- 1537
|
加入我们,或者,欢迎回来。
您需要 登录 才可以下载或查看,没有帐号?注册会员
x
本帖最后由 传说VS天涯 于 2010-9-5 12:11 编辑
注意:
首先请确认自己的机器足够强悍!
偶的本本就不行,一点游戏就“脚本已备份”。
偶的台式机只能把祯数维持在10祯左右。 - #===============================================================================
- $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
复制代码 激活方法:
若要激活这个效果,请在工程中的地图名后加上[#**],**是缩放比率。例如地图名是:
“66后院”,那么将其改为“66后院[#12]”,就相当于对66后院这张地图实施12%的缩
放,这个数值请根据实际情况灵活调整。如果使用了显示地图名的脚本,地图后缀是不
会被显示出来的。不设置缩放比率,默认不进行地图缩放。如果设置有大地图,那么请
在大地图名后加上[OV],将会启用一套更合适的缩放效果。
杂感:
华丽确实是华丽,但是总体来说可用性不是很高,主要是那近乎疯狂的资源占用率……
另外还有个很大的缺陷——无视图块优先级……
如要使用,看来也只能是做R剧用用了(无视优先级对于一个游戏来说相当致命)。
而且不知道为什么,在这种伪3D地图上行走有点头晕……
转载自RPG Palace(原发布页面) |
|