Category : BBS Programs+Doors
Archive   : TONSMOD.ZIP
Filename : ZEDMOD03.MOD
Lord Zedman #57 @4654
Fri Jun 19 12:12:55 1992
6Status : Reply Requested.
ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸
³ Zedmod #03 - Released June 18th, 1992 ³
ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵
³Creator of mod ³ Lord Zedman ³
³Difficulty ³ Û°°°°°°°°° ³
³Files affected ³ DEFAULTS.C ³
³Version of WWIV ³ Tested only with v4.21 ³
³Description ³ This MOD will add color to the dull screen when you ³
³ ³ press D in the main menu. It will display all the ³
³ ³ info in a colorful, boxed screen. ³
ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;
What? Already? Sheesh, 3 MODs in 3 days. I know, this is getting to be a
little bland, all 3 mods being of the same nature. It's just that this is
what most people look at, and it's nice for a BBS to be as colorful and
vibrant as possible.
STEP 0: Back up your source. Geez! You should know that by now!
STEP 1: Go into DEFAULTS.C and find void print_cur_stat(). Delete the whole
void, all the way up to the line before the next void.
STEP 2: Insert the following block, using QEdit or something to cut and
paste, or copying it out (yipes):
void print_cur_stat()
{
char s[81],s1[81],s2[81];
userrec ur;
outchr(12);
if (okansi()){
pl("ð1ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸");
npr("ð1³ ð21. Screen size ð1³ ð5%d X %-28d ð1³\r\n",
thisuser.screenchars,
thisuser.screenlines);
npr("ð1³ ð22. ANSI ð1³ ð5%-33s ð1³\r\n",
(thisuser.sysstatus & sysstatus_ansi)?
((thisuser.sysstatus & sysstatus_color)? "Color":"Monochrome"):
"No ANSI");
npr("ð1³ ð23. Pause on screen ð1³ ð5%-33s ð1³\r\n",
(thisuser.sysstatus & sysstatus_pause_on_page)?"On":"Off");
outstr("ð1³ ð24. Mailbox ð1³ ");
if ((thisuser.forwardsys==0) && (thisuser.forwardusr==0))
pl("ð5Normal ð1³");
else {
if (thisuser.forwardsys) {
sprintf(s,"ð5Forward to #%u @%-17u ð1³",thisuser.forwardusr,thisuser.forwardsys);
pl(s);
} else {
if (thisuser.forwardusr==65535) {
pl("ð5Closed ð1³");
} else {
read_user(thisuser.forwardusr,&ur);
if (ur.inact & inact_deleted) {
thisuser.forwardusr=0;
pl("ð5Normal ð1³");
} else {
sprintf(s,"ð5Forward to %-23s³",nam(&ur,thisuser.forwardusr));
pl(s);
}
}
}
}
pl("ð1³ ð25. Configured Q-scan ð1³ ð1³");
pl("ð1³ ð26. Change password ð1³ ð1³");
pl("ð1³ ð27. Update macros ð1³ ð1³");
if (okansi()) {
pl("ð1³ ð28. Change colors ð1³ ð1³ ");
npr("ð1³ ð29. Full screen editor ð1³ ð5%-33s ð1³\r\n",
((thisuser.defed) && (thisuser.defed<=numed))?
editors[thisuser.defed-1].description:"None.");
npr("ð1³ ð2A. Extended colors ð1³ ð5%-33s ð1³\r\n",
(thisuser.sysstatus & sysstatus_funky_colors)?"Yes":"No");
}
npr("ð1³ ð2B. Optional lines ð1³ ð5%-33d ð1³\r\n",thisuser.optional_val);
if (thisuser.wwiv_regnum)
npr("ð1³ ð2W. WWIV reg num ð1³ ð5%-33ld ð1³\r\n",thisuser.wwiv_regnum);
else
pl("ð1³ ð2W. WWIV reg num ð1³ ð5
pl("ð1³ ð2Q. Quit to main menu ð1³ ð1³");
pl("ð1ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;");}
else{
pl("+-----------------------+-----------------------------------+");
npr("| 1. Screen size | %d X %-28d |\r\n",
thisuser.screenchars,
thisuser.screenlines);
npr("| 2. ANSI | %-33s |\r\n",
(thisuser.sysstatus & sysstatus_ansi)?
((thisuser.sysstatus & sysstatus_color)? "Color":"Monochrome"):
"No ANSI");
npr("| 3. Pause on screen | %-33s |\r\n",
(thisuser.sysstatus & sysstatus_pause_on_page)?"On":"Off");
outstr("| 4. Mailbox | ");
if ((thisuser.forwardsys==0) && (thisuser.forwardusr==0))
pl("Normal |");
else {
if (thisuser.forwardsys) {
sprintf(s,"Forward to #%u @%-17u |",thisuser.forwardusr,thisuser.forwardsys);
pl(s);
} else {
if (thisuser.forwardusr==65535) {
pl("Closed |");
} else {
read_user(thisuser.forwardusr,&ur);
if (ur.inact & inact_deleted) {
thisuser.forwardusr=0;
pl("Normal |");
} else {
sprintf(s,"Forward to %-23s|",nam(&ur,thisuser.forwardusr));
pl(s);
}
}
}
}
pl("| 5. Configured Q-scan | |");
pl("| 6. Change password | |");
pl("| 7. Update macros | |");
if (okansi()) {
pl("| 8. Change colors | | ");
npr("| 9. Full screen editor | %-33s |\r\n",
((thisuser.defed) && (thisuser.defed<=numed))?
editors[thisuser.defed-1].description:"None.");
npr("| A. Extended colors | %-33s |\r\n",
(thisuser.sysstatus & sysstatus_funky_colors)?"Yes":"No");
}
npr("| B. Optional lines | %-33d |\r\n",thisuser.optional_val);
if (thisuser.wwiv_regnum)
npr("| W. WWIV reg num | %-33ld |\r\n",thisuser.wwiv_regnum);
else
pl("| W. WWIV reg num |
pl("| Q. Quit to main menu | |");
pl("+-----------------------+-----------------------------------+");}
nl();
nl();
}
STEP 3: If you are using QEdit, go to Search and Replace, and automatically
replace all of the ð's with hearts (Alt-3). I only use QEdit, so if
that's not the editor you use, I don't know if you have auto-replace
or anything. Just make sure all of the ð's become hearts. There are
74 changes to be made in total.
STEP 4: Save and recompile.
Warning: I take no responsibility whatsoever if anything goes wrong with your
BBS thereafter. It worked fine on my board with no problems
whatsoever, but just in case... there are no guarantees (not unlike
any other mod you have ever installed!)
Well, that's it. If you have any trouble whatsoever, don't just get rid of
the mod... E-Mail me for help! I'd be happy to assist you any way possible.
And even if you do get it on the first, second, third or fourth try, E-Mail
me anyways, and tell me you're using this mod. It'll make me feel special
(ooooh) and convince me to make more. Well, that's about it! And remember:
6 MOD HARD!!!
7Lord Zedman 1-2 Boogle BBS 1-3 (416)820-0785 1-5 WWIVnet @4660
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/