Forums Scripts & Popups count lines in files

alias count_files {
; $count_files(<wildcard>)
; //echo -a $count_files(LethPhaos*.mrc)
if ($1) {
; ^ ensure $1 is present
var %a = 0
; ^ setup a local variable with 0 as it's value
.echo -q $findfile($mircdir,$1,0,inc %a $lines($shortfn($1-)))
; ^ search through the mIRC directory for files matching the $1 parameter you supplied. Read up on $findfile for depths. Then increments %a with the number of lines of each file found
return $iif(%a,%a,n/a)
; ^ returns the total number of lines from all files found
; ^ the $iif just ensures %a is present, if not, returns n/a
}
}

alias dirlines {
  var %lines
  .echo -q $findfile($1,$2,0,inc %lines $lines($1-))
  return %lines
}

;This alias counts the number of lines of self written code and messages the channel with the result.
;usage is from a event only that produces a $chan value.
alias codedlines {
  ;
  ;Loop Counter set below
  var %i = 1
  ;
  ;Total lines count set below
  var %total = 0
  ;
  ;loop untill no file is located using $findfile, based on loop counter number
  while $findfile($mircdir,LethPhaos Script -- *.mrc,%i) {
    ;
    ; Code enters here only if a file exists
    ;
    ;Add tot total lines the number of lines in the current file
    %total = $calc($lines($v1) + %total)
    ;
    ;increment the loop counter for the next file
    inc %i
    ;
    ;loop ends return to top of loop
  }
  ;
  ;Display the number of lines of self-written code to $chan, which means this must be beiong called from a event.
  msg $chan My mIRC is extended with %total lines of self-written code.
  ;
  ;alias ends.
}