Code:

if {$varTzone == 1} {set curTzone "Asia/Jakarta"set varIndi "WIB"} {if {$varTzone == 2} {set curTzone "Asia/Makassar"set varIndi "WITA"} {if {$varTzone == 3} {set curTzone "Asia/Tokyo"set varIndi "WIT"} {putlog "TIMEZONE SALAH"die}}}

Code:

bind time - "00 *" pub_jambind time - "30 *" pub_jambind time - "* *" pub_jam1bind pub - !date pub_tjam##### contoh "#chansatu #chandua #chantiga"##### biarkan kosong untuk semua channelset chanjam ""###### 1 WIB# 2 WITA# 3 WITset varTzone "2"if {$varTzone == 1} {set curTzone "Asia/Jakarta"set varIndi "WIB"} {if {$varTzone == 2} {set curTzone "Asia/Makassar"set varIndi "WITA"} {if {$varTzone == 3} {set curTzone "Asia/Tokyo"set varIndi "WIT"} {putlog "TIMEZONE SALAH"die}}}proc pub_jam1 {min h d m y} {global curTzone chanjamset jam [clock format [clock seconds] -timezone :$curTzone -format %I:%M%p]if {$jam == "04:14AM"} {if {$chanjam == ""} {foreach chan [channels] {list [pub_jam3 $chan $min $h $d $m $y]putserv "PRIVMSG $chan :- Waktunya Sholat Subuh"}}if {$chanjam != ""} {foreach chan [channels] {if {[lsearch -exact [string tolower $chanjam] [string tolower $chan]] != -1} {list [pub_jam3 $chan $min $h $d $m $y]putserv "PRIVMSG $chan :- Waktunya Sholat Subuh"}}}}if {$jam == "11:56AM"} {if {$chanjam == ""} {foreach chan [channels] {list [pub_jam3 $chan $min $h $d $m $y]putserv "PRIVMSG $chan :- Waktunya Sholat Dzuhur"}}if {$chanjam != ""} {foreach chan [channels] {if {[lsearch -exact [string tolower $chanjam] [string tolower $chan]] != -1} {list [pub_jam3 $chan $min $h $d $m $y]putserv "PRIVMSG $chan :- Waktunya Sholat Dzuhur"}}}}if {$jam == "03:00PM"} {if {$chanjam == ""} {foreach chan [channels] {putserv "PRIVMSG $chan :- Waktunya Sholat Azhar"#list [pub_jam3 $chan $min $h $d $m $y]}}if {$chanjam != ""} {foreach chan [channels] {if {[lsearch -exact [string tolower $chanjam] [string tolower $chan]] != -1} {putserv "PRIVMSG $chan :- Waktunya Sholat Azhar"#list [pub_jam3 $chan $min $h $d $m $y]}}}}if {$jam == "05:51PM"} {if {$chanjam == ""} {foreach chan [channels] {list [pub_jam3 $chan $min $h $d $m $y]putserv "PRIVMSG $chan :- Waktunya Sholat Maghrib"}}if {$chanjam != ""} {foreach chan [channels] {if {[lsearch -exact [string tolower $chanjam] [string tolower $chan]] != -1} {list [pub_jam3 $chan $min $h $d $m $y]putserv "PRIVMSG $chan :- Waktunya Sholat Maghrib"}}}}if {$jam == "07:07PM"} {if {$chanjam == ""} {foreach chan [channels] {list [pub_jam3 $chan $min $h $d $m $y]putserv "PRIVMSG $chan :- Waktunya Sholat Isya"}}if {$chanjam != ""} {foreach chan [channels] {if {[lsearch -exact [string tolower $chanjam] [string tolower $chan]] != -1} {list [pub_jam3 $chan $min $h $d $m $y]putserv "PRIVMSG $chan :- Waktunya Sholat Isya"}}}}}proc serandomjoke {} {set cukale [lindex "04 07 03 02 05 06" [rand 6]]return "\003$cukale"}proc pub_jam {min h d m y} {global chanjam curTzone varIndiset myjfor "%A %I:%M\003%p \x1d$varIndi\x1d %A"set warnabaru [serandomjoke]set jam [clock format [clock seconds] -timezone :$curTzone -format $myjfor]set jamtes [clock format [clock seconds] -timezone :$curTzone -format %I:%M%p]set newjam $jamregsub -all {0} $newjam "\uff10" newjamregsub -all {1} $newjam "\uff11" newjamregsub -all {2} $newjam "\uff12" newjamregsub -all {3} $newjam "\uff13" newjamregsub -all {4} $newjam "\uff14" newjamregsub -all {5} $newjam "\uff15" newjamregsub -all {6} $newjam "\uff16" newjamregsub -all {7} $newjam "\uff17" newjamregsub -all {8} $newjam "\uff18" newjamregsub -all {9} $newjam "\uff19" newjamregsub -all {PM} $newjam "\u1d3e\u1d39" newjamregsub -all {AM} $newjam "\u1d2c\u1d39" newjam    regsub -all {Sunday} $newjam "\00304\u1d50\u2071\u207f\u1d4d\u1d4d\u1d58\003$warnabaru" newjam    regsub -all {Monday} $newjam "\00303\u02e2\u1d49\u207f\u2071\u207f\003$warnabaru" newjam    regsub -all {Tuesday} $newjam "\00303\u02e2\u1d49\u02e1\u1d43\u02e2\u1d43\003$warnabaru" newjam    regsub -all {Wednesday} $newjam "\00303\u02b3\u1d43\u1d47\u1d58\003$warnabaru" newjam    regsub -all {Thursday} $newjam "\00303\u1d4f\u1d43\u1d50\u2071\u02e2\003$warnabaru" newjam    regsub -all {Friday} $newjam "\00303\u02b2\u1d58\u1d50\u1d43\u1d57\003$warnabaru" newjam    regsub -all {Saturday} $newjam "\00303\u02e2\u1d43\u1d47\u1d57\u1d58\003$warnabaru" newjam#putserv "PRIVMSG #zz :$jampost 1"foreach chan [channels] {if {$chanjam == ""} {putserv "PRIVMSG $chan :\003$warnabaru\[\00301$newjam\003$warnabaru\]\00301"if {$jamtes == "12:00AM"} {list [sohari $chan]}}if {$chanjam != ""} {if {[lsearch -exact [string tolower $chanjam] [string tolower $chan]] != -1} {putserv "PRIVMSG $chan :\003$warnabaru\[\00301$newjam\003$warnabaru\]\00301"if {$jamtes == "12:00AM"} {list [sohari $chan]}}}}}proc pub_jam3 {chan min h d m y} {global chanjam curTzone varIndiset myjfor "%A %I:%M\003%p \x1d$varIndi\x1d %A"set warnabaru [serandomjoke]set jam [clock format [clock seconds] -timezone :$curTzone -format $myjfor]set jamtes [clock format [clock seconds] -timezone :$curTzone -format %I:%M%p]set newjam $jamregsub -all {0} $newjam "\uff10" newjamregsub -all {1} $newjam "\uff11" newjamregsub -all {2} $newjam "\uff12" newjamregsub -all {3} $newjam "\uff13" newjamregsub -all {4} $newjam "\uff14" newjamregsub -all {5} $newjam "\uff15" newjamregsub -all {6} $newjam "\uff16" newjamregsub -all {7} $newjam "\uff17" newjamregsub -all {8} $newjam "\uff18" newjamregsub -all {9} $newjam "\uff19" newjamregsub -all {PM} $newjam "\u1d3e\u1d39" newjamregsub -all {AM} $newjam "\u1d2c\u1d39" newjam    regsub -all {Sunday} $newjam "\00304\u1d50\u2071\u207f\u1d4d\u1d4d\u1d58\003$warnabaru" newjam    regsub -all {Monday} $newjam "\00303\u02e2\u1d49\u207f\u2071\u207f\003$warnabaru" newjam    regsub -all {Tuesday} $newjam "\00303\u02e2\u1d49\u02e1\u1d43\u02e2\u1d43\003$warnabaru" newjam    regsub -all {Wednesday} $newjam "\00303\u02b3\u1d43\u1d47\u1d58\003$warnabaru" newjam    regsub -all {Thursday} $newjam "\00303\u1d4f\u1d43\u1d50\u2071\u02e2\003$warnabaru" newjam    regsub -all {Friday} $newjam "\00303\u02b2\u1d58\u1d50\u1d43\u1d57\003$warnabaru" newjam    regsub -all {Saturday} $newjam "\00303\u02e2\u1d43\u1d47\u1d57\u1d58\003$warnabaru" newjamputserv "PRIVMSG $chan :\003$warnabaru\[\00301$newjam\003$warnabaru\]\00301"}proc sohari {chan} {global curTzoneset jam1 "Sekarang sudah hari [clock format [clock seconds] -timezone :$curTzone -format %A]"regsub -all {Sunday} $jam1 "\00304Minggu\003" jam1regsub -all {Monday} $jam1 "\00303Senin\003" jam1regsub -all {Tuesday} $jam1 "\00303Selasa\003" jam1regsub -all {Wednesday} $jam1 "\00303Rabu\003" jam1regsub -all {Thursday} $jam1 "\00303Kamis\003" jam1regsub -all {Friday} $jam1 "\00303Jumat\003" jam1regsub -all {Saturday} $jam1 "\00303Sabtu\003" jam1putserv "PRIVMSG $chan :$jam1"}proc pub_tjam {nick host hand chan text} {global curTzone varIndiset varjfor "%A, %I:%M %p $varIndi. %d %B %Y"#set varjfor "%I:%M %p"set varJam1 [clock format [clock seconds] -timezone :$curTzone -format $varjfor]    regsub -all {Sunday} $varJam1 "\00304Minggu\003" varJam1    regsub -all {Monday} $varJam1 "\00303Senin\003" varJam1    regsub -all {Tuesday} $varJam1 "\00303Selasa\003" varJam1    regsub -all {Wednesday} $varJam1 "\00303Rabu\003" varJam1    regsub -all {Thursday} $varJam1 "\00303Kamis\003" varJam1    regsub -all {Friday} $varJam1 "\00303Jumat\003" varJam1    regsub -all {Saturday} $varJam1 "\00303Sabtu\003" varJam1    regsub -all {January} $varJam1 "\00305Januari\003" varJam1    regsub -all {February} $varJam1 "\00313Februari\003" varJam1    regsub -all {March} $varJam1 "\00302Maret\003" varJam1    regsub -all {April} $varJam1 "\00310April\003" varJam1    regsub -all {May} $varJam1 "\00314Mei\003" varJam1    regsub -all {June} $varJam1 "\00308Juni\003" varJam1    regsub -all {July} $varJam1 "\00307Juli\003" varJam1    regsub -all {August} $varJam1 "\00311Agustus\003" varJam1    regsub -all {September} $varJam1 "\00304September\003" varJam1    regsub -all {October} $varJam1 "\00309Oktober\003" varJam1    regsub -all {November} $varJam1 "\00313November\003" varJam1    regsub -all {December} $varJam1 "\00303Desember\003" varJam1putserv "PRIVMSG $chan :$varJam1"}putlog "clock.tcl           write_ by KocHi (uKi`) -: LoadeD :-"