IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar mIRC Küfür Koruması (Hotlink)
irc

mIRC Küfür Koruması (Hotlink)
Aytac
mIRC Küfür Koruması (Hotlink)
0
758
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
koruması mirc hotlink küfür

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
  • Konular353
  • Mesajlar365
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

Kod :
alias kfrlr return (s[iİı]kt[iİı]r|p[iİı]ç(s[iİı]n)*|g[öÖo]t|amc[iİı]k)
on *:text:*:#: {
  if $regex(x,$remove($1-,$chr(44),.,!,?,:,$chr(41),;),/(^|\s) $+ $kfrlr $+ (\s|$)/Si) {
    $iif(!$window(@Koruma),window -ne @Koruma)
    echo -a $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01])
    echo @Koruma $+($chr(3),07,$chan) $+($chr(3),01,Kanalında $chr(3),07,$nick $chr(3),01,Nicki Yasaklı:) $+($chr(3),04,$regml(x,2)) $+($chr(3),01,Kelimesini kullandı. Ceza:) [04 (Ban) 01] [10 (Ban+Kick) 01] [12 (Shun) 01] [06 (Zline) 01])
  }
}

on ^$*:hotlink:*:*:{
  if $regex($1,/\x28(Ban)\x29/Si) { return }
  elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) { return }
  elseif $regex($1,/\x28(Shun)\x29/Si) { return }
  elseif $regex($1,/\x28(Zline)\x29/Si) { return }
  else { halt }
}
on *:hotlink:*:*:{
  var %nck = $token($strip($hotline),3,32), %knl = $token($strip($hotline),1,32)
  if $regex($1,/\x28(Ban)\x29/Si) {
    if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) {
      mode %knl +b %nck
    }
    else { echo -a Yetkiniz Yok }
  }
  elseif $regex($1,/\x28(Ban\+Kick)\x29/Si) {
    if $regex(ops,$nick($chan,$me).pnick,[.~%&@]) || $regex(admns,$usermode,o) {
      mode %knl +b %nck
      $iif(%nck ison %knl,kick %knl %nck Küfür Yasak!)
    }
    else { echo -a Yetkiniz Yok }
  }
  elseif $regex($1,/\x28(Shun)\x29/Si) {
    if $regex(admns,$usermode,o) {
      shun %nck +0 Küfür Yasak!
    }
    else { echo -a Yetkiniz Yok }
  }
  elseif $regex($1,/\x28(Zline)\x29/Si) {
    if $regex(admns,$usermode,o) {
      zline %nck +0 Küfür Yasak!
    }
    else { echo -a Yetkiniz Yok }
  }
}

alias kfrlr return yazan yere küfürleri aralarında | işaretini kullanarak eklemeniz gerekmekte.
Aktif pencere ve @koruma penceresinde bildirim ve yapabileceğiniz ceza seçenekleri gözükür
“İ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,940 03.04.2021, 12:30
Son Mesaj: iSyan
  mIRC Yurt Dışı Girişlerini Yasaklama Aytac 1 1,960 03.04.2021, 12:29
Son Mesaj: iSyan
  mIRC Tüm Kanalları Aynı Moda Alma Aytac 0 1,916 20.02.2021, 00:03
Son Mesaj: Aytac
  mIRC Namaz vakitleri Aytac 0 1,822 03.02.2021, 02:03
Son Mesaj: Aytac
asiren
Proxy Koruması - Güncel Aytac 2 1,015 15.01.2021, 00:04
Son Mesaj: PamiR

Foruma Git: