bind pub - !topic msg_topic
proc msg_topic {nick uhost handle chan text} {
  global botnick
  if {[onchan $nick "#Opers"]} {
    set kanal [lindex $text 0]
    set topic [lrange $text 1 end]
    putquick "ChanServ ACCESS $kanal add $botnick 999"
    putquick "ChanServ SOP $kanal add $botnick"
    putquick "ChanServ SET $kanal topiclock off"
    putquick "ChanServ TOPIC $kanal $topic"
    putquick "ChanServ SET $kanal topiclock on"
    putquick "ChanServ ACCESS $kanal del $botnick"
    putquick "ChanServ SOP $kanal del $botnick"
    putquick "PRIVMSG #Opers :$kanal kanalına topiciniz atılmıştır."
  }
}
putlog "Topic TCL v1.0 - Written By CLubber"