Anonymous

F3 {
  //echo -as 12[ 4~~~~~START~~~~~12 ]
  //echo -as 12[ 4Fullname:12 ]4 $fullname $+ .
  //echo -as 12[ 4Currently on:12 ]4 $chan(0) Chans.
  var %i = 1
  while (%i <= $chan(0)) {
    ;/echo I'm on: $chan(%i)
    var %x = %x $chan(%i)
    inc %i
  }
  //echo -as 12[4 Channels are:12 ]4 %x
  var %y,%c,%z,%x = 0,%chn,%o,%cid = $activecid
  while %x < $scon(0) { 
    inc %x 
    %c = 0 
    scon %x 
    inc %chn $chan(0) 
    while %c < $chan(0) {
      inc %c 
      if $me isop $chan(%c) {
        inc %o 
        inc %y $nick($chan(%c),0) 
      } 
      inc %z $nick($chan(%c),0) 
    }
  }
  %x = 0 
  while %x < $scon(0) { inc %x | .scon %x | if $window(status window).cid == %cid { %cid = %x } }
  scon %cid  
  //echo -as 12[4 Power12 ]4 I have op in %o $+ / $+ %chn Channels $+ . I have Power over %y $+ / $+ %z users on $scon(0) Network $+ $iif($scon(0) != 1,s)
  //echo -as 12[ 4Currently using:12 ]4 $server on port: $port $+ .
  //echo -as 12[4 Network Name:12 ]4 $Network $+ .
  //echo -as 12[ 4Current host name:12 ]4 $host $+ .
  //echo -as 12[ 4Current vhost:12 ]4 $address($me,5) $+ .
  //echo -as 12[ 4Version:12 ]4 $version $+ .
  //echo -as 12[ 4System Uptime:12 ]4 $uptime(system,2) $+ .
  //echo -as 12[ 4mIRC Uptime:12 ]4 $uptime(mIRC,2) $+ .
  //echo -as 12[ 4Current usermodes:12 ]4 $usermode
  //echo -as 12[ 4Operating System:12 ]4 Microsoft Windows $os $+ .
  //echo -as 12[ 4Time:12 ]4 $time(h:nn)
  //echo -as 12[ 4Current disk size(I:)12 ]4 $calc($disk(I:).size /1073741824) $+ GB Total. $calc($disk(I:).free /1073741824) $+ GB Free.
  //echo -as 12[ 4Current disk size(C:)12 ]4 $calc($disk(C:).size /1073741824) $+ GB Total. $calc($disk(C:).free /1073741824) $+ GB Free.
  //echo -as 12[ 4~~~~~~END~~~~~~12 ]
}