/*
 * Auto-Response script for BWap
 *
 * Author: Brian Weiss <brian@got.net> - 2000
 */ 

assign AR_BEEP 1
assign AUTO_RESPONSE 1
assign AUTO_RESPONSE_STR fudd
assign FORMAT_PUBLIC %B<%n$2%B>%n $3-
assign FORMAT_PUBLIC_AR %B<%Y$2%B>%n $3-
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-

/* NEW CODE (BROKEN) */
/*
fe (public public_other) ptype
{
	^local pre,suf,whole
	assign pre format_
	assign suf _ar
	eval assign whole $pre$ptype$suf
	on ^$ptype "*" if (auto_response && [$0] != auto_response_str)
	{
		if (match(*$auto_response_str* $1-) || match($auto_response_str $1-))
		{
			echo $fparse($whole $strftime(%X) $*)
			if (ar_beep)
			{
				if (BEEP == [OFF])
				{
					^set BEEP ON
					beep
					^set BEEP OFF
				}{
					beep
				}
			}
		}{
			echo $fparse($whole $strftime(%X) $*)
		}
	}
}
*/

/* The OLD code that worked. */
on ^public "*" if (auto_response)
{
	if ([$0] != auto_response_str && match(*$auto_response_str* $1-))
	{
		if (ar_beep)
		{
			echo $cparse(%B<%Y$0%B>%n) $1-
			if (beep == [OFF])
			{
				^set BEEP ON
				beep
				^set BEEP OFF
			}{
				beep
			}
		}{
			echo $cparse(%B<%Y$0%B>%n) $1-
		}
	}{
		echo $cparse(%B<%n$0%B>%n) $1-
	}
}{
	echo $cparse(%B<%n$0%B>%n) $1-
}

on ^public_other "*" if (auto_response)
{
	if ([$0] != auto_response_str && match(*$auto_response_str* $2-))
	{
		if (ar_beep)
		{
			echo $cparse(%b<%y$0%K/%n$1%b>%n) $2-
			if (beep == [OFF])
			{
				^set BEEP ON
				beep
				^set BEEP OFF
			}{
				beep
			}
		}{
			echo $cparse(%b<%y$0%K/%n$1%b>%n) $2-
		}
	}{
		echo $cparse(%b<%n$0%K/%n$1%b>%n) $2-
	}
}{
	echo $cparse(%b<%n$0%K/%n$1%b>%n) $2-
}