Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
,-----------------------------------------------,
| --.--                    ,---.|         |     |
|   |  ,---.,---.,---.,---.|    |---.,---.|---  |
|   |  |---'|    |    ,---||    |   |,---||     |
|   `  `---'`    `    `---^`---'`   '`---^`---' |
| coded powered by crew: irc.terrachat.cl 2025. |
‘-----------------------------------------------’

menu channel {
  Peso (Archivos)
  .Establecer Carpeta: set_carpeta_final
}

alias set_carpeta_final {
  ; Abre un diálogo para seleccionar la carpeta madre
  var %carpeta = $sdir(C:\, Selecciona la carpeta que deseas compartir)
  if (%carpeta != $null) {
    ; Guarda la carpeta madre en una variable global
    set %compartir_carpeta %carpeta
    echo -a Carpeta establecida: %compartir_carpeta

    ; Inicia el temporizador automáticamente después de seleccionar la carpeta madre
    iniciar_contador_peso_final
  } 
  else {
    echo -a No se seleccionó ninguna carpeta.
  }
}

alias obtener_peso_final {
  ; Verifica si se ha establecido una carpeta madre
  if (%compartir_carpeta == $null) {
    echo -a No se ha establecido una carpeta. Usa el menú para seleccionar una.
    return
  }

  ; Verifica que la carpeta madre exista
  if (!$isdir(%compartir_carpeta)) {
    echo -a La carpeta %compartir_carpeta no es válida. Por favor, selecciona otra.
    unset %compartir_carpeta
    return
  }

  ; Inicializa la variable para almacenar el peso total de la carpeta madre
  set %peso_total 0

  ; Llama a la función recursiva para sumar el tamaño de todos los archivos en la carpeta y subcarpetas
  calcular_peso_carpeta %compartir_carpeta

  ; Convierte el peso total a un formato legible (MB, GB, etc.)
  var %peso_legible = $bytes(%peso_total, 3)


  ; Obtén la fecha y hora actual
  var %fecha = $date(dd/mm/yyyy)
  var %hora = $time(HH:nn:ss)

  ; Define colores y negrita
  var %color = $rand(1,7)
  var %negrita = $chr(2)

  ; Si hay archivos en la carpeta madre
  if (%peso_total > 0) {
    ; Envía el mensaje con el formato solicitado
    msg #LatinWarez %negrita $+ $chr(3) $+ %color Estoy compartiendo %peso_legible $+ GB æ Para obtener mis archivos escribe @ $+ $me (Última actualización: %fecha %hora $+ ) $+ %negrita
  }
  else {
    ; Si no hay archivos disponibles, envía otro mensaje
    msg #LatinWarez %negrita $+ $chr(3) $+ %color No hay archivos disponibles. Baja mis archivos escribiendo en el canal @ $+ $me $+ %negrita
  }
}

alias calcular_peso_carpeta {
  var %carpeta = $1
  ; Encuentra todos los archivos en la carpeta actual y suma su tamaño
  var %archivo = $findfile(%carpeta, *, 0, inc %peso_total $file($1-).size)

  ; Busca subcarpetas y llama recursivamente a la función para sumar los archivos en ellas
  var %subcarpeta = $finddir(%carpeta, *, 0, calcular_peso_carpeta $1-)
}

; Inicia el temporizador para obtener el peso de la carpeta madre cada 10 minutos
alias iniciar_contador_peso_final {
  .timerpeso_carpeta_final off
  .timerpeso_carpeta_final 0 1500 obtener_peso_final
  echo -a El contador de peso de la carpeta madre ha sido iniciado y se ejecutará cada 10 minutos.
}
Explorando: ./mrc

Vista previa de: Peso.Archivos.mrc
