home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / RZ_STATS.ZIP / R-PCRZST.MRG
Text File  |  1992-01-26  |  4KB  |  78 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]------------------------------
  2. * Merge this against 17.3C RBBS-PC.BAS to produce RBBS-PC.NEW
  3. * ------------------------------------------------------------------------
  4. * This is a simple merge to colorize the statistics and add a file ratio
  5. * reminder to RBBS v17.3C for systems that do not enforce file ratios but
  6. * would like to remind callers of their ratio anyway. This should ONLY be
  7. * used on systems that DO NOT enforce file ratios! RBBS already displays
  8. * the ratio if you have it configured to enforce ratios and using this
  9. * merge would result in a duplicate display of such (which would really
  10. * look dumb). If you don't like the Ratio display simply remove the
  11. * section within the stared area and title "RATIO DISPLAY".
  12. * Hunks of Tom Collins UGLY merge are included for free.
  13. * Written by Tom Craver at The Rainbow Zen, 1:261/1111@fidonet.org and
  14. * 8:936/110@rbbsnet.org. Enjoy!
  15. * ------------[ Created 01-24-1992 11:59:13 ]-----------------------------
  16. * REPLACING old line(s) by new
  17. 816 IF NOT ZNewUser THEN _
  18.        CALL QuickTPut1 (ZFG1$+"Times On:" + ZFG4$+STR$(ZTimesLoggedOn) + _
  19.             ZFG1$+"  Last On: " +ZFG4$+ PrevLastOn$)                            'TSC0124
  20. 817 IF NOT ZRemindFileXfers OR ZNewUser THEN _
  21.        GOTO 818
  22.     CALL QuickTPut1 (ZFG2$+"Files Downloaded:" + ZFG3$+STR$(ZDnlds) + _
  23.          ZFG2$+"  Uploaded:" + ZFG3$+STR$(ZUplds))                               'TSC0124
  24. '****************************RATIO DISPLAY********************************
  25.     RatioA = 0                                                                   'TSC0124
  26.     RatioSuffix$ = ":1"                                                          'TSC0124
  27.     IF ZUplds < 0 OR ZUplds = 0 THEN _                                           'TSC0124
  28.         ZUpWk = 1 _                                                              'TSC0124
  29.     ELSE ZUpWk = ZUplds                                                          'TSC0124
  30.     RatioA = (ZDnlds / ZUpWk)                                                    'TSC0124
  31.     ZOutTxt$ = ZFG4$+"Current File Ratio:" + _                                   'TSC0124
  32.         ZFG1$+ STR$(RatioA) + RatioSuffix$                                       'TSC0124
  33. '************************************************************************
  34.     GOSUB 12977
  35.     CALL CheckRatio (ZFalse)
  36. 4850 GOSUB 1893
  37.      CALL QuickTPut1 ("RBBS-PC " + ZVersionID$ + " Node " + ZNodeID$)
  38.      ZOutTxt$ = ""
  39.      IF NOT ZConfMode THEN _
  40. * ------[ first line different ]---------------------------------------
  41.         ZOutTxt$ = ZFG2$+"Caller Number:" + _
  42.              ZFG3$+STR$(CallsToDate!) + _
  43.              ZCrLf$                                                              'TSC0124
  44. 4855 ZOutTxt$ = ZOutTxt$ + _
  45.           ZFG4$+"Active Msgs:" + _
  46.           ZFG1$+STR$(ActiveMessages)                                             'TSC0124
  47.      ZOutTxt$ = ZOutTxt$ + _
  48.           ZFG4$+"  Next Msg Number:" + _
  49.           ZFG1$+STR$(HighMsgNumber + 1)                                          'TSC0124
  50.      IF ZLastMsgRead > 0 THEN _
  51.         ZOutTxt$ = ZOutTxt$ + _
  52.              ZFG4$+"  Last Msg You Read:" + _
  53.              ZFG1$+STR$(ZLastMsgRead) _                                          'TSC0124
  54.      ELSE ZOutTxt$ = ZOutTxt$+ZCrLf$+ZFG1$+"You Have Not Read Any Messages Yet!" 'TSC0124
  55. 4857 GOSUB 12976
  56.      IF (NOT ZSysop) AND (ZUserSecLevel < ZSecKillAny) THEN _
  57.         RETURN
  58.      UserWork = (HighestUserRecord * .95) + 1
  59.      IF ZMsgsCanGrow THEN _
  60.         ZWasY$ = " Open" _                                                       'TC090101
  61.      ELSE ZWasY$ = STR$(HighestMsgRecord + 1 - NodesInSystem - ZNextMsgRec)
  62.      ZOutTxt$ = ZFG1$ + "Users: Used" + _
  63.           STR$(CurUserCount - 1) + _
  64.           " Avl" + _
  65.           STR$(UserWork - CurUserCount) + _
  66.           "  Msgs: Used" + _
  67.           STR$(ActiveMessages) + _
  68.           " Avl" + _
  69.           STR$(MaxMsgs - ActiveMessages) + _
  70.           "  Msg Recs: Used" + _
  71.           STR$(ZNextMsgRec - 1) + _
  72.           " Avl" + ZWasY$                                                         'TSC0124
  73.      GOSUB 12976
  74.      ZWasZ$ = ZUpldDriveFile$
  75.      CALL FindFree
  76.      CALL QuickTPut1 (ZFG3$ + "Upload Disk Has" + ZFreeSpace$)                    'TSC0124
  77.      RETURN
  78.