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

putserv "mode $chan +b *!*@[lindex [split [getchanhost $nick $chan] @] 1]"