ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/sound.pl
(Generate patch)

Comparing kgsueme/kgsueme/sound.pl (file contents):
Revision 1.3 by pcg, Wed Jul 30 00:32:42 2003 UTC vs.
Revision 1.4 by pcg, Wed Jul 30 01:12:11 2003 UTC

1package sound; 1package sound;
2 2
3use KGS::Constants; 3use KGS::Constants;
4 4
5#my $audioserver = new Audio::Play(0);
6my %sound; 5my %sound;
7$SIG{CHLD} = 'IGNORE'; 6$SIG{CHLD} = 'IGNORE';
8 7
9for (map +(KGS::Constants::findfile "KGS/kgsueme/sounds/$_"),
10 qw(alarm warning move pass ring connect user_unknown gamestart resign)) { 8for (qw(alarm warning move pass ring connect user_unknown gamestart resign)) {
11 local $/; 9 my $path = KGS::Constants::findfile "KGS/kgsueme/sounds/$_";
10
12 open my $snd, "<", $_ 11 open my $snd, "<", $path
13 or die "$_: $!"; 12 or die "$path: $!";
14 binmode $snd; 13 binmode $snd;
15 14
16 $sound{$_} = new Audio::Data; 15 $sound{$_} = new Audio::Data;
17 $sound{$_}->Load($snd); 16 $sound{$_}->Load ($snd);
18} 17}
19 18
20sub play { 19sub play {
21 my ($annoyancy, $sound) = @_; 20 my ($annoyancy, $sound) = @_;
22 # annoyany 1 => important, annoyance 2 => useful, annoyancy 3 => not useful 21 # annoyany 1 => important, annoyance 2 => useful, annoyancy 3 => not useful
23 if (fork == 0) { 22 if (fork == 0) {
24 if (my $audioserver = new Audio::Play(1)) { 23 if (my $audioserver = new Audio::Play (1)) {
25 $audioserver->play ($sound{$sound}); 24 $audioserver->play ($sound{$sound});
26 } 25 }
27 use POSIX (); 26 use POSIX ();
28 POSIX::_exit(0); 27 POSIX::_exit(0);
29 } 28 }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines