home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #2 / RBBS_vol1_no2.iso / 096z / varacces.pat < prev    next >
Text File  |  1986-03-11  |  2KB  |  53 lines
  1.  
  2.      03-03-86/MAP
  3.  
  4.      This change allows the sysop to have a range of access
  5.      levels, a range of 11, that are "variable".  Variable means
  6.      that based on the user's Upload/Download ratio, the user will
  7.      get a different access level.    The bottom of the range is the
  8.      value of the "download access level" as defined by you in
  9.      Config19.  The top of the range is bottom + 10, so in reality
  10.      you have 11 possible access levels in the range.  Only users
  11.      whose security levels are not inside the range will not have
  12.      their access levels adjusted.    Higher access levels are
  13.      granted for each 10% step in the user ratio.  A 35% ratio
  14.      would increase the user's security level to 3 levels above
  15.      the bottom of the range.
  16.  
  17.      NOTE:    You must make sure that you have defined in FILESEC a
  18.      time value for each of the 11 access level in the range.
  19.  
  20.      An * indicates that this line was added as part of the
  21.      change.
  22.  
  23.  
  24. 817 IF REMIND.FILE.TRANSFERS THEN _
  25.        A$ = "Files Downloaded:" + _
  26.         STR$(DOWNLOADS) + _
  27.         "  Uploaded:" + _
  28. *        STR$(UPLOADS) + _
  29. *        "  Ratio:" + _
  30. *        STR$(INT(UPLOADS / (DOWNLOADS + ((DOWNLOADS = 0) * -1)) * 100)) + _
  31. *        "%" : _
  32.        GOSUB 1400
  33.  
  34. 10605 LSET USER.DOWNLOADS$ = MKI$(DOWNLOADS)
  35.       LSET USER.UPLOADS$ = MKI$(UPLOADS)
  36. *     IF FILES.FUNCTION(1) > USER.SECURITY.LEVEL OR _
  37. *     (FILES.FUNCTION(1) + 10) < USER.SECURITY.LEVEL THEN _
  38. *     GOTO 10607
  39. *     IF DOWNLOADS = 0 THEN _
  40. *     DOWNLOADS = 1
  41. *     UP.DOWN.RATIO = INT(UPLOADS / DOWNLOADS * 10)
  42. *     IF UP.DOWN.RATIO > 10 THEN _
  43. *     UP.DOWN.RATIO = 10
  44. *     USER.SECURITY.LEVEL = FILES.FUNCTION(1) + UP.DOWN.RATIO
  45. *     LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL)
  46. 10607 GOSUB 41010
  47.       LSET ELAPSED.TIME$ = MKI$(ELAPSED.TIME + _
  48.              (SECONDS.PER.SESSION! / 60) - _
  49.               TIME.REMAINING!)
  50.       PUT 2,USER.FILE.INDEX
  51.       GOTO 13540
  52. $(ELAPSED.TIME + _
  53.              (SECONDS