This is an example of one of the aliases I have in a script I'm working on
Code:
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))
  }
}

As you can tell, it's fairly lengthy (94 lines if I counted correctly), and I've got 9 more aliases the same length, so for the aliases I'm using nearly 950 lines of code. Can anyone see a way that this can be reduced? I've been staring at it for so long, I'm starting to see things that I've already tried and have rejected, due to the alterations not working.