home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / userstat.scr < prev    next >
Encoding:
Text File  |  1993-07-20  |  5.0 KB  |  138 lines
  1. Script
  2.   Clear Screen
  3.   Clear Variables
  4.  
  5. ;-------------------------------------------------------------------
  6. ;                   >>>>>> USERSTAT.SCR File <<<<<<
  7. ;                               4-24-88
  8. ;                              By SysOz
  9. ;                      Wonderful World of Oz BBS
  10. ;                        (12/24) (808) 423-3140
  11. ;
  12. ; o  Checks for BUSY HOURS for Prime Time Peak Hours on
  13. ;    the BBS!                                             (optional)
  14. ; o  Shows accurate "Time Remaning This Call" for users showing the
  15. ;    time used for the day and how much time the has left
  16. ; o  Checks for 40 Col. and 80 Col. users
  17. ; o  Uses the "Expand" Script File Command, so more than one variable
  18. ;    can be displayed on a single line
  19. ; o  Neat on appearence, easy to read for the user!
  20. ;-------------------------------------------------------------------
  21.  
  22.   Define Width =  '&11'     ; Checks Video Width for 40 Col. Users
  23.   Define f1
  24.   Define f2
  25.   Define f3
  26.   Define f4
  27.   Define f5
  28.   Define f6
  29.   Define f7
  30.   Define f8
  31.   Define f9
  32.   Define f10
  33.   Define f11
  34.   Define f12
  35.   Define con
  36.   Define minn
  37.   Define min_today
  38.   con = &32                  ; Time Connected this call
  39.   Define in_effect
  40.   Define max_time = 25       ; Sets NEW Time Limit for BUSY HOURS
  41.   Define min = '17:00:00'    ; Begin Time for BUSY HOURS at  5:00 pm
  42.                              ; NOTE: If NOT using BUSY HOURS, set this
  43.                              ; time to '00:00:00'
  44.   Define max = '20:00:00'    ; End Time for BUSY HOURS at  8:00 pm
  45.                              ; NOTE: If NOT using BUSY HOURS, set this
  46.                              ; time to '00:00:00'
  47.   Define mil_time = '&34'
  48.  
  49.  If mil_time > min then
  50.    If mil_time < max then
  51.      in_effect = 'y'         ; Sets variable ON for BUSY HOURS
  52.  
  53.  If in_effect = 'y' then
  54.    minn = &33 - con          ; New Time Remaining this call, if using BUSY HOURS
  55.  Else
  56.      min_today = &15 + con   ; Adds Time Connected and Time Used Today
  57.      minn = &33 - min_today  ; New Time Remaining, if NOT using BUSY HOURS
  58.  Endif
  59.  
  60.     PrintE
  61.     If Width = 40 then
  62.     PrintE
  63.     PrintE '      Your Statistics       '
  64.     PrintE '============================='
  65.     PrintE 'Handle   : &01 (User #&31)'
  66.     PrintE 'Name     : &02            '
  67.     PrintE 'Computer : &10            '
  68.     PrintE 'Password : &03            '
  69.     PrintE '============================='
  70.     PrintE 'Last Called  : &12'
  71.     PrintE 'Total Calls  : &22'
  72.     PrintE 'Msgs Posted  : &20'
  73.     PrintE 'Hi Read Msg  : &16'
  74.     PrintE 'Emails Sent  : &21'
  75.     PrintE 'Last Msg Read: &16'
  76.     PrintE 'Baud Rate    : &29'
  77.     PrintE 'Time Limit   : &14'
  78.     PrintE '=============================='
  79.     PrintE 'Todays Date is: &24'
  80.     PrintE 'Current (HST) Time: &23'
  81.     PrintE '=============================='
  82.     PrintE 'Minutes On Today:......... &15'
  83.     PrintE 'Time Connected This Call:. &32'
  84.     PrintE 'Your Time Limit Remaining: [minn]'
  85.     PrintE 'Your Time Limit Per Day:.. &14'
  86.     PrintE 'Your Time Limit Per Call:. &13'
  87.     PrintE '=============================='
  88.     End
  89.     EXIT
  90.  
  91.     Else
  92.     PrintE '\rYour Statistics\b' Center
  93.     PrintE '^^^^^^^^^^^^^^^' Center
  94.     PrintE
  95.     PrintE '                        \iHandle   :\o &01 \r(\bUser \r#\b&31\r)\b'
  96.     PrintE '                        \iName     :\o &02            '
  97.     PrintE '                        \iAge      :\o &09            '
  98.     PrintE '                        \iComputer :\o &10            '
  99.     PrintE '                        \iPassword :\o &03            '
  100.     Endif
  101.  
  102.   Set f1 = 'Last Called: &12'
  103.   Set f2 = 'Total Calls  : &22'
  104.   Set f3 = 'Uploads    : &19'
  105.   Set f4 = 'Msgs Posted  : &20'
  106.   Set f5 = 'Downloads  : &18'
  107.   Set f6 = 'Hi Read Msg  : &16'
  108.   Set f7 = 'File Ratio : &17'
  109.   Set f8 = 'Emails Sent  : &21'
  110.   Set f9 = 'Time Limit : &14'
  111.  Set f10 = 'Last Msg Read: &16'
  112.  Set f11 = 'Video Width: &11'
  113.  Set f12 = 'Baud Rate    : &29'
  114.   Expand (f1, 24)
  115.   Expand (f3, 24)
  116.   Expand (f5, 24)
  117.   Expand (f7, 24)
  118.   Expand (f9, 24)
  119.   Expand (f11, 24)
  120.   PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  121.   PrintE 'Todays Date: &24' Center
  122.   PrintE 'Current \r(\bHST\r)\b Time: &23' Center
  123.   PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  124.   PrintE '                  [f1] [f2]'
  125.   PrintE '                  [f3] [f4]'
  126.   PrintE '                  [f5] [f6]'
  127.   PrintE '                  [f7] [f8]'
  128.   PrintE '                  [f9] [f10]'
  129.   PrintE '                  [f11] [f12]'
  130.   PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  131.   PrintE 'Your Minutes On Today:........ &15 ' Center
  132.   PrintE 'Your Time Connected This Call: &32 ' Center
  133.   PrintE 'Your Time Remaining This Call: [minn]' Center
  134.   PrintE 'Your Time Limit Per Day:...... &14' Center
  135.   PrintE 'Your Time Limit Per Call:..... &13' Center
  136.   PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  137.  
  138. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə