/*
 * Nick Completion for TekNap
 *
 * Author: shade <shade@chemlab.org> - 1999
 *	   Brian Weiss <brian@got.net> - 2000, 2001
 *
 * Last modified: 8/30/01 (bmw)
 *
 * Most of this was taken from the nick completion module that shade wrote
 * for my BitchX/EPIC4 script called playdough. He deserves most of the
 * credit. Please send bug reports to me, not shade. -Brian
 */

assign NICK_COMP 1
assign NICK_COMP_CHAR :

alias nickcomp
{
	fe (%$0% ?$0? %$0 ?$0 $0% $0? $0) patt
	{
		@ :findnick = pattern($patt $channelnicks())
		@ function_return = findnick ? word(0 $findnick) : function_return
	}
}

on ^input "%: *" 
{
	if (nick_comp)
	{
		@ :complete = nickcomp($before(: $*))
		raw 402 $C ${complete ? [$complete$nick_comp_char $1-] : [$*]}
	}
}


/* bmw '01 */