RGSS1实用"扩展库"

沙漠点灰

清单
1.[方便] 随机播放BGM
2.[扩展] 获取mp3文件时间长度 (有bug  ←等于没说)
3.[扩展] Graphics块 模仿 RGSS2部分功能
4.[扩展] Bitmap类   模仿 RGSS2部分功能
5.[美化] 真 窗口移动
6.[美化] 伪 窗口移动
7.[扩展] 子选项窗口(http://rpg.blue/thread-174280-1-1.html)

脚本如下:
1+2 :

1. #==============================================================================
   
2. # ■ Audio
   
3. #------------------------------------------------------------------------------
   
4. # 　随机播放BGM   
   
5. #   Audio/BGM/下的文件,RTP什么的不会读...因为涉及到注册表什么的
   
6. #   可以读取 C:/Program Files/RPG Maker XP/RGSS/Standard/ 的东西
   
7. #        我能做的只有这些了,高手来解决吧
   
8. #==============================================================================
   
9. def Audio.random_bgm_play
   
10.   # 查找根目录下的BGM文件
    
11.   list = Dir["Audio/BGM/*"]
    
12.   list = list[rand(list.size)]
    
13.   v = Game_System.method_defined?("bgm_v") ? $game_system.bgm_v : 80 rescue return
    
14.   unless list
    
15.     # 根目录下没有BGM时,试图找C:/Program Files/RPG Maker XP/RGSS/Standard/下的文件
    
16.     old_dir = Dir.pwd
    
17.     Dir.chdir("C:/Program Files/RPG Maker XP/RGSS/Standard/") rescue return Dir.chdir(old_dir)
    
18.     list = Dir["Audio/BGM/*"]
    
19.     list = list[rand(list.size)]
    
20.     Dir.chdir(old_dir)
    
21.   end
    
22.   # 试图失败时,直接返回
    
23.   return unless list
    
24.   self.bgm_play(list, v, 100)
    
25.   # $game_system 为空时,直接返回
    
26.   return unless $game_system
    
27.   # 获取文件名,省事,
    
28.   $game_system.playing_bgm = RPG::AudioFile.new(File.basename(list),v,100)
    
29. end
    
30. class Game_System
    
31.   def playing_bgm=(bgm)
    
32.     @playing_bgm = bgm
    
33.   end
    
34. end
    
35. #--------------------------------------------------------------------------
    
36. # ● 　获取mp3文件时间长度
    
37. #--------------------------------------------------------------------------
    
38. def Audio.mp3_length(name)
    
39.   @play ||= Win32API.new('winmm.dll', 'mciSendString',%(p p l l), 'l')
    
40.   old_dir = Dir.pwd
    
41.   Dir.chdir("Audio/BGM/")
    
42.   name += ".mp3" if File.extname(name) == ""
    
43.   length = " " * 10
    
44.   File.rename(name, "temp.mp3")
    
45.   @play.call("status temp.mp3 length", length, 512, 0)
    
46.   File.rename("temp.mp3", name)
    
47.   Dir.chdir(old_dir)
    
48.   return length.to_i
    
49. end

复制代码

使用方法 脚本置顶
1.Audio.random_bgm_play
2.Audio.mp3_length(name)   name = mp3文件名

3:

1. #==============================================================================
   
2. # ■ Graphics
   
3. #------------------------------------------------------------------------------
   
4. # 　图像模块
   
5. #==============================================================================
   
6. 
   
7. #--------------------------------------------------------------------------
   
8. # ● 更待指定帧数
   
9. #--------------------------------------------------------------------------
   
10. def Graphics.wait(n)
    
11.   n.times{self.update;yield if defined? yield}
    
12. end
    
13. #--------------------------------------------------------------------------
    
14. # ● 获取窗口宽
    
15. #--------------------------------------------------------------------------
    
16. def Graphics.width
    
17.   @width ||= 640
    
18. end
    
19. #--------------------------------------------------------------------------
    
20. # ● 获取窗口高
    
21. #--------------------------------------------------------------------------
    
22. def Graphics.height
    
23.   @height ||= 480
    
24. end
    
25. #--------------------------------------------------------------------------
    
26. # ● 更改窗口大小
    
27. #--------------------------------------------------------------------------
    
28. def Graphics.resize_screen(width, height)
    
29.   @width  ||= 640
    
30.   @height ||= 480
    
31.   
    
32.   游戏ini名=".\\Game.ini"
    
33.   val = "\0"*256
    
34.   gps = Win32API.new('kernel32', 'GetPrivateProfileString','pppplp', 'l')
    
35.   gps.call("Game", "Title", "", val, 256, 游戏ini名)
    
36.   val.delete!("\0")
    
37.   title = val
    
38.   fw = Win32API.new('user32', 'FindWindow', 'pp', 'i')
    
39.   hWnd = fw.call("RGSS Player", title)
    
40.   swp = Win32API.new('user32', 'SetWindowPos', 'lliiiii', 'i')
    
41.   
    
42.   pointwds = [0,0,0,0].pack('llll')
    
43.   pointcet = [0, 0].pack('ll')
    
44. 
    
45.   wdsrect = Win32API.new('user32.dll', 'GetWindowRect', 'lp', 'l')
    
46.   client_screen = Win32API.new("user32", "ClientToScreen", 'ip', 'i')
    
47.   
    
48.   wdsrect.call(hWnd,pointwds)
    
49.   client_screen.call(hWnd, pointcet)
    
50. 
    
51.   wds = pointwds.unpack('llll')
    
52.   cet = pointcet.unpack('ll')
    
53. 
    
54.   addw =  wds[2] - wds[0] - @width
    
55.   addh =  wds[3] - wds[1] - @height
    
56. 
    
57.   x = wds[0] - (width - @width) / 2
    
58.   y = wds[1] - (height - @height) / 2
    
59.   
    
60.   @width  = width
    
61.   @height = height
    
62.   
    
63.   swp.call(hWnd, 0, x, y, @width + addw, @height + addh, 0x20)
    
64. end

复制代码

模仿RGSS2清单:
1.等待指定帧数
Graphics.wait(n)
n = 帧数

加上了扩展(代码块)
Graphics.wait(n){...}

比如向左移动一窗口55像素
原来是:
55.times{Graphics.update;窗口.x -= 1}
现在
Graphics.wait(55){窗口.x -= 1}
(好像没区别...?)

2.更改窗口大小
Graphics.resize_screen(width, height)
width = 宽   height 高

3+4：获取窗口宽 高
Graphics.width   Graphics.height

4：(原    ——by 猫哥哥  改    ——by 沙漠.灰(未经过原作者同意，请见谅))

1. #==============================================================================
   
2. # ■ Bitmap
   
3. #------------------------------------------------------------------------------
   
4. # 　  位图类    RGSS扩充
   
5. #                  原    ——by 猫哥哥
   
6. #                  改    ——by 沙漠.灰         
   
7. #=============================================================================#
   
8. 
   
9. class Bitmap
   
10.   #--------------------------------------------------------------------------
    
11.   # ● 渐进色彩填充
    
12.   #    vertical : 横（竖）填充
    
13.   #--------------------------------------------------------------------------
    
14.   def gradient_fill_rect(x,y,width,height=false,color1=255,color2=nil,vertical=false,opacity=255)
    
15.     # 矩形判断
    
16.     if x.is_a?(Rect)
    
17.       s1,s2,s3,s4=x.x,x.y,x.width,x.height
    
18.       return self.gradient_fill_rect(s1,s2,s3,s4,y,width,height,color1)
    
19.     end
    
20.     # 渐进步长(step)判断
    
21.     vertical == false ? step = width - x : step = height - y;color = color1;color.alpha = opacity
    
22.     # 渐进_红
    
23.     key_re = Math.sqrt(((color2.red   - color1.red  )/step)**2)
    
24.     # 渐进_绿
    
25.     key_gr = Math.sqrt(((color2.green - color1.green)/step)**2)
    
26.     # 渐进_蓝
    
27.     key_bl = Math.sqrt(((color2.blue  - color1.blue )/step)**2)
    
28.     # 反渐进方向判断
    
29.     key_re *= -1 if color2.red  < color1.red
    
30.     key_gr *= -1 if color2.green< color1.green
    
31.     key_bl *= -1 if color2.blue < color1.blue
    
32.     # 横（竖）填充
    
33.     if vertical
    
34.         (height-y).times{
    
35.           self.fill_rect(x, y, width, 1, color)
    
36.           y=y+1;color.red =color.red + key_re
    
37.           color.green =color.green + key_gr;color.blue =color.blue + key_bl
    
38.          }
    
39.     else
    
40.       (width-x).times{
    
41.           self.fill_rect(x, y, 1, height, color)
    
42.           x=x+1;color.red =color.red + key_re
    
43.           color.green =color.green + key_gr;color.blue =color.blue + key_bl
    
44.       }
    
45.     end
    
46.   end
    
47.   #--------------------------------------------------------------------------
    
48.   # ● 清除位图指定地方
    
49.   #--------------------------------------------------------------------------   
    
50.   def clear_rect(x, y=0,width=0,height=0)
    
51.     # 矩形判断
    
52.     if x.is_a?(Rect)
    
53.       self.fill_rect(x,Color.new(0,0,0,0))
    
54.     else
    
55.       self.fill_rect(x, y, width, height, Color.new(0,0,0,0))
    
56.     end
    
57.   end
    
58.   #--------------------------------------------------------------------------
    
59.   # ● 位图重叠模糊（壳）
    
60.   #--------------------------------------------------------------------------
    
61.   def fragment_bluring(blur=4,during=3)
    
62.     for i in 1..blur
    
63.       self.fragment_blur(i)
    
64.       self.blt(0, 0, self, self.rect)
    
65.       during.times{Graphics.update}   
    
66.     end
    
67.   end
    
68.   #--------------------------------------------------------------------------
    
69.   # ● 模糊算法(壳)
    
70.   #     times      重做模糊次数
    
71.   #     during     经历帧数
    
72.   #     blur       分散半径
    
73.   #--------------------------------------------------------------------------   
    
74.   def blur(times=1,during =1,blur=1)
    
75.     times.times{blur_r(blur);during.times{Graphics.update if during >1}}
    
76.   end
    
77.   #--------------------------------------------------------------------------
    
78.   # ● 玻璃(半透明)渐进填充
    
79.   #    vertical   横（竖）渐进
    
80.   #--------------------------------------------------------------------------   
    
81.   def glass_fill_rect(x, y=nil,width=nil,height=false,color1=nil,color2=nil,vertical=false)
    
82.     # 矩形判断
    
83.     if x.is_a?(Rect)
    
84.       s1,s2,s3,s4=x.x,x.y,x.width,x.height
    
85.       return self.glass_fill_rect(s1,s2,s3,s4,y,width,height)
    
86.     end
    
87.     # 生成临时位图
    
88.     a1 = Bitmap.new(width, height);a2 = Bitmap.new(width, height)
    
89.     # 并填充
    
90.     a1.fill_rect(x, y, width, height, color1);a2.fill_rect(x, y, width, height, color2)
    
91.     # 横（竖）渐进
    
92.     unless vertical
    
93.       key =[[255.0/(width - x),255.0].min,1.0].min
    
94.       src_rect = Rect.new(x,y,1,height);k = x
    
95.       for i in x..width
    
96.         self.blt(x, y, a1, src_rect, (width-i)*key)
    
97.         self.blt(x, y, a2, src_rect, (i-k)*key)
    
98.         x += 1
    
99.       end
    
100.     else
     
101.       key =[[255.0/(height - x),255.0].min,1.0].min
     
102.       src_rect = Rect.new(x,y,width,1);k = y
     
103.       for i in y..height
     
104.         self.blt(x, y, a1, src_rect, (height-i)*key)
     
105.         self.blt(x, y, a2, src_rect, (i-k)*key)
     
106.         y += 1
     
107.       end
     
108.     end
     
109.     # 释放临时位图
     
110.     a1.dispose;a2.dispose
     
111.   end
     
112.   # 以下方法私有化
     
113.   private
     
114.   #--------------------------------------------------------------------------
     
115.   # ● 位图重叠模糊(执行)
     
116.   #--------------------------------------------------------------------------  
     
117.   def fragment_blur(radius=6)
     
118.     src_bitmap = self;rect = self.rect;key = 255/7
     
119.     self.blt(0,0,src_bitmap,rect,key*4)
     
120.     self.blt(0,-radius,src_bitmap,rect,key*2)
     
121.     self.blt(radius,0,src_bitmap,rect,key*2)
     
122.     self.blt(-radius,0,src_bitmap,rect,key*2)
     
123.     self.blt(0,radius,src_bitmap,rect,key*2)
     
124.     self.blt(radius,-radius,src_bitmap,rect,key*1)
     
125.     self.blt(-radius,radius,src_bitmap,rect,key*1)
     
126.     self.blt(-radius,-radius,src_bitmap,rect,key*1)
     
127.     self.blt(radius,radius,src_bitmap,rect,key*1)
     
128.   end
     
129.   #--------------------------------------------------------------------------
     
130.   # ● 模糊算法(执行)
     
131.   #      radius          分散半径
     
132.   #      p.s. 写得好乱...和我有的一拼,不过好多废代码....
     
133.   #--------------------------------------------------------------------------  
     
134.   def blur_r(radius = 2)
     
135.     # 分散半径值修正
     
136.     radius = [radius,1].max
     
137.     src_bitmap = self
     
138.     rect = self.rect
     
139.    
     
140.     ta_l = 1+radius*2
     
141.     ta = Table.new(ta_l,ta_l)  #过滤器
     
142.    
     
143.     ta_l.times{|i|ta_l.times{|j|ta[i,j] = 1}}
     
144.     ta[((ta.xsize+1)/2)-1,((ta.xsize+1)/2)-1] = 2**(1+radius)
     
145.     main = ta[((ta.xsize+1)/2)-1,((ta.xsize+1)/2)-1]#找到中心点
     
146.     nn = 2;j = ((ta.xsize+1)/2)-1;line =[]#主干道
     
147.    
     
148.     for i in 0..((ta.xsize+1)/2)-2
     
149.       ta[i,j] = nn
     
150.       ta[j,i] = nn
     
151.       ta[ta.xsize-1-i,j] = nn
     
152.       ta[j,ta.xsize-1-i] = nn
     
153.       line.push ta[i,((ta.xsize+1)/2)-1]
     
154.       nn *= 2
     
155.     end
     
156.    
     
157.     for j in 0...line.size
     
158.        for i in 0..((ta.xsize+1)/2)-2
     
159.         line[j] = line[j]/2
     
160.         break if line[j] == 1
     
161.         ta[((ta.xsize+1)/2)-2-i ,j           ] = line[j]
     
162.         ta[((ta.xsize+1)/2)+i   ,j           ] = line[j]
     
163.         ta[((ta.xsize+1)/2)-2-i ,ta.xsize-1-j] = line[j]
     
164.         ta[((ta.xsize+1)/2)+i   ,ta.xsize-1-j] = line[j]
     
165.       end
     
166.     end
     
167.    
     
168.     key_a = [];key_p = main
     
169.     for i in 1..main
     
170.       if key_p == 1
     
171.         key_a << main
     
172.         break
     
173.       else
     
174.       key_p /= 2
     
175.       key_a << key_p
     
176.       end
     
177.     end
     
178.     key_k = 0
     
179.     for i in 0...key_a.size
     
180.       key_k += key_a[i]
     
181.     end
     
182.     key = [255.0/key_k,1].max
     
183.     for i in 0...ta.xsize
     
184.       for j in 0...ta.ysize
     
185.         # 值的修正
     
186.         key_main = [[key*ta[i,j],255].min,1].max
     
187.         self.blt(i-(((ta.xsize+1)/2)-1),j-(((ta.xsize+1)/2)-1),self,rect,key_main)
     
188.       end
     
189.     end
     
190.   end
     
191. 
     
192. end  
     

复制代码

清单 ：
1.渐进色彩填充
参考RMVX Help

2.清除位图指定地方
同上

3.位图重叠模糊(不知道名字对不对...)
位图.fragment_bluring
参考 模糊算法

4.模糊算法
参考RMVX Help

5.玻璃(半透明)渐进填充
位图.glass_fill_rect(XXXXXXXXXXXXXXXX)
参考 渐进色彩填充

五.

1. #==============================================================================
   
2. # ■ Window
   
3. #------------------------------------------------------------------------------
   
4. # 　游戏中全部窗口的超级类。
   
5. #==============================================================================
   
6. 
   
7. class Window
   
8.   #--------------------------------------------------------------------------
   
9.   # ● X 坐标
   
10.   #--------------------------------------------------------------------------
    
11.   alias isa_dust_x x
    
12.   def x
    
13.     @true_x ||= self.isa_dust_x.to_f
    
14.     return @true_x
    
15.   end
    
16.   alias isa_dust_x= x=
    
17.   def x=(new_x)
    
18.     @true_x = new_x.to_f
    
19.     self.isa_dust_x = @true_x
    
20.   end
    
21.   #--------------------------------------------------------------------------
    
22.   # ● Y 坐标
    
23.   #--------------------------------------------------------------------------
    
24.   alias isa_dust_y y
    
25.   def y
    
26.     @true_y ||= self.isa_dust_y.to_f
    
27.     return @true_y
    
28.   end
    
29.   alias isa_dust_y= y=
    
30.   def y=(new_y)
    
31.     @true_y = new_y.to_f
    
32.     self.isa_dust_y = @true_y
    
33.   end
    
34. end
    

复制代码

上面代码置顶

1. #==============================================================================
   
2. # ■ Window_Base
   
3. #------------------------------------------------------------------------------
   
4. # 　游戏中全部窗口的超级类。
   
5. #==============================================================================
   
6. 
   
7. class Window_Base < Window
   
8.   #--------------------------------------------------------------------------
   
9.   # ● 初始化
   
10.   #--------------------------------------------------------------------------
    
11.   alias isa_dust_initialize initialize
    
12.   def initialize(*a)
    
13.     isa_dust_initialize(*a)
    
14.     @move_count = 0
    
15.     @move_to_x  = 0
    
16.     @move_to_y  = 0
    
17.   end
    
18.   #--------------------------------------------------------------------------
    
19.   # ● 真 移动
    
20.   #--------------------------------------------------------------------------
    
21.   def move_to(x,y,count)
    
22.     @move_to_x = x
    
23.     @move_to_y = y
    
24.     @move_count= count
    
25.   end
    
26.   #--------------------------------------------------------------------------
    
27.   # ● 刷新
    
28.   #--------------------------------------------------------------------------
    
29.   alias isa_dust_update update
    
30.   def update
    
31.     isa_dust_update
    
32.     # 移动完毕时，直接返回
    
33.     return if @move_count <= 0
    
34.     self.x += (@move_to_x - self.x)/@move_count.to_f
    
35.     self.y += (@move_to_y - self.y)/@move_count.to_f
    
36.     @move_count -= 1
    
37.   end
    
38. end

复制代码

上面代码插到Main前Window_Base后

用法:
窗口.move_to(x坐标,y坐标,帧数)
注.必须调用update方法，帧数(默认)40帧1秒(不同于事件的图片移动)

例:(用上面的等待指定帧数)

窗口.move_to(600,0,100)
Graphics.wait(100){窗口.update}

100帧让叫窗口的窗口对象移动到 600,0 处

六.代码如下

1. class Window_Base < Window
   
2.   #--------------------------------------------------------------------------
   
3.   # ● 伪 移动
   
4.   #--------------------------------------------------------------------------
   
5.   def not_really_move(d="right")
   
6.     d == "right" ? d = 1 : d = -1
   
7.     self.x        += d * 5
   
8.     self.ox       += d * 5
   
9.     self.width    -= d * 5
   
10.     self.opacity  += d * 15
    
11.     self.contents_opacity += d * 15
    
12.   end
    
13. end

复制代码

这个是纯美化功能，动态淡出淡入
一般先初始化(必须是17)
17.times{@folder_window.not_really_move("left ")}
Graphics.wait(17){@folder_window.not_really_move("right")}

场景最后释放前
Graphics.wait(17){@folder_window.not_really_move("left ")}

具体例子见:http://rpg.blue/thread-174282-1-1.html

七.略

打字好辛苦~~

禾西

其實用RGSS2來模仿RGSS1比相反更方便

忧雪の伤

渐进色彩填充……
血槽有望了……