##############################################

#                                            #

#  Oto Op(@) Sistemi ( Global Oplar İçin )   #

#                                            #

#  Ops kanalınızda bulunan kullanıcınız      #

#  belirlediğiniz global kanallara girdi-    #

#  ğinde bot tarafından op yapılır.Ayrıca    #

#  oper ve helpers kanalınızdaki kişiler bu  #

#  özellikten muaf tutulur.                  #

#                                            #

#  coded by Raw for http://www.unutma.net    #

#                                            #

##############################################



##########

# Muaf için Oper Kanalı Giriniz

##########



set otoop(oper) "#oper"



##########

# Muaf için Helper Kanalı Giriniz

##########



set otoop(helper) "#helper"



##########

# Op için op Kanalı Giriniz

##########



set otoop(op) "#op"



##########

# Global kanalları giriniz

# Çoğaltabilirsiniz..!

##########



set otoop(kanallar) {

  "kanal1"

  "kanal2"

  "kanal3"

}



##########

# Ayar bölümü bitti , gerisine bilmiyorsan karışma (.

##########



bind join - * oto_op



proc oto_op {nick chan host text} { 

  global otoop

    foreach sansliop [string tolower $otoop(kanallar)] { 

 if {$chan == $sansliop && [onchan $nick $otoop(op)] && ![onchan $nick $otoop(oper)] && ![onchan $nick $otoop(helper)]} {

putquick "privmsg irc mode $chan +o $nick"

return 0

  }

 }

}



################

### TCL SONU ###

################

putlog "Oto Op(@) Sistemi başarı ile yüklendi."

################