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