DccSends&Gets

By Warriorii on Mar 13, 2010

This will allow someone to send u files and keep track of the files u send and recieve. It's pretty simple but nice. I'm sure it can be done in a shorter version but it works and this is only my second snippet on Hawkee. Hope you like it

;Version 2.01
;Written by Jon_2  AKA Warriorii
;I would like to thank \\'hoBear for his help.
;Testers Luvme4me
;---------------------------------------------
menu channel,query {
  My Dcc Sends
  .List Sends&Gets: $chancount
   .Set TXT Folder:set %jwa.tdir $sdir="--==Please Choose The Folder Your Text Is In==--" | echo -a $j2 $+ 9,1 Your TXT Folder Is Set To:8 %jwa.tdir $j2
  .TXT Counter:me $j2 $+ 9,1 13Text Files8:11 9I Have $findfile(%jwa.tdir,*.txt,0) Text Files $j2
  .DccAllow Help
  ..Dcc Allow $$1: /dccallow + $+ $$1 | msg # $j2 $+ 9,1 $$1 you've have been added to my allow list  $+ $j2  | /say  $j2 $+ 9,1 You may now send me your file                   $+ $j2 | /ignore off
  ..Dcc DisAllow $$1: /dccallow - $+ $$1 | msg # $j2 $+ 9,1 $$1 You can no longer send me any files  $+ $j2 | /ignore on
  ..Tell To Add:/msg $chan $j2 $+ 9,1 For me to send to you Type===> /DCCAllow + $+ $me  $+ $j2 | /msg # $j2 $+ 9,1 Then type====> /ignore off                       $+ $j2
  ..Dcc Allow List: /dccallow list

  .-
  .Send To $$1:/send $$1 DccSends&gets-v2.1.mrc | /notice $$1 12Move DccSends&Gets-v2.1.mrc 12To main mIRC dir | /notice $$1 12Then type===> 4 /load -rs DccSends&Gets.mrc
} 
on 1:filesent:*: {
  inc %sentcount
  /notice $nick $j2 $+ 1,15 I have successfully sent you $nopath($filename) $nick  $+ $j2
  /Notice $nick $j2 $+ 9,1 That is file number %sentcount that I have shared  $+ $j2
  $tcount
}
on 1:sendfail:*: {
  inc %failcount
  /Notice $nick $j2 $+ 9,1I failed to send you the file $nopath($filename) $nick  $+ $j2
  $tcount
}
on 1:filercvd:*: {
  inc %recieved
  /notice $nick $j2 $+ 1,15 I recieved your file $nopath($filename) Thank You $nick  $+ $j2
  /Notice $nick $j2 $+ 9,1 That is file number %recieved that i have received  $+ $j2
  $tcount
}
on 1:getfail:*: {
  inc %gfail
  /notice $nick $j2 $+ 9,1 I failed to recieve your file $nopath($filename) $nick  $+ $j2
  $tcount
}

alias J2 return 14,2«15,12¤14,2»
alias tcount return /notice $nick $j2 $+ 9,1 Sent %sentcount 8|9,1 Sent Fails %failcount 8|9,1 Received %recieved 8|9,1 Receive Fails %gfail  $+ $j2
alias ChanCount return msg $chan $j2 $+ 9,1 Sent %sentcount 8|9,1 Sent Fails %failcount 8|9,1 Received %recieved 8|9,1 Receive Fails %gfail  $+ $j2

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.