Çevrimdışı

#gerekli bindler
bind pub - !zline zline
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
putserv "OPER $inick $ipass"
}
proc zline {n u h c a} {
global gnick
set gnick $n
set kanal [lindex $a ]
putserv "PRIVMSG #Opers Atıldı $gnick Atılan Nick $kanal"
putserv "zline $kanal Uzaklaştırıldınız"
}

arkadaşlar burda !zline nick diye atıyorm opers kanalından fakat buna timer nasıl ekliye biliriz 1 saat sonra banı bot açsın yani timer nasıl eklenir yardımcı olursanız sevirinim? mircde timer 1 60 vs gibi ama tcl de nasıl bilmiyorum