废渣型脚本产物Ⅸ-地图传送道具(简版)

冰舞蝶恋

苦研脚本2天...还是比不上各位大神，如果发现BUG麻烦在下面举报。

1. #============================================================================
   
2. # ○ 简易传送物品脚本
   
3. #         ——By.冰舞蝶恋
   
4. #----------------------------------------------------------------------------
   
5. module Flyitem
   
6. #--设定部分------------------------------------------------------------------
   
7. # 用来传送到各地图的物品id，上限可自行添加
   
8.   FLYITEM = [21, 22, 23]
   
9. #----------------------------------------------------------------------------
   
10. # 物品对应的可传送地图，如范例中：[[1,2]……]就代表21号物品可传送到1号和2号
    
11. # 地图；再如，22号物品可传送到2号地图；23号物品可传送到1，3，4号地图，可自己
    
12. # 设定，以此类推。
    
13.   MAPID = [[1, 2],
    
14.            [2],
    
15.            [1, 3, 4]]
    
16. #----------------------------------------------------------------------------
    
17. # 被传送地图的X，Y坐标，从1号地图开始，如范例中[1,1]就是如果传送到1号地图，
    
18. # 则被传送的坐标是1，1（地图坐标从0记起）；[2,4]，代表着如果被传送到2号地图
    
19. # ，则是从x=2，y=4的地方出现，以此类推。
    
20.   MAPXY = [[0, 0],
    
21.            [4, 6],
    
22.            [5, 5],
    
23.            [1, 4]]
    
24. #--设定结束，祝您使用愉快----------------------------------------------------
    
25. end
    
26. # 特别感谢：八云紫 前辈！
    
27. #============================================================================
    
28. $flyitem = []
    
29. $flyid = []
    
30. class Scene_Item < Scene_Base
    
31.   #--------------------------------------------------------------------------
    
32.   # ● 非同伴目标使用物品
    
33.   #--------------------------------------------------------------------------
    
34.   def use_item_nontarget
    
35.     Sound.play_use_item
    
36.     $game_party.consume_item(@item)
    
37.     @item_window.draw_item(@item_window.index)
    
38.     @target_window.refresh
    
39.     # 这里是八云紫前辈的判断方法..-------------------------------------------
    
40.     if Flyitem::FLYITEM.include?(@item.id)
    
41.       fly = Flyitem::FLYITEM.index(@item.id)
    
42.       for i in 0..Flyitem::MAPID[fly].size-1
    
43.         a = load_data("Data/MapInfos.rvdata")
    
44.         $flyitem[i] = a[Flyitem::MAPID[fly][i]].name
    
45.         $flyid[i] = Flyitem::MAPID[fly][i]
    
46.         if $flyitem.size == Flyitem::MAPID[fly].size
    
47.           @fly_cmd = Window_Command.new(240, $flyitem)
    
48.           @fly_cmd.x = (544 - @fly_cmd.width) / 2
    
49.           @fly_cmd.y = (416 - @fly_cmd.height) / 2
    
50.           @fly_cmd.active = @fly_cmd.visible = true
    
51.         end
    
52.       end
    
53.     end
    
54.     # 另一种算法（骄傲的：咱自己的思路~~
    
55. #~     for fly in 0..Flyitem::FLYITEM.size-1
    
56. #~       if @item.id == Flyitem::FLYITEM[fly]
    
57. #~         for i in 0..Flyitem::MAPID[fly].size-1
    
58. #~           a = load_data("Data/MapInfos.rvdata")
    
59. #~           $flyitem[i] = a[Flyitem::MAPID[fly][i]].name
    
60. #~           $flyid[i] = Flyitem::MAPID[fly][i]
    
61. #~           if $flyitem.size == Flyitem::MAPID[fly].size
    
62. #~             @fly_cmd = Window_Command.new(240, $flyitem)
    
63. #~             @fly_cmd.x = (544 - @fly_cmd.width) / 2
    
64. #~             @fly_cmd.y = (416 - @fly_cmd.height) / 2
    
65. #~             @fly_cmd.active = @fly_cmd.visible = true
    
66. #~           end
    
67. #~         end
    
68. #~       end
    
69. #~     end
    
70.     #------------------------------------------------------------------------
    
71.     if $game_party.all_dead?
    
72.       $scene = Scene_Gameover.new
    
73.     elsif @item.common_event_id > 0
    
74.       $game_temp.common_event_id = @item.common_event_id
    
75.       $scene = Scene_Map.new
    
76.     end
    
77.   end
    
78.   #--------------------------------------------------------------------------
    
79.   # ● 更新画面
    
80.   #--------------------------------------------------------------------------
    
81.   def update
    
82.     super
    
83.     update_menu_background
    
84.     if @fly_cmd != nil
    
85.       if @fly_cmd.active
    
86.         @fly_cmd.update
    
87.         return cmd
    
88.       end
    
89.     end
    
90.     @help_window.update
    
91.     @item_window.update
    
92.     @target_window.update
    
93.     if @item_window.active
    
94.       update_item_selection
    
95.     elsif @target_window.active
    
96.       update_target_selection
    
97.     end
    
98.   end
    
99.   #--------------------------------------------------------------------------
    
100.   # ● 按键处理
     
101.   #--------------------------------------------------------------------------
     
102.   def cmd
     
103.     if Input.trigger?(Input::C)
     
104.       id = $flyid[@fly_cmd.index]
     
105.       $scene = Scene_Map.new
     
106.       @fly_cmd = nil
     
107.       xy = Flyitem::MAPXY
     
108.       xy2 = xy[id-1]
     
109.       $game_map.setup(id)
     
110.       $game_player.moveto(xy2[0], xy2[1])
     
111.     elsif Input.trigger?(Input::B)
     
112.       $scene = Scene_Item.new
     
113.       @fly_cmd = nil
     
114.       $game_party.gain_item($data_items[@item.id],1)
     
115.     end
     
116.   end
     
117. end
     

复制代码

如果脚本设定不易理解，那么就下载范例吧。
上图：



附件：
地图传送道具.rar (259.91 KB, 下载次数: 3779)

2011-5-27 13:07 上传

点击文件名下载附件

、、威龙

我去搜刮素材了。。、

、、威龙

我用公用事件做出了一个传送道具

小小西

下载显示有毒

步兵中尉

看到这个想起了轩辕剑3里李靖的乘龙诀。
话说以前站上发过相关传送系统，脚本操作，而且事件控制。物品对应公共事件似乎就可以了。
感谢分享这个技术

a88953327

脚本 什么都看不懂     还是事件比较简单

px.凤翔九天

表示冰舞姐的脚本进步挺快的呢~这个功能也挺实用的。
记得做悬赏写过一个是使用道具返回主城，然后再使用在返回那个迷宫的地方的。
这个跟那个属于不同的类型，不过也挺不错的~
支持个~

退屈￡无聊

可否考虑用HASH=-=?
另外对那些认为可以用事件的人们:
当有一堆地图移动道具和可移动地图的时候,事件的设置就略显烦琐.

九夜神尊

鼓励冰舞的说。虽然这东西一般人都用事件了。