xp里可以用远景图吗？还有滚动文字。

IamI

远景图=》可以
滚动文字=》用脚本

木葬枫

可以·····

滚动文字脚本论坛上有，自己搜索。

CIS狂人

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,380))
    
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 + 480)
    
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

复制代码

注意看注释

---

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

木葬枫

以下引用CIS狂人于2008-8-27 16:55:14的发言：


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

class Scene_Credit
CREDIT=<<_END_
#这里输入内容

_END_
end

class Scene_Credit

def initialize(return_scene = nil)
   @sprite = Sprite.new
   @sprite.bitmap = Bitmap.new("Graphics/Pictures/tit")
   @sprite.x = 0
   @sprite.y = 0
   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
   @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

注意看注释

这个是VX的。