ホーム
>
RPGツクール
>
テクニック集
>
XP一覧
>
テクニック

似非マップループ

MapLoop

概要

Summary

200xの「マップのループ機能」を再現(?)します。

あくまで似非(エセ)なので、一部完全に対応していない箇所があります。

↑目次

更新履歴

History

2005/09/13

座標処理のミスを修正。

2005/08/10

ループ時、画面端のイベントが見えない不具合を修正。

座標計算を高速化。

2005/08/09

新規作成。

↑目次

スクリプト

Script

#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
#_/    ◆マップループ - KGC_MapLoop◆
#_/----------------------------------------------------------------------------
#_/  マップの上下左右ループ機能を追加します。(諸問題あり)
#_/  Provides the function which is map loop of four directions.
#_/  (There are various problems.)
#_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

#==============================================================================
# ★ カスタマイズ項目 - Customize ★
#==============================================================================

module KGC
  # ◆ループ時、マップ端のイベントを表示する
  #  (false にすると多少軽くなります)
  ML_EDGE_SHOW = true
end

#### ML_EDGE_SHOW
### Shows events of edge of map when looping.
# (The load probably decreases a little if this is false.)

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

$imported = {} if $imported == nil
$imported["MapLoop"] = true

#==============================================================================
# ■ RPG::MapInfo
#==============================================================================

class RPG::MapInfo
  #--------------------------------------------------------------------------
  # ● マップ名
  #--------------------------------------------------------------------------
  def name
    return @name.gsub(/\[.*\]/) {""}
  end
  #--------------------------------------------------------------------------
  # ● オリジナル名
  #--------------------------------------------------------------------------
  def original_name
    return @name
  end
  #--------------------------------------------------------------------------
  # ● 横方向ループ
  #--------------------------------------------------------------------------
  def horizontal_loop?
    return @name =~ /\[L[ ]*([HV]+)\]/i && $1.upcase.scan(/./).include?("H")
  end
  #--------------------------------------------------------------------------
  # ● 縦方向ループ
  #--------------------------------------------------------------------------
  def vertical_loop?
    return @name =~ /\[L[ ]*([HV]+)\]/i && $1.upcase.scan(/./).include?("V")
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Game_Map
#==============================================================================

class Game_Map
  #--------------------------------------------------------------------------
  # ● セットアップ
  #     map_id : マップ ID
  #--------------------------------------------------------------------------
  alias setup_KGC_MapLoop setup
  def setup(map_id)
    @map_info = load_data("Data/MapInfos.rxdata")[map_id]
    @bottom_over = false
    @left_over = false
    @right_over = false
    @top_over = false
    @last_x = @last_y = 0

@horizontal_loop = @map_info.horizontal_loop?
    @vertical_loop = @map_info.vertical_loop?

setup_KGC_MapLoop(map_id)
  end
  #--------------------------------------------------------------------------
  # ● 有効座標判定 (ループ時はマップ外を移動不可にしない)
  #--------------------------------------------------------------------------
  def valid?(x, y)
    result = true
    unless horizontal_loop?
      result &= x >= 0 && x < self.width
    end
    unless vertical_loop?
      result &= y >= 0 && y < self.height
    end
    return result
  end
  #--------------------------------------------------------------------------
  # ● 下にスクロール
  #--------------------------------------------------------------------------
  alias scroll_down_KGC_MapLoop scroll_down
  def scroll_down(distance)
    if $game_map.vertical_loop?
      @display_y += distance
      restore_display
    else
      scroll_down_KGC_MapLoop(distance)
    end
  end
  #--------------------------------------------------------------------------
  # ● 左にスクロール
  #--------------------------------------------------------------------------
  alias scroll_left_KGC_MapLoop scroll_left
  def scroll_left(distance)
    if $game_map.horizontal_loop?
      @display_x -= distance
      restore_display
    else
      scroll_left_KGC_MapLoop(distance)
    end
  end
  #--------------------------------------------------------------------------
  # ● 右にスクロール
  #--------------------------------------------------------------------------
  alias scroll_right_KGC_MapLoop scroll_right
  def scroll_right(distance)
    if $game_map.horizontal_loop?
      @display_x += distance
      restore_display
    else
      scroll_right_KGC_MapLoop(distance)
    end
  end
  #--------------------------------------------------------------------------
  # ● 上にスクロール
  #--------------------------------------------------------------------------
  alias scroll_up_KGC_MapLoop scroll_up
  def scroll_up(distance)
    if $game_map.vertical_loop?
      @display_y -= distance
      restore_display
    else
      scroll_up_KGC_MapLoop(distance)
    end
  end
  #--------------------------------------------------------------------------
  # ● 画面座標を修復 (private)
  #--------------------------------------------------------------------------
  def restore_display
    # ループした場合はフォグ座標調整用のフラグを立てる
    if @last_y > 0 && @display_y < 0
      @bottom_over = true
    elsif @last_y < 0 && @display_y > 0
      @top_over = true
    end
    if @last_x > 0 && @display_x < 0
      @right_over = true
    elsif @last_x < 0 && @display_x > 0
      @left_over = true
    end
    # 処理用座標を保存
    @last_x = @display_x
    @last_y = @display_y
  end
  private :restore_display
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias update_KGC_MapLoop update
  def update
    # フォグの座標調整(ループ対応)
    if @bottom_over
      @fog_oy += (self.height - 16) << 5
      @bottom_over = false
    elsif @top_over
      @fog_oy -= (self.height - 16) << 5
      @top_over = false
    end
    if @right_over
      @fog_ox += (self.width - 16) << 5
      @right_over = false
    elsif @left_over
      @fog_ox -= (self.width - 16) << 5
      @left_over = false
    end

update_KGC_MapLoop
  end
  #--------------------------------------------------------------------------
  # ● 横方向ループ可否
  #--------------------------------------------------------------------------
  def horizontal_loop?
    return @horizontal_loop
  end
  #--------------------------------------------------------------------------
  # ● 縦方向ループ可否
  #--------------------------------------------------------------------------
  def vertical_loop?
    return @vertical_loop
  end
  #--------------------------------------------------------------------------
  # ● 通行判定用マップ外座標補正値
  #     【戻り値】補正後の移動元座標：[X, Y]
  #--------------------------------------------------------------------------
  def pass_position_revise(x, y, d)
    result = [x, y]
    # 移動先の座標を求める
    dx = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
    dy = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
    # 移動先がマップ外になる場合、移動元座標を反対側へ変更
    if horizontal_loop?
      if dx < 0
        result[0] += self.width
      elsif dx >= self.width
        result[0] -= self.width
      end
    end
    if vertical_loop?
      if dy < 0
        result[1] += self.height
      elsif dy >= self.height
        result[1] -= self.height
      end
    end
    # 補正値を返す
    return result
  end
  #--------------------------------------------------------------------------
  # ● 横方向画面端判定
  #--------------------------------------------------------------------------
  def horizontal_edge
    if horizontal_loop?
      if @display_x < 0
        return -1
      elsif @display_x > (self.width - 20) << 7
        return 1
      end
    end
    return 0
  end
  #--------------------------------------------------------------------------
  # ● 縦方向画面端判定
  #--------------------------------------------------------------------------
  def vertical_edge
    if vertical_loop?
      if @display_y < 0
        return -1
      elsif @display_y > (self.height - 15) << 7
        return 1
      end
    end
    return 0
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Game_Character (分割定義 1)
#==============================================================================

class Game_Character
  #--------------------------------------------------------------------------
  # ● 通行可能判定
  #--------------------------------------------------------------------------
  def passable?(x, y, d)
    # 座標補正
    dx, dy = $game_map.pass_position_revise(x, y, d)
    # 新しい座標を求める
    new_x = dx + (d == 6 ? 1 : d == 4 ? -1 : 0)
    new_y = dy + (d == 2 ? 1 : d == 8 ? -1 : 0)
    # 座標がマップ外の場合
    unless $game_map.valid?(new_x, new_y)
      # 通行不可
      return false
    end
    # すり抜け ON の場合
    if @through
      # 通行可
      return true
    end
    # 移動元のタイルから指定方向に出られない場合
    unless $game_map.passable?(x, y, d, self)
      # 通行不可
      return false
    end
    # 移動先のタイルに指定方向から入れない場合
    unless $game_map.passable?(new_x, new_y, 10 - d)
      # 通行不可
      return false
    end
    # 全イベントのループ
    for event in $game_map.events.values
      # イベントの座標が移動先と一致した場合
      if event.x == new_x and event.y == new_y
        # すり抜け OFF なら
        unless event.through
          # 自分がイベントの場合
          if self != $game_player
            # 通行不可
            return false
          end
          # 自分がプレイヤーで、相手のグラフィックがキャラクターの場合
          if event.character_name != ""
            # 通行不可
            return false
          end
        end
      end
    end
    # プレイヤーの座標が移動先と一致した場合
    if $game_player.x == new_x and $game_player.y == new_y
      # すり抜け OFF なら
      unless $game_player.through
        # 自分のグラフィックがキャラクターの場合
        if @character_name != ""
          # 通行不可
          return false
        end
      end
    end
    # 通行可
    return true
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Game_Character (分割定義 2)
#==============================================================================

class Game_Character
  #--------------------------------------------------------------------------
  # ● フレーム更新 (移動)
  #--------------------------------------------------------------------------
  alias update_move_KGC_MapLoop update_move
  def update_move
    update_move_KGC_MapLoop

# 横方向ループ処理
    if $game_map.horizontal_loop? && @x << 7 == @real_x
      if @x == -1
        @x = $game_map.width - 1
        @real_x = @x << 7
      elsif @x == $game_map.width
        @x = @real_x = 0
      end
    end
    # 縦方向ループ処理
    if $game_map.vertical_loop? && @y << 7 == @real_y
      if @y == -1
        @y = $game_map.height - 1
        @real_y = @y << 7
      elsif @y == $game_map.height
        @y = @real_y = 0
      end
    end
  end
end

#★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

#==============================================================================
# ■ Spriteset_Map
#==============================================================================

class Spriteset_Map
  if KGC::ML_EDGE_SHOW
  #--------------------------------------------------------------------------
  # ● 解放
  #--------------------------------------------------------------------------
  alias dispose_KGC_MapLoop dispose
  def dispose
    if @character_sprites_h != nil
      @character_sprites_h.each { |sprite| sprite.dispose }
    end
    if @character_sprites_v != nil
      @character_sprites_v.each { |sprite| sprite.dispose }
    end

dispose_KGC_MapLoop
  end
  #--------------------------------------------------------------------------
  # ● フレーム更新
  #--------------------------------------------------------------------------
  alias update_KGC_MapLoop update
  def update
    update_KGC_MapLoop

# 横方向スプライト補正
    if $game_map.horizontal_loop?
      if @character_sprites_h == nil
        @character_sprites_h = []
        $game_map.events.keys.sort.each { |i|
          sprite = Sprite_Character.new(@viewport1, $game_map.events[i])
          @character_sprites_h << sprite
        }
      end
      edge = $game_map.horizontal_edge
      @character_sprites_h.each { |sprite|
        sprite.update
        if edge == -1
          sprite.x -= $game_map.width << 5
        elsif edge == 1
          sprite.x += $game_map.width << 5
        end
      }
    end
    # 縦方向スプライト補正
    if $game_map.vertical_loop?
      if @character_sprites_v == nil
        @character_sprites_v = []
        $game_map.events.keys.sort.each { |i|
          sprite = Sprite_Character.new(@viewport1, $game_map.events[i])
          @character_sprites_v << sprite
        }
      end
      edge = $game_map.vertical_edge
      @character_sprites_v.each { |sprite|
        sprite.update
        if edge == -1
          sprite.y -= $game_map.height << 5
          sprite.z -= $game_map.height << 5 if sprite.z < 999
        elsif edge == 1
          sprite.y += $game_map.height << 5
          sprite.z += $game_map.height << 5 if sprite.z < 999
        end
      }
    end
  end
  end
end

↑目次

使用法

Usage

ML_EDGE_SHOW = true

をfalseにすると、マップ端のイベント表示処理をカットします。
見た目が悪くなる分、処理は軽くなります。
（見えなくても良い場合はオフにすることを推奨）

ループ機能を付加するには、マップ名に[LH] [LV] [LHV] [LVH]のいずれかを追加してください。
[LH]は横方向のみ、[LV]は縦方向のみ、[LHV]または[LVH]は縦横双方向のループになります。

↑目次

注意事項

Notes

ループ時、フォグがブレる(ことがある)。

何だか微妙ですが、ワールドマップには使えると思います。
(単純なループ式ダンジョンにも使えるかも)
フォグ・パノラマ等は…なるべく使わないでください。(´・ω・`)

↑目次

似非マップループ

MapLoop

目次

Outline

概要

Summary

更新履歴

History

スクリプト

Script

使用法

Usage

注意事項

Notes