IRCDefteri - En İyi IRCForum Sayfasi

IRCDefteri - En İyi IRCForum Sayfasi (https://www.ircforumda.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumda.net/mirc-scripting-hazir-kodlar/)
-   -   mIRC Küfür Koruması (https://www.ircforumda.net/mirc-scripting-hazir-kodlar/25054-mirc-kufur-korumasi.html)

Emre 03.Haziran.2022 16:26

mIRC Küfür Koruması
 
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 }
  }
}



Forum Saati: 23:00. Zaman dilimi GMT +4 olarak ayarlanmıştır.

Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.