TCL - Time/Jam/Date

TCL buat liat hari, tanggal n jam dari irc
Pastikan seting eggdrop kamu bener.
Kalo tanggal ato jam nya ga bener berarti seting eggdrop kamu ada yang salah :-)

bind pub - .time pub:time
bind pub - !time pub:time
bind pub - .jam pub:time
bind pub - !jam pub:time
proc pub:time { nick uhost hand chan text } {
 set waktu [ctime [unixtime]]
 set hari [lindex $waktu 0]
 set tanggal [lindex $waktu 2]
 set bulan [lindex $waktu 1]
 set tahun [lindex $waktu 4]
 set jam [lindex $waktu 3]
 if {$hari == "Mon"} { set hari "Senin" }
 if {$hari == "Tue"} { set hari "Selasa" }
 if {$hari == "Wed"} { set hari "Rabu" }
 if {$hari == "Thu"} { set hari "Kamis" }
 if {$hari == "Fri"} { set hari "Jum'at" }
 if {$hari == "Sat"} { set hari "Sabtu" }
 if {$hari == "Sun"} { set hari "Minggu" }
 if {$bulan == "Jan"} { set bulan "Januari" }
 if {$bulan == "Feb"} { set bulan "Februari" }
 if {$bulan == "Mar"} { set bulan "Maret" }
 if {$bulan == "Apr"} { set bulan "April" }
 if {$bulan == "May"} { set bulan "Mei" }
 if {$bulan == "Jun"} { set bulan "Juni" }
 if {$bulan == "Jul"} { set bulan "Juli" }
 if {$bulan == "Aug"} { set bulan "Agustus" }
 if {$bulan == "Sep"} { set bulan "September" }
 if {$bulan == "Oct"} { set bulan "Oktober" }
 if {$bulan == "Nov"} { set bulan "November" }
 if {$bulan == "Dec"} { set bulan "Desember" }
 if {[onchan $nick $chan]} {
  putquick "PRIVMSG $chan :$nick : $hari - $tanggal $bulan $tahun - $jam"
 }
}

Sedikit tambahan seting di eggdrop.conf biar tanggal n jam eggdrop kamu ga ngawur..
Tambahin kode berikut ke eggdrop.conf

set timezone "GMT"
set offset "-7"
set env(TZ) "$timezone $offset"

Tambahan seting tersebut untuk waktu indonesia bagian barat (GMT+7)
Selamat mencoba

Add comment

Fill out the form below to add your own comments

User data





Add your comment