status

alias status {
  set %listops 0
  set %listtotal 0
  set %listop 0
  set %listvoice 0
  set %listhop 0
  set %listreg 0
  set %listops2 0
  set %listtotal2 0
  set %listop2 0
  set %listvoice2 0
  set %listhop2 0
  set %listreg2 0
  set %tievoice 0
  set %tiehop 0
  set %tiereg 0
  set %tieop 0
  set %tieall 0
  set %com 1
  :start
  set %comchan $comchan($me,%com)
  set %i 1
  :next
  set %nick $nick(%comchan,%i)
  if (%nick == $null) { goto done }
  inc %listops
  inc %listtotal
  if ($me isop %comchan) {
    if (%nick isop %comchan) { inc %listop | inc %tieall | inc %tieop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop | inc %listhop2 | inc %listtotal2 }
    if (%nick isvoice %comchan) { inc %listvoice | inc %listvoice2 | inc %listtotal2 }
  }
  if ($me ishop %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop | inc %tieall | inc %tiehop }
    if (%nick isvoice %comchan) { inc %listvoice | inc %listvoice2 | inc %listtotal2 }
  }
  if ($me isvoice %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop }
    if (%nick isvoice %comchan) { inc %listvoice | inc %tieall | inc %tievoice }
  }
  if ($me isreg %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %tieall | inc %tiereg }
    if (%nick ishop %comchan) { inc %listhop }
    if (%nick isvoice %comchan) { inc %listvoice }
  }
  inc %i
  goto next
  :done
  inc %com
  if ($comchan($me,%com) == $null) { goto alldone }
  goto start
  :alldone
  if ($1 == $null) {
    echo -a I Have Power Over: ( $+ %listtotal2 $+ / $+ %listtotal $+ ) Ops: (04 $+ %listop2 $+ / $+ %listop $+ ) HalfOps: (07 $+ %listhop2 $+ / $+ %listhop $+ ) Voices: (02 $+ %listvoice2 $+ / $+ %listvoice $+ ) Regulars: (14 $+ %listreg2 $+ / $+ %listreg $+ )
    echo -a I Tie With: ( $+ %tieall $+ / $+ %listtotal $+ ) Ops: (04 $+ %tieop $+ / $+ %listop $+ ) HalfOps: (07 $+ %tiehop $+ / $+ %listhop $+ ) Voices: (02 $+ %tievoice $+ / $+ %listvoice $+ ) Regulars: (14 $+ %tiereg $+ / $+ %listreg $+ )
    echo -a System Information: Uptime: (11 $+ $uptime(mirc,1) $+ ) Operating System: (07 $+ Windows $os $+ )
    echo -a IRC Information: Server: (03 $+ $server $+ ) Channels Currently In: (04 $+ $chan(0) $+ ) User: (05 $+ $fullname $+ ) Nick: (06 $+ $me $+ ) User Modes: (07 $+ $usermode $+ ) Server Uptime: (09 $+ $uptime(server,2) $+ )
    halt
  }
  if ($1 != $null) {
    msg $chan I Have Power Over: ( $+ %listtotal2 $+ / $+ %listtotal $+ ) Ops: (04 $+ %listop2 $+ / $+ %listop $+ ) HalfOps: (07 $+ %listhop2 $+ / $+ %listhop $+ ) Voices: (02 $+ %listvoice2 $+ / $+ %listvoice $+ ) Regulars: (14 $+ %listreg2 $+ / $+ %listreg $+ )
    msg $chan I Tie With: ( $+ %tieall $+ / $+ %listtotal $+ ) Ops: (04 $+ %tieop $+ / $+ %listop $+ ) HalfOps: (07 $+ %tiehop $+ / $+ %listhop $+ ) Voices: (02 $+ %tievoice $+ / $+ %listvoice $+ ) Regulars: (14 $+ %tiereg $+ / $+ %listreg $+ )
    msg $chan System Information: Uptime: (11 $+ $uptime(mirc,1) $+ ) Operating System: (07 $+ Windows $os $+ )
    msg $chan IRC Information: Server: (03 $+ $server $+ ) Channels Currently In: (04 $+ $chan(0) $+ ) User: (05 $+ $fullname $+ ) Nick: (06 $+ $me $+ ) User Modes: (07 $+ $usermode $+ ) Server Uptime: (09 $+ $uptime(server,2) $+ )
    halt
  }
}
on *:text:.status*:#:{
  set %listops 0
  set %listtotal 0
  set %listop 0
  set %listvoice 0
  set %listhop 0
  set %listreg 0
  set %listops2 0
  set %listtotal2 0
  set %listop2 0
  set %listvoice2 0
  set %listhop2 0
  set %listreg2 0
  set %tievoice 0
  set %tiehop 0
  set %tiereg 0
  set %tieop 0
  set %tieall 0
  set %com 1
  :start
  set %comchan $comchan($me,%com)
  set %i 1
  :next
  set %nick $nick(%comchan,%i)
  if (%nick == $null) { goto done }
  inc %listops
  inc %listtotal
  if ($me isop %comchan) {
    if (%nick isop %comchan) { inc %listop | inc %tieall | inc %tieop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop | inc %listhop2 | inc %listtotal2 }
    if (%nick isvoice %comchan) { inc %listvoice | inc %listvoice2 | inc %listtotal2 }
  }
  if ($me ishop %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop | inc %tieall | inc %tiehop }
    if (%nick isvoice %comchan) { inc %listvoice | inc %listvoice2 | inc %listtotal2 }
  }
  if ($me isvoice %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop }
    if (%nick isvoice %comchan) { inc %listvoice | inc %tieall | inc %tievoice }
  }
  if ($me isreg %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %tieall | inc %tiereg }
    if (%nick ishop %comchan) { inc %listhop }
    if (%nick isvoice %comchan) { inc %listvoice }
  }
  inc %i
  goto next
  :done
  inc %com
  if ($comchan($me,%com) == $null) { goto alldone }
  goto start
  :alldone
  msg $chan I Have Power Over: ( $+ %listtotal2 $+ / $+ %listtotal $+ ) Ops: (04 $+ %listop2 $+ / $+ %listop $+ ) HalfOps: (07 $+ %listhop2 $+ / $+ %listhop $+ ) Voices: (02 $+ %listvoice2 $+ / $+ %listvoice $+ ) Regulars: (14 $+ %listreg2 $+ / $+ %listreg $+ )
  msg $chan I Tie With: ( $+ %tieall $+ / $+ %listtotal $+ ) Ops: (04 $+ %tieop $+ / $+ %listop $+ ) HalfOps: (07 $+ %tiehop $+ / $+ %listhop $+ ) Voices: (02 $+ %tievoice $+ / $+ %listvoice $+ ) Regulars: (14 $+ %tiereg $+ / $+ %listreg $+ )
}
on *:text:~status*:#:{
  set %listops 0
  set %listtotal 0
  set %listop 0
  set %listvoice 0
  set %listhop 0
  set %listreg 0
  set %listops2 0
  set %listtotal2 0
  set %listop2 0
  set %listvoice2 0
  set %listhop2 0
  set %listreg2 0
  set %tievoice 0
  set %tiehop 0
  set %tiereg 0
  set %tieop 0
  set %tieall 0
  set %com 1
  :start
  set %comchan $comchan($me,%com)
  set %i 1
  :next
  set %nick $nick(%comchan,%i)
  if (%nick == $null) { goto done }
  inc %listops
  inc %listtotal
  if ($me isop %comchan) {
    if (%nick isop %comchan) { inc %listop | inc %tieall | inc %tieop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop | inc %listhop2 | inc %listtotal2 }
    if (%nick isvoice %comchan) { inc %listvoice | inc %listvoice2 | inc %listtotal2 }
  }
  if ($me ishop %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop | inc %tieall | inc %tiehop }
    if (%nick isvoice %comchan) { inc %listvoice | inc %listvoice2 | inc %listtotal2 }
  }
  if ($me isvoice %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %listreg2 | inc %listtotal2 }
    if (%nick ishop %comchan) { inc %listhop }
    if (%nick isvoice %comchan) { inc %listvoice | inc %tieall | inc %tievoice }
  }
  if ($me isreg %comchan) {
    if (%nick isop %comchan) { inc %listop }
    if (%nick isreg %comchan) { inc %listreg | inc %tieall | inc %tiereg }
    if (%nick ishop %comchan) { inc %listhop }
    if (%nick isvoice %comchan) { inc %listvoice }
  }
  inc %i
  goto next
  :done
  inc %com
  if ($comchan($me,%com) == $null) { goto alldone }
  goto start
  :alldone
  notice $nick I Have Power Over: ( $+ %listtotal2 $+ / $+ %listtotal $+ ) Ops: (04 $+ %listop2 $+ / $+ %listop $+ ) HalfOps: (07 $+ %listhop2 $+ / $+ %listhop $+ ) Voices: (02 $+ %listvoice2 $+ / $+ %listvoice $+ ) Regulars: (14 $+ %listreg2 $+ / $+ %listreg $+ )
  notice $nick I Tie With: ( $+ %tieall $+ / $+ %listtotal $+ ) Ops: (04 $+ %tieop $+ / $+ %listop $+ ) HalfOps: (07 $+ %tiehop $+ / $+ %listhop $+ ) Voices: (02 $+ %tievoice $+ / $+ %listvoice $+ ) Regulars: (14 $+ %tiereg $+ / $+ %listreg $+ )
  notice $nick System Information: Uptime: (11 $+ $uptime(mirc,1) $+ ) Operating System: (07 $+ Windows $os $+ )
  notice $nick IRC Information: Server: (03 $+ $server $+ ) Channels Currently In: (04 $+ $chan(0) $+ ) User: (05 $+ $fullname $+ ) Nick: (06 $+ $me $+ ) User Modes: (07 $+ $usermode $+ ) Server Uptime: (09 $+ $uptime(server,2) $+ )
}