File: functions

package info (click to toggle)
teknap 1.4-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 5,428 kB
  • ctags: 6,297
  • sloc: ansic: 55,591; makefile: 545; sh: 112
file content (33 lines) | stat: -rw-r--r-- 482 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
/*
 * Some useful functions for TekNap
 *
 * Author: Brian Weiss <brian@got.net> - 2000
 *         fudd @ EFnet IRC / opennap
 */

alias checkuserclass (nick, void)
{
	^local ulevel

	wait for whois -cmd
	{
		switch ($tr(/"//$1))
		{
			(Leech) {@ ulevel = [0]}
			(User) {@ ulevel = [1]}
			(Moderator) {@ ulevel = [2]}
			(Admin) {@ ulevel = [3]}
			(Elite) {@ ulevel = [4]}
		}
	} $nick

	@ function_return = ulevel
}

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


/* bmw '00 */