[FSL] 让RMVX有多重RTP (mutiRTP)

david50407

关于RTP请参照 : http://rpg.blue/thread-160800-1-1.html
因为 VX 没有多重 RTP 的设置
于是我用脚本来实现个
基本上脚本是遵循 FSL 协议的
不过 String 转码模块是不遵循的 (介于本人懒惰...)

1. #==============================================================================
   
2. # ■ String
   
3. #------------------------------------------------------------------------------
   
4. # 　字符串类。可处理任意长度的字节串。 （追加编码转换的定义）
   
5. #==============================================================================
   
6. 
   
7. class String
   
8.   #--------------------------------------------------------------------------
   
9.   # ● 用来编码Ruby 字符串、解码unicode 的两个Windows API 函数
   
10.   #--------------------------------------------------------------------------
    
11.   @@MultiByteToWideChar = Win32API.new("kernel32", "MultiByteToWideChar", ['I', 'L', 'P', 'I', 'P', 'I'], 'I')
    
12.   @@WideCharToMultiByte = Win32API.new("kernel32", "WideCharToMultiByte", ['I', 'L', 'P', 'I', 'P', 'I', 'P', 'P'], 'I')
    
13.   #--------------------------------------------------------------------------
    
14.   # ● 返回将Ruby UTF-8 字符串对象（本身）编码为unicode 后的字符串
    
15.   #--------------------------------------------------------------------------
    
16.   def to_unicode
    
17.     len = @@MultiByteToWideChar.call(65001, 0, self, -1, 0, 0) << 1
    
18.     buf =" " * len
    
19.     # 65001: UTF-8 字符集编码（代码页）
    
20.     @@MultiByteToWideChar.call(65001, 0, self, -1, buf, len)
    
21.     return buf
    
22.   end
    
23.   #--------------------------------------------------------------------------
    
24.   # ● 返回将编码为unicode 的字符串对象（本身）解码为UTF-8 后的字符串
    
25.   #--------------------------------------------------------------------------
    
26.   def to_UTF8
    
27.     len = @@WideCharToMultiByte.call(65001, 0, self, -1, 0, 0, 0, 0)
    
28.     buf =" " * len
    
29.     @@WideCharToMultiByte.call(65001, 0, self, -1, buf, len, 0, 0)
    
30.     # 去掉'\0' 字符串结束符（因为转换之后仅仅用于Ruby 字符串）
    
31.     buf.slice!(-1, 1)
    
32.     return buf
    
33.   end
    
34. end
    

复制代码

这是String转码模块

1. #===============================================================================
   
2. # ■ 多重 RTP
   
3. # mutiRTP
   
4. #-------------------------------------------------------------------------------
   
5. # 基于 VX 没有多 RTP 供选择的缘故
   
6. # 这是个多 RTP 设置的实现
   
7. #
   
8. # 在配置区可以随意设置要使用的RTP 名称
   
9. # 在找不到该 RTP 时也能设置是否忽略
   
10. # (不过若是资源找不着时还是采用 VX 默认的报错)
    
11. #-------------------------------------------------------------------------------
    
12. #    更新作者： David Kuo (david50407 @ 66rpg.com)
    
13. #    许可协议： FSL
    
14. #    项目版本： 1.00.0000
    
15. #    引用网址：
    
16. #-------------------------------------------------------------------------------
    
17. #    - *1.00.0000 * By David Kuo (david50407 @ 66rpg.com)
    
18. #      * 初版
    
19. #===============================================================================
    
20. $fscript = {} if $fscript == nil
    
21. $fscript["mutiRTP"] = "1.00.0000"
    
22. #-------------------------------------------------------------------------------
    
23. # ▼ 通用配置模块
    
24. #-------------------------------------------------------------------------------
    
25. module FSL
    
26.   module MutiRTP
    
27.     ERROR = false # 找不到 RTP 时是否导致 致命错误(程序退出)
    
28.     # 以下设置 RTP 的名称
    
29.     RTPs = ["RPGVX"]
    
30.   end
    
31. end
    
32. #-------------------------------------------------------------------------------
    
33. # ▼ 多重 RTP
    
34. #-------------------------------------------------------------------------------
    
35. module MutiRTP
    
36.   include FSL::MutiRTP # 引入设置
    
37.   # 定义 API
    
38.   RegOpenKeyEx = Win32API.new('advapi32', 'RegOpenKeyEx', 'lpiip', 'l')
    
39.   RegQueryValueEx = Win32API.new('advapi32', 'RegQueryValueExW', 'lppppp', 'l')
    
40.   RegCloseKey = Win32API.new('advapi32', 'RegCloseKey', 'l', 'l')
    
41.   
    
42.   # 定义模块方法
    
43.   module_function
    
44.   
    
45.   def findRTPs(*args)
    
46.     rtpPath = []
    
47.     hKey = '    '
    
48.     RegOpenKeyEx.call(-2147483646, 'SOFTWARE\Enterbrain\RGSS2\RTP', 0, 0x20019 | 0x0200, hKey)
    
49.     hKey = hKey.unpack('l')[0]
    
50. 
    
51.     for rtp in args
    
52.       data, cbData = '    ' * 32, [128].pack('l')
    
53.       RegQueryValueEx.call(hKey, rtp.to_unicode, 0, 0, data, cbData)
    
54.       if data == '    ' * 32
    
55.         if ERROR
    
56.           p "找不到 RTP : \"#{rtp}\""
    
57.           exit
    
58.         end
    
59.       else
    
60.         rtpPath.push(File.expand_path(data.to_UTF8) + '/')
    
61.       end
    
62.     end
    
63.    
    
64.     RegCloseKey.call(hKey)
    
65.     return rtpPath
    
66.   end
    
67.   
    
68.   def init
    
69.     rtpPath = findRTPs(*RTPs)
    
70.     for p in rtpPath
    
71.       $: << p
    
72.     end
    
73.     $mutiRTP = rtpPath
    
74.   end
    
75. end
    
76. 
    
77. #-------------------------------------------------------------------------------
    
78. # ▼ 修正路径
    
79. #-------------------------------------------------------------------------------
    
80. module RPG
    
81.   module Path
    
82.     FindFirstFile = Win32API.new("kernel32", "FindFirstFileW", "PP", "L")
    
83.     FindNextFile = Win32API.new("kernel32", "FindNextFileW", "LP", "I")
    
84.     def self.findP(*paths)
    
85.       findFileData = " " * 592
    
86.       for p in paths
    
87.         unless FindFirstFile.call(p.to_unicode, findFileData) == -1 # INVALID_HANDLE_VALUE
    
88.           return File.dirname(p) + "/" + findFileData[44, 45 + 260 * 2].to_UTF8
    
89.         end
    
90.       end
    
91.       return ""
    
92.     end
    
93.    
    
94.     @list = {}
    
95.     def self.Get(path)
    
96.       return @list[path] if @list.include?(path)
    
97.       check = File.extname(path).empty?
    
98.       rtp = []
    
99.       for i in 0...$mutiRTP.length
    
100.         unless $mutiRTP[i].empty?
     
101.           rtp.push($mutiRTP[i] + path)
     
102.           if check
     
103.             rtp.push($mutiRTP[i] + path + ".*")
     
104.           end
     
105.         end
     
106.       end
     
107.       pa = self.findP(*rtp)
     
108.       if pa == ""
     
109.         @list[path] = path
     
110.       else
     
111.         @list[path] = pa
     
112.       end
     
113.       return @list[path]
     
114.     end
     
115.   end
     
116. end
     
117. 
     
118. #-------------------------------------------------------------------------------
     
119. # ▼ 修正 Cache
     
120. #-------------------------------------------------------------------------------
     
121. module Cache
     
122.   class << self
     
123.     alias_method :old_load_bitmap, :load_bitmap
     
124.   end
     
125.   #--------------------------------------------------------------------------
     
126.   # * 载入图档
     
127.   #--------------------------------------------------------------------------
     
128.   def self.load_bitmap(folder_name, filename, hue = 0)
     
129.     self.old_load_bitmap(File.dirname(RPG::Path.Get(folder_name+filename))+'/', filename, hue)
     
130.   end
     
131. end
     
132. 
     
133. #-------------------------------------------------------------------------------
     
134. # ▼ 修正 Audio
     
135. #-------------------------------------------------------------------------------
     
136. module Audio
     
137.   class << self
     
138.     alias_method :old_bgm_play, :bgm_play
     
139.     alias_method :old_bgs_play, :bgs_play
     
140.     alias_method :old_me_play,  :me_play
     
141.     alias_method :old_se_play,  :se_play
     
142.   end
     
143.   #--------------------------------------------------------------------------
     
144.   # * 播放背景音乐
     
145.   #--------------------------------------------------------------------------
     
146.   def self.bgm_play(*args)
     
147.     args[0] = RPG::Path.Get(args[0])
     
148.     return self.old_bgm_play(*args)
     
149.   end
     
150.   #--------------------------------------------------------------------------
     
151.   # * 播放背景音效
     
152.   #--------------------------------------------------------------------------
     
153.   def self.bgs_play(*args)
     
154.     args[0] = RPG::Path.Get(args[0])
     
155.     return self.old_bgs_play(*args)
     
156.   end
     
157.   #--------------------------------------------------------------------------
     
158.   # * 播放事件音乐
     
159.   #--------------------------------------------------------------------------
     
160.   def self.me_play(*args)
     
161.     args[0] = RPG::Path.Get(args[0])
     
162.     return self.old_me_play(*args)
     
163.   end
     
164.   #--------------------------------------------------------------------------
     
165.   # * 播放事件音效
     
166.   #--------------------------------------------------------------------------
     
167.   def self.se_play(*args)
     
168.     args[0] = RPG::Path.Get(args[0])
     
169.     return self.old_se_play(*args)
     
170.   end
     
171. end
     
172. 
     
173. MutiRTP.init

复制代码

这是我们的主角~~ 请放置于Cache模块之后
RTPs = ["RPGVX"] # 这就是RTP设置

有BUG请回报

至于图嘛...还是上个几张好了...
没设置RTP
RMVX游戏照样运行~~

范例:
Project1.rar (1.05 MB, 下载次数: 925)

2010-11-14 12:13 上传

点击文件名下载附件

夕阳武士

前辈好~

越前リョーマ

以后出一个小柯RTP = =b

domencasio

我想问下，如果要设置2套RTP的话文件名应该怎么打？
直接在
#     RTPs = ["RPGVX"]这个后面加上？


domencasio于2010-12-14 08:09补充以下内容：
多谢~


domencasio于2010-12-14 08:51补充以下内容：
貌似还是不行诶，我的系统是64位的WIN7，和这个有关系么？我把脚本中的路径从32位的那个按照XP的那个帖子改成了64位的路径，还是没用，需要修改工程文件里德GAME.ini么？
注册表里

游戏脚本编辑器里设置

自己的RTP目录

血のばら

看到了win7，表示机子无能,偶用的是XP,VX的纯粹打酱油