[RGSS3] VX Ace RTP 脱离脚本 - Project1

#RTP脱离脚本 by RaidenInfinity
#调用方法：在main上方写：
#RTP_Pack.pack_rtp
module RTP_Pack
#RTP的文件夹。请自行寻找。
RTP_PATH = "C:/Program Files (x86)/RPG Maker VX Ace/RTP"
class << self
def pack_rtp
$res_list = []
p "操作开始！"
perform_select
p "复制文件中…请稍候…"
perform_pack
$res_list = nil
p "操作完成！请记得将Game.ini里面的RTP=RPGVXAce"
p "改成RTP="
p "以真正脱离RTP！"
end
def g_path(a,b)
$res_list ||= []
return if b == ""
$res_list.push("Graphics/" + a + "/" + b)
end
def a_path(a,b)
$res_list ||= []
return if b == ""
$res_list.push("Audio/" + a + "/" + b)
end
def process_event(event)
event.pages.each{|p|
g_path("Characters",p.graphic.character_name)
process_move_route(p.move_route)
process_event_list(p.list)
}
end
def process_move_route(route)
route.list.each{|s|
g_path("Characters",s.parameters[0]) if s.code == 41
a_path("SE",s.parameters[0].name) if s.code == 44
}
end
def process_event_list(list)
list.each{|s|
case s.code
when 205; process_move_route(s.parameters[1])
when 231; g_path("Pictures",s.parameters[1])
when 241; a_path("BGM", s.parameters[0].name)
when 245; a_path("BGS", s.parameters[0].name)
when 249; a_path("ME", s.parameters[0].name)
when 250; a_path("SE", s.parameters[0].name)
when 132; a_path("BGM", s.parameters[0].name)
when 133; a_path("ME", s.parameters[0].name)
when 322; g_path("Characters",s.parameters[1])
g_path("Faces",s.parameters[3])
when 323; g_path("Characters",s.parameters[1])
when 283; g_path("Battlebacks1",s.parameters[0])
g_path("Battlebacks2",s.parameters[1])
when 284; g_path("Parallaxes",s.parameters[0])
end
}
end
def perform_select
DataManager.load_normal_database
$data_actors.each{|s| next if !s
g_path("Characters",s.character_name)
g_path("Faces",s.face_name)
}
$data_enemies.each{|s| next if !s
g_path("Battlers",s.battler_name)
}
$data_animations.each{|s| next if !s
g_path("Animations",s.animation1_name)
g_path("Animations",s.animation2_name)
s.timings.each{|t| a_path("SE",t.se.name) }
}
$data_tilesets.each{|s| next if !s
s.tileset_names.each{|t| g_path("Tilesets",t) }
}
s = $data_system
g_path("Titles1",s.title1_name)
g_path("Titles2",s.title2_name)
g_path("Characters",s.boat.character_name)
g_path("Characters",s.ship.character_name)
g_path("Characters",s.airship.character_name)
a_path("BGM",s.boat.bgm.name)
a_path("BGM",s.ship.bgm.name)
a_path("BGM",s.airship.bgm.name)
a_path("BGM",s.title_bgm.name)
a_path("BGM",s.battle_bgm.name)
a_path("ME",s.battle_end_me.name)
a_path("ME",s.gameover_me.name)
s.sounds.each{|t| a_path("SE",t.name) }
g_path("System","Window")
g_path("System","IconSet")
g_path("System","Shadow")
g_path("System","Balloon")
g_path("System","BattleStart")
g_path("System","GameOver")
g_path("Battlebacks1","Grassland")
g_path("Battlebacks2","Grassland")
$data_mapinfos.each{|k,v|
map = load_data(sprintf("Data/Map%03d.rvdata2", k))
g_path("Parallaxes",map.parallax_name)
g_path("Battlebacks1",map.battleback1_name)
g_path("Battlebacks2",map.battleback2_name)
a_path("BGM", map.bgm.name)
a_path("BGS", map.bgs.name)
map.events.each{|k,v|
process_event(v)
}
}
$data_common_events.each{|s| next if !s
process_event_list(s.list)
}
$res_list.uniq!.delete("")
$res_list = $res_list.sort
p $res_list
end
def perform_pack
if !(Dir.exists?(RTP_PATH) && Dir.exists?(RTP_PATH + "/Graphics") &&
Dir.exists?(RTP_PATH + "/Audio"))
throw "请在RTP_PATH内填入正确的RTP路径！"
end
$res_list.each{|s|
r = RTP_PATH + "/" + s
[".png",".jpg",".bmp",".ogg",".mp3",".wma",".wav"].each{|i|
a = File.exist?(r + i)
next if !a
a = File.exist?(s + i)
break if a
move_file(r + i,s + i)
break
}
}
end
def move_file(r,s)
File.open(r,"rb"){|f|
File.open(s,"wb"){|g|
v = f.readlines
v.each{|i|
g.write(i)
}
}
}
end
end
end

复制代码