XP，如何实现同一地图不同区域遇到不同的怪物 - Project1

#范围暗雷遇敌
#2018/10/5 By真可乐
#配置步骤
#创建配置事件
  # 在地图上放置一个事件
  # 事件名称设置为：/encounter_list
  #  在事件的第一页中，选择“注释”命令
  #  在注释框中输入配置信息
  #  每行一个敌群区域配置
  #  支持多个敌群在不同区域同时生效
  #
  # 例子 ，在地图的x坐标2到12，y坐标3到13区域内遇到敌群15，t[15]r[2,12,3,13]
#======================================================================================================================================================
module RangEncounter
  RANG_EC = 46 #几号开关控制范围暗雷遇敌开启，默认设置为46号
end
 
class Game_Event
  attr_reader    :event
end
 
class Rang_Troop #范围遇敌队伍
  attr_reader       :troop_id
  attr_reader       :xmax
  attr_reader       :xmin
  attr_reader       :ymax
  attr_reader       :ymin
 def initialize(troop_id,xmin,xmax,ymin,ymax)
   @troop_id = troop_id ; @xmax = xmax ; @xmin = xmin ; @ymax = ymax ;@ymin = ymin
 end
end
 
class Game_Map
  #--------------------------------------------------------------------------
  # * 先阉掉原来的遇敌
  #--------------------------------------------------------------------------
  def encounter_list
    return ($game_switches[RangEncounter::RANG_EC] ? [] : @map.encounter_list)
  end
 
  alias setup_zcl20181005 setup
  def setup(map_id)
    setup_zcl20181005(map_id)
    @encounter_list_range = Array.new
    @events.values.each do |ev|
      if ev.event.name == "/encounter_list"
 
        @encounter_list_range = get_troop(ev)
        #以检索到的首个为准
        break
 
      end
    end
  end
 
  def get_troop(ev)
    return [] unless ev.is_a?(Game_Event)
     return [] if ev.list.nil?
     encounter = []
       for i in 0...ev.list.size  
         next if ev.list[i].code != 108
          pa = ev.list[i].parameters[0]  
          /(t\[(.*)\])/ =~ pa
          next if $1.nil?
          troop =  $1.delete("t[").delete("]").to_i unless $1.nil?
           /(r\[(.*)\,(.*)\,(.*)\,(.*)\])/ =~ pa
         # rang = [$2.to_i,$3.to_i,$4.to_i,$5.to_i]
         next if $1.nil? or  $2.nil? or $3.nil? or $4.nil? or $5.nil?
 
          encounter.push(Rang_Troop.new(troop,$2.to_i,$3.to_i,$4.to_i,$5.to_i))
 
 
       end
     return  encounter
   end
  #--------------------------------------------------------------------------
  # * 再定义一个新的遇敌列表
  #--------------------------------------------------------------------------    
    def encounter_list_range
     return @encounter_list_range
    end
end
 
class Scene_Map
  alias update_zcl20181005 update
  def update
    update_zcl20181005
 
      # If encounter list isn't empty, and encounter count is 0
    if $game_player.encounter_count == 0 and $game_map.encounter_list_range != [] and $game_switches[RangEncounter::RANG_EC]
      # If event is running or encounter is not forbidden
      unless $game_system.map_interpreter.running? or
             $game_system.encounter_disabled or
             (tr = confirm_troop).nil?
 
 
        troop_id = tr.troop_id
        # If troop is valid
        if $data_troops[troop_id] != nil
          # Set battle calling flag
          $game_temp.battle_calling = true
          $game_temp.battle_troop_id = troop_id
          $game_temp.battle_can_escape = true
          $game_temp.battle_can_lose = false
          $game_temp.battle_proc = nil
        end
      end
    end
  end
 
  def confirm_troop
     p_x = $game_player.x
      p_y = $game_player.y
      str = Array.new
    $game_map.encounter_list_range.each do |tr|
      next unless tr.is_a?(Rang_Troop)
        if p_x >= tr.xmin and p_x <= tr.xmax and p_y >= tr.ymin and p_y <= tr.ymax
 
          str.push(tr)
        end
      end
      return nil if str.empty?
      return str[rand(str.size)]
    end
end

#范围暗雷遇敌


#2018/10/5 By真可乐


#配置步骤


#创建配置事件


  # 在地图上放置一个事件


  # 事件名称设置为：/encounter_list


  #  在事件的第一页中，选择“注释”命令


  #  在注释框中输入配置信息


  #  每行一个敌群区域配置


  #  支持多个敌群在不同区域同时生效


  #


  # 例子 ，在地图的x坐标2到12，y坐标3到13区域内遇到敌群15，t[15]r[2,12,3,13]


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


module RangEncounter


  RANG_EC = 46 #几号开关控制范围暗雷遇敌开启，默认设置为46号


end


 


class Game_Event


  attr_reader    :event


end


 


class Rang_Troop #范围遇敌队伍


  attr_reader       :troop_id


  attr_reader       :xmax


  attr_reader       :xmin


  attr_reader       :ymax


  attr_reader       :ymin


 def initialize(troop_id,xmin,xmax,ymin,ymax)


   @troop_id = troop_id ; @xmax = xmax ; @xmin = xmin ; @ymax = ymax ;@ymin = ymin


 end


end


 


class Game_Map


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


  # * 先阉掉原来的遇敌


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


  def encounter_list


    return ($game_switches[RangEncounter::RANG_EC] ? [] : @map.encounter_list)


  end


 


  alias setup_zcl20181005 setup


  def setup(map_id)


    setup_zcl20181005(map_id)


    @encounter_list_range = Array.new


    @events.values.each do |ev|


      if ev.event.name == "/encounter_list"


 


        @encounter_list_range = get_troop(ev)


        #以检索到的首个为准


        break


 


      end


    end


  end


 


  def get_troop(ev)


    return [] unless ev.is_a?(Game_Event)


     return [] if ev.list.nil?


     encounter = []


       for i in 0...ev.list.size  


         next if ev.list[i].code != 108


          pa = ev.list[i].parameters[0]  


          /(t\[(.*)\])/ =~ pa


          next if $1.nil?


          troop =  $1.delete("t[").delete("]").to_i unless $1.nil?


           /(r\[(.*)\,(.*)\,(.*)\,(.*)\])/ =~ pa


         # rang = [$2.to_i,$3.to_i,$4.to_i,$5.to_i]


         next if $1.nil? or  $2.nil? or $3.nil? or $4.nil? or $5.nil?


 


          encounter.push(Rang_Troop.new(troop,$2.to_i,$3.to_i,$4.to_i,$5.to_i))


 


 


       end


     return  encounter


   end


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


  # * 再定义一个新的遇敌列表


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


    def encounter_list_range


     return @encounter_list_range


    end


end


 


class Scene_Map


  alias update_zcl20181005 update


  def update


    update_zcl20181005


 


      # If encounter list isn't empty, and encounter count is 0


    if $game_player.encounter_count == 0 and $game_map.encounter_list_range != [] and $game_switches[RangEncounter::RANG_EC]


      # If event is running or encounter is not forbidden


      unless $game_system.map_interpreter.running? or


             $game_system.encounter_disabled or


             (tr = confirm_troop).nil?


 


 


        troop_id = tr.troop_id


        # If troop is valid


        if $data_troops[troop_id] != nil


          # Set battle calling flag


          $game_temp.battle_calling = true


          $game_temp.battle_troop_id = troop_id


          $game_temp.battle_can_escape = true


          $game_temp.battle_can_lose = false


          $game_temp.battle_proc = nil


        end


      end


    end


  end


 


  def confirm_troop


     p_x = $game_player.x


      p_y = $game_player.y


      str = Array.new


    $game_map.encounter_list_range.each do |tr|


      next unless tr.is_a?(Rang_Troop)


        if p_x >= tr.xmin and p_x <= tr.xmax and p_y >= tr.ymin and p_y <= tr.ymax


 


          str.push(tr)


        end


      end


      return nil if str.empty?


      return str[rand(str.size)]


    end


end