#========== イベント設定 ==========#
  #[イベント, x位置, y位置, キャラクタ, 初期向き, イベントID]
  $map_event = [[nil, 5, 12, 'mobchara_Test', 'down', 0],
                [nil, 11, 27, 'mobchara_Test', 'up', 1],
                [nil, 19, 6, 'mobchara_Test', 'right', 2]]

    #========== 他キャラクタの追加 ==========#
    #===== 配置 =====#
    count = 0
    $map_event.each do |item|
      setX = 16+32* item[1]
      setY = 32+32* item[2]
      mob_sprite = put_sprite item[3] do
        position setX, setY
        frame_index 0
      end
      character_layer.add mob_sprite # レイヤーに追加
      mob_sprite.layer_index setY # 重なり順を設定
      mob_sprite.start_animation(item[4]) # downアニメーションの開始
      #===== 当たり判定 =====#
      mob_sprite.collision_size(32, 32, 0, 8) #当たり判定位置、サイズ
      mob_sprite.movable false #衝突しても動かない
      
      $map_event[count][0] = mob_sprite
      count += 1
    end

～前略～
    #========== キーボード操作 ==========#
    
    if keyboard.down?('Z') && !keyput_Z
      keyput_Z = true

      #プレーヤー向きにより当たり判定を変え、イベントと接触させる
      case $charadirection[(player_sprite.frame_index/$charadirection_pattern).floor]
        when 'down'
          player_sprite.collision_size(32, 64, 0, 24)
        when 'left'
          player_sprite.collision_size(64, 32, -16, 8)
        when 'right'
          player_sprite.collision_size(64, 32, 16, 8)
        when 'up'
          player_sprite.collision_size(32, 64, 0, -8)
      end

    elsif keyput_Z
        #===== イベントと接触時処理 =====#
        debug_log "接触判定"
        collision(player_sprite, character_layer) do
          debug_log "イベント実行"
          # 取得できるスプライトの順番とcollisionメソッドに渡した引数の順番は対応付くことに注意してください
          obj1, obj2 = collision_pair
          
          #プレーヤーの方を向く
          case (player_sprite.frame_index/$charadirection_pattern).floor
            when 0 #下
              obj2.start_animation('up')
            when 1 #左
              obj2.start_animation('right')
            when 2 #右
              obj2.start_animation('left')
            when 3 #上
              obj2.start_animation('down')
          end

          #===== 実行するイベントを取得 => 実行 =====#
          $map_event.each do |item|
            if item[0] === obj2
              #イベントの実行
              case $map_num
                when 0
                  MapEvent_num0(item[5])
              else
                debug_log "イベント設定の無いマップ:#{$map_num}"
              end
              break
            end
          end
          
        end

        #Zキー離すまで待機
        while keyboard.down?('Z')
          wait_time(10)
        end
        keyput_Z = false
        player_sprite.collision_size(32, 32, 0, 8) #当たり判定戻す

    else

～中略～

#□□□□□□□□□□ 各マップイベント設定 □□□□□□□□□□#
def MapEvent_num0(id)
  case id
    when 0
      debug_log "0番イベント"
    when 1
      debug_log "1番イベント"
    when 2
      debug_log "2番イベント"
    when 3
      debug_log "3番イベント"
  else
    debug_log "マップ0-設定の無いイベントID:#{id}"
  end
end