# !on için atılacak topik
set ontpk "Destek Departmanimiz Suanda Online Çalışma Saatlerimiz : Sabah 09:00 Akşam 02:00"

# ! off için atılacak topik
set offtpk "Destek Departmanimiz Suanda Ofline Çalışma Saatlerimiz : Sabah 09:00 Akşam 02:00"

# !yapımcı komutunda kanala postalanacak.
set yapimci "MusteriServ.Tcl Yapimcisini Gösterir"

# kodun çalışacağı kanal adı ( büyük-küçük harf uyumlu yazılmalı )
set kanal "#musteriserv-kanal"

# topik atma işi için muhatap olunacak service.
set tpkserv "ChanServ"

bind pubm mn "$kanal *" tpk_topik        ;# mn bot sahibi ve bot masteri komut erişimi demektir.

proc tpk_topik {nick uhost hand chan text} {
 # if {![isop $nick $chan]} { return 0;}   ;# kanal opları kullanabilsin deniyorsa satır başındaki # kaldırın.
     set komut [lindex [split $text] 0]
    
    switch -exact -- $komut {
   "!on" { putserv "privmsg $::tpkserv :topic $chan $::ontpk";}
   "!off" { putserv "privmsg $::tpkserv :topic $chan $::offtpk";}
   "!yapımcı" { puthelp "privmsg $chan :$::yapimci";}
    default { putlog "bla bla ... bla ....";}
    }
    return 0
}

putlog "ok..."