| … | |
… | |
| 1915 | CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128; |
1915 | CFPlus::MixMusic::volume $CFG->{bgm_volume} * 128; |
| 1916 | |
1916 | |
| 1917 | audio_music_finished; |
1917 | audio_music_finished; |
| 1918 | |
1918 | |
| 1919 | while (<$fh>) { |
1919 | while (<$fh>) { |
|
|
1920 | last; |
| 1920 | next if /^\s*#/; |
1921 | next if /^\s*#/; |
| 1921 | next if /^\s*$/; |
1922 | next if /^\s*$/; |
| 1922 | |
1923 | |
| 1923 | my ($file, $volume, $event) = split /\s+/, $_, 3; |
1924 | my ($file, $volume, $event) = split /\s+/, $_, 3; |
| 1924 | |
1925 | |
| 1925 | push @SOUNDS, "$volume,$file"; |
1926 | push @SOUNDS, "$volume,$file"; |
| 1926 | |
1927 | |
| 1927 | $AUDIO_CHUNKS{"$volume,$file"} ||= do { |
1928 | # $AUDIO_CHUNKS{"$volume,$file"} ||= do { |
| 1928 | my $chunk = new_from_file CFPlus::MixChunk CFPlus::find_rcfile "sounds/$file"; |
1929 | # my $chunk = new_from_file CFPlus::MixChunk CFPlus::find_rcfile "sounds/$file"; |
| 1929 | $chunk->volume ($volume * 128 / 100); |
1930 | # $chunk->volume ($volume * 128 / 100); |
| 1930 | $chunk |
1931 | # $chunk |
| 1931 | }; |
1932 | # }; |
| 1932 | } |
1933 | } |
| 1933 | } else { |
1934 | } else { |
| 1934 | status "unable to open sound config: $!"; |
1935 | status "unable to open sound config: $!"; |
| 1935 | } |
1936 | } |
| 1936 | } |
1937 | } |
