IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 15 Ocak 2009, 00:15   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
kotu nick hakinda




s.a ya cancelin bana verdigi kotu nick alani atiyor ama tcl bunu hazir koda cevire bilirmiyiz?

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## Badnick scans 
set badnicks 
 
"penis" 
 "fuck" 
 "bitch" 
 "asshole" 
 "kontol" 
 "contol" 
 "pepek" 
 "vevek" 
 "ngentot" 
 "kentot" 
 "jembut" 
 "zembut" 
 "pantat" 
 "totong" 
 "tetek" 
 "vagina" 
 "pukimak" 
 "bujanginam" 
 "cibai" 
 "c1b41" 
 "lanciau" 
 "gigolo" 
 "peler" 
 "anjing" 
 "4nj1ng" 
 "4njing" 
 "anj1ng" 
 "bangsat" 
 "b4ngs4t" 
 "b4ngsat" 
 "bangs4t" 
 "pantek" 
 "panteks" 
 "nenen" 
 "cibe" 
 "fukk" 
 "fuk" 
 "pler" 
 "plerr" 
 "pller" 
 "p3l3r" 
 "cip3t" 
 "cipet" 
 "c1p3t" 
 "c1tut" 
 "citut" 
"pipi"
"amcik"
"ananin"
"amina"
"sikerim"
"beceririm"
"becerme"
"belani"



## ---------------------------------------------------------------- 
## --- Buradan Aşagısını Ellemeyin.                             --- 
## ---------------------------------------------------------------- 

###################################################################### 
##-------------------------------------------------------------------- 
##--- F O R     ---   P R O T E C T I O N  ---    CHANNEL   ---- 
##-------------------------------------------------------------------- 
######################################################################          

set arg."Change Badnick protection IRCTURK.ORG" 

bind nick - * Detected_changebad 

proc Detected_changebad 
{nick uhost hand chan newnick} { 
 global 
badnicks botnick 
if {(![matchattr $hand b]) && ($nick != $botnick)} { 
  foreach 
badchange [string tolower $badnicks] { 
   if {[
string match *$badchange* [string tolower $newnick]]} { 
    
set banmask "*!*[string range $uhost [string first "@$uhost] end]" 
    
putserv "MODE $chan +b $banmask
    
putserv "KICK $chan $newnick :Lütfen Kötü Nickler Kullanmayınız." 
    
putserv "sajoin $nick #***" 
    
return 
    
}  
  } 
 } 


## ----------------------------------------------------------------------- 
putlog "-=-=   Kötü Nick Koruma   =-=-=-=-=-" 
putlog "Kötü Nick Koruma  1.1:" 
putlog "${arg.v} Yükleme Tamamlandı" 
##------------------------------------------------------------------------ 
##                      ***    E N D   OF  ChangeBadnick1.0.TCL *** 
## ----------------------------------------------------------------------- 


 
Alıntı ile Cevapla

 

Etiketler
hakinda, kotu, mirc, mirc download, mirc indir, nick


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
nick hakinda bilgi.. alphae IRCServices 0 27 Ekim 2015 20:51
Kotu Bir Evlilik Zen Aile Evlilik ve Çocuklar 0 30 Kasım 2012 17:51
Kotu Zaman.. Feronia Şiir, Hikaye ve Güzel Sözler 0 19 Mart 2010 10:37
Kotu Zaman.. Feronia IF Ekstra 0 01 Kasım 2009 17:47
kotu nick OperServ mIRC Scripting Sorunları 4 10 Ocak 2009 16:29