PHP- Kodu:
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 
} 


Komut kullanimi Bir kanala girdiğinizde otomatik çalışır
Ne işe yarar?
Nick listesinde 2'den fazla nick seçerseniz eğer, bir dialog açılır ve göndermek istediğiniz mesajı size sorar. Mesajınızı yazdiğinizda, lagta kalmadan saniyede 1 mesaj atacak şekilde, mesajınızı iletir.