set serv(time) [clock seconds]

[clock format [lindex $serv(time) 0] -format "%d-%m-%Y"]

[clock format [lindex $serv(time) 0] -format "%H:%M"]

bind pub - !tarih time:date
proc time:date {nick uhost hand chan text} {
  global server
  set serv(time) [clock seconds]
  putquick "PRIVMSG $chan Tarih: [clock format [lindex $serv(time) 0] -format "%d-%m-%Y"]"
  putquick "PRIVMSG $chan Saat: [clock format [lindex $serv(time) 0] -format "%H:%M"]"
}

bind pub - !tarih time:date
proc time:date {nick uhost hand chan text} {

bind time - "00 * * * *" time:date
proc time:date {min hour day month year} {

her saatte bir kez:    bind time - "00 * * * *" proc      
 her sabah 05:05'te bir kez:  bind time - "05 05 * * *" proc     
 her 10 dakikada xx:x0:  bind time - "?0 * * * *" proc