on *:TEXT:*:#: {
/stats -i:msgs $nick
/stats -i:words $nick $0
/stats -i:chars $nick $len($1-)
}
alias stats {
if (-i:* iswm $1) {
var %thing = $gettok($1, 2, $asc(:)), %nick = $2, %value = $iif($3, $3, 1)
/inc % [ $+ [ %thing ] $+ [color:blue]] . [ $+[/color] [ %nick ] ] %value
}
else if ($prop) {
var %nick == $2
if (($prop == msgs) || ($prop == messages)) return %msgs. [ $+ [ %nick ] ]
else if ($prop == words) return %words. [ $+ [ %nick ] ]
else if ($prop == chars) return %chars. [ $+ [ %nick ] ]
else return Invalid Property
}
else /echo -s /stats: Insufficient Parameters (/stats [-i:property] <Name> [value])
}