###################
# Temizleme tclsi #
###################
bind pub - !temizle clear
#PROC
proc clear {nick uhand host chan text} {
if {[isop $nick $chan] == 0} {return 0}
for {set x 0} {$x<30} {incr x} {
putquick "PRIVMSG $chan :$x"
}
putquick "PRIVMSG $chan :Oda Ekranı Temizlendi.Küfür ve Kötü Söz Her Zaman Sahibine Aittir. İyi Sohbetler."
}
###############################################################
## Bot sunucu üzerinde aşağıda belirleyeceğiniz sayıdan daha ##
## daha fazla user olan kanala otomatik olarak girer ve ##
## kanalı korumaya alır. Default olarak 5 ayarlanmıştır. ##
###############################################################
# Odadaki user sayısı
set usersayisi "1"
# Genel odalar
set globalkanallar {
"#Sohbet"
}
bind raw - "322" kanal_listele
set listzaman 10
if {![string match "*kanal_listesi*" [utimers]]} {
utimer $listzaman kanal_listesi
}
proc kanal_listesi {} {
global listzaman
putserv "LIST"
utimer $listzaman kanal_listesi
return 1
}
proc kanal_listele {from keyword arg} {
global usersayisi globalkanallar botnick
set listekanaladi [lindex $arg 1]
set guncelsayi [lindex $arg 2]
if {[lsearch -exact $globalkanallar [string tolower $listekanaladi]] != -1} {return 0}
if {$guncelsayi >= $usersayisi && ![validchan $listekanaladi]} {
channel add $listekanaladi { +nodesynch flood-chan 10:2 }
putquick "os mode $listekanaladi $botnick"
putquick "privmsg $listekanaladi Keyifli sohbetler"
}
if {$guncelsayi < $usersayisi && [validchan $listekanaladi]} {
channel remove $listekanaladi
} else {
return 0
}
}
 
 
#nick şifresini yazınız
set ScanXsifre "budur1"
 
 
if {![string match "*cycle_yap*" [timers]]} {
timer [rand 5] cycle_yap
}
proc cycle_yap {} {
global globalkanallar admin_chan
set kanal [lindex $globalkanallar [rand [expr [llength $globalkanallar] + 1]]]
if {$kanal != $admin_chan && $kanal != "#help"} {
set ::cygir 1;
putserv "cycle $kanal"
utimer 5[list set ::cygir 0]
}
timer 5 cycle_yap
}
bind notc - "*bu sizin nickiniz ise*" nckidentify
proc nckidentify {nick uhost hand arg dest} {
global ScanXsifre
if {$nick == "NickServ"} { putquick "privmsg NickServ :identify $ScanXsifre" }
}
bind nick - * ghostla
proc ghostla {nick uhost hand chan nn} {
global botnick ScanXsifre
if {$nick == $botnick} {
putserv "privmsg NickServ :ghost $botnick $ScanXsifre"
putserv "privmsg NickServ :release $botnick $ScanXsifre"
}
}