USETOPPR.MOD - Add Tolkien's TOPPER internally
Shadowspawn #1 @13900
Sat Mar 27 03:20:14 1993
    MOD:  USETOPPR.MOD - Add Tolkien's TOPPER program to your BBS
AFFECTS:  LILO.C
VERSION:  WWIV v4.22+
 AUTHOR:  ShadowSpawn  (1@13900 WWIVLink)(1@3900 WWIVnet)(1@3900 IceNet)
   DATE:  27 March 93
  LEVEL:  Novice (primarily block copying)

This mod allows you to incorporate Tolkien's TOPPER program as an internal part
of your BBS.  Users with an AR of L set are given the option to bypass the
TOPPER display.  Additionally, TOPPER runs *after* the user has logged off of
the BBS, but before the BBS cleans up.  It's less annoying to your
long-distance callers.

** BONUS **

This mod includes a mini-mod that allows you to use the first Gfiles section as
system bulletins (similar to the bulletins that other BBS software uses).


0.  Backup your source before attempting this mod.  Although it is a very
simple step, the one time you don't will be the one time you really screw
something up.

Key:

= Existing
+ Add this line
- Delete this line

1.      File: LILO.C
    Function: void logon(void)

=   if (live_user)
=     topscreen();
+
+   strcpy(s2,create_chain_file("CHAIN.TXT"));
+
+   i1=0;
+   #define AR_L 2048   /* Not needed if you've installed ELRIC4.MOD */
+   if (thisuser.ar & AR_L) {
+     nl();
+     prt(3,"Privileged Citizen of the Realm");
+     nl();
+     prt(6,"Skip logon sequence ? ");
+     i1=(yn());
+   }
+
+   if (i1) {
+     prt(2,"View the System Bulletin Menu ? ");
+     if (yn()) gfile_sec(0);
+   } else {
+     prt(2,"System Bulletins:");
+     nl();
+     gfile_sec(0);
+   }
+
+ /* Display Top Users (Topper) */
+   i=0;
+   if (thisuser.sysstatus & sysstatus_pause_on_page)
+     i=1;
+   else
+     thisuser.sysstatus |= sysstatus_pause_on_page;
+   if (i1) {
+     prt(2,"View Top Users ? ");
+     if (yn())
+       printfile("TOPPER.MSG");
+   } else {
+     prt(2,"Top Users:");
+     nl();
+     printfile("TOPPER.MSG");
+   }
+   pausescr();
+   if (!i)
+     thisuser.sysstatus ^= sysstatus_pause_on_page;
+ /* End of Top Users */
+
=   if ((syscfg.logon_c[0]) && live_user) {

2.      File: LILO.C
    Function: void logon(void)

=   }
=   save_status();
-   create_chain_file("CHAIN.TXT");     /* Added above */
= }


3.      File: LILO.C
    Function: void logoff(void)

=   close_user();
+ 
+ /* Run TOPPER */
+   shrink_out("TOPPER.EXE CHAIN.TXT -MAINT",0,0,1,1);
+
=   sprintf(s,get_stringx(1,23),msgreadlogon,

4.  Recompile.

INFO:
                                 TOPPER v1.03
                           WWIV TopTen Users Utility
                    Copyright (C) 1992-1993 by Jon R. Rickher
                             All Rights Reserved

{ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ}
DESCRIPTION:

Topper is a small utility for WWIV BBS systems that creates a file containing
the top ten users in a variety of categories. These categories include top
ten file uploaders, file downloaders, uploaders and downloaders in kilobytes,
posters, emailers, loggers-on, and the top ten people who've read messages.
Those with a 255 security level are not included in the count.

{ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ}

TOPPER is available (TOPRvvv.ZIP) at the following boards:

The Fellowship        314-644-5777  16.8K HST/V.32bis   @3456 WWIVnet
Adventurer's Corner   309-452-2838  16.8K HST/V.32bis  @13900 WWIVLink