【加工】PNG Map Extractor for XP-地图PNG图片导出器Ver 1.3

RyanBern · 发表于 2014-12-6 01:21:31

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

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

x

本帖最后由 RyanBern 于 2016-7-10 16:02 编辑

深夜忙到很晚搞出来这个东西，这个脚本的功能就是导出游戏地图，把它制作成一个PNG文件。
类似的脚本在论坛上已经出现过，不过时间过于久远，而且不能直接在XP上使用。昨天在提问区看到一个提问帖，就拿来做了。用的是之前论坛上的脚本。
做的很仓促，所以有瑕疵的地方我会尽力改正。主要修复的问题就是自动元件描绘的问题，大家都知道只有XP才有自动元件，而且由于自动元件是程序自动生成，我们看不到源码，所以画起来十分麻烦，代码中大家也可以看到写得不是很简洁，不过我已经尽力了。
还有一个问题，就是地图导出会比较慢，所以尽量不要使用太大的地图。
感觉这玩意还可以配合ULDS系统进行截图。
使用前请下载这个DLL，并把它复制到工程的根目录下：

MGC_PNG.rar (87.39 KB, 下载次数: 359)

#==============================================================================
# PNG Map Extractor Ver 1.3
#------------------------------------------------------------------------------
# Modified By :RyanBern
# 注：此脚本为部分原创，增加了一个描绘自动元件的功能（原版本无法描绘自动元件）
# 引用的DLL: MGC_PNG(By MGC)，使用前请将MGC_PNG.dll复制到根目录下。
#------------------------------------------------------------------------------
# 功能：可以将地图导出成 PNG 文件格式（不含主角和事件）
# 也有直接将 Bitmap 对象输出为图片的功能
#------------------------------------------------------------------------------
# 使用方法：
# 对 Bitmap 对象使用 save_as_png(filename) 即可在指定目标文件夹中生成 PNG 文件。
# 直接调用 Picture_Map.make_all 即可生成全部地图的 PNG 文件
# 如果想单独生成某一ID的地图可以调用 Picture_Map.make_one(id[, layers])
# 后面的layers为指定图层，默认为整个地图，如果只需要生成1号地图第1层和第2层
# 的PNG，可以用 Picture_Map.make_one(1, [0, 1])，注意图层的顺序不要反了。
# 有关设置请改 module Picture_Map下的常量
#------------------------------------------------------------------------------
# 友情提示：
# 当地图很大时，处理会比较慢，建议不要放置过大的地图。否则程序会因长时间没有
# 响应而终止。
# 输出的文件名统一为Map+3位地图ID的形式。
#------------------------------------------------------------------------------
# 更新记录：
# Ver 1.1 :采用外接DLL，生成PNG更迅速
# Ver 1.2 :增加分层描绘功能
# Ver 1.3 :修复BUG(感谢pjy612的测试)
#==============================================================================
module Picture_Map
# 是否自动缩放，如果设置为 true ，则输出的png不会超过以下的宽和高
AUTO_CHANGE = false
# 自动缩放的宽度
AUTO_WIDTH = 800
# 自动缩放的高度
AUTO_HEIGHT = 1024
# 输出的文件夹(英文名称)
DIR_OUT = "OutMaps/"
def self.make_all
mapinfos = load_data("Data/MapInfos.rxdata")
for id in 1...mapinfos.size+1
next if mapinfos[id] == nil
out_filename = sprintf("Map%03d.png", id)
bitmap = make_map_bitmap(id)
if bitmap != nil
bitmap.save_as_png(DIR_OUT + out_filename)
bitmap.dispose
end
end
end
def self.make_one(id, layers = [0, 1, 2])
mapinfos = load_data("Data/MapInfos.rxdata")
return if mapinfos[id] == nil
out_filename = sprintf("Map%03d.png", id)
bitmap = make_map_bitmap(id, layers)
if bitmap != nil
bitmap.save_as_png(DIR_OUT + out_filename)
bitmap.dispose
end
end
def self.make_map_bitmap(id, layers = [0, 1, 2])
if FileTest.exist?(sprintf("#{DIR_OUT}Map%03d.png", id))
return nil
end
filename = sprintf("Data/Map%03d.rxdata", id)
return nil unless FileTest.exist?(filename)
map = load_data(filename)
map_data = map.data
tilesets = $data_tilesets[map.tileset_id]
tileset_name = tilesets.tileset_name
tileset = RPG::Cache.tileset(tileset_name)
autotiles = []
for i in 0..6
autotile_name = tilesets.autotile_names[i]
autotiles[i] = RPG::Cache.autotile(autotile_name)
end
map_bitmap = Bitmap.new(map.width * 32, map.height * 32)
for y in 0...map.height
for x in 0...map.width
new_orders = []
layers.each do |z|
new_orders << map_data[x, y, z]
end
for j in 1...new_orders.size
k = j - 1
temp = new_orders[j]
while k >= 0
if tilesets.priorities[new_orders[k]] > tilesets.priorities[temp]
new_orders[k+1] = new_orders[k]
k -= 1
else
break
end
end
new_orders[k+1] = temp if k != j - 1
end
new_orders.each do |tile_num|
begin
next if tile_num == nil
if tile_num < 384
if tile_num >= 48 #48
self.make_autotile(x * 32, y * 32, map_bitmap, autotiles[tile_num / 48 - 1], tile_num % 48)
end
else
tile_num -= 384
src_rect = Rect.new(tile_num % 8 * 32, tile_num / 8 * 32, 32, 32)
map_bitmap.blt(x * 32, y * 32, tileset, src_rect)
end
rescue Hangup
p 1
end
end
end
end
if AUTO_CHANGE and (map_bitmap.width > AUTO_WIDTH or map_bitmap.height > AUTO_HEIGHT)
zoom1 = map_bitmap.width.to_f / AUTO_WIDTH.to_f
zoom2 = map_bitmap.height.to_f / AUTO_HEIGHT.to_f
zoom = zoom1 > zoom2 ? zoom1 : zoom2
w = map_bitmap.width / zoom
h = map_bitmap.height / zoom
ret_bitmap = Bitmap.new(w, h)
src_rect = Rect.new(0, 0, map_bitmap.width, map_bitmap.height)
dest_rect = Rect.new(0, 0, w, h)
ret_bitmap.stretch_blt(dest_rect, map_bitmap, src_rect)
map_bitmap = ret_bitmap
end
return map_bitmap
end
def self.make_autotile(x, y, target_bitmap, tile_bitmap, tile_num)
if tile_bitmap == nil
return
end
case tile_num
when 0...16
target_bitmap.blt(x, y, tile_bitmap, Rect.new(32, 64, 32, 32))
target_bitmap.blt(x, y, tile_bitmap, Rect.new(64, 0, 16, 16)) if tile_num & 0x01 != 0
target_bitmap.blt(x+16, y, tile_bitmap, Rect.new(80, 0, 16, 16)) if tile_num & 0x02 != 0
target_bitmap.blt(x+16, y+16, tile_bitmap, Rect.new(80, 16, 16, 16)) if tile_num & 0x04 != 0
target_bitmap.blt(x, y+16, tile_bitmap, Rect.new(64, 16, 16, 16)) if tile_num & 0x08 != 0
when 16...20
bit = tile_num - 16
target_bitmap.blt(x, y, tile_bitmap, Rect.new(0, 64, 32, 32))
target_bitmap.blt(x+16, y, tile_bitmap, Rect.new(80, 0, 16, 16)) if bit & 0x01 != 0
target_bitmap.blt(x+16, y+16, tile_bitmap, Rect.new(80, 16, 16, 16)) if bit & 0x02 != 0
when 20...24
bit = tile_num - 20
target_bitmap.blt(x, y, tile_bitmap, Rect.new(32, 32, 32, 32))
target_bitmap.blt(x+16, y+16, tile_bitmap, Rect.new(80, 16, 16, 16)) if bit & 0x01 != 0
target_bitmap.blt(x, y+16, tile_bitmap, Rect.new(64, 16, 16, 16)) if bit & 0x02 != 0
when 24...28
bit = tile_num - 24
target_bitmap.blt(x, y, tile_bitmap, Rect.new(64, 64, 32, 32))
target_bitmap.blt(x, y+16, tile_bitmap, Rect.new(64, 16, 16, 16)) if bit & 0x01 != 0
target_bitmap.blt(x, y, tile_bitmap, Rect.new(64, 0, 16, 16)) if bit & 0x02 != 0
when 28...32
bit = tile_num - 28
target_bitmap.blt(x, y, tile_bitmap, Rect.new(32, 96, 32, 32))
target_bitmap.blt(x, y, tile_bitmap, Rect.new(64, 0, 16, 16)) if bit & 0x01 != 0
target_bitmap.blt(x+16, y, tile_bitmap, Rect.new(80, 0, 16, 16)) if bit & 0x02 != 0
when 32
target_bitmap.blt(x, y, tile_bitmap, Rect.new(0, 64, 16, 32))
target_bitmap.blt(x+16, y, tile_bitmap, Rect.new(80, 64, 16, 32))
when 33
target_bitmap.blt(x, y, tile_bitmap, Rect.new(32, 32, 32, 16))
target_bitmap.blt(x, y+16, tile_bitmap, Rect.new(32, 112, 32, 16))
when 34...36
bit = tile_num - 34
target_bitmap.blt(x, y, tile_bitmap, Rect.new(0, 32, 32, 32))
target_bitmap.blt(x+16, y+16, tile_bitmap, Rect.new(80, 16, 16, 16)) if tile_num & 0x01 != 0
when 36...38
bit = tile_num - 36
target_bitmap.blt(x, y, tile_bitmap, Rect.new(64, 32, 32, 32))
target_bitmap.blt(x, y+16, tile_bitmap, Rect.new(64, 16, 16, 16)) if tile_num & 0x01 != 0
when 38...40
bit = tile_num - 38
target_bitmap.blt(x, y, tile_bitmap, Rect.new(64, 96, 32, 32))
target_bitmap.blt(x, y, tile_bitmap, Rect.new(64, 0, 16, 16)) if tile_num & 0x01 != 0
when 40...42
bit = tile_num - 40
target_bitmap.blt(x, y, tile_bitmap, Rect.new(0, 96, 32, 32))
target_bitmap.blt(x+16, y, tile_bitmap, Rect.new(80, 0, 16, 16)) if tile_num & 0x01 != 0
when 42
target_bitmap.blt(x, y, tile_bitmap, Rect.new(0, 32, 16, 32))
target_bitmap.blt(x+16, y, tile_bitmap, Rect.new(80, 32, 16, 32))
when 43
target_bitmap.blt(x, y, tile_bitmap, Rect.new(0, 32, 32, 16))
target_bitmap.blt(x, y+16, tile_bitmap, Rect.new(0, 112, 32, 16))
when 44
target_bitmap.blt(x, y, tile_bitmap, Rect.new(0, 96, 16, 32))
target_bitmap.blt(x+16, y, tile_bitmap, Rect.new(80, 96, 16, 32))
when 45
target_bitmap.blt(x, y, tile_bitmap, Rect.new(64, 32, 32, 16))
target_bitmap.blt(x, y+16, tile_bitmap, Rect.new(64, 112, 32, 16))
when 46
target_bitmap.blt(x, y, tile_bitmap, Rect.new(0, 0, 32, 32))
end
end
end
#==============================================================================
# ■ Bitmap
#------------------------------------------------------------------------------
# 　关联到Bitmap。
#==============================================================================
class Bitmap
#--------------------------------------------------------------------------
# * Constantes
#--------------------------------------------------------------------------
CREATE_PNG = Win32API.new("MGC_PNG", "createPNG", "ll", "l")
#--------------------------------------------------------------------------
# * Méthode d'appel pour créer un fichier PNG
# chemin : chemin + nom du fichier à créer
#--------------------------------------------------------------------------
def save_as_png(chemin)
unless chemin[/\//] then chemin = './' << chemin end
CREATE_PNG.call(self.__id__, chemin.__id__)
end
end

复制代码

RyanBern · 发表于 2016-7-9 21:52:16

畫很多发表于 2016-7-9 19:50
不好意思，可以具体说明一下使用方法吗?
老实说我不是很清楚"对 Bitmap 对象使用 save_as_png(filename)"的 ...

假如变量 bmp 是一个 Bitmap 类的对象，那么调用

bmp.save_as_png("1.png")

复制代码

就会将这个变量表示的图形以PNG文件的形式存储在你的硬盘上。

因此这个脚本的原理就是利用游戏内部数据制作一个 Bitmap 类型的对象，然后再利用save_as_png将其变为可以保存并查看的PNG图片。

具体的用法在说明中已经给出。

Picture_Map.make_all

复制代码

将上面这句写在事件脚本里，可以导出全部的地图为PNG文件。

Picture_Map.make_one(1, [0, 1])

复制代码

将上面这句写在事件脚本里，可以导出1号地图的第一层和第二层地图。

畫很多 · 发表于 2016-7-9 19:50:39

不好意思，可以具体说明一下使用方法吗?
老实说我不是很清楚"对 Bitmap 对象使用 save_as_png(filename)"的意思

墨凌羽 · 发表于 2014-12-8 21:19:33

能不能同时输出每个图块相位置的通行？
感觉可以用RM画地图然后分层输出将导出的地图用作其他引擎的开发。。。。（不知道这算不算一个这个脚本的用法）

精灵使者 · 发表于 2014-12-8 16:54:42

这个脚本可以做小地图脚本的预备脚本，来读取所有小地图用。

pjy612 · 发表于 2014-12-8 09:08:57

本帖最后由 pjy612 于 2014-12-8 09:58 编辑

恩导出了前几个地图~速度不慢的赶脚~
全导出的时候
小瑕疵修正
Q1：
导出全部时提示参数不足
62.  def self.make_map_bitmap(id, mapinfos)
自解决：
62.  def self.make_map_bitmap(id, mapinfos, layers = [0, 1, 2])

Q2：地图名称如果包含中文可能导致程序停止工作
自解决：
换成Map+数字 fileName=sprintf("#{DIR_OUT}Map%03d.png", id)

Q3：
if tilesets.priorities[new_orders[k-1]] > tilesets.priorities[temp]
小概率出现 '>': comparison of Fixnum with nil failed (ArgumentError) 问题。。。
自解决：
前部分插入
break if tilesets.priorities[new_orders[k-1]].nil?
break if tilesets.priorities[temp].nil?
不过效果不理想可能会 ”备份脚本“
期待LZ尝试优化。。。

其他自行优化部分：
PS1：
导出全部地图时可以尝试加入
45.插入
   fileName=sprintf("#{DIR_OUT}Map%03d.png", id)
   if File.exists?(fileName)
      next if File.size(fileName)>100
   end
51.替换
bitmap.save_as_png(fileName)
避免中途出错后重复导出

PS2：
make_map_bitmap函数第三行
可以改成
map = load_data(fileName=sprintf("Data/Map%03d.rxdata", id)) rescue return
兼容如果 MapInfo有 ID 但是实际上没有MapXXX文件的情况
{:2_264:}
因为有时候MapInfo坏掉了。。。为了以防万一，就手动生成一个999的MapInfo。。。
多么痛的领悟。。。

其他的在测试测试~ Σ(っ °Д °;)っ竟然发现LZ秒回！醉了~

pjy612 · 发表于 2014-12-8 08:52:27

（ΦωΦ）多谢大大！~ 其实就是类似做攻略啊或者其他什么的用的说~不一定要事件和角色都截取~ 太感谢了~

越前リョーマ · 发表于 2014-12-6 19:32:38

不需要一个一个地图进去“截图”而是启动就自动导出吗？

stevenrock · 发表于 2014-12-6 18:20:45

可以用来偷地图？

chd114 · 发表于 2014-12-6 08:08:17

就是截一张世界地图的意思？

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

[原创发布] 【加工】PNG Map Extractor for XP-地图PNG图片导出器Ver 1.3

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

评分

点评

评分

开拓者

贵宾

剧作品鉴家

第3届短篇游戏大赛主流游戏组亚军

第5届短篇游戏比赛亚军