Forums Scripts & Popups Help

on 1:TEXT:!rank*:#: {
  /msg $chan The nick $$2 is in the %place. [ $+ [ $$2 ] ] place with %lines. [ $+ [ $$2 ] ] $+ !
}

On *:TEXT:*:#YourChannel:{
  inc %lines. [ $+ [ $nick ] ] 1
  if (!Rank == $1) { 
  msg $chan $2 wrote $iif(%lines. [ $+ [ $2 ] ],%lines. [ $+ [ $2 ] ],0) lines and is currently ranked $rank($2) $+ .
}
alias rank {
var %highest = $var(%lines.*,1).value, %i = 2
 while (%highest > $var(%lines.*,%i) {
  var %highest = $var(%lines.*,%i).value
  inc %i 1
}
}

...
while (%highest > $var(%lines.*,%i)[color:red])[/color] {
...

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
}