home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / SYSOP / MODS1.ZIP / SAMAN01.423 < prev    next >
Text File  |  1993-12-11  |  3KB  |  121 lines
  1. ┌───────────────────────────────────────────────────────────────────────────┐
  2. │ Mod name: SAMAN01.423       Mod Author: Secret Agent Man 1@15269          │
  3. │ Difficulty: Not Hard        Date: December 5, 1993                        │
  4. │ WWIV Version: 4.23                                                        │
  5. │ Files Affected: BBSOVL1.C                                                 │
  6. │ Description: New Subslist                                                 │
  7. │                                                                           │
  8. └───────────────────────────────────────────────────────────────────────────┘
  9.  
  10. ALWAYS BUYSC!!!!!!!!!
  11.  
  12.  
  13. This is a boxed subs listing. Just replace void subslist in BBSOVl1.C with the
  14. one below.
  15.  
  16.  
  17. void sublist(void)
  18. {
  19.   int i,i1,abort,oc,os,sn,en;
  20.   char s[80],s1[80],s2[80],s3[80],*ss,ch;
  21.  
  22.   oc=curconfsub; os=usub[cursub].subnum;
  23.  
  24.   abort=0;
  25.   sn=0;
  26.   en=subconfnum-1;
  27.   if (okconf(&thisuser)) {
  28.     if (uconfsub[1].confnum!=-1) {
  29.       nl();
  30.       prt(2,get_string(1019));
  31.       ch=onek("Q A");
  32.       nl();
  33.       switch (ch) {
  34.         case ' ':
  35.           sn=curconfsub;
  36.           en=curconfsub;
  37.           break;
  38.         case 'Q':
  39.           return;
  40.       }
  41.     }
  42.   } else
  43.     oc=-1;
  44.  
  45.   nl();
  46.   ansic_x(1);
  47.   pla(get_string(617),&abort);
  48.   nl();
  49.   i=sn;
  50.  
  51.   while ((i<=en) && (uconfsub[i].confnum!=-1) && (!abort)) {
  52.     if ((uconfsub[1].confnum!=-1) && (okconf(&thisuser))) {
  53.       setuconf(CONF_SUBS, i, -1);
  54.       sprintf(s,"1%s %c0:2 %s",get_string(1021),0
  55.         subconfs[uconfsub[i].confnum].designator,
  56.         stripcolors(subconfs[uconfsub[i].confnum].name));
  57. #ifndef OPT_EXTRA_COLOR
  58.       pla(stripcolors(s),&abort);
  59. #else
  60.       pla(s,&abort);
  61. #endif
  62.     }
  63.     i1=0;
  64.     pla("2 Num   Net       Sub-Title           ",&abort);0
  65.     npr("7╔═══╦═══════════╦═════════════════════════════════════════╗\r\n",&abor0
  66. t);
  67.     while ((i1<num_subs) && (usub[i1].subnum!=-1) && (!abort)) {
  68.       sprintf(s,"7║2%3.3s7║",usub[i1].keys);0
  69.       if (qsc_q[usub[i1].subnum/32]&(1L<<(usub[i1].subnum%32)))
  70.         strcat(s,get_string(3));
  71.       else
  72.         strcat(s,get_string(4));
  73.       if (net_sysnum || (net_num_max>1)) {
  74.         if (xsubs[usub[i1].subnum].num_nets) {
  75.           if (xsubs[usub[i1].subnum].num_nets>1)
  76.             ss=get_string(1022);
  77.           else
  78.             ss=stripcolors(net_networks[xsubs[usub[i1].subnum].nets[0].net_num]
  79. .name);
  80.           if (subboards[usub[i1].subnum].anony & anony_val_net)
  81.         sprintf(s1,"1%-8.8s7║",ss);0
  82.       else
  83.         sprintf(s1,"1%-8.8s7║",ss);0
  84.       strcat(s,s1);
  85.     } else {
  86.       sprintf(s,"7║2%3.3s7║",usub[i1].keys);0
  87.       sprintf(s3,"2   %s   7║","Local");0
  88.       strcat(s,s3);
  89.     }
  90.       }
  91.       sprintf(s2," 5%-39.39s7 ║",subboards[usub[i1].subnum].name);0
  92.       strcat(s,s2);
  93.  
  94. #ifndef OPT_EXTRA_COLOR
  95.       pla(stripcolors(s),&abort);
  96. #else
  97.       pla(s,&abort);
  98. #endif
  99.       i1++;
  100.     }
  101.     npr("7╚═══╩═══════════╩═════════════════════════════════════════╝\r\n",&abor0
  102. t);
  103.  
  104.     i++;
  105.     nl();
  106.     if (!okconf(&thisuser))
  107.       break;
  108.   }
  109.   if (i==0) {
  110.     ansic(6);
  111.     pla(get_string(5),&abort);
  112.     nl();
  113.   }
  114.  
  115.   if (okconf(&thisuser))
  116.     setuconf(CONF_SUBS, oc, os);
  117. }
  118.  
  119.  
  120.                             7S1ecret 7A1gent 7M1an0
  121.