Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
#################################################################
#	  ______                     ________          __       #
#	 /_  __/__  ______________ _/ ____/ /_  ____ _/ /_	#
#	  / / / _ \/ ___/ ___/ __ `/ /   / __ \/ __ `/ __/      #
#	 / / /  __/ /  / /  / /_/ / /___/ / / / /_/ / /_        #
#	/_/  \___/_/  /_/   \__,_/\____/_/ /_/\__,_/\__/        #
#                                                               #
#################################################################

# SETTINGS
set time(dcc) "serv"
set time(msg) ".serv"
set time(pub) "!serv"
set time(flag) "-"
set time(col1) "\00314"
set time(col2) "\0034"
############################################################################
set vrs "0.2"
############################################################################
# BINDS
bind pub "$time(flag)" "$time(pub)" uptime:pub
bind dcc "$time(flag)" "$time(dcc)" uptime:dcc
bind msg "$time(flag)" "$time(msg)" uptime:msg
############################################################################
# PROCS

proc uptime:pub {nick uhost hand chan arg} {
  putserv "PRIVMSG $chan :[eggtime]"
}

proc uptime:msg {nick uhost hand arg} {
  putserv "PRIVMSG $nick :[eggtime]"
}

proc uptime:dcc {hand idx arg} {
  putdcc $idx "[eggtime]"
}

proc eggtime {} {
  set ::time(uptime) [expr [clock seconds]-$::uptime]
  set ::time(week) [expr $::time(uptime)/604800]
  set ::time(uptime) [expr $::time(uptime)-$::time(week)*604800]
  set ::time(days) [expr $::time(uptime)/86400]
  set ::time(uptime) [expr $::time(uptime)-$::time(days)*86400]
  set ::time(hour) [expr $::time(uptime)/3600]
  set ::time(uptime) [expr $::time(uptime)-$::time(hour)*3600]
  set ::time(mins) [expr $::time(uptime)/60]
  set ::time(uptime) [expr $::time(uptime)-$::time(mins)*60]
  set ::time(secs) $::time(uptime)
  set ::time(return) "$::time(col2)$::botnick $::time(col1)mi uptime es:$::time(col2) $::time(week) $::time(col1)semana\(s\)$::time(col2) $::time(days) $::time(col1)dia\(s\)$::time(col2) $::time(hour) $::time(col1)hora\(s\)$::time(col2) $::time(mins) $::time(col1)minuto\(s\)$::time(col2) $::time(secs) $::time(col1)segundo\(s\)."
  return $::time(return)
}

putlog "=== Bot Uptime @ $vrs ==="
Explorando: ./tcl

Vista previa de: serv.tcl
