From b1783f58f38abb50cc426d34c6ac3f7ab217be01 Mon Sep 17 00:00:00 2001 From: Jeremiah Ticket Date: Wed, 24 Aug 2016 08:45:06 -0800 Subject: [PATCH] Updating the script to support parts and joins. --- sound.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/sound.pl b/sound.pl index 738a427..312bea1 100755 --- a/sound.pl +++ b/sound.pl @@ -27,12 +27,12 @@ $VERSION = '0.0.3'; 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 -") + system("play -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 -") + system("play -n synth tri 1800 tri 1500 delay 0 .12 fade h 0 .2 remix &"); } sub pub_msg { @@ -65,5 +65,8 @@ sub nick_msg { Irssi::signal_add("beep", "nick_msg");Irssi::signal_add_last("message public", "pub_msg"); Irssi::signal_add_last("message private", "pri_msg"); Irssi::signal_add_last("message hilight", "nick_msg"); +Irssi::signal_add("event join", 'join_msg'); +# Irssi::signal_add("event quit", 'on_quit'); + Irssi::signal_add("event part", 'part_msg'); #- end