如何制作打字效果

runtongye

如题
好像是一个字一个字往外蹦

---

此贴于 2008-9-9 12:45:14 被版主darkten提醒，请楼主看到后对本贴做出回应。

---

此贴于 2008-9-9 21:17:34 被版主光郎提醒，请楼主看到后对本贴做出回应。

---

版务信息：版主帮忙结贴～

迅雷進

苹果梨对话加强脚本
>>> http://rpg.blue/web/htm/news945.htm

---

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

200878242

打字的没有向上滚动得有
脚本如下：使用公共事件调用脚本

1. class Scene_Credit
   
2.   CREDIT=<<_END_
   
3. 说明〈可按下ESC键退出〉：
   
4. ”自己要加的字“               
   
5. 有事Q我
   
6. QQ：200878242
   
7. _END_
   
8. end
   
9. 
   
10. class Scene_Credit
    
11. 
    
12.   def initialize(return_scene = nil)
    
13.     if return_scene.nil?
    
14.       return_scene = Scene_Map.new
    
15.     end
    
16.     @return_scene = return_scene
    
17.   end
    
18.   
    
19.   def scene_start
    
20.     credit_lines = CREDIT.split(/\n/)
    
21.     credit_bitmap = Bitmap.new(640,32 * credit_lines.size)
    
22.     credit_lines.each_index do |i|
    
23.       line = credit_lines[i]
    
24.       credit_bitmap.draw_text(0,i * 32,640,32,line,1)
    
25.     end
    
26.     @credit_sprite = Sprite.new(Viewport.new(0,50,640,380))
    
27.     @credit_sprite.bitmap = credit_bitmap
    
28.     @credit_sprite.oy = -430
    
29.     @frame_index = 0
    
30.     @last_flag = false
    
31.   end
    
32. 
    
33.   def scene_end
    
34.     @credit_sprite.dispose
    
35.   end
    
36.   
    
37.   def last?
    
38.     return (@frame_index >= @credit_sprite.bitmap.height + 480)
    
39.   end
    
40.   
    
41.   def last
    
42.     if not @last_flag
    
43.       Audio.bgm_fade(10000)
    
44.       @last_flag = true
    
45.       @last_count = 0
    
46.     else
    
47.       @last_count += 1
    
48.     end
    
49.     if @last_count >= 300
    
50.       $scene = @return_scene
    
51.     end
    
52.   end
    
53.   
    
54.   def update
    
55.     @frame_index += 1
    
56.     return if cancel?
    
57.     last if last?
    
58.     @credit_sprite.oy += 1
    
59.   end
    
60. 
    
61.   def cancel?
    
62.     if Input.trigger?(Input::B)
    
63.       $scene = @return_scene
    
64.       return true
    
65.     end
    
66.     return false
    
67.   end
    
68. 
    
69.   def main
    
70.     scene_start
    
71.     # 过渡
    
72.     Graphics.transition
    
73.     # 主循环
    
74.     loop do
    
75.       Graphics.update
    
76.       Input.update
    
77.       update
    
78.       if $scene != self
    
79.         break
    
80.       end
    
81.     end
    
82.     # 准备过渡
    
83.     Graphics.freeze
    
84.     scene_end
    
85.   end
    
86. end

复制代码

Tabris_Air

http://rpg.blue/web/htm/news569.htm
66+fuki对话脚本，有打字效果，可以修改参数调整打字速度

---

版主对此帖的认可：『正确解答，补上悬赏积分100分+1卡（=250分），感谢你的热心解答...』，积分『+350』。

lpylhy

.添加对话加强的脚本即可，比如
http://rpg.blue/web/htm/news569.htm
默认即是打字效果，可以修改打字速度