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

[-]
Tags
küfürkorumaaddon kufurkorumaaddonu mircaddon mirckodları koruması küfürkoruma kufurkoruma küfürkorumakod küfür küfürkorumaaddonu mircaddonları küfürkorumakodu

Küfür koruması
Admin
#1
Bug 
Güzel Koruma botu için Küfür Koruma Addonu
OPERLOG KANALINDA İŞLEV GORUR !kufur ekle  !kufur sil kufur list seklinde komutları

İRCFORUM  İRCFORUMLARI  LAMERLER FORUM Paylaşım Platformu
Kod:
on *:start:{ $iif(!$isfile(kufur.tprk),.write kufur.tprk) | .hmake kufur 100 | .hload kufur kufur.tprk }
on *:text:*:#:{
  if $regex(#,/^#operlog$/i) {
    if $regex($1,/^[!\.]k[uüÜ]f[uüÜ]r$/Si) {
      if !$regex($2,/^(ekle|s[ıiİ]l|l[ıiİ]st)/Si) { msg # Lütfen 4!küfür 2<ekle|sil|list> olarak belirtiniz. }
      elseif $regex($2,/^ekle$/Si) {
        if (!$3) { msg # 12Lütfen kelime belirtiniz. }
        elseif $hfind(kufur,$strip($3-),0,W).data { msg # Eklemeye çalıştığınız küfür zaten $+([,$chr(32),$hget(kufur,$hfind(kufur,$strip($3-),1,W).data),$chr(32),]) maskesi ile uyuşmakta. }
        else {
          var %n = $left($calc($ctime * $rand(1000,9999)),7)
          .hadd -m kufur %n $strip($3-)
          .hsave -o kufur kufur.tprk
          msg # $strip($3-) 12Küfür 4Listesine 12Eklendi.
        }
      }
      elseif $regex($2,/^s[ıiİ]l$/Si) {
        if (!$3) { msg # 12Lütfen kelime belirtiniz. }       
        elseif !$hfind(kufur,$strip($3-),0,W).data { msg # 12Küfür listesinde bulunmamaktadir. }
        else {
          .hdel -m kufur $hfind(kufur,$strip($3-),1,W).data
          .hsave -o kufur kufur.tprk
          msg # $strip($3-) 12Küfür 4Listesinden 12Silindi.
        }
      }
      elseif $regex($2,/^l[ıiİ]st$/Si) {
        if ($hget(kufur,0).data == 0) { msg # 12Küfür listesi boş. }
        else {
          msg # Küfür listesi
          msg # -
          var %i = 1 | while (%i <= $hget(kufur,0).data) { msg # %i $+ .4) [ $hget(kufur,%i).data ] | inc %i }
          msg # -
          msg # Küfür listesi sonu
        } 
      }
    }
  }
  elseif $hfind(kufur,$strip($1-),1,W).data && !$regex($nick(#,$nick).pnick,/^[%@&~.]/) {
    ;- Muaf kanal satırı
    if $regex(#,/^#(OperHelp|Admin|Log|Services)$/i) { return }
    ;- Muaf nick satırı
    elseif $regex($nick,/^(nick|nick1|nick2|nick3)$/i) { return }
    ;- Muaf host satırı
    elseif $regex($site,/^(Root|Network|Services|Admin|IRCop)/i) { return }
    else { mode # +b $nick | kick # $nick 3Küfür Yasak. }
  }
}

Cevapla


Bu Konudaki Yorumlar
Küfür koruması - Yazar: Admin - 03-04-2020, 06:14 PM
RE: Küfür koruması - Yazar: Lamer - 03-04-2020, 07:01 PM

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Clone Koruması 2020 Admin 0 214 08-20-2020, 05:56 PM
Son Yorum: Admin
Lightbulb mIRC Kanal Yetki Koruması Admin 0 206 08-20-2020, 05:43 PM
Son Yorum: Admin
  mIRC Küfür Koruması (Seçmeli Hotlink) Admin 1 1,020 06-04-2020, 04:20 PM
Son Yorum: Lamer
Heart Büyük Harf Koruması Kodları Admin 0 498 06-01-2020, 10:13 PM
Son Yorum: Admin
Heart Yurtdışı Koruması Admin 1 608 06-01-2020, 12:47 AM
Son Yorum: Lamer

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi