View difference between Paste ID: JAgf9Zk8 and RvEE7QWc

 #==============================================================================
-# • Sensor Event
+# • Ultimate Sensor Event
 #==============================================================================
 # Autor: Dax
 # Requerimento: Dax Core
-# Versão: 2.0
+# Versão: 2.5
 # Site: www.dax-soft.weebly.com
 #==============================================================================
 # @tiagoms : Feedback que ajudou a incrementar mais.
 #==============================================================================
 # • Descrição:
 #------------------------------------------------------------------------------
 #  Um sistema de sensor, onde permite diferentes tipos de formas dos eventos
 # "sentir" a presença do jogador.
 #==============================================================================
 # • Como usar: Utilze os comandos em condições.
 #------------------------------------------------------------------------------
 #  a : área em quadrados(tiles) em que o sensor será ativado. Por padrão é 1
 #  b : ID do evento. Se definir nada, é o evento local. Por padrão é o evento local.
 #------------------------------------------------------------------------------
 # 1 * Primeiro tipo de sensor, e o sensor de área. O comando para calcular esse
 # tipo de sensor é o : sarea?(a, b) :
 # 2 * Sensor que verifica se está em baixo do evento..: sfront?(a, b)
 # 3 * Sensor que verifica se está em cima do evento..: sago?(a, b)
 # 4 * Sensor que verifica se está a esquerda do evento: sleft?(a, b)
 # 5 * Sensor que verifica se está a direita do evento: sright?(a, b)
 # 6 * Sensor que faz uma verificação em forma de cruz: scross?(a, b)
-# 9 * Sensor que verifica se está dentro da área de um círculo(formato de um
+
-# círculo) : scircle?(a, b)
+
-# 10 * Sensor que verifica se está somente atrás do evento. sbehind?(a, b)
+# 9 * Sensor que verifica se está somente atrás do evento. sbehind?(a, b)
 # 10 * Sensor que verifica se está somente a esquerda do evento. vleft?(a, b)
-Dax.register(:sensor_event, "Dax", 2.0, "12/07/14")
+# 11 * Sensor que verifica se está somente a direita do evento. vright?(a, b)
 #------------------------------------------------------------------------------
 # * Atenção, o item 2 á 5 são estáticos, ou seja,
 # serão fixos independente da direção em que o evento esteja
 # * Os itens 7, 9, 10, 11: Em uma linha reta
 #------------------------------------------------------------------------------
 #==============================================================================
 Dax.register(:sensor_event, "Dax", 2.5, "12/07/14")
 #==============================================================================
 # • Game_Interpreter
 #==============================================================================
 class Game_Interpreter
   #----------------------------------------------------------------------------
   # • Pega as coordenadas do evento é do player.
   #----------------------------------------------------------------------------
   def block_sensor(b=nil)
     event = $game_map.events[b.nil? ? @event_id : Integer(b)]
     yield(event.x, event.y, $game_player.x, $game_player.y)
   end
   #----------------------------------------------------------------------------
   # • Sensor por área.
   #----------------------------------------------------------------------------
   def sarea?(a=1, b=nil)
      a = a < 0 || a.nil? ? 1 : Integer(a).abs
     distance = DMath.distance_sensor($game_player, $game_map.events[b.nil? ? @event_id : Integer(b)])
     return (distance <= a)
   end
   #----------------------------------------------------------------------------
   # • Sensor na frente do evento.
   #----------------------------------------------------------------------------
   def sfront?(a=1, b=nil)
     a = a < 0 || a.nil? ? 1 : Integer(a).abs
     block_sensor(b) { |ex, ey, px, py|
       return unless px == ex
       (ey..(ey + a)).each { |y|
         break unless $game_map.passable?(ex, y, 2)
         return true if py == y
       }
     }
     return false
   end
   #----------------------------------------------------------------------------
   # • Sensor atrás do evento.
   #----------------------------------------------------------------------------
   def sago?(a=1, b=nil)
     a = a < 0 || a.nil? ? 1 : Integer(a).abs
     block_sensor(b) { |ex, ey, px, py|
       return unless px == ex
       ey.downto(ey - a).each { |y|
         break unless $game_map.passable?(ex, y, 8)
         return true if py == y
       }
     }
     return false
   end
   #----------------------------------------------------------------------------
   # • Sensor quando estiver sobre o evento.
   #----------------------------------------------------------------------------
   def sabout?(b=nil)
     block_sensor(b) { |ex, ey, px, py| return true if px == ex && py == ey }
     return false
   end
   #----------------------------------------------------------------------------
   # • Sensor quando estiver a direita do evento.
   #----------------------------------------------------------------------------
   def sright?(a=1, b=nil)
     a = a < 0 || a.nil? ? 1 : Integer(a).abs
     block_sensor(b) {|ex, ey, px, py|
       return unless py == ey
       (ex..(ex + a)).each { |x|
         break unless $game_map.passable?(x, ey, 6)
         return true if px == x
       }
     }
     return false
   end
   #----------------------------------------------------------------------------
   # • Sensor quando estiver a esquerda do evento.
   #----------------------------------------------------------------------------
   def sleft?(a=1, b=nil)
     a = a < 0 || a.nil? ? 1 : Integer(a).abs
     block_sensor(b) {|ex, ey, px, py|
       return unless py == ey
       ex.downto(ex - a).each { |x|
         break unless $game_map.passable?(x, ey, 4)
         return true if px == x
       }
     }
     return false
   end
   #----------------------------------------------------------------------------
   # • Sensor em forma de cruz.
   #----------------------------------------------------------------------------
   def scross?(a=1, b=nil)
     sfront?(a, b) || sago?(a, b) || sright?(a, b) || sleft?(a, b)
   end
   #----------------------------------------------------------------------------
   # • Sensor que verifica somente a visão do evento.
   #----------------------------------------------------------------------------
   def svision?(a=1, b=nil)
     case $game_map.events[b.nil? ? @event_id : Integer(b)].direction
-  # • Sensor que verifica em forma de círculo.
+
     when 4 then sleft?(a, b)
-  def scircle?(a=1, b=nil)
+
     when 8 then sago?(a, b)
     end
-      sr = [ (px - ex).abs, (py - ey).abs ]
+
-      return true if sr[0] + sr[1] <= a
+
   # • Sensor que verifica se está somente atrás do evento.
   #----------------------------------------------------------------------------
   def sbehind?(a=1, b=nil)
     case $game_map.events[b.nil? ? @event_id : Integer(b)].direction
     when 2 then sago?(a, b)
     when 4 then sright?(a, b)
     when 6 then sleft?(a, b)
     when 8 then sfront?(a, b)
     end
   end
   #----------------------------------------------------------------------------
   # • Sensor que verifica se está somente a esquerda do evento.
   #----------------------------------------------------------------------------
   def vleft?(a=1, b=nil)
     case $game_map.events[b.nil? ? @event_id : Integer(b)].direction
     when 2 then sright?(a, b)
     when 4 then sfront?(a, b)
     when 6 then sago?(a, b)
     when 8 then sleft?(a, b)
     end
   end
   #----------------------------------------------------------------------------
   # • Sensor que verifica se está somente a direita do evento.
   #----------------------------------------------------------------------------
   def vright?(a=1, b=nil)
     case $game_map.events[b.nil? ? @event_id : Integer(b)].direction
     when 2 then sleft?(a, b)
     when 4 then sfront?(a, b)
     when 6 then sago?(a, b)
     when 8 then sright?(a, b)
     end
   end
 end