切换地图后展示专有插图

YamazakiRyusa

这篇脚本用于切换到特定地图时展示专有图片，体验过 DNF 的朋友们自然不会对这个效果陌生了：例如从赫顿玛尔切换到西海岸时会出现西海岸的专有插图。我的这份脚本灵感便是来源于此。
脚本内容是从 GameOver 这个特别场景参考的。由于是特别运用于我那部渣同人《进军地狱门》，所以很多细节，复制过去的朋友们不要忘记修改了。展示效果要自己试试才会知道，我懒得放范例工程了，没那份闲工夫去做。
下面这图是伊萨多拉村庄的插图。进入该地图的效果其实可以参考 Gameover 的场景。

废话不说，下面贴上脚本，拿去怎么用都行。商业目的的话记得事先和本人联系。
哎呀，忘记说了，在事件设置中，场所移动的命令后插入脚本 $scene = Scene_MapChange.new 即可。如果先调用脚本再场所移动，因为脚本读取的是当前地图，所以会造成小小的 BUG。本人正在考虑在 ryumap 变量那里 +1，不过那些地图就要顺序排列了，的确很麻烦。希望有谁能出面完善一下。

1. #==============================================================================
   
2. # ■ Scene_MapChange 1.0 Edition
   
3. #------------------------------------------------------------------------------
   
4. # 　切换关键地图时显示专有图像
   
5. #   作者 / Ryusa 参考 / 尽头 宇文隳
   
6. #   [email protected]
   
7. #==============================================================================
   
8. 
   
9. class Scene_MapChange
   
10.   #--------------------------------------------------------------------------
    
11.   # ● 主处理
    
12.   #--------------------------------------------------------------------------
    
13.   def main
    
14.     # 获取地图 ID，导入变量 ryumap
    
15.     ryumap = $game_map.map_id
    
16.     # 由地图 ID 决定生成图形
    
17.     filename = ""
    
18.     case ryumap
    
19.       #when num # 范例
    
20.         #filename = "path" # 范例
    
21.       when 22  # 里奥拉多地区·里奥拉多镇通道
    
22.         filename = "Scene_AreaLeoladol.png"
    
23.       when 40  # 里奥拉多地区·麦基通道
    
24.         filename = "Scene_AreaLeoladol.png"
    
25.       when 47  # 里奥拉多地区·波布雷欧普莱通道
    
26.         filename = "Scene_AreaLeoladol.png"
    
27.       when 23  # 里奥拉多镇
    
28.         filename = "Scene_AreaLeoladol.png"
    
29.       when 148 # 巴多·帕鲁迪兹山洞
    
30.         filename = "Scene_CaveBado.png"
    
31.       when 114 # 地狱门
    
32.         filename = "Scene_Desert.png"
    
33.       when 119 # 地球救济中心
    
34.         filename = "Scene_Earth.png"
    
35.       when 97  # 伊尔·米古拉
    
36.         filename = "Scene_ElMigolar.png"
    
37.       when 51  # 莫氏塔
    
38.         filename = "Scene_Mr.MowTower.png"
    
39.       when 38  # 波布雷·欧普莱
    
40.         filename = "Scene_NewFork.png"
    
41.       when 75  # 奥多里
    
42.         filename = "Scene_Outry.png"
    
43.       when 109 # 桑塔
    
44.         filename = "Scene_SantaPork.png"
    
45.       when 136 # 地狱门西村
    
46.         filename = "Scene_SunPork.png"
    
47.       when 42  # 麦基村
    
48.         filename = "Scene_TownNeki.png"
    
49.       else # 未特别指定的地图显示通用图像
    
50.         filename = "Scene_TownNeki.png"
    
51.     end
    
52.     #print filename # 校验文件名，测试用
    
53.     @sprite = Sprite.new
    
54.     if not filename == ""
    
55.       @sprite.bitmap = RPG::Cache.picture(filename)
    
56.       @sprite.z = 9999 # 图像叠放层次在最前
    
57.     end
    
58.     # 执行过渡
    
59.     Graphics.transition(60) # 淡入图像的时间，单位为帧
    
60.     # 主循环
    
61.     loop do
    
62.       # 刷新游戏画面
    
63.       Graphics.update
    
64.       # 刷新输入信息
    
65.       Input.update
    
66.       # 刷新画面情报
    
67.       update
    
68.       # 如果画面被切换的话就中断循环
    
69.       if $scene != self
    
70.         break
    
71.       end
    
72.     end
    
73.     # 准备过渡
    
74.     Graphics.freeze
    
75.     # 释放图形
    
76.     @sprite.bitmap.dispose
    
77.     @sprite.dispose
    
78.     # 执行过度
    
79.     Graphics.transition(20)
    
80.     # 准备过渡
    
81.     Graphics.freeze
    
82.   end
    
83.   #--------------------------------------------------------------------------
    
84.   # ● 刷新画面
    
85.   #--------------------------------------------------------------------------
    
86.   def update
    
87.     @sprite.update
    
88.     #@sprite.bitmap.update
    
89.     # 按下 C 键的情况下
    
90.     if Input.trigger?(Input::C)
    
91.       # 切换到相应地图
    
92.       $scene = Scene_Map.new
    
93.     end
    
94.   end
    
95. end

复制代码

云破月

听着很有诱惑力，就是感觉有点麻烦，期待LZ优化~~这个先抱走试试~~

YamazakiRyusa

看到回帖有动力了，准备传个整合的标题脚本