home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / MODS / GOD02A.ZIP / GOD02A.MOD < prev   
Encoding:
Text File  |  1995-06-17  |  8.4 KB  |  242 lines
  1. Godarky #1 @12108
  2. Thu Jun 15 18:24:27 1995
  3. ┌────────────────────────────────────────────────────────────────────────────┐
  4. │ Mod Name      : GOD02A.MOD               Mod Author: Godarky               │
  5. │ Difficulty    : ██████▒▒▒▒(EASY)                          1@12108 WWIVnet  │
  6. │ WWIV Version  : 4.24                                      1@5305  ICEnet   │
  7. │ Mod Date      : 06/15/95                                  1@12    ULTRAnet │
  8. │ Files Affected: MMENU.C FCNS.H MENUS.MSG MENUSANS.MSG     1@507   InfiNet  │
  9. │ Description   : Ask to go to CD-Rom door or regular transfer area, Access  │
  10. │   is regulated by both DAR and DSL (Adult and Non Adult regulated)         │
  11. └──┬─────────────────────────────────────────────────────────────────────────┘
  12.     │This mod was ORIGINALLY written by REDMAN 1@1300(WWIVnet) for WWIV v4.23.
  13.     │While some of the existing code in this mod was *his*,  I did some
  14.     │rewriting to make it more how I wanted it, as well as to make it work
  15.     │with WWIV 4.24. Thus I have renamed it. And am releasing it for the other
  16.     │people out there who would like to use this mod with 4.24.
  17.  
  18.  
  19.         KEY
  20. ----------------
  21.  = Existing Code
  22.  + Add Code
  23.  - Cut Out Code
  24. =+ Modify Code
  25. ----------------
  26.  
  27.  
  28. !!!NOTE!!!
  29.  
  30.     This mod is *NOT* to be distributed on or as a part of ANY CD-ROM
  31.     Collection. It is for REGISTERED owners of WWIV *ONLY*! And thus
  32.     only REGISTERED owners should have access to this modification.
  33.  
  34. -------------------
  35. Step 1: My system is different than yours. However, at the time this was
  36.           written, my system was almost VIRGIN source code, and I can't really
  37.           see any reason why this would not work on simmilair systems, since
  38.           the code for it is primarily independant. This said, you should
  39.           backup your source code before installing it, so you wont have to
  40.           see how callous I can be when somone leaves me E-mail saying "Your
  41.           mod screwed up my entire system". While this is an exaggeration,
  42.           the mod in it's un-modified form is incapable of destroying your
  43.           hard drive, I did say to back up the source, so any liability will
  44.           be your own. Nuff Said!
  45.  
  46.  
  47. Step 2: Open up MMENU.C and add the following at the top of the file:
  48.  
  49. = #include "vars.h"
  50. + #include <conio.h>
  51.  
  52.  
  53. Step 3: Go to void mainmenu(void). Search for case 'T' and add this one line.
  54.  
  55. =     case 'T':
  56. =          if (syscfg.sysconfig & sysconfig_no_xfer) {
  57. =             nl();
  58. =             pl(get_string(30));
  59. =             nl();
  60. =             break;
  61. =          }
  62. =          if ((udir[0].subnum==-1) && (okconf(&thisuser))) {
  63. =             for (curconfdir=0;
  64. =                    (curconfdir<dirconfnum) &&
  65. =                    (uconfdir[curconfdir].confnum!=-1);
  66. =                    curconfdir++) {
  67. =                setuconf(CONF_DIRS, curconfdir, -1);
  68. =                if (udir[0].subnum!=-1)
  69. =                  break;
  70. =             }
  71. =          }
  72. =          if (udir[0].subnum!=-1) {
  73. =             write_inst(INST_LOC_XFER,udir[curdir].subnum,INST_FLAGS_NONE);
  74. =             curdloads=1;
  75. =             play_sdf(get_string(1037),0);
  76. =             if (existprint(get_string(1037)))
  77. =             pausescr();
  78. +             cdrom();  /* god02a.mod */
  79.  
  80. Step 4: Insert this entire void right before void dlmainmenu(void)
  81.  
  82. -S-T-A-R-T--B-L-O-C-K--C-O-P-Y--H-E-R-E-!-!-
  83.  
  84. void cdrom(void)
  85. {
  86. char ch;
  87.  
  88. if (((thisuser.dar) & 1) && (thisuser.dsl>=30)) {
  89.   clrscr();
  90.   printmenu(28);
  91.   prt(7,"Your Choice is: ");
  92.   ch=onek("ASR");
  93.   switch(ch) {
  94.      case 'A':
  95.         sysoplog("2Ran Adult CD-COM0");
  96.         extern_prog("ACDROM.BAT", EFLAG_SHRINK);  /* See GodNote #1 at End */
  97.         nl();
  98.         nl();
  99.         prt(7,"Returning You To The Treasonous Rendezvous Main-Menu");
  100.         nl();
  101.         pausescr();
  102.         curdloads=0;
  103.         break;
  104.      case 'S':
  105.         sysoplog("2Ran Shareware CD-COM0");
  106.         extern_prog("CDROM.BAT", EFLAG_SHRINK);   /* See GodNote #2 at End */
  107.         nl();
  108.         nl();
  109.         prt(7,"Returning You To The Treasonous Rendezvous Main-Menu");
  110.         nl();
  111.         pausescr();
  112.         curdloads=0;
  113.         break;
  114.      case 'R':
  115.         sysoplog("2Transfer Area0");
  116.      break;
  117.   }
  118. } else {
  119.   clrscr();
  120.   printmenu(29);
  121.   prt(7,"Your Choice is: ");
  122.     ch=onek("12");
  123.     switch(ch) {
  124.       case '1':
  125.          sysoplog("2Ran Shareware CD-COM0");
  126.          extern_prog("CDROM.BAT", EFLAG_SHRINK);  /* See GodNote #2 At End */
  127.          nl();
  128.          nl();
  129.          prt(7,"Returning You To The Treasonous Rendezvous Main-Menu");
  130.          nl();
  131.          pausescr();
  132.          curdloads=0;
  133.          break;
  134.       case '2':
  135.          sysoplog("2Transfer Area0");
  136.       break;
  137.     }
  138. }
  139. }
  140.  
  141. -E-N-D--B-L-O-C-K--C-O-P-Y--H-E-R-E-!-!---------
  142.  
  143.  
  144. Step 5: Leave editor and type MAKE FCNS from a dos prompt.
  145.  
  146.  
  147. Step 6: Recompile (Its a full recompile, since we had to do a MAKE FCNS.
  148.           So if you are still using an old 8088, you may wanna go grab some
  149.           dinner or catch a quick flick.
  150.  
  151. Step 7: Cut out the 2 Menus below (together/one-cut) and past them to the
  152.           to the end of your MENU.MSG & MENUANS.MSG files in your GFILE
  153.           Sections. You don't have to use these menus. They are kinda plain,
  154.           so you may wanna make your own. If you are lazy, and decide to use
  155.           these, hopefully you wont be too lazy to change the BBS Names on
  156.           the menus.
  157.  
  158.  
  159. -S-T-A-R-T--B-L-O-C-K--C-O-P-Y--B-E-L-O-W--T-H-I-S--L-I-N-E----------------
  160.  
  161. `28 ======================= Adult CD-Rom Access Menu =====================
  162.  
  163.  
  164.  
  165.               4╔════════════════════════════╗0
  166.               4║7T.R.BBS Adult Transfer Menu 4║0
  167.               4╠════════════════════════════╣0
  168.               4║7       2A7dult CD-ROMS        4║0
  169.               4║7     2S7hareWare CD-ROMS      4║0
  170.               4║7  2R7egular Hard Drive Files  4║0
  171.               4╠════════════════════════════╣0
  172.               4║7  Type the first letter of  4║0
  173.               4║7  the area that you want.   4║0
  174.               4╚════════════════════════════╝0
  175.  
  176. `29 =================== Non Adult CD-Rom Access Menu ===================
  177.  
  178.  
  179.               4╔════════════════════════════╗0
  180.               4║1   T.R. BBS Transfer Menu   4║0
  181.               4╠════════════════════════════╣0
  182.               4║1   21  1ShareWare CD-ROMS     4║0
  183.               4║1 22 1Regular Hard Drive Files 4║0
  184.               4╠════════════════════════════╣0
  185.               4║1    Type the Number of the  4║0
  186.               4║1      area that you want.   4║0
  187.               4╚════════════════════════════╝0
  188.  
  189. -E-N-D--B-L-O-C-K--C-O-P-Y--A-B-O-V-E--T-H-I-S--L-I-N-E--------------------
  190.  
  191. Notes From Godarky on the mod:
  192.  
  193. GodNote #1: Name the file on this line to the name of the BATCH file which
  194.                 runs your ADULT CD-ROM door.
  195.  
  196. GodNote #2: Name the file on these lines to the name of the Batch file which
  197.                 runs your SHAREWARE CD-ROM door.
  198.  
  199.  
  200. Notes From RedMan on DAR's and DSL's which can be applied to this mod.
  201.  
  202. Note 1:
  203.   I use DAR A for Adult access (DAR 1) and DAR C for access to the CD-Roms
  204.   (DAR 4). You can change these to wahtever you want. I also use an DSL
  205.   to access the cd-roms. This can also be changed to what ever you want.
  206.   I have it this way because I use donations to access CD-ROMS. This works
  207.   great for my BBS.
  208. Note 2:
  209.   I use the cd rom door called CDCOM so for the ADULT section I have the
  210.   mod call up the adult cdcom section. ( I have two different sections
  211.   one for adults and one for shareware. CDCOM works great with this setup.)
  212.   You need to make a batch file with this name (or what ever you want) to
  213.   call the adult cd rom door.
  214. Note 3:
  215.   This is the batch file name for the shareware cd rom door. Make this batch
  216.   file and use this name or you can change it to what you want.
  217. Note 4:
  218.   If the user does not have an DAR of A and an DAR of C it will go here and
  219.   check if the user has just a DAR of C with a DSL of at least 30. If the user
  220.   matches this they get access to just the shareware cd roms. The DAR as well
  221.   as the DSL are up to you.
  222. Note 5:
  223.           If your access to CD ROMs are not regulated by DSL just remove the
  224.           DSL section, like so:
  225. if (((thisuser.dar) & 1) && ((thisuser.dar) & 4) {
  226.           Or if yuo only want a certian DSL of say just 30 to access as well as
  227.           the dar's  make the >=30 look like ==30, or whatever DSL you want.
  228.           it would look like the following.
  229. if (((thisuser.dar) & 1) && ((thisuser.dar) & 4) && (thisuser.dsl==30)) {
  230.                                                   changed here   ^
  231.  
  232.  
  233. Finale': If you liked this mod, please enjoy it. I don't find it necissary
  234.             for you to write me and tell me that you are using it. It seems
  235.             like a waste of bandwidth to me, since I would have done this
  236.             rewrite anyhow for my own BBS. If you feel the need to write
  237.             somone and let them know you are using this mod, write REDMAN
  238.             and let him know that you are happy that he made the *MODEL* for
  239.             me to base this mod on.
  240.  
  241. Fine'
  242.