| … | |
… | |
| 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) = @$_; |
