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 {
  Total (Archivos)
  .Establecer Directorio: set_directorio
}

alias set_directorio {
  ; Abre un diálogo para seleccionar el directorio
  var %directorio = $sdir(C:\, Selecciona el directorio que deseas compartir)
  if (%directorio != $null) {
    ; Guarda el directorio en una variable global
    set %compartir_directorio %directorio
    echo -a Directorio establecido: %compartir_directorio

    ; Inicia el temporizador automáticamente después de seleccionar el directorio
    iniciar_contador
  } 
  else {
    echo -a No se seleccionó ningún directorio.
  }
}

alias contar_archivos {
  ; Verifica si se ha establecido un directorio
  if (%compartir_directorio == $null) {
    echo -a No se ha establecido un directorio. Usa el menú para seleccionar uno.
    return
  }

  ; Verifica que el directorio exista
  if (!$isdir(%compartir_directorio)) {
    echo -a El directorio %compartir_directorio no es válido. Por favor, selecciona otro.
    unset %compartir_directorio
    return
  }

  ; Cuenta los archivos en el directorio
  var %archivo_count = $findfile(%compartir_directorio, *, 0)

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

  ; Define colores y negrita
  var %rojo = 4
  var %azul = 12
  var %verde = 3
  var %rosado = 13
  var %negrita = $chr(2)

  ; Si hay archivos en el directorio
  if (%archivo_count > 0) {
    ; Envía el mensaje con colores y negrita al canal
    msg #LatinWarez %negrita $+ $chr(3) $+ %rojo Sharing $+ $rand(1,7) %archivo_count $+ $chr(3) $+ %rojo new files in $+ $chr(3) $+ %rosado LatinWarez $+ $chr(3) $+ %verde æ $+ $chr(3) $+ %rojo Last update: $+ $chr(3) $+ %azul %fecha $+ $chr(3) $+ %verde æ $+ $chr(3) $+ %azul %hora $+ %negrita
  }
  else {
    ; Si no hay archivos nuevos, envía otro mensaje
    msg #LatinWarez %negrita $+ $chr(3) $+ %rojo æææ No new files available. Download my files by typing in the channel $+ $chr(3) $+ %azul @ $+ $me $+ %negrita
  }
}

; Inicia el temporizador para contar archivos cada 10 minutos
alias iniciar_contador {
  ; No se desactiva el temporizador previamente
  .timercontar_archivos 0 1250 contar_archivos
  echo -a El contador de archivos ha sido iniciado y se ejecutará cada 10 minutos.
}
Explorando: ./mrc

Vista previa de: Total.Archivos.mrc
