| … | |
… | |
| 2 | |
2 | |
| 3 | #my $audioserver = new Audio::Play(0); |
3 | #my $audioserver = new Audio::Play(0); |
| 4 | my %sound; |
4 | my %sound; |
| 5 | $SIG{CHLD} = 'IGNORE'; |
5 | $SIG{CHLD} = 'IGNORE'; |
| 6 | |
6 | |
| 7 | for (qw(alarm warning move pass ring connect user_unknown)) { |
7 | for (qw(alarm warning move pass ring connect user_unknown gamestart resign)) { |
| 8 | local $/; |
8 | local $/; |
| 9 | open my $snd, "<", "$::SNDDIR/$_" |
9 | open my $snd, "<", "$::SNDDIR/$_" |
| 10 | or die "$::SNDDIR/$_: $!"; |
10 | or die "$::SNDDIR/$_: $!"; |
| 11 | binmode $snd; |
11 | binmode $snd; |
| 12 | |
12 | |
