bind raw - "001" operbot
proc operbot { from keyword text } {
 global botnick
putquick "nickserv identify şifre"
putquick "oper $botnick operşifresi"
}

proc evnt:init_server {type} {
   global botnick
   putquick "nickserv identify botun-nick-sifresi"
   putquick "oper $botnick operşifresi"
   putquick "MODE $botnick +i-ws" #botun almasını istediğiniz nick modlarını yazın.
 }

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

   set bnick {
"fuck" 
"*suck*"
"*tharki*" 
"*sux*" 
"*sik*"
"*s2*"
"*yarak*"
"*penis*"
"*-----*"
"*amcik*"
"*sokar*"
"*suker*"
"*------*"
"*sokucu*"
"*1*cm*"
"*2*cm*"
"amc?k"
"anan?n"
"am?na"
"sikerim"
"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"
}
 
set bchan ""
set kickreason "4Bad Nick --5Lütfen Küfürlü/cinsel ve msn içerikli Nickleri Global kanallarimizda Kullanmayınız..7/nick yeninick 5komutu ile nick değiştirip global kanallarimiza tekrar girebilirsiniz..--"
 
 
bind join - * join:badnick
proc join:badnick {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 "SAJOIN $nick #cinsellik"
putquick "SAJOIN $nick #***"
putquick "MODE $chan +b $nick"
putquick "KICK $chan $nick :$kickreason"
} 
} 

#! /home/kullanici/botumuz 
# modül,yardim dosyalari,ve text belgelerinin bulundugu yerler
set mod-path "modules/" 
set help-path "help/" 
set text-path "text/" 
#yuklenecek moduller
loadmodule dns 
loadmodule channels 
loadmodule server 
loadmodule ctcp 
loadmodule irc 
loadmodule notes 
loadmodule console
# yukardaki moduller olmazsa olmazdir hepsi yuklenmeli. 
#loadmodule filesys
#loadmodule share 
#loadmodule transfer
# yukardaki iki modul dosya paylasimi ve botnet paylasimi
# icin kullanmiyacaksaniz yuklenmesin.gerekli degil.
checkmodule blowfish
 
# dns modulu ayari kullanmak istedigimiz dns sunucu adresleri
# bu ayar cannot resolve dns ... blabla hatasini giderecektir.
set dns-servers "8.8.8.8 8.8.4.4" 
# bot icin nick bilgileri 
set nick "botun-nicki"
set username "botun kullanici-adi/identi" 
#botnet/telnet/dcc baglantisinda botun görünecegi adi
set botnet-nick "botnet-nicki"
# sunucuya baglandiginda bot nickinin alacagi nick modlari
proc evnt:init_server {type} {
   global botnick
   putquick "oper $botnick operşifresi"
   putquick "MODE $botnick +i-ws"
   putquick "nickserv identify botun-nick-sifresi"
 }
 
# bot iicin ikinci bir nick belirtin
set altnick "botun alternatif nicki" 
# botun real-namei ne olacak
set realname "bot icin name ayarlayin" 
# botun baglanmasini istediginiz sunuculari altta belirtin
set servers { 
  irc.bnmsunucum.net:portu
  irc.bnmdigersunucum.org:portu
}
 
# bot özellikleri icin belli basli birkac ayar
bind dcc n tcl *dcc:tcl
bind dcc n set *dcc:set
bind msg - ident *msg:ident
bind msg - addhost *msg:addhost
# bota yeni kullanici? eklendiginde sahipe bilgi verilsin mi
set notify-newusers "$owner"
unbind dcc n simul *dcc:simul
set max-socks 100
set trigger-on-ignore 0
# botun algilayabilecegi maksimum nick uzunlugu kac olmali
set nick-len 15
set ctcp-mode 0
set bounce-bans 0
set bounce-modes 0
# en fazla kac ban botta tutulsun
set max-bans 60
# kullanicilari oto ögrensin mi
set learn-users 0
# telnet dcc ayarlari (çogunlukla telnet güvenligi ile ilgili)
set protect-telnet 0
set dcc-sanitycheck 0
set share-unlinks 1
set open-telnets 0
set stealth-telnets 0
set use-telnet-banner 0
set connect-timeout 15
set resolve-timeout 9
# kullanici ignore ekleme süresi
set ignore-time 0
set default-flags "hp"
set allow-resync 1
# botun ilk girecegi statik kanal olacak kanali girin
channel add #kanaliniz
# botun girecegi tum kanallar üzerindeki ayarlari ne olmali?
# kanal flood ayarlari ( tekrar-sayısı:saniyede )
# örnek 5:60 ayarı 60 saniyede 5 kez olayın olmasını işaret eder.
set global-flood-chan 0:0 
set global-flood-deop 0:0 
set global-flood-kick 0:0 
set global-flood-join 0:0 
set global-flood-ctcp 0:0 
set global-flood-nick 0:0 
# kanal icin davet, ban süresi, kabul süresi vs vs ayarlari
set global-aop-delay 5:30
# kanalda idle olani kicklesinmi
set global-idle-kick 0
# kanal modlari ne olarak korunsun
set global-chanmode "nt"
set global-stopnethack-mode 0
set global-revenge-mode 0
#ban atma seklini belirler
#   asagidaki ban sekillerinden birini secebilirsiniz:
#     0 *!user@host
#     1 *!*user@host
#     2 *!*@host
#     3 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#     4 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#     5 nick!user@host
#     6 nick!*user@host
#     7 nick!*@host
#     8 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

#     9 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

set global-ban-type 3
# şu kadar dakika sonra bani kaldirir. 0 derseniz kaldirmaz
set global-ban-time 120
set global-exempt-time 60
set global-invite-time 60
# botun girecegi tum kanallar üzerindeki ayarlari ne olmali?
set global-chanset { 
-enforcebans 
-dynamicbans -userbans 
-dynamicexempts -userexempts 
-dynamicinvites -userinvites 
-autoop -autohalfop -autovoice 
-bitch -protectops -protecthalfops
-protectfriends -revenge -revengebot 
-dontkickops 
-greet -statuslog 
-secret +shared 
-cycle -inactive 
+seen 
+nodesynch 
} 
# botu baglayacaginiz sunucu tipinizi secin 
# [0/1/2/3/4/5] asagidakilerden biri degilse 5 yani diger secilmeli 
# 0 = Efnet (non +e/+I hybrid), 1 = IRCnet, 2 = Undernet, 3 = Dalnet, 
# 4 = Efnet +e/+I hybrid, 5 = diger 
set net-type 5 
# log dosyalari için ayarlar. 
      set max-logs 5 
      set max-logsize 0 
      set quick-logs 0 
      set raw-log 0 
logfile jpk * logs/${username}.log 
      set log-time 1 
      set keep-all-logs 0 
      set logfile-suffix .%d%b%Y 
      set switch-logfiles-at 300 
      set quiet-save 1 
 
# Eggdrop telnet/dcc/botnet baglantisi için port belirleyin.(olmazsa olmaz) 
listen 3333 all
# zaman dilimi ayarlari 
set timezone "EST"
set offset "-3"
set env(TZ) "$timezone$offset"
 
# nick korunsun mu ?
set keep-nick 1
set my-vhost "varsa vhost ayarlayin,yoksa satiri silebilirsin"
set my-ip "botun ip adresi"
# kullanici ayarlari
# botun admini sahibi kim olacak
set owner nickinizi-yazin
set admin nickinizi-yazin
# sahip olmali mi evetse 1 hayirsa 0
set must-be-owner 1
# sunucudaki op prefixleri nelerdir ?
set opchars "@&~"
# dil dosyasi (language klasörü içindeki dil seçeneklerinden biri olmali )
addlang "english" 
 
# dizinler ve dosyalar
# sistem klasörü olusturuyoruz 
      if {![file isdirectory system]} { 
        file mkdir system 
      } 
# pid ,kullanici ve bot kanal dosyalari olusturuluyor.(sistem klasörü içine)
         set pidfile  system/pid.${username} 
         set userfile system/${username}.user 
   set chanfile system/${username}.chan 
# oidentd.conf olu?turulacak ve identd bilgisi sunucuya gönderilecek 
# alttaki set ident satirina tirnaklar içine dilediginiz identi yazin
set ident "bot-ident" 
bind evnt -|- connect-server evnt:connect_server 
proc evnt:connect_server { type } { 
    global ident
    global nick
    set file [open ~/.oidentd.conf "w"] 
    puts $file "global { reply \"$ident\" }" 
    close $file 
} 
 
# kullanici konsol flaglari 
set console "mkcobxs" 
 
##### SCRIPTS ##### 
# bunlardan bazıları kurulumla gelen ve ihtiyaç duyulan scriptlerdir . 
# yüklenmeleri yararınıza olur.
source scripts/dccwhois.tcl
source scripts/getops.tcl
source scripts/alltools.tcl
source scripts/cmd_resolve.tcl
source scripts/notes2.tcl
source scripts/klined.tcl
source scripts/ques5.tcl
source scripts/quotepass.tcl
source scripts/quotepong.tcl
source scripts/sentinel.tcl
source scripts/userinfo.tcl
source scripts/action.fix.tcl 
source scripts/compat.tcl 
loadhelp userinfo.help

bind pub m|n !gir gir:knl
bind pun m|n !cik cik:knl
 
proc gir:knl { nick host hand chan arg } {
    if {$arg == ""} {
    putserv "notice $nick :hatalı kullanım: !gir #kanal-adı."
   return
   } else {
   channel add [lindex [split $arg] 0]
    putserv "notice $nick :tamamdır."
    }
}
 
proc cik:knl { nick host hand chan arg } {
    if {$arg == ""} { 
    channel remove $chan 
    } elseif {![validchan [lindex [split $arg] 0]]} {
     putserv "notice $nick :hata $arg bilinmiyor."
    return
    } else {
    channel remove [lindex [split $arg] 0]
    putserv "notice $nick :tamamdır."
    }
}