Neler yeni

IRCForumları - IRC ve mIRC Yardım ve Destek Platformu - İRCforumlari

Duyuru; 📢

Forumda 'Tanıtım Yazısı' şeklinde Sitelerinizin Tanıtımını Yaparak sitenizi yükselte bilirsiniz.İRCForumları Ailesi İyi Forumlar Diler.!

PM Kuralları; 📢

Forumunda yer alan bir konuya istineden kesinlikle (özel mesaj) yolu ile destek talep etmeyiniz, zira bu tip alınan mesajlar kesinlikle cevapsız kalacaktır. İlgili konuya istinaden forumda destek konusu oluşturunuz.

İçerik hk; 📢

Sizde bilgi deneyim sahibi olduğunuz konu ve alanları forumda kolayca paylaşarak daha geniş kitlelere ulaşmasını sağlayabilir, oluşturduğunuz ticari konular sayesinde kazanç elde edebilirsiniz.

sohbet Online Okey Reklam Reklam
okey oyna

mIRC Küfür Koruması (Seçmeli Hotlink)

Root

Forum Sahibi
Yönetici
1 Şub 2022
1,301
219
63
www.ircforumlar.com
Küfür koruması Kırmızı işaretlediğim 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. Kod Yazarı : PC-KOPAT


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 }
  }
}
 

Benzer konular

shape1
shape2
shape3
shape4
shape7
shape8
Üst