alias dccfiles {
  var %l 1,%n
  while ($get(%l)) {
    if ($get(%l).status == active) {
      inc %n
      if ($1 == $null) || ($1 == %n) {
        var %s = $get(%l).size,%r = $get(%l).rcvd,%c = $get(%l).cps
        say [DCC Get $+($chr(35),%n,] Nick¦,$get(%l),@,$scid($get(%l).cid).server,¦ File¦,$nopath($get(%l).file),¦ Received¦,$lower($+($bytes(%r).suf,/,$bytes(%s).suf)) $round($calc((%r / %s)*100),1),%,¦ Elapsed¦,$dccsd($get(%l).secs),¦ ETA¦,$dccsd($int($calc((%s - %r) / %c))) @ $lower($bytes(%c).suf),/s,¦)
      }
    }
    inc %l
  }
  var %l 1,%n
  while ($send(%l)) {
    if ($send(%l).status == active) {
      inc %n
      if ($2 == $null) || ($2 == %n) {
        var %s = $send(%l).size,%r = $send(%l).sent,%c = $send(%l).cps
        say [DCC Send $+($chr(35),%n,] Nick¦,$get(%l),@,$scid($send(%l).cid).server,¦ File¦,$nopath($send(%l).file),¦ Received¦,$lower($+($bytes(%r).suf,/,$bytes(%s).suf)) $round($calc((%r / %s)*100),1),%,¦ Elapsed¦,$dccsd($send(%l).secs),¦ ETA¦,$dccsd($int($calc((%s - %r) / %c))) @ $lower($bytes(%c).suf),/s,¦)
      }
    }
    inc %l
  }
}
alias -l dccsd {
  var %l = $int($calc($1 /86400))
  tokenize 32 %l day $+ $iif(%l != 1,s) $+ , $asctime($calc($timezone + ($1 - %l * 86400)),HH:nn:ss)
  return $iif($1,$1-,$3)
}