home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / ALLMODS.ZIP / BS07A.ZIP / BS07A.MOD next >
Encoding:
Text File  |  1995-07-12  |  4.5 KB  |  118 lines
  1. Bull Ship #1 @11132
  2. Sun Jul 09 20:58:33 1995
  3. ┌────────────────────────────────────────────────────────────────────────────┐
  4. │ Mod Name      : BS07A.424         Mod Author: Bull Ship 1@1     SierraLink │
  5. │ Difficulty    : █▒▒▒▒▒▒▒▒▒                              1@11132 WWIVnet    │
  6. │ WWIV Version  : 4.24                                    1@2932  IceNET     │
  7. │ Mod Date      : 7/8/95                                  1@2932  TerraNET   │
  8. │ Files Affected: BBS.C, XFER.C                           1@22901 WWIVLink   │
  9. │                                                         1@2932  FishNet    │
  10. │ Description   : Allows users with NEWUSER.SL to see files but not Download │
  11. └────────────────────────────────────────────────────────────────────────────┘
  12. ══[ Description ]═════════════════════════════════════════════════════════════
  13.  
  14. This mod allows newusers to view the files you have... kind of entice them,
  15. but won't let them download, tag or extract them.  This will help get them
  16. to call back <g>.
  17.  
  18. Users that have a DSL that is less than or equal to a NEWUSER.DSL will only
  19. be able to see your files.
  20.  
  21. ══[ Legend ]══════════════════════════════════════════════════════════════════
  22.  
  23.   =  Existing line - Do not change
  24.   +  Add this line
  25.   -  Delete this line
  26.  
  27. ══[ Step 1 ]══════════════════════════════════════════════════════════════════
  28.  
  29. Please back up your source code.  Even the best programmers make mistakes.
  30.  
  31. ══[ Step 2 ]══════════════════════════════════════════════════════════════════
  32. Open MMENU.C, in  void dlmainmenu  find  case 'D' and
  33. add the lines indicated:
  34.  
  35. =     case 'D':
  36. +       if (thisuser.dsl<=syscfg.newuserdsl) {  // BS07A.423
  37. +         nl (); prt(6,get_string(1651));       // BS07A.423
  38. +         break;                                // BS07A.423
  39. +       } else                                  // BS07A.423
  40. =       helpl=20;
  41. =       existprint(get_string(1038));
  42. =       download();
  43. =       break;
  44.  
  45. ══[ Step 3 ]══════════════════════════════════════════════════════════════════
  46. Still in MMENU.C, in  void dlmainmenu  find  case 'G'
  47. and add the lines indicated:
  48.  
  49. =     case 'G':
  50. +       if (thisuser.dsl<=syscfg.newuserdsl) {    // BS07A.423
  51. +         nl (); prt(6,get_string(1651));         // BS07A.423
  52. +         break;                                  // BS07A.423
  53. +       } else                                    // BS07A.423
  54. =       helpl=30;
  55. =       temporary_stuff();
  56. =       break;
  57.  
  58. Save MMENU.C
  59.  
  60. ══[ Step 4 ]══════════════════════════════════════════════════════════════════
  61. Open XFEROVL2.C, in  void tag_files  find case 'D' and
  62. add the lines indicated:
  63.  
  64. =     case 'D':
  65. +       if (thisuser.dsl<=syscfg.newuserdsl) {   // BS07A.423
  66. +         prt(6,get_string(1651));               // BS07A.423
  67. +         nl();                                  // BS07A.423
  68. +         break;                                 // BS07A.423
  69. +       } else                                   // BS07A.423
  70. =       batchdl(1);
  71. =       tagging=0;
  72. =       if (!had) {
  73. =         nl();
  74. =         pausescr();
  75. =         outchr(12);
  76. =       }
  77. =       done=1;
  78. =     break;
  79.  
  80. ══[ Step 5 ]══════════════════════════════════════════════════════════════════
  81. Still in XFER.C, in  void tag_files  find case 'T'
  82. and add the lines indicated:
  83.  
  84. =     case 'T':
  85. +       if (thisuser.dsl<=syscfg.newuserdsl) {   // BS07A.423
  86. +         prt(6,get_string(1651));               // BS07A.423
  87. +         nl();                                  // BS07A.423
  88. +         break;                                 // BS07A.423
  89. +       } else                                   // BS07A.423
  90. =       tag_it();
  91. =     break;
  92.  
  93. Save XFER.C
  94. ══[ Step 6 ]══════════════════════════════════════════════════════════════════
  95.  
  96. Add the following string to your BBS.STR:
  97.  
  98. 6Only Validated Users can do that :)..0
  99.  
  100. Then modify each of the  getstring  commands to indicate the string number you
  101. just added.
  102.  
  103. ══[ Step 7 ]══════════════════════════════════════════════════════════════════
  104.  
  105. Compile your BBS.
  106.  
  107. ══[ Step 8 ]══════════════════════════════════════════════════════════════════
  108.  
  109. Go into Diredit and edit every files directory you want a newuser to see and
  110. give those directories the same DSL that your newusers have.
  111.  
  112. ══[ Disclaimer ]══════════════════════════════════════════════════════════════
  113.  
  114. It works fine here.. I'm not responsible.. if you run into problems I'll try
  115. to help you.  Email me at one of the addresses above.
  116.  
  117. Email me and tell me what you think..
  118.