alias openque {
if (!$window(@Que)) { .window -n @que }
else { halt }
}
ON ^*:TEXT:*:#:{
if ($right($1,4)
if (@find == $1) {
.set %theitem $2
.searchitem
}
if (@ $+ $me == $1) {
.set %iwant $remove($2,.mp3)
.set %name $nick
.openque
.doublecheck
}
if ($right($1,4) == -que) {
.CheckQue
.set %QueNick $nick
}
}
alias CheckQue {
.set %qqq $fline(@que,* $+ %QueNick $+ *)
If (%qqq == $null) { halt }
Else { .msg $nick Your que number is ( $+ %qqq $+ / $+ %MaxQue $+ ) }
.unset %QueNick
}
alias doublecheck {
var %:file = item.txt
if (!$read(%:file,w,* $+ %name $+ * $+ %iwant $+ *)) { .sendto }
else { .msg %name Your files ( $+ %iwant $+ ) already requested. }
var %:file2 = mp3.txt
if (!$read(%:file2,w,* $+ %iwant $+ *)) { .msg $nick Invalid request }
}
alias searchitem {
var %n = 1
while (%n <= $findfile(%mp3dir,* $+ %theitem $+ *.mp3,0)) { msg $nick @ $+ $me $nopath($findfile(%mp3dir,* $+ %theitem $+ *.mp3,%n))
inc %n
}
}
alias sendto {
var %sendx = 1
while (%sendx <= $findfile(%mp3dir,* $+ %iwant $+ *.mp3,0)) { write item.txt %name $findfile(%mp3dir,* $+ %iwant $+ *.mp3,%sendx)
inc %sendx
approve
}
}
alias approve {
.aline @Que $nick
inc %quenum 1
msg $nick Thx for requesting %iwant $+ .mp3 Que( $+ %quenum $+ / $+ %MaxQue $+ ) Slot( $+ %sendingnow $+ / $+ %myslot $+ ) Available.
.giveit
}
alias giveit {
if (%sendingnow == 0) {
.sendnow
inc %sendingnow 1
}
if (%sendingnow <= %myslot) {
.sendnow
inc %sendingnow 1
}
}
alias sendnow {
var %n = $read(hantar.txt,1)
%name = $gettok(%n,1,32)
%item = $gettok(%n,2,32)
.set %temp.name $gettok(%n,1,32)
.set %temp.item $gettok(%n,2,32)
.dcc send %name %item
.write -dl1 hantar.txt
.inc %sendingnow 1
}
on *:filesent:*:{
.echo -a 8- Complete sending %temp.item to %temp.name -
.dec %sendingnow 1
.dec %quenum 1
.sendnow
}
on *:sendfail:*:{
echo -a 8- Sending %temp.item to %temp.name was Incomplete -
}