/*
[Addon]
Script=DCC Send/Receive Results
Version=1.2
Author=pball
Desc=Shows all completed/failed DCC sends/gets in a separate window
For=Mirc
Date=4-11-11
[script]
*/
on ^*:getfail:*: file_done getf
on ^*:filercvd:*: file_done get
on ^*:sendfail:*: file_done sendf
on ^*:filesent:*: file_done send
alias file_done {
if (!$isfile($qt($scriptdirDCC_Results.txt))) {
write $qt($scriptdirDCC_Results.txt) $(Hide DCC Results Window: window -w0n1 @DCC Results $+ $network,0)
write $qt($scriptdirDCC_Results.txt) $($iif(!%dccresulthoff,Turn Highlight off,Turn Highlight on): $iif(!%dccresulthoff,set %dccresulthoff true,unset %dccresulthoff),0)
write $qt($scriptdirDCC_Results.txt) $(Change DCC Results Window Font: $iif($?="Enter Font name then Size Like Fixedsys 9",set %dccresultfont $v1,),0)
}
if (!$window(@DCC Results $+ $network)) window -kn @DCC Results $+ $network $qt($scriptdirDCC_Results.txt) %dccresultfont
if (get* iswm $1) {
set -l %ts ( $+ $duration($get(-1).secs,3) $round($calc( ( $get(-1).rcvd - $get(-1).resume ) / 1024 / $get(-1).secs ),1) KB/Sec $+ )
aline - $+ $iif(!%dccresulthoff,h,) $+ p @DCC Results $+ $network $asctime(HH:nn:ss) $+(␃14,$nick,␃,:) $iif($1 == get,␃3Get Complete,␃5 Get Failed) $get(-1).file %ts
write $qt($scriptdirDCC.txt) $asctime(mm-dd-yy hh:nn:ss tt) $nick $+ $str($chr(1),$calc( 30 - $len($nick) )) $chr(124) $iif($1 == get,Complete,Failed␁␁) %ts $+ $str($chr(1),$calc( 25 - $len(%ts) )) $get(-1).file
}
else {
set -l %ts ( $+ $duration($send(-1).secs,3) $round($calc( ( $send(-1).rcvd - $send(-1).resume ) / 1024 / $send(-1).secs ),1) KB/Sec $+ )
aline - $+ $iif(!%dccresulthoff,h,) $+ p @DCC Results $+ $network $asctime(HH:nn:ss) $+(␃14,$nick,␃,:) $iif($1 == send,␃11Send Complete,␃10Send Failed) $send(-1).file %ts
write $qt($scriptdirDCC.txt) $asctime(mm-dd-yy hh:nn:ss tt) $nick $+ $str($chr(1),$calc( 30 - $len($nick) )) $chr(124) $iif($1 == send,Complete,Failed␁␁) %ts $+ $str($chr(1),$calc( 25 - $len(%ts) )) $send(-1).file
}
halt
}
menu Channel,Status {
DCC Results Window Options
.$iif($window(@DCC Results $+ $network),$iif($window(@DCC Results $+ $network).state == hidden,Show DCC Results Window,Hide DCC Results Window)): window $iif($window(@DCC Results $+ $network).state == hidden,-w3a,-w0n1) @DCC Results $+ $network
.$iif(!%dccresulthoff,Turn Highlight off,Turn Highlight on): $iif(!%dccresulthoff,set %dccresulthoff true,unset %dccresulthoff)
.Change DCC Results Window Font: $iif($?="Enter Font name then Size Like Fixedsys 9",set %dccresultfont $v1,)
}