home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / logstat.scr < prev    next >
Encoding:
Text File  |  1993-07-20  |  5.9 KB  |  143 lines
  1. Script
  2.  ABORT OFF
  3.  
  4. ;-------------------------------------------------------------------
  5. ;                   >>>>>> LOGSTAT.SCR File <<<<<<
  6. ;                              4-24-88
  7. ;                             By SysOz
  8. ;                      Wonderful World of Oz BBS
  9. ;                       (12/24) (808) 423-3140
  10. ;
  11. ; o  Sets BUSY HOURS for Prime Time Peak Hours on the BBS   (optional)
  12. ; o  USER can not call right back during BUSY HOURS         (optional)
  13. ; o  MAIN SYSOP is not affected durring BUSY HOURS          (optional)
  14. ; o  Last Caller Message is displayed (use with LOGOFF.SCR) (optional)
  15. ; o  Shows accurate "Time Remaning This Call" for users showing the
  16. ;    time used for the day and how much time the has left
  17. ; o  Is set up if using BAR.COM or CALLSTAT.COM (these Script Files
  18. ;    are also found on this BBS)                             (optional)
  19. ;-------------------------------------------------------------------
  20.  
  21.  Define Selection
  22.  Define name = '&1'
  23.  Define last = '&28'
  24.  Define reason 
  25.  Define in_effect
  26.  Define max_time = 25        ; Sets NEW Time Limit in Min for BUSY HOURS
  27.  
  28.  Define min = '17:00:00'     ; Begin BUSY HOURS at  5:00 pm
  29.                              ; NOTE: If NOT using BUSY HOURS, set this
  30.                              ; time to '00:00:00'
  31.  Define max = '20:00:00'     ; End   BUSY HOURS at  8:00 pm
  32.                              ; NOTE: If NOT using BUSY HOURS, set this
  33.                              ; time to '00:00:00'
  34.  Define mil_time = '&34'
  35.  
  36.  Define con
  37.  Define minn
  38.  Define min_today
  39.  con = &32
  40.  
  41. BEGIN:
  42.  
  43.  If [name] = 'SYSOP' then    ; Change this to your REAL NAME or HANDLE
  44.    Goto TOP
  45.  Endif
  46.  
  47.  If mil_time > min then
  48.    If mil_time < max then
  49.      in_effect = 'y'
  50.      reason = 'BUSY Hours In Effect!  Time This Call:\r [max_time]\b Min'
  51.      time_limit ([max_time])
  52.  Endif
  53.  
  54.  If in_effect = 'y' then
  55.    If [last] = [name] then    ; Checks if this caller was the same as last
  56.                               ; caller, so they can not cheat on BUSY HOURS
  57.      BELL
  58.      PrintE
  59.      PrintE '\i********************************************\o' Center
  60.      printe '\i\rYOU AGAIN!\b\o' Center
  61.      printe 'No One Else Has Called Since Your Last Call.' Center
  62.      printe 'This Is \i\"BUSY Hours!\"\o' Center
  63.      printe '\i********************************************\o' Center
  64.      printe 'Call Back Later After \r8\bpm...' Center
  65.      PrintE '\i********************************************\o' Center
  66.      PrintE
  67.      Printe 'BYE!!!' Center
  68.      DISCONNECT
  69.  Endif 
  70.  
  71.  If in_effect = 'y' then        ; Checks to see if BUSY HOURS are in effect
  72.    BELL
  73.    PrintE
  74.    PrintE
  75.    PrintE '\i=================================================\o' Center
  76.    PrintE '[reason]' Center
  77.    PrintE '\i=================================================\o' Center
  78.    PrintE 'BUSY Hours On This BBS Are From: \r5\bpm - \r8\bpm Daily!' Center
  79.    PrintE '\i=================================================\o' Center
  80.    PrintE
  81.                                 ; NOTE: If using BUSY HOURS, change the
  82.                                 ; 3rd Script line above for Your BUSY HOURS
  83.  
  84.    Print 'Press <\rReturn\b> To Cont... ' Center
  85.    Foreground Black
  86.    Input [Selection] 1
  87.    Endif
  88.  
  89. TOP:
  90.  If in_effect = 'y' then        ; Checks to see if BUSY HOURS are in effect
  91.    minn = &33 - con             ; Sets Time Remaining this Call, if using
  92.                                 ; BUSY HOURS
  93.  Else
  94.      min_today = &15 + con      ; Adds Time Connected and Time Used Today
  95.      minn = &33 - min_today     ; New Time Remaining, if NOT using BUSY HOURS
  96.  Endif
  97.  
  98.    Clear Screen
  99.    PrintE
  100.    PrintE 'Welcome, &01' Center
  101.    PrintE
  102.    PrintE 'How Are Things In &05, &06?' Center
  103.    PrintE 'Is The &10 Working OK?' Center
  104.    PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  105.    PrintE '# Of Callers Today......&27.' Center
  106.    PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  107.    PrintE 'You:                                 ' Center
  108.    PrintE '    Are Caller..........#&26        ' Center
  109.    PrintE '    Have Called..........&22 Times.   ' Center
  110.    PrintE '    Are Calling..........&29 Baud.  ' Center
  111.    PrintE '    Last Called On.......&12.    ' Center
  112.    PrintE 'Your:                                ' Center
  113.    PrintE '    Uploads Are..........&19.          ' Center
  114.    PrintE '    Downloads Are........&18.          ' Center
  115.    PrintE '    D/L Ratio is.....&17 to 1.         ' Center
  116.    PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  117.    PrintE 'Your:                                ' Center
  118.    PrintE '     Minutes On Today:........ &15 ' Center
  119.    PrintE '     Time Connected This Call: &32 ' Center
  120.    PrintE '     Time Remaining This Call: [minn]' Center
  121.    PrintE '     Time Limit Per Day:...... &14' Center
  122.    PrintE '     Time Limit Per Call:..... &13' Center
  123.    PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  124.    PrintE '     Todays Date.........&24       ' Center
  125.    PrintE '     Current (HST) Time..&23     ' Center
  126.    PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  127.    PrintE 'The Last Caller Was &28.' Center
  128.    PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  129.    PrintE 'The Last Callers Message For You Is..' Center
  130.    PrintE '\r^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\b' Center
  131.  
  132.                                     ; Delete the previous 2 lines of
  133.                                     ; Script, if NOT using Last Callers Msg.
  134.    PrintE
  135.     Bell
  136.    View C:\Message.Txt Noabort      ; Change this or delete this line if
  137.                                     ; NOT using Last Callers Msg
  138.     Endif
  139.    Print 'Press <\rReturn\b> To Cont... ' Center
  140.    Input [Selection] 1
  141.    Execute C:\Script\Callstat.Com   ; Delete this line, if NOT using
  142.                                     ; BAR.COM or CALLSTAT.COM
  143.    Endəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə