… | |
… | |
215 | |
215 | |
216 | sub audio_sound_push($) { |
216 | sub audio_sound_push($) { |
217 | my ($face) = @_; |
217 | my ($face) = @_; |
218 | |
218 | |
219 | $CFG->{effects_enable} |
219 | $CFG->{effects_enable} |
|
|
220 | or return; |
|
|
221 | |
|
|
222 | $AUDIO_PLAY{$face} |
220 | or return; |
223 | or return; |
221 | |
224 | |
222 | if (my $chunk = $AUDIO_CHUNK{$face}) { |
225 | if (my $chunk = $AUDIO_CHUNK{$face}) { |
223 | for (grep $_->[0] >= Event::time, @{(delete $AUDIO_PLAY{$face}) || []}) { |
226 | for (grep $_->[0] >= Event::time, @{(delete $AUDIO_PLAY{$face}) || []}) { |
224 | my (undef, $dx, $dy, $vol) = @$_; |
227 | my (undef, $dx, $dy, $vol) = @$_; |