【VX→VA】两个关于地图脚本的移植请求

荷包PIG蛋 · 发表于 2012-7-30 17:46:55

好吧，表示最近在搞VA。。。打算参加短篇7。。。于是发现了两个不错的VX脚本。。。是“地图贴图”和“图块遮罩”（名字自己瞎起的，详见脚本~）。。。
于是滚过来求转换。。。因为Map方面VA修改得不大。。。所以自认为应该不难吧。。。

除此之外，还有两个帖子求关注：
http://rpg.blue/thread-243881-1-1.html
http://rpg.blue/thread-243840-1-1.html

图块遮罩：

#============================================================================

#

#　■壁タイル拡張　□Ver.4.21　□製作者：月紳士

#　・RPGツクールVX用 RGSS2スクリプト

#

# ●…書き換えメソッド(競合注意)　◎…メソッドのエイリアス　○…新規メソッド

#

# ※二次配布禁止！配布元には利用規約があります。必ずそちらを見てください。

#------------------------------------------------------------------------------

# ※　このスクリプトは「段差マップ通行判定拡張」をリネームしたものです。

#------------------------------------------------------------------------------

# 更新履歴

# Ver.4.21 FUNCTION_TILEのIDに説明との誤りがあった為、修正。

# Ver.4.20 イベント側からの接触判定に段違い処理を導入。

# Ver.4.13 前回の修正より、エリア系処理が機能しなくなっていた不具合の修正。

# Ver.4.12 ゲームロード時に特殊通行判定が無効になっていた不具合の修正。

# Ver.4.11 影消しタイルの不具合修正。

# Ver.4.10 マップデータの先読み機能、処理無視エリア設定の追加。

# Ver.4.00 マップ移動時の処理軽量化と様々な不具合修正。

#

# ※これ以前の更新履歴はマニュアルを参考にしてください。

#============================================================================

=begin

　このスクリプトは壁タイルの、主に通行判定を拡張し、

　次のような表現を可能にします。

　○ 天井や屋根を歩くことが出来るようになる。

　

　○ 壁・天井・屋根タイル・橋タイルの裏(下)へキャラが回り込む

　※ 詳しい説明はマニュアルをご覧ください。

=end

#------------------------------------------------------------------------------

#==============================================================================

# □ カスタマイズ項目

#==============================================================================

module Expansion_Passable

CLIFF_MAP = [4, 5]

# 段差マップを使用するマップのID

BACK_TILE_DEEP = false

# 壁の深さを増すなら = true に。戻すなら = false に。

BACK_SEEING = false

# 裏回りした際、キャラを透過するなら = true に。しないなら = false に。

SHADOW_ERASER_TILE_ID = 768

# 「影消しタイル」にするタイルのIDをここで指定します。

# このタイルが不要な際は = nil としてください。

PROHIBITED_GET_OFF_TILE_ID = 769

# 「接岸禁止」地点を示す為に使うタイルのIDをここで指定します。

# このタイルが不要な際は = nil としてください。

ADDITION_BACK_TILE_ID = 770

# 「追加裏回り部分」を示す為に使うタイルのIDをここで指定します。

# このタイルが不要な際は = nil としてください。

DELETE_BACK_TILE_ID = 771

# 「裏回り部分消去」を示す為に使うタイルのIDをここで指定します。

# このタイルが不要な際は = nil としてください。

ESCAPE_MAP = [99]

# 裏回り処理自体をまったく行わないマップのID

# 広いフィールドマップなどを、その読み込みを早める為に登録してください。

end

#==============================================================================

# □ タイル情報　※カスタマイズ可能(上級者向け)

#==============================================================================

module Data_Tile

# 擬似段差機能を使用する屋根・天井・地形タイル

FUNCTION_TILE = [

2816, 2960, # 草原(フィールド用, 屋外用)

3200, 3344, # 乾燥地帯(フィールド用, 屋外用)

3584, 3728, # 砂漠(フィールド用, 屋外用)

3968, 4112, # 雪原(フィールド用, 屋外用)

4352, 4400, 4448, 4496, 4544, 4592, 4640, 4688, # 屋根 (1列目)

4736, 4784, 4832, 4880, 4928, 4976, 5024, 5072, # 建物の壁(1列目)

5120, 5168, 5216, 5264, 5312, 5360, 5408, 5456, # 屋根 (2列目)

5504, 5552, 5600, 5648, 5696, 5744, 5792, 5840, # 建物の壁(2列目)

5888, 5936, 5984, 6032, 6080, 6128, 6176, 6224, # 洞窟の天井(1列目)

6272, 6320, 6368, 6416, 6464, 6512, 6560, 6608, # 洞窟の壁 (1列目)

6656, 6704, 6752, 6800, 6848, 6896, 6944, 6992, # 洞窟の天井(2列目)

7040, 7088, 7136, 7184, 7232, 7280, 7328, 7376, # 洞窟の壁 (2列目)

7424, 7472, 7520, 7568, 7616, 7664, 7712, 7760, # 洞窟の天井(3列目)

7808, 7856, 7904, 7952, 8000, 8048, 8096, 8144, # 洞窟の壁 (3列目)

1904, 1952, 2000] # ダミータイルID(消さないこと)

# ※ 機能を使いたくないタイルがあればここから削ってください。

# 　 (削り専用、付け加えても効果はありません)

# 縦の橋としてあつかうタイルID

BRIDRE_LENGTH = [17, 18, 20, 22]

# 横の橋としてあつかうタイルID

BRIDGE_BREADTH = [16, 19, 21, 23]

# 階段・梯子・洞窟の入り口としてあつかうタイルID(ステップタイル)

STEP = [67, 68, 69, 70, 71, 172, 173, 174, 175,

260, 261, 262, 263, 268, 269, 270,

271, 278, 279, 284, 285, 286, 287,

612, 613, 616, 617, 618, 619,

1600, 1601, 1602, 1603, 1604, 1605, 1606, 1607,

1608, 1609, 1610, 1611, 1612, 1613, 1614, 1615]

# ※ これらのタイルが隣接している時に、境目の通行不可判定を無視させます。

# 橋の下の通行判定処理用　タイルID

UNDER_BRIDGE = 1664

# ※ デフォルトのID_1664はゲームでは使用されない、画像のないタイルです。

# 必要がなければ変更しないで結構です。

end

#==============================================================================

# □ オートタイル情報　※変更はしないでください。

#==============================================================================

module Data_Auto_Tile

# 境目があるチップを方向ごとに配列化したもの↓(オートタイル内でのID)

# 床タイプ

VERGE_DOWN_A = [28, 29, 30, 31, 33, 38, 39, 40, 41, 43, 44, 45, 46]

VERGE_LEFT_A = [16, 17, 18, 19, 32, 34, 35, 40, 41, 42, 43, 44, 46]

VERGE_RIGHT_A = [24, 25, 26, 27, 32, 36, 37, 38, 39, 42, 44, 45, 46]

VERGE_UP_A = [20, 21, 22, 23, 33, 34, 35, 36, 37, 42, 43, 45, 46]

# 壁タイプ

VERGE_DOWN_B = [8, 9, 10, 11, 12, 13, 14, 15]

VERGE_LEFT_B = [1, 3, 5, 7, 9, 11, 13, 15]

VERGE_RIGHT_B = [4, 5, 6, 7, 12, 13, 14, 15]

VERGE_UP_B = [2, 3, 6, 7, 10, 11, 14, 15]

end

#==============================================================================

# ■ RPG::Area

#==============================================================================

class RPG::Area

#--------------------------------------------------------------------------

# ○ 公開インスタンス変数

#--------------------------------------------------------------------------

attr_accessor :ship_pass

attr_accessor :disregard_processing

end

#==============================================================================

# ■ Game_Map

#------------------------------------------------------------------------------

# 　マップを扱うクラスです。スクロールや通行可能判定などの機能を持っています。

# このクラスのインスタンスは $game_map で参照されます。

#==============================================================================

class Game_Map

#--------------------------------------------------------------------------

# ○ 公開インスタンス変数

#--------------------------------------------------------------------------

attr_reader :map

attr_reader :ex_data

attr_reader :under_bridge_passages # 橋の下の通行判定

attr_reader :back_tiles_position # 裏回りする座標

attr_reader :keep_back_position # 裏回りを維持する座標

attr_reader :prohibited_get_off # 接岸禁止座標

attr_reader :ex_data # 拡張レイヤー用タイルデータ

#--------------------------------------------------------------------------

# ◎ セットアップ

# map_id : マップ ID

#--------------------------------------------------------------------------

alias tig_ew_setup setup

def setup(map_id)

tig_ew_setup(map_id)

create_ex_passages

pick_up_back_tiles

setup_back_tiles

$game_player.set_on_tile

for event in $game_map.events.values

event.update_turn_back

end

end

#--------------------------------------------------------------------------

# ○ 指定座標のタイルIDの取得

#--------------------------------------------------------------------------

def point_tile_id(x, y)

return [data[x, y, 0], data[x, y, 1], data[x, y, 2]]

end

#--------------------------------------------------------------------------

# ○ オートタイルIDの取得（オートタイル郡の中で順番にIDをつけた独自のIDです）

#--------------------------------------------------------------------------

def auto_(tile_id)

return 0 unless (1904...8192).include?(tile_id)

return (tile_id - 1904) % 48

end

#--------------------------------------------------------------------------

# ○ トップタイルIDの取得（オートタイル郡の最初のID）

#--------------------------------------------------------------------------

def top_(tile_id)

return 0 if tile_id == nil

return (tile_id - auto_(tile_id))

end

#--------------------------------------------------------------------------

# ○ スクリプト機能を使用する屋根・天井・壁タイルか？

#--------------------------------------------------------------------------

def ceiling?(tile_id)

return false unless Data_Tile::FUNCTION_TILE.include?(top_(tile_id))

return true if wall?(tile_id)

return true if (2000...2048).include?(tile_id)

return true if (4352...4736).include?(tile_id)

return true if (5120...5504).include?(tile_id)

return true if (5888...6272).include?(tile_id)

return true if (6656...7040).include?(tile_id)

return (7424...7808).include?(tile_id)

end

#--------------------------------------------------------------------------

# ○ スクリプト機能を使用する壁タイルか？

#--------------------------------------------------------------------------

def wall?(tile_id)

return false unless Data_Tile::FUNCTION_TILE.include?(top_(tile_id))

return true if (1904...2000).include?(tile_id)

return true if (4736...5120).include?(tile_id)

return true if (5504...5888).include?(tile_id)

return true if (6272...6656).include?(tile_id)

return true if (7040...7424).include?(tile_id)

return (7808...8192).include?(tile_id)

end

#--------------------------------------------------------------------------

# ○ スクリプト機能を使用する地形タイルか？

#--------------------------------------------------------------------------

def cliff?(tile_id)

return false unless Data_Tile::FUNCTION_TILE.include?(top_(tile_id))

return [2816, 3200, 3584, 2960, 3344, 3728, 4112].include?(top_(tile_id))

end

#--------------------------------------------------------------------------

# ○ 指定の向きにオートタイルチップの境目があるか？

#--------------------------------------------------------------------------

def verge?(tile_id, direction)

auto_tile_id = auto_(tile_id)

return false if auto_tile_id == 0

return false unless ceiling?(tile_id) or cliff?(tile_id)

if (1904...2000).include?(tile_id) or

(4352...5888).include?(tile_id) or

(6272...6656).include?(tile_id) or

(7040...7424).include?(tile_id) or

(7808...8192).include?(tile_id) # オートタイルの線画タイプ判別

case direction # 壁タイプの場合　方向ごとに振り分け

when 2 ; return true if Data_Auto_Tile::VERGE_DOWN_B.include?(auto_tile_id)

when 4 ; return true if Data_Auto_Tile::VERGE_LEFT_B.include?(auto_tile_id)

when 6 ; return true if Data_Auto_Tile::VERGE_RIGHT_B.include?(auto_tile_id)

when 8 ; return true if Data_Auto_Tile::VERGE_UP_B.include?(auto_tile_id)

end

else

case direction # 床タイプの場合　方向ごとに振り分け

when 2 ; return true if Data_Auto_Tile::VERGE_DOWN_A.include?(auto_tile_id)

when 4 ; return true if Data_Auto_Tile::VERGE_LEFT_A.include?(auto_tile_id)

when 6 ; return true if Data_Auto_Tile::VERGE_RIGHT_A.include?(auto_tile_id)

when 8 ; return true if Data_Auto_Tile::VERGE_UP_A.include?(auto_tile_id)

end

end

end

#--------------------------------------------------------------------------

# ○ 指定の向きに有効な境目があるか？

#--------------------------------------------------------------------------

def rip?(direction, x, y, floating = false)

#- 位置情報の準備

tile_id = point_tile_id(x, y)

front_x = x_with_direction(x, direction)

front_y = y_with_direction(y, direction)

front_tile_id = point_tile_id(front_x, front_y)

#- ステップタイルがあれば無効

return false if Data_Tile::STEP.include?(front_tile_id[0])

return false if Data_Tile::STEP.include?(front_tile_id[2])

return false if Data_Tile::STEP.include?(tile_id[0])

return false if Data_Tile::STEP.include?(tile_id[2])

#- 橋タイルの処理

if floating

if Data_Tile::BRIDRE_LENGTH.include?(tile_id[2]) or

Data_Tile::BRIDGE_BREADTH.include?(tile_id[2])

return false if @under_bridge_passages[[x, y]] == -1

elsif Data_Tile::BRIDRE_LENGTH.include?(front_tile_id[2]) or

Data_Tile::BRIDGE_BREADTH.include?(front_tile_id[2])

return false if @under_bridge_passages[[front_x, front_y]] == -1

end

end

if bridge?(front_tile_id[2], direction)

return false

elsif Data_Tile::BRIDRE_LENGTH.include?(tile_id[2]) and back_tile?(x, y)

return true if direction == 4 or direction == 6

return false if direction == 2 or direction == 8

elsif Data_Tile::BRIDGE_BREADTH.include?(tile_id[2]) and back_tile?(x, y)

return true if direction == 2 or direction == 8

return false if direction == 4 or direction == 6

end

#- 地形タイルの処理

if cliff?(tile_id[0])

if Expansion_Passable::CLIFF_MAP.include?($game_map.map_id)

return false unless ceiling?(front_tile_id[0]) or cliff?(front_tile_id[0])

if cliff?(front_tile_id[0]) and verge?(front_tile_id[0], 10 - direction)

return false

end

else

return false

end

end

#- タイルに境目があるか？

return verge?(tile_id[0], direction)

end

#--------------------------------------------------------------------------

# ○ 指定の向きに準じた橋タイルか？（渡ることの出来る向きか）

#--------------------------------------------------------------------------

def bridge?(tile_id, direction)

if direction == 2 or direction == 8

return true if Data_Tile::BRIDRE_LENGTH.include?(tile_id)

elsif direction == 4 or direction == 6

return true if Data_Tile::BRIDGE_BREADTH.include?(tile_id)

end

return false

end

#--------------------------------------------------------------------------

# ○ 上層に移すタイルか？

#--------------------------------------------------------------------------

def upper_layer?(tile_id)

return false if @back_tiles_a == nil

if Expansion_Passable::CLIFF_MAP.include?(@map_id)

return true if @back_tiles_b.include?(tile_id)

else

unless cliff?(tile_id)

return true if @back_tiles_a.include?(tile_id)

end

end

end

#--------------------------------------------------------------------------

# ○ <船の橋下通過>処理をするエリアか？

#--------------------------------------------------------------------------

def ship_pass_area?(x, y)

result = false

for area in $data_areas.values

next if area == nil

next unless area.ship_pass

next if $game_map.map_id != area.map_id

next if x < area.rect.x

next if y < area.rect.y

next if x >= area.rect.x + area.rect.width

next if y >= area.rect.y + area.rect.height

result = true

end

return result

end

#--------------------------------------------------------------------------

# ○ 処理の無視をするエリアか？

#--------------------------------------------------------------------------

def disregard_processing_area?(x, y, map_id)

result = false

for area in $data_areas.values

next if area == nil

next unless area.disregard_processing

next if map_id != area.map_id

next if x < area.rect.x

next if y < area.rect.y

next if x >= area.rect.x + area.rect.width

next if y >= area.rect.y + area.rect.height

result = true

end

return result

end

#--------------------------------------------------------------------------

# ○ 段差マップか？

#--------------------------------------------------------------------------

def cliff_map?

return Expansion_Passable::CLIFF_MAP.include?(@map_id)

end

#--------------------------------------------------------------------------

# ○ 特殊通行判定の作成

#--------------------------------------------------------------------------

def create_ex_passages

@ex_passages = $data_system.passages

#- 壁・屋根・天井タイルの通行判定を○に変える

for i in 1904...2048

@ex_passages[i] = 0x06 if ceiling?(i)

end

for i in 4352...8192

@ex_passages[i] = 0x06 if ceiling?(i)

end

#- 橋タイルの通行判定を○に

for i in (Data_Tile::BRIDRE_LENGTH + Data_Tile::BRIDGE_BREADTH)

@ex_passages[i] = 0x00

end

@passages = @ex_passages

end

#--------------------------------------------------------------------------

# ○ 接岸禁止タイル登録

# map_id : マップ ID

#--------------------------------------------------------------------------

def prohibited_get_off_set(x, y)

@map.data[x, y, 2] = 0

@prohibited_get_off.push([x, y])

end

#--------------------------------------------------------------------------

# ○ 影消しタイル処理

#--------------------------------------------------------------------------

def shadow_eraser(x, y)

r_x = round_x(x - 1) ; r_y = round_y(y - 1)

tile_id = @map.data[r_x, y, 0]

# 壁(線画・壁タイプ)

if (4736...5120).include?(tile_id) or

(5504...5888).include?(tile_id) or

(6272...6656).include?(tile_id) or

(7040...7424).include?(tile_id) or

(7808...8192).include?(tile_id)

dummy_tile_id = 1904 + auto_(tile_id)

# 屋根(線画・壁タイプ)

elsif (4352...4736).include?(tile_id) or

(5120...5504).include?(tile_id)

dummy_tile_id = 1952 + auto_(tile_id)

# 天井(線画・床タイプ)

elsif (5888...6272).include?(tile_id) or

(6656...7040).include?(tile_id) or

(7424...7808).include?(tile_id)

dummy_tile_id = 2000 + auto_(tile_id)

else

return

end

@map.data[r_x, r_y, 1] = @map.data[r_x, r_y, 0]

@map.data[r_x, r_y, 0] = dummy_tile_id

end

#--------------------------------------------------------------------------

# ○ 裏回り消去タイル処理

#--------------------------------------------------------------------------

def back_tiles_position_delete(x, y)

return if Expansion_Passable::DELETE_BACK_TILE_ID == nil

y = round_y(y+1) if Expansion_Passable::BACK_TILE_DEEP

if @map.data[x, y, 2] == Expansion_Passable::DELETE_BACK_TILE_ID or

@ex_data[x, y, 2] == Expansion_Passable::DELETE_BACK_TILE_ID

@back_tiles_position.delete([x, y])

@map.data[x, y, 2] = 0

@ex_data[x, y, 2] = 0

end

end

#--------------------------------------------------------------------------

# ○ 裏回り用タイル種類ピックアップ

#--------------------------------------------------------------------------

def pick_up_back_tiles

return if @back_tiles_a != nil

@back_tiles_a = []

@back_tiles_b = []

for i in 1904...8192

next unless ceiling?(i) or cliff?(i)

if wall?(i)

next if verge?(i, 2)

if verge?(i, 4) or verge?(i, 6)

@back_tiles_a.push(i) unless cliff?(i)

end

else

@back_tiles_a.push(i) unless cliff?(i)

@back_tiles_b.push(i) if verge?(i, 8)

end

end

end

#--------------------------------------------------------------------------

# ○ 通行判定初期化と裏回り用タイル座標ピックアップ

#--------------------------------------------------------------------------

def setup_back_tiles

if $game_player.game_map_data.include?(@map_id)

@map = $game_player.game_map_data[@map_id].map

@ex_data = $game_player.game_map_data[@map_id].ex_data

@under_bridge_passages = $game_player.game_map_data[@map_id].under_bridge_passages

@back_tiles_position = $game_player.game_map_data[@map_id].back_tiles_position

@keep_back_position = $game_player.game_map_data[@map_id].keep_back_position

@prohibited_get_off = $game_player.game_map_data[@map_id].prohibited_get_off

return

end

@ex_data = Table.new(width, height, 3)

@under_bridge_passages = {}

@back_tiles_position = []

@keep_back_position = []

@prohibited_get_off = []

return if Expansion_Passable::ESCAPE_MAP.include?(@map_id)

#- 座標毎処理

for x in 0...width

for reverse_y in 1..height

y = height - reverse_y # Y座標を逆順にする為の処理

next if disregard_processing_area?(x, y, @map_id)

tile_id = point_tile_id(x, y)

#- 橋タイル処理

if (Data_Tile::BRIDRE_LENGTH + Data_Tile::BRIDGE_BREADTH).include?(tile_id[2])

if (2048...2815).include?(tile_id[0])

if ship_pass_area?(x, y)

@under_bridge_passages[[x, y]] = 1

@back_tiles_position.push([x, y])

@ex_data[x, y, 2] = @map.data[x, y, 2]

else

@back_tiles_position.push([x, y])

@under_bridge_passages[[x, y]] = -1

end

elsif @passages[tile_id[0]] != 0x06 or $game_map.wall?(tile_id[0])

@under_bridge_passages[[x, y]] = -1

@back_tiles_position.push([x, y])

@ex_data[x, y, 2] = @map.data[x, y, 2]

else

@under_bridge_passages[[x, y]] = 0

@back_tiles_position.push([x, y])

@ex_data[x, y, 2] = @map.data[x, y, 2]

end

if Data_Tile::BRIDGE_BREADTH.include?(tile_id[2])

@keep_back_position.push([x, round_y(y+1)])

end

#- 通行判定☆タイルを上層に移動

elsif tile_id[2] != 0 and @passages[tile_id[2]] & 0x10 == 0x10

if @back_tiles_position.include?([x, round_y(y+1)])

@keep_back_position.push([x, y])

else

@ex_data[x, y, 2] = @map.data[x, y, 2]

end

end

#- 影消しタイルの処理

if @map.data[x, y, 2] == Expansion_Passable::SHADOW_ERASER_TILE_ID

shadow_eraser(x, y)

@map.data[x, y, 2] = 0

#- 接岸禁止タイルの処理

elsif @map.data[x, y, 2] == Expansion_Passable::PROHIBITED_GET_OFF_TILE_ID

prohibited_get_off_set(x, y)

end

#- 壁・天井タイル処理

if ceiling?(tile_id[0]) or (cliff?(tile_id[0]) and cliff_map?)

#- 基本となる裏回りタイルの場合、裏回り位置に登録

if not wall?(tile_id[0]) and verge?(tile_id[0], 8)

@back_tiles_position.push([x, y])

end

#- 裏回り位置にするタイルの場合、上層に移動

back_tiles = cliff_map? ? @back_tiles_b : @back_tiles_a

if back_tiles.include?(tile_id[0])

@ex_data[x, y, 0] = @map.data[x, y, 0]

@ex_data[x, y, 1] = @map.data[x, y, 1]

#- 裏回り位置追加タイルの誤用時には、タイルを消去する

if tile_id[2] != Expansion_Passable::ADDITION_BACK_TILE_ID

@ex_data[x, y, 2] = @map.data[x, y, 2]

end

@map.data[x, y, 1] = 0

@map.data[x, y, 2] = 0

end

#- 深く裏回りする設定の際の処理(裏回り位置の下をさらに上層に)

if Expansion_Passable::BACK_TILE_DEEP

unless @back_tiles_position.include?([x, round_y(y+1)])

if not wall?(tile_id[0]) and verge?(tile_id[0], 8)

unless wall?(data[x, round_y(y+1), 0]) and verge?(data[x, round_y(y+1), 0], 2)

@back_tiles_position.push([x, round_y(y+1)])

@ex_data[x, round_y(y+1), 0] = @map.data[x, round_y(y+1), 0]

@ex_data[x, round_y(y+1), 1] = @map.data[x, round_y(y+1), 1]

@ex_data[x, round_y(y+1), 2] = @map.data[x, round_y(y+1), 2]

@map.data[x, round_y(y+1), 1] = 0

@map.data[x, round_y(y+1), 2] = 0

end

end

end

end

#- 裏回り追加タイルの処理

if Expansion_Passable::ADDITION_BACK_TILE_ID != nil and

tile_id[2] == Expansion_Passable::ADDITION_BACK_TILE_ID

@back_tiles_position.push([x, y])

@ex_data[x, y, 0] = @map.data[x, y, 0]

@ex_data[x, y, 1] = @map.data[x, y, 1]

@map.data[x, y, 2] = 0

if (2816...8192).include?(@map.data[x, round_y(y-1), 0])

@ex_data[x, round_y(y-1), 0] = @map.data[x, round_y(y-1), 0]

@ex_data[x, round_y(y-1), 1] = @map.data[x, round_y(y-1), 1]

end

end

end

#- 裏回り部分除去タイルの処理

back_tiles_position_delete(x, y)

end

end

end

#--------------------------------------------------------------------------

# ○ 裏回り用タイルの存在する座標か？

#--------------------------------------------------------------------------

def back_tile?(x, y)

return false if @back_tiles_position == nil

return @back_tiles_position.include?([x, y])

end

end

#==============================================================================

# ■ Game_Character

#------------------------------------------------------------------------------

# 　キャラクターを扱うクラスです。このクラスは Game_Player クラスと Game_Event

# クラスのスーパークラスとして使用されます。

#==============================================================================

class Game_Character

#--------------------------------------------------------------------------

# ○ 公開インスタンス変数

#--------------------------------------------------------------------------

attr_reader :on_tile

attr_reader :turn_back

attr_accessor :no_turn_back

attr_reader :back_seeing

attr_reader :not_back_seeing

#--------------------------------------------------------------------------

# ◎ オブジェクト初期化

#--------------------------------------------------------------------------

alias tig_ew_initialize initialize

def initialize

tig_ew_initialize

@vehicle_type = -1

@turn_back = false

@no_turn_back = false

@on_tile = true

@back_seeing = false

@not_back_seeing = false

end

#--------------------------------------------------------------------------

# ◎ フレーム更新

#--------------------------------------------------------------------------

alias tig_ew_update update

def update

if @first_update == nil

update_turn_back

@first_update = true

end

tig_ew_update

end

#--------------------------------------------------------------------------

# ◎ 指定位置に移動

# x : X 座標

# y : Y 座標

#--------------------------------------------------------------------------

alias tig_ew_moveto moveto

def moveto(x, y)

tig_ew_moveto(x, y)

update_turn_back

end

#--------------------------------------------------------------------------

# ◎ ジャンプ時の更新

#--------------------------------------------------------------------------

alias tig_ew_update_jump update_jump

def update_jump

tig_ew_update_jump

update_turn_back

end

#--------------------------------------------------------------------------

# ◎ 移動時の更新

#--------------------------------------------------------------------------

alias tig_ew_update_move update_move

def update_move

tig_ew_update_move

update_turn_back unless moving?

end

#--------------------------------------------------------------------------

# ◎ 歩数増加

#--------------------------------------------------------------------------

alias tig_ew_increase_steps increase_steps

def increase_steps

tig_ew_increase_steps

update_turn_back

end

#--------------------------------------------------------------------------

# ○ ２座標の位置関係を向きで取得

#--------------------------------------------------------------------------

def search_direction(start_x, start_y, arriv_x, arriv_y)

if start_x == arriv_x

if start_y == arriv_y

return 5

elsif start_y < arriv_y

return 2

elsif start_y > arriv_y

return 8

end

elsif start_x < arriv_x

if start_y == arriv_y

return 6

elsif start_y < arriv_y

return 3

elsif start_y > arriv_y

return 9

end

elsif start_x > arriv_x

if start_y == arriv_y

return 4

elsif start_y < arriv_y

return 1

elsif start_y > arriv_y

return 7

end

end

end

#--------------------------------------------------------------------------

# ○ 裏回りセット

#--------------------------------------------------------------------------

def set_turn_back

@turn_back = true

@on_tile = false

end

#--------------------------------------------------------------------------

# ○ 天井載せセット

#--------------------------------------------------------------------------

def set_on_tile

@turn_back = false

@on_tile = true

end

#--------------------------------------------------------------------------

# ○ 裏回り状態更新

#--------------------------------------------------------------------------

def update_turn_back

tile_id = $game_map.point_tile_id(@x, @y)

direction = search_direction(@real_x, @real_y, @x * 256, @y * 256)

if self.is_a?(Game_Player) and [2, 4].include?(@vehicle_type)

@turn_back = false

@no_turn_back = false

@on_tile = true

return

end

#- 段差マップの場合

if Expansion_Passable::CLIFF_MAP.include?($game_map.map_id)

#- 停止時の更新

if direction == 5

@turn_back = false if @no_turn_back

unless $game_map.back_tile?(@x, @y)

@turn_back = false

@no_turn_back = false

end

@on_tile = true unless @turn_back

#- 移動開始時の更新

else

if direction % 2 == 0

if $game_map.rip?(10 - direction, @x, @y, floating?)

@turn_back = true unless @no_turn_back

end

else

if diagonal_move_turn_back(direction, @x, @y)

@turn_back = true unless @no_turn_back

end

end

@on_tile = false if @turn_back

end

if not @turn_back or @no_turn_back

if $game_map.keep_back_position != nil and $game_map.keep_back_position.include?([@x, @y])

@on_tile = false

return

end

end

#- 通常マップの場合

else

#- 停止時の更新

if direction == 5

unless $game_map.back_tile?(@x, @y)

@turn_back = false

@no_turn_back = false

end

if $game_map.upper_layer?(tile_id[0])

@on_tile = true

else

@on_tile = false

end

#- 移動開始時の更新

else

if direction % 2 == 0

if $game_map.rip?(10 - direction, @x, @y, floating?)

@turn_back = true unless @no_turn_back

end

else

if diagonal_move_turn_back(direction, @x, @y)

@turn_back = true unless @no_turn_back

end

end

end

if $game_map.back_tile?(@x, @y)

if @turn_back

@on_tile = false

else

@on_tile = true

end

elsif Data_Tile::STEP.include?(tile_id[0]) or Data_Tile::STEP.include?(tile_id[2])

@on_tile = true

end

end

end

#--------------------------------------------------------------------------

# ○ 斜め移動時の裏回り状態判別

#--------------------------------------------------------------------------

def diagonal_move_turn_back(direction, x, y)

turn_back = false

case direction

when 1

turn_back = true if $game_map.rip?(8, x+1, y, floating?)

turn_back = true if $game_map.rip?(6, x, y, floating?)

turn_back = true if $game_map.rip?(6, x, y-1, floating?)

turn_back = true if $game_map.rip?(8, x, y, floating?)

when 3

turn_back = true if $game_map.rip?(8, x-1, y, floating?)

turn_back = true if $game_map.rip?(4, x, y, floating?)

turn_back = true if $game_map.rip?(4, x, y-1, floating?)

turn_back = true if $game_map.rip?(8, x, y, floating?)

when 7

turn_back = true if $game_map.rip?(6, x, y+1, floating?)

turn_back = true if $game_map.rip?(2, x, y, floating?)

turn_back = true if $game_map.rip?(2, x+1, y, floating?)

turn_back = true if $game_map.rip?(6, x, y, floating?)

when 9

turn_back = true if $game_map.rip?(4, x, y+1, floating?)

turn_back = true if $game_map.rip?(2, x, y, floating?)

turn_back = true if $game_map.rip?(2, x-1, y, floating?)

turn_back = true if $game_map.rip?(4, x, y, floating?)

end

return turn_back

end

#--------------------------------------------------------------------------

# ○ この場が裏か判定

#--------------------------------------------------------------------------

def back_tile?(pos)

return $game_map.back_tile?(pos[0], pos[1])

end

#--------------------------------------------------------------------------

# ○ 橋の下の通行判定

#--------------------------------------------------------------------------

def under_bridge_passages(pos)

return true unless $game_map.under_bridge_passages.key?(pos)

case @vehicle_type

when -1

return $game_map.under_bridge_passages[pos] == 0

when 0..1

return $game_map.under_bridge_passages[pos] > 0

when 5

return $game_map.under_bridge_passages[pos] >= 0

else

return false

end

end

#--------------------------------------------------------------------------

# ○ 浮かんでいるか？(乗り物拡張用・魔法の絨毯搭乗時)

#--------------------------------------------------------------------------

def floating?

return false

end

#--------------------------------------------------------------------------

# ○ 壁タイル拡張通行判定

#--------------------------------------------------------------------------

# x , y を省略すると…

# プレイヤーの現在位置(始点)からdirection方向へ通過出来るかどうかを判定。

# x , y を代入すると…

# その座標(終点)へdirection方向から進入できるかどうかを判定。

#--------------------------------------------------------------------------

def ex_passable(direction, x = nil, y = nil, turn_back = nil)

return true if debug_through? # デバッグ動作中なら通行可

return true if @through # すり抜け中なら通行可

#- 位置情報の準備

if x == nil

start_pos = [@x, @y]

arriv_pos = [$game_map.x_with_direction(@x, direction), $game_map.y_with_direction(@y, direction)]

else

start_pos = [$game_map.x_with_direction(x, 10 - direction), $game_map.y_with_direction(y, 10 - direction)]

arriv_pos = [x, y]

end

start_tile = $game_map.point_tile_id(start_pos[0], start_pos[1])

arriv_tile = $game_map.point_tile_id(arriv_pos[0], arriv_pos[1])

start_side_rip = $game_map.rip?(direction, start_pos[0], start_pos[1], floating?)

arriv_side_rip = $game_map.rip?(10 - direction, arriv_pos[0], arriv_pos[1], floating?)

turn_back = @turn_back if turn_back == nil

#- 階段タイルなら通行可

unless back_tile?(start_pos) and turn_back

return true if Data_Tile::STEP.include?(arriv_tile[0])

return true if Data_Tile::STEP.include?(arriv_tile[2])

unless $game_map.wall?(arriv_tile[0])

return true if Data_Tile::STEP.include?(start_tile[0])

return true if Data_Tile::STEP.include?(start_tile[2])

end

end

#- 境目＆橋の下の通行判定

if back_tile?(start_pos) and turn_back # 始点が裏かつ裏回り中

return false unless under_bridge_passages(arriv_pos) # 橋の下の通行判定

unless back_tile?(arriv_pos) # 終点が裏でない

if start_side_rip # 始点側に境目がある

if arriv_side_rip # 終点側に境目がある

return false

else

return false if $game_map.wall?(arriv_tile[0])

end

else # 始点側に境目がない

return false

end

end

else # 始点は裏でない

unless $game_map.bridge?(arriv_tile[2], direction) or # 橋がなければ

$game_map.bridge?(start_tile[2], direction)

if start_side_rip # 始点側に境目がある

return false

else # 始点側に境目がない

if arriv_side_rip # 終点側に境目がある

if back_tile?(arriv_pos) # 終点が裏

unless $game_map.bridge?(start_tile[2], direction) # この場が橋でなければ

return false unless under_bridge_passages(arriv_pos) # 橋の下の通行判定

turn_back = true

end

else # 終点が裏でない

unless $game_map.bridge?(start_tile[2], direction) # この場が橋でなければ

return false

end

end

else # 終点側に境目がない

return false if $game_map.wall?(arriv_tile[0])

end

end

end

end

#- 上層の通行判定

if $game_map.upper_layer?(arriv_tile[0]) and not turn_back

for i in [2, 1, 0] # レイヤーの上から順に調べる

tile_id = $game_map.ex_data[arriv_pos[0], arriv_pos[1], i] # タイル ID を取得

unless tile_id == nil

pass = $game_map.passages[tile_id] # 通行属性を取得

next if pass & 0x10 == 0x10 # [☆] : 通行に影響しない

next if pass & 0x01 == 0x00 # [○] : 通行可

if pass & 0x01 == 0x01 # [×] : 通行不可

return false

end

end

end

end

return true

end

#--------------------------------------------------------------------------

# ◎ 下に移動

# turn_ok : その場での向き変更を許可

#--------------------------------------------------------------------------

alias tig_ew_move_down move_down

def move_down(turn_ok = true)

unless ex_passable(2)

turn_down if turn_ok

@move_failed = true

check_event_trigger_touch(@x, @y+1) # 接触イベントの起動判定

return

end

tig_ew_move_down(turn_ok)

end

#--------------------------------------------------------------------------

# ◎ 左に移動

# turn_ok : その場での向き変更を許可

#--------------------------------------------------------------------------

alias tig_ew_move_left move_left

def move_left(turn_ok = true)

unless ex_passable(4)

turn_left if turn_ok

@move_failed = true

check_event_trigger_touch(@x-1, @y) # 接触イベントの起動判定

return

end

tig_ew_move_left(turn_ok)

end

#--------------------------------------------------------------------------

# ◎ 右に移動

# turn_ok : その場での向き変更を許可

#--------------------------------------------------------------------------

alias tig_ew_move_right move_right

def move_right(turn_ok = true)

unless ex_passable(6)

turn_right if turn_ok

check_event_trigger_touch(@x+1, @y) # 接触イベントの起動判定

@move_failed = true

return

end

tig_ew_move_right(turn_ok)

end

#--------------------------------------------------------------------------

# ◎ 上に移動

# turn_ok : その場での向き変更を許可

#--------------------------------------------------------------------------

alias tig_ew_move_up move_up

def move_up(turn_ok = true)

unless ex_passable(8)

turn_up if turn_ok

check_event_trigger_touch(@x, @y-1) # 接触イベントの起動判定

@move_failed = true

return

end

tig_ew_move_up(turn_ok)

end

#--------------------------------------------------------------------------

# ◎ 左下に移動

#--------------------------------------------------------------------------

alias tig_ew_move_lower_left move_lower_left

def move_lower_left

turn_back1 = $game_map.rip?(8, @x, @y+1) ? true : @turn_back

turn_back2 = $game_map.rip?(6, @x-1, @y) ? true : @turn_back

unless passable?(@x, @y+1) and passable?(@x-1, @y) and passable?(@x-1, @y+1) and

ex_passable(2) and ex_passable(4, @x-1, @y+1, turn_back1) and

ex_passable(4) and ex_passable(2, @x-1, @y+1, turn_back2)

if @direction == 2

if passable?(@x-1, @y) and ex_passable(4)

move_left

else

move_down

end

elsif @direction == 4

if passable?(@x, @y+1) and ex_passable(2)

move_down

else

move_left

end

end

return

end

tig_ew_move_lower_left

end

#--------------------------------------------------------------------------

# ◎ 右下に移動

#--------------------------------------------------------------------------

alias tig_ew_move_lower_right move_lower_right

def move_lower_right

turn_back1 = $game_map.rip?(8, @x, @y+1) ? true : @turn_back

turn_back2 = $game_map.rip?(4, @x+1, @y) ? true : @turn_back

unless passable?(@x, @y+1) and passable?(@x+1, @y) and passable?(@x+1, @y+1) and

ex_passable(2) and ex_passable(6, @x+1, @y+1, turn_back1) and

ex_passable(6) and ex_passable(2, @x+1, @y+1, turn_back2)

if @direction == 2

if passable?(@x-1, @y) and ex_passable(6)

move_right

else

move_down

end

elsif @direction == 6

if passable?(@x, @y+1) and ex_passable(2)

move_down

else

move_right

end

end

return

end

tig_ew_move_lower_right

end

#--------------------------------------------------------------------------

# ◎ 左上に移動

#--------------------------------------------------------------------------

alias tig_ew_move_upper_left move_upper_left

def move_upper_left

turn_back1 = $game_map.rip?(2, @x, @y-1) ? true : @turn_back

turn_back2 = $game_map.rip?(6, @x-1, @y) ? true : @turn_back

unless passable?(@x, @y-1) and passable?(@x-1, @y) and passable?(@x-1, @y-1) and

ex_passable(8) and ex_passable(4, @x-1, @y-1, turn_back1) and

ex_passable(4) and ex_passable(8, @x-1, @y-1, turn_back2)

if @direction == 8

if passable?(@x-1, @y) and ex_passable(4)

move_left

else

move_up

end

elsif @direction == 4

if passable?(@x, @y+1) and ex_passable(8)

move_up

else

move_left

end

end

return

end

tig_ew_move_upper_left

end

#--------------------------------------------------------------------------

# ◎ 右上に移動

#--------------------------------------------------------------------------

alias tig_ew_move_upper_right move_upper_right

def move_upper_right

turn_back1 = $game_map.rip?(2, @x, @y-1) ? true : @turn_back

turn_back2 = $game_map.rip?(4, @x+1, @y) ? true : @turn_back

unless passable?(@x, @y-1) and passable?(@x+1, @y) and passable?(@x+1, @y-1) and

ex_passable(8) and ex_passable(6, @x+1, @y-1, turn_back1) and

ex_passable(6) and ex_passable(8, @x+1, @y-1, turn_back2)

if @direction == 8

if passable?(@x+1, @y) and ex_passable(6)

move_right

else

move_up

end

elsif @direction == 6

if passable?(@x, @y-1) and ex_passable(8)

move_up

else

move_right

end

end

return

end

tig_ew_move_upper_right

end

#--------------------------------------------------------------------------

# ● キャラクター衝突判定

# x : X 座標

# y : Y 座標

# プレイヤーと乗り物を含め、通常キャラの衝突を検出する。

#--------------------------------------------------------------------------

def collide_with_characters?(x, y)

for event in $game_map.events_xy(x, y) # イベントの座標と一致

next unless parallel?(event) ##### 追加部分 (この行) #####

unless event.through # すり抜け OFF？

return true if self.is_a?(Game_Event) # 自分がイベント

return true if event.priority_type == 1 # 相手が通常キャラ

end

end

if @priority_type == 1 # 自分が通常キャラ

if parallel?($game_player) ##### 追加部分 (この行) #####

return true if $game_player.pos_nt?(x, y) # プレイヤーの座標と一致

end ##### 追加部分 (この行) #####

return true if $game_map.boat.pos_nt?(x, y) # 小型船の座標と一致

return true if $game_map.ship.pos_nt?(x, y) # 大型船の座標と一致

end

return false

end

#--------------------------------------------------------------------------

# ○ キャラクターの同軸存在判定

#--------------------------------------------------------------------------

def parallel?(character)

direction = search_direction(@x, @y, character.x, character.y)

turn_back = @turn_back

character_turn_back = character.turn_back

if direction != 5

if direction % 2 == 0

if $game_map.rip?(10 - direction, character.x, character.y)

turn_back = true

end

else

if diagonal_move_turn_back(direction, character.x, character.y)

turn_back = true

end

end

if direction % 2 == 0

if $game_map.rip?(direction, @x, @y)

character_turn_back = true

end

else

if diagonal_move_turn_back(10 - direction, @x, @y)

character_turn_back = true

end

end

tile_id = $game_map.data[character.x, character.y, 0]

if $game_map.wall?(tile_id)

return true unless ex_passable(direction)

end

end

return turn_back == character_turn_back

end

end

#==============================================================================

# ■ Game_Event

#------------------------------------------------------------------------------

# 　イベントを扱うクラスです。条件判定によるイベントページ切り替えや、並列処理

# イベント実行などの機能を持っており、Game_Map クラスの内部で使用されます。

#==============================================================================

class Game_Event < Game_Character

#--------------------------------------------------------------------------

# ◎ オブジェクト初期化

# map_id : マップ ID

# event : イベント (RPG::Event)

#--------------------------------------------------------------------------

alias tig_ew_event_initialize initialize

def initialize(map_id, event)

tig_ew_event_initialize(map_id, event)

set_turn_back_setting

end

#--------------------------------------------------------------------------

# ○ イベントの初期配置位置取得(裏配置)

#--------------------------------------------------------------------------

def set_turn_back_setting

@event.name = @event.name.sub(/[\<＜]裏配置[\>＞]/, "")

@turn_back = $& != nil

@on_tile = $& == nil

@event.name = @event.name.sub(/[\<＜]裏透過禁止[\>＞]/, "")

@not_back_seeing = $& != nil

end

#--------------------------------------------------------------------------

# ● 接触イベントの起動判定

#--------------------------------------------------------------------------

def check_event_trigger_touch(x, y)

return if $game_map.interpreter.running?

if @trigger == 2 and $game_player.pos?(x, y)

if @character_name != "" #### 追加部分 (ここから) ####

return unless $game_player.parallel?(self)

end #### 追加部分 (ここまで) ####

start if not jumping? and @priority_type == 1

end

end

end

#==============================================================================

# ■ Game_Vehicle

#------------------------------------------------------------------------------

# 　乗り物を扱うクラスです。このクラスは Game_Map クラスの内部で使用されます。

# 現在のマップに乗り物がないときは、マップ座標 (-1,-1) に設定されます。

#==============================================================================

class Game_Vehicle < Game_Character

#--------------------------------------------------------------------------

# ○ タイル表示(on_tile)状態取得

#--------------------------------------------------------------------------

def on_tile

if @driving or @altitude > 0

return $game_player.on_tile

else

return false

end

end

#--------------------------------------------------------------------------

# ◎ プレイヤーとの同期

#--------------------------------------------------------------------------

alias tig_ew_sync_with_player sync_with_player

def sync_with_player

tig_ew_sync_with_player

update_turn_back

end

end

#==============================================================================

# ■ Game_Player

#------------------------------------------------------------------------------

# 　プレイヤーを扱うクラスです。イベントの起動判定や、マップのスクロールなどの

# 機能を持っています。このクラスのインスタンスは $game_player で参照されます。

#==============================================================================

class Game_Player < Game_Character

#--------------------------------------------------------------------------

# ○ 公開インスタンス変数

#--------------------------------------------------------------------------

attr_accessor :game_map_data

attr_accessor :reserve_load_map_id

#--------------------------------------------------------------------------

# ◎ オブジェクト初期化

# map_id : マップ ID

# event : イベント (RPG::Event)

#--------------------------------------------------------------------------

alias tig_ew_pl_initialize initialize

def initialize

tig_ew_pl_initialize

@reserve_load_map_id = []

@game_map_data = {}

end

#--------------------------------------------------------------------------

# ○ マップデータの先読み

#--------------------------------------------------------------------------

def beforehand_load(map_id = @reserve_load_map_id)

for i in map_id

next if @game_map_data.key?(i)

map_data = Game_Map.new

map_data.setup(i)

@game_map_data[i] = map_data

end

for i in @game_map_data.keys.clone

unless map_id.include?(i)

@game_map_data.delete(i)

end

end

end

#--------------------------------------------------------------------------

# ◎ 場所移動の実行

#--------------------------------------------------------------------------

alias tig_ew_perform_transfer perform_transfer

def perform_transfer

return unless @transferring

unless $game_player.reserve_load_map_id.empty?

$game_player.beforehand_load

end

tig_ew_perform_transfer

end

#--------------------------------------------------------------------------

# ○ 浮かんでいるか？(乗り物拡張用・魔法の絨毯搭乗時)

#--------------------------------------------------------------------------

def floating?

return @vehicle_type == 5

end

#--------------------------------------------------------------------------

# ● 同位置のイベント起動判定

# triggers : トリガーの配列

#--------------------------------------------------------------------------

def check_event_trigger_here(triggers)

return false if $game_map.interpreter.running?

result = false

for event in $game_map.events_xy(@x, @y)

next unless parallel?(event) ##### 追加部分 (この行) #####

if triggers.include?(event.trigger) and event.priority_type != 1

event.start

result = true if event.starting

end

end

return result

end

#--------------------------------------------------------------------------

# ● 正面のイベント起動判定

# triggers : トリガーの配列

#--------------------------------------------------------------------------

def check_event_trigger_there(triggers)

return false if $game_map.interpreter.running?

result = false

front_x = $game_map.x_with_direction(@x, @direction)

front_y = $game_map.y_with_direction(@y, @direction)

for event in $game_map.events_xy(front_x, front_y)

next unless parallel?(event) ##### 追加部分 (この行) #####

if triggers.include?(event.trigger) and event.priority_type == 1

event.start

result = true

end

end

if result == false and $game_map.counter?(front_x, front_y)

front_x = $game_map.x_with_direction(front_x, @direction)

front_y = $game_map.y_with_direction(front_y, @direction)

for event in $game_map.events_xy(front_x, front_y)

next unless parallel?(event) ##### 追加部分 (この行) #####

if triggers.include?(event.trigger) and event.priority_type == 1

event.start

result = true

end

end

end

return result

end

#--------------------------------------------------------------------------

# ● 接触イベントの起動判定

# x : X 座標

# y : Y 座標

#--------------------------------------------------------------------------

def check_event_trigger_touch(x, y)

return false if $game_map.interpreter.running?

result = false

for event in $game_map.events_xy(x, y)

if event.character_name != "" #### 追加部分 (ここから) ####

next unless parallel?(event)

end #### 追加部分 (ここまで) ####

if [1,2].include?(event.trigger) and event.priority_type == 1

event.start

result = true

end

end

return result

end

#--------------------------------------------------------------------------

# ◎ 乗り物から降りる

# 現在乗り物に乗っていることが前提。

#--------------------------------------------------------------------------

alias tig_ew_get_off_vehicle get_off_vehicle

def get_off_vehicle

return if $game_map.back_tile?(@x, @y)

if @vehicle_type == 0 or @vehicle_type == 1

front_x = $game_map.x_with_direction(@x, @direction)

front_y = $game_map.y_with_direction(@y, @direction)

return if $game_map.wall?($game_map.point_tile_id(front_x, front_y)[0])

return if $game_map.under_bridge_passages[[front_x, front_y]] == 1

return if $game_map.prohibited_get_off.include?([front_x, front_y])

@no_turn_back = true

end

tig_ew_get_off_vehicle

end

end

#==============================================================================

# ■ Spriteset_Map

#------------------------------------------------------------------------------

# 　マップ画面のスプライトやタイルマップなどをまとめたクラスです。このクラスは

# Scene_Map クラスの内部で使用されます。

#==============================================================================

class Spriteset_Map

#--------------------------------------------------------------------------

# ◎ ビューポートの作成

#--------------------------------------------------------------------------

alias tig_ew_create_viewports create_viewports

def create_viewports

tig_ew_create_viewports

@viewport4 = Viewport.new(0, 0, 544, 416) # 追加レイヤー用ビューポート

if Expansion_Passable::BACK_SEEING

@viewport5 = Viewport.new(0, 0, 544, 416) # 裏回りキャラ透過用ビューポート

end

if @viewport6 == nil

@viewport6 = Viewport.new(0, 0, 544, 416) # 色調変更用ビューポート

@viewport6.z = 25

end

end

#--------------------------------------------------------------------------

# ◎ タイルマップの作成

#--------------------------------------------------------------------------

alias tig_ew_create_tilemap create_tilemap

def create_tilemap

tig_ew_create_tilemap

setup_shadow_eraser_tilemap

@ex_tilemap = Tilemap.new(@viewport4)

@ex_tilemap.bitmaps[0] = Cache.system("TileA1")

@ex_tilemap.bitmaps[1] = Cache.system("TileA2")

@ex_tilemap.bitmaps[2] = Cache.system("TileA3")

@ex_tilemap.bitmaps[3] = Cache.system("TileA4")

@ex_tilemap.bitmaps[4] = Cache.system("TileA5")

@ex_tilemap.bitmaps[5] = Cache.system("TileB")

@ex_tilemap.bitmaps[6] = Cache.system("TileC")

@ex_tilemap.bitmaps[7] = Cache.system("TileD")

@ex_tilemap.bitmaps[8] = Cache.system("TileE")

@ex_tilemap.map_data = $game_map.ex_data

@ex_tilemap.passages = $game_map.passages

end

#--------------------------------------------------------------------------

# ○ 影消し処理用タイルの準備

#--------------------------------------------------------------------------

def setup_shadow_eraser_tilemap

for i in 1952...2048

@tilemap.passages[i] = 0x00

end

end

#--------------------------------------------------------------------------

# ◎ 飛行船の影スプライトの作成

#--------------------------------------------------------------------------

alias tig_ew_create_shadow create_shadow

def create_shadow

tig_ew_create_shadow

@shadow_sprite.viewport = @viewport4

end

#--------------------------------------------------------------------------

# ◎ タイルマップの解放

#--------------------------------------------------------------------------

alias tig_ew_dispose_tilemap dispose_tilemap

def dispose_tilemap

tig_ew_dispose_tilemap

@ex_tilemap.dispose

end

#--------------------------------------------------------------------------

# ◎ ビューポートの解放

#--------------------------------------------------------------------------

alias tig_ew_dispose_viewports dispose_viewports

def dispose_viewports

tig_ew_dispose_viewports

@viewport4.dispose

@viewport5.dispose if Expansion_Passable::BACK_SEEING

@viewport6.dispose if @viewport6 != nil

end

#--------------------------------------------------------------------------

# ◎ タイルマップの更新

#--------------------------------------------------------------------------

alias tig_ew_update_tilemap update_tilemap

def update_tilemap

tig_ew_update_tilemap

@ex_tilemap.ox = $game_map.display_x / 8

@ex_tilemap.oy = $game_map.display_y / 8

@ex_tilemap.update

end

#--------------------------------------------------------------------------

# ◎ キャラクタースプライトの更新

#--------------------------------------------------------------------------

alias tig_ew_update_characters update_characters

def update_characters

back_seeing_characters = []

for sprite in @character_sprites

if sprite.character.on_tile or sprite.character.priority_type == 2

sprite.viewport = @viewport4

else

sprite.viewport = @viewport1

end

next if sprite.character.not_back_seeing

if $game_player.turn_back and Expansion_Passable::BACK_SEEING

x = $game_player.x ; y = $game_player.y

if ($game_map.round_x(x-2)..$game_map.round_x(x+2)).include?(sprite.character.x) and

($game_map.round_y(y-2)..$game_map.round_y(y+2)).include?(sprite.character.y)

back_seeing_characters.push(sprite.character)

end

end

end

back_seeing(back_seeing_characters)

tig_ew_update_characters

end

#--------------------------------------------------------------------------

# ○ 裏回りキャラ透過

#--------------------------------------------------------------------------

def back_seeing(characters)

return unless Expansion_Passable::BACK_SEEING

@back_seeing_sprites = [] if @back_seeing_sprites == nil

@characters = [] if @characters == nil

now_character = []

for character in characters

now_character.push(character)

unless @characters.include?(character)

new_sprite = Sprite_Character.new(@viewport5, character)

new_sprite.back_seeing = true

@back_seeing_sprites.push(new_sprite)

@characters.push(new_sprite.character)

end

end

for sprite in @back_seeing_sprites

if now_character.include?(sprite.character)

sprite.update

else

@characters.delete(sprite.character)

sprite.dispose

@back_seeing_sprites.delete(sprite)

end

end

end

#--------------------------------------------------------------------------

# ◎ フレーム更新

#--------------------------------------------------------------------------

alias tig_ew_update update

def update

tig_ew_update

update_ew_ex_viewports

end

#--------------------------------------------------------------------------

# ● ビューポートの更新

#--------------------------------------------------------------------------

def update_viewports

@viewport6.tone = $game_map.screen.tone ##### 修正部分 (この行) #####

@viewport1.ox = $game_map.screen.shake

@viewport2.color = $game_map.screen.flash_color

@viewport3.color.set(0, 0, 0, 255 - $game_map.screen.brightness)

@viewport1.update

@viewport2.update

@viewport3.update

@viewport6.update ##### 追加部分 (この行) #####

end

#--------------------------------------------------------------------------

# ○ 拡張ビューポートの更新

#--------------------------------------------------------------------------

def update_ew_ex_viewports

@viewport4.ox = $game_map.screen.shake

@viewport4.update

if Expansion_Passable::BACK_SEEING

@viewport5.rect.set($game_player.screen_x - 48, $game_player.screen_y - 64, 96, 96)

@viewport5.ox = $game_map.screen.shake

@viewport5.update

end

end

end

#==============================================================================

# ■ Sprite_Character

#------------------------------------------------------------------------------

# 　キャラクター表示用のスプライトです。Game_Character クラスのインスタンスを

# 監視し、スプライトの状態を自動的に変化させます。

#==============================================================================

class Sprite_Character < Sprite_Base

#--------------------------------------------------------------------------

# ○ 公開インスタンス変数

#--------------------------------------------------------------------------

attr_accessor :back_seeing

#--------------------------------------------------------------------------

# ◎ オブジェクト初期化

# viewport : ビューポート

# character : キャラクター (Game_Character)

#--------------------------------------------------------------------------

alias tig_ew_initialize initialize

def initialize(viewport, character = nil)

tig_ew_initialize(viewport, character)

@back_seeing = false

end

#--------------------------------------------------------------------------

# ◎ フレーム更新

#--------------------------------------------------------------------------

alias tig_ew_update update

def update

tig_ew_update

if @back_seeing

self.opacity = 100 if self.opacity > 100

self.x -= $game_player.screen_x - 48

self.y -= $game_player.screen_y - 64

end

end

#--------------------------------------------------------------------------

# ◎ フキダシアイコン表示の開始

#--------------------------------------------------------------------------

alias tig_ew_start_balloon start_balloon

def start_balloon

tig_ew_start_balloon

@balloon_sprite.viewport = @viewport4

end

end

#==============================================================================

# ■ Scene_Title

#------------------------------------------------------------------------------

# 　タイトル画面の処理を行うクラスです。

#==============================================================================

class Scene_Title < Scene_Base

#--------------------------------------------------------------------------

# ◎ 開始処理

#--------------------------------------------------------------------------

alias tig_ew_start start

def start

tig_ew_start

$game_map.create_ex_passages

end

#--------------------------------------------------------------------------

# ◎ データベースのロード

# name から<船の橋下通過>の設定を得ます。

#--------------------------------------------------------------------------

alias tig_ew_load_database load_database

def load_database

tig_ew_load_database

for area in $data_areas.values

area.name = area.name.sub(/[\<＜]架け橋[\>＞]/, "") # 名前の修正と

area.ship_pass = $& != nil # 船の橋下通過エリアの設定

area.name = area.name.sub(/[\<＜]処理無視[\>＞]/, "") # 名前の修正と

area.disregard_processing = $& != nil # 処理無視エリアの設定

end

end

end
复制代码

地图贴图：

#==============================================================================

# Multiple MapEffects 地图万花筒

#

# 源脚本：1：Ultimate Overlay Mapping（作者：Hanzo Kimura）

# 2：Random Fadein（作者：Deity）

# 3：Fade Toggle（作者：月绅士）

# 4：Ultimate shadow remover（出处：http://rmvx.gameclover.com）

#

# 整合：我的米呀

#

# 版本：1.0（不确定后续有更新……）

#

# 说明：此脚本的设定部分分为两部分，第一部分为15行至33行，第二部分为183行

# 至198行。包括的效果有四层地图贴图（感谢Hanzo的脚本），4种地图切换

# 模式（感谢月绅士和Deity的脚本）。

#

#==============================================================================

module HK_UOM

#=============================设定部分PART I===================================#

# 分辨率设定（请设定为你所使用的分辨率）

Width = 544 # 屏幕的横长

Height = 416 # 屏幕的纵长

# 开关设定

LightSwitch = 1 #光线开关

ShadowSwitch = 2 #阴影开关

ParSwitch = 3 #覆盖层开关

GroundSwitch = 4 #地面层开关

# 文件名设定

LightMap = "Light" #光线的文件名

ShadowMap = "Shadow" #阴影的文件名

ParMap = "Par" #覆盖层的文件名

GroundMap = "Ground" #地面层的文件名

end

module RandomFadein

DURATION = 30 # 地图切换时间

B_W = 100 # 切换图片的黑度

end

#==============================设定PART I结束 ===============================#

###################警告！随意改变以下部分者后果自负！########################

###################警告！随意改变以下部分者后果自负！########################

###################警告！随意改变以下部分者后果自负！########################

include RandomFadein

module Cache

def self.overlay(filename)

load_bitmap("Graphics/Overlays/", filename)

end

end

class Game_Map

alias gamebaker_goodbyeshadow_oldsetup setup

def setup(*args)

gamebaker_goodbyeshadow_oldsetup(*args)

goodbye_shadows

end

def goodbye_shadows

for x in 0...$game_map.data.xsize

for y in 0...$game_map.data.ysize

if $game_map.data[x,y,1] == 0

$game_map.data[x,y,1] = $game_map.data[x,y,0]

end

end

end

end

end

class Spriteset_Map

include HK_UOM

alias hk_uom_initialize initialize

def initialize

@GroundON = FileTest.exist?("Graphics/Overlays/" + "ground" + $game_map.map_id.to_s + ".png")

hk_uom_initialize

update

end

alias hk_uom_create_parallax create_parallax

def create_parallax

if @GroundON

@ground = Sprite.new(@viewport1)

@ground.z = 1

@ground.bitmap = Cache.overlay("ground" + $game_map.map_id.to_s)

end

hk_uom_create_parallax

end

alias hk_uom_dispose_parallax dispose_parallax

def dispose_parallax

if @ground != nil

@ground.dispose

end

hk_uom_dispose_parallax

end

alias hk_uom_update_parallax update_parallax

def update_parallax

if @ground != nil

@ground.visible = $game_switches[GroundSwitch]

end

if @ground != nil

@ground.tone = $game_map.screen.tone

@viewport1.ox = $game_map.screen.shake

@viewport1.color = $game_map.screen.flash_color

if @ground.ox != -$game_map.display_x / 256 or @ground.oy != -$game_map.display_y / 256 or @ground.ox == 0 or @ground.oy == 0

@ground.ox = $game_map.display_x / 8

@ground.oy = $game_map.display_y / 8

end

end

hk_uom_update_parallax

end

end

#==============================================================================

# Scene Map

#==============================================================================

class Scene_Map < Scene_Base

alias hk_uom_start start

def start

hk_uom_start

$OverlayMap = Overlay_Map.new

end

def terminate

super

if $scene.is_a?(Scene_Battle)

@spriteset.dispose_characters

end

snapshot_for_background

@spriteset.dispose

@message_window.dispose

$OverlayMap.dispose

if $scene.is_a?(Scene_Battle)

perform_battle_transition

end

end

def update

super

$game_map.interpreter.update

$game_map.update

$game_player.update

$game_system.update

@spriteset.update

@message_window.update

$OverlayMap.update

unless $game_message.visible

update_transfer_player

update_encounter

update_call_menu

update_call_debug

update_scene_change

end

end

def fadein_deity

transitions = Dir.entries("Graphics/Fadein/")

effekt = rand (transitions.size - 2)

Graphics.transition(DURATION,"Graphics/Fadein/"+transitions[effekt + 2], B_W)

end

def perform_transition

if Graphics.brightness == 0

fadein_deity

else

Graphics.transition(15)

end

end

###########################################################################

###########################################################################

###########################################################################

#=====================设定部分PART II=====================================

def update_transfer_player

var_ID = 1 #地图切换的变量

case $game_variables[var_ID]

when 0 # 当该变量为0是使用默认模式

normal_transfer

when 1 # 当该变量为1时使用无淡入淡出模式

fadeless_transfer

when 2 # 当该变量为2时使用变亮模式

white_screen_transfer

when 3 # 当该变量为3时使用渐变图模式

picture_transfer

end

end

#=========================设定PART II结束 ===================================

###################警告！随意改变以下部分者后果自负！########################

###################警告！随意改变以下部分者后果自负！########################

###################警告！随意改变以下部分者后果自负！########################

def normal_transfer

return unless $game_player.transfer?

return unless $game_player.transfer?

fade = (Graphics.brightness > 0)

fadeout(30) if fade

@spriteset.dispose

$game_player.perform_transfer

$game_map.autoplay

$game_map.update

Graphics.wait(15)

@spriteset = Spriteset_Map.new

$OverlayMap.dispose

$OverlayMap = Overlay_Map.new

fadein(30) if fade

Input.update

end

def fadeless_transfer

return unless $game_player.transfer?

@spriteset.dispose

$game_player.perform_transfer

$game_map.autoplay

$game_map.update

@spriteset = Spriteset_Map.new

$OverlayMap.dispose

$OverlayMap = Overlay_Map.new

Input.update

end

def white_screen_transfer

return unless $game_player.transfer?

whitein(30)

dummy = @spriteset

$game_player.perform_transfer

$game_map.autoplay

$game_map.update

@spriteset = Spriteset_Map.new

$OverlayMap.dispose

$OverlayMap = Overlay_Map.new

whiteout(30)

dummy.dispose

Input.update

end

def whiteout(duration)

for i in 0..duration-1

c = 255 - 255 * i / duration

$game_map.screen.start_flash(Color.new(c,c,c,c),30)

update_basic

end

$game_map.screen.start_flash(Color.new(0,0,0,0),1)

end

def whitein(duration)

for i in 0..duration-1

c = 255 * i / duration

$game_map.screen.start_flash(Color.new(c,c,c,c),30)

update_basic

end

$game_map.screen.start_flash(Color.new(255,255,255,255),1)

end

def picture_transfer

return unless $game_player.transfer?

@spriteset.dispose

@spriteset = Spriteset_Map.new

$scene = Scene_Map.new

fade = (Graphics.brightness > 0)

fadeout(30) if fade

@spriteset.dispose

$game_player.perform_transfer

$game_map.autoplay

$game_map.update

Graphics.wait(15)

@spriteset = Spriteset_Map.new

$OverlayMap.dispose

$OverlayMap = Overlay_Map.new

Input.update

end

end

#==============================================================================

# Overlay

#==============================================================================

class Overlay_Map

include HK_UOM

def initialize

check_file

display_overlay

end

def check_file

@LightON = FileTest.exist?("Graphics/Overlays/" + LightMap + $game_map.map_id.to_s + ".png")

@ShadowON = FileTest.exist?("Graphics/Overlays/" + ShadowMap + $game_map.map_id.to_s + ".jpg")

@ParON = FileTest.exist?("Graphics/Overlays/" + ParMap + $game_map.map_id.to_s + ".png")

@GroundON = FileTest.exist?("Graphics/Overlays/" + GroundMap + $game_map.map_id.to_s + ".png")

end

def display_overlay

if @LightON

@light_viewport = Viewport.new(0, 0, Width, Height)

@light_viewport.z = 10

@light = Sprite.new(@light_viewport)

@light.bitmap = Cache.overlay(LightMap + $game_map.map_id.to_s)

@light.z = 10

@light.opacity = 115

@light.blend_type = 1

@light.visible = $game_switches[LightSwitch]

end

if @ShadowON

@shadow_viewport = Viewport.new(0, 0, Width, Height)

@shadow_viewport.z = 9

@shadow = Sprite.new(@shadow_viewport)

@shadow.bitmap = Cache.overlay(ShadowMap + $game_map.map_id.to_s)

@shadow.z = 9

@shadow.opacity = 85

@shadow.blend_type = 2

@shadow.visible = $game_switches[ShadowSwitch]

end

if @ParON

@par_viewport = Viewport.new(0, 0, Width, Height)

@par_viewport.z = 8

@par = Sprite.new(@par_viewport)

@par.z = 8

@par.bitmap = Cache.overlay(ParMap + $game_map.map_id.to_s)

@par.tone = $game_map.screen.tone

@par.opacity = 255

@par.blend_type = 0

@par.visible = $game_switches[ParSwitch]

end

update

end

def update

if @light != nil

@light.visible = $game_switches[LightSwitch]

end

if @shadow != nil

@shadow.visible = $game_switches[ShadowSwitch]

end

if @par != nil

@par.visible = $game_switches[ParSwitch]

end

if @light != nil

@light.tone = $game_map.screen.tone

@light_viewport.ox = $game_map.screen.shake

@light_viewport.color = $game_map.screen.flash_color

if @light.x != $game_map.display_x / 256 or @light.y != $game_map.display_y / 256 or @light.x == 0 or @light.y == 0

@light.ox = $game_map.display_x / 8

@light.oy = $game_map.display_y / 8

end

end

if @shadow != nil

@shadow.tone = $game_map.screen.tone

@shadow_viewport.ox = $game_map.screen.shake

@shadow_viewport.color = $game_map.screen.flash_color

if @shadow.x != $game_map.display_x / 256 or @shadow.y != $game_map.display_y / 256 or @shadow.x == 0 or @shadow.y == 0

@shadow.ox = $game_map.display_x / 8

@shadow.oy = $game_map.display_y / 8

end

end

if @par != nil

@par.tone = $game_map.screen.tone

@par_viewport.ox = $game_map.screen.shake

@par_viewport.color = $game_map.screen.flash_color

if @par.ox != $game_map.display_x / 256 or @par.oy != $game_map.display_y / 256 or @par.ox == 0 or @par.oy == 0

@par.ox = $game_map.display_x / 8

@par.oy = $game_map.display_y / 8

end

end

end

def dispose

if @light != nil

@light_viewport.dispose

@light.dispose

end

if @shadow != nil

@shadow_viewport.dispose

@shadow.dispose

end

if @par != nil

@par_viewport.dispose

@par.dispose

end

end

end
复制代码

铅笔描绘的思念 · 发表于 2012-8-16 12:52:39

。。。壁扩张的话。。去月面工房看看。。不过月紳士大大也许不会去移植。。可以用Shift画法。。再用别的图块中的同样的来画在上面。。

效果还不错。。只是太浪费了。。。
不过地图万花筒的话。。我不是说了。。只需要改一小部分就好了嘛。。。（´Д`）。。

帐号		自动登录	找回密码
密码			注册会员

[已经过期] 【VX→VA】两个关于地图脚本的移植请求

点评

开拓者