: This script is intended for use with 2.8 servers on all sites.
: It handles some formatting options and join options for novice
: users

@ CHANNEL_PREFIXES = [&#]
alias topic if (!index($CHANNEL_PREFIXES $0)) 
                {${K}${K}topic $*} 
                {${K}${K}topic $C $*}

alias invite if ([$1]) {${K}${K}invite $0 $1} {${K}${K}invite $0 $C}

alias join if (!index($CHANNEL_PREFIXES $0)) 
    {${K}${K}join $*} {if ([-] == [$[1]0]) {${K}${K}join $* } 
                                           {${K}${K}join #$*}}

alias leave {
   if ([$0]) 
   {
	if (!index($CHANNEL_PREFIXES $0))
	{${K}${K}leave $*}
	{
		if ([-] == [$[1]0]) 
		{${K}${K}leave $*}
		{
			if ([*] == [$0]) 
                                {${K}${K}leave *} 
                                {${K}${K}leave #$* }
		}
	}
    } 
    {${K}${K}leave * }
}

alias mode3 modethree
alias modethree fe ($2-) x y z {mode $0 $1 $x $y $z}

# Trace information
on ^200 * {
        if (!tracepath) {@ tracepath = [$0]}
        echo $o.b() S:[$[15]0] V:[$[10]2] U:[$[20]4] 
        @ tracepath = tracepath ## [!$4]
}
on ^201 * echo $o.b() $1 Class[$2] ==> $3-
on ^202 * echo $o.b() $1 Class[$2] ==> $3-
on ^203 * echo $o.b() S:[$[15]0] UKNOWN $3
on ^204 * echo $o.b() S:[$[15]0] OPER [$[30]sub([ ! $3])
on ^205 * echo $o.b() $1 Class[$2] ==> $3-
on ^206 * {
        if (tracepath) {echo TRACE PATH: $tracepath}
        echo TRACE S:[$[15]0] SERV [$[25]5] [$[-4]3] [$[-5]4]
        assign -tracepath
}
on ^207 * echo $o.b() $1 Class[$2] ==> $3-
on ^208 * echo $o.b() $1 Class[$2] ==> $3-
on ^209 * echo $o.b() $1 $2 Entries linked: $3

: Stats information
on ^211 * echo $o.b() $[40]1 $[10]2 $[10]3 $[10]4 $[10]5 $[12]6 $7-
on ^212 * echo $o.b() $[10]1 $2
on ^213 * echo $o.b() $1:$2:$3:$4:$5:$6
on ^214 * echo $o.b() $1:$2:$3:$4:$5:$6
on ^215 * echo $o.b() $1:$2:$3:$4:$5:$6
on ^216 * echo $o.b() $1:$2:$3:$4:$5:$6
on ^217 * echo $o.b() $1:$2:$3:$4:$5:$6
on ^218 * echo $o.b() $1:$2:$3:$4:$5:$6
on ^241 * echo $o.b() $1:$2:$3:$4:$5:$6

:
: 220 is used by .troy versions to return information on
: host masks being enforced locally.
:

on ^220 * echo $o.b() $1 $[10]2 $3

: Service list:
on ^231 * echo $o.b() Service $1 \($0\)

: Ban list:
on ^367 * echo $o.b() $([$CHANNEL_NAME_WIDTH]1) $2-