Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
on *:START: {
  /window -el @EBOOKS_File_Que
  /.timerma.q 0 60 /ma.go
  /var %ma.t = 1
  while (%ma.t <= $lines(ma.que)) {
    /aline @EBOOKS_File_Que $read(ma.que, %ma.t)
    /inc %ma.t 1
  }
}
on *:CONNECT: /.timerma.q1 1 60 /.timerma.q 0 60 /ma.go
on *:INPUT:@EBOOKS_File_Que: /ma.que $1-
menu channel,menubar {
  -
  #EBOOKS File Que Window: {
    if ($window(@EBOOKS_File_Que).state != $null) { /window -x @EBOOKS_File_Que }
    else {
      /window -el @EBOOKS_File_Que
      /var %ma.t = 1
      while (%ma.t <= $lines(ma.que)) {
        /aline @EBOOKS_File_Que $read(ma.que, %ma.t)
        /inc %ma.t 1
      }
    }
  }
}
menu @EBOOKS_File_Que {
  Remove From Que: /dline @EBOOKS_File_Que $fline(@EBOOKS_File_Que,$sline(@EBOOKS_File_Que,1)) | /write -dl $+ $fline(@EBOOKS_File_Que,$sline(@EBOOKS_File_Que,1)) ma.que
  Remove All: clear
  Move Up In Que: {
    /var %ma.line = $sline(@EBOOKS_File_Que,1)
    /var %ma.line2 = $fline(@EBOOKS_File_Que,$sline(@EBOOKS_File_Que,1))
    if (%ma.line2 == 1) { /halt }
    /dline @EBOOKS_File_Que %ma.line2
    /iline @EBOOKS_File_Que $calc(%ma.line2 - 1) %ma.line
  }
  Move Down In Que: {
    /var %ma.line = $sline(@EBOOKS_File_Que,1)
    /var %ma.line2 = $fline(@EBOOKS_File_Que,$sline(@EBOOKS_File_Que,1))
    if (%ma.line2 == $line(@EBOOKS_File_Que,0))
    /dline @EBOOKS_File_Que %ma.line2
    /iline @EBOOKS_File_Que $calc(%ma.line2 + 2) %ma.line
  }
  Help: {
    /window -dl @ebooks_File_Que_Help
    /aline @ebooks_File_Que_Help 4 Introducción
    /aline @ebooks_File_Que_Help 12  a. ¿Qué hace este script?
    /aline @ebooks_File_Que_Help 12    - Facilita la solicitud de archivos en #ebooks.
    /aline @ebooks_File_Que_Help 12    - Sigue automáticamente las reglas de #ebooks, lo que significa que
    /aline @ebooks_File_Que_Help 12      no serás expulsado ni baneado por solicitar demasiados archivos a la vez.
    /aline @ebooks_File_Que_Help 12  b. ¿Por qué se creó este script?
    /aline @ebooks_File_Que_Help 12    - Los operadores de #ebooks vieron la necesidad de un script que
    /aline @ebooks_File_Que_Help 12      ayudara a los usuarios a solicitar archivos sin infringir las reglas.
    /aline @ebooks_File_Que_Help 4 Uso
    /aline @ebooks_File_Que_Help 12  a. Menú del canal / Barra de menús
    /aline @ebooks_File_Que_Help 12    - Abre la ventana personalizada #ebooks_File_Que si no está
    /aline @ebooks_File_Que_Help 12      ya abierta.
    /aline @ebooks_File_Que_Help 12  b. Solicitud de archivos
    /aline @ebooks_File_Que_Help 12    - Simplemente pega todas tus solicitudes en la ventana personalizada #ebooks_File_Que.
    /aline @ebooks_File_Que_Help 12    - Todas las solicitudes se enviarán a #ebooks de 4 en 4,
    /aline @ebooks_File_Que_Help 12      con intervalos de 45 segundos.
    /aline @ebooks_File_Que_Help 12  
    /aline -p @ebooks_File_Que_Help 12 Para cualquier otra pregunta o comentario, envía un mensaje en #LatinWarez
  } 
}
menu @EBOOKS_File_Que_Help {
  Close: /close -@ @EBOOKS_File_Que_Help
}
alias /ma.que {
  if ($left($1,1) != ! || $right($1,-1) !ison #EBOOKS) {
    /halt
  }
  /write ma.que $1-
  /aline @EBOOKS_File_Que $1-
}
alias /ma.go {
  if ($read(ma.que, 1) == $null) { /halt }
  if ($me !ison #EBOOKS) { /halt }
  /var %ma = 5
  while (%ma != 0) {
    if ($read(ma.que,1) == $null) { /halt }
    ;/msg #EBOOKS $read(ma.que,1)
    ; MUSICA
    if (.mp3 isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mp3,1)) $+ mp3
    if (.flac isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.flac,1)) $+ flac
    if (.wav isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.wav,1)) $+ wav
    if (.aac isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.aac,1)) $+ aac
    if (.ogg isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.ogg,1)) $+ ogg
    if (.wma isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.wma,1)) $+ wma
    if (.m4a isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.m4a,1)) $+ m4a
    if (.alac isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.alac,1)) $+ alac
    if (.aiff isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.aiff,1)) $+ aiff
    if (.opus isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.opus,1)) $+ opus
    ;  COMPRESORES
    if (.zip isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.zip,1)) $+ zip
    if (.rar isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.rar,1)) $+ rar
    if (.tar isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.tar,1)) $+ tar
    if (.gz isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.gz,1)) $+ gz
    if (.bz2 isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.bz2,1)) $+ bz2
    if (.7z isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.7z,1)) $+ 7z
    if (.xz isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.xz,1)) $+ xz
    if (.lzma isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.lzma,1)) $+ lzma
    if (.zst isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.zst,1)) $+ zst
    ; PELICULAS
    if (.avi isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.avi,1)) $+ avi
    if (.mkv isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mkv,1)) $+ mkv
    if (.mp4 isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mp4,1)) $+ mp4
    if (.mov isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mov,1)) $+ mov
    if (.wmv isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.wmv,1)) $+ wmv
    if (.flv isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.flv,1)) $+ flv
    if (.webm isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.webm,1)) $+ webm
    if (.mpeg isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mpeg,1)) $+ mpeg
    ; TEXTOS
    if (.txt isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.txt,1)) $+ txt
    if (.doc isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.doc,1)) $+ doc
    if (.docx isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.docx,1)) $+ docx
    if (.odt isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.odt,1)) $+ odt
    if (.rtf isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.rtf,1)) $+ rtf
    if (.csv isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.csv,1)) $+ csv
    if (.json isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.json,1)) $+ json
    if (.xml isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.xml,1)) $+ xml
    ; LIBROS
    if (.epub isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.epub,1)) $+ epub
    if (.pdf isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.pdf,1)) $+ pdf
    if (.cbr isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.cbr,1)) $+ cbr
    if (.cbz isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.cbz,1)) $+ cbz
    if (.mobi isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mobi,1)) $+ mobi
    if (.azw isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.azw,1)) $+ azw
    if (.azw3 isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.azw3,1)) $+ azw3
    if (.djvu isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.djvu,1)) $+ djvu
    if (.fb2 isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.fb2,1)) $+ fb2
    if (.lit isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.lit,1)) $+ lit
    if (.rtf isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.rtf,1)) $+ rtf
    if (.txt isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.txt,1)) $+ txt
    if (.mpg isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mpg,1)) $+ mpg
    if (.mp4 isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mp4,1)) $+ mp4
    ; IMAGENES
    if (.jpg isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.jpg,1)) $+ jpg
    if (.jpeg isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.jpeg,1)) $+ jpeg
    if (.png isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.png,1)) $+ png
    if (.gif isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.gif,1)) $+ gif
    if (.bmp isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.bmp,1)) $+ bmp
    if (.tiff isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.tiff,1)) $+ tiff
    if (.webp isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.webp,1)) $+ webp
    if (.svg isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.svg,1)) $+ svg
    ; DESARROLLO
    if (.html isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.html,1)) $+ html
    if (.css isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.css,1)) $+ css
    if (.js isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.js,1)) $+ js
    if (.php isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.php,1)) $+ php
    if (.py isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.py,1)) $+ py
    if (.java isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.java,1)) $+ java
    if (.c isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.c,1)) $+ c
    if (.cpp isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.cpp,1)) $+ cpp
    if (.h isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.h,1)) $+ h
    if (.xml isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.xml,1)) $+ xml
    if (.json isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.json,1)) $+ json
    if (.sql isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.sql,1)) $+ sql
    ; INSTALACION
    if (.exe isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.exe,1)) $+ exe
    if (.msi isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.msi,1)) $+ msi
    if (.apk isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.apk,1)) $+ apk
    if (.dmg isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.dmg,1)) $+ dmg
    if (.iso isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.iso,1)) $+ iso
    if (.bin isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.bin,1)) $+ bin
    if (.sh isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.sh,1)) $+ sh
    if (.bat isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.bat,1)) $+ bat
    /write -dl1 ma.que
    /dline @EBOOKS_File_Que 1
    /dec %ma 1
    :redo
  }
}
Explorando: ./mrc

Vista previa de: bajar.rar.mrc
