IRCSayfasi - mIRCDunyasi, mIRCForumlari, mIRCRehberi   TaTLiBeLa

Geri Dön   IRCSayfasi - mIRCDunyasi, mIRCForumlari, mIRCRehberi > mIRC Scripting Dünyası > mIRC Scripting Hazır Kodlar

mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

Etiketlenen üyelerin listesi

Yeni Konu Aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Temmuz 2020, 05:52   #1
Çevrimdışı
mIRC Küfür Koruması (Hotlink)


-- Sponsor Baglantı --



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 }
}
}
  Alıntı ile Cevapla

İS Reklam
 Reklam Verin
Yeni Konu Aç  Cevapla


Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Google’dan Youtube’a Küfür Önlemi GeN Mail Hesapları 0 30 Aralık 2022 01:28
Debug && Hash Tables - Badnick,Reklam,Küfür Korumaları Ra mIRC Parça Kodlar 0 13 Ocak 2021 17:07
Küfür Koruması-Op-Deop aSK mIRC Parça Kodlar 0 12 Eylül 2020 16:03
Hızlı (regex) ve Gelişmiş (Küfür&Reklam/FLOOD/REPLACE/ASCII) GeN mIRC Parça Kodlar 0 15 Temmuz 2020 03:24
Küfür Koruması PLuToN IRCd Makaleler 0 15 Temmuz 2020 03:10