on *:text:*:#chan:{
if $1 == !rank {
var %a = $iif($2,$2,$nick),%b = $iif(%lines. [ $+ [ %a ] ],$ifmatch,0)
msg $chan %a wrote %b lines $iif(%b,and is currently ranked $ord($rank(%a)))
}
else inc %lines. $+ $nick
}
alias rank {
window -lh @@
var %i = 1
while $var(%lines.*,%i) { aline @@ $var(%lines.*,%i).value $ifmatch | inc %i }
filter -wwcute 1 32 @@ @@ *
%i = $fline(@@,$+(*,$1))
window -c @@
return %i
}