mIRC Scripting - Hızlı Memo Gönderimi (Multi Mesaj)

mIRC Scripting (https://www.mircscripting.net/)

- Showcase - Hazır kodlar (https://www.mircscripting.net/showcase-hazyr-kodlar/)

- - Hızlı Memo Gönderimi (Multi Mesaj) (https://www.mircscripting.net/showcase-hazyr-kodlar/434-hyzly-memo-goenderimi-multi-mesaj.html)

Hızlı Memo Gönderimi (Multi Mesaj)

PHP- Kodu:

   alias MultiMesaj { dialog -m MultiMesaj MultiMesaj } 
 
dialog MultiMesaj { 
  size -1 -1 280 220 
  title KELEBEK Admin MultiMesaj Sistemi 
  box "Nickler Listesi:",1, 5 5 150 148 
  button "Tamam",2, 159 100 110 50,ok 
  list 3, 15 20 130 140 
  button "Ekle",4, 170 60 50 20 
  edit "",5, 170 35 90 20 
  text "Nick:",6, 170 20 45 15 
  button "Sil",7, 222 60 40 20 
  box "Ayarlar ( Ekle/Sil )",8, 159 5 110 85 
  button "BAŞLAT",9, 159 160 110 50 
  button "Gidecek Mesajı Ayarla",10, 6 160 140 50 
} 
 
on 1:dialog:MultiMesaj:sclick:*: { 
  if ($did == 3) {  
    did -ra $dname 5 $did(3).seltext 
  } 
  if ($did == 4) {  
    set %MultiMesaj [ %MultiMesaj ] $did(5) 
    did -a $dname 3 $did(5) 
    did -ra $dname 5  
  } 
  if ($did == 7) {  
    if ($did(3).sel > 0) {  
      set %MultiMesaj $remtok(%MultiMesaj,$did(3).seltext,32) 
      did -d MultiMesaj 3 $did(3).sel  
      did -ra $dname 5  
    }  
  } 
  if ($did == 9) { MultiMesaj.Gonder } 
  if ($did == 10) { MultiMesaj.Ayar } 
} 
 
on *:dialog:MultiMesaj:init:*: { 
  var %a = 1 
  while ($gettok(%MultiMesaj,%a,32)) { 
    did -a MultiMesaj 3 $gettok(%MultiMesaj,%a,32) 
    inc %a 
  } 
} 
 
alias MultiMesaj.Gonder { 
  set %sikici 1 
  $+(.,timer,MMS) 0 1 /MultiMesaj.Gonder.Devam 
} 
 
alias MultiMesaj.Gonder.Devam { 
  if $gettok(%MultiMesaj,1,32) == $null {  
    $+(.,timer,MMS) off 
    echo -a *** Mesaj Gönderilecek NickListesi şu anda boş. 
    goto son 
  } 
  if $gettok(%MultiMesaj,1,32) != $null {  
    if $gettok(%MultiMesaj,%sikici,32) != $null {  
      .ms send $gettok(%MultiMesaj,%sikici,32) %MultiMesaj.Mesaj 
      inc %sikici 1 
      goto son 
    } 
    if $gettok(%MultiMesaj,%sikici,32) == $null {  
      $+(.,timer,MMS) off 
      echo -a *** Mesaj Gönderimi başarıyla tamamlandı. 
      goto son 
    } 
  } 
  :son 
} 
 
alias MultiMesaj.Ayar { 
  set %MultiMesaj.Mesaj $$?="Lütfen Gönderilecek Mesajı Giriniz" 
  echo -a *** Gönderilecek Mesaj: %MultiMesaj.Mesaj 
}

Code: UnLimitedBOY
Tarih: 13.06.2009

Komut Kullanım: /MultiMesaj

Ne işe yarar?
Nick Listesine ekleyeceniz nicklere tek tek otomatik olarak mesaj göndermeye yarar. Bütün mesajların gönderimi tamamlandığında sistem durur.

Not: Bu sistem adminler için ayarlanmıştır. Sunucularda, genelde 5 dk'lık bir zaman dilimiyle mesaj göndermenize izin verir. bu durumda aşağıda vereceğim koddaki zaman dilimini değiştiriniz.

Mevcut Kod: $+(.,timer,MMS) 0 1 /MultiMesaj.Gonder.Devam
Userler için değişecek kod: $+(.,timer,MMS) 0 301 /MultiMesaj.Gonder.Devam

Bunu kanalda
!gönder Nick1,Nick2,Nick3 Mesaj

Şeklinde ayarlıyabilirmiyiz?

iki sekilde ayarlamak mümkün...
1) kanalda 1 den fazla nick sectiginde otomatik olarak memo penceresini acarak gönderme...
:: bunun için kod'u ilk kez eklediginde scripti birkereye mahsus kapatıp acman gerekir. Ki; nick listesini kontrol eden zamanlayıcı calısabilsin.. Menual yapmak istersende
/timer_nicklist_memo_kontrol -m 0 1600 .chknlist yazıp enterlaman yeterli.

PHP- Kodu:

   alias secekle { set %MultiMesaj [ %MultiMesaj ] $replace($snicks,$chr(44),$chr(32)) | MultiMesaj }
on *:start:{ .timer_nicklist_memo_kontrol -m 0 1600 .chknlist  }
alias chknlist { $iif($count($snicks,$chr(44)),$iif(!$dialog(MultiMesaj),secekle,$null)) }

2) Kanalda nikleri secip üzerina sag tıkladıgında menu'de görecegin niklere göndere bilecegin yöntem
:: bu yöntemde secilecek nickler CTRL ile belli nickler SHIFT ile bir nick ile diger nick aralıgındaki kişiler.. yara nickler üzerinde klasik yöntemle fare ile karalayarak.. yapmak mümkün bunun için de şu kodu eklemelisin..

PHP- Kodu:

   menu nicklist { 
MultiMesaj $qt($replace($snicks,$chr(44),$chr(32))) : secekle 
}
alias secekle { set %MultiMesaj [ %MultiMesaj ] $replace($snicks,$chr(44),$chr(32)) | MultiMesaj }

++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz. Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.

FLINK: mIRC Offical - Hasan AYDENİZ - Koli - KARMA - Karma Aydınlatma

mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials