###### 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 "Jason"
set realname "Selcukedu Opme System"
set init-server { putserv "oper jason selcukedu.org-operpass" }
set servers { 208.98.33.92:6667 }
channel add #OpS { chanmode "lik" idle-kick 0 stopnethack-mode 0 }
set net-type 5
set owner TimothY
##### Dosyalar ve Dizinler #####
##### Bilgi Satiri #####
set userfile "jason.user"
set chanfile "jason.chan"
set temp-path "/tmp"
logfile msbxco * "logs/global.log"
logfile jpk #Ops "logs/#ops.log"
set console "mkcobxs"
##### SCRIPTLER #####
source scripts/jason.tcl
loadhelp userinfo.help
# EndOf
 

################################################################################
# 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 "Jason"
# Buda gerekli olan sifre
set ipass "selcukedu.org-operpass"
 
 
 
 
 
 
# 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 jason"
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"

}