home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Devil's Doorknob BBS Capture (1996-2003)
/
devilsdoorknobbbscapture1996-2003.iso
/
Dloads
/
WWIVMODS
/
MODSUNKN.ZIP
/
SYSFORUM.MOD
< prev
next >
Wrap
Text File
|
1992-01-29
|
3KB
|
106 lines
*********************************************************************
* TwO PunKs *
* SYSOP FORUM MOD *
* 1@8406 WWIV 4.xx 1@8410 *
* 804-320-6305 804-780-9622 *
*********************************************************************
********************************FIRST********************************
This mod was written so that the users can send Email to any other SYSOP
though the net,because all the boards around here are so damn busy.
*******************************SECOND********************************
For every sysop in this mod you need to make a false account on your board
under a different name so,if that sysop decides to call and get an acount it
will let him/her or if he/she already has one it will not affect them in any
way.
********************************THIRD********************************
With each account have that account forward its mail to the SYSOP of who is
going to be in the SYSOP FORUM.
******************************FORTH**********************************
Then lets say the account you just made is account is number 29,now go now to
CASE '1': and make the EMAIL statement read like this:
email(29,0,0,0); do that for the rest of them also.
*****************************FIFTH***********************************
Block read in the follow bit of code in BBSUTL.C before any other void
statement by typeing ^K^R
void forum()
{
char ch,s1[80];
nl();
if (okansi())
printfile("FORUM.ANS");
else
printfile("FORUM.TXT");
pausescr();
topscreen();
nl();
prt(1,"Which area SysOp would send mail to? "); nl(); nl();
prt(2,"(1) Node 4444 Sysop 1"); nl();
prt(3,"(2) Node 5555 Sysop 2"); nl();
prt(5,"(3) Node 6666 Sysop 3"); nl();
prt(0,"(Q) Quit the SYSOP Forum "); nl(); nl();
tleft(1);
ansic(4);
outstr("() Sysop Forum (> ");
ch=onek("123Q");
switch(ch) {
case '1':
strcpy(irt,"Sysop Forum from >PUT YOUR BOARD NAME HERE<");
email(29,0,0,0);
break;
case '2':
strcpy(irt,"Sysop Forum from >PUT YOUR BOARD NAME HERE<");
email(31,0,0,0);
break;
case '3':
strcpy(irt,"Sysop Forum from >PUT YOUR BOARD NAME HERE<");
email(32,0,0,0);
break;
case 'Q':
break;
}
}
******************************SIXTH**********************************
in BBS.C add the following before:
if (strcmp(s,"/O"))
if (strcmp(s,"FORUM")==0)
forum();
This will allow you to call it up by typing:
//FORUM
at the main menu.
*******************************SEVENTH*******************************
Make an ANSI screen called FORUM.ANS and a text file called FORUM.TXT telling
what the users is about to enter..
********************************EIGHTH*******************************
Feel free to Email 1@8406 or 1@8410 if you have any problems or questions!!
*********************************NINTH*******************************
It is free so don't yell at us,please just tell us what is wrong so we can fix
it.
Thanks, TwO PunKs!