on *:join:#:{
  if $nick == $me {
    $+(.,timer,SNM) 0 0 /unl.snick.kontrol
  }
}
alias unl.snick.kontrol { 
  if ($numtok($snick($active),44) = 1) { s.kapat }
  if ($numtok($snick($active),44) > 1) {
    set %SecilenNickler $snick($active)
    $+(.,timer,SSX) 1 0 /snick.dialog
  }
}
alias snick.dialog { 
  if ($dialog(SecilenNickler)) {  } 
  else { dialog -m SecilenNickler SecilenNickler }
}
dialog SecilenNickler { 
  size -1 -1 280 160 
  title Mesaj Gönderici
  box "Seçilen Nickler Listesi:",1, 5 5 120 148 
  list 3, 15 20 100 140 
  box "Gönderilecek Mesaj:",8, 129 5 145 148 
  button "GÖNDER / BAŞLAT",9, 139 100 122 40 ,ok
  edit "",31, 140 20 120 70, multi, autovs, vsbar
} 
on *:dialog:SecilenNickler:init:*: { 
  var %a = 1 
  while ($gettok(%SecilenNickler,%a,44)) { 
    did -a SecilenNickler 3 $gettok(%SecilenNickler,%a,44) 
    inc %a 
  } 
} 
on *:dialog:SecilenNickler:close:*: { 
  if ($dialog(SecilenNickler)) {
    $+(.,timer,SNMx1) 1 0 /s.kapat
    $+(.,timer,SNMx2) 1 1 /s.kapat
  } 
  $+(.,timer,SNM) off
  $+(.,timer,SNMX) 1 20 $+(.,timer,SNM) 0 0 /unl.snick.kontrol
}
on 1:dialog:SecilenNickler:*:*: { 
  if ($devent == sclick) { 
    if ($did == 9) {
      var %Z 1
      while %Z <= $did($dname,31,%Z) {
        if $did($dname,31,%Z) == $null { goto end }
        set %SecilenNickler.Mesaj $+(%SecilenNickler.Mesaj,$did($dname,31,%Z))
        inc %Z
      }
      :end
      inc %Z 10
      $+(.,timer,SNM) off
      $+(.,timer,SNMX) 1 %Z $+(.,timer,SNM) 0 0 /unl.snick.kontrol
      SecilenNickler.Gonder 
    } 
  } 
  if ($devent == rclick) { halt }
  if ($devent == dclick) { halt  }
}
alias -l s.kapat {
  if ($dialog(SecilenNickler)) {
    dialog -x SecilenNickler 
  }
}
alias SecilenNickler.Gonder { 
  set %mucux 1 
  $+(.,timer,SNMMS) 0 1 /SecilenNickler.Gonder.Devam 
} 
alias SecilenNickler.Gonder.Devam { 
  if $gettok(%SecilenNickler,1,44) == $null {  
    $+(.,timer,SNMMS) off 
    goto son 
  } 
  if $gettok(%SecilenNickler,1,44) != $null {  
    if $gettok(%SecilenNickler,%mucux,44) != $null {  
      .msg $gettok(%SecilenNickler,%mucux,44) %SecilenNickler.Mesaj 
      inc %mucux 1 
      goto son 
    } 
    if $gettok(%SecilenNickler,%mucux,44) == $null {  
      $+(.,timer,SNMMS) off 
      unset %mucux
      echo -a *** Seçilen Nicklere Mesaj Gönderimi başarıyla tamamlandı. 
      goto son 
    } 
  } 
  :son 
}