#include "defs.h"

#define LETTERS "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
#define LEV_LINE 29
main(arg) {
  int lev,gt;

  SECURE
  if(!arg) FAIL("Usage: levs [<|>|<=|>=] <level>\n");
  if(sscanf(arg,">%d",lev)) gt=1;
  else if(sscanf(arg,">=%d",lev)) { gt=1; lev--; }
  else if(sscanf(arg,"<%d",lev)) gt=0;
  else if(sscanf(arg,"<=%d",lev)) { gt=0; lev++; }
  else FAIL("Usage: levs [<|>|<=|>=] <level>\n");

  call_out("do_sub",1,({lev,gt,0}));   /* run it in the background :) */
  return 1;
}

do_sub(arr) { /* arr is ({level,greaterthan?,letter}) */
  string *dir,dirname,line;
  int j,lev;

    dirname="/players/"+LETTERS[arr[2]..arr[2]]+"/";
    dir=get_dir(dirname);
    for(j=0;j<sizeof(dir);j++) {
      lev=get_level(dirname+dir[j]);
      if(lev==-1) write(dir[j]+": ERROR! no level\n");
      else if((lev>arr[0] && arr[1]) || (lev<arr[0] && !arr[1]))
        write(dir[j]+": level "+lev+"\n");
    }

  if(arr[2]==strlen(LETTERS)-1) WRITE1("Done levs.\n");
  arr[2]++;
  call_out("do_sub",1,arr);
}

get_level(fname) {
  int i,lev;
  string line;

  line=read_file(fname,LEV_LINE);
  if(line && sscanf(line,"level %d",lev)) return lev;

  i=0;
  while(line=read_file(fname,i++))
    if(sscanf(line,"level %d",lev)) return lev;
  return -1;
}