Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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 }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement