From b330da36ae61b93d2d349e52b4c65a66957f4509 Mon Sep 17 00:00:00 2001
From: Storm Dragon <stormdragon2976@gmail.com>
Date: Tue, 16 Oct 2012 20:21:51 -0400
Subject: [PATCH] Initial release

---
 README   |  7 +++++++
 sound.pl | 60 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 67 insertions(+)
 create mode 100644 README
 create mode 100755 sound.pl

diff --git a/README b/README
new file mode 100644
index 0000000..d00b0a4
--- /dev/null
+++ b/README
@@ -0,0 +1,7 @@
+Irssi sound by:
+Jeremiah Ticket:
+Storm Dragon: http://www.stormdragon.us/
+
+Adds sounds to irssi for different events, E.g. public message and private message received.
+
+Place sound.pl in .irssi/scripts/
diff --git a/sound.pl b/sound.pl
new file mode 100755
index 0000000..30a26a0
--- /dev/null
+++ b/sound.pl
@@ -0,0 +1,60 @@
+use strict;
+use vars qw($VERSION %IRSSI);
+
+use Irssi;
+$VERSION = '1.0';
+%IRSSI = (
+        authors     => 'Storm Dragon',
+        contact     => 'blah@blah.blah',
+        name        => 'alert',
+        description => 'Play sounds for different events in IRSSI.',
+        url         => 'http://stormdragon.us',
+        license     => 'GNU General Public License',
+        changed     => '$Date: 2007-02-07 12:00:00 +0100 (Thu, 7 Feb 2008) $'
+);
+
+#--------------------------------------------------------------------
+# Original script created by Chrelad
+# Feb 7, 2008
+#Heavily modified by Storm Dragon
+#Added private message sound.
+#Sounds now play as a background process.
+#sounds are generated using sox.
+#--------------------------------------------------------------------
+
+#--------------------------------------------------------------------
+# The sound playing function for public message
+#--------------------------------------------------------------------
+
+sub pub_msg {
+        my ($server,$msg,$nick,$address,$target) = @_;
+        system("play -qn -V0 synth 0.09 tri E3:B3 &");
+}
+
+#--------------------------------------------------------------------
+# The sound playing function for private message
+#--------------------------------------------------------------------
+
+sub pri_msg {
+        my ($server,$msg,$nick,$address,$target) = @_;
+        system("play -qn synth pl G2 pl B2 pl D3 pl G3 pl D4 pl G4 delay 0 0.02 0.04 0.06 0.08 0.1 remix - phaser fade p 0 0.5 0.3 &");
+}
+
+#--------------------------------------------------------------------
+# The sound playing function for nick mensioning message
+#--------------------------------------------------------------------
+
+sub nick_msg {
+        my ($server,$msg,$nick,$address,$target) = @_;
+        system("play -qn -V0 synth 0.5 tri A3:D3 tri D3:A3 remix - &");
+}
+
+#--------------------------------------------------------------------
+# Irssi::signal_add_last / Irssi::command_bind
+#--------------------------------------------------------------------
+
+Irssi::signal_add_last("message nick", "nick_msg");
+Irssi::signal_add_last("message public", "pub_msg");
+Irssi::signal_add_last("message private", "pri_msg");
+#- end
+