IRC Stats - 20/12/06 12:01 AM
Code:
;------------------------------------------------------- ; IRC Stats - Made by `Mistermage` of #mister ;------------------------------------------------------- ; Credit to AlternativeNick for all his help ;------------------------------------------------------- on $*:TEXT:/^[!@>]ircstats */Si:#: { var %send $iif($left($1-,1) == @,notice $nick,.notice $nick) if ($2 == $null) { %send 14Your stats for [4 $+ $chan $+ 14]: %send 14Total number of lines:4 $hget(lines $+ $chan ,$nick) %send 14Total number of words:4 $hget(words $+ $chan ,$nick) %send 14Total number of letters:4 $hget(letters $+ $chan ,$nick) %send 14Times Kicked:4 $iif($hget($+(kicks,$chan), $nick),$hget($+(kicks,$chan), $nick),0) %send 14Total People Kicked:4 $iif($hget($+(kickcount,$chan), $nick),$hget($+(kickcount,$chan), $nick),0) } elseif ($2 !== $null) { %send $c2($2) $+ 14's stats for [4 $+ $chan $+ 14]: %send 14Total number of lines:4 $hget(lines $+ $chan , $2) %send 14Total number of words:4 $hget(words $+ $chan , $2) %send 14Total number of letters:4 $hget(letters $+ $chan , $2) %send 14Times Kicked:4 $iif($hget($+(kicks,$chan), $2),$hget($+(kicks,$chan), $2),0) %send 14Total People Kicked:4 $iif($hget($+(kickcount,$chan), $2),$hget($+(kickcount,$chan), $2),0) } } on *:TEXT:*:#: { hinc lines $+ $chan $nick 1 hinc words $+ $chan $nick $numtok($1-,32) hinc letters $+ $chan $nick $len($1-) } on *:KICK:#: { hinc kicks $+ $chan $knick 1 } on *:JOIN:#: { if ($nick == $me) { hmake words $+ $chan 1000 hmake letters $+ $chan 1000 hmake lines $+ $chan 1000 hmake kicks $+ $chan 1000 hmake kickcount $+ $chan 1000 } } on *:TEXT:!k*:#: { if (($nick isop $chan) || ($nick ishop $chan)) { hinc kickcount $+ $chan $nick 1 } } on *:TEXT:!kb*:#: { if (($nick isop $chan) || ($nick ishop $chan)) { hinc kickcount $+ $chan $nick 1 } }
Anyway I can make it better + should i fix it up at all?