module RPG
  class Audio
   
    alias sp_se_play se_play
   
    def se_play (filename, volume, pitch, x=0, y=0, r_max=0)
    #r_max est le rayon maximal où l'on peut entendre le son
    #x et y sont les coordonnées de l'origine du son 
    #ces arguments sont par défault pour garder la compatibilité
     
      if (r_max == 0)
        #il est impossible que le son n'est pas de rayon,
        #sauf si c'est le même volume partout
       
        #appel de la fonction d'origine
        sp_se_play
       
      else
       
        #Calcul de la distance par rapport à l'event,
        #ramené en pourcentage par rapport au r_max.
       
        dx = (100*sqrt(($game_player.x - x)*($game_player.x - x) + ($game_player.y - y)*($game_player.y - y))/r_max)
       
       
        if (dx > 100)
          #si le player est trop loin alors on entend rien
          volume = 0
          #appel de la fonction d'origine
          sp_se_play
         
        else
          #sinon on utilise le pourcentage sur le volume à l'origine
          #pour avoir le volume à la position du player.
          volume = (volume*(100 - dx)
          #appel de la fonction d'origine
          sp_se_play
        end  #erreur
      end   
    end
  end
end

          volume = (volume*(100 - dx)
          #appel de la fonction d'origine
          sp_se_play
        end  #erreur
      end 
    end
  end
end

module RPG
  class SE < AudioFile
    def play
      unless @name.empty?
        Audio.se_play("Audio/SE/" + @name, @volume, @pitch)
      end
    end
    def self.stop
      Audio.se_stop
    end
  end
end

module RPG
  class AudioFile
    def initialize(name = "", volume = 100, pitch = 100)
      @name = name
      @volume = volume
      @pitch = pitch
    end
    attr_accessor :name
    attr_accessor :volume
    attr_accessor :pitch
  end
end