guh

来自「EPIC IRC客户端。来源于IRCII客户端但做了很多性能和功能的优化。」· 代码 · 共 66 行

# test
/*
 * guh Copyright 1993 - Dont ask me why i called it that.  I just did.
 *
 * Written by Jeremy Nelson ([e-mail])
 * Requires ircII-EPIC
 *
 * General aliases that are useful for tracking
 *  "whatchan" - returns all the channels a person is on
 *  "is_on" - returns the nickname of a user if s/he is on.
 *  "uh" - takes a list of names and returns a list of userhosts
 *         corresponding to those nicks
 *  "inc" - more for antiquity's sake, proves a point
 */

alias whatchan 
{
	stack push on 319
	^on ^319 * {
		stack pop on 319
		return $1-
	}
	wait for ^whois $0
}

alias is_on 
{
	^local blahblah
	stack push on 303
	^on ^303 * {
		bless
		push blahblah $*
	}
	wait for ison $*
	stack pop on 303
	return $blahblah
}

alias is_off
{
	^local blahblah $*
	fe ($is_on($*)) foo {
		@ blahblah = remw($foo $blahblah)
	}
	return $blahblah
}

alias uh 
{
	^local blahblah
	wait for {
		^userhost $* -cmd {
			bless
			push blahblah $3@$4
		}
	}
	return $blahblah
}

alias inc 
{
	@ $0 += [$1]?[$1]:1
}

#hop'93