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)
  }
}