storm/irssi-sound
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Sounds for join and part.

Browse Source
This commit is contained in:
Storm Dragon 2016-08-24 12:31:03 -04:00
parent 2474c8ff78
commit 18605390cc
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
sound.pl
View File

@ -25,6 +25,16 @@ $VERSION = '0.0.3';
# The sound playing function for public message # The sound playing function for public message
#-------------------------------------------------------------------- #--------------------------------------------------------------------
sub join_msg {
my ($server,$msg,$nick,$address,$target) = @_;
system("]y -n synth tri 1500 tri 1800 delay 0 .12 fade h 0 .2 remix -")
}
sub part_msg {
my ($server,$msg,$nick,$address,$target) = @_;
system("]y -n synth tri 1800 tri 1500 delay 0 .12 fade h 0 .2 remix -")
}
sub pub_msg { sub pub_msg {
my ($server,$msg,$nick,$address,$target) = @_; my ($server,$msg,$nick,$address,$target) = @_;
system("play -qn -V0 synth 0.09 tri E3:B3 &"); system("play -qn -V0 synth 0.09 tri E3:B3 &");