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

Infernal Knight #1 @5269 7<1Brownsville, TX7>
Fri Nov 30 21:44:34 1990
IK3.MOD
-------

By: The Infernal Knight 1@5269

Summary: Enhanced user list - USE IT!

There was one thing I always disliked about my marvelous WWIV system.
That was the USER LIST. User list was an appropriate title, since that was
about all it did: list users.
I've come to the conclusion that WWIV was written on a monochrome monitor.
Most external functions are colorless, and rather dull. This mod is different.
lt will enhance your user list beyond your wildest dreams (well... maybe). It
shows the user's handle, city/state (provided you've the FROM mod installed),
sex, computer type, and date they last called all in full color with ASCII
columns.
This mod may not be environmentally safe, but it IS DGROUP safe. I've
taken the pain to write loops for the ASCII boxes instead of including them in
string format. This will save space in your DGROUP. OKAY! I ADMIT IT! I
couldn't compile MY board unless I did it!
Installation is so easy, it's a sin NOT to have this mod. Two steps:

FIRST:
------
Add this line to the extern section at the beginning of your BBSUTL1.C file:

extern char ctypes[NUM_CTYPES][18]; /* ADD to extern list */

LAST:
-----
Still in BBSUTL1.C, delete your entire void list_users() and replace it with
this one:

/* Infernal Knight's User List */

void list_users()
{
subboardrec s;
userrec u;
int i,nu,abort,ok,num;
char st[81],s1[121],s2[121],s3[81];

abort=0;
num=0;

if (usub[cursub].subnum==-1) {
nl();
pl("No sub!");
nl();
return;
}
s=subboards[usub[cursub].subnum];
nl();
pl("3[1Users with access to the current sub3]");
ansic(3);
outchr(218);
for (i=0; i<24; i++)
outchr(196);
outchr(194);
for (i=0; i<24; i++)
outchr(196);
outchr(194);
for (i=0; i<3; i++)
outchr(196);
outchr(194);
for (i=0; i<15; i++)
outchr(196);
outchr(194);
for (i=0; i<7; i++)
outchr(196);
outchr(191);
nl();
sprintf(s2,"3³ %-23.23s³ %-23.23s³%s³ %-14.14s³ %-5.5s ³",
"Users",
"City/State",
"Sex",
"Computer Type",
"LstOn");
pla(s2, &abort);
ansic(3);
outchr(195);
for (i=0; i<24; i++)
outchr(196);
outchr(197);
for (i=0; i<24; i++)
outchr(196);
outchr(197);
for (i=0; i<3; i++)
outchr(196);
outchr(197);
for (i=0; i<15; i++)
outchr(196);
outchr(197);
for (i=0; i<7; i++)
outchr(196);
outchr(180);
nl();
for (i=0; (i read_user(smallist[i].number,&u);
ok=1;
if (u.sl ok=0;
if (u.age ok=0;
if ((s.ar!=0) && ((u.ar & s.ar)==0))
ok=0;
if (ok) {
ansic(1);
sprintf(s2,"3³ 1%-23.23s3³ 7%-23.23s3³ 1%c3 ³ 7%-14.14s3³ 1%-5.5s3 ³",
nam(&u,smallist[i].number),
u.citystate,
u.sex,
ctypes[u.comp_type],
u.laston);
pla(s2, &abort);
++num;
}

}
if (!abort) {
itoa(num,st,10);
ansic(3);
outchr(192);
for (i=0; i<24; i++)
outchr(196);
outchr(193);
for (i=0; i<24; i++)
outchr(196);
outchr(193);
for (i=0; i<3; i++)
outchr(196);
outchr(193);
for (i=0; i<15; i++)
outchr(196);
outchr(193);
for (i=0; i<7; i++)
outchr(196);
outchr(217);
nl(); nl();
print(" 3[1",st," 7users!3]","");
nl();
}
}

/* END OF MOD */

Now hit F9 to recomplie the file, and smile for a while.

This mod works perfectly on my system, but if your brand new 340meg HD
system's heads inscribe your ex-wife's name on the platters, it's not my fault.

IF YOU DON'T HAVE THE FROM MOD: Then you can substitute "thisuser.realname"
or "thisuser.phone" or "thisuser.note" or whatever you want to in place of
"thisuser.citystate". Just about anything will work.

One note: This mod will really suck for your 40 column non-ANSI users. I
just say "too bad" for them. But, if you would like to keep the old user list
for them and can't figure out how to do it, E-Mail me and I'll tell you.

If you use this mod, all I ask is that you drop me some E-Mail so I'll know my
effort in writing it up is not wasted. Call my board if you like (where this
and other mods are demonstrated in perfect form).

The Crypt (512)542-8222
WWIV SysOp Autovalidation

- The Infernal Knight (1@5269)