Category : BBS Programs+Doors
Archive   : TONSMOD.ZIP
Filename : FETUS04.MOD

Here's FESTUS4.MOD That You Asked For...
The Doctor #1 @7750
Fri Nov 20 12:59:55 1992
RE: Pleass sedn me FESTUS04.MOd.

2Reply 3: 1Requested0

FESTUS04.MOD Another MultiNet Sublisting NO BOXES HERE
Festus Hagen #1 @5067
Thu Sep 10 18:11:55 1992
Well i have seen only a couple of NON BOXED Multi Net Sublistings.. so heres

one for you that don't like boxes.. (Gawd i hate Boxes) anyways this is my

first release of a mod so i'm sure the Codeing could be improved upon.. But it

works Great for me... For you that are running only one Network just fake the

Second one.. (it works for me)
I'm also working on a Directory listing to match....

Thannx and Enjoy

BTW Thanks Rocker 1@5051 for Helping me remove a bug in it.

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ Mod Name: Festus04.mod Mod Author: Festus Hagen 1@5067 ³
³ Difficulty: Block copy Date: 9/10/92 Rocker 1@5051 ³
³ WWIV Version: 421a Multinet ³
³ Description: Another Sublisting, Single Column With Net listing that works ³
³ you must have at least 2 Networks setup for this mod to work correctly ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

/* FROM: The ' Borg ' BBS Central Cal. (510)634-7236, 14.4b/MNP 2-5
* -=Festus Hagen=-
* WWIVnet 1@5067
* Well with the realese of 421a's Multi net Capabilities..
* There is no longer the room to use side by sides.. Whaaa!!
* So i decided that i was going to have to create my own and i did..
* It may not be the best codeing but its atleast half mine..(Thannx Rocker)
* Anyways enuff of the just and on with a must (have this one)
* i'm new at this stuff So USE AT YOUR OWN risk.. So if
* This mod makes your Computer run off and leave!! Or Teaches your
* Modem to Smoke .. I don't know what to tell ya!! " YOU installed it ".


*
* Watch for line wrap
*
* O-wells enough said
*
* Step #1 BACKUP your source..


*
* Step #2
* ======================== Open BBS.C ==============================
* Search for void sublist(void) and replace with this one, colorize to
* to your liking.. Compile it and move on to the next Mod.
*/


void sublist(void) /* festus04.mod to end note */
{
int abort,i,ok,sam,tally,thissub,counter;
char s[256],s1[81],s2[5],name[8],c;

abort=thissub=0;
nl();
npr(" 2Ä3ÄÄÄÄÄÄÄÄÄÄÍÍÍÍÍÍÍÍÍÍÍ 2% 7] 5Subboards Available 7[ 2% 3ÍÍÍÍÍÍÍÍÍÍÍÄÄÄÄÄÄÄÄ0
3ÄÄ2Ä\r\n");0

nl();
npr(" The 6* 0indiactes the Subboard you are Currently in.\r\n");
npr(" The 1* 0indicates that you WILL See this sub with a New Scan.\r\n");
nl();
npr("2 Num 0Sub Type 5Subboard Topic 0Msg
2New\r\n",&abort);0

npr("2Ä3ÄÄÄÄÄÄÄÄÄÄÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÄÄÄÄÄÄÄ0
3ÄÄÄ2Ä\r\n");0

i=0;
while ((i<64) && (usub[i].subnum!=-1) && (abort==0)) {
sam=tally=0;
if (strcmp(usub[cursub].keys,usub[i].keys))
thissub=1;
else
thissub=6;
sprintf(s1,"3(2%3s3) ",usub[i].keys);0
strcpy(s,s1);
if (usub[i].subnum<32) {
if ((1L << (usub[i].subnum)) & thisuser.qscn) {
sprintf(s2,"%d* ",thissub);0
strcat(s,s2); }
else
strcat(s," ");
} else {
#if MAX_SUBS>32
if ((1L << (usub[i].subnum-32)) & thisuser.qscn2) {
sprintf(s2,"%d* ",thissub);0
strcat(s,s2); }
else
strcat(s," ");
#else
strcat(s," ");
#endif
}
if (net_sysnum) {
if (subboards[usub[i].subnum].type && net_num_max>1) {
if (subboards[usub[i].subnum].age & 0x80) {
sprintf(name,"%-8s5",net_networks[subboards[usub[i].subnum].name[40
50]].name);0

} else {
sprintf(name,"%-8s5",net_networks[0].name);0
}
if (subboards[usub[i].subnum].anony & anony_val_net)
sprintf(s1,"3[0%-8s3] 5",name);0
else
sprintf(s1,"3<0%-8s3> 5",name);0
strcat(s,s1);
} else
strcat(s,"3(0LOCAL 3) 5");0
}
strcat(s,subboards[usub[i].subnum].name);
for (counter=strlen(subboards[usub[i].subnum].name); counter<43; counter++)
strcat(s," ");
strcat(s," ");
iscan(i);
sam=1;
if (i<32)
while((sam<=nummsgs) && (msgs[sam].qscan<=thisuser.qscnptr[usub[i].subnu
m]))

++sam;
else
while((sam<=nummsgs) && (msgs[sam].qscan<=thisuser.qscnptr2[usub[i].subn
um-32]))

++sam;
tally=nummsgs-(sam-1);
sprintf(s1,"3(0%3d3) (2%3d3) ",nummsgs,tally);0
strcat(s,s1);
strcat(s,"\r\n");
npr(s);
if (inkey()!=0)
abort=1;
i++;

}
nl();
if (i==0)
pla("2None.",&abort);0
nl();
} /* festus04.mod End note */



If you use this mod I'd Appreciate it if you would drop me a Note saying if

you like it and if it installs ok... i have Tested this mod on VIRGIN source..

and it sliped right in.. so there should be no probs. if you have any

suggestions i'll look at them as well.

O-yea i have the SCMV13 color mod in as well so i've gone through and
change some of the colors to 0



2-1=7Festus Hagen1=2-0
11 2@ 150670




5ÔÍÍ2Ø5Í͸0

Improve America's Knowledge... Share yours
The Borg... Where minds meet



5ÔÍÍ2Ø5Í͸0

Improve America's Knowledge... Share yours
The Borg... Where minds meet