# kodu kullanıma açma/kapama işlerinde kullanılacak kullanıcı tanımlı flagtır.
setudef flag musteriserv

# komutu kullanma yetkileri n = bot sahibi .conf'ta set owner satırında ayarlı kişi*
# m = bot master
set musteri(flagx) "mn"

# kullanılacak komut:
set musteri(komut) "musteriserv"

# komut başına gelecek sembol/işaret/trigger
set musteri(semb) "!"

bind pub - $::musteri(semb)$::musteri(komut) must_serv:ac_kapa

proc must_serv:ac_kapa {nick uhost hand chan text} {
    if {![matchattr [nick2hand $nick] $::musteri(flagx) $chan]} { 
       puthelp "notice $nick :\00312Bu komutu kullanma erişiminiz yok...\003\
       \00304$::musteri(flagx)\003 \00312kullanıcı flaglarına sahip olmalısınız...\003"
       return 0
       }
       set kmt [lindex [split $text] 0]

     switch -exact -- $kmt {
     on { 
         if {[channel get $chan musteriserv]} { 
             puthelp "notice $nick :$chan \00314kanalında Müsteri servis halihazırda aktif durumda... \
             Kapatmak için\003 \00304$::lastbind off\003"
          } else {
          channel set $chan +musteriserv
             puthelp "notice $nick :$chan \00314kanalında Müsteri servis aktif edildi... \
             Kapatmak için\003 \00304$::lastbind off\003"
             }
         }
    off {
         if {![channel get $chan musteriserv]} { 
             puthelp "notice $nick :$chan \00314kanalında Müsteri servis halihazırda kapalı durumda... \
             Açmak için\003 \00304$::lastbind on\003"
          } else {
          channel set $chan -musteriserv
             puthelp "notice $nick :$chan \00314kanalında Müsteri servis pasif edildi... \
             Açmak için\003 \00304$::lastbind on\003"
             }
         }
    default {
             puthelp "notice $nick :\002Kullanımı\002 : \00304$::lastbind on/off\003"
         }
    }
    return 0
}

putlog "ok..."

if {![channel get $chan musteriserv]} { return 0 }

setudef flag topik

if {![channel get $chan topik]} { return }

if {![channel get $chan musteriserv]} { return 0 }

setudef flag topik

setudef flag musteriserv

putquick "TOPIC #kanal mesaj"

bind pub - !topic proc:topic

proc proc:topic {nick hand host chan text} {
set argn1 = [lindex $text 0]
putquick "PRIVMSG ChanServ SET $argn1 TOPICLOCK off"
putquick "TOPIC $argn1 Blablabla \00301Siyah \00301,04Arkası kırmızı \002Kalın\002 \037Altı Çizili\003\037"
}

# !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..."