[求脚本] 针对英文的一次性自动换行脚本 - Project1

$data_mapinfos = load_data("Data/MapInfos.rxdata")
num = 0
for id in $data_mapinfos.keys
map = load_data(sprintf("Data/Map%03d.rxdata", id))
for e in map.events.values # 遍历事件
next if e.nil?
for p in e.pages # 遍历事件页
next if p.nil?
p.list.each_with_index do |list, index| # 遍历事件内容
next if list.nil? or (list.code != 101 and list.code != 401)
str = list.parameters[0]
next if str.length <= 30 # 小于30的不进行换行
str =~ /(.{0,30}) (.*)/
next unless ($1 and $2)
list.parameters[0] = $1
newEV = proc{|code, indent, msg|
ev = RPG::EventCommand.new
ev.code = code
ev.indent = indent
ev.parameters = [msg]
return ev
}
# 101和401很头疼，不想每个换行都用单独的行，算是解决了。。
if list.code == 101 # 101首行
r = 3
3.times{|i| p.list[index+i+1].code == 401 ? r -= 1 : break }
p.list.insert index+1,newEV.call(401, list.indent, $2)
if r <= 0 # 换行为101
p.list[index+4].code = 101 if p.list[index+4].code == 401
end
else # 401续行
r = 3
3.times{|i| (index-i >= 0 and p.list[index-i].code == 401) ? r -= 1 : break }
2.times{|i| p.list[index+i+1].code == 401 ? r -= 1 : break }
if r <= 0 # 新行
if p.list[index+1].code == 101
p.list.insert index+1,newEV.call(101, list.indent, $2)
3.times{|i| (p.list[index+2+i].code = 401;break) if p.list[index+2+i].code == 101 }
else
p.list.insert index+1,newEV.call(401, list.indent, $2)
p.list[index+2].code = 101
3.times{|i| (p.list[index+3+i].code = 401;break) if p.list[index+3+i].code == 101 }
end
else
p.list.insert index+1,newEV.call(401, list.indent, $2)
end
end
num += 1
end
end
end
save_data(map, sprintf("Data/Map%03d.rxdata", id))
end
print "换行#{num}次, 重启工程查看"
exit

复制代码

$data_mapinfos = load_data("Data/MapInfos.rxdata")
for id in $data_mapinfos.keys
map = load_data(sprintf("Data/Map%03d.rxdata", id))
for e in map.events.values # 遍历事件
next if e.nil?
for p in e.pages # 遍历事件页
next if p.nil?
p.list.each_with_index do |list, index| # 遍历事件内容
next if list.nil? or (list.code != 101 and list.code != 401)
$arr = [] if list.code == 101
$arr += list.parameters
if list.code == 401 and p.list[index+1].nil? or p.list[index+1].code != 401
f = "\r\n"
arr = $arr.join(f).gsub(/ ([A-Za-z]+)#{f}([A-Za-z])/){|s| "#{f}#{$1}#{$2}" }.split(f)
arr.reverse.each_with_index{|s, i| p.list[index-i].parameters = [s] }
# p arr
end
end
end
end
save_data(map, sprintf("Data/Map%03d.rxdata", id))
end
print "修改完毕, 重启工程查看"
exit

复制代码