Tree Bar Alternate

on *:KEYDOWN:@WinVate:*: {
  if ($keychar == $chr(13)) {
    scid $gettok($sline(@WinVate,$sline(@WinVate,0).ln),3,32) window -a $sline(@WinVate,$sline(@WinVate,0).ln)
  }
  if ($keychar == $chr(16)) {
    echo @WinVate $chan(0)
  }
}
/*
******************************************************************************************************
FIX THIS SECTION ASAP!!!!!!!!!
******************************************************************************************************
*/
on *:ACTIVE:*: {
  if ($line(@WinVate,$fline(@WinVate,* $+ $window($active) $+ *,1))) {
    echo 9 -st To: $active - From: $lactive
  }
  if (!$line(@WinVate,$fline(@WinVate,* $+ $window($active) $+ *,1))) {
    if (@* iswm $window($active)) {
      halt
    }
    elseif ($line(@WinVate,$fline(@WinVate,* $+ $gettok($window(status window).title,4,32) $+ * $+ $cid $+ *,1))) {
      halt
    }
    elseif (Url List* iswm $window($active)) {
      halt
    }
    else {
      chls
    }
  }
}
alias winvate {
  var %a = $sline(@WinVate,$sline(@WinVate,0).ln))
  var %b = $window(%a).type
  return %a
}
alias chls {
  if (!$window(@WinVate)) {
    window -dlo +d @WinVate 1164 300 112 500
    winv
  }
  if ($window(@WinVate)) {
    clear @WinVate
    winv
  }
}
alias winv {
  clear @WinVate
  window -de @WinVate
  var %scid = 1
  while (%scid <= $scid(0)) {
    scon %scid 
    aline 11 @WinVate $+($chr(3),11,$chr(2),$gettok($window(status window).title,4,32),$chr(3),$chr(2)) $scon(%scid)
    var %chans = 1
    while (%chans <= $window(*,0)) {
      if (Status Window isin $window(*,%chans)) {
        aline 11 @WinVate $+($chr(2),$chr(3),9,$chr(149),$chr(3),$chr(2),$chr(32),$scon(%scid).me,$chr(32),$chr(3),1,%scid)
      }
      elseif (#* iswm $window(*,%chans)) {
        aline @WinVate $window(*,%chans) 1 $scon(%scid)
      }
      elseif (@* iswm $window(*,%chans)) {
        aline @WinVate -
      }
      elseif (URL List iswm $window(*,%chans)) {
        aline @WinVate -
      }
      elseif (#* !iswm $window(*,%chans)) {
        aline 15 @WinVate $window(*,%chans) 1 $scon(%scid)
      }
      elseif ($window(*,%chans) == $window(*,0))) {
        aline 4 @WinVate $+($chr(31),$window(*,%chans),$chr(32),$scon(%scid),$str($chr(32),10))
      }
      inc %chans
    }      
    aline 10 @WinVate $str($chr(149),15)
    inc %scid
  }
  $iif($fline(@WinVate,-,1),filter -cwwxz @WinVate @WinVate -,echo 4 -at * Freak out!)
}