[6r教程整理]滚动字幕

最爱南宫煌

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

复制代码

最爱南宫煌

这个把传统的显示、移动图片做字幕的过程给简化了，只要在上面“（字幕）” 的地方写上字幕的内容就行了。

冷剑随风

这貌似是从灵儿续传的工程里提取出来的吧....

BlackFeather

时空1也有……

最爱南宫煌

楼上两位错误！我这是从6R教程整理包里拿出来的，没看题目前面写的什么嘛。

浅景

此贴让我感悟颇深..............恩......完全看不懂................

BlackFeather

其实我想看到原创
BS挖坟的

浅景

原创？下载灵儿续传不就可以了..................

BlackFeather

原创？下载灵儿续传不就可以了..................
浅景 发表于 2011-1-23 15:53

    我是指原创脚本OK！

浅景

回复 9# 白爪子的黑猫


    原创不就是灵儿续传的作者吗？  迷茫........................