# Sohbet Kanalını Yazınız


set clock_chans {
     "#Sohbet"
}

# Dakika Cinsinden Belirtiniz


set interval 30
 
###########Bundan Sonrasini Degistirmeyinz##########

bind pub - !time say_time
timer $interval vreme

proc vreme {} {
    global interval clock_chans
    set Kalimera [time]
    foreach zaek $clock_chans {
    putserv "PRIVMSG $zaek :0,1 11 Saat Suanda 4 < $Kalimera >"
    }
    timer $interval vreme
}

proc say_time {nick uhost hand kanal kom} {
    set chas [time]
    puthelp "PRIVMSG $kanal :0,1 11 Saat Suanda 4 < $Kalimera >"
 return 0
}

putlog "Clock.tcl loaded."