###### Bilgi Satiri #####
set mod-path "modules/"
set help-path "help/"
set text-path "text/"
loadmodule dns
loadmodule channels
loadmodule server
loadmodule ctcp
loadmodule irc
loadmodule notes
loadmodule console
checkmodule blowfish
##### Bilgi Satiri #####
##### Bot bilgileri #####
set nick "Bad-Nick"
set realname "2Bad-Nick Çekici"
#Bu opsiyonel su an kapalidir. Eger botunuz herhangi bir nedenden oturu size ctcp acmiyorsa
#Bu satira botun barindirilmis oldugu host'un ip adresini yazmaniz yeterli olacaktir.
#set my-ip "109.235.253.150"
set init-server {
putserv "oper Bad-Nick 123456"
putserv "PRIVMSG nickserv identify 123456"
}
set servers { 109.235.253.150:6667 }
channel add "#diyalog" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
channel add "#sohbet" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
channel add "#radyo" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
channel add "#yarisma" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
channel add "#oyun" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
channel add "#islam" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
channel add "#kelime" { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
set net-type 5
set owner Admin
##### Dosyalar ve Dizinler #####
##### Bilgi Satiri #####
set userfile "bots.user"
set chanfile "bots.chan"
set temp-path "/tmp"
logfile msbxco * "logs/bots.log"
logfile jpk #bad-nick "logs/#bad-nick.log"
set console "mkcobxs"
##### SCRIPTLER #####
source scripts/userinfo.tcl
source scripts/badnick.tcl
loadhelp userinfo.help
# EndOf

set bnick {
"*sik*" 
"*suck*"
"*tharki*" 
"*sux*" 
"*sik*"
"*s2*"
"*yarak*"
"*penis*"
"*-----*"
"*amcik*"
"*sokar*"
"*suker*"
"*------*"
"*sokucu*"
"*1*cm*"
"*2*cm*"
"amc?k"
"anan?n"
"am?na"
"-------"
"becer?r?m"
"becerme"
"belan?"
"s2er"
"s2c?"
"*Ytl*"
"*kont?r*"
"*kalkt?*"
"*indir*"
"sokarim"
"sıkerım"
"sokarım"
"*buyuk*"
"*büy?k*"
"*b?yük*"
"*msn*"
"*kar?n?"
"*anan?*"
"*karde??n?*"
"*bac?n?*"
"*ablan?*"
"*penis*"
"*fuck*" 
"*bitch*" 
"*asshole*" 
"*kontor*"
"*kontör*" 
"*yarak*"
"*similya*" 
"*ke?ase*" 
"*ytl*"
"*1*cm*" 
"*2*cm*" 
"*siker*" 
"*sokar*" 
"*s2*" 
"vagina" 
"*-----*" 
"*am*aran?yor*" 
"*escort*" 
"c1b41" 
"*jigolo*" 
"*gigolo*"
"top"
"anjing"
"4nj1ng"
"4njing"
"anj1ng"
"bangsat"
"b4ngs4t"
"b4ngsat"
"bangs4t"
"pantek"
"panteks"
"nenen"
"cibe"
"fukk"
"fuk"
"cip3t"
"cipet"
"c1p3t"
"c1tut"
"citut"
"lonte"
"nonok"
"l0nt3"
"lont3"
"l0nte"
"n0nok"
"n0n0k"
"non0k"
"***"
"s2ci"
"jigolo"
"jigo"
}
#########################################################################################################
set bchan "#sohbet #diyalog #radyo #yarisma #kelime #oyun #islam"
################
#- Set Reason -#
################
set kickreason "4Bad Nick 5Lütfen Küfürlü/cinsel ve msn içerikli Nickler Kullanmayınız..7/nick yeninick 5komutu ile nick değiştirip tekrar giriniz!--"
#--------------------------------------------------------------------------------------------------------------------#
# SCRIPT STARTS FROM HERE...MAKE IT BETTER WITH YOUR SKILLS IF YOU CAN.I DONT RESTRICT YOU TO NOT TO TOUCH CODE! #
#--------------------------------------------------------------------------------------------------------------------#
bind join - * join:Bad-Nick
proc join:Bad-Nick {nick uhost hand chan} {
global bnick bchan kickreason temp
if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1) || ($bchan == ""))} {
set temp 0
foreach i [string tolower $bnick] {
if {[string match *$i* [string tolower $nick]]} {
set temp 1
}
}
}
if {!$temp} { return } {
putquick "operserv raw svsjoin $nick #***"
putquick "operserv raw svsjoin $nick #cinsellik"
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick :$kickreason" 
}
}