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

ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
³ Name: WAR003U.MOD - Updated Version. ³
³ Description: Restrict Users to one game per logon. Doesn't affect SysOps ³
³ Difficutly: Not THAT Hard. ³
³ Files Affected: BBSUTL1.C, LILO.C, NEWUSER.C, BBS.C, VARDEC.H (Yuck!) ³
³ For Version: 4.21 ³
³ Author: Warlock 24 @14055 WWiVLink ³
³ Date: Tuesday, May 12, 1992. 6:15pm. ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Better Description:
-------------------
What this mod does is restrict users to one game/chain per logon. This
has no effect on Co-SysOp's and SysOp's. This mod originaly changed the user
record. Well, after looking at it for a while, I figured out another way to
do it. This one will not alter the user record. But you will still have
to recompile the BBS, because you will be changing VARS.H.

Step 1:
-------
Back up your source code!

pkzip -ex -u 421sm.zip *.c *.h *.prj *.mak
(or ARJ, LHArc, depending on what you use.)

Step 2:
-------
Open up BBSUTL1.C.

Search for:
void run_chain(int cn)

In that void, make the following changes:

itoa(modem_speed, s3, 10); /* WWiV Code */
stuff_in(s,chains[cn].filename,create_chain_file("CHAIN.TXT"),s1,s2,s3,"");
sprintf(s2,"!Ran '%s'",chains[cn].description);
sysoplog(s2);
oc=chatcall;
chatcall=0;
chances=1; /* WAR003.MOD Addition */
if (chains[cn].ansir & ansir_no_DOS) { /* WWiV Code Resumes */
set_protect(0);
if (chains[cn].ansir & ansir_shrink)

Step 3:
-------
Save BBSUTL1.C

Load up NEWUSER.C

Search for:
void newuser()

In void newuser(), make the following changes:

strcpy(&thisuser.macros[0][0],"This is the Ctrl-D Macro"); /* WWiV Code */
strcpy(&thisuser.macros[1][0],"This is the Ctrl-F Macro");
strcpy(&thisuser.macros[2][0],"Whatever");

thisuser.screenlines=25;
thisuser.screenchars=80;
screenlinest=25;

chances=0; /* WAR003.MOD Addition */

thisuser.sl=syscfg.newusersl; /* WWiV Code Resumes */
thisuser.dsl=syscfg.newuserdsl;

Step 4:
-------
Save NEWUSER.C.

Load up LILO.C.

Search for:
void logon()

In void logon(), make the following changes:

strcpy(xdate,date()); /* WWiV Code */
if (strcmp(xdate,thisuser.laston)==0) {
++thisuser.ontoday;
chances=0; /* WAR003.MOD Addition */
} else { /* WWiV Code Resumes */
thisuser.ontoday=1;
thisuser.timeontoday=0.0;
thisuser.extratime=0.0;
thisuser.posttoday=0;
thisuser.etoday=0;
thisuser.fsenttoday1=0;
}

Step 5:
-------
Save LILO.C.

Load BBS.C.

Search for:
void mainmenu()

In void mainmenu(), make the following changes.

Replace case '.' with the following.

case '.': /* WAR003.MOD Block Begin */
helpl=26;
if ((thisuser.sl<=99) && (chances>=1))
prt(1,"Sorry, but you can only play one game per logon.");
else
do_chains();
break; /* WAR003.MOD Block End */

Step 6:
-------
Save BBS.C.

Load up VARS.H.

Add 'chances' to both the external and the normal ints.


Step 7:
-------
Save VARS.H.

Recompile the whole BBS 'cause of the changes in VARS.H.

If you have any troubles w/ this mod, then E-Mail me and we'll work something
out. If you distribute this mod, please distribute this version. Enjoy!

Disclaimer: It's not my fault. You put it in. This mod works on my 286/12
w/ WWiV v4.21 and TC++ v1.01.

NOTE: If you wish this to apply to more people, then in Step 5, change
thisuser.sl<=99 to whatever Security Level you want.

Warlock [No BBS to call, I just like to program]
WWiVLink 24 @14055 - The Cockpit BBS