Pastebin is 300% more awesome when you are logged in. Sign Up, it's FREE!
Guest

autojoiner

By: a guest on Jan 26th, 2013  |  syntax: None  |  size: 0.71 KB  |  hits: 66  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. alias AutoJoiner { dialog -ma AutoJoiner AutoJoiner_table }
  2.  
  3. dialog AutoJoiner_table {
  4.   icon icons\light.ico
  5.   title "AutoJoiner - By SEC"
  6.   size -1 -1 230 100
  7. }
  8.  
  9. on *:dialog:AutoJoiner:init:*: {
  10.   dcx Mark $dname AutoJoiner_cb
  11.   var %d $dname , %c xdialog -c %d , %t xdid -t %d
  12.   %c 2 text 15 15 225 20 | %t 2 $active
  13.   %c 3 button 15 50 75 20 tabstop | %t 3 Add
  14.   %c 4 button 120 50 75 20 tabstop | %t 4 Delete
  15. }
  16.  
  17. alias AutoJoiner_cb {
  18.   if ($2 == sclick) {
  19.     var %i
  20.     if ($3 = 3)  %i =  $addtok(%autojoin,#,44)
  21.     elseif ($3 = 4) %i = $remtok(%autojoin,#,44)
  22.     set %autojoin %i | xdialog -x $1
  23. } }
  24.  
  25. menu channel {
  26.   $iif($istok(%Autojoin,$chan,44),$style(1)) AutoJoin $active : AutoJoiner
  27. }