# STAT version 1.0   03 November 1993

# Shows additional statistics on server's current role on the net.
# Concept and written by Twilight1 <pda@engr.engr.uark.edu>
# Thanks to SIO for some small coding and structure problems.
#        to Daemon and Hop for the psuedo-decimal system that ircII forgot.

# Usage: /stat [server]
#
# Action: /stat  by itself will query the statistics from the local server.
#         /stat with an optional server name will query the remote server for
#         the statistics. 

alias mod @function_return = [$($0)] - (([$($0)] / [$1]) * [$1])

alias stat {
   ^set display off
   on ^364 * {on 364 -*;assign remote_server $1}
   links $0
   if ([$0]) {rstat $0} {lstat}
}

alias lstat {
   on ^251 * {@total_users = [$3]+[$6];@total_servers = [$9]}
   on ^252 * comment
   on ^254 * comment
   on ^255 * {
	@local_users = [$3]
        @local_users_A = local_users * 1000
        @percent = local_users_A / total_users
	@percent = percent/10 ## [.] ## mod(percent 10)
        @total_users_A = total_users * 10
        @average = total_users_A / total_servers
        @average = average/10 ## [.] ## mod(percent 10)
   }
   lusers 
   wait -cmd end_lstat 
}

alias rstat {
   on ^251 * {@total_users = [$3]+[$6];@total_servers = [$9]}
   on ^252 * comment
   on ^254 * comment
   on ^255 * comment
   lusers 
   wait
   on ^251 * {
	@remote_users = [$3]+[$6]
   }
   on ^255 * {
        @remote_users_A = remote_users * 1000
        @percent = remote_users_A / total_users
        @percent = percent/10 ## [.] ## mod(percent 10)
        @total_users_A = total_users * 10
        @average = total_users_A / total_servers
        @average = average/10 ## [.] ## mod(percent 10)
   }
   lusers $remote_server
   wait -cmd end_rstat
}
   
alias end_lstat {
   echo *** User statistics for server $S
   echo *** I have $local_users of $total_users users on $total_servers servers.
   end_stat
}

alias end_rstat {
   echo *** User statistics for server $remote_server
   echo *** I have $remote_users of $total_users users on $total_servers servers.
   end_stat
}

alias end_stat {
   echo *** That is $percent% of the total number of users on IRC.
   echo *** The average serverload is $average users per server.
   on 251 -*
   on ^252 * echo $n.o($H ***) There are $$1 operators online
   on ^254 * echo $n.o($H ***) $$1 channels have been formed
   on ^255 * echo $n.o($H ***) This server has $$3- connected
   on 351 -*
   set display on
}

# Set phasers to stun.