Türkiye'nin IRCd ve LaMeR Forumu Sitesi
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Tags
ircdforum akilsilme ircforum akilekle addonu akileklemeaddonu akill akileklemeaddon ircforumları akilekleme ekleme

Akill ekleme Addonu
Admin
#1
Heart 
SUNUCUDA Akil ekleme ve Silme Addonu
Menübarda akıil listesini görebilirsiniz
ekleyebilir ve silebilirsiniz  
Kod:
on ^1:NOTICE:*:*:{
  if (*@* iswm $1) && (%akilnotice == on) { 
    write akill.txt $gettok($1,2,64)
    did -a aklist 1 $regsubex(akill,$gettok($1,2,64),/(\*)$/S,)
  }
}
dialog aklist {
  title "Akill Listesi - Liste Otomatik Akill Yer"
  size -1 -1 123 169
  option dbu
  list 1, 2 16 119 104, size
  edit "", 2, 46 124 57 10, multi autohs
  text " IP Girin :", 3, 3 125 43 8
  button "Ekle", 7, 105 123 16 26
  button "KAPAT", 6, 1 152 120 14, ok
  text "Örnek: 78.161.*", 4, 3 139 98 9
  box "", 8, 2 135 101 14
  box "", 9, 2 121 42 13
  box "", 10, 2 0 119 13
  text " Silmek icin ipin uzerine Cift tiklayin", 11, 3 4 111 8
}

on *:dialog:aklist:*:*:{
  if $devent == init {
    ;mdx MarkDialog $dname
    //set %akilnotice on | .os akill list
    .timer 1 1 //set %akilnotice off
    ; mdx MarkDialog $dname
    ; mdx SetDialog $dname bgcolor $rgb(237,241,219)
    ; mdx SetFont $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 +b Turkish 13 950 Verdana
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 textbg $rgb(237,241,219)
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 background $rgb(237,241,219)
    ;  mdx SetColor $dname 1,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20 text $rgb(0,0,0)
    ;  mdx SetColor $dname 11,13,10,12 background $rgb(237,241,219)
    ;  mdx SetColor $dname 11,13,12,10 textbg $rgb(237,241,219)
    ;  mdx SetFont $dname 2,7,6,11,13,12,10,14,15,16 13 950 Tahoma
    ;  mdx SetColor $dname 11,4l text $rgb(199,92,2)
  }
  if $devent == dclick {
    if $did == 1 {
      .os akill del $+(*@, $did(1).seltext,*)
      did -d $dname 1 $did(1).sel
    }
  }
  if $devent == sclick && $did == 7 { haltdef
    .os akill add +0 *@ $+ $did(2)  $+ *  Sunucu Kurallarini İhlal Ettiniz.. | did -a aklist 1 $did(2)
  }
  if $devent == sclick && $did == 4 { dialog -m xbilgi xbilgi }
  if $devent == close {
    write -c akill.txt
    set %akilnotice off
  }
}
alias xakil { dialog -m aklist aklist }
İRC FORUMLARI  EN KALİTELİ FORUM SİTESİ LAMERLER.COM
yqipAP.png
Cevapla


Bu Konudaki Yorumlar
Akill ekleme Addonu - Yazar: Admin - 03-01-2020, 02:55 AM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Heart Lamerlik Yapan bir İP Adresini Takip etme Addonu Admin 2 1,683 06-15-2020, 05:37 AM
Son Yorum: Admin
  Mirc İrc Chanserv Yetki Ekleme Paneli Admin 0 925 06-01-2020, 10:59 PM
Son Yorum: Admin
Heart Birden Fazla Sunucuya Baglanma Addonu Admin 0 783 06-01-2020, 09:50 PM
Son Yorum: Admin
Bug Nick Degişme addonu oto Admin 0 878 05-26-2020, 07:00 AM
Son Yorum: Admin
Bug Sunucuya 2 saniye icerisinde aynı identten 5 giriş olursa IP adreslerini AKILL EKLER Admin 0 772 05-25-2020, 09:22 PM
Son Yorum: Admin

Hızlı Menü:


Konuyu Okuyanlar: 3 Ziyaretçi