IMS001-VariableStat

# Icy Mini Scripts
module IMS
  module EnemyVariableStat
    STATS = {}
    STATS[:maxhp] = 10
    STATS[:maxmp] = 10
    STATS[:atk]   = 10
    STATS[:def]   = 10
    STATS[:spi]   = 10
    STATS[:agi]   = 10
  end
end

class Game_Enemy < Game_Battler

  IMS::EnemyVariableStat::STATS.each_pair { |m, v|
    str = %Q(
      alias :ims001_gmen_#{m.to_s} :#{m.to_s} unless $@
      def #{m.to_s}( *args, &block )
        n = ims001_gmen_#{m.to_s}( *args, &block )
        return Integer(n.to_f * $game_variables[v].to_f / 100.0)
      end
    )
    module_eval( str )
  }

end