From 18605390cca4cd6795bb83a1d65b4787a26aacf8 Mon Sep 17 00:00:00 2001
From: Storm Dragon <stormdragon2976@gmail.com>
Date: Wed, 24 Aug 2016 12:31:03 -0400
Subject: [PATCH] Sounds for join and part.

---
 sound.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/sound.pl b/sound.pl
index 4b13dfb..738a427 100755
--- a/sound.pl
+++ b/sound.pl
@@ -25,6 +25,16 @@ $VERSION = '0.0.3';
 # 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 {
         my ($server,$msg,$nick,$address,$target) = @_;
         system("play -qn -V0 synth 0.09 tri E3:B3 &");