IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar mIRC Hızlı Memo Gönderimi (Multi Mesaj)
irc

mIRC Hızlı Memo Gönderimi (Multi Mesaj)
Aytac
mIRC Hızlı Memo Gönderimi (Multi Mesaj)
0
461
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
mesaj mirc gönderimi memo hızlı multi

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular351
  • Mesajlar364
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

Kod :
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

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

Keyifli forumlar.
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  mIRC Youtube Remote Aytac 3 1,929 03.04.2021, 12:30
Son Mesaj: iSyan
  mIRC Yurt Dışı Girişlerini Yasaklama Aytac 1 1,928 03.04.2021, 12:29
Son Mesaj: iSyan
  mIRC Tüm Kanalları Aynı Moda Alma Aytac 0 1,889 20.02.2021, 00:03
Son Mesaj: Aytac
  mIRC Namaz vakitleri Aytac 0 1,814 03.02.2021, 02:03
Son Mesaj: Aytac
  mIRC Ozele Gelen Saldırıları Engelleme Aytac 1 594 12.10.2020, 21:41
Son Mesaj: Core

Foruma Git: