xecho -b whoall script loaded

# Formats whois info for current or given channel
# /whoall
# /whoall #xnap
# You must be in a channel to view it, maybe fixed..  tries to join

alias whoall (wchantmp,kickusertmp)
{
	^assign wheader nick   server level online shared    client   d/dt   u/ut
	^assign wcount 0
	^assign wchan $wchantmp
	^assign kickuser $kickusertmp
	if ( [$wchan] != [help] )
	{
		if ( [$wchan] != [] )
		{
			join $wchan
			pause 2
		}
		echo
		fe ($chanusers($wchan)) nick
		{
			^assign whoalllisttmp $numitems(whoalllist)
			if ( whoalllisttmp == 0 )
			{       
#				xecho -b nobody in list
			}
			while ( whoalllisttmp > 0 )
			{
#				if ( [$getitem(whoalllist ${whoalllisttmp-1})] == [] ) ^assign -to  
#				$cmd Pending relink for $getitem(timedarray ${timedarraytmp-2})
#				xecho $getitem(whoalllist ${whoalllisttmp})
				^assign whoalllistnick $getitem(whoalllist ${whoalllisttmp})
				@ whoalllisttmp--
			}
#xecho $whoalllistnick $0
#			if (!match($nick $0 $N) && [$whoalllistnick] != [$0])
			if (!match($nick $0 $N))
			{
				//whois -cmd
				{
					^assign wdefault %W-1
					^assign wservcolor %W
					^assign wsharecolor %W
					^assign wtimecolor %W
					^assign wlevcolor %W
					^assign wupcolor %W
					^assign wdowncolor %W
					^assign wserver $16
					^assign wlevel $tr(/"//$1)
					^assign wtime $2
					^assign wshared $5
					^assign wuptotal $11
					^assign wdowntotal $10
					^assign wclient $tr(/"//$9)
					if ( [$wlevel] != [User] && [$wlevel] != [Leech] )
					{
						^assign whoalllisttmp $numitems(whoalllist)
						@ setitem(whoalllist $whoalllisttmp $0)
#						xecho -b added $0 to array
					}
					if ( [$wserver] == [psi] || [$wserver] == [blackmoor] ) { ^assign wservcolor %C }
					if ( wshared <= 1 && ([$wlevel] == [User] || [$wlevel] == [Leech]) ) { ^assign wsharecolor %R }
					if ( wshared > 1 && wshared < 10 ) { ^assign wsharecolor %r }
					if ( wshared >= 10 && wshared < 200 ) { ^assign wsharecolor %Y }
					if ( wshared >= 200 && wshared < 1000 ) { ^assign wsharecolor %G }
					if ( wshared >= 1000 ) { ^assign wsharecolor %C }
					if ( wtime > 60000 ) { ^assign wtimecolor %c }
					if ( wtime > 600 && wshared == 0 && ([$wlevel] == [User] || [$wlevel] == [Leech]))
					{
						^assign wtimecolor ,4
						if ( [$kickuser] == [kick] ) { kick $wchan $0 This is a warning, share files. }
						if ( [$kickuser] == [kill] ) { kill $0 Share files or you'll also be banned. }
						if ( [$kickuser] == [tban] ) { tban $0 3600 Share files or you'll also be banned.
									       kill $0 Share files or you'll also be banned. }
					}
					if ( [$wlevel] != [User] && [$wlevel] != [Leech] ) { ^assign wlevcolor %c }
					if ( wdowntotal != 0 )
					{
						^assign wratio ${wuptotal / wdowntotal}
						if ( wratio > 2 ) { ^assign wupcolor %C }
						if ( wratio >= 1 && wratio <= 2 ) { ^assign wupcolor %g }
						if ( wratio < 1 ) { ^assign wdowncolor %R
								    ^assign wupcolor %R }
					}
					if ( wuptotal == 0 && wdowntotal != 0 ) { ^assign wupcolor %r }
					if ( wcount == 0 || wcount == 20 || wcount == 40 || wcount == 60 || wcount == 80 || wcount == 100 ) { xecho -b $cparse(%c           $wheader)}
					xecho $cparse($wdefault $right(18                                $0) $wservcolor$left(9 $wserver       )$wdefault $wlevcolor$left(5 $wlevel     )$wdefault $wtimecolor$right(5       ${wtime/60})$wdefault $wsharecolor$right(5       $wshared)$wdefault $left(10 $wclient         ) $wdowncolor$right(6            $6/$10)$wdefault $wupcolor$right(6             $7/$11)$wdefault)
					@ wcount++
				} $nick
			}
		}
		timer 5
		{
			if ( [$wchan] != [] )
			{
#				timer 5
				part $wchan
				join #mainroom
			}
		}
	timer 10 @ wchan = wchantmp = []
	timer 20 @ kickuser = kickusertmp = []
	}
	{
		xecho -b $cparse(%c           $wheader)
		#                              nick   server level online shared    client   d/dt   u/ut		
		xecho $cparse(                      %CLocal%W  %cmod+%W  %c>1000  %C>1000%W              %rdl but%W up/down)
		xecho $cparse(                                   %cmin    %G>200               %rno ul%W  ratio)
		xecho $cparse(                                   ,4no-1     %Y>10                       %C>2%W)
		xecho $cparse(                                   ,4files-1  %r>1 <10                    %g>1 <2%W)
		xecho $cparse(                                          %R<=1 &                     %R<1%W)
		xecho $cparse(                                          %R<mod                      %rdl but%W)
		xecho $cparse(                                                                    %rno ul%W)
	}
}

#    0       1     2         3          4     5     6     7    8    9       10   11        12        13     14     15      16
#  nick   level  secs    joined      status  shared curd  curu  ?  client   totd totup      ip        port   ?     con    server
# ac3tyl "User" 65480 " #mainroom " "Active" 4507   1     2    6   "..."    49  130    45.0.32.13   62868  6802  unknown   blah
# Dataviz "User" 1404 " #mainroom " "Active"  0     0     0    5  "TekNap"   0   0     87.53.23.52  1150   0    unknown    blah