怪物范围攻击

y967

明雷怪，让怪在离角色一定距离内就接近角色主动攻击，距离外就随机移动，如何实现

夜狠简单

思路

夜狠简单

看看这个
http://rpg.blue/thread-108850-1-1.html

89444640

夜狠简单 发表于 2016-9-22 21:16
看看这个
http://rpg.blue/thread-108850-1-1.html

看了，这个系统比较详细，非常感谢。但是没范例，应该怎么用呢？是不是用作者描述的代码在事件中写上然后并行处理？
试了一下好像知道了，应该是单独建立个事件开关D打开时候更改角色移动为接近。

那个颜色方面我还有个疑问， 这个帖子说 默认视线颜色是0xf0 16进制的颜色代码 我改为0XFF应该是红，可是显示出来却是青色，请问这是是为何？

cmmd1

我看你需要这个

RUBY 代码复制

#==============================================================================
# ■ XP敌人视野脚本 BY 万兽熊最高
# [url]http://bearrpg.weebly.com[/url]
#==============================================================================
module SEEK
  #定义敌人事件的标记，把敌人事件的名字改成下面设定的字符串就成。
  ENE_TAG = "enemy"
  #定义敌人的视野距离，默认为5格
  SEEK_DIS = 5
  #定义逃出视野距离，默认为7格
  ESP_DIS = 7
  #定义发现目标时播放的动画ID，默认98
  ANI_ID = 98
end
class Game_Character
  alias bearrpg update
  def update
    seek_player
    bearrpg
  end 
  #--------------------------------------------------------------------------
  # ● 敌人追击范围判定
  #--------------------------------------------------------------------------
  def viewrange
    if ($game_player.x-@x)**2 + ($game_player.y-@y)**2 < SEEK::SEEK_DIS**2
      case @direction
          when 2
           return false if $game_player.y < @y 
          when 4
           return false if $game_player.x > @x 
          when 6
           return false if $game_player.x < @x 
          when 8
           return false if $game_player.y > @y
         end
         return true
       else
         return false
      end 
  end
  #--------------------------------------------------------------------------
  # ● 逃出视野范围
  #--------------------------------------------------------------------------
  def viewout
    return false if ($game_player.x-@x)**2 + ($game_player.y-@y)**2 < SEEK::ESP_DIS**2
    return true
  end
  #--------------------------------------------------------------------------
  # ● 发现玩家
  #--------------------------------------------------------------------------
  def seek_player
    return if @event == nil
    return if @move_type == 0
    for event in $game_map.events.values
    if events = $game_map.events  
    if @event.name == SEEK::ENE_TAG
    if !@seeking && viewrange
        @animation_id = SEEK::ANI_ID
        @remain = [@move_type, @move_speed]
        @seeking = true
        @move_type = 2
        @move_speed = @remain[1] += 1
      elsif @seeking && viewout
      @seeking = false
      if @remain != nil
        @move_type = @remain[0]
        @move_speed -= 1
      end
    end
   end
  end
end
end
end

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


# ■ XP敌人视野脚本 BY 万兽熊最高


# [url]http://bearrpg.weebly.com[/url]


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


module SEEK


  #定义敌人事件的标记，把敌人事件的名字改成下面设定的字符串就成。


  ENE_TAG = "enemy"


  #定义敌人的视野距离，默认为5格


  SEEK_DIS = 5


  #定义逃出视野距离，默认为7格


  ESP_DIS = 7


  #定义发现目标时播放的动画ID，默认98


  ANI_ID = 98


end


class Game_Character


  alias bearrpg update


  def update


    seek_player


    bearrpg


  end 


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


  # ● 敌人追击范围判定


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


  def viewrange


    if ($game_player.x-@x)**2 + ($game_player.y-@y)**2 < SEEK::SEEK_DIS**2


      case @direction


          when 2


           return false if $game_player.y < @y 


          when 4


           return false if $game_player.x > @x 


          when 6


           return false if $game_player.x < @x 


          when 8


           return false if $game_player.y > @y


         end


         return true


       else


         return false


      end 


  end


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


  # ● 逃出视野范围


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


  def viewout


    return false if ($game_player.x-@x)**2 + ($game_player.y-@y)**2 < SEEK::ESP_DIS**2


    return true


  end


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


  # ● 发现玩家


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


  def seek_player


    return if @event == nil


    return if @move_type == 0


    for event in $game_map.events.values


    if events = $game_map.events  


    if @event.name == SEEK::ENE_TAG


    if !@seeking && viewrange


        @animation_id = SEEK::ANI_ID


        @remain = [@move_type, @move_speed]


        @seeking = true


        @move_type = 2


        @move_speed = @remain[1] += 1


      elsif @seeking && viewout


      @seeking = false


      if @remain != nil


        @move_type = @remain[0]


        @move_speed -= 1


      end


    end


   end


  end


end


end


end