DCC Send/Receive Results

[TerraChat]

Código [Seleccionar] Expandir

/*
[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,)
}