on 123:join:#kanal:mode #kanal +v $nick

alias -l _buser { .guser +vlist $1 3 } 
alias -l _rbuser { .ruser +vlist $1 3 } 
alias -l _luser { dialog -m _+vlist _+vlist } 
alias -l _vlist { 
  did -r _+vlist 11 
  var %_btotal = $ulist(*,+vlist,0) , %_b = 0 
  while (%_b < %_btotal) { 
    inc %_b 
    did -a _+vlist 11 $ulist(*,+vlist,%_b) 
  } 
} 
dialog _+vlist { 
  title "Auto Voice Listesi" 
  size -1 -1 105 125 
  option dbu 
  combo 11, 4 6 68 115 
  button "Ekle", 20, 74 6 26 11 
  button "Sil", 30, 74 19 26 11 
  button "Tamam", 40, 75 104 26 11, ok 
  box "", 1, 1 0 102 122 
} 

on *:dialog:_+vlist:init:*: { 
  _vlist 
} 

on *:dialog:_+vlist:sclick:*: { 
  if ($did == 20) { 
    if ($did(11).text != $null && $level($did(11).text) != +vlist) { 
      var %_badd = $did(11).text 
      .auser +vlist %_badd 
      _vlist 
    } 

  } 
  if ($did == 30) { 
    if ($did(11).text != $null && $level($did(11).text) == +vlist) { 
      var %_brem = $did(11).text 
      .ruser +vlist %_brem 
      _vlist 
    }     

  } 
} 

on @+vlist:join:#: { 
  mode  # +v-k  $nick Autovoice 
  notice $nick Auto Voice Listemdesin! 
}