home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / FMD-21A.ZIP / FMD-21A.MOD
Encoding:
Text File  |  1995-06-09  |  5.2 KB  |  150 lines
  1. Nicolas Leblanc #2 @20302
  2. Wed Jun 07 03:40:00 1995
  3. 0R 34 06/09 07:13 WWIVNET 4051->8421
  4. 0R 34 06/08 18:18 WWIVNet 4001->4051
  5. 0R 34 06/08 14:07 WWIVnet 4000->4001
  6. 0R 34 06/08 05:34 WWIVnet ->4000
  7. 0R 34 06/07 22:42 WWIVnet 4001->4000
  8. 0R 34 06/08 06:43 WWIVnet 20001->4001
  9. 0R 34 06/07 03:54 WWIVnet 20302->20001
  10. 0R 34 06/07 03:46 WWIVnet ->20302
  11.  
  12.    ┌┬─── ──  ─   ─  ── ───────────────────────────────────────────────────┬─ ∙∙
  13.    ││                    Alternative Worlds Presents                      │
  14.    └┼─────────────────────────────────────────────────────────────────────┐
  15.    ││ Mod Name       » FMD-21a.MOD                                        │∙
  16.    ││ Difficulty     » █▒▒▒▒▒▒▒▒▒▒ (1/10)                                 │:
  17.    ││ WWIV Version   » 4.24                                               ││
  18.    ││ Date Affected  » 06/01/95                                           ││
  19.    :│ Files Affected » SUBEDIT.C                                          ││
  20.    ∙│ Description    » Enhance The Addition Of Networked Subs             ││
  21.     └─────────────────────────────────────────────────────────────────────┼┐
  22.     │       A French Mod Division Release - (C) 1995 FMD Software         ││
  23. ∙∙ ─┴─────────────────────────────────────────────────── ──  ─   ─  ── ───└┘
  24.  
  25.  ┌┬══════════════════┐
  26.  ││ Long Description ││
  27.   └══════════════════┴┘
  28.  
  29.   Are you bored to do things twice sometimes in WWIV? I was but, like many
  30. people I didn't even bothered. Bilbo post on our support sub a mod idea, and
  31. some code, suddenly I tought it was a good idea and decided to do a mod about
  32. it. I enhance it a bit, and it goes like this:
  33.  
  34. Features:
  35.  
  36. - When you create a new network sub, you'll be asked if you wish to use
  37.   SUBS.LST description as sub's name (The "O" field in boardedit).
  38. - You will be asked if you wish to use the SUBTYPE as the FILENAME
  39. - WWIV will check if the filename already exist, to avoid dupes.
  40.  
  41.   In a way, this won't be the mod of the decade, but I never seen actually one
  42. like this, so it might help a few sysop out there. And it's very easy to
  43. install.
  44.  
  45. Revision A:
  46.  
  47.  - Updated For WWIV v4.24
  48.  
  49.  ┌┬═══════┐
  50.  ││ Tests ││
  51.   └═══════┴┘
  52.  
  53.   This modification has been tested on a virgin WWIV v4.24 source using
  54.   Borland C++ v4.5
  55.  
  56. ──────────────────────────────────────────────────────────────────────────────
  57.                                    Legend
  58.                           ╔═══╤══════════════════┐
  59.                           │ + │ Add This Line    │
  60.                           │ - │ Delete This Line │
  61.                           │ * │ Modify This Line │
  62.                           │ = │ Existing Line    │
  63.                           └═══╧══════════════════╝
  64. ───[Step 1]────────────────────────────────────────────────────────────────────
  65.  
  66. Load SUBEDIT.C and do the following changes to void modify_sub:
  67.  
  68. = void modify_sub(int n)
  69. = {
  70. =   subboardrec r;
  71. =   char s[81],s1[81],s2[81],ch,ch2,ch3;
  72. *   int i,done,wrong=0;
  73. =   xtrasubsnetrec *xnp;
  74.  
  75. Lower...
  76.  
  77. =       input(s,8);
  78. =    if ((s[0]!=0) && (strchr(s,'.')==0)) {
  79. =      sprintf(s2,"%s",r.filename);
  80. +      for (i=0; i<num_subs; i++) {
  81. +        if (strcmp(subboards[i].filename, s)==0)
  82. +          wrong=1;
  83. +      }
  84. +      if (wrong) {
  85. +        nl();
  86. +        pl("6This filename is already taken or data files exists!");0
  87. +        nl();
  88. +        pausescr();
  89. +        break;
  90. =      }
  91. =         strcpy(r.filename,s);
  92.  
  93. Lower in the same function:
  94.  
  95. =                sub_xtr_add(n, i);
  96. =              }
  97. =            }
  98. =          }
  99. =        }
  100. +        r=subboards[n];
  101. +        if (xsubs[n].desc[0]) {
  102. +          nl();
  103. +          if (strcmpi(r.name,get_string(210))==0) {
  104. +            npr("9Use %c1%.39s9%c as the sub name? ",34,xsubs[n].desc,34);
  105. +            if (ny()) {
  106. +              sprintf(r.name,"%.39s",xsubs[n].desc);
  107. +            }
  108. +            if (strcmpi(r.filename,get_string(82))==0) {
  109. +              xnp=xsubs[n].nets;
  110. +              npr("9Use %c1%s9%c as filename? ",34,xnp->stype,34);
  111. +              if (ny()) {
  112. +                sprintf(s1,"%s%s.sub",syscfg.datadir,xnp->stype);
  113. +                if (exist(s1)) {
  114. +                  nl();
  115. +                  pl("6This filename is already taken or data files exists!");
  116. +                  nl();
  117. +                  pausescr();
  118. +                } else
  119. +                  strcpy(r.filename,xnp->stype);
  120. +              }
  121. +            }
  122. +          }
  123. +        }
  124. =        break;
  125. =      case 'K':
  126.  
  127.  
  128. ───[Step 2]────────────────────────────────────────────────────────────────────
  129.  
  130.  
  131. Just compile back your BBS, everything should be fine.
  132.  
  133. French Proverb: Qui va à la chasse perd sa place.
  134.  
  135. For comments, bug report and suggestion, e-mail at the following address:
  136.  
  137. Nicolas LeBlanc  2@20302.WWIVnet (aka Spotnick)
  138.                  -> spotnick@gamemaster.qc.ca
  139. Martin Bourdages 242@20306 / 3@20302.WWIVnet (aka Dark Shadow)
  140.                  -> martin.bourdages@radio.magicnet.com
  141.  
  142.                  =>   French Mod Division Support Sub   <=
  143.                                 SubType: FMD
  144.                            Host: @20302 (WWIVnet)
  145.                       Scan sublist for other networks
  146.  
  147.         Read PRODUCTS.FMD for the full list of our support systems.
  148.  
  149. ───[EOF]──────────────────────────────────────────────────────────────────────
  150.