Forum Gündemi:

Konu Başlığı : mIRC Küfür Koruması (Hotlink)

*
Bu konu; 07.07.2020 tarihinde açılmış olup, 0 defa yorumlanmıştır.
Konu Sahibi : Aytac
Konuyu Değerlendir
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

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

Çevrimiçi
Administrator
********
329
mesajlar
325
konular
2
REP PUANI
Proje Sorumlusu

04.02.2020
(Kayıt Tarihi)
Erkek
(Cinsiyet)
78 Karabük
Şehir
10
Beğenileri
4
Beğendiği
#1
07.07.2020, 22:38 (En son düzenleme: 07.07.2020, 22:40 Aytac.)
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
[Resim: tr.gif]


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  mIRC Not kayıt etme remotesi Aytac 0 100 07.07.2020, 22:35
Son Mesaj: Aytac
  mIRC Bütün kelimelerin ilk harfi büyük harfle başlama yazı stili Aytac 0 310 10.05.2020, 15:53
Son Mesaj: Aytac
  mIRC !iftar Şehir kodu Aytac 0 202 10.05.2020, 01:14
Son Mesaj: Aytac
  mIRC Kanallara oto söz yollama kodu Aytac 0 215 06.05.2020, 00:04
Son Mesaj: Aytac
  mIRC Girişte Şehir Gösterme ve Şehir Yasaklama Aytac 1 294 24.04.2020, 02:13
Son Mesaj: Exe

Konuyu Okuyanlar ?
3 Kullanıcı Bu Konuyu Okudu:
Aytac (26.07.2020, 17:12), LazraiL (25.07.2020, 01:11), kahlan (28.07.2020, 07:40)

Foruma Git:


Görüntüleyenler: 1 Ziyaretçi