关于滚动字幕的脚本

zcr91

有以下脚本，但貌似只能在游戏中使用一个滚动字幕。
能不能做成随用随插的形式？

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

#——————————————————————————————————————
# Scene_Credit 制作人员名单
#——————————————————————————————————————


#——使用注意：默认会返回地图，如果需要返回开头，请将本脚本中的
#return_scene = Scene_Map.new改为return_scene = Scene_Title.new

class Scene_Credit
  CREDIT=<<_END_
-----Cast------

制作工具：RPG Maker XP

先帝创业未半而中道崩殂
今天下三分，益州疲弊
此诚危急存亡之秋也
然侍卫之臣不懈于内，忠志之士忘身于外者
盖追先帝之殊遇，欲报之于陛下也
诚宜开张圣听，以光先帝遗德，恢弘志士之气
不宜妄自菲薄，引喻失义，以塞忠谏之路也

宫中府中，俱为一体，陟罚臧否，不宜异同
若有作奸犯科及为忠善者
宜付有司论其刑赏，以昭陛下平明之理
不宜偏私，使内外异法也。
侍中侍郎郭攸之、费祎、董允等
此皆良实，志虑忠纯，是以先帝简拔以遗陛下
愚以为宫中之事，事无大小，悉以咨之，然后施行
必能裨补阙漏，有所广益。


_END_
end

class Scene_Credit

  def initialize(return_scene = nil)
    if return_scene.nil?
      return_scene = Scene_Map.new
    end
    @return_scene = return_scene
  end
  
  def scene_start
    credit_lines = CREDIT.split(/\n/)
    credit_bitmap = Bitmap.new(640,32 * credit_lines.size)
    credit_lines.each_index do |i|
      line = credit_lines
      credit_bitmap.draw_text(0,i * 32,640,32,line,1)
    end
    @credit_sprite = Sprite.new(Viewport.new(0,50,640,380))
    @credit_sprite.bitmap = credit_bitmap
    @credit_sprite.oy = -430
    @frame_index = 0
    @last_flag = false
  end

  def scene_end
    @credit_sprite.dispose
  end
  
  def last?
    return (@frame_index >= @credit_sprite.bitmap.height + 480)
  end
  
  def last
    if not @last_flag
      Audio.bgm_fade(10000)
      @last_flag = true
      @last_count = 0
    else
      @last_count += 1
    end
    if @last_count >= 300
      $scene = @return_scene
    end
  end
  
  def update
    @frame_index += 1
    return if cancel?
    last if last?
    @credit_sprite.oy += 1
  end

  def cancel?
    if Input.trigger?(Input::B)
      $scene = @return_scene
      return true
    end
    return false
  end

  def main
    scene_start
    # 过渡
    Graphics.transition
    # 主循环
    loop do
      Graphics.update
      Input.update
      update
      if $scene != self
        break
      end
    end
    # 准备过渡
    Graphics.freeze
    scene_end
  end
end

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

zcr91

啊，对了……不知为何使用时会卡……貌似这个脚本用不成的事说

tyrpg

第一部分
很简单的 把脚本改为

1. #==============================================================================
   
2. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
   
3. #==============================================================================
   
4. 
   
5. #——————————————————————————————————————
   
6. # Scene_Credit 制作人员名单
   
7. #——————————————————————————————————————
   
8. 
   
9. 
   
10. #——使用注意：默认会返回地图，如果需要返回开头，请将本脚本中的
    
11. #return_scene = Scene_Map.new改为return_scene = Scene_Title.new
    
12. 
    
13. class Scene_Credit
    
14.   CREDIT=$CREDIT_WZ
    
15. end
    
16. 
    
17. class Scene_Credit
    
18. 
    
19.   def initialize(return_scene = nil)
    
20.     if return_scene.nil?
    
21.       return_scene = Scene_Map.new
    
22.     end
    
23.     @return_scene = return_scene
    
24.   end
    
25.   
    
26.   def scene_start
    
27.     credit_lines = CREDIT.split(/\n/)
    
28.     credit_bitmap = Bitmap.new(640,32 * credit_lines.size)
    
29.     credit_lines.each_index do |i|
    
30.       line = credit_lines
    
31.       credit_bitmap.draw_text(0,i * 32,640,32,line,1)
    
32.     end
    
33.     @credit_sprite = Sprite.new(Viewport.new(0,50,640,380))
    
34.     @credit_sprite.bitmap = credit_bitmap
    
35.     @credit_sprite.oy = -430
    
36.     @frame_index = 0
    
37.     @last_flag = false
    
38.   end
    
39. 
    
40.   def scene_end
    
41.     @credit_sprite.dispose
    
42.   end
    
43.   
    
44.   def last?
    
45.     return (@frame_index >= @credit_sprite.bitmap.height + 480)
    
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
    
94. 
    
95. #==============================================================================
    
96. # 本脚本来自www.66RPG.com，使用和转载请保留此信息
    
97. #==============================================================================

复制代码

tyrpg

第2部分

在创建个脚本位
复制进去：

1. class Scene_wenzidingyi
   
2. #1号字幕
   
3. if $zmwzdy = 1
   
4. $CREDIT_WZ=<<_END_
   
5. 这里输入你要的内容
   
6. _END_
   
7. end
   
8. #2号字幕
   
9. if $zmwzdy = 2
   
10. $CREDIT_WZ=<<_END_
    
11. 这里输入你要的内容
    
12. _END_
    
13. end
    
14. $scene = Scene_map.new
    
15. end
    

复制代码

如果还要设置第3字幕
只需在倒数第2行前插入

1. #3号字幕
   
2. if $zmwzdy = 3
   
3. $CREDIT_WZ=<<_END_
   
4. 这里输入你要的内容
   
5. _END_
   
6. end

复制代码

如果还要设置第4字幕 就在倒数第2行前插入

1. #4号字幕
   
2. if $zmwzdy = 4
   
3. $CREDIT_WZ=<<_END_
   
4. 这里输入你要的内容
   
5. _END_
   
6. end

复制代码

可以发现这些只是第2行的代码不同 根据此规律 爱设置几个字幕就设置几个了

tyrpg

第3部分
下面说调用  例如 我们要调用1号字幕的内容
在事件中就插入 脚本 $zmwzdy = 1
                          脚本 $scene = Scene_wenzidingyi.new
                          脚本 $scene = Scene_Credit.new
这样就可以了
记得给分啊

zcr91

回复 tyrpg 的帖子
谢谢……不过，貌似出错了





   

zcr91

回复 tyrpg 的帖子
谢谢……不过，貌似出错了





   

tyrpg

今天测试了一下 可以很负责任的告诉你 你那脚本本来就是错的

tyrpg

我束手无策了 高人近来指点