Calendario

[TerraChat]

Código [Seleccionar] Expandir

bind dcc - acesso dcc_acesso

proc dcc_acesso {hand idx arg} {

 set usuario [lindex $arg 0]

 if {[validuser $usuario]} {

  set ultimo "[ctime [getuser $usuario laston]]"

  if {[lindex $ultimo 0] == "Sun"} { set dia "Domingo" } 

  if {[lindex $ultimo 0] == "Mon"} { set dia "Segunda-Feira" } 

  if {[lindex $ultimo 0] == "Tue"} { set dia "Terca-Feira" } 

  if {[lindex $ultimo 0] == "Wed"} { set dia "Quarta-Feira" } 

  if {[lindex $ultimo 0] == "Thu"} { set dia "Quinta-Feira" } 

  if {[lindex $ultimo 0] == "Fri"} { set dia "Sexta-Feira" }

  if {[lindex $ultimo 0] == "Sat"} { set dia "Sabado" } 


  if {[lindex $ultimo 1] == "Jan"} { set mes "Janeiro" }

  if {[lindex $ultimo 1] == "Feb"} { set mes "Fevereiro" }

  if {[lindex $ultimo 1] == "Mar"} { set mes "Marco" }

  if {[lindex $ultimo 1] == "Apr"} { set mes "Abril" }

  if {[lindex $ultimo 1] == "May"} { set mes "Maio" }

  if {[lindex $ultimo 1] == "Jun"} { set mes "Junho" }

  if {[lindex $ultimo 1] == "Jul"} { set mes "Julho" }

  if {[lindex $ultimo 1] == "Aug"} { set mes "Agosto" }

  if {[lindex $ultimo 1] == "Sep"} { set mes "Setembro" }

  if {[lindex $ultimo 1] == "Oct"} { set mes "Outubro" }

  if {[lindex $ultimo 1] == "Nov"} { set mes "Novembro" }

  if {[lindex $ultimo 1] == "Dec"} { set mes "Dezembro" }

 

  putdcc $idx "␃1#␃2#␃12#␃5 Acesso de ␂␃2$usuario␂␃5:"

  putdcc $idx "␃1#␃2#␃12#␃5 Ultimo Acesso:␃2 $dia, [lindex $ultimo 2] de $mes de [lindex $ultimo 4] às [lindex $ultimo 3]"

  putdcc $idx "␃1#␃2#␃12#␃5 Fim do Acesso"

  return 1

} else {

  putdcc $idx "␃2␂$usuario␂␃5 nao esta cadastrado neste BOT."

   return 1

  }

}

# LoG Credits

putlog "␃2Acesso Tcl v1.0 - By ␂SycLonE␂"