################################################################################
# opal.tcl 1.0 - #
# #
# 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.! #
######################################################################GemLik####
 
# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "botnick"
# Buda gerekli olan sifre
set ipass "şifre"
 
 
 
 
 
 
# 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 :)"
}
proc opver {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a 0]
putserv "SAMODE $kanal +o :$gnick"
putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!"
putserv "WALLOPS :$n $kanal Kanalinda Oplandi..!"
}