bind pub - !opekle opsekle
set ops_c "#ops"
 
proc opsekle {n uh h c t } {
   global ops_c
if {$n != "Hayat"} {return 0} 
if {[isop $n $] || [onchan $n $ops_c]==0} { 
     putquick "cs aop #sohbet add $t"
     putquick "cs op #sohbet $t"
  } 
}

bind pub - !bantemizle bantemizle
proc bantemizle { n u h c a } {
foreach ban [chanbans $c] {
append bans "[lindex $ban 0] "
}
putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 0 11]"
putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 12 23]"
putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 24 end]"
putquick "privmsg $c $c Kanalındaki Tüm Banlar Temizlendi."
}

################################################################################
# opal.tcl 1.0 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #
# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #
# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #
# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #
# leri bir kanalda bulundurmaktir.! #
######################################################################Stonkeep##
 
# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "X"
# Buda gerekli olan sifre
set ipass "11111"
 
 
 
 
 
 
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
putserv "WALLOPS :Basari ile Login Oldum :)"
putserv "sajoin #OpS"
putserv "samode #Ops +o botnick"
putserv "umode +c"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "FJOIN $kanal $n"
putserv "samode $kanal +o $n"

}