Category : BBS Programs+Doors
Archive   : TONSMOD.ZIP
Filename : MAILMENU.MOD

Shadow-Starr #1 @2374
Friday, June 8, 1990 6:44 pm




<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>
| STARR-MAIL Center v2.00 |
| |
| by |
| ûh‘ëåw-ûёçç 1@2374 |
<___________________________________________________________>



Here's an updated version to the mod I released a while back
(STARR01.MOD) that does the new things I promised (only thing I left out
was //LOAD and that was only because I forgot about it).

Again, basically this serves as a seperate mail menu.. apart from
transfers and the message base. It stems directly from the main menu (via
command "E") and not the message base menu (if you've seperated the two like
I have -- if not, it still comes from the main menu).

The one primary difference between this version and v1.00 is that
this version is placed in BBS.C and not BBSUTL.C and requires an addition to
the VARS.H file (very small though). So let's get down to things...

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
STEP ONE:
In BBS.C, search down to VOID MAINMENU(); and insert this block of code
above it...



void feedback()
{
char ch,s1[80];

nl();
if ((sysstatus_expert & thisuser.sysstatus)==0)
printmenu(16);
tleft(1);
print("T - ",ctim(nsl()),"");
prt(1,"() Phoenix Express Feedback (> "); /* Your BBS name goes here */
ch=onek("1234567AEKMQRU?");
switch(ch) {
case '?':
if ((sysstatus_expert & thisuser.sysstatus))
printmenu(16);
break;
case '1':
strcpy(irt,"Feedback");
email(1,0,0,0); /* This is your number */
break;
case '2':
strcpy(irt,"Feedback to Remote SysOp");
email(9,0,0,0); /* Remove any or all of these */
break; /* little management areas */
case '3': /* but remove the number from */
strcpy(irt,"Feedback to Remote SysOp (MESSAGE BASE)"); /* the line */
email(3,0,0,0); /* that says ch=onek("..."); */
break;
case '4':
strcpy(irt,"Co-SysOp Feedback (USER MEETS)");
email(2,0,0,0);
break;
case '5':
strcpy(irt,"Co-SysOp Feedback (TRANSFERS)");
email(18,0,0,0);
break;
case '6':
strcpy(irt,"Co-SysOp Feedback (USER ENFORCEMENT)");
email(8,0,0,0);
break;
case '7':
strcpy(irt,"Co-SysOp Feedback (PUBLIC RELATIONS/COMPLAINTS)");
email(12,0,0,0);
break;
case 'A': /* This is MAILR */
if ((so()) && (checkpw())) {
sysoplog("9<><> READ ALL MAIL <><>");
mailr();
}
break;
case 'E':
send_email();
break;
case 'K':
helpl=8;
kill_old_email();
break;
case 'M': /* Multi-Mail */
slash_e();
break;
case 'Q': /* Quit */
somemail=0;
break;
case 'R': /* Read your mail */
if(thisuser.waiting>0) {
readmail();
} else {
nl();
pl("6There's nothing here for you!");
nl();
}
break;
case 'U': /* This is UPLOAD */
if (thisuser.sl>20) {
upload_post();
}
break;
}
}

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
STEP TWO:
In void mainmenu();, remove cases F, M, K. Search down to case 'E' and
make it llok like:

case 'E':
somemail=1;
break;

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
STEP THREE:
Now search for "main_menu_label:" (sans quotes) type in the following:


--main_menu_label:
-- while (!hangup) {
-- if (curdloads)
-- dlmainmenu();
++ else if (somemail)
++ feedback();
-- else if ((!curdloads) && (!curmes))
-- mainmenu();
-- }
-- logoff();

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
STEP FOUR:
As long as we're in the ????????.C files, we might as well make sure that
v1.00 is gone, so go over to BBSUTL.C and search for void feedback(); and
delete the entire block of code. (Make sure that you aren't deleting
something essential... that you are only removing version 1.00 of STARR-
MAIL!). Once that is done, we can move on to the other things...

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
STEP FIVE:

Now, in VARS.H, search down for the line:

int cursub,curdir,..... (without the ..... part)

Somewhere on this line, add the variable "somemail" so that it should
read:

int cursub,curdir,curdloads,somemail,msgreadlogon;

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
STEP SIX:
Now, (I hope you saved all of that) recompile the entire (ENTIRE) BBS
(because of the addition to VARS.H). Go off, have a Dr. Pepper and
come back in about an hour... everything should have worked out fine
(if not, well, I don't know what to say because it works fine here).

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
STEP SEVEN:
Finally, go and make yourself a menu (#16 in this instance) for your
new area. It should include all the commands (not necessarily "A"
which is a sysop command... unless you want to). Here is mine, straight
from MENUS.MSG:

`16===========================================================================
PHOENIX EXPRESS MANAGEMENT
/------------------------------------\
| 1 Shadow-Starr |
| 2 FrenChem |
| 3 Baron Ferd Von Die Welten |
| 4 The Galactic Enigma |
| 5 Rangerlord K |
| 6 The Galaxative |
| 7 Dragon Queen |
\------------------------------------/
/------------------------\
| A //MAILR (SysOp only)|
| E Standard User Mail |
| K Kill old Email |
| M Multi-Mail List |
| Q Quit to Main Menu |
| R Read your mail |
| U //UPLOAD a message |
\------------------------/


And if you wish, make yourself an ANSI version of the menu.

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


I don't want any money for this modification. All I want is for you
to let me know if you use it and like it (or if there is something you would
like me to add to it or something like that). Email 1@2374 with your
comments and things...

I offer no warranty expressed or implied. Any fault of engineering
is not my responsibility because this is taken directly from my code and it
works flawlessly on my board.

I will be adding the //LOAD command in the near future (2 weeks at
latest) and possibly some new things (if I can possiby think of anything
having to do with mail that hasn't already been inserted).

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


7ûh‘ëåw-ûёçç
1@2374