查看: 3956|回复: 3

[已经解决] 如何让事件在一定范围内接近玩家。

[复制链接]
梦石
0
星屑
50
在线时间
135 小时
注册时间
2011-8-1
回帖
158
发表于 2013-7-16 12:18:21 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有账号?注册会员

×
{:2_270:} 我是想做一个门卫一样的人物,然后在玩家靠近门的时候跑过去和他说话,可是一设定就疯狂地跑向玩家了。
然后我在门口设了个事件,不可穿透玩家接触可穿透的,但是玩家可穿透事件也可穿透了。。。
然后门卫就像疯子一样一直跟着我,没办法了,求各位大大解决办法
就是在一定范围内接近玩家的。事件怎么设定

세상은 너무 미쳐있다
梦石
0
星屑
143
在线时间
347 小时
注册时间
2010-7-7
回帖
96
发表于 2013-7-16 12:36:58 | 显示全部楼层
[pre lang="ruby" line="1"]#==============================================================================
# +++ MOG - Event Sensor Range (v1.0) +++
#==============================================================================
# By Moghunter
# http://www.atelier-rgss.com
#==============================================================================
# Permite que o evento tenha dois comportamentos, de curta distância e de
# longa distância.
#===============================================================================
# - Utilização
# Crie uma página com a condição de ativação Self Switch D, está página será
# usada quando o player estiver perto do evento.
# Defina a area do sensor do evento colocando este nome no evento.
#
# <SensorX>
#
# X = Area do Sensor
#
#===============================================================================
module MOG_EVENT_SENSOR
  #Definição da letra da Self Switch que ativará a página de curta distância.
  SENSOR_SELF_SWITCH = "D"
end

#===============================================================================
# ■ GAME EVENT
#===============================================================================
class Game_Event < Game_Character
  
  attr_reader   :sensor_range
  
  #--------------------------------------------------------------------------
  # ● Initialize
  #--------------------------------------------------------------------------            
  alias mog_event_sensor_initialize initialize
  def initialize(map_id, event)
      mog_event_sensor_initialize(map_id, event)
      setup_event_sensor
  end
  
  #--------------------------------------------------------------------------
  # ● Setup Event Sensor
  #--------------------------------------------------------------------------         
  def setup_event_sensor
      @sensor_range =  @event.name =~ /<Sensor(\d+)>/ ? $1.to_i : 0
  end  
  
  #--------------------------------------------------------------------------
  # ● Update
  #--------------------------------------------------------------------------            
  alias mog_event_sensor_update update
  def update
      mog_event_sensor_update
      update_event_sensor
  end  
  
  #--------------------------------------------------------------------------
  # ● Update Sensor
  #--------------------------------------------------------------------------        
  def update_event_sensor
      return if @sensor_range == 0
      distance = ($game_player.x - self.x).abs + ($game_player.y - self.y).abs
      enable   = (distance <= @sensor_range)
      key = [$game_map.map_id, self.id, MOG_EVENT_SENSOR::SENSOR_SELF_SWITCH]
      last_enable = $game_self_switches[key]
      execute_sensor_effect(enable,key) if enable != last_enable
    end

  #--------------------------------------------------------------------------
  # ● Execute_Sensor Effect
  #--------------------------------------------------------------------------            
  def execute_sensor_effect(enable,key)      
      @pattern = 0
      @pattern_count = 0               
      $game_self_switches[key] = enable
      self.refresh
  end
   
end

$mog_rgss3_event_sensor = true[/pre]
事件范围的脚本,使用方法:
首先,更改事件名称为XXX<Sensor3>,也就是事件的名称加上<Sensor3>,其中3可以替换成其他数字,也就是事件触发的范围;
第一页可以设定为事件固定或随机移动。
111.jpg
然后是第二页,点选独立开关D开启时,也就是在玩家的3格范围内,事件的动作,这时可以设定为接近玩家移动。
222.jpg
这样的效果就是,该事件在玩家3格范围内时,会接近玩家,并触发战斗。

点评

多谢了 好脚本  发表于 2013-7-19 17:57

评分

参与人数 1星屑 +100 梦石 +1 收起 理由
Mic_洛洛 + 100 + 1 认可答案

查看全部评分

回复

使用道具 举报

梦石
0
星屑
50
在线时间
46 小时
注册时间
2013-7-13
回帖
55
发表于 2013-7-16 13:11:20 | 显示全部楼层
学到了。
回复

使用道具 举报

梦石
0
星屑
196
在线时间
229 小时
注册时间
2011-5-19
回帖
647
发表于 2013-7-18 10:43:02 | 显示全部楼层
多谢1楼的脚本,收下了。
休息中……
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖返回顶部