滚动字幕

木葬枫

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

到底该怎么用？

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

复制代码

---

版务信息：本贴由楼主自主结贴～

雪流星

把tit.png放在Picture文件夹下
在#这里输入字幕内容
输入字幕内容

调用脚本$scene = Scene_Credit.new

木葬枫

以下引用snstar2006于2008-8-27 11:25:59的发言：

把tit.png放在Picture文件夹下
在#这里输入字幕内容
输入字幕内容

调用脚本$scene = Scene_Credit.new

我做了之后光显示图片没有出来字啊·······
脚本那里应经打了些字了啊···

drgdrg

在Graphics——Pictures下面放图片

然后用事件触发 $scene = Scene_Credit.new


比如这样

http://rpg.blue/upload_program/files/滚动字幕_100265705.rar

---

系统信息：本贴由楼主认可为正确答案，66RPG感谢您的热情解答～

木葬枫

以下引用drgdrg于2008-8-27 11:33:38的发言：

在Graphics——Pictures下面放图片

然后用事件触发 $scene = Scene_Credit.new

我有调用
之后光显示图片没有出来字啊·······
脚本那里已经打了些字了啊···
难道打字需要些什么规格之类的？

drgdrg

写的位置对吗？

class Scene_Credit
  CREDIT=<<_END_
#这里输入字幕内容
我写
我写
我使劲写
_END_
end

雪流星

我用的时候很成功啊....

http://rpg.blue/upload_program/files/Project2_100267617.rar

木葬枫

以下引用snstar2006于2008-8-27 12:07:08的发言：

我用的时候很成功啊....

http://rpg.blue/upload_program/files/Project2_100267617.rar

谢谢·······
手太快····本来想一人一半的······
对不起对不起·······

雪流星

呵呵呵～～～没关系，这样我才有理由扣分
大大的扣分

做版主就是这个时候最有乐趣
呵呵呵呵呵呵........

木葬枫

以下引用snstar2006于2008-8-27 12:43:52的发言：

呵呵呵～～～没关系，这样我才有理由扣分
大大的扣分

做版主就是这个时候最有乐趣
呵呵呵呵呵呵........

哎····
版主拥有这么邪恶的权利真好·······