Forums Scripts & Popups $get and a var problem (big one it seems)

ctcp *:dcc send *:?:{
  unset %dcc.get
  var %n = 1 
  while ($get(%n)) {
    set %dcc.get $addtok(%dcc.get,$ifmatch,32)
    inc %n
  }
  [color:red];This sets another var and starts another timer that checks to see if the
  ;send has started (ie. been accepted)[/color]
  set %dcc.acc $true
  [color:red];switchbar reload [/color]
  .timer -m 1 1 load.switchbar
  .timerdcc.acc 0 1 dcc.acc
}
[color:red];The above makes a variable that contains the nick of the send
;(yeah i know it wont work with more then 1 sender)[/color]

alias dcc.acc {
  if (!%dcc.acc) { .timerdcc.acc off | halt }
  elseif ($get(0) >= 1) {
    var %n = 1
    while ($get(%n)) {
      if ($get(%n).rcvd > 1) {
        .timer -m 1 1 load.switchbar
        unset %dcc.acc
      }
      inc %n
    }
  }
  elseif ($send(0) >= 1) {
    var %x = 1
    while ($send(%x)) {
      if ($send(%x).sent > 1) {
        .timer -m 1 1 load.switchbar
        unset %dcc.acc
      }
      inc %x
    }
  }
}
[color:red];The above is the alias that checks if the sends/gets have been accepted and
;have started to send the file[/color]

alias dcc.canc {
  if ($get(0) < $numtok(%dcc.get,32)) { .timer -m 1 1 load.switchbar | .timerdcc.canc off }
  else { .timerdcc.canc off | halt }
}
[color:red];Above checks the %dcc.get variable and trys to match the amount of open dcc
;get windows with the amount that was accepted, if
;less than the var, it updates the switchbar. (the else i added in hope for a miracle so dont
;bother about it unless u figure its important)[/color]

on *:getfail:*:{
  .timer -m 1 1 load.switchbar
  .timerdcc.canc 0 1 dcc.canc
  echo -a Failed to receive $nopath($filename) from $nick ( $+ $_comchan($nick) $+ )
}
[color:red];Starts the timer that starts the alias that checks for any closed windows[/color]

var %x = 1
while (%x <= $get(0)) {
  did -a switchbar 1 +e 3 3 0 $iif($len($get(%x).file) > 20,$wrap($left($get(%x).file,20),arial,12,95,0,1) $&
  $+ ...,$get(%x).file)) $+(	,File: $get(%x).file $cr $+ Sender: $get(%x) $&
  $cr $+ Size: $bytes($get(%x).size,m) $+ Mb $cr $+ Com. channels: $_comchan($get(%x)) $&
  $cr $+ Status: $get(%x).status )
  inc %x
}

ctcp *:dcc send *:?:{
  unset %dcc.get
  var %n = 1
  while ($get(%n)) {
    set %dcc.get %dcc.get $ifmatch
    inc %n
  }
 
  [color:green]; $get() won't catch this send, so add it in.
  set %dcc.get %dcc.get $nick[/color]
 
  ;This sets another var and starts another timer that checks to see if the
  ;send has started (ie. been accepted)
  set %dcc.acc $true
  ;switchbar reload
   .timer -m 1 1 load.switchbar
  .timerdcc.acc 0 1 dcc.acc
}