如何做到飞鸟到了夜间时回巢休息的效果？

文雅夕露 · 发表于 2017-12-12 21:25:25

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

这是个飞鸟的事件，白天的时候就是在地图上随机飞行。

但到了夜间，变量等于3的时候就会回巢（地图固定的位置）休息。
因为随机移动的影响所以无法计算它具体的位置，
请教该怎么设置才能实现效果？

yang1zhi · 发表于 2017-12-12 21:30:10

使用自动寻路脚本，论坛应该可以搜索得到。
不过事件要是多，地图要是大，是会变卡的。

guoxiaomi · 发表于 2017-12-12 23:52:16

飞鸟应该是穿透的，所以不需要寻路，直接飞到目的地就OK。
关于自定义路线的方法：
先写这样的一个函数，具体的内容照抄 move_toward_player，

class Game_Character
def move_toward_pos(x, y)
...
end
end

复制代码

然后设置事件的移动模式：自定义，脚本：move_toward_pos(10, 10)

就会飞回 10, 10 的位置，同样也可以在里面进行一些其他的路线设置。

SailCat · 发表于 2017-12-13 00:16:50

事件向移动呗

事件向移动：使用方法为，将移动路线改为自定义，然后在脚本里写"move_type_toward_event(事件ID)
那个事件ID就是你的巢穴ID，它会自己回去的，因为鸟是穿透的

RUBY 代码复制

class Game_Character[/font]
  #--------------------------------------------------------------------------
  # ● 移动类型 : 接近事件
  #    event_id : 事件编号
  #--------------------------------------------------------------------------
  def move_type_toward_event(event_id, sight = 20, ai = 6)
    # 求得与事件坐标的差
    sx = @x - $game_map.events[event_id].x
    sy = @y - $game_map.events[event_id].y
    # 求得差的绝对值
    abs_sx = sx > 0 ? sx : -sx
    abs_sy = sy > 0 ? sy : -sy
    # 如果方圆超过了视野
    if abs_sx ** 2 + abs_sy ** 2 >= sight ** 2
      # 随机
      move_random
      return
    end
    # 随机 0～5 的分支
    case rand(ai)
    when 0..3  # 接近事件
      move_toward_event(event_id)
    when 4  # 随机
      move_random
    when 5  # 前进一步
      move_forward
    end
  end
  #--------------------------------------------------------------------------
  # ● 接近事件
  #    event_id : 事件编号
  #--------------------------------------------------------------------------
  def move_toward_event(event_id)
    # 求得与事件的坐标差
    sx = @x - $game_map.events[event_id].x
    sy = @y - $game_map.events[event_id].y
    # 坐标相等情况下
    if sx == 0 and sy == 0
      return
    end
    # 求得差的绝对值
    abs_sx = sx.abs
    abs_sy = sy.abs
    # 横距离与纵距离相等的情况下
    if abs_sx == abs_sy
      # 随机将边数增加 1
      rand(2) == 0 ? abs_sx += 1 : abs_sy += 1
    end
    # 横侧距离长的情况下
    if abs_sx > abs_sy
      # 左右方向优先。向事件移动
      sx > 0 ? move_left : move_right
      if not moving? and sy != 0
        sy > 0 ? move_up : move_down
      end
    # 竖侧距离长的情况下
    else
      # 上下方向优先。向事件移动
      sy > 0 ? move_up : move_down
      if not moving? and sx != 0
        sx > 0 ? move_left : move_right
      end
    end
  end
end

class Game_Character[/font]


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


  # ● 移动类型 : 接近事件


  #    event_id : 事件编号


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


  def move_type_toward_event(event_id, sight = 20, ai = 6)


    # 求得与事件坐标的差


    sx = @x - $game_map.events[event_id].x


    sy = @y - $game_map.events[event_id].y


    # 求得差的绝对值


    abs_sx = sx > 0 ? sx : -sx


    abs_sy = sy > 0 ? sy : -sy


    # 如果方圆超过了视野


    if abs_sx ** 2 + abs_sy ** 2 >= sight ** 2


      # 随机


      move_random


      return


    end


    # 随机 0～5 的分支


    case rand(ai)


    when 0..3  # 接近事件


      move_toward_event(event_id)


    when 4  # 随机


      move_random


    when 5  # 前进一步


      move_forward


    end


  end


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


  # ● 接近事件


  #    event_id : 事件编号


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


  def move_toward_event(event_id)


    # 求得与事件的坐标差


    sx = @x - $game_map.events[event_id].x


    sy = @y - $game_map.events[event_id].y


    # 坐标相等情况下


    if sx == 0 and sy == 0


      return


    end


    # 求得差的绝对值


    abs_sx = sx.abs


    abs_sy = sy.abs


    # 横距离与纵距离相等的情况下


    if abs_sx == abs_sy


      # 随机将边数增加 1


      rand(2) == 0 ? abs_sx += 1 : abs_sy += 1


    end


    # 横侧距离长的情况下


    if abs_sx > abs_sy


      # 左右方向优先。向事件移动


      sx > 0 ? move_left : move_right


      if not moving? and sy != 0


        sy > 0 ? move_up : move_down


      end


    # 竖侧距离长的情况下


    else


      # 上下方向优先。向事件移动


      sy > 0 ? move_up : move_down


      if not moving? and sx != 0


        sx > 0 ? move_left : move_right


      end


    end


  end


end

defisym · 发表于 2017-12-13 19:21:14

没有必要处理的那么复杂
判定主角和鸟巢的距离，在小于一定阈值的时候在夜晚的时候将白天的鸟儿销毁（保险起见可以先让他们远离主角移动）
同时在主角刚好看不见的地方创建归巢的鸟儿（移动），由于创建的点是你手动设定的，所以移动路线也是可以手动设定的，只需要设定两到三个起始位置和回家路线并且随机调用即可
合理调整阈值就可以了，这种处理方式相对来说要更加节约机能，实现起来也更简单一些
当然遇到那种无聊一直追着鸟走的就没办法了（比如说我（逃）

yang1zhi · 发表于 2017-12-13 19:53:47

简单点的就是显示个切换时间的图片，然后把白天的事件全都消掉，然后图片消失

芯☆淡茹水 · 发表于 2017-12-13 21:16:01

本帖最后由芯☆淡茹水于 2017-12-13 21:18 编辑

这个效果有点233，

随手改造了一下：

RUBY 代码复制

#==============================================================================
class Game_Event < Game_Character
  #变量ID
  VAR_ID = 1
  #变量值（大于或等于：停止）
  VAR_NUM = 3
  #--------------------------------------------------------------------------
  def is_bird?
    return false if @list.nil? || @list[0].code != 108
    return @list[0].parameters[0].match(/<Location:(\S+)>/) != nil
  end
  #--------------------------------------------------------------------------
  def target_location
    return [0,0] if @list.nil? || @list[0].code != 108
    return [0,0] if !@list[0].parameters[0].match(/<Location:(\S+)>/)
    data = $1.split(",")
    return [data[0].to_i,data[1].to_i]
  end
  #--------------------------------------------------------------------------
  def land?
    return is_bird? && $game_variables[VAR_ID] >= VAR_NUM
  end
end
#==============================================================================
class Game_Character
  #--------------------------------------------------------------------------
  alias xrdata_move_type_random move_type_random
  def move_type_random
    if self.is_a?(Game_Event) && land?
      moveto_target
      return
    end
    xrdata_move_type_random
  end
  #--------------------------------------------------------------------------
  def moveto_target
    sx = @x - target_location[0]
    sy = @y - target_location[1]
    # 坐标相等情况下
    if sx == 0 and sy == 0
      key = [$game_map.map_id, @id, "A"]
      $game_self_switches[key] = $game_map.need_refresh = true
      return
    end
    # 求得差的绝对值
    abs_sx = sx.abs
    abs_sy = sy.abs
    # 横距离与纵距离相等的情况下
    if abs_sx == abs_sy
      # 随机将边数增加 1
      rand(2) == 0 ? abs_sx += 1 : abs_sy += 1
    end
    # 横侧距离长的情况下
    if abs_sx > abs_sy
      # 左右方向优先。向主角移动
      sx > 0 ? move_left : move_right
      if not moving? and sy != 0
        sy > 0 ? move_up : move_down
      end
    # 竖侧距离长的情况下
    else
      # 上下方向优先。向主角移动
      sy > 0 ? move_up : move_down
      if not moving? and sx != 0
        sx > 0 ? move_left : move_right
      end
    end
  end
end
#==============================================================================

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


class Game_Event < Game_Character


  #变量ID


  VAR_ID = 1


  #变量值（大于或等于：停止）


  VAR_NUM = 3


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


  def is_bird?


    return false if @list.nil? || @list[0].code != 108


    return @list[0].parameters[0].match(/<Location:(\S+)>/) != nil


  end


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


  def target_location


    return [0,0] if @list.nil? || @list[0].code != 108


    return [0,0] if !@list[0].parameters[0].match(/<Location:(\S+)>/)


    data = $1.split(",")


    return [data[0].to_i,data[1].to_i]


  end


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


  def land?


    return is_bird? && $game_variables[VAR_ID] >= VAR_NUM


  end


end


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


class Game_Character


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


  alias xrdata_move_type_random move_type_random


  def move_type_random


    if self.is_a?(Game_Event) && land?


      moveto_target


      return


    end


    xrdata_move_type_random


  end


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


  def moveto_target


    sx = @x - target_location[0]


    sy = @y - target_location[1]


    # 坐标相等情况下


    if sx == 0 and sy == 0


      key = [$game_map.map_id, @id, "A"]


      $game_self_switches[key] = $game_map.need_refresh = true


      return


    end


    # 求得差的绝对值


    abs_sx = sx.abs


    abs_sy = sy.abs


    # 横距离与纵距离相等的情况下


    if abs_sx == abs_sy


      # 随机将边数增加 1


      rand(2) == 0 ? abs_sx += 1 : abs_sy += 1


    end


    # 横侧距离长的情况下


    if abs_sx > abs_sy


      # 左右方向优先。向主角移动


      sx > 0 ? move_left : move_right


      if not moving? and sy != 0


        sy > 0 ? move_up : move_down


      end


    # 竖侧距离长的情况下


    else


      # 上下方向优先。向主角移动


      sy > 0 ? move_up : move_down


      if not moving? and sx != 0


        sx > 0 ? move_left : move_right


      end


    end


  end


end


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

需要在飞行事件的飞行状态那一页，事件第一行注释：<Location:x,y>
表示需要停止时飞向的坐标（没注释就不能停止飞）。飞到目标自动打开独立开关A。
然后两个事件页设置如下（注意停止时需要并行处理）

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

[已经解决] 如何做到飞鸟到了夜间时回巢休息的效果？

加入我们，或者，欢迎回来。

评分

点评

评分

点评

点评

点评

评分

开拓者