Untitled

alias myservers { 
  if (!%status.ret) { 
    .set %status.chan $active 
    .set %status.11 1 
    .set %status.snd $ticks 
    .raw ss'ping 
  } 
  else { 
    var %op = 0, %halfop = 0, %voice = 0, %peons = 0, %total = 0, %chans = 0, %reg = 0
    var %i = $scon(0), %tempserv 
    while %i { 
      %tempserv = %tempserv $themeit($chr(40) $+ » $scon(%i).$server « $+ $chr(41)) 
      scon %i 
      var %b = $chan(0) 
      inc %chans %b 
      while %b { 
        if ($me isop $chan(%b)) { .inc %op | inc %total $nick($chan(%b),0) | inc %peons $nick($chan(%b),0,rh) } 
        elseif ($me ishop $chan(%b)) { inc %halfop | inc %total $nick($chan(%b),0) | inc %peons $nick($chan(%b),0,rh) } 
        elseif ($me isvoice $chan(%b)) { inc %voice | inc %total $nick($chan(%b),0) } 
        elseif ($me isreg $chan(%b)) { inc %reg | inc %total $nick($chan(%b),0) }
        else { inc %total $nick($chan(%b),0) } 
        dec %b 
      } 
      scon -r 
      dec %i 
    } 
    var %a = 1,%lag 
    while (%a <= $chan(0)) { 
      inc %a 
    } 
    if (%record.uptime < $uptime(system,1)) { set %record.uptime $uptime(system,1) }
    %lag = $calc(%status.ret - %status.snd) 
    %lag = $iif(%lag < 1000,$+(%lag,ms),$+($calc(%lag / 1000),s)) 
    msg $active $themeit([Servers] I am currently connected on $scon(0) $iif($scon(0) == 1,server,servers)) %tempserv $themeit(I control $+(%peons,/,%total) ( $+ $ceil($calc((%peons / %total)*100)) $+ % $+ ) users accross those servers.) 
    msg $active $themeit([Power] I am Op on $+(@,%op,/,%chans) $+ , I am HalfOp on $+(%,%halfop,/,%chans) $+ , I am Voice on $+(+,%voice,/,%chans) $+ , I am Regular on $+(%reg,/,%chans))
    msg $active $themeit([Uptime] System Uptime: $uptime(system,1) - Recored System Uptime: %record.uptime - mIRC Version: $version - Lag: %lag)
    .unset %status.*
  } 
} 
raw 421:*: { 
  if (%status.11) { 
    .set %status.ret $ticks 
    myservers 
  } 
  halt 
} 
on *:EXIT:{ 
  if (%record.uptime < $uptime(system,1)) {
    set %record.uptime $uptime(system,1)
  }
}
on *:START:{
  if (%record.uptime < $uptime(system,1)) {
    set %record.uptime $uptime(system,1)
  }
}
alias themeit {
  var %tok 1, %output $1-, %tmp
  while ($gettok(%output,%tok,32)) {
    %tmp = $+($chr(3),07,$left($v1,1),$chr(3),14,$mid($v1,2),$chr(3))
    %output = $reptok_(%output,$v1,%tmp,32)
    inc %tok
  }
  return %output
}
alias reptok_ {
  if ($prop) {
    if ($regex($prop,/(mcs|cs|m)/)) {
      if ($regml(1) == cs) { return $reptokcs($1,$2,$3,$4) }
      elseif ($regml(1) == m) {
        var %t $1,%k $2,%r $3,%x $4,%f $findtok($1,$2,0,$4)
        while (%f) {
          %t = $reptok(%t,%k,%r,%f,%x)
          dec %f
        }
        return %t
      }
      else {
        var %t $1,%k $2,%r $3,%x $4,%f $findtok($1,$2,0,$4)
        while (%f) {
          %t = $reptokcs(%t,%k,%r,%f,%x)
          dec %f
        }
        return %t
      }
    }
    else { beep 2 | echo $color(ctcp) -a ERROR - $upper($prop) is not a valid property of $reptok }
  }
  else { return $reptok($1,$2,$3,$4) }
}
menu channel {
  -
  .My Servers:/myservers
  -
}