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

雪流星 · 发表于 2012-3-6 13:26:38

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

本帖最后由 Sion 于 2013-12-16 16:31 编辑

下载范例工程：
V1.51：
http://hop.tl/dNRLwLRxrE_nRqkEoT
http://115.com/file/be7vl7yi

world_map_1-51.zip (2.99 MB, 下载次数: 3359)

V1.5：
http://hop.tl/TwWJvVnxLKXKuE4Eg1
http://115.com/file/ani8my4g

V1.0：
http://dl.dbank.com/c0ovr5aqps
http://hop.tl/VfsTEJhde8Z8_FJVrT
http://db.tt/b2hCM6mN

太长太多，就不贴出来了，请自己下载范例工程

说明也全部写在脚本里了。

截图：

更新日志：
2012-03-10 更新 v1.5
* 介面更新：隐藏地图列表窗口，放大世界地图区域
         使用方向键选择目标
* 新增功能：地图名称颜色
         使用 [name_color X] 指定文字颜色，没有指定的默认为 0
         无法传送又未知的地图则以灰色显示

2012-03-18 更新 v1.51
* 修复 BUG：修复在子地图中开启世界地图介面无法选择其他地图的BUG

核心：

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

复制代码

设定：（请模仿这一段填写地图资讯）

module DataManager
def self.map_data_setup
$data_maps[3].full_desc = "\\C[2]故事开始之处。\\C[1]这是资讯这是资讯这是资讯
这是资讯这是资讯这是资讯这是资讯这是资讯这是资讯这是资讯这是资讯
这是资讯这是资讯这是资讯这是资讯"
end
end

复制代码

布罗利 · 发表于 2015-1-9 14:23:24

能不能给个XP的？

雷影 · 发表于 2015-1-6 19:06:57

有点挖坟了啊！！不过还是想试试！
楼主，系统很不错啊！不过还能不能改进啊！
改成：没去过的地方在地图上不会显示，不能被选择！
以及：传送时释放一些动画表现传送效果！

rachelkywong · 发表于 2014-5-17 15:55:10

地圖設定第3行:發生NoMethodError
undefined method`full_desc=' for nil:Nilclass

eiwqueqie · 发表于 2013-12-23 22:40:39

马克了，谢谢楼主

ab2573974277 · 发表于 2013-10-2 21:29:21

怎么打开地图啊

13970977252 · 发表于 2013-8-28 22:24:02

这么威武？楼主果然是狂人啊

雪流星 · 发表于 2013-8-7 06:19:03

補 1.51版下載
我放在 MEGA 看能下載不?
https://mega.co.nz/#!nE8QUKLA!ay ... hvwJi3dpx3FAuiSyslA

倾灬城 · 发表于 2013-6-29 15:29:47

虽然现在回复算挖坟可是还是忍不住想求雪大能不能开个百度网盘分享QUQ115现在取消了大众分享什么也下不了

v728fn5212go · 发表于 2013-5-30 15:25:14

用用吧，看看实际效果怎么样

帐号		自动登录	找回密码
密码			注册会员

[RMVA发布] 世界地图+传送功能 (更新 V1.51)

加入我们，或者，欢迎回来。

点评

评分

点评

点评

贵宾