滚动字幕(从XP移植)

CIS狂人

调试好的^使用时候用一个640*480的TIT.PNG放在下面.不用多说了吧.

1. #——使用注意：默认会返回地图，如果需要返回开头，请将本脚本中的
   
2. #return_scene = Scene_Map.new改为return_scene = Scene_Title.new
   
3. 
   
4. class Scene_Credit
   
5.   CREDIT=<<_END_
   
6. #这里输入字幕内容
   
7. 
   
8. _END_
   
9. end
   
10. 
    
11. class Scene_Credit
    
12. 
    
13.   def initialize(return_scene = nil)
    
14.     @sprite = Sprite.new
    
15.     @sprite.bitmap = Bitmap.new("Graphics/Pictures/tit")
    
16.     @sprite.x = 0
    
17.     @sprite.y = 0
    
18.     if return_scene.nil?
    
19.       return_scene = Scene_Title.new
    
20.     end
    
21.     @return_scene = return_scene
    
22.   end
    
23.   
    
24.   def scene_start
    
25.     credit_lines = CREDIT.split(/\n/)
    
26.     credit_bitmap = Bitmap.new(576,32 * credit_lines.size)
    
27.     credit_lines.each_index do |i|
    
28.       line = credit_lines[i]
    
29.       credit_bitmap.draw_text(0,i * 32,576,32,line,1)
    
30.     end
    
31.     @credit_sprite = Sprite.new(Viewport.new(0,50,576,432))
    
32.     @credit_sprite.bitmap = credit_bitmap
    
33.     @credit_sprite.oy = -430
    
34.     @frame_index = 0
    
35.     @last_flag = false
    
36.   end
    
37. 
    
38.   def scene_end
    
39.     @credit_sprite.dispose
    
40.     @sprite.dispose
    
41.   end
    
42.   
    
43.   def last?
    
44.     return (@frame_index >= @credit_sprite.bitmap.height + 320)
    
45.   end
    
46.   
    
47.   def last
    
48.     if not @last_flag
    
49.       Audio.bgm_fade(10000)
    
50.       @last_flag = true
    
51.       @last_count = 0
    
52.     else
    
53.       @last_count += 1
    
54.     end
    
55.     if @last_count >= 300
    
56.       $scene = @return_scene
    
57.     end
    
58.   end
    
59.   
    
60.   def update
    
61.     @frame_index += 1
    
62.     return if cancel?
    
63.     last if last?
    
64.     @credit_sprite.oy += 1
    
65.   end
    
66. 
    
67.   def cancel?
    
68.     if Input.trigger?(Input::B)
    
69.       $scene = @return_scene
    
70.       return true
    
71.     end
    
72.     return false
    
73.   end
    
74. 
    
75.   def main
    
76.     scene_start
    
77.     # 过渡
    
78.     Graphics.transition
    
79.     # 主循环
    
80.     loop do
    
81.       Graphics.update
    
82.       Input.update
    
83.       update
    
84.       if $scene != self
    
85.         break
    
86.       end
    
87.     end
    
88.     # 准备过渡
    
89.     Graphics.freeze
    
90.     scene_end
    
91.   end
    
92. end

复制代码

640*480的脚本
- -汗那...针对640*480脚本的才在这里

1. 
   
2. #——使用注意：默认会返回地图，如果需要返回开头，请将本脚本中的
   
3. #return_scene = Scene_Map.new改为return_scene = Scene_Title.new
   
4. 
   
5. class Scene_Credit
   
6.   CREDIT=<<_END_
   
7. #输入内容
   
8. 
   
9. _END_
   
10. end
    
11. 
    
12. class Scene_Credit
    
13. 
    
14.   def initialize(return_scene = nil)
    
15.     @sprite = Sprite.new
    
16.     @sprite.bitmap = Bitmap.new("Graphics/Pictures/tit")
    
17.     @sprite.x = 0
    
18.     @sprite.y = 0
    
19.     if return_scene.nil?
    
20.       return_scene = Scene_Map.new
    
21.     end
    
22.     @return_scene = return_scene
    
23.   end
    
24.   
    
25.   def scene_start
    
26.     credit_lines = CREDIT.split(/\n/)
    
27.     credit_bitmap = Bitmap.new(640,32 * credit_lines.size)
    
28.     credit_lines.each_index do |i|
    
29.       line = credit_lines[i]
    
30.       credit_bitmap.draw_text(0,i * 32,640,32,line,1)
    
31.     end
    
32.     @credit_sprite = Sprite.new(Viewport.new(0,50,640,480))
    
33.     @credit_sprite.bitmap = credit_bitmap
    
34.     @credit_sprite.oy = -430
    
35.     @frame_index = 0
    
36.     @last_flag = false
    
37.   end
    
38. 
    
39.   def scene_end
    
40.     @credit_sprite.dispose
    
41.     @sprite.dispose
    
42.   end
    
43.   
    
44.   def last?
    
45.     return (@frame_index >= @credit_sprite.bitmap.height + 320)
    
46.   end
    
47.   
    
48.   def last
    
49.     if not @last_flag
    
50.       Audio.bgm_fade(10000)
    
51.       @last_flag = true
    
52.       @last_count = 0
    
53.     else
    
54.       @last_count += 1
    
55.     end
    
56.     if @last_count >= 300
    
57.       $scene = @return_scene
    
58.     end
    
59.   end
    
60.   
    
61.   def update
    
62.     @frame_index += 1
    
63.     return if cancel?
    
64.     last if last?
    
65.     @credit_sprite.oy += 1
    
66.   end
    
67. 
    
68.   def cancel?
    
69.     if Input.trigger?(Input::B)
    
70.       $scene = @return_scene
    
71.       return true
    
72.     end
    
73.     return false
    
74.   end
    
75. 
    
76.   def main
    
77.     scene_start
    
78.     # 过渡
    
79.     Graphics.transition
    
80.     # 主循环
    
81.     loop do
    
82.       Graphics.update
    
83.       Input.update
    
84.       update
    
85.       if $scene != self
    
86.         break
    
87.       end
    
88.     end
    
89.     # 准备过渡
    
90.     Graphics.freeze
    
91.     scene_end
    
92.   end
    
93. end
    

复制代码

CIS狂人

怎么没人顶啊?(配合使用640*480脚本可能会好点.)

CIS狂人

还是没人顶..算了..自己顶下.如果有左右不对称可以自己调哈

冰风情火

可怜哦。没人顶。我帮你，。。。。。
不过VX格式不是640*480的

CIS狂人

- -汗那...针对640*480脚本的才在这里

1. #——使用注意：默认会返回地图，如果需要返回开头，请将本脚本中的
   
2. #return_scene = Scene_Map.new改为return_scene = Scene_Title.new
   
3. 
   
4. class Scene_Credit
   
5.   CREDIT=<<_END_
   
6. #输入内容
   
7. 
   
8. _END_
   
9. end
   
10. 
    
11. class Scene_Credit
    
12. 
    
13.   def initialize(return_scene = nil)
    
14.     @sprite = Sprite.new
    
15.     @sprite.bitmap = Bitmap.new("Graphics/Pictures/tit")
    
16.     @sprite.x = 0
    
17.     @sprite.y = 0
    
18.     if return_scene.nil?
    
19.       return_scene = Scene_Map.new
    
20.     end
    
21.     @return_scene = return_scene
    
22.   end
    
23.   
    
24.   def scene_start
    
25.     credit_lines = CREDIT.split(/\n/)
    
26.     credit_bitmap = Bitmap.new(640,32 * credit_lines.size)
    
27.     credit_lines.each_index do |i|
    
28.       line = credit_lines[i]
    
29.       credit_bitmap.draw_text(0,i * 32,640,32,line,1)
    
30.     end
    
31.     @credit_sprite = Sprite.new(Viewport.new(0,50,640,480))
    
32.     @credit_sprite.bitmap = credit_bitmap
    
33.     @credit_sprite.oy = -430
    
34.     @frame_index = 0
    
35.     @last_flag = false
    
36.   end
    
37. 
    
38.   def scene_end
    
39.     @credit_sprite.dispose
    
40.     @sprite.dispose
    
41.   end
    
42.   
    
43.   def last?
    
44.     return (@frame_index >= @credit_sprite.bitmap.height + 320)
    
45.   end
    
46.   
    
47.   def last
    
48.     if not @last_flag
    
49.       Audio.bgm_fade(10000)
    
50.       @last_flag = true
    
51.       @last_count = 0
    
52.     else
    
53.       @last_count += 1
    
54.     end
    
55.     if @last_count >= 300
    
56.       $scene = @return_scene
    
57.     end
    
58.   end
    
59.   
    
60.   def update
    
61.     @frame_index += 1
    
62.     return if cancel?
    
63.     last if last?
    
64.     @credit_sprite.oy += 1
    
65.   end
    
66. 
    
67.   def cancel?
    
68.     if Input.trigger?(Input::B)
    
69.       $scene = @return_scene
    
70.       return true
    
71.     end
    
72.     return false
    
73.   end
    
74. 
    
75.   def main
    
76.     scene_start
    
77.     # 过渡
    
78.     Graphics.transition
    
79.     # 主循环
    
80.     loop do
    
81.       Graphics.update
    
82.       Input.update
    
83.       update
    
84.       if $scene != self
    
85.         break
    
86.       end
    
87.     end
    
88.     # 准备过渡
    
89.     Graphics.freeze
    
90.     scene_end
    
91.   end
    
92. end

复制代码

CIS狂人

贴完了

mieloko

天才呀,各位都是天才呀

CIS狂人

我要抗议..66..为什么不把这个版块放到论坛页面上去..

越前リョーマ

以下引用CIS狂人于2008-2-18 13:47:08的发言：

我要抗议..66..为什么不把这个版块放到论坛页面上去..

是雷子开的……

的确很冷……