Channels Info

; The Identifier $submenu calls; generates a list of channels.
alias _infochan {
  var %ch $chan($1)
  if ($1 == begin) return -
  ; Grey all channels with no ChanServ
  if (%ch ischan) return $iif(!$ChanInfoBot(%ch),$style(2)) %ch : .chaninfo %ch
  if ($1 == end) return -
}

; Check to see if ChanServ exists on the network you are on.
alias _cschk {
  return 1
  .notify ChanServ $network
  if ($notify(ChanServ) > 0) { var %csison = 1 }
  elseif ($notify(ChanServ) < 1) { var %csison = 0 }
  .timer 1 1 .notify -r ChanServ
  return %csison
}
alias chanInfoBot {
  var %ch $iif($1,$1,$active)
  if (ChanServ ison %ch) $&
    || (Centravi ison %ch) $&
    || (NeonServ ison %ch) {
    var %bot $v1
  }
  if ($cmdbox) echo -a chanbot on %ch $+ : $iif(%bot,%bot,(none))
  else return %bot
}
alias chanInfo {
  var %ch $iif($1,$1,$active)
  if (ChanServ ison %ch) $&
    || (Centravi ison %ch) $&
    || (NeonServ ison %ch) {
    .msg $v1 info %ch
  }
}
menu status,channel {
  ; If there is no Chanserv, hide the menu.
  $iif($_cschk < 1,$style(2)) Get Channel Info
  ; Else, list the channels.
  .$submenu($_infochan($1))
}


; If you put the script in your remote section of your mIRC an extra menu appears when right-clicking in the status-window or a channel window.
; The 'Get Channel info' menu then shows all channels opened and each one that has an info command chan-bot can be clicked to show the info.