怎样让地图素材模块的选项卡多起来？

DeoxysUser

就是在选择画地图用什么来画的那个框的下面，怎样让ABCDE变得更多？

DeoxysUser

就是在选择画地图用什么来画的那个框的下面，怎样让ABCDE变得更多？

美丽晨露

无法更多了
这是VX软件的弊端
要像使用更多图块的话
使用图块转换脚本吧

Password

需求不大的话只能靠合理布局和E选项卡{:2_276:}

有大需求和实力的话可以考虑用图块扩张脚本

抠脚大妈

楼上几位太屌了，放脚本，里面有注释，怎么用应该看得懂

1. #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
   
2. #_/    ◆ 图块扩张 - KGC_TilesetExtension ◆ VX ◆
   
3. #_/    ◇ Last update : 2008/01/20 ◇
   
4. #_/----------------------------------------------------------------------------
   
5. #_/       变更图块图像、增加４方向通行、地形标记功能。
   
6. #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
   
7. 
   
8. =begin
   
9. 
   
10.   在地图名称加上[默认地图图块图档名称 新地图图块图档名称]
    
11.   
    
12.   例如：
    
13.   
    
14.   森林[A2 A2_2][B B_3]
    
15.   就是说用 TileA2_2 代替 TileA2
    
16.         用 TileB_3 代替 TileB
    
17. 
    
18.   脚本中定义方法
    
19.   
    
20.   在30行下面定义哈希表：
    
21.   TILE_PRESET["组名称"] = {
    
22.     "默认地图图块图档名称1"=>"新地图图块图档名称",
    
23.     "默认地图图块图档名称2"=>"新地图图块图档名称",
    
24.     "默认地图图块图档名称3"=>"新地图图块图档名称",
    
25.     "默认地图图块图档名称4"=>"新地图图块图档名称",
    
26.     ...
    
27.   }
    
28.   然後在地图名称使用
    
29.   
    
30.   地图名称 [SET 组名称]
    
31. 
    
32.   例如：
    
33.   TILE_PRESET["魔王之城"] = {
    
34.     "A1" => "A1-Maou",
    
35.     "A2" => "A2-Maou",
    
36.     "B"  => "B-Maou",
    
37.     "D"  => "D-Maou",
    
38.   }
    
39. 
    
40.   魔王城─走廊[SET 魔王之城]
    
41.   
    
42.   就等於
    
43.   魔王城─走廊[A1 A1-Maou][A2 A2-Maou][B B-Maou][D D-Maou]
    
44.   
    
45.   继承自定义图块：
    
46.   在地图名称使用[inherit]就能继承其在地图管理器中父地图所定义的图块
    
47.   
    
48.   例如：
    
49.   魔王城─走廊[A1 A1-Maou][A2 A2-Maou][B B-Maou][D D-Maou]
    
50.    +--魔王城─房间一[inherit]
    
51.    
    
52.   如此「魔王城─房间一」就继承了魔王城─走廊已经定义过的所有图块。
    
53.   PS：地图管理器就是RMVX介面左下角（图块选择器的下面）那个
    
54. 
    
55.   变更的优先度：
    
56.   1. 继承
    
57.   2. 脚本自定义
    
58.   3. 个别设定
    
59.   
    
60.   
    
61.   例如
    
62.   - 魔王城堡[A1 A1-2][B B2][C C2]
    
63.       魔王城堡大厅[inherit][A2 A2-2]
    
64.     - 魔王城堡走廊[inherit][B B3]
    
65.         魔王城堡房间一[inherit][D D2]
    
66.     - 魔王城堡後院[A1 A1-100]
    
67.         魔王城堡─谜之间[inherit]
    
68.   
    
69.   则效果：
    
70.   ＊魔王城堡
    
71.       A1: TileA1-2
    
72.       B : TileB2
    
73.       C : TileC2
    
74.   ＊魔王城堡大厅
    
75.       A1: TileA1-2
    
76.       A2: TileA2-2
    
77.       B : TileB2
    
78.       C : TileC2
    
79.   ＊魔王城堡走廊
    
80.       A1: TileA1-2
    
81.       B : TileB3
    
82.       C : TileC2
    
83.   ＊魔王城堡房间一
    
84.       A1: TileA1-2
    
85.       B : TileB3
    
86.       C : TileC2
    
87.       D : TileD2
    
88.   ＊魔王城堡後院
    
89.       A1: TileA1-100
    
90.   ＊魔王城堡─谜之间
    
91.       A1: TileA1-100
    
92. 
    
93. 
    
94. 四方向和地形标记需要软体
    
95.   下载：http://f44.aaa.livedoor.jp/~ytomy/cgi-bin/dl/dl.php?dl=vxtiletool
    
96.   
    
97.   说明：与XP相同，就是四方向
    
98.   地形标记可以增加到1～99个，不设置的话默认为0
    
99.   使用插件软件设置时，用shift + 点击可以将地形标记增加 10
    
100.   使用方式请看XP的说明
     
101.   
     
102.   
     
103.   
     
104.   地形标记相关脚本：
     
105.   get_terrain_tag(x, y[, variable_id])
     
106.     返回指定图块的地形标记至指定的变量
     
107.       x, y: 指定图块的XY座标
     
108.       variable_id：返回值储存位置(变量ID)(可不填)
     
109.       
     
110.       例如：get_terrain_tag(0, 32, 1)返回座标为（0,32）的地形标记并储存至1号变量
     
111.             $game_variable[1] = get_terrain_tag(0, 32) 同上
     
112.   
     
113.   get_event_terrain_tag(event_id[, variable_id])
     
114.     返回指定事件的地形标记至指定的变量
     
115.       event_id：指定事件的ID
     
116.       variable_id：返回值储存位置(变量ID)(可不填)
     
117.       
     
118.       例如：get_event_terrain_tag(32, 1)返回32号事件所在的地形标记并储存至1号变量
     
119.             $game_variable[1] = get_event_terrain_tag(32) 同上
     
120.       
     
121.   get_player_terrain_tag[(variable_id)]
     
122.     返回玩家角色的地形标记至指定的变量
     
123.       variable_id：返回值储存位置(变量ID)(可不填)
     
124.       
     
125.       例如：get_event_terrain_tag(1)返回玩家角色所在的地形标记并储存至1号变量
     
126.             $game_variable[1] = get_event_terrain_tag 同上
     
127.       
     
128. =end
     
129. #==============================================================================
     
130. # ★ 自定义項目 - Customize ★
     
131. #==============================================================================
     
132. 
     
133. module KGC
     
134. module TilesetExtension
     
135.   # ◆ 图块图像的字首
     
136.   #  图块图像名称前方的文字（如 TileA1 中的 Tile）
     
137. 
     
138.   TILE_IMAGE_PREFIX = "Tile"
     
139. 
     
140.   # ◆ 预设的图块图像
     
141.   #  使用[SET <预设组名称>]设定。
     
142. 
     
143.   TILE_PRESET = {}  # ← 这行不可删除
     
144.   # 预设在下方。
     
145.   # ↓范例
     
146. 
     
147. 
     
148. # 使用时，在地图名插入[SET 魔王之城]
     
149. 
     
150.   # ◆ ４方向通行、地形标记确认的按钮 (DEBUG用)
     
151.   #  按下此键之时，就会以对话框的方式显现
     
152.   #  当前玩家所在图块的可通行方向和地形标记。
     
153.   #  当设定为nil时则关闭此功能
     
154.   #   ※ 此功能只有在游戏测试时有效
     
155.   DEBUG_INFO_BUTTON = Input::F7
     
156. end
     
157. end
     
158. 
     
159. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
160. 
     
161. $imported = {} if $imported == nil
     
162. $imported["TilesetExtension"] = true
     
163. 
     
164. if $data_mapinfos == nil
     
165.   $data_mapinfos = load_data("Data/MapInfos.rvdata")
     
166. end
     
167. 
     
168. # 方向通行度 (４方向通行对应)
     
169. module DirectionFlag
     
170.   DOWN  = 0x01
     
171.   LEFT  = 0x02
     
172.   RIGHT = 0x04
     
173.   UP    = 0x08
     
174. end
     
175. 
     
176. module KGC::TilesetExtension
     
177.   # 扩张时储存的档案名称
     
178.   EX_RVDATA = "TilesetEx.rvdata"
     
179. 
     
180.   # 正規表現
     
181.   module Regexp
     
182.     # 継承
     
183.     INHERIT = /\[INHERIT\]/i
     
184.     # プリセット
     
185.     PRESET = /\[SET ([\w\-]+)\]/i
     
186.   end
     
187. 
     
188.   # デフォルトタイルセットファイル名
     
189.   DEFAULT_FILENAME = {
     
190.     "A1"=>"TileA1",
     
191.     "A2"=>"TileA2",
     
192.     "A3"=>"TileA3",
     
193.     "A4"=>"TileA4",
     
194.     "A5"=>"TileA5",
     
195.     "B"=>"TileB",
     
196.     "C"=>"TileC",
     
197.     "D"=>"TileD",
     
198.     "E"=>"TileE"
     
199.   }
     
200.   @@__filename = DEFAULT_FILENAME.dup
     
201. 
     
202.   module_function
     
203.   #--------------------------------------------------------------------------
     
204.   # ○ 指定マップのタイル画像ファイル名初期化
     
205.   #     map_id : マップ ID
     
206.   #--------------------------------------------------------------------------
     
207.   def init_tileset_filename(map_id)
     
208.     @@__filename = get_converted_tileset_filename(map_id)
     
209.   end
     
210.   #--------------------------------------------------------------------------
     
211.   # ○ 変換後のタイル画像ファイル名を取得
     
212.   #     map_id : マップ ID
     
213.   #--------------------------------------------------------------------------
     
214.   def get_converted_tileset_filename(map_id)
     
215.     info = $data_mapinfos[map_id]
     
216.     name = info.original_name
     
217.     filename = DEFAULT_FILENAME.dup
     
218.     if name =~ Regexp::INHERIT
     
219.       # 継承する場合は親を調べる
     
220.       parent_id = $data_mapinfos[map_id].parent_id
     
221.       if parent_id > 0
     
222.         filename = get_converted_tileset_filename(parent_id)
     
223.       end
     
224.     end
     
225.     # 現マップの変換規則を適用
     
226.     return convert_tileset_filename(filename, name)
     
227.   end
     
228.   #--------------------------------------------------------------------------
     
229.   # ○ タイル画像ファイル名変換
     
230.   #     filename : ファイル名 (Hash)
     
231.   #     map_name : マップ名
     
232.   #--------------------------------------------------------------------------
     
233.   def convert_tileset_filename(filename, map_name)
     
234.     name_buf = filename.dup
     
235.     # プリセット適用
     
236.     presets = map_name.scan(Regexp::PRESET)
     
237.     presets.each { |s|
     
238.       if TILE_PRESET.has_key?(s[0])
     
239.         TILE_PRESET[s[0]].each { |k, v|
     
240.           name_buf[k] = TILE_IMAGE_PREFIX + v
     
241.         }
     
242.       end
     
243.     }
     
244.     # 置換
     
245.     DEFAULT_FILENAME.keys.each { |key|
     
246.       if map_name =~ /\[#{key} ([\w\-]+)\]/
     
247.         name_buf[key] = TILE_IMAGE_PREFIX + $1
     
248.       end
     
249.     }
     
250.     return name_buf
     
251.   end
     
252.   #--------------------------------------------------------------------------
     
253.   # ○ タイル画像ファイル名取得
     
254.   #--------------------------------------------------------------------------
     
255.   def get_tileset_filename
     
256.     return @@__filename
     
257.   end
     
258. end
     
259. 
     
260. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
261. 
     
262. #==============================================================================
     
263. # □ KGC::Commands
     
264. #==============================================================================
     
265. 
     
266. module KGC::Commands
     
267.   module_function
     
268.   #--------------------------------------------------------------------------
     
269.   # ○ 指定座標の地形タグ取得
     
270.   #     x : マップの X 座標
     
271.   #     y : マップの Y 座標
     
272.   #     variable_id : 取得した地形タグを代入する変数の ID
     
273.   #--------------------------------------------------------------------------
     
274.   def get_terrain_tag(x, y, variable_id = 0)
     
275.     tag = $game_map.terrain_tag(x, y)       # 指定位置のタグを取得
     
276.     if variable_id > 0
     
277.       $game_variables[variable_id] = tag    # 指定された変数に代入
     
278.     end
     
279.     return tag
     
280.   end
     
281.   #--------------------------------------------------------------------------
     
282.   # ○ 指定イベント ID の位置の地形タグ取得
     
283.   #     event_id : イベント ID
     
284.   #     variable_id : 取得した地形タグを代入する変数の ID
     
285.   #--------------------------------------------------------------------------
     
286.   def get_event_terrain_tag(event_id, variable_id = 0)
     
287.     event = $game_map.events.values.find { |e| e.id == event_id }
     
288.     if event == nil
     
289.       # 該当するイベントが無ければ 0
     
290.       tag = 0
     
291.     else
     
292.       tag = $game_map.terrain_tag(event.x, event.y)
     
293.     end
     
294. 
     
295.     # 指定された変数に代入
     
296.     if variable_id > 0
     
297.       $game_variables[variable_id] = tag
     
298.     end
     
299.     return tag
     
300.   end
     
301.   #--------------------------------------------------------------------------
     
302.   # ○ プレイヤーの位置の地形タグ取得
     
303.   #     variable_id : 取得した地形タグを代入する変数の ID
     
304.   #--------------------------------------------------------------------------
     
305.   def get_player_terrain_tag(variable_id = 0)
     
306.     tag = $game_map.terrain_tag($game_player.x, $game_player.y)
     
307. 
     
308.     # 指定された変数に代入
     
309.     if variable_id > 0
     
310.       $game_variables[variable_id] = tag
     
311.     end
     
312.     return tag
     
313.   end
     
314. end
     
315. 
     
316. class Game_Interpreter
     
317.   include KGC::Commands
     
318. end
     
319. 
     
320. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
321. 
     
322. #==============================================================================
     
323. # ■ RPG::MapInfo
     
324. #==============================================================================
     
325. 
     
326. class RPG::MapInfo
     
327.   #--------------------------------------------------------------------------
     
328.   # ● マップ名取得
     
329.   #--------------------------------------------------------------------------
     
330.   def name
     
331.     return @name.gsub(/\[.*\]/) { "" }
     
332.   end
     
333.   #--------------------------------------------------------------------------
     
334.   # ○ オリジナルマップ名取得
     
335.   #--------------------------------------------------------------------------
     
336.   def original_name
     
337.     return @name
     
338.   end
     
339. end
     
340. 
     
341. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
342. 
     
343. #==============================================================================
     
344. # □ RPG::Tileset
     
345. #------------------------------------------------------------------------------
     
346. #   タイルセットの付加的情報を扱うクラスです。
     
347. #==============================================================================
     
348. 
     
349. class RPG::Tileset
     
350.   #--------------------------------------------------------------------------
     
351.   # ○ 定数
     
352.   #--------------------------------------------------------------------------
     
353.   TABLE_SIZE = 8192                       # 通行・地形タグテーブルのサイズ
     
354.   #--------------------------------------------------------------------------
     
355.   # ○ 公開インスタンス変数
     
356.   #--------------------------------------------------------------------------
     
357.   attr_accessor :version                  # 内部バージョン
     
358.   attr_accessor :passages                 # 4 方向通行フラグ
     
359.   attr_accessor :terrain_tags             # 地形タグ
     
360.   #--------------------------------------------------------------------------
     
361.   # ○ オブジェクト初期化
     
362.   #--------------------------------------------------------------------------
     
363.   def initialize
     
364.     @version = 1
     
365.     @passages = Table.new(TABLE_SIZE)
     
366.     @terrain_tags = Table.new(TABLE_SIZE)
     
367.   end
     
368. end
     
369. 
     
370. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
371. 
     
372. #==============================================================================
     
373. # ■ Game_Map
     
374. #==============================================================================
     
375. 
     
376. class Game_Map
     
377.   LAYERS = [2, 1, 0]
     
378.   #--------------------------------------------------------------------------
     
379.   # ● セットアップ
     
380.   #     map_id : マップ ID
     
381.   #--------------------------------------------------------------------------
     
382.   alias setup_KGC_TilesetExtension setup
     
383.   def setup(map_id)
     
384.     # タイルセット画像ファイル名を初期化
     
385.     KGC::TilesetExtension.init_tileset_filename(map_id)
     
386. 
     
387.     setup_KGC_TilesetExtension(map_id)
     
388.   end
     
389.   #--------------------------------------------------------------------------
     
390.   # ○ 指定座標の通行フラグ取得
     
391.   #     x : X 座標
     
392.   #     y : Y 座標
     
393.   #--------------------------------------------------------------------------
     
394.   def passage(x, y)
     
395.     LAYERS.each { |i|
     
396.       tile_id = @map.data[x, y, i]
     
397.       return 0 if tile_id == nil
     
398.       return $data_tileset.passages[tile_id]
     
399.     }
     
400.     return 0
     
401.   end
     
402.   #--------------------------------------------------------------------------
     
403.   # ○ 指定座標の地形タグ取得
     
404.   #     x : X 座標
     
405.   #     y : Y 座標
     
406.   #--------------------------------------------------------------------------
     
407.   def terrain_tag(x, y)
     
408.     LAYERS.each { |i|
     
409.       tile_id = @map.data[x, y, i]               # タイル ID を取得
     
410.       return 0 if tile_id == nil                 # タイル ID 取得失敗 : タグなし
     
411.       tag = $data_tileset.terrain_tags[tile_id]  # 地形タグを取得
     
412.       return tag if tag > 0                      # タグが設定してあれば返す
     
413.     }
     
414.     return 0
     
415.   end
     
416.   #--------------------------------------------------------------------------
     
417.   # ○ 指定方向通行可能判定
     
418.   #     x : X 座標
     
419.   #     y : Y 座標
     
420.   #     d : 移動方向
     
421.   #--------------------------------------------------------------------------
     
422.   def passable_dir?(x, y, d)
     
423.     # 方向 (0,2,4,6,8,10) から 通行フラグ (0,1,2,4,8,0) に変換
     
424.     flag = (1 << (d / 2 - 1)) & 0x0F
     
425. 
     
426.     LAYERS.each { |i|                         # レイヤーの上から順に調べる
     
427.       tile_id = @map.data[x, y, i]            # タイル ID を取得
     
428.       return false if tile_id == nil          # タイル ID 取得失敗 : 通行不可
     
429.       pass = $data_tileset.passages[tile_id]  # タイルセットの通行属性を取得
     
430.       return false if pass & flag != 0x00     # フラグが立っていたら通行不可
     
431.     }
     
432.     return true
     
433.   end
     
434. end
     
435. 
     
436. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
437. 
     
438. #==============================================================================
     
439. # ■ Game_Character
     
440. #==============================================================================
     
441. 
     
442. class Game_Character
     
443.   #--------------------------------------------------------------------------
     
444.   # ○ 通行可能判定
     
445.   #     x : X 座標
     
446.   #     y : Y 座標
     
447.   #     d : 移動方向 (省略時: 10)
     
448.   #--------------------------------------------------------------------------
     
449.   def passable?(x, y, d = 10)
     
450.     nx = moved_x(x, d)
     
451.     ny = moved_y(y, d)
     
452.     nx = $game_map.round_x(nx)                         # 横方向ループ補正
     
453.     ny = $game_map.round_y(ny)                         # 縦方向ループ補正
     
454.     return false unless $game_map.valid?(nx, ny)       # マップ外？
     
455.     return true if @through or debug_through?          # すり抜け ON？
     
456.     return false unless map_passable?(x, y, d)         # 指定方向に移動不能？
     
457.     return false unless map_passable?(nx, ny, 10 - d)  # 移動先が進入不能？
     
458.     return false if collide_with_characters?(nx, ny)   # キャラクターに衝突？
     
459.     return true                                        # 通行可
     
460.   end
     
461.   #--------------------------------------------------------------------------
     
462.   # ○ 移動後の X 座標算出
     
463.   #     x : X 座標
     
464.   #     d : 移動方向
     
465.   #    移動後の X 座標を計算する。
     
466.   #--------------------------------------------------------------------------
     
467.   def moved_x(x, d)
     
468.     return x + (d == 6 ? 1 : d == 4 ? -1 : 0)
     
469.   end
     
470.   #--------------------------------------------------------------------------
     
471.   # ○ 移動後の Y 座標算出
     
472.   #     y : Y 座標
     
473.   #     d : 移動方向
     
474.   #    移動後の Y 座標を計算する。
     
475.   #--------------------------------------------------------------------------
     
476.   def moved_y(y, d)
     
477.     return y + (d == 2 ? 1 : d == 8 ? -1 : 0)
     
478.   end
     
479.   #--------------------------------------------------------------------------
     
480.   # ○ マップ通行可能判定
     
481.   #     x : X 座標
     
482.   #     y : Y 座標
     
483.   #     d : 移動方向
     
484.   #    指定座標の指定した方向が通行可能かを取得する。
     
485.   #--------------------------------------------------------------------------
     
486.   def map_passable?(x, y, d)
     
487.     return $game_map.passable?(x, y) && $game_map.passable_dir?(x, y, d)
     
488.   end
     
489.   #--------------------------------------------------------------------------
     
490.   # ● 下に移動
     
491.   #     turn_ok : その場での向き変更を許可
     
492.   #--------------------------------------------------------------------------
     
493.   def move_down(turn_ok = true)
     
494.     if passable?(@x, @y, 2)                 # 通行可能
     
495.       turn_down
     
496.       @y = $game_map.round_y(@y+1)
     
497.       @real_y = (@y-1)*256
     
498.       increase_steps
     
499.       @move_failed = false
     
500.     else                                    # 通行不可能
     
501.       turn_down if turn_ok
     
502.       check_event_trigger_touch(@x, @y+1)   # 接触イベントの起動判定
     
503.       @move_failed = true
     
504.     end
     
505.   end
     
506.   #--------------------------------------------------------------------------
     
507.   # ● 左に移動
     
508.   #     turn_ok : その場での向き変更を許可
     
509.   #--------------------------------------------------------------------------
     
510.   def move_left(turn_ok = true)
     
511.     if passable?(@x, @y, 4)                 # 通行可能
     
512.       turn_left
     
513.       @x = $game_map.round_x(@x-1)
     
514.       @real_x = (@x+1)*256
     
515.       increase_steps
     
516.       @move_failed = false
     
517.     else                                    # 通行不可能
     
518.       turn_left if turn_ok
     
519.       check_event_trigger_touch(@x-1, @y)   # 接触イベントの起動判定
     
520.       @move_failed = true
     
521.     end
     
522.   end
     
523.   #--------------------------------------------------------------------------
     
524.   # ● 右に移動
     
525.   #     turn_ok : その場での向き変更を許可
     
526.   #--------------------------------------------------------------------------
     
527.   def move_right(turn_ok = true)
     
528.     if passable?(@x, @y, 6)                 # 通行可能
     
529.       turn_right
     
530.       @x = $game_map.round_x(@x+1)
     
531.       @real_x = (@x-1)*256
     
532.       increase_steps
     
533.       @move_failed = false
     
534.     else                                    # 通行不可能
     
535.       turn_right if turn_ok
     
536.       check_event_trigger_touch(@x+1, @y)   # 接触イベントの起動判定
     
537.       @move_failed = true
     
538.     end
     
539.   end
     
540.   #--------------------------------------------------------------------------
     
541.   # ● 上に移動
     
542.   #     turn_ok : その場での向き変更を許可
     
543.   #--------------------------------------------------------------------------
     
544.   def move_up(turn_ok = true)
     
545.     if passable?(@x, @y, 8)                 # 通行可能
     
546.       turn_up
     
547.       @y = $game_map.round_y(@y-1)
     
548.       @real_y = (@y+1)*256
     
549.       increase_steps
     
550.       @move_failed = false
     
551.     else                                    # 通行不可能
     
552.       turn_up if turn_ok
     
553.       check_event_trigger_touch(@x, @y-1)   # 接触イベントの起動判定
     
554.       @move_failed = true
     
555.     end
     
556.   end
     
557.   #--------------------------------------------------------------------------
     
558.   # ● 左下に移動
     
559.   #--------------------------------------------------------------------------
     
560.   def move_lower_left
     
561.     unless @direction_fix
     
562.       @direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
     
563.     end
     
564.     if (passable?(@x, @y, 2) && passable?(@x, @y+1, 4)) ||
     
565.        (passable?(@x, @y, 4) && passable?(@x-1, @y, 2))
     
566.       @x -= 1
     
567.       @y += 1
     
568.       increase_steps
     
569.       @move_failed = false
     
570.     else
     
571.       @move_failed = true
     
572.     end
     
573.   end
     
574.   #--------------------------------------------------------------------------
     
575.   # ● 右下に移動
     
576.   #--------------------------------------------------------------------------
     
577.   def move_lower_right
     
578.     unless @direction_fix
     
579.       @direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
     
580.     end
     
581.     if (passable?(@x, @y, 2) && passable?(@x, @y+1, 6)) ||
     
582.        (passable?(@x, @y, 6) && passable?(@x+1, @y, 2))
     
583.       @x += 1
     
584.       @y += 1
     
585.       increase_steps
     
586.       @move_failed = false
     
587.     else
     
588.       @move_failed = true
     
589.     end
     
590.   end
     
591.   #--------------------------------------------------------------------------
     
592.   # ● 左上に移動
     
593.   #--------------------------------------------------------------------------
     
594.   def move_upper_left
     
595.     unless @direction_fix
     
596.       @direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
     
597.     end
     
598.     if (passable?(@x, @y, 8) && passable?(@x, @y-1, 4)) ||
     
599.        (passable?(@x, @y, 4) && passable?(@x-1, @y, 8))
     
600.       @x -= 1
     
601.       @y -= 1
     
602.       increase_steps
     
603.       @move_failed = false
     
604.     else
     
605.       @move_failed = true
     
606.     end
     
607.   end
     
608.   #--------------------------------------------------------------------------
     
609.   # ● 右上に移動
     
610.   #--------------------------------------------------------------------------
     
611.   def move_upper_right
     
612.     unless @direction_fix
     
613.       @direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
     
614.     end
     
615.     if (passable?(@x, @y, 8) && passable?(@x, @y-1, 6)) ||
     
616.        (passable?(@x, @y, 6) && passable?(@x+1, @y, 8))
     
617.       @x += 1
     
618.       @y -= 1
     
619.       increase_steps
     
620.       @move_failed = false
     
621.     else
     
622.       @move_failed = true
     
623.     end
     
624.   end
     
625. end
     
626. 
     
627. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
628. 
     
629. #==============================================================================
     
630. # ■ Game_Player
     
631. #==============================================================================
     
632. 
     
633. class Game_Player < Game_Character
     
634.   #--------------------------------------------------------------------------
     
635.   # ○ マップ通行可能判定
     
636.   #     x : X 座標
     
637.   #     y : Y 座標
     
638.   #     d : 移動方向
     
639.   #    指定座標の指定した方向が通行可能かを取得する。
     
640.   #--------------------------------------------------------------------------
     
641.   alias map_passable_KGC_TilesetExtension? map_passable?
     
642.   def map_passable?(x, y, d)
     
643.     return false unless map_passable_KGC_TilesetExtension?(x, y)
     
644. 
     
645.     return $game_map.passable_dir?(x, y, d)
     
646.   end
     
647. 
     
648.   if $TEST && KGC::TilesetExtension::DEBUG_INFO_BUTTON != nil
     
649.   #--------------------------------------------------------------------------
     
650.   # ● フレーム更新
     
651.   #--------------------------------------------------------------------------
     
652.   alias update_KGC_TilesetExtension update
     
653.   def update
     
654.     update_KGC_TilesetExtension
     
655. 
     
656.     if Input.trigger?(KGC::TilesetExtension::DEBUG_INFO_BUTTON)
     
657.       show_passage_and_terrain_tag
     
658.     end
     
659.   end
     
660.   #--------------------------------------------------------------------------
     
661.   # ○ プレイヤー位置の通行フラグ・地形タグを表示
     
662.   #--------------------------------------------------------------------------
     
663.   def show_passage_and_terrain_tag
     
664.     passage = $game_map.passage(x, y)
     
665.     tag = $game_map.terrain_tag(x, y)
     
666. 
     
667.     # デバッグ情報作成
     
668.     s = "通行可能: "
     
669.     s += "↓" if passage & DirectionFlag::DOWN  == 0x00
     
670.     s += "←" if passage & DirectionFlag::LEFT  == 0x00
     
671.     s += "→" if passage & DirectionFlag::RIGHT == 0x00
     
672.     s += "↑" if passage & DirectionFlag::UP    == 0x00
     
673.     s += "  地形标记: #{tag}"
     
674. 
     
675.     p s
     
676.   end
     
677.   end
     
678. 
     
679. end
     
680. 
     
681. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
682. 
     
683. #==============================================================================
     
684. # ■ Sprite_Character
     
685. #==============================================================================
     
686. 
     
687. class Sprite_Character < Sprite_Base
     
688.   #--------------------------------------------------------------------------
     
689.   # ● 指定されたタイルが含まれるタイルセット画像の取得
     
690.   #     tile_id : タイル ID
     
691.   #--------------------------------------------------------------------------
     
692.   def tileset_bitmap(tile_id)
     
693.     filename = KGC::TilesetExtension.get_tileset_filename
     
694.     set_number = tile_id / 256
     
695.     return Cache.system(filename["B"]) if set_number == 0
     
696.     return Cache.system(filename["C"]) if set_number == 1
     
697.     return Cache.system(filename["D"]) if set_number == 2
     
698.     return Cache.system(filename["E"]) if set_number == 3
     
699.     return nil
     
700.   end
     
701. end
     
702. 
     
703. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
704. 
     
705. #==============================================================================
     
706. # ■ Spriteset_Map
     
707. #==============================================================================
     
708. 
     
709. class Spriteset_Map
     
710.   #--------------------------------------------------------------------------
     
711.   # ● タイルマップの作成
     
712.   #--------------------------------------------------------------------------
     
713.   def create_tilemap
     
714.     filename = KGC::TilesetExtension.get_tileset_filename
     
715.     @tilemap = Tilemap.new(@viewport1)
     
716.     @tilemap.bitmaps[0] = Cache.system(filename["A1"])
     
717.     @tilemap.bitmaps[1] = Cache.system(filename["A2"])
     
718.     @tilemap.bitmaps[2] = Cache.system(filename["A3"])
     
719.     @tilemap.bitmaps[3] = Cache.system(filename["A4"])
     
720.     @tilemap.bitmaps[4] = Cache.system(filename["A5"])
     
721.     @tilemap.bitmaps[5] = Cache.system(filename["B"])
     
722.     @tilemap.bitmaps[6] = Cache.system(filename["C"])
     
723.     @tilemap.bitmaps[7] = Cache.system(filename["D"])
     
724.     @tilemap.bitmaps[8] = Cache.system(filename["E"])
     
725.     @tilemap.map_data = $game_map.data
     
726.     @tilemap.passages = $game_map.passages
     
727.   end
     
728. end
     
729. 
     
730. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
731. 
     
732. #==============================================================================
     
733. # ■ Scene_Title
     
734. #==============================================================================
     
735. 
     
736. class Scene_Title < Scene_Base
     
737.   #--------------------------------------------------------------------------
     
738.   # ● データベースのロード
     
739.   #--------------------------------------------------------------------------
     
740.   alias load_database_KGC_TilesetExtension load_database
     
741.   def load_database
     
742.     load_database_KGC_TilesetExtension
     
743. 
     
744.     load_tileset
     
745.   end
     
746.   #--------------------------------------------------------------------------
     
747.   # ○ タイルセット付加情報のロード
     
748.   #--------------------------------------------------------------------------
     
749.   def load_tileset
     
750.     begin
     
751.       $data_tileset = load_data("Data/#{KGC::TilesetExtension::EX_RVDATA}")
     
752.     rescue
     
753.       $data_tileset = RPG::Tileset.new
     
754.     end
     
755.   end
     
756. end
     

复制代码

DeoxysUser

抠脚大妈 发表于 2014-1-30 17:29
楼上几位太屌了，放脚本，里面有注释，怎么用应该看得懂

非常感谢！！！