Code

menu channel {
History
.$submenu($set.menu($1))
.-
.$iif(!$ini(mirc.ini, chanhist, 0),$style(2)) Clear History:{ clear_chanhist }
}

alias wd { return $gettok($1,$2,32) }
alias clear_chanhist { return $dll($_ddir(sendkey.dll),dialog,140) }

alias set.menu {
  if (!$ini(mirc.ini, chanhist, 0)) && ($1 == 1) return $style(2) None :$null

  var %y = 1, %enum = 1
  while ($ini(mirc.ini, chanhist, %y)) {
    var %channel = $readini(mirc.ini, chanhist, $ini(mirc.ini, chanhist, %y))
    var %cn %cn $gettok( %channel, 1,44) $+ $chr(124) $+ $gettok( %channel, 2,44)
    inc %y
  }
  var %cn = $sorttok(%cn,32)
  var %f = $numtok(%cn,32)
  var %y = 1
  while (%y <= %f) {
    var %e $replace( $wd( %cn, %y), $chr(124), $chr(32)), %getChannel = $wd(%e,1), %getNetwork = $wd(%e,2)
    if ($1 == %enum) return $iif($network == %getNetwork, $iif($me ison %getChannel, $style(3) %getChannel, $iif($server, %getChannel, $style(2) %getChannel))   %getNetwork) :j %e
    inc %y
    inc %enum
  }
}