IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar Admin Status Kontrol Addonu
irc

Admin Status Kontrol Addonu
Aytac
Admin Status Kontrol Addonu
0
404
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
admin addonu status kontrol

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

Sunucu statüsünde bulunan kullanıcıları listeler ve bu kullanıcılara işlem yapabilirsiniz.

Kod;

Kod :
menu * {
  -
  Status Kontrolu:/statuskontrol
  -
}

alias statuskontrol { dialog -m skontrol skontrol }
dialog skontrol {
  title "Statüs Kontrol Merkezi"
  size -1 -1 170 204
  option dbu
  list 1, 92 3 70 201, size
  button "Seçili Nicke Zline At", 2, 3 5 74 11
  button "Hepsine Zline At", 3, 3 17 74 11
  button "Seçili Nicke Shun At", 4, 3 33 74 11
  button "Hepsine Shun At", 5, 3 45 74 11
  button "Seçili Nicke Kill At", 6, 3 62 74 11
  button "Hepsine Kill At", 7, 3 74 74 11
  button "Hepsine K. Cek", 8, 3 102 74 11
  button "Seçili Nicki K. Cek", 9, 3 90 74 11
  ;text "S.Nick:Seçili Nick ", 10, 2 167 74 11
  button "Kayıtsız Nicklere Shun", 11, 3 130 74 11
  button "Kayıtsız Nicklere Zline", 12, 3 118 74 11
  text "Statusdeki Nicklere", 13, 2 178 49 8
  text "İşlem Yapabilirsiniz", 14, 2 189 49 14
  button "Kayıtsız Nicklere Kill", 15, 3 142 74 11
  button "Kayıtsız Nickleri K.Cek", 16, 3 154 74 11
}


on *:dialog:skontrol:*:*: {
  if $devent == sclick && $status == connected {
    if $did == 2 { zline $did(1).seltext %sure %kurallar }
    if $did == 3 {
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        gzline $read(wholist.txt,%i) %sure %kurallar
        inc %i
      }
    }
    if $did == 4 { shun $did(1).seltext %sure %kurallar }
    if $did == 5 {
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        shun $read(wholist.txt,%i) %sure %kurallar
        inc %i
      }
    }
    if $did == 6 { kill $did(1).seltext %kurallar }
    if $did == 7 {
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        kill $read(wholist.txt,%i) %kurallar
        inc %i
      }
    }
    if $did == 9 { sajoin $did(1).seltext $$?"Kanal Yaz # koy" }
    if $did == 8 {
      var %kanal $$?"Kanal Yaz $chr(35) koy"  
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        sajoin $read(wholist.txt,%i) %kanal
        inc %i
      }
    }
    if $did == 11 {
      set %kshunat on
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        shun $read(wholist.txt,%i) 900 %kurallar
        inc %i
      }
    }
    if $did == 12 {
      set %kzlinat on
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        gzline $read(wholist.txt,%i) 900 %kurallar
        inc %i
      }
    }
    if $did == 15 {
      set %kkat on
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        kill $read(wholist.txt,%i) %kurallar
        inc %i
      }
    }
    if $did == 16 {
      set %kkal on
      set %kkchan $$?"Kanal Yaz $chr(35) koy"
      var %i 1
      while %i <= $lines(wholist.txt) {
        WhileFix WhileFix .
        sajoin $read(wholist.txt,%i) %kkchan
        inc %i
      }
    }
  }
  if $devent == init {
    ;mdx MarkDialog $dname  
    ;; mdx SetDialog $dname bgcolor $rgb(47,163,204)
    ; mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 +b Turkish 12 600 Arial
    ;; mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 textbg $rgb(47,163,204)
    ; mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 background $rgb(47,163,204)
    ; mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19 text $rgb(0,0,0)
    ;mdx SetDialog $dname style title tool sysmenu
    if $status == connected {
      set %skontrol on | who
      .timer 1 1 savebuf -o skontrol 1 wholist.txt
    }
  }
  if $devent == close {
    write -c wholist.txt
    unset %skontrol
  }
}
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  mIRC Ülke Yasaklama Addonu Aytac 0 418 07.04.2020, 00:52
Son Mesaj: Aytac
  NickListesi Addonu v2.0 Aytac 0 329 21.03.2020, 01:03
Son Mesaj: Aytac
  mIRC Seslenme Addonu Aytac 0 367 16.03.2020, 01:10
Son Mesaj: Aytac
  Spamfilter Kontrol Addonu Aytac 0 359 16.03.2020, 01:08
Son Mesaj: Aytac
  Admin Sunucu Kullanıcı Yönetim Paneli Aytac 0 449 16.03.2020, 01:03
Son Mesaj: Aytac

Foruma Git: