Chaos Project

#=============================================================================
#
# ** Ryex's Dynamic BABS Monster Sounds
#
#-----------------------------------------------------------------------------
#
# By Ryex
# V 1.0
#
#-----------------------------------------------------------------------------
#
# Features
#
# * Creates Dynamic BGS Sound effects useing BABAS Monsters as sources
# * Under 200 lines of code (comments not included)
#
#-----------------------------------------------------------------------------
#
# Instructions 
#
# Place in a new script above main
# 
# the instructions for setting up this script are too complex to list here
# please visit
# <url>
# to get the instructions
#==============================================================================
if !$BlizzABS || BlizzABS::VERSION < 2.7
  raise 'ERROR: Ryex\'s Dynamic BABS Monster Sounds requires Blizz-ABS v2.7 or higher.'
elsif DEE::DEE_VERSION < 1.2
  raise 'ERROR: Ryex\'s Dynamic BABS Monster Sounds requires DEE v1.2 or higher.'
end

module RyexCFG
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
# START basic Configuration
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  # this is the number of frames that are skiped before the BGS  gets update
  # higher value can cause more lag
  # unless you notice chopy changes in volume you don't need to change this
  Dynamic_Monster_Sound_Update = 10 
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
# END Configuration
#::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
end


class Dynamic_Source_Piece < DEE::Source_Piece
    
  attr_accessor :id, :radius
  
  def initialize (radius, id, power)
    @id = id
    @radius
    update_location
    super(@x, @y, 1, 1, power)
  end
  
  def update_location
    client = $game_map.events[@id]
    @x = client.x * DEE::Pixel_Offset_x
    @y = client.y * DEE::Pixel_Offset_y
    @id = client.id
  end
  
end
  
  
class Dynamic_Source < DEE::Source
    
  def initialize (id, radius, power)
    @pieces = []
    @pieces.push(DEE::Dynamic_Source_Piece.new(id, radius, power))
  end
  
  def update_location
    @pieces.each { |piece|
      piece.update_location
      piece.mute = $BlizzABS.get_enemy(piece.id).battler.dead? 
    }
  end
  
  def effective_power (client) 
    update_location
    powers = []
    if client.is_a?(DEE::Client)
      @pieces.each { |piece_index|
        unless @pieces[piece_index].mute
          squared_distance = (client.x - @pieces[piece_index].x) ** 2 + (client.y - @pieces[piece_index].y) ** 2
          if @pieces[piece_index].radius ** 2 >= squared_distance
            powers.push([piece_index, @pieces[piece_index].power])
          elsif squared_distance <= (@pieces[piece_index].power + @pieces[piece_index].radius - 1) ** 2
            distence = Math.sqrt(squared_distance) - @pieces[piece_index].radius
            powers.push([piece_index, @pieces[piece_index].power - distence])
          end
        end
      }
      unless powers.empty? 
        max = powers[0]
        if max.size > 1
          (1 ... powers.size).each {|i| max = powers[i] if powers[i][1] > max[1]}
        end
        return [max[1], @pieces[max[0]].power]
      else
        return [0, 0]
      end 
    else
      return [0, 0]
    end
  end
  
  def in_range? (client)
    update_location
    if client.is_a?(DEE::Client)
      @pieces.each { |piece|
        unless piece.mute
          squared_distance = (client.x - piece.x) ** 2 + (client.y - piece.y) ** 2
          if squared_distance <= (piece.power + piece.radius - 1) ** 2
            return true 
          end
        end
      {
      return false
    else
      return false
    end
  end
  
end

class Sound_Source_Type < DEE::Source_Type
  
  attr_reader :bgs, :bgs_volume
  
  
  def initialize
    super('sound')
    @bgs = ''
    @bgs_volume = 100
  end
  
  def update
    if Graphics.frame_count % RyexCFG::Dynamic_Sound_Update == 0
      super
      sound_power = @clients[0].highest_effective_power
      unless sound_power[0][0] == 0
        bgsfile = $game_map.map.bgs
        @bgs = @sources[sound_power[1]].bgs
        @bgs_volume = (sound_power[0][0].to_f / sound_power[0][1]) * 100
        bgsfile = RPG::AudioFile.new(@bgs, @bgs_volume)
        unless bgsfile == nil
          unless $game_system.playing_bgs == nil
            unless $game_system.playing_bgs.name == bgsfile.name &&
              $game_system.playing_bgs.volume == bgsfile.volume
              unless @bgs_volume < 20
                $game_system.bgs_play(bgsfile)
              end
            end
          else
            $game_system.bgs_play(bgsfile)
          end
        end
      end
    end
  end
  
end

class Dynamic_Sound_Source < Dynamic_Source
  
  attr_accessor :bgs
  
  def initialize(id, radius, power, file)
    super(id, radius, power)
    @bgs = file
  end
  
end