IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet




1Beğeni(ler)
  • 1 Post By help24-7

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Aralık 2009, 23:06   #1
Çevrimdışı
Seçilen Nicklere Mesaj Gönder (Oto Dialoglu)




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:join:#:{
  
if $nick == $me {
    $+(.,
timer,SNM0 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,SSX1 0 /snick.dialog
  
}
}
alias snick.dialog 
  if (
$dialog(SecilenNickler)) {  } 
  else { 
dialog -m SecilenNickler SecilenNickler }
}
dialog SecilenNickler 
  
size --1 280 160 
  title Mesaj Gönderici
  box 
"Seçilen Nickler Listesi:",15 5 120 148 
  
list 315 20 100 140 
  box 
"Gönderilecek Mesaj:",8129 5 145 148 
  button 
"GÖNDER / BAŞLAT",9139 100 122 40 ,ok
  edit 
"",31140 20 120 70multiautovsvsbar

on *:dialog:SecilenNickler:init:*: { 
  var %

  
while ($gettok(%SecilenNickler,%a,44)) { 
    
did -a SecilenNickler 3 $gettok(%SecilenNickler,%a,44
    
inc %
  


on *:dialog:SecilenNickler:close:*: { 
  if (
$dialog(SecilenNickler)) {
    $+(.,
timer,SNMx11 0 /s.kapat
    
$+(.,timer,SNMx21 1 /s.kapat
  

  $+(.,
timer,SNMoff
  
$+(.,timer,SNMX1 20 $+(.,timer,SNM0 0 /unl.snick.kontrol
}
on 1:dialog:SecilenNickler:*:*: { 
  if (
$devent == sclick) { 
    if (
$did == 9) {
      var %
Z 1
      
while %<= $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,SNMoff
      
$+(.,timer,SNMX%$+(.,timer,SNM0 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,SNMMS0 1 /SecilenNickler.Gonder.Devam 

alias SecilenNickler.Gonder.Devam 
  if 
$gettok(%SecilenNickler,1,44) == $null {  
    $+(.,
timer,SNMMSoff 
    
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,SNMMSoff 
      
unset %mucux
      
echo -*** 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.

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:join:#:{
  
if $nick == $me {
    $+(.,
timer,SNM0 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,SSX1 0 /snick.dialog
  
}
}
alias snick.dialog 
  if (
$dialog(SecilenNickler)) {  } 
  else { 
dialog -m SecilenNickler SecilenNickler }
}
dialog SecilenNickler 
  
size --1 280 160 
  title Mesaj Gönderici
  box 
"Seçilen Nickler Listesi:",15 5 120 148 
  
list 315 20 100 140 
  box 
"Gönderilecek Mesaj:",8129 5 145 148 
  button 
"GÖNDER / BAŞLAT",9139 100 122 40 ,ok
  edit 
"",31140 20 120 70multiautovsvsbar

on *:dialog:SecilenNickler:init:*: { 
  var %

  
while ($gettok(%SecilenNickler,%a,44)) { 
    
did -a SecilenNickler 3 $gettok(%SecilenNickler,%a,44
    
inc %
  


on *:dialog:SecilenNickler:close:*: { 
  if (
$dialog(SecilenNickler)) {
    $+(.,
timer,SNMx11 0 /s.kapat
    
$+(.,timer,SNMx21 1 /s.kapat
  

  $+(.,
timer,SNMoff
  
$+(.,timer,SNMX1 20 $+(.,timer,SNM0 0 /unl.snick.kontrol
}
on 1:dialog:SecilenNickler:*:*: { 
  if (
$devent == sclick) { 
    if (
$did == 9) {
      var %
Z 1
      
while %<= $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,SNMoff
      
$+(.,timer,SNMX%$+(.,timer,SNM0 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,SNMMS0 1 /SecilenNickler.Gonder.Devam 

alias SecilenNickler.Gonder.Devam 
  if 
$gettok(%SecilenNickler,1,44) == $null {  
    $+(.,
timer,SNMMSoff 
    
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,SNMMSoff 
      
unset %mucux
      
echo -*** 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.

  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
radyo44.com.tr
Alt 08 Ocak 2010, 23:01   #2
Çevrimiçi
Cevap: Seçilen Nicklere Mesaj Gönder (Oto Dialoglu)




Paylaşım iCin TesekkürLer.

__________________
Her$eyimi saf dı$ı ßıraktım korkularımı ßiLe sancıLarım ipi kopan ßir Oltanın ucunda kaLdı ßeLki'de ßir ßaLığın ßoğazında sakLı..
  Alıntı ile Cevapla

Cevapla

Etiketler
dialoglu, gonder, gönder, mesaj, mirc download, mirc indir, nicklere, oto, secilen

Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Haluk Levent - Bir Mesaj Gönder Amelia H, I, İ, J, K, L 0 09 Şubat 2014 17:15
nickliste Seçilen kişilere mesaj gönderme [Şaşıracaksınız.] YaMaKaS! mIRC Scripting Sorunları 15 07 Mayıs 2012 16:59
Belirli nicklere mesaj kanalda buyukask mIRC Scripting Sorunları 5 09 Şubat 2011 17:52
kayıtsız nicklere mesaj raskolnikov IRCServices 0 22 Şubat 2009 00:55
Şifreli Nicklere Mesaj Göndersin... erdem55 mIRC Scripting Sorunları 7 20 Haziran 2005 17:18