Need scripts advisor - 07/08/06 12:18 PM
Code:
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 - }
Please comment to make my codes better or easier. Thanks