AFG_QDEF.MOD (makes Q-Scan configuration easier)
Alken Foijet Godden #9 @8859 ÿSouth 
Sat, Mar 13, 1993 at 3:05:30 pm
1MOD NAME    : 2AFG_QDEF.MOD
1WRITER      : 2Alken Foijet Godden
1DESCRIPTION : 2Makes configuring Q-Scans much, much, much easyer.

  WWIV is a great piece of software especially since modifications are so
simple.  Wayne Bell has done a great job, and although he seems to get a
great deal of flack for his writing style, I think he's proven the worth
of WWIV.
  This is one thing Wayne Bell has ignored for some time.  And now that
WWIV can handle an incredible quantity of subs it is totally nessesary.



/*
In DEFAULTS.C replace the function void l_config_qscan(void) with this
function:
          (if you want you can remove the prototype from FCNS.H)
*/

void my_config_qscan(int start,char star)
{
  int i,abort;
  char s[81];

  abort=0;
  if ((star==0) || (okansi()==0)) {
    outchr(12);
    outstr(get_string(441));
    nl();
  } else
    outstr("\x1B\x5B\x48\x1B\x5B\x42");
  for (i=0;(start<num_subs)&& (i<thisuser.screenlines-5) &&
        (usub[start].subnum!=-1)&&(!abort);start++,i++) {
    if ((!star) || (!okansi())) {
      sprintf(s,"%c %s. %s",
       (qsc_q[usub[start].subnum/32]&(1L<<(usub[start].subnum%32)))?'*':' ',
       usub[start].keys,
       subboards[usub[start].subnum].name);
      pla(s,&abort);
    } else {
      sprintf(s,"%c\x1B\x5B\x31\x44\x1B\x5B\x42",
             (qsc_q[usub[start].subnum/32]&
                      (1L<<(usub[start].subnum%32)))?'*':' ');
      outstr(s);
    }
  }
}

/*
Still in DEFAULTS.C replace the function void config_qscan(void) with this
function:
*/

void config_qscan(void)
{
  char *s,star_only=0;
  int i,done,where=0;

  my_config_qscan(where,star_only);
  done=0;
  helpl=7;
  do {
    nl();
/*
    INPUT THE NEXT STRING INTO THE STRING FILE OR JUST LEAVE IT.

    outstr(get_string(442));

*/
    outstr("Enter Sub #, List ?, Quit, [ENTER] =Next.");
    nl();
    outstr(get_string(443));
    s=mmkey(0);
    outstr("\b\b  ");
    if (s[0]) {
      for (i=0; (i<num_subs) && (usub[i].subnum!=-1); i++)
           if (strcmp(usub[i].keys,s)==0)
             qsc_q[usub[i].subnum/32] ^= (1L<<(usub[i].subnum%32));
      switch (s[0]) {
           case 'Q':
             return;
           case '?':
             if (okansi())
            outstr("\r\x1B\x5B\x4B\x1B\x5B\x31\x41\x1B\x5B\x4B");
          else
            nl();
          outstr("[View Subs] Starting at what number?");
             s=mmkey(0);
             for (i=0; (i<num_subs) && (usub[i].subnum!=-1); i++)
               if (strcmp(usub[i].keys,s)==0)
                 where=i;
               star_only=0;
             break;
           default:
             star_only=1;
             break;
      }
    } else {
      if (((where+thisuser.screenlines-5) < num_subs) &&
            (usub[where+thisuser.screenlines-5].subnum!=-1)) {
     where=(where+thisuser.screenlines-5);
        star_only=0;
      }
    }
    if (okansi() || (!star_only))
      my_config_qscan(where,star_only);
  } while ((!done) && (!hangup));
}

/*
    Congrats', you're done.

    The reason I use HEX instead of the ascii charecters is so there is so
WWIV (or your editor) doesn't mistake them for control charecters.  (in the
transmission of this file)

                             5ê1lk‰n
                                  5Ÿ1¢ij‰ç
                                       5G1åëë‰n
*/