home *** CD-ROM | disk | FTP | other *** search
- Spotnick #1 @20397
- Mon Jun 05 02:05:58 1995
- 0R 34 06/09 07:13 WWIVNET 4051->8421
- 0R 34 06/08 18:18 WWIVNet 4001->4051
- 0R 34 06/08 14:07 WWIVnet 4000->4001
- 0R 34 06/08 05:34 WWIVnet ->4000
- 0R 34 06/05 22:43 WWIVnet 4001->4000
- 0R 34 06/06 06:35 WWIVnet 20001->4001
- 0R 34 06/05 02:07 WWIVnet 20397->20001
- 0R 34 06/05 02:10 WWIVnet ->20397
-
- ┌┬─── ── ─ ─ ── ───────────────────────────────────────────────────┬─ ∙∙
- ││ Alternative Worlds Presents │
- └┼─────────────────────────────────────────────────────────────────────┐
- ││ Mod Name » FMD-05a.MOD │∙
- ││ Difficulty » █▒▒▒▒▒▒▒▒▒▒ (1/10) │:
- ││ WWIV Version » 4.24 ││
- ││ Date Affected » 06/01/95 ││
- :│ Files Affected » BBSOVL1.C ││
- ∙│ Description » Multi-Network Sub-Listing ││
- └─────────────────────────────────────────────────────────────────────┼┐
- │ A French Mod Division Release - (C) 1995 FMD Software ││
- ∙∙ ─┴─────────────────────────────────────────────────── ── ─ ─ ── ───└┘
-
-
- ┌┬══════════════════┐
- ││ Long Description ││
- └══════════════════┴┘
-
- This modification will display a dual columns sub listing with different
- network identifiers. Someone said that a picture is worth a thousand words,
- so here's what it will look like on your system. This version will work with
- any amount of networks on your system.
-
- 7┌─────┬────────────────────────────────┬─────┬───────────────────────────────┐
- 7│4 Num 7│4 Name 7│4 Num 7│4 Name 7│
- 7└─────┴────────────────────────────────┴─────┴───────────────────────────────┘
- 1 ^ French Mod Division Support Sub 2 ^ WWIVsys Development Sub
- 3 ^ FrancoLinkC4 ^ US Robotics Support Sub
- 5 ^ *BONG: The Depeche Mode Network 6 ^ Internet: *BONG - The Depeche Mo
- 7 ^ Bizarre Sub Triangle - The New O 8 ^ Suburbia - The Pet Shop Boys Are
- 9 ^ The RIP Art GalleryC10 ^ The RIP Art Discussion Net
- 11 ^ Asylum Mod Group SupportC12 Alternative SysOp
- 13 * The WWIV Support NetworkC14 ^ The Gravis UltraSound Support Ne
- 15 * WWIVmedia Mods SubC16 * WWIVmedia Modifications Discussi
- 17 * C++ Programming Tips and Tricks 18 * The Baseball Net
- 19 * TerraNET: Sysop DiscussionC20 * WWIVnet: Québec Sysop Net
- 21 * IceNET: Montréal Sysop Sub
-
-
- * = WWIVnet, * = WWIVlink, * = IceNET, * = TerraNET, * = TARDISnet,
- * = FILEnet, * = WWIVmedia, * = TestNET, ^ = Gated.
-
- 7[1Conf Main7]
- 7[1N7]1ew Conf7, [1Q7]1uit7, [1#7]1 Go to Sub #7: 0
-
-
- Note: ^ means that the sub is gated. You host or gate that sub yourself
- * means that the sub is networked, by the color listed on the net list
- below.
-
- Revision A:
-
- - Updated For WWIV v4.24
-
- ┌┬═══════┐
- ││ Tests ││
- └═══════┴┘
-
- This modification has been tested on a virgin WWIV v4.24 source using
- Borland C++ v4.5
-
- ──────────────────────────────────────────────────────────────────────────────
- Legend
- ╔═══╤══════════════════┐
- │ + │ Add This Line │
- │ - │ Delete This Line │
- │ * │ Modify This Line │
- │ = │ Existing Line │
- └═══╧══════════════════╝
- ───[Step 1]────────────────────────────────────────────────────────────────────
-
- Load BBSOVL1.C and replace void sublist by the following one:
-
- void sublist(void)
- {
- int i, i1, abort, sn, en, done=0;
- char s[80], s1[80], *ss, ch, id1, id2, c1, c2, c3;
- xtrasubsnetrec *xnp, *xnp2;
-
- abort=0;
- sn=0;
- c3=thisuser.colors[0];
- thisuser.colors[0]=15;
- en=subconfnum-1;
- do {
- if (okconf(&thisuser)) {
- sn=curconfsub;
- en=curconfsub;
- }
- nl();
- i=sn;
- while ((i<=en) && (uconfsub[i].confnum!=-1) && (!abort)) {
- i1=0;
- pla("7┌─────┬────────────────────────────────┬─────┬───────────────────────────────┐",&abort);
- pla("7│4 Num 7│4 Name 7│4 Num 7│4 Name 7│ ",&abort);
- pla("7└─────┴────────────────────────────────┴─────┴───────────────────────────────┘0",&abort);
- while ((i1<num_subs) && (usub[i1].subnum!=-1) && (!abort)) {
- if (xsubs[usub[i1].subnum].num_nets) {
- if (xsubs[usub[i1].subnum].num_nets>1)
- id1='^';
- else
- id1='*';
- } else
- id1=32;
- if ((xsubs[usub[i1+1].subnum].num_nets) && (i1+1<num_subs) && (usub[i1+1].subnum!=-1)) {
- if (xsubs[usub[i1+1].subnum].num_nets>1)
- id2='^';
- else
- id2='*';
- } else
- id2=32;
- xnp=xsubs[usub[i1].subnum].nets;
- xnp2=xsubs[usub[i1+1].subnum].nets;
- if (xsubs[usub[i1].subnum].num_nets) {
- if (xsubs[usub[i1].subnum].num_nets>1)
- c1=12;
- else {
- c1=xnp->net_num+1;
- if (c1>=12)
- c1++;
- }
- } else
- c1=0;
- if ((xsubs[usub[i1+1].subnum].num_nets) && (i1+1<num_subs) && (usub[i1+1].subnum!=-1)) {
- if (xsubs[usub[i1+1].subnum].num_nets>1)
- c2=12;
- else {
- c2=xnp2->net_num+1;
- if (c2>=12)
- c2++;
- }
- } else
- c2=0;
- npr(" %3.3s ", usub[i1].keys, &abort);
- setc(c1);
- outchr(id1);
- npr("%c%d %-32.32s", 3, 0, subboards[usub[i1].subnum].name);
- if ((i1+1<num_subs) && (usub[i1+1].subnum!=-1)) {
- npr(" %3.3s ", usub[i1+1].keys);
- setc(c2);
- outchr(id2);
- sprintf(s, "%c%d %-32.32s", 3, 0, subboards[usub[i1+1].subnum].name);
- pla(s, &abort);
- }
- i1+=2;
- }
- i++;
- nl();
- if (!okconf(&thisuser))
- break;
- }
- if (i==0) {
- ansic(6);
- pla("None.",&abort);
- nl();
- }
- nl();
- if (net_num_max>1) {
- for (i=0; i<net_num_max; i++)
- {
- if (strlen(net_networks[i].name)+6>80-WhereX())
- nl();
- if (i<11)
- setc(i+1);
- else
- setc(i+2);
- npr("*0 = %s, ", net_networks[i].name);
- }
- if (WhereX()>70)
- nl();
- npr("6^0 = Gated.");
- nln(2);
- }
- if (okconf(&thisuser))
- npr("7[1Conf %s7]\r\n", subconfs[uconfsub[curconfsub].confnum].name);
- npr("%s7[1Q7]1uit7, [1#7]1 Go to Sub #7:0 ",
- (okconf(&thisuser))?"7[1N7]1ew Conf7, ":"");
- input(s, 4);
- switch (upcase(s[0]))
- {
- case '#':
- nl();
- pl(get_string(939));
- nl();
- break;
- case 'Q':
- case '\r':
- done=1;
- break;
- case 'N':
- if (okconf(&thisuser))
- jump_conf(CONF_SUBS);
- break;
- default:
- for (i=0; (i<num_subs) && (usub[i].subnum!=-1); i++)
- if (strcmp(usub[i].keys,s)==0)
- cursub=i;
- done=1;
- break;
- }
- } while ((!done) && (!hangup));
- thisuser.colors[0]=c3;
- }
-
- ───[Step 2]────────────────────────────────────────────────────────────────────
-
- Now recompile and you're done!
-
- French Proverb: Pierre qui roule n'amasse pas mousse.
-
- For comments, bug report and suggestion, e-mail at the following address:
-
- Nicolas LeBlanc 2@20302.WWIVnet (aka Spotnick)
- -> spotnick@gamemaster.qc.ca
- Martin Bourdages 242@20306 / 3@20302.WWIVnet (aka Dark Shadow)
- -> martin.bourdages@radio.magicnet.com
-
- => French Mod Division Support Sub <=
- SubType: FMD
- Host: @20302 (WWIVnet)
- Scan sublist for other networks
-
- Read PRODUCTS.FMD for the full list of our support systems.
-
- ───[EOF]──────────────────────────────────────────────────────────────────────