Advertisement
WraithRIOT

Switchbar Update :D

Apr 11th, 2011
226
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.70 KB | None | 0 0
  1. alias switchbar {
  2.   did -r switchbar 1
  3.   did -i switchbar 1 1 iconsize normal small
  4.   did -i switchbar 1 1 seticon normal icons/con-dis.ico
  5.   did -i switchbar 1 1 seticon normal icons/chan.ico
  6.   did -i switchbar 1 1 seticon normal icons/userlist2.ico
  7.   did -i switchbar 1 1 seticon normal icons/chan.ico
  8.   did -i switchbar 1 1 seticon normal icons/dcc.ico
  9.   did -i switchbar 1 1 seticon normal icons/admin protection.ico
  10.   did -i switchbar 1 1 seticon normal icons/about.ico
  11.   var %a = 1
  12.   while (%a <= $scid(0)) {
  13.     scon %a
  14.     did -i switchbar 1 1 cb root
  15.     if ($server) did -a switchbar 1 +eb 1 1 $server
  16.     if (!$server) did -a switchbar 1 +eb 6 1 Not connected.
  17.     did -i switchbar 1 1 cb last
  18.     did -i switchbar 1 1 cb last
  19.     did -a switchbar 1 +e 2 2 Room List
  20.     did -i switchbar 1 1 cb last
  21.     var %c = 1
  22.     while (%c <= $chan(0)) {
  23.       if (%Notify. [ $+ [ $+($server $+ $chan(%c)) ] ] != On) did -a switchbar 1 + 2 2 $chan(%c)
  24.       if (%Notify. [ $+ [ $+($server $+ $chan(%c)) ] ] == On) did -a switchbar 1 + 2 2 @ $+ $chan(%c)
  25.       inc %c
  26.     }
  27.     did -i switchbar 1 1 cb up
  28.     did -a switchbar 1 +e 3 3 Private Chat
  29.     did -i switchbar 1 1 cb last
  30.     var %q = 1
  31.     while (%q <= $query(0)) {
  32.       if (%Notify. [ $+ [ $+($server $+ $query(%q)) ] ] != On) did -a switchbar 1 + 3 3 $query(%q)
  33.       if (%Notify. [ $+ [ $+($server $+ $query(%q)) ] ] == On) did -a switchbar 1 + 3 3 @ $+ $query(%q)
  34.       inc %q
  35.     }
  36.     inc %a
  37.   }
  38.   did -i switchbar 1 1 cb root
  39.   did -a switchbar 1 +e 4 4 Windows
  40.   did -i switchbar 1 1 cb last
  41.   var %w = 1
  42.   if ($window(0) > 0) {
  43.     while (%w <= $window(0)) {
  44.       did -a switchbar 1 +eu 4 4 $window(%w)
  45.       inc %w
  46.     }
  47.   }
  48. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement