History Channel

alias hlist {
  var %y = 1
  while ($ini(mirc.ini, chanhist, %y)) {
    var %network = $gettok($readini(mirc.ini, chanhist, $ini(mirc.ini, chanhist, %y)), 2,44)
    if ($network == %network) { return 1 }
    inc %y
  }
}
alias wd { return $gettok($1,$2,32) }
alias clear_chanhist { return $dll($_ddir(sendkey.dll),dialog,140) }
alias set.menu {
  if (!$hlist($network)) && ($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
  }
}
menu channel, status {
Favorites
.&Add to Favorites...:{ return $dll($_ddir(sendkey.dll),dialog,141) }
.&Organize Favorites... Alt+J:{ open alt+j }
.-
.History
..$submenu($set.menu($1))
..-
..$iif(!$hlist($network),$style(2)) Clear History:{ clear_chanhist }
}