home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / WWIVMODS / MODSUNKN.ZIP / MAILMENU.MOD < prev    next >
Text File  |  1990-06-17  |  7KB  |  220 lines
  1. Shadow-Starr #1 @2374
  2. Friday, June 8, 1990   6:44 pm
  3.  
  4.  
  5.  
  6.  
  7.     <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
  8.      |               STARR-MAIL Center v2.00               |
  9.      |                               |
  10.      |                   by                          |
  11.      |               √hæδσw-√╤æττ 1@2374                 |
  12.     <___________________________________________________________>
  13.  
  14.  
  15.  
  16.     Here's an updated version to the mod I released a while back
  17. (STARR01.MOD) that does the new things I promised (only thing I left out
  18. was //LOAD and that was only because I forgot about it).
  19.  
  20.     Again, basically this serves as a seperate mail menu.. apart from
  21. transfers and the message base.  It stems directly from the main menu (via
  22. command "E") and not the message base menu (if you've seperated the two like
  23. I have -- if not, it still comes from the main menu).
  24.  
  25.     The one primary difference between this version and v1.00 is that
  26. this version is placed in BBS.C and not BBSUTL.C and requires an addition to
  27. the VARS.H file (very small though).  So let's get down to things...
  28.  
  29. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  30. STEP ONE:
  31.      In BBS.C, search down to VOID MAINMENU(); and insert this block of code
  32.      above it...
  33.  
  34.  
  35.  
  36. void feedback()
  37. {
  38.   char ch,s1[80];
  39.  
  40.   nl();
  41.   if ((sysstatus_expert & thisuser.sysstatus)==0)
  42.     printmenu(16);
  43.   tleft(1);
  44.   print("T - ",ctim(nsl()),"");
  45.   prt(1,"() Phoenix Express Feedback (> ");    /* Your BBS name goes here */
  46.   ch=onek("1234567AEKMQRU?");
  47.   switch(ch) {
  48.     case '?':
  49.        if ((sysstatus_expert & thisuser.sysstatus))
  50.        printmenu(16);
  51.       break;
  52.     case '1':
  53.        strcpy(irt,"Feedback");
  54.        email(1,0,0,0);                        /* This is your number */
  55.       break;
  56.     case '2':
  57.        strcpy(irt,"Feedback to Remote SysOp");
  58.        email(9,0,0,0);                        /* Remove any or all of these */
  59.       break;                                  /* little management areas    */
  60.     case '3':                                 /* but remove the number from */
  61.        strcpy(irt,"Feedback to Remote SysOp (MESSAGE BASE)"); /* the line   */
  62.        email(3,0,0,0);                        /* that says ch=onek("...");  */
  63.        break;
  64.     case '4':
  65.        strcpy(irt,"Co-SysOp Feedback (USER MEETS)");
  66.        email(2,0,0,0);
  67.       break;
  68.     case '5':
  69.        strcpy(irt,"Co-SysOp Feedback (TRANSFERS)");
  70.        email(18,0,0,0);
  71.       break;
  72.     case '6':
  73.        strcpy(irt,"Co-SysOp Feedback (USER ENFORCEMENT)");
  74.        email(8,0,0,0);
  75.       break;
  76.     case '7':
  77.        strcpy(irt,"Co-SysOp Feedback (PUBLIC RELATIONS/COMPLAINTS)");
  78.        email(12,0,0,0);
  79.       break;
  80.     case 'A':                                 /* This is MAILR              */
  81.       if ((so()) && (checkpw())) {
  82.     sysoplog("9<><>     READ ALL MAIL    <><>");
  83.     mailr();
  84.       }
  85.       break;
  86.     case 'E':
  87.       send_email();
  88.       break;
  89.     case 'K':
  90.       helpl=8;
  91.       kill_old_email();
  92.       break;
  93.     case 'M':            /* Multi-Mail */
  94.       slash_e();
  95.       break;
  96.     case 'Q':            /* Quit       */
  97.       somemail=0;
  98.       break;
  99.     case 'R':            /* Read your mail */
  100.       if(thisuser.waiting>0) {
  101.     readmail();
  102.       } else {
  103.     nl();
  104.     pl("6There's nothing here for you!");
  105.     nl();
  106.       }
  107.       break;
  108.     case 'U':            /* This is UPLOAD */
  109.       if (thisuser.sl>20) {
  110.     upload_post();
  111.       }
  112.       break;
  113.   }
  114. }
  115.  
  116. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  117. STEP TWO:
  118.      In void mainmenu();, remove cases F, M, K.  Search down to case 'E' and
  119.      make it llok like:
  120.  
  121.       case 'E':
  122.     somemail=1;
  123.     break;
  124.  
  125. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  126. STEP THREE:
  127.      Now search for "main_menu_label:" (sans quotes) type in the following:
  128.  
  129.  
  130. --main_menu_label:
  131. --      while (!hangup) {
  132. --      if (curdloads)
  133. --        dlmainmenu();
  134. ++      else if (somemail)
  135. ++        feedback();
  136. --      else if ((!curdloads) && (!curmes))
  137. --        mainmenu();
  138. --      }
  139. --      logoff();
  140.  
  141. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  142. STEP FOUR:
  143.      As long as we're in the ????????.C files, we might as well make sure that
  144.      v1.00 is gone, so go over to BBSUTL.C and search for void feedback(); and
  145.      delete the entire block of code.  (Make sure that you aren't deleting
  146.      something essential... that you are only removing version 1.00 of STARR-
  147.      MAIL!).  Once that is done, we can move on to the other things...
  148.  
  149. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  150. STEP FIVE:
  151.  
  152.      Now, in VARS.H, search down for the line:
  153.  
  154. int cursub,curdir,..... (without the ..... part)
  155.  
  156.      Somewhere on this line, add the variable "somemail" so that it should
  157.      read:
  158.  
  159. int cursub,curdir,curdloads,somemail,msgreadlogon;
  160.  
  161. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  162. STEP SIX:
  163.      Now, (I hope you saved all of that) recompile the entire (ENTIRE) BBS
  164.      (because of the addition to VARS.H).  Go off, have a Dr. Pepper and
  165.      come back in about an hour... everything should have worked out fine
  166.      (if not, well, I don't know what to say because it works fine here).
  167.  
  168. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  169. STEP SEVEN:
  170.      Finally, go and make yourself a menu (#16 in this instance) for your
  171.      new area.  It should include all the commands (not necessarily "A"
  172.      which is a sysop command... unless you want to).  Here is mine, straight
  173.      from MENUS.MSG:
  174.  
  175. `16===========================================================================
  176.        PHOENIX EXPRESS MANAGEMENT
  177.  /------------------------------------\
  178.  | 1  Shadow-Starr                <SY>|
  179.  | 2  FrenChem                    <RS>|
  180.  | 3  Baron Ferd Von Die Welten   <RS>|
  181.  | 4  The Galactic Enigma         <CO>|
  182.  | 5  Rangerlord K                <CO>|
  183.  | 6  The Galaxative              <CO>|
  184.  | 7  Dragon Queen                <CO>|
  185.  \------------------------------------/
  186.        /------------------------\
  187.        | A  //MAILR (SysOp only)|
  188.        | E  Standard User Mail  |
  189.        | K  Kill old Email      |
  190.        | M  Multi-Mail List     |
  191.        | Q  Quit to Main Menu   |
  192.        | R  Read your mail      |
  193.        | U  //UPLOAD a message  |
  194.        \------------------------/
  195.  
  196.  
  197.      And if you wish, make yourself an ANSI version of the menu.
  198.  
  199. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  200.  
  201.  
  202.     I don't want any money for this modification.  All I want is for you
  203. to let me know if you use it and like it (or if there is something you would
  204. like me to add to it or something like that).  Email 1@2374 with your
  205. comments and things...
  206.  
  207.     I offer no warranty expressed or implied.  Any fault of engineering
  208. is not my responsibility because this is taken directly from my code and it
  209. works flawlessly on my board.
  210.  
  211.     I will be adding the //LOAD command in the near future (2 weeks at
  212. latest) and possibly some new things (if I can possiby think of anything
  213. having to do with mail that hasn't already been inserted).
  214.  
  215. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  216.  
  217.  
  218.                                 7√hæδσw-√╤æττ
  219.                                       1@2374
  220.