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

UnLimitedBOY · #1 10 Ekim 2009, 22:01

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

Happy · #2 03 Mayıs 2012, 20:03

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

Şeklinde ayarlıyabilirmiyiz?

**CoCoRiCo** · #3 05 Mayıs 2012, 18:09

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 }

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
IRC dersleri.	WeiLSiDe	mIRC commands - Komutlar	23	08 Haziran 2015 02:07

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder