autojoiner

alias AutoJoiner { dialog -ma AutoJoiner AutoJoiner_table }

dialog AutoJoiner_table {
  icon icons\light.ico
  title "AutoJoiner - By SEC"
  size -1 -1 230 100
}

on *:dialog:AutoJoiner:init:*: {
  dcx Mark $dname AutoJoiner_cb
  var %d $dname , %c xdialog -c %d , %t xdid -t %d
  %c 2 text 15 15 225 20 | %t 2 $active
  %c 3 button 15 50 75 20 tabstop | %t 3 Add
  %c 4 button 120 50 75 20 tabstop | %t 4 Delete
}

alias AutoJoiner_cb {
  if ($2 == sclick) {
    var %i
    if ($3 = 3)  %i =  $addtok(%autojoin,#,44)
    elseif ($3 = 4) %i = $remtok(%autojoin,#,44)
    set %autojoin %i | xdialog -x $1
} }

menu channel {
  $iif($istok(%Autojoin,$chan,44),$style(1)) AutoJoin $active : AutoJoiner
}