home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / stqwk145 / qwk.scr < prev    next >
Text File  |  1993-04-04  |  2KB  |  69 lines
  1. Script
  2.  
  3. abort off
  4.  
  5. ; THIS SCRIPT _WILL_NOT_ WORK ON OLDER (PRE-1.50) VERSIONS OF EXPRESS!
  6.  
  7. ;~~~~~~~~ USER-DEFINABLE VARIABLES ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  8.  
  9. string FD_Path    = 'c:\stq\'               ; Your ST-QWK path.
  10. string BBS_Path   = 'C:\BBS\'                  ; Your Express! path.
  11. string Call_Log   = 'C:\Binkley\binkley.Log'   ; Your BBS Call Log file.
  12.  
  13. ;~~~~~~~~ OTHER VARIABLES ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  14.  
  15. var CD
  16. var Call
  17. var Temp
  18. var TermType
  19. var Name     = &2                       ; Caller's Real Name.
  20. var Limit    = &33                      ; Caller's Time Left This Call.
  21.  
  22. ;~~~~~~~~ BEGIN CALLER SETUP ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  23.  
  24. increase Limit                          ; So they are REALLY out of time.
  25.  
  26. ;~~~~~~~~ CHECK IF LOCAL; WRITE TO CALL LOG ~~~~~~~~~~~~~~~~~~~
  27.  
  28. FIDODOOR2:
  29.  
  30. if &29 = 19200                          ; 19200 baud means LOCAL logon.
  31.   Call = 'Local'
  32. else
  33.   Call = ''                             ; Otherwise, null Call string,
  34.   open ('[Call_Log]', append)           ;   and write to Call Log.
  35.     fprinte '       MA> -*- Entered ST-QWK -*- &23' ; MA = Message Areas.
  36.   close
  37. endif
  38.  
  39. ;~~~~~~~~ SET CALLER'S TERMINAL TYPE FOR FIDODOOR ~~~~~~~~~~~~~
  40.  
  41. if &66 > 3                              ; If ANSI,
  42.   TermType = 2                          ;   FIDOdoor needs a 2.
  43. ef &66 > 1                              ; If VT52,
  44.   TermType = 1                          ;   FIDOdoor needs a 1.
  45. else
  46.   TermType = 0                          ; All others get 0 for ASCII.
  47. endif
  48.  
  49. ;~~~~~~~~ FINALLY, LET'S LOAD FIDODOOR... ~~~~~~~~~~~~~~~~~~~~~
  50.  
  51. printe '\n\rLoading ST-QWK\g...\b\n'  ; Explain the delay.
  52.  
  53. CD = file_chgdrive ('[FD_Path]')        ; Change to default FD drive.
  54. CD = file_chgdir   ('[FD_Path]')        ; Change to default FD path.
  55.   ttp ('[FD_Path]st_qwk.TTP','-NAME &2 -GT [TermType] -BAUD &29 [Call]')
  56. default_path                            ; Change back to BBS drive\path.
  57.  
  58. ;~~~~~~~~ ALL DONE, SO LET'S GET OUT OF HERE ~~~~~~~~~~~~~~~~~~
  59.  
  60. if &29 < 19200                          ; If not LOCAL,
  61.   open ('[Call_Log]', append)           ;   write to Call Log they exited.
  62.     fprinte '       MA> -*- Exited  ST-QWK -*- &23'
  63.   close
  64. endif
  65.  
  66. printe '\n\n'                           ; Give us some blank lines.
  67.  
  68. EXIT
  69.