素材界面不够用啊

cxszh123

地图素材导入只有ABCDE啊 有没有可能扩张到FGH。。。等等啊 完全不够用啊 每次换来换去好麻烦啊

yangjunyin2002

不够么。。。用图块扩张脚本或悬赏10VIP以上球人帮忙改下Vx这个软件吧。话说你用的是mack还是vs图块？应该是充足的啊

gz29767562

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.   TILE_PRESET["北方王城"] = {
     
147.     "A1"=>"A1",
     
148.     "A2"=>"A2",
     
149. #~     "A4"=>"A4_0",
     
150. #~    "B"=>"B_9",
     
151.     "D"=>"D",
     
152. #~      "E"=>"E_5",
     
153.   }
     
154. 
     
155. # 使用时，在地图名插入[SET 魔王之城]
     
156. 
     
157.   # ◆ ４方向通行、地形标记确认的按钮 (DEBUG用)
     
158.   #  按下此键之时，就会以对话框的方式显现
     
159.   #  当前玩家所在图块的可通行方向和地形标记。
     
160.   #  当设定为nil时则关闭此功能
     
161.   #   ※ 此功能只有在游戏测试时有效
     
162.   DEBUG_INFO_BUTTON = Input::F7
     
163. end
     
164. end
     
165. 
     
166. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
167. 
     
168. $imported = {} if $imported == nil
     
169. $imported["TilesetExtension"] = true
     
170. 
     
171. if $data_mapinfos == nil
     
172.   $data_mapinfos = load_data("Data/MapInfos.rvdata")
     
173. end
     
174. 
     
175. # 方向通行度 (４方向通行对应)
     
176. module DirectionFlag
     
177.   DOWN  = 0x01
     
178.   LEFT  = 0x02
     
179.   RIGHT = 0x04
     
180.   UP    = 0x08
     
181. end
     
182. 
     
183. module KGC::TilesetExtension
     
184.   # 扩张时储存的档案名称
     
185.   EX_RVDATA = "TilesetEx.rvdata"
     
186. 
     
187.   # 正規表現
     
188.   module Regexp
     
189.     # 継承
     
190.     INHERIT = /\[INHERIT\]/i
     
191.     # プリセット
     
192.     PRESET = /\[SET ([\w\-]+)\]/i
     
193.   end
     
194. 
     
195.   # デフォルトタイルセットファイル名
     
196.   DEFAULT_FILENAME = {
     
197.     "A1"=>"TileA1",
     
198.     "A2"=>"TileA2",
     
199.     "A3"=>"TileA3",
     
200.     "A4"=>"TileA4",
     
201.     "A5"=>"TileA5",
     
202.     "B"=>"TileB",
     
203.     "C"=>"TileC",
     
204.     "D"=>"TileD",
     
205.     "E"=>"TileE"
     
206.   }
     
207.   @@__filename = DEFAULT_FILENAME.dup
     
208. 
     
209.   module_function
     
210.   #--------------------------------------------------------------------------
     
211.   # ○ 指定マップのタイル画像ファイル名初期化
     
212.   #     map_id : マップ ID
     
213.   #--------------------------------------------------------------------------
     
214.   def init_tileset_filename(map_id)
     
215.     @@__filename = get_converted_tileset_filename(map_id)
     
216.   end
     
217.   #--------------------------------------------------------------------------
     
218.   # ○ 変換後のタイル画像ファイル名を取得
     
219.   #     map_id : マップ ID
     
220.   #--------------------------------------------------------------------------
     
221.   def get_converted_tileset_filename(map_id)
     
222.     info = $data_mapinfos[map_id]
     
223.     name = info.original_name
     
224.     filename = DEFAULT_FILENAME.dup
     
225.     if name =~ Regexp::INHERIT
     
226.       # 継承する場合は親を調べる
     
227.       parent_id = $data_mapinfos[map_id].parent_id
     
228.       if parent_id > 0
     
229.         filename = get_converted_tileset_filename(parent_id)
     
230.       end
     
231.     end
     
232.     # 現マップの変換規則を適用
     
233.     return convert_tileset_filename(filename, name)
     
234.   end
     
235.   #--------------------------------------------------------------------------
     
236.   # ○ タイル画像ファイル名変換
     
237.   #     filename : ファイル名 (Hash)
     
238.   #     map_name : マップ名
     
239.   #--------------------------------------------------------------------------
     
240.   def convert_tileset_filename(filename, map_name)
     
241.     name_buf = filename.dup
     
242.     # プリセット適用
     
243.     presets = map_name.scan(Regexp::PRESET)
     
244.     presets.each { |s|
     
245.       if TILE_PRESET.has_key?(s[0])
     
246.         TILE_PRESET[s[0]].each { |k, v|
     
247.           name_buf[k] = TILE_IMAGE_PREFIX + v
     
248.         }
     
249.       end
     
250.     }
     
251.     # 置換
     
252.     DEFAULT_FILENAME.keys.each { |key|
     
253.       if map_name =~ /\[#{key} ([\w\-]+)\]/
     
254.         name_buf[key] = TILE_IMAGE_PREFIX + $1
     
255.       end
     
256.     }
     
257.     return name_buf
     
258.   end
     
259.   #--------------------------------------------------------------------------
     
260.   # ○ タイル画像ファイル名取得
     
261.   #--------------------------------------------------------------------------
     
262.   def get_tileset_filename
     
263.     return @@__filename
     
264.   end
     
265. end
     
266. 
     
267. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
268. 
     
269. #==============================================================================
     
270. # □ KGC::Commands
     
271. #==============================================================================
     
272. 
     
273. module KGC::Commands
     
274.   module_function
     
275.   #--------------------------------------------------------------------------
     
276.   # ○ 指定座標の地形タグ取得
     
277.   #     x : マップの X 座標
     
278.   #     y : マップの Y 座標
     
279.   #     variable_id : 取得した地形タグを代入する変数の ID
     
280.   #--------------------------------------------------------------------------
     
281.   def get_terrain_tag(x, y, variable_id = 0)
     
282.     tag = $game_map.terrain_tag(x, y)       # 指定位置のタグを取得
     
283.     if variable_id > 0
     
284.       $game_variables[variable_id] = tag    # 指定された変数に代入
     
285.     end
     
286.     return tag
     
287.   end
     
288.   #--------------------------------------------------------------------------
     
289.   # ○ 指定イベント ID の位置の地形タグ取得
     
290.   #     event_id : イベント ID
     
291.   #     variable_id : 取得した地形タグを代入する変数の ID
     
292.   #--------------------------------------------------------------------------
     
293.   def get_event_terrain_tag(event_id, variable_id = 0)
     
294.     event = $game_map.events.values.find { |e| e.id == event_id }
     
295.     if event == nil
     
296.       # 該当するイベントが無ければ 0
     
297.       tag = 0
     
298.     else
     
299.       tag = $game_map.terrain_tag(event.x, event.y)
     
300.     end
     
301. 
     
302.     # 指定された変数に代入
     
303.     if variable_id > 0
     
304.       $game_variables[variable_id] = tag
     
305.     end
     
306.     return tag
     
307.   end
     
308.   #--------------------------------------------------------------------------
     
309.   # ○ プレイヤーの位置の地形タグ取得
     
310.   #     variable_id : 取得した地形タグを代入する変数の ID
     
311.   #--------------------------------------------------------------------------
     
312.   def get_player_terrain_tag(variable_id = 0)
     
313.     tag = $game_map.terrain_tag($game_player.x, $game_player.y)
     
314. 
     
315.     # 指定された変数に代入
     
316.     if variable_id > 0
     
317.       $game_variables[variable_id] = tag
     
318.     end
     
319.     return tag
     
320.   end
     
321. end
     
322. 
     
323. class Game_Interpreter
     
324.   include KGC::Commands
     
325. end
     
326. 
     
327. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
328. 
     
329. #==============================================================================
     
330. # ■ RPG::MapInfo
     
331. #==============================================================================
     
332. 
     
333. class RPG::MapInfo
     
334.   #--------------------------------------------------------------------------
     
335.   # ● マップ名取得
     
336.   #--------------------------------------------------------------------------
     
337.   def name
     
338.     return @name.gsub(/\[.*\]/) { "" }
     
339.   end
     
340.   #--------------------------------------------------------------------------
     
341.   # ○ オリジナルマップ名取得
     
342.   #--------------------------------------------------------------------------
     
343.   def original_name
     
344.     return @name
     
345.   end
     
346. end
     
347. 
     
348. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
349. 
     
350. #==============================================================================
     
351. # □ RPG::Tileset
     
352. #------------------------------------------------------------------------------
     
353. #   タイルセットの付加的情報を扱うクラスです。
     
354. #==============================================================================
     
355. 
     
356. class RPG::Tileset
     
357.   #--------------------------------------------------------------------------
     
358.   # ○ 定数
     
359.   #--------------------------------------------------------------------------
     
360.   TABLE_SIZE = 8192                       # 通行・地形タグテーブルのサイズ
     
361.   #--------------------------------------------------------------------------
     
362.   # ○ 公開インスタンス変数
     
363.   #--------------------------------------------------------------------------
     
364.   attr_accessor :version                  # 内部バージョン
     
365.   attr_accessor :passages                 # 4 方向通行フラグ
     
366.   attr_accessor :terrain_tags             # 地形タグ
     
367.   #--------------------------------------------------------------------------
     
368.   # ○ オブジェクト初期化
     
369.   #--------------------------------------------------------------------------
     
370.   def initialize
     
371.     @version = 1
     
372.     @passages = Table.new(TABLE_SIZE)
     
373.     @terrain_tags = Table.new(TABLE_SIZE)
     
374.   end
     
375. end
     
376. 
     
377. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
378. 
     
379. #==============================================================================
     
380. # ■ Game_Map
     
381. #==============================================================================
     
382. 
     
383. class Game_Map
     
384.   LAYERS = [2, 1, 0]
     
385.   #--------------------------------------------------------------------------
     
386.   # ● セットアップ
     
387.   #     map_id : マップ ID
     
388.   #--------------------------------------------------------------------------
     
389.   alias setup_KGC_TilesetExtension setup
     
390.   def setup(map_id)
     
391.     # タイルセット画像ファイル名を初期化
     
392.     KGC::TilesetExtension.init_tileset_filename(map_id)
     
393. 
     
394.     setup_KGC_TilesetExtension(map_id)
     
395.   end
     
396.   #--------------------------------------------------------------------------
     
397.   # ○ 指定座標の通行フラグ取得
     
398.   #     x : X 座標
     
399.   #     y : Y 座標
     
400.   #--------------------------------------------------------------------------
     
401.   def passage(x, y)
     
402.     LAYERS.each { |i|
     
403.       tile_id = @map.data[x, y, i]
     
404.       return 0 if tile_id == nil
     
405.       return $data_tileset.passages[tile_id]
     
406.     }
     
407.     return 0
     
408.   end
     
409.   #--------------------------------------------------------------------------
     
410.   # ○ 指定座標の地形タグ取得
     
411.   #     x : X 座標
     
412.   #     y : Y 座標
     
413.   #--------------------------------------------------------------------------
     
414.   def terrain_tag(x, y)
     
415.     LAYERS.each { |i|
     
416.       tile_id = @map.data[x, y, i]               # タイル ID を取得
     
417.       return 0 if tile_id == nil                 # タイル ID 取得失敗 : タグなし
     
418.       tag = $data_tileset.terrain_tags[tile_id]  # 地形タグを取得
     
419.       return tag if tag > 0                      # タグが設定してあれば返す
     
420.     }
     
421.     return 0
     
422.   end
     
423.   #--------------------------------------------------------------------------
     
424.   # ○ 指定方向通行可能判定
     
425.   #     x : X 座標
     
426.   #     y : Y 座標
     
427.   #     d : 移動方向
     
428.   #--------------------------------------------------------------------------
     
429.   def passable_dir?(x, y, d)
     
430.     # 方向 (0,2,4,6,8,10) から 通行フラグ (0,1,2,4,8,0) に変換
     
431.     flag = (1 << (d / 2 - 1)) & 0x0F
     
432. 
     
433.     LAYERS.each { |i|                         # レイヤーの上から順に調べる
     
434.       tile_id = @map.data[x, y, i]            # タイル ID を取得
     
435.       return false if tile_id == nil          # タイル ID 取得失敗 : 通行不可
     
436.       pass = $data_tileset.passages[tile_id]  # タイルセットの通行属性を取得
     
437.       return false if pass & flag != 0x00     # フラグが立っていたら通行不可
     
438.     }
     
439.     return true
     
440.   end
     
441. end
     
442. 
     
443. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
444. 
     
445. #==============================================================================
     
446. # ■ Game_Character
     
447. #==============================================================================
     
448. 
     
449. class Game_Character
     
450.   #--------------------------------------------------------------------------
     
451.   # ○ 通行可能判定
     
452.   #     x : X 座標
     
453.   #     y : Y 座標
     
454.   #     d : 移動方向 (省略時: 10)
     
455.   #--------------------------------------------------------------------------
     
456.   def passable?(x, y, d = 10)
     
457.     nx = moved_x(x, d)
     
458.     ny = moved_y(y, d)
     
459.     nx = $game_map.round_x(nx)                         # 横方向ループ補正
     
460.     ny = $game_map.round_y(ny)                         # 縦方向ループ補正
     
461.     return false unless $game_map.valid?(nx, ny)       # マップ外？
     
462.     return true if @through or debug_through?          # すり抜け ON？
     
463.     return false unless map_passable?(x, y, d)         # 指定方向に移動不能？
     
464.     return false unless map_passable?(nx, ny, 10 - d)  # 移動先が進入不能？
     
465.     return false if collide_with_characters?(nx, ny)   # キャラクターに衝突？
     
466.     return true                                        # 通行可
     
467.   end
     
468.   #--------------------------------------------------------------------------
     
469.   # ○ 移動後の X 座標算出
     
470.   #     x : X 座標
     
471.   #     d : 移動方向
     
472.   #    移動後の X 座標を計算する。
     
473.   #--------------------------------------------------------------------------
     
474.   def moved_x(x, d)
     
475.     return x + (d == 6 ? 1 : d == 4 ? -1 : 0)
     
476.   end
     
477.   #--------------------------------------------------------------------------
     
478.   # ○ 移動後の Y 座標算出
     
479.   #     y : Y 座標
     
480.   #     d : 移動方向
     
481.   #    移動後の Y 座標を計算する。
     
482.   #--------------------------------------------------------------------------
     
483.   def moved_y(y, d)
     
484.     return y + (d == 2 ? 1 : d == 8 ? -1 : 0)
     
485.   end
     
486.   #--------------------------------------------------------------------------
     
487.   # ○ マップ通行可能判定
     
488.   #     x : X 座標
     
489.   #     y : Y 座標
     
490.   #     d : 移動方向
     
491.   #    指定座標の指定した方向が通行可能かを取得する。
     
492.   #--------------------------------------------------------------------------
     
493.   def map_passable?(x, y, d)
     
494.     return $game_map.passable?(x, y) && $game_map.passable_dir?(x, y, d)
     
495.   end
     
496.   #--------------------------------------------------------------------------
     
497.   # ● 下に移動
     
498.   #     turn_ok : その場での向き変更を許可
     
499.   #--------------------------------------------------------------------------
     
500.   def move_down(turn_ok = true)
     
501.     if passable?(@x, @y, 2)                 # 通行可能
     
502.       turn_down
     
503.       @y = $game_map.round_y(@y+1)
     
504.       @real_y = (@y-1)*256
     
505.       increase_steps
     
506.       @move_failed = false
     
507.     else                                    # 通行不可能
     
508.       turn_down if turn_ok
     
509.       check_event_trigger_touch(@x, @y+1)   # 接触イベントの起動判定
     
510.       @move_failed = true
     
511.     end
     
512.   end
     
513.   #--------------------------------------------------------------------------
     
514.   # ● 左に移動
     
515.   #     turn_ok : その場での向き変更を許可
     
516.   #--------------------------------------------------------------------------
     
517.   def move_left(turn_ok = true)
     
518.     if passable?(@x, @y, 4)                 # 通行可能
     
519.       turn_left
     
520.       @x = $game_map.round_x(@x-1)
     
521.       @real_x = (@x+1)*256
     
522.       increase_steps
     
523.       @move_failed = false
     
524.     else                                    # 通行不可能
     
525.       turn_left if turn_ok
     
526.       check_event_trigger_touch(@x-1, @y)   # 接触イベントの起動判定
     
527.       @move_failed = true
     
528.     end
     
529.   end
     
530.   #--------------------------------------------------------------------------
     
531.   # ● 右に移動
     
532.   #     turn_ok : その場での向き変更を許可
     
533.   #--------------------------------------------------------------------------
     
534.   def move_right(turn_ok = true)
     
535.     if passable?(@x, @y, 6)                 # 通行可能
     
536.       turn_right
     
537.       @x = $game_map.round_x(@x+1)
     
538.       @real_x = (@x-1)*256
     
539.       increase_steps
     
540.       @move_failed = false
     
541.     else                                    # 通行不可能
     
542.       turn_right if turn_ok
     
543.       check_event_trigger_touch(@x+1, @y)   # 接触イベントの起動判定
     
544.       @move_failed = true
     
545.     end
     
546.   end
     
547.   #--------------------------------------------------------------------------
     
548.   # ● 上に移動
     
549.   #     turn_ok : その場での向き変更を許可
     
550.   #--------------------------------------------------------------------------
     
551.   def move_up(turn_ok = true)
     
552.     if passable?(@x, @y, 8)                 # 通行可能
     
553.       turn_up
     
554.       @y = $game_map.round_y(@y-1)
     
555.       @real_y = (@y+1)*256
     
556.       increase_steps
     
557.       @move_failed = false
     
558.     else                                    # 通行不可能
     
559.       turn_up if turn_ok
     
560.       check_event_trigger_touch(@x, @y-1)   # 接触イベントの起動判定
     
561.       @move_failed = true
     
562.     end
     
563.   end
     
564.   #--------------------------------------------------------------------------
     
565.   # ● 左下に移動
     
566.   #--------------------------------------------------------------------------
     
567.   def move_lower_left
     
568.     unless @direction_fix
     
569.       @direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
     
570.     end
     
571.     if (passable?(@x, @y, 2) && passable?(@x, @y+1, 4)) ||
     
572.        (passable?(@x, @y, 4) && passable?(@x-1, @y, 2))
     
573.       @x -= 1
     
574.       @y += 1
     
575.       increase_steps
     
576.       @move_failed = false
     
577.     else
     
578.       @move_failed = true
     
579.     end
     
580.   end
     
581.   #--------------------------------------------------------------------------
     
582.   # ● 右下に移動
     
583.   #--------------------------------------------------------------------------
     
584.   def move_lower_right
     
585.     unless @direction_fix
     
586.       @direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
     
587.     end
     
588.     if (passable?(@x, @y, 2) && passable?(@x, @y+1, 6)) ||
     
589.        (passable?(@x, @y, 6) && passable?(@x+1, @y, 2))
     
590.       @x += 1
     
591.       @y += 1
     
592.       increase_steps
     
593.       @move_failed = false
     
594.     else
     
595.       @move_failed = true
     
596.     end
     
597.   end
     
598.   #--------------------------------------------------------------------------
     
599.   # ● 左上に移動
     
600.   #--------------------------------------------------------------------------
     
601.   def move_upper_left
     
602.     unless @direction_fix
     
603.       @direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
     
604.     end
     
605.     if (passable?(@x, @y, 8) && passable?(@x, @y-1, 4)) ||
     
606.        (passable?(@x, @y, 4) && passable?(@x-1, @y, 8))
     
607.       @x -= 1
     
608.       @y -= 1
     
609.       increase_steps
     
610.       @move_failed = false
     
611.     else
     
612.       @move_failed = true
     
613.     end
     
614.   end
     
615.   #--------------------------------------------------------------------------
     
616.   # ● 右上に移動
     
617.   #--------------------------------------------------------------------------
     
618.   def move_upper_right
     
619.     unless @direction_fix
     
620.       @direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
     
621.     end
     
622.     if (passable?(@x, @y, 8) && passable?(@x, @y-1, 6)) ||
     
623.        (passable?(@x, @y, 6) && passable?(@x+1, @y, 8))
     
624.       @x += 1
     
625.       @y -= 1
     
626.       increase_steps
     
627.       @move_failed = false
     
628.     else
     
629.       @move_failed = true
     
630.     end
     
631.   end
     
632. end
     
633. 
     
634. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
635. 
     
636. #==============================================================================
     
637. # ■ Game_Player
     
638. #==============================================================================
     
639. 
     
640. class Game_Player < Game_Character
     
641.   #--------------------------------------------------------------------------
     
642.   # ○ マップ通行可能判定
     
643.   #     x : X 座標
     
644.   #     y : Y 座標
     
645.   #     d : 移動方向
     
646.   #    指定座標の指定した方向が通行可能かを取得する。
     
647.   #--------------------------------------------------------------------------
     
648.   alias map_passable_KGC_TilesetExtension? map_passable?
     
649.   def map_passable?(x, y, d)
     
650.     return false unless map_passable_KGC_TilesetExtension?(x, y)
     
651. 
     
652.     return $game_map.passable_dir?(x, y, d)
     
653.   end
     
654. 
     
655.   if $TEST && KGC::TilesetExtension::DEBUG_INFO_BUTTON != nil
     
656.   #--------------------------------------------------------------------------
     
657.   # ● フレーム更新
     
658.   #--------------------------------------------------------------------------
     
659.   alias update_KGC_TilesetExtension update
     
660.   def update
     
661.     update_KGC_TilesetExtension
     
662. 
     
663.     if Input.trigger?(KGC::TilesetExtension::DEBUG_INFO_BUTTON)
     
664.       show_passage_and_terrain_tag
     
665.     end
     
666.   end
     
667.   #--------------------------------------------------------------------------
     
668.   # ○ プレイヤー位置の通行フラグ・地形タグを表示
     
669.   #--------------------------------------------------------------------------
     
670.   def show_passage_and_terrain_tag
     
671.     passage = $game_map.passage(x, y)
     
672.     tag = $game_map.terrain_tag(x, y)
     
673. 
     
674.     # デバッグ情報作成
     
675.     s = "通行可能: "
     
676.     s += "↓" if passage & DirectionFlag::DOWN  == 0x00
     
677.     s += "←" if passage & DirectionFlag::LEFT  == 0x00
     
678.     s += "→" if passage & DirectionFlag::RIGHT == 0x00
     
679.     s += "↑" if passage & DirectionFlag::UP    == 0x00
     
680.     s += "  地形标记: #{tag}"
     
681. 
     
682.     p s
     
683.   end
     
684.   end
     
685. 
     
686. end
     
687. 
     
688. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
689. 
     
690. #==============================================================================
     
691. # ■ Sprite_Character
     
692. #==============================================================================
     
693. 
     
694. class Sprite_Character < Sprite_Base
     
695.   #--------------------------------------------------------------------------
     
696.   # ● 指定されたタイルが含まれるタイルセット画像の取得
     
697.   #     tile_id : タイル ID
     
698.   #--------------------------------------------------------------------------
     
699.   def tileset_bitmap(tile_id)
     
700.     filename = KGC::TilesetExtension.get_tileset_filename
     
701.     set_number = tile_id / 256
     
702.     return Cache.system(filename["B"]) if set_number == 0
     
703.     return Cache.system(filename["C"]) if set_number == 1
     
704.     return Cache.system(filename["D"]) if set_number == 2
     
705.     return Cache.system(filename["E"]) if set_number == 3
     
706.     return nil
     
707.   end
     
708. end
     
709. 
     
710. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
711. 
     
712. #==============================================================================
     
713. # ■ Spriteset_Map
     
714. #==============================================================================
     
715. 
     
716. class Spriteset_Map
     
717.   #--------------------------------------------------------------------------
     
718.   # ● タイルマップの作成
     
719.   #--------------------------------------------------------------------------
     
720.   def create_tilemap
     
721.     filename = KGC::TilesetExtension.get_tileset_filename
     
722.     @tilemap = Tilemap.new(@viewport1)
     
723.     @tilemap.bitmaps[0] = Cache.system(filename["A1"])
     
724.     @tilemap.bitmaps[1] = Cache.system(filename["A2"])
     
725.     @tilemap.bitmaps[2] = Cache.system(filename["A3"])
     
726.     @tilemap.bitmaps[3] = Cache.system(filename["A4"])
     
727.     @tilemap.bitmaps[4] = Cache.system(filename["A5"])
     
728.     @tilemap.bitmaps[5] = Cache.system(filename["B"])
     
729.     @tilemap.bitmaps[6] = Cache.system(filename["C"])
     
730.     @tilemap.bitmaps[7] = Cache.system(filename["D"])
     
731.     @tilemap.bitmaps[8] = Cache.system(filename["E"])
     
732.     @tilemap.map_data = $game_map.data
     
733.     @tilemap.passages = $game_map.passages
     
734.   end
     
735. end
     
736. 
     
737. #★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
     
738. 
     
739. #==============================================================================
     
740. # ■ Scene_Title
     
741. #==============================================================================
     
742. 
     
743. class Scene_Title < Scene_Base
     
744.   #--------------------------------------------------------------------------
     
745.   # ● データベースのロード
     
746.   #--------------------------------------------------------------------------
     
747.   alias load_database_KGC_TilesetExtension load_database
     
748.   def load_database
     
749.     load_database_KGC_TilesetExtension
     
750. 
     
751.     load_tileset
     
752.   end
     
753.   #--------------------------------------------------------------------------
     
754.   # ○ タイルセット付加情報のロード
     
755.   #--------------------------------------------------------------------------
     
756.   def load_tileset
     
757.     begin
     
758.       $data_tileset = load_data("Data/#{KGC::TilesetExtension::EX_RVDATA}")
     
759.     rescue
     
760.       $data_tileset = RPG::Tileset.new
     
761.     end
     
762.   end
     
763. end
     

复制代码

附上图块扩张脚本