|
TCL sederhana buat ngliat berapa lama uptime bot kamu
Cara Pakai : ketik !uptime ato .uptime di cenel
bind pub - .uptime uptime:pub
bind pub - !uptime uptime:pub
proc uptime:pub {nick uhost hand chan arg} {
putserv "PRIVMSG $chan :[botuptime]"
}
proc botuptime {} {
set uptimetotal [expr [clock seconds]-$::uptime]
set uptimehari [expr $uptimetotal/86400]
set uptimetotal [expr $uptimetotal-$uptimehari*86400]
set uptimejam [expr $uptimetotal/3600]
set uptimetotal [expr $uptimetotal-$uptimejam*3600]
set uptimemenit [expr $uptimetotal/60]
set uptimetotal [expr $uptimetotal-$uptimemenit*60]
set uptimedetik $uptimetotal
set ::time(return) "Uptime : $uptimehari days $uptimejam:$uptimemenit:$uptimedetik"
return $::time(return)
}
|