Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
⬅️ Volver;For Use On #ebooks On EFnet - www..tk & http://saarducci.com/mp3addicts/
;Coded by SyKoBoY50
on *:START: {
/window -el @ebooks_File_Que
/.timerma.q 0 300 /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 300 /.timerma.q 0 300 /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
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(@Mp3Passion_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 Introduction
/aline @ebooks_File_Que_Help 12 a. What does this script do?
/aline @ebooks_File_Que_Help 12 - Makes it easier for you to request files in #Mp3Passion
/aline @ebooks_File_Que_Help 12 - Automatically follows #Mp3Passion rules, which means you
/aline @ebooks_File_Que_Help 12 won't get kicked or banned for requesting too many files at once.
/aline @ebooks_File_Que_Help 12 b. Why was this script made?
/aline @ebooks_File_Que_Help 12 - The #Mp3Passion ops saw a need for a script which would
/aline @ebooks_File_Que_Help 12 help people request files while they still follow the rules.
/aline @ebooks_File_Que_Help 4 Use
/aline @ebooks_File_Que_Help 12 a. Channel/Menubar Popup
/aline @ebooks_File_Que_Help 12 - Opens the Mp3Passion_File_Que custom window, if it is not
/aline @ebooks_File_Que_Help 12 already open.
/aline @ebooks_File_Que_Help 12 b. Requesting Files
/aline @ebooks_File_Que_Help 12 - Simply paste all of your requests into your Mp3Passion_File_Que custom window.
/aline @ebooks_File_Que_Help 12 - All requests will be pasted to #Mp3Passion 4 requests at a
/aline @ebooks_File_Que_Help 12 time, at 45 second intervals
/aline @ebooks_File_Que_Help 12
/aline -p @ebooks_File_Que_Help 12 For Any Further Questions Or Comments, Msg SyKoBoY50 on EFNet, or E-mail me at Psychoboy50@hotmail.com
/aline -p @ebooks_File_Que_Help 12 or E-mail me at Psychoboy50@hotmail.com
}
}
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 = 1
while (%ma != 0) {
if ($read(ma.que,1) == $null) { /halt }
;/msg #ebooks $read(ma.que,1)
if (.mp3 isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.mp3,1)) $+ mp3
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 (.txt isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.txt,1)) $+ txt
if (.avi isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.avi,1)) $+ avi
if (.wav isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.wav,1)) $+ wav
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 (.msi isin $read(ma.que,1)) /msg #ebooks $left($read(ma.que,1),$pos($read(ma.que,1),.msi,1)) $+ msi
/write -dl1 ma.que
/dline @ebooks_File_Que 1
/dec %ma 1
:redo
}
}
👁️ 4 vistas • 📥 0 descargas