Something

alias status { 
  if (!%status.ret) { 
    .set %status.chan $active 
    .set %status $true 
    .set %status.snd $ticks 
    .raw ss'ping 
  } 
  else { 
    var %a = 1,%usrs,%lag 
    while (%a <= $chan(0)) { 
      inc %usrs $nick($chan(%a),0) 
      inc %a 
    } 
    %lag = $calc(%status.ret - %status.snd) 
    %lag = $iif(%lag < 1000,$+(%lag,ms),$+($calc(%lag / 1000),s)) 
    .msg %status.chan System Info mIRC Version: $version - Uptime: $uptime(system,1) - Current Server: $server - Total Channels: $chan(0) User: %usrs - Latency: %lag 
    echo -at $+(<,$me,>) System Info mIRC Version: $version - Uptime: $uptime(system,1) - Current Server: $server - Total Channels: $chan(0) User: %usrs - Latency: %lag 
    .set %status $false 
    .unset %status.* 
  } 
} 
raw 421:*: { 
  if (%status) { 
    .set %status.ret $ticks 
    haltdef 
    .status 
  } 
}