【不是创意的创意】识别版本号的接入包v1.4(2011年7月30日）

精灵使者

此脚本可以识别出是在XP，VX和RGE下运行，同时还可以判断版本号。
没有任何效果，仅留关键变量供其他脚本使用。如果使用的话请放到要使用脚本的上方。
更新日志：
2011年7月30日
v1.4更新
增加了其他版本不需要默认RTP的场合的处理。
v1.3更新
增加了默认RTP是否存在 DEF_RTP_EXIST
v1.2更新
更新了算法，使其更加明白清晰。
更改了常量入口的名字，防止误解
增添了新常量：NO_RTP来判定是否脱离RTP
v1.1更新
大幅度优化了代码，提高了计算效率。（感谢fux2)
修正了正式游戏中无法获取变量的BUG。（感谢⑨、FUX2和秋庭里香）
2011年7月28日
发布版本1.0
脚本如下：

1. 
   
2. #############################################################################
   
3. #
   
4. #  检测运行环境脚本v1.4 by 精灵使者
   
5. #
   
6. #  感谢⑨ 忧雪君 fux2 秋庭里香 david50407 改进脚本
   
7. #
   
8. #  编码转换和寻找RTP 感谢 david50407
   
9. #
   
10. #  更新了其他的版本不需要RTP时候的场合判定。
    
11. #  修正了正式游戏的时候无法正常判断常量的BUG。
    
12. #  修正了常量名和规则，增添一个入口常量。
    
13. #  添加了RTP是否存在，感谢david50407
    
14. #
    
15. #  常量名单有：  
    
16. #  操作版本            FAY::PLATFORM              RMXP/RMVX/RGE/UNKNOWN
    
17. #  版本号              FAY::PLATFORM_VER          版本号
    
18. #  DLL使用语言         FAY::DLL_LANGUAGE          Japan/English
    
19. #  测试开关            FAY::TESTMODE              ON/OFF
    
20. #  RGSS版本            FAY::RGSS_VER              RGSS/RGSS2/RGE/UNKNOWN
    
21. #  是否脱离RTP         FAY::NO_RTP                YES/NO/NONEED
    
22. #  对应的RTP是否存在   FAY::DEF_RTP_EXIST         YES/NO/NONEED
    
23. #  
    
24. #############################################################################
    
25. 
    
26. #获取顶层变量
    
27. 
    
28. KEY = self
    
29. 
    
30. #==============================================================================
    
31. # ■ String
    
32. #------------------------------------------------------------------------------
    
33. # 　字符串类。可处理任意长度的字节串。 （追加编码转换的定义）
    
34. #==============================================================================
    
35. 
    
36. class String
    
37.   #--------------------------------------------------------------------------
    
38.   # ● 用来编码Ruby 字符串、解码unicode 的两个Windows API 函数
    
39.   #--------------------------------------------------------------------------
    
40.   @@MultiByteToWideChar = Win32API.new("kernel32", "MultiByteToWideChar", ['I', 'L', 'P', 'I', 'P', 'I'], 'I')
    
41.   @@WideCharToMultiByte = Win32API.new("kernel32", "WideCharToMultiByte", ['I', 'L', 'P', 'I', 'P', 'I', 'P', 'P'], 'I')
    
42.   #--------------------------------------------------------------------------
    
43.   # ● 返回将Ruby UTF-8 字符串对象（本身）编码为unicode 后的字符串
    
44.   #--------------------------------------------------------------------------
    
45.   def to_unicode
    
46.     len = @@MultiByteToWideChar.call(65001, 0, self, -1, 0, 0) << 1
    
47.     buf =" " * len
    
48.     # 65001: UTF-8 字符集编码（代码页）
    
49.     @@MultiByteToWideChar.call(65001, 0, self, -1, buf, len)
    
50.     return buf
    
51.   end
    
52.   #--------------------------------------------------------------------------
    
53.   # ● 返回将编码为unicode 的字符串对象（本身）解码为UTF-8 后的字符串
    
54.   #--------------------------------------------------------------------------
    
55.   def to_UTF8
    
56.     len = @@WideCharToMultiByte.call(65001, 0, self, -1, 0, 0, 0, 0)
    
57.     buf =" " * len
    
58.     @@WideCharToMultiByte.call(65001, 0, self, -1, buf, len, 0, 0)
    
59.     # 去掉'\0' 字符串结束符（因为转换之后仅仅用于Ruby 字符串）
    
60.     buf.slice!(-1, 1)
    
61.     return buf
    
62.   end
    
63. end
    
64. 
    
65. #============================================================================
    
66. #
    
67. # 检索RTP
    
68. #
    
69. #============================================================================
    
70. 
    
71.   #必要的API
    
72. 
    
73.   RegOpenKeyEx = Win32API.new('advapi32', 'RegOpenKeyEx', 'lpiip', 'l')
    
74.   RegQueryValueEx = Win32API.new('advapi32', 'RegQueryValueExW', 'lppppp', 'l')
    
75.   RegCloseKey = Win32API.new('advapi32', 'RegCloseKey', 'l', 'l')
    
76. 
    
77.   #寻找RTP (XP = RMXP，VX = RMVX）
    
78.   
    
79.   def findRTPs(value,*args)
    
80.     rtpexist = false
    
81.     hKey = '    '
    
82.     case value
    
83.      when "RMXP"
    
84.       RegOpenKeyEx.call(-2147483646, 'SOFTWARE\Enterbrain\RGSS\RTP', 0, 0x20019 | 0x0200, hKey)
    
85.      when "RMVX"
    
86.       RegOpenKeyEx.call(-2147483646, 'SOFTWARE\Enterbrain\RGSS2\RTP', 0, 0x20019 | 0x0200, hKey)
    
87.      end
    
88.     hKey = hKey.unpack('l')[0]
    
89.     for rtp in args
    
90.       data, cbData = '    ' * 32, [128].pack('l')
    
91.       RegQueryValueEx.call(hKey, rtp.to_unicode, 0, 0, data, cbData)
    
92.       rtpexist = (data == '    ' * 32) ? false : true
    
93.     end
    
94.     RegCloseKey.call(hKey)
    
95.     return rtpexist
    
96.   end
    
97. 
    
98. #============================================================================
    
99. #
    
100. #  定义模块
     
101. #
     
102. #============================================================================
     
103. module FAY
     
104.   
     
105. #必要的API
     
106. 
     
107. GetCommandLine = Win32API.new("kernel32.dll", "GetCommandLine","v","p")
     
108. Readini = Win32API.new('kernel32.dll', 'GetPrivateProfileStringA', %w(p p p p l p),'l')
     
109.   
     
110. #获取命令行和文件名
     
111. 
     
112. @uw = File.basename(GetCommandLine.call()).gsub(/(.*)\"(.*)/){$1+$2}
     
113. 
     
114. #读取测试状态
     
115. 
     
116. @test = @uw.split()[1].nil? ? "null" : @uw.split()[1]
     
117. 
     
118. #生成ini文件名
     
119. 
     
120. @ini_name = @uw.split(".")[0] + ".ini"
     
121. 
     
122. #从ini读取RGSSdll和RTP名称
     
123. 
     
124. @library = "\0" * 256
     
125. Readini.call('Game','Library','',@library,255,".\\"+@ini_name)
     
126. @library.delete!("\0")
     
127. @rtp = "\0" * 256
     
128. Readini.call('Game','RTP','',@rtp,255,".\\"+@ini_name)
     
129. @rtp.delete!("\0")
     
130. @rtp1 = "\0" * 256
     
131. Readini.call('Game','RTP1','',@rtp1,255,".\\"+@ini_name)
     
132. @rtp1.delete!("\0")
     
133. @rtp2 = "\0" * 256
     
134. Readini.call('Game','RTP2','',@rtp2,255,".\\"+@ini_name)
     
135. @rtp2.delete!("\0")
     
136. @rtp3 = "\0" * 256
     
137. Readini.call('Game','RTP3','',@rtp3,255,".\\"+@ini_name)
     
138. @rtp3.delete!("\0")
     
139. 
     
140. #获取文件参数
     
141. 
     
142. @ver = (@library.split("RGSS")[1]).split(".")[0]
     
143. verlist = {"J"=>"Japan","E"=>"English"}
     
144. oslist = {"1"=>"RMXP","2"=>"RMVX"}
     
145. PLATFORM = oslist[@ver[0,1]] ? oslist[@ver[0,1]] : (@ver[/RGE/] ? "RGE": "OTHER")
     
146. PLATFORM_VER = @ver.insert(1, ".")[0,4]
     
147. DLL_LANGUAGE = verlist[@ver[-1,1]] ? verlist[@ver[-1,1]] : (@ver[/RGE/] ? "Japan" : "UNKNOWN")
     
148. 
     
149. #获取RTP是否脱离
     
150. 
     
151. if PLATFORM == "RMXP"
     
152.   NO_RTP = (@rtp1 == "" and @rtp2 == "" and @rtp3 == "") ? "YES" : "NO"
     
153. else
     
154.   if PLATFORM == "RMVX"
     
155.   NO_RTP = @rtp == "" ? "YES" : "NO"
     
156.   else
     
157.   NO_RTP = "NONEED"
     
158.   end
     
159. end
     
160. 
     
161. #测试模式
     
162. 
     
163. TESTMODE = ((@test.split == ["test"] or @test.split == ["debug"])) ? "ON" : "OFF"
     
164. 
     
165. #RGSS版本
     
166. 
     
167. RGSS_VER = KEY ? "RGSS2" : (Module.constants.include?('RGE') ? "RGE" : "RGSS")
     
168. 
     
169. #RTP检测
     
170. 
     
171. @rtp_name = "Standard" if PLATFORM == "RMXP"
     
172. @rtp_name = "RPGVX" if PLATFORM == "RMVX"
     
173. 
     
174. if PLATFORM == "RMXP" or PLATFORM == "RMVX"
     
175. DEF_RTP_EXIST = findRTPs(PLATFORM,@rtp_name) ? "YES" : "NO"
     
176. else
     
177. DEF_RTP_EXIST = "NONEED"
     
178. end
     
179. end
     

复制代码

可以用以下脚本测试常量：

1. 
   
2. p "PLATFORM = " + FAY::PLATFORM,"PLATFORM_VER = " + FAY::PLATFORM_VER,"DLL_LANGUAGE = " +
   
3. FAY::DLL_LANGUAGE,"TESTMODE = " + FAY::TESTMODE,"RGSS_VER = " + FAY::RGSS_VER, "NO_RTP = " +
   
4. FAY::NO_RTP,"DEF_RTP_EXIST = " + FAY::DEF_RTP_EXIST
   

复制代码

Wind2010

只用XP1.02的压力山大

精灵使者

这个脚本本来就是为了让XP和VX能兼容的脚本而准备的。
也想用这个解决1.02和1.03之间的小摩擦= =
求问题：
一个完整的绝对路径如何将后面的函数名和参数提出来？

精灵使者 发表于 2011-7-28 19:18
这个脚本本来就是为了让XP和VX能兼容的脚本而准备的。
也想用这个解决1.02和1.03之间的小摩擦= =
求问题：

获得的路径是一个字符串
用/分割
取数组的【-1】

fux2

精灵使者 发表于 2011-7-28 19:18
这个脚本本来就是为了让XP和VX能兼容的脚本而准备的。
也想用这个解决1.02和1.03之间的小摩擦= =
求问题：

绝对路径哪来的参数?

另外附一份邪恶物

游客，本帖隐藏的内容需要积分高于 99999 才可浏览，您当前积分为 0

精灵使者

更新到v1.01，感谢大家~