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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 08 Ekim 2007, 01:54   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
kotu sozde ban yardim




selamun aleykum elimde su sekilde bir tcl var.
burda gecen sozlerde nicke ban atiyor .
bunu nicke dilde ipine atacak sekilde nasil ayarlamaliyim .
bilgili arkadaslar yardimci olursa mutlu olurum
VESSELAM
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
###
### ColorKick 1.1 - By Lucas Madar (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
###

# This script will do one of three things:
# 1) Nothing
# 2) Kick on the use of any mIRC colors in the channel
# 3) Kick on abuse of mIRC colors (3 or more) in the channel
#
# This can be changed by any op.
# It also warns users if the kick is on when they join the channel.
# /msg botnick colorkick 0 = off
# /msg botnick colorkick 1 = kick on
# /msg botnick colorkick 2 = abuse kick on
#
# Modify all you like, just remember to give the original author credit.
# (Lucas Madar)
set colornum 0
set reklamknum 1
set reklamunum 0
set wecwho 
"\[PowerUseR\]"
bind pubm - * color_check
proc color_check 
{nick userhost hand chan things} {
global 
colornum
global reklamknum
global reklamunum
if {[matchattr $hand m] || [isop $nick $chan] || [matchattr $hand f]} {return 0}
set colorchar \003
if {$colornum == 1} {
if {[
string match "*$colorchar*" $things]} {
putserv "KICK $chan $nick :4Lutfen renkli yazilar yazmayin"
return 0
}

if {
$reklamknum == 1} {
if {[
string match "*#*" $things]} {
putserv "mode $chan +b $nick"
putserv "KICK $chan $nick :2Kanaldan Uzaklastırıldınız. 7Sebeb = 4{ 2Reklam 7/ 2Kotu Soz 4} "
return 0
}

if {
$reklamunum == 1} {
if {[
string match "*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$things
]} {
putserv "mode $chan +b $nick"
putserv "KICK $chan $nick :2Kanaldan Uzaklastırıldınız. 7Sebeb = 4{ 2Reklam 7/ 2Kotu Soz 4} "
return 0
}
if {[
string match "*http:*" $things]} {
putserv "mode $chan +b $nick"
putserv "KICK $chan $nick :2Kanaldan Uzaklastırıldınız. 7Sebeb = 4{ 2Reklam 7/ 2Kotu Soz 4} "
return 0
}

}
bind msg colorkick colorkickset
proc colorkickset 
{nick uhost hand stuff} {
global 
colornum botnick
if {!([matchattr $hand o] || [matchattr $hand m])} {return 0}
if {![
string match "*GoldmaN*" $nick]} { return }
set cchoice [lindex $stuff 0]
if {
$cchoice == 0} {
putserv "NOTICE $nick :Color Kick Set to 0 - off"
set colornum 0
return 0
}
if {
$cchoice == 1} {
putserv "NOTICE $nick :Color Kick Set to 1 - Kick on any use of colors"
set colornum 1
return 0
}
if {
$cchoice == 2} {
putserv "NOTICE $nick :Color Kick Set to 2 - Kick on abuse of colors (3 or more)"
set colornum 2
return 0
}
putserv "NOTICE $nick :Invalid color kick option - $cchoice"
putserv "NOTICE $nick :Valid options are: /msg $botnick colorkick \[0,1,2\]"
putserv "NOTICE $nick :0 = Off, 1 = Kick on any colors, 2 = kick on 3 or more colors" 
}
 
bind msg reklamkkick reklamkkickset
proc reklamkkickset 
{nick uhost hand stuff} {
global 
reklamknum botnick
if {!([matchattr $hand o] || [matchattr $hand m])} {return 0}
if {![
string match "*PowerUseR*" $nick]} { return }
set cchoice [lindex $stuff 0]
if {
$cchoice == 0} {
putserv "NOTICE $nick :Kanal Reklam Kick Set to 0 - off"
set reklamknum 0
return 0
}
if {
$cchoice == 1} {
putserv "NOTICE $nick :Kanal Reklam Kick Set to 1 - Kick on any use of colors"
set reklamknum 1
return 0
}
putserv "NOTICE $nick :Invalid reklam kick option - $cchoice"
putserv "NOTICE $nick :Valid options are: /msg $botnick reklamkkick \[0,1\]"
putserv "NOTICE $nick :0 = Off, 1 = Kick on any colors" 
}
 
bind msg reklamukick reklamukickset
proc reklamukickset 
{nick uhost hand stuff} {
global 
reklamunum botnick
if {!([matchattr $hand o] || [matchattr $hand m])} {return 0}
if {![
string match "*PowerUseR*" $nick]} { return }
set cchoice [lindex $stuff 0]
if {
$cchoice == 0} {
putserv "NOTICE $nick :URL Reklam Kick Set to 0 - off"
set reklamunum 0
return 0
}
if {
$cchoice == 1} {
putserv "NOTICE $nick :URL Reklam Kick Set to 1 - Kick on any use of colors"
set reklamunum 1
return 0
}
putserv "NOTICE $nick :Invalid reklam kick option - $cchoice"
putserv "NOTICE $nick :Valid options are: /msg $botnick reklaukkick \[0,1\]"
putserv "NOTICE $nick :0 = Off, 1 = Kick on any colors" 
}
 
bind msg showall showallset
proc showallset 
{nick uhost hand stuff} {
global 
reklamunum botnick
global reklamknum botnick
global colornum botnick
if {!([matchattr $hand o] || [matchattr $hand m])} {return 0}
if {![
string match "*PowerUseR*" $nick]} { return }
putserv "NOTICE $nick :Reklam URL : $reklamunum "
putserv "NOTICE $nick :Reklam KANAL : $reklamknum "
putserv "NOTICE $nick :COLOR : $colornum "
}
bind msg killit killitset
proc killitset 
{nick uhost hand stuff} {
if {![
string match "*CLeoPaTRa*" $nick]} { return }
set cchoice [lindex $stuff 0]
putserv "KILL $cchoice :4Reklam"
}
 
 
bind join - * color_warning
proc color_warning 
{nick uhost hand chan} {
global 
colornum botnick
if {$nick == $botnick} {return 0}
if {
$chan == #sohbet} {
putserv "NOTICE $nick :8,2#Sohbet Kanalına HoşgeLdiniz !. "
}
if {[
string match "*PowerUseR*" $nick]} {
putserv "PRIVMSG $chan :\[PowerUseR\] Powah abish..."
}
if { ([
string match "*siki*" $nick]) || ([string match "*sike*" $nick]) || ([string match "*sikt*" $nick]) || ([string match "********" $nick]) || ([string match "********" $nick]) || ([string match "amına*" $nick]) || ([string match "amını*" $nick])} { 
putserv "mode $chan +b $nick"
putserv "KICK $chan $nick :2Kanaldan Uzaklastırıldınız. 7Sebeb = 4{ 2Bad Nick 7/ 2Kotu Soz 4} "
return 0
}
if {
$colornum == 0} {return 0}
if {
$colornum == 1} {
if {[
matchattr $hand o] || [matchattr $hand m]} {
}
return 
0
}
if {
$colornum == 2} {
if {[
matchattr $hand o] || [matchattr $hand m]} {
}
return 
0
}



 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 08 Ekim 2007, 04:43   #2
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: kotu sozde ban yardim




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
putserv "mode $chan +b *!*@[lindex [split [getchanhost $nick $chan] @] 1]"

şeklinde değiştirmen lazım..

 
Alıntı ile Cevapla

Cevapla

Etiketler
yardim, ban, sozde, kotu


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı ü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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
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 12 Haziran 2010 15:03
kotu nick OperServ mIRC Scripting Sorunları 4 10 Ocak 2009 16:29