Ziller Folder Finder

alias zff {
  var %station 67
  write -c ZFF.txt
  write ZFF.txt [Ziller Folder Finder] Search String: $1-
  var %total 0
  echo -a {Ziller Folder Finder] Searching for string: $1-  
  echo -a [Ziller Folder Finder] This can take a while! Be prepeared to wait. mIRC might hang while it searches!
  while (%station <= 90) {
    var %letter $chr(%station) $+ :
    var %type $disk(%letter).type
    if (%type == fixed) {
      var %tothere $finddir(%letter,$1-,0)
      echo -a [Ziller Folder Finder] Searching disk: %letter
      echo -a [Ziller Folder Finder] Found Total: %tothere
      inc %total %tothere
      var %i = 0
      while (%i <= %tothere) {
        inc %i
        write ZFF.txt $finddir(%letter,$1-,%i)
      }
    }
    inc %station
  }
  write ZFF.txt [Ziller Folder Finder] Total %total hits!
  if ($?!="Wanna play the result in window: $active $+ ?" == $true) {
    play ZFF.txt
  }
  else {
    echo [Ziller Folder Finder] The result is saved in ZFF.txt
  }
}