alias -l 169 {
did -ra %srt 11 $did(%srt,169)
if $4 {
var %a = 1, %b = $get(0), %dcc_srt.nicks
while %a <= %b {
if $get(%a).file == $did(%srt,8).seltext {
%dcc_srt.nicks = $addtok(%dcc_srt.nicks,$get(%),44)
}
inc %a
}
did -r %srt 4
didtok %srt 4 44 %dcc_srt.nicks
did -ra %srt 12 0
did -ra %srt 13,14 $numtok(%dcc_srt.nicks)
}
elseif $3 {
var %a = 1, %b = $send(0), %dcc_srt.nicks
while %a <= %b {
if $send(%a).file == $did(%srt,6).seltext {
%dcc_srt.nicks = $addtok(%dcc_srt.nicks,$send(%),44)
}
inc %a
}
did -r %srt 4
didtok %srt 4 44 %dcc_srt.nicks
did -ra %srt 13 0
did -ra %srt 12,14 $numtok(%dcc_srt.nicks)
}
elseif $2 {
var %a = 1, %b = $send($did(%srt,4,$2),0), %dcc_srt.sends
while %a <= %b {
%dcc_srt.sends = $addtok(%dcc_srt.sends,$send($did(%srt,4,$2),%a).file,44)
inc %a
}
var %a = 1, %b = $get($did(%srt,4,$2),0), %dcc_srt.gets
while %a <= %b {
%dcc_srt.gets = $addtok(%dcc_srt.gets,$get($did(%srt,4,$2),%a).file,44)
inc %a
}
did -r %srt 6,8
didtok %srt 6 44 %dcc_srt.sends
didtok %srt 8 44 %dcc_srt.gets
did -ra %srt 12 $numtok(%dcc_srt.sends)
did -ra %srt 13 $numtok(%dcc_srt.gets)
did -ra %srt 14 $calc($numtok(%dcc_srt.sends,44) + $numtok(%dcc_srt.gets,44))
}
elseif $1 {
.scon $1
var %a = 1, %b = $send(0), %dcc_srt.nicks, %dcc_srt.sends
while %a <= %b {
if $send(%a).cid == $cid {
%dcc_srt.nicks = $addtok(%dcc_srt.nicks,$send(%a),44)
%dcc_srt.sends = $addtok(%dcc_srt.sends,$send(%a).file),44)
}
inc %a
}
var %a = 1, %b = $get(0), %dcc_srt.gets
while %a <= %b {
if $get(%a).cid == $cid {
%dcc_srt.nicks = $addtok(%dcc_srt.nicks,$get(%a),44)
%dcc_srt.gets = $addtok(%dcc_srt.gets,$get(%a).file),44)
}
inc %a
}
did -r %srt 4,6,8
didtok %srt 4 44 %dcc_srt.nicks
didtok %srt 6 44 %dcc_srt.sends
didtok %srt 8 44 %dcc_srt.gets
did -ra %srt 12 $numtok(%dcc_srt.sends,44)
did -ra %srt 13 $numtok(%dcc_srt.gets,44)
did -ra %srt 14 $calc($numtok(%dcc_srt.sends,44) + $numtok(%dcc_srt.gets,44))
}
else {
.scon -at1 did -a %srt $!network
var %a = 1, %b = $send(0), %dcc_srt.nicks, %dcc_srt.sends
while %a <= %b {
%dcc_srt.nicks = $addtok(%dcc_srt.nicks,$send(%a),44)
%dcc_srt.sends = $addtok(%dcc_srt.sends,$send(%a).file),44)
inc %a
}
var %a = 1, %b = $get(0), %dcc_srt.gets
while %a <= %b {
%dcc_srt.nicks = $addtok(%dcc_srt.nicks,$get(%a),44)
%dcc_srt.gets = $addtok(%dcc_srt.gets,$get(%a).file),44)
inc %a
}
didtok %srt 4 44 %dcc_srt.nicks
didtok %srt 6 44 %dcc_srt.sends
didtok %srt 8 44 %dcc_srt.gets
did -ra %srt 12 $send(0)
did -ra %srt 13 $get(0)
did -ra %srt 14 $calc($send(0) + $get(0))
}
}