# the new `show away once' script,
# matthew green, oct 1993.  i hate you
# this script uses serial number 311
# $Id: newaway,v 1.1 1994/01/17 08:30:58 mrgreen Exp $
# this script is public domain

^set show_away_once off

alias n.o {
	if (SHOW_NUMERICS == [ON])
		{@function_return = [$0]}
		{@function_return = [***]}
}

alias newaway.show
{
	^local nick $encode($tolower($0))
	^local away $encode($tolower($1-))

	if (newaway.nick[$nick] == away)
	{
		@function_return = 0
	}
	{
		@function_return = 1
		@newaway.nick[$nick] = away
	}
	if (newaway.whois)
	{
		@function_return = 1
	}
}

on #-311 311 * @newaway.whois = 1
on #-318 311 * @newaway.whois = 0

on ^301 * if (newaway.show($*)) { echo $n.o($H) $0 is away: $1- }

