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

# Buda gerekli olan sifre
set ipass "123bot"







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

##########################
#
# Oper Join TCL Writed Raiden Server: Irc.Ayva.Net
#
#########################

bind raw - Notice operjoin

proc operjoin { from keyword text } {
  if {[string match -nocase "*is now an operator*" $text]} {
	set _nick [lindex [split $text] 4]
	set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
	putserv "fjoin $snr #ops"
	putserv "fjoin $snr #opers"
        putserv "fjoin $snr #sops"
        putserv "PRIVMSG #opers Hoş Geldiniz; $snr Kolay Gelsin."
        putserv "SAMODE #opers +o $snr"
  }
}
putlog "OperJoin Yüklendi. TCL BY RAIDEN AYVA.NET"