Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
on *:START: {
  .timerStats 0 1800 show_stats
  .timerRequestInvite 0 1086 msg #LatinWarez 13Want a file? Request it with: 7.addreq Sophie_Ellis-Bextor-Relentless_Love-SINGLE-WEB-2025-ALPMP3
}

on *:TEXT:.addreq *:#: {
  var %dir rqs2025
  var %file rqs2025/reqs2025.txt
  if (!$isdir(%dir)) { mkdir %dir }
  if (!$isfile(%file)) { write %file }

  ; Guardar el request en el formato correcto
  write %file Nick: $nick Requested: $2-

  ; Confirmar al usuario
  ;;; msg $nick ✅ Your request for $2- has been recorded! Check status with: @ $+ $me
}

alias show_stats {
  var %file rqs2025/reqs2025.txt
  var %total_requests 0
  var %unique_nicks 0
  var %nick_list $null
  var %latest_request N/A
  var %top_requester N/A
  var %max_requests 0

  ; Verificar si el archivo existe
  if (!$isfile(%file)) { 
    msg #LatinWarez 📊 Stats: No requests yet. Be the first to request using .addreq <file_name>!
    return
  }

  ; Contar total de requests (líneas del archivo)
  set %total_requests $lines(%file)

  ; Inicializar hash table para contar requests por usuario
  hfree -w req_count
  hmake req_count 50

  var %i 1
  while (%i <= %total_requests) {
    var %linea $read(%file, %i)

    ; Extraer Nick y Request usando Token
    var %nick $gettok(%linea, 2, 32)
    var %request $gettok(%linea, 4-, 32)

    ; Verificar si el nick ya está en la lista
    if (!$istok(%nick_list, %nick, 32)) { 
      set %nick_list $addtok(%nick_list, %nick, 32)
      inc %unique_nicks
    }

    ; Contar requests por usuario
    hadd req_count %nick $calc($hget(req_count, %nick) + 1)

    ; Obtener el último request agregado
    if (%i == %total_requests) { set %latest_request %request }

    inc %i
  }

  ; Encontrar el usuario con más requests
  var %i 1, %most_requests 0, %most_requested_nick N/A
  while ($hget(req_count, %i).item) {
    var %current_nick $hget(req_count, %i).item
    var %current_count $hget(req_count, %current_nick)

    if (%current_count > %most_requests) {
      set %most_requests %current_count
      set %most_requested_nick %current_nick
    }
    inc %i
  }

  set %max_requests %most_requests
  set %top_requester %most_requested_nick

  ; Enviar mensaje al canal con las estadísticas en UNA SOLA LÍNEA
  msg #LatinWarez 📊 9Stats0: Total Requests:7 %total_requests | Unique Users:7 %unique_nicks | Top Requester:7 %top_requester 11 %max_requests requests | Latest Request: 11 %latest_request 9@8 $date $time
}


on *:TEXT:!version:#LatinWarez: {
  msg #LatinWarez $+($chr(3),1,0, This script was created to manage file requests and approvals on this channel.)
  msg #LatinWarez $+($chr(3),1,0, Version: 1.0 @ Made by: mp3X{Ghost} @ Date: 27/March/2025)
  msg #LatinWarez $+($chr(3),1,0, For more info or updates. contact the creator!)
}

on *:TEXT:!help:#LatinWarez: {
  msg #LatinWarez $+($chr(3),1,0, ==== HELP MENU ====)
  msg #LatinWarez $+($chr(3),1,0, To request a file: ,$chr(3),7, .addreq <file_name> ,$chr(3),1,0,)
  msg #LatinWarez $+($chr(3),1,0, Example: ,$chr(3),7, .addreq Sophie_Ellis-Bextor-Relentless_Love-SINGLE-WEB-2025-ALPMP3 ,$chr(3),1,0,)
  msg #LatinWarez $+($chr(3),1,0, To check your request status or download: ,$chr(3),7, ! $+ $me <file_name> ,$chr(3),1,0,)
  msg #LatinWarez $+($chr(3),1,0, For questions, contact the admin! - mp3X{Ghost} -)
  msg #LatinWarez $+($chr(3),1,0, ==================)
}
Explorando: ./mrc

Vista previa de: reqs2025.mrc
