Added subs for action and own
This commit is contained in:
parent
a98609ffa5
commit
714c35e9d8
9
sound.pl
9
sound.pl
@ -44,6 +44,15 @@ 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 &");
|
||||||
}
|
}
|
||||||
|
sub action_msg {
|
||||||
|
my ($server,$msg,$nick,$address,$target) = @_;
|
||||||
|
system("play -qn -V0 synth 0.09 tri E3:B3 &");
|
||||||
|
}
|
||||||
|
|
||||||
|
sub own_msg {
|
||||||
|
my ($server,$msg,$nick,$address,$target) = @_;
|
||||||
|
system("play -qn -V0 synth 0.09 tri E3:B3 &");
|
||||||
|
}
|
||||||
|
|
||||||
#--------------------------------------------------------------------
|
#--------------------------------------------------------------------
|
||||||
# The sound playing function for private message
|
# The sound playing function for private message
|
||||||
|
Loading…
Reference in New Issue
Block a user