世界地图+传送功能 (更新 V1.51) - Project1

class RPG::Map
#--------------------------------------------------------------------------
# ● 获取世界地图XY座标
#--------------------------------------------------------------------------
def get_worldxy
self.note.split(/[\r\n]+/).each { |line|
if line =~ /\[worldxy (\d+),(?:|\s+)(\d+)\]/
return $1.to_i, $2.to_i
end
}
return -1, -1
end
#--------------------------------------------------------------------------
# ● 获取玩家在世界地图上的XY座标
#--------------------------------------------------------------------------
def get_playerxy
self.note.split(/[\r\n]+/).each { |line|
if line =~ /\[playerxy (\d+),(?:|\s+)(\d+)\]/
return $1.to_i, $2.to_i
end
}
return -1, -1
end
#--------------------------------------------------------------------------
# ● 获取玩家传送后的地图XY座标
#--------------------------------------------------------------------------
def get_landxy
self.note.split(/[\r\n]+/).each { |line|
if line =~ /\[landxy (\d+),(?:|\s+)(\d+)\]/
return $1.to_i, $2.to_i
end
}
return -1, -1
end
#--------------------------------------------------------------------------
# ● 获取显示在世界地图上的图像文件名
#--------------------------------------------------------------------------
def get_worldimg
self.note.split(/[\r\n]+/).each { |line|
return $1 if line =~ /\[worldimg (\w+)\]/
}
return ""
end
def get_detailimg
self.note.split(/[\r\n]+/).each { |line|
return $1 if line =~ /\[detimg (\w+)\]/
}
return ""
end
#--------------------------------------------------------------------------
# ● 获取显示在世界地图上的说明文字
#--------------------------------------------------------------------------
def get_desc
self.note.split(/[\r\n]+/).each { |line|
return $1 if line =~ /\[desc (\S+)\]/
}
return ""
end
def get_visitswitch
self.note.split(/[\r\n]+/).each { |line|
return $1.to_i if line =~ /\[visitswitch (\d+)\]/
}
return 0
end
def get_name_color
self.note.split(/[\r\n]+/).each { |line|
return $1.to_i if line =~ /\[name_color (\d+)\]/
}
return 0
end
end
#==============================================================================
# ■ Data_Map
#------------------------------------------------------------------------------
# 　储存地图与传送的相关资料。
#==============================================================================
class Data_Map
IGNORE_VISIT_SWITCH = false # 忽略造访过的开关
attr_reader :id
attr_reader :player_x
attr_reader :player_y
attr_reader :world_x
attr_reader :world_y
attr_reader :land_x
attr_reader :land_y
attr_reader :world_img
attr_reader :name_color
attr_reader :description
attr_reader :detail_image
attr_accessor :full_desc
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize(map_id)
@id = map_id
map = load_data(sprintf("Data/Map%03d.rvdata2", @id))
@name = $data_mapinfos[@id].name
@parent_id = $data_mapinfos[@id].parent_id
@display_name = map.display_name
@world_x, @world_y = map.get_worldxy
@player_x, @player_y = map.get_playerxy
@land_x, @land_y = map.get_landxy
@world_img = map.get_worldimg
@name_color = map.get_name_color
@full_desc = ""
@detail_image = map.get_detailimg
@description = map.get_desc
@visited = false
@known = false
@visit_switch_id = map.get_visitswitch
adjust_player_xy
end
#--------------------------------------------------------------------------
# ● 地图名称
#--------------------------------------------------------------------------
def name
return @name unless @display_name!=""
return @display_name
end
#--------------------------------------------------------------------------
# ● 判断是否可以传送
#--------------------------------------------------------------------------
def can_transfer?
return false if @land_x==-1 && @land_y==-1
return false if name.include?("MAP") # 若名称是普通为命名的名称时无法传送
return visited? && !isCurrentMap?
end
#--------------------------------------------------------------------------
# ● 判断是否可以列出
#--------------------------------------------------------------------------
def can_list?
return false if @world_img == ""
return !(@world_x==-1 && @world_y==-1)
end
#--------------------------------------------------------------------------
# ● 判断是否可以使用
#--------------------------------------------------------------------------
def can_use?
return visited? || known?
end
#--------------------------------------------------------------------------
# ● 判断是否已经造访过
#--------------------------------------------------------------------------
def visited?
return true if IGNORE_VISIT_SWITCH # 忽略时返回 true
if @visit_switch_id != 0
return $game_switches[@visit_switch_id]
end
return @visited
end
#--------------------------------------------------------------------------
# ● 判断是否有详细资讯
#--------------------------------------------------------------------------
def has_detail?
return @full_desc != "" || @detail_image != ""
end
#--------------------------------------------------------------------------
# ● 判断是否已知
#--------------------------------------------------------------------------
def known?
return false unless has_detail?
return @known
end
#--------------------------------------------------------------------------
# ● 判断是否为当前地图
#--------------------------------------------------------------------------
def isCurrentMap?
return @id == $game_map.map_id
end
#--------------------------------------------------------------------------
# ● 造访地图
#--------------------------------------------------------------------------
def visit
@visited = true
know
end
#--------------------------------------------------------------------------
# ● 取消造访地图
#--------------------------------------------------------------------------
def unvisit
@visited = false
end
#--------------------------------------------------------------------------
# ● 已知地图
#--------------------------------------------------------------------------
def know
@known = true
end
#--------------------------------------------------------------------------
# ● 取消已知地图
#--------------------------------------------------------------------------
def unknow
@knwon = false
end
#--------------------------------------------------------------------------
# ● 调整主角显示座标
#--------------------------------------------------------------------------
def adjust_player_xy
return if @player_x>=0 && @player_y>=0 # 本地图有指定时返回
if @world_x>=0 && @world_y>=0 # 本地图在世界地图上有显示时
@player_x, @player_y = @world_x, @world_y # 获取世界地图座标
else
@player_x, @player_y = parent_player_xy # 获取母地图主角座标
end
end
#--------------------------------------------------------------------------
# ● 获取母地图的主角显示座标
#--------------------------------------------------------------------------
def parent_player_xy
if @parent_id == 0 # 无母地图时
return Graphics.width, 0 # 显示荧幕外
else
par_map = $data_maps[@parent_id]
return par_map.player_x, par_map.player_y # 返回母地图指定的主角显示座标
end
end
def parent_id_on_map
return 0 if @parent_id == 0 # 无母地图时
par_map = $data_maps[@parent_id]
if par_map.player_x == @player_x && par_map.player_y == @player_y
return @parent_id
else
return parent_id_on_map
end
end
end
module DataManager
#--------------------------------------------------------------------------
# ● 载入资料库
#--------------------------------------------------------------------------
class << self
alias worldmap_load_database load_database
def load_database
worldmap_load_database
load_mapdata # 载入地图资料
map_data_setup
end
end
#--------------------------------------------------------------------------
# ● 载入地图资料
#--------------------------------------------------------------------------
def self.load_mapdata
$data_maps = {}
$data_mapinfos.each_key{ |mapid|
mapdata = Data_Map.new(mapid)
$data_maps[mapid] = mapdata
}
end
end
module Cache
#--------------------------------------------------------------------------
# ● 载入地图图片
#--------------------------------------------------------------------------
def self.load_map(filename)
load_bitmap("Graphics/Maps/", filename)
end
end
class Game_Map
#--------------------------------------------------------------------------
# ● 地图设置
#--------------------------------------------------------------------------
alias worldmap_setup setup
def setup(map_id)
worldmap_setup(map_id)
$data_maps[map_id].visit
end
#--------------------------------------------------------------------------
# ● 返回当前地图资讯
#--------------------------------------------------------------------------
def current_map_data
return $data_maps[@map_id]
end
end

复制代码

class Window_MapList < Window_ItemList
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize(x, y, width, height)
super(x, y, width, height)
self.height = fitting_height(1)
self.arrows_visible = false
make_item_list
create_contents
select_map($game_map.current_map_data)
refresh
select_map(current_map_adjust)
self.opacity = 0
end
#--------------------------------------------------------------------------
# ● 最大栏数
#--------------------------------------------------------------------------
def col_max
return 1
end
#--------------------------------------------------------------------------
# ● 判断是否有效
#--------------------------------------------------------------------------
def enable?(map=@data[index])
return map.can_use?
end
#--------------------------------------------------------------------------
# ● 返回当前选中的地图
#--------------------------------------------------------------------------
def map
return item
end
#--------------------------------------------------------------------------
# ● 返回全部地图
#--------------------------------------------------------------------------
def maps
return @data
end
#--------------------------------------------------------------------------
# ● 生成项目列表
#--------------------------------------------------------------------------
def make_item_list
$data_maps.each_value{|map|
@data.push(map) if map.can_list?
}
if @data.empty?
@data.push(nil)
else
@sort_map_x = @data.sort{|a, b| a.world_x <=> b.world_x}
@sort_map_y = @data.sort{|a, b| a.world_y <=> b.world_y}
end
end
#--------------------------------------------------------------------------
# ● 绘制项目
#--------------------------------------------------------------------------
def refresh
contents.clear
if map
# 获取文字颜色
change_color(text_color(map.name_color), enable?(map))
width = text_size(map.name).width
x = (self.width - width)/2
make_font_smaller # 文字大小变小
draw_text(x, 0, 172, line_height, map.name)
reset_font_settings # 重设文字设定
# 调整座标
x = map.world_x - self.width/2
bitmap = Cache.load_map(map.world_img)
y = map.world_y + bitmap.height/2 - self.standard_padding
y += help_window.height if help_window
self.x = x
self.y = y
end
end
#--------------------------------------------------------------------------
# ● 获取文字颜色
#--------------------------------------------------------------------------
def change_color(color, enabled = true)
if enabled
contents.font.color.set(color)
else
contents.font.color.set(Color.new(100, 100, 100))
end
end
#--------------------------------------------------------------------------
# ● 按下方向左键
#--------------------------------------------------------------------------
def cursor_left(wrap = false)
change_curser(@sort_map_x, 4)
end
#--------------------------------------------------------------------------
# ● 按下方向右键
#--------------------------------------------------------------------------
def cursor_right(wrap = false)
change_curser(@sort_map_x, 6)
end
#--------------------------------------------------------------------------
# ● 按下方向上键
#--------------------------------------------------------------------------
def cursor_up(wrap = false)
change_curser(@sort_map_y, 8)
end
#--------------------------------------------------------------------------
# ● 按下方向下键
#--------------------------------------------------------------------------
def cursor_down(wrap = false)
change_curser(@sort_map_y, 2)
end
#--------------------------------------------------------------------------
# ● 按下方向键
#--------------------------------------------------------------------------
def change_curser(array, direction)
return if array.nil? || array.empty?
#return unless array.include?(map)
index = array.index(current_map_adjust)
case direction
when 4, 8 # 按左右键时
if index == 0
index = array.size - 1
else
index -= 1
end
when 2, 6 # 按上下键时
if index == array.size-1
index = 0
else
index += 1
end
else
return
end
real_index = @data.index(array[index]) # 获取真实index
select(real_index) # 选择地图
refresh # 刷新窗口
end
def current_map_adjust
return map if map
actual_map = $data_maps[$game_map.current_map_data.parent_id_on_map]
return actual_map
end
#--------------------------------------------------------------------------
# ● 更新游标
#--------------------------------------------------------------------------
def update_cursor
cursor_rect.empty if cursor_rect.height > 0 # 将游标隐藏
end
#--------------------------------------------------------------------------
# ● 选择地图
#--------------------------------------------------------------------------
def select_map(map)
i = @data.index(map)
select(i)
end
end
class Window_MapChoices < Window_Command
#--------------------------------------------------------------------------
# ● 生成命令
#--------------------------------------------------------------------------
def make_command_list
add_command("传送到这里", :transfer)
add_command("详细资料", :description)
end
#--------------------------------------------------------------------------
# ● 设置命令有效度
#--------------------------------------------------------------------------
def set_command_enable(index, enable)
@list[index][:enabled] = enable
redraw_item(index)
end
end
class Window_MapDetail < Window_Selectable
attr_reader :map
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize(x, y, width, height)
super(x, y, width, height)
@map = nil
@show_desc = false
end
#--------------------------------------------------------------------------
# ● 设置地图
#--------------------------------------------------------------------------
def map=(m)
@map = m
refresh
end
#--------------------------------------------------------------------------
# ● 窗口刷新
#--------------------------------------------------------------------------
def refresh
return unless @map
contents.clear
if @map.detail_image != ""
draw_detail_image
else
@show_desc = @map.full_desc != ""
end
draw_full_desc if @show_desc
end
#--------------------------------------------------------------------------
# ● 绘制详细图像
#--------------------------------------------------------------------------
def draw_detail_image
dest_rect = Rect.new(0, 0, self.width-24, self.height-24)
src_bitmap = Cache.load_map(@map.detail_image)
src_rect = Rect.new(0, 0, src_bitmap.width, src_bitmap.height)
opacity = @show_desc ? 128 : 255
contents.stretch_blt(dest_rect, src_bitmap, src_rect, opacity)
end
#--------------------------------------------------------------------------
# ● 绘制详细资讯
#--------------------------------------------------------------------------
def draw_full_desc
draw_text_ex(0, 0, @map.full_desc)
end
#--------------------------------------------------------------------------
# ● 按下确认键时
#--------------------------------------------------------------------------
def process_ok
if @map.full_desc != ""
Sound.play_ok
@show_desc = !@show_desc
refresh
else
Sound.play_buzzer
end
end
end
class Scene_WorldMap < Scene_Base
#--------------------------------------------------------------------------
# ● 场景开始
#--------------------------------------------------------------------------
def start
super
@sprites=[]
create_map_description_window
create_map_list_window
create_choice_window
create_map_detail_window
create_world_map
create_location_sprite
create_player_sprite
end
#--------------------------------------------------------------------------
# ● 生成地图列表窗口
#--------------------------------------------------------------------------
def create_map_list_window
y = @map_desc_window.height
@map_list_window = Window_MapList.new(0, y, 160, Graphics.height-48)
@map_list_window.viewport = @viewport
@map_list_window.set_handler(:ok, method(:on_map_ok))
@map_list_window.set_handler(:cancel, method(:on_map_cancel))
@map_list_window.help_window = @map_desc_window
@map_list_window.refresh
@map_list_window.activate
@current_map = $game_map.current_map_data
@selected_map = @map_list_window.map
end
#--------------------------------------------------------------------------
# ● 生成地图说明窗口
#--------------------------------------------------------------------------
def create_map_description_window
@map_desc_window = Window_Help.new(1)
end
#--------------------------------------------------------------------------
# ● 生成选项窗口
#--------------------------------------------------------------------------
def create_choice_window
@choice_window = Window_MapChoices.new(0, 0)
@choice_window.x = (Graphics.width - @choice_window.width)/2
@choice_window.y = (Graphics.height - @choice_window.height)/2
@choice_window.viewport = @viewport
@choice_window.set_handler(:transfer, method(:do_player_transfer))
@choice_window.set_handler(:description, method(:show_full_desc))
@choice_window.set_handler(:cancel, method(:choice_cancel))
@choice_window.deactivate.hide
end
#--------------------------------------------------------------------------
# ● 生成详细资讯窗口
#--------------------------------------------------------------------------
def create_map_detail_window
y = @map_desc_window.height
width = 384
height = Graphics.height - y
@detail_window = Window_MapDetail.new(0, y, width, height)
@detail_window.x = (Graphics.width - @detail_window.width)/2
@detail_window.viewport = @viewport
@detail_window.set_handler(:ok, method(:update))
@detail_window.set_handler(:cancel, method(:detail_cancel))
@detail_window.deactivate.hide
end
#--------------------------------------------------------------------------
# ● 生成世界地图精灵
#--------------------------------------------------------------------------
def create_world_map
@world_map_sprite = Sprite.new(@viewport)
src_bitmap = Cache.load_map("world")
width = Graphics.width
height = Graphics.height - @map_desc_window.height
dest_bitmap = Bitmap.new(width, height)
dest_bitmap.stretch_blt(dest_bitmap.rect, src_bitmap, src_bitmap.rect)
@world_map_sprite.bitmap = dest_bitmap
@world_map_sprite.x = 0
@world_map_sprite.y = @map_desc_window.height
@sprites.push(@world_map_sprite)
end
#--------------------------------------------------------------------------
# ● 生成当前主角精灵
#--------------------------------------------------------------------------
def create_player_sprite
@player_sprite = Sprite.new(@viewport)
@player_sprite.bitmap = Cache.load_map("player")
update_player_sprite
@player_sprite.x = @current_map.player_x - @player_sprite.width/2
@player_sprite.y = @current_map.player_y - @player_sprite.height/2
@player_sprite.x += sprite_dx
@player_sprite.y += sprite_dy
@player_sprite.z = @selected_sprite.z + 10
@sprites.push(@player_sprite)
end
#--------------------------------------------------------------------------
# ● 生成地图位置精灵
#--------------------------------------------------------------------------
def create_location_sprite
@location_sprites= []
@map_list_window.maps.each{ |map|
l_sprite = Sprite.new(@viewport)
create_a_map_sprite(l_sprite, map)
@location_sprites.push(l_sprite)
}
update_location_sprites
@selected_sprite = Sprite.new(@viewport)
@sprites.push(@selected_sprite)
@sprites += @location_sprites
create_select_sprite
end
#--------------------------------------------------------------------------
# ● 生成选择精灵
#--------------------------------------------------------------------------
def create_select_sprite
create_a_map_sprite(@selected_sprite, @selected_map, "select")
@selected_sprite.z = current_sprite.z+10
end
#--------------------------------------------------------------------------
# ● 生成一个地图位置精灵
#--------------------------------------------------------------------------
def create_a_map_sprite(sprite, map, image="")
return unless map
image = map.world_img if image==""
sprite.bitmap = Cache.load_map(image)
sprite.x = map.world_x - sprite.width/2
sprite.y = map.world_y - sprite.height/2
sprite.x += sprite_dx
sprite.y += sprite_dy
end
#--------------------------------------------------------------------------
# ● 选择地图结束
#--------------------------------------------------------------------------
def on_map_ok
@map_list_window.deactivate
@choice_window.set_command_enable(0, @selected_map.can_transfer?)
@choice_window.set_command_enable(1, @selected_map.known?)
@choice_window.activate.show
end
#--------------------------------------------------------------------------
# ● 执行角色传送
#--------------------------------------------------------------------------
def do_player_transfer
map = @map_list_window.map
id = map.id
x = map.land_x
y = map.land_y
$game_player.reserve_transfer(id, x, y)
SceneManager.goto(Scene_Map)
end
#--------------------------------------------------------------------------
# ● 返回地图场景
#--------------------------------------------------------------------------
def on_map_cancel
SceneManager.call(Scene_Map)
end
#--------------------------------------------------------------------------
# ● 显示详细资讯窗口
#--------------------------------------------------------------------------
def show_full_desc
@detail_window.activate.show
@detail_window.map = @selected_map
@choice_window.deactivate.hide
end
#--------------------------------------------------------------------------
# ● 取消选项
#--------------------------------------------------------------------------
def choice_cancel
@map_list_window.activate
@choice_window.deactivate.hide
end
#--------------------------------------------------------------------------
# ● 跳出详细资讯窗口
#--------------------------------------------------------------------------
def detail_cancel
@detail_window.deactivate.hide
@map_list_window.activate
end
#--------------------------------------------------------------------------
# ● 场景更新
#--------------------------------------------------------------------------
def update
super
update_player_sprite
update_location_sprites
$game_player.perform_transfer if $game_player.transfer?
end
#--------------------------------------------------------------------------
# ● 更新主角精灵
#--------------------------------------------------------------------------
def update_player_sprite
cw = @player_sprite.bitmap.width/3
ch = @player_sprite.bitmap.height
player_rect = Rect.new(0, 0, cw, ch)
sx = Graphics.frame_count/24%4
player_rect.x = sx*cw
player_rect.x = cw if sx==3
@player_sprite.src_rect.set(player_rect)
end
#--------------------------------------------------------------------------
# ● 更新位置精灵
#--------------------------------------------------------------------------
def update_location_sprites
if @selected_map != @map_list_window.map
@selected_map = @map_list_window.map
@selected_sprite.x = current_sprite.x
@selected_sprite.y = current_sprite.y
end
end
#--------------------------------------------------------------------------
# ● 获取精灵位移座标
#--------------------------------------------------------------------------
def sprite_dx
@world_map_sprite.x
end
def sprite_dy
@world_map_sprite.y
end
#--------------------------------------------------------------------------
# ● 获取当前选中的地图的精灵
#--------------------------------------------------------------------------
def current_sprite
return @location_sprites[@map_list_window.index]
end
end
class Game_Interpreter
#--------------------------------------------------------------------------
# ● 呼叫世界地图场景
#--------------------------------------------------------------------------
def call_world_map
SceneManager.call(Scene_WorldMap)
end
#--------------------------------------------------------------------------
# ● 手动设定“已知”标记
#--------------------------------------------------------------------------
def know_map(id)
$data_maps[id].know
end
#--------------------------------------------------------------------------
# ● 取消“已知”标记
#--------------------------------------------------------------------------
def unknow_map(id)
$data_maps[id].unknow
end
#--------------------------------------------------------------------------
# ● 取消“已造访”标记
#--------------------------------------------------------------------------
def unvisit_map(id)
$data_maps[id].unvisit
end
end

复制代码