/*
 * Auto-response script for TekNap
 *
 * Author: Brian Weiss <brian@got.net> - 2000, 2001
 *
 * Last modified: 4/12/02
 *
 * This adds the ability to change the format of publics containing any of
 * the words in the variable AUTO_RESPONSE_STR. The FORMAT_* variables should
 * be pretty obvious. The ones ending in _AR are the formats used when
 * auto-response is triggered. If AUTO_RESPONSE_BEEP is true the script will
 * also beep.
 */ 

/*** CONFIG SECTION ***/

assign AUTO_RESPONSE 0
assign AUTO_RESPONSE_BEEP 0
assign AUTO_RESPONSE_STR <yournick>
assign FORMAT_PUBLIC %B<%n$2%B>%n $4-
assign FORMAT_PUBLIC_AR %B<%Y$2%B>%n $4-
assign FORMAT_PUBLIC_OTHER %b<%n$2%K/%n$3%b>%n $4-
assign FORMAT_PUBLIC_OTHER_AR %b<%y$2%K/%n$3%b>%n $4-
assign FORMAT_SEND_PUBLIC %m<%n$2%m>%n $4-
assign FORMAT_SEND_PUBLIC_OTHER %m<%n$2%K/%n$3%m>%n $4-

/*** END CONFIG SECTION ***/


alias fparse
{
        eval return $cparse($($0))
}

on ^public "*"
{
	if ([$0] == servernick())
	{
		echo $fparse(FORMAT_SEND_PUBLIC $strftime(%X) $*)
	}{
		echo $fparse(FORMAT_PUBLIC $strftime(%X) $*)
	}
}

on ^public_other "*"
{
	if ([$0] == servernick())
	{
		echo $fparse(FORMAT_SEND_PUBLIC_OTHER $strftime(%X) $*)
	}{
		echo $fparse(FORMAT_PUBLIC_OTHER $strftime(%X) $*)
	}
}

on ^public '% % *\\[${AUTO_RESPONSE_STR}\\]*'
{
	if (AUTO_RESPONSE)
	{
		if ([$0] == servernick())
		{
			echo $fparse(FORMAT_SEND_PUBLIC $strftime(%X) $*)
		}{
			if (AUTO_RESPONSE_BEEP)
			{
				^stack push set BEEP
				^set BEEP ON
				beep
				^stack pop set BEEP
			}
			echo $fparse(FORMAT_PUBLIC_AR $strftime(%X) $*)
		}
	}{
		if ([$0] == servernick())
		{
			echo $fparse(FORMAT_SEND_PUBLIC $strftime(%X) $*)
		}{
			echo $fparse(FORMAT_PUBLIC $strftime(%X) $*)
		}
	}
}

on ^public_other '% % *\\[${AUTO_RESPONSE_STR}\\]*'
{
	if (AUTO_RESPONSE)
	{
		if ([$0] == servernick())
		{
			echo $fparse(FORMAT_SEND_PUBLIC_OTHER $strftime(%X) $*)
		}{
			if (AUTO_RESPONSE_BEEP)
			{
				^stack push set BEEP
				^set BEEP ON
				beep
				^stack pop set BEEP
			}

			echo $fparse(FORMAT_PUBLIC_OTHER_AR $strftime(%X) $*)
		}
	}{
		if ([$0] == servernick())
		{
			echo $fparse(FORMAT_SEND_PUBLIC_OTHER $strftime(%X) $*)
		}{
			echo $fparse(FORMAT_PUBLIC_OTHER $strftime(%X) $*)
		}
	}
}


/* bmw '01 */