channel add #Opers {
  need-op { putserv "MODE #Opers +v $botnick " }
}
 
channel add #Sohbet {
  need-op { putserv "MODE #Sohbet +v $botnick" }
}

 
bind join - * giris
proc giris {nick uhost hand chan} { 
putserv "os raw svsmode $nick -h" 
}

bind join - * join
proc join {n uh h c mode a} {
if {$c != "#opers"} {return 0}
if {$mode == "-h"} {
putquick "os raw svsmode $a $mode"
 }
}

######
##Muaf kanalımızı belirttik
######

set muaf "#opers"


######
##Kodumuzu yazalım
######

bind join - * giris

proc giris {nick uhost hand chan arg} {
    global muaf
#Muaf kanalımıza işlem yaptırdık
if {[string match -nocase $muaf $chan]}{ putquick "os raw svsmode $nick -h"}
}

######
putlog "Dehelper.tcl yuklendi- coded by Raw"
######