SHARE
TWEET

autojoiner

a guest Jan 26th, 2013 78 Never
  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. }
RAW Paste Data
Top