home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Devil's Doorknob BBS Capture (1996-2003)
/
devilsdoorknobbbscapture1996-2003.iso
/
Dloads
/
WWIVMODS
/
MODS412.ZIP
/
SUBS412.MOD
< prev
next >
Wrap
Text File
|
1990-09-06
|
3KB
|
86 lines
Spotnick #1 @5468
Tue Sep 04 20:30:23 1990
╒═════════════════════════════════════╕
│ *-[SUBS412.MOD]-* │
│ By Spotnick 1@5468 │
│ SysOp of The Fortress of Shadow │
╘═════════════════════════════════════╛
This is a new way to make color sublist for v4.12 with the Network Validation
mod.This is my second mod,I don't know very much about C but I did it!...
And it works fine here,I don't know if it works for v4.11 with CENSOR.MOD
on.I did it with TC++ and all is working fine.
STEP 1
══════════════════════════════════════════════════════════════════════════
Change the Entire Function void sublist in BBS.C
══════════════════════════════════════════════════════════════════════════
void sublist()
{
int ok,i,abort,a,b;
char s[80],s1[50];
abort=0;
outchr(12);
nl();
pla("5 Num 2Sub. Type 1Sub Name. ",&abort);
pla("3______________________________________________________ ",&abort);nl();
i=0;
while ((i<32) && (usub[i].subnum!=-1)) {
if (strcmp(usub[cursub].keys,usub[i].keys))
strcpy(s1,"Yes");
else
strcpy(s1,"No");
strcpy(s,"3 5");
strcat(s,usub[i].keys);
s[8]=0;
if (s[7]==0)
s[8]=32;
if (i<=8)
strcat(s," ");
strcat(s," 3 ");
if (syscfg.systemnumber) {
if (subboards[usub[i].subnum].type) {
if (subboards[usub[i].subnum].anony & anony_val_net)
strcat(s,"3NetworkVal3 1"); /* This is for Network Validation Sub */
else
strcat(s,"7Network 3 1"); /* This is for Normal Network Sub */
} else
strcat(s,"2Local 3 1"); /* This if for Local Sub */
}
strcat(s,subboards[usub[i].subnum].name);
a=(71-(strlen(s)));
for (b=0; b<a; b++)
strcat(s," ");
strcat(s," 3");
if (strcmp(s1,"Yes"))
strcat(s,"");
pla(s,&abort);
i++;
}
pla("3_______________________________________________________ ",&abort);
if (i==0)
pla("6None.",&abort);
nl();
}
════════════════════════════════════════════════════════════════════════════
STEP 2
════════════════════════════════════════════════════════════════════════════
Press F2 and F9! All is done! Take a break and enjoy it!
3-=[1Spotnick3]=-
7SysOp 117@15468
The Fortress of Shadow
(514) 661-1416
WWIVnet Node 5468
Montreal,Canada