home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / MAXIMUS.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.7 KB  |  84 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ 1stReader Mail script         │
  3. '       │ For Maximus                   │
  4. '       │ May 15th, 1993                │
  5. '       └───────────────────────────────┘
  6.  
  7. IF SCR_CALL THEN GOTO SETUP
  8. CAPTURE ON
  9. TIMEOUT 30
  10.  
  11. :SETUP
  12. LOOKFOR "Esc" "X'1BX'1B"
  13. LOOKFOR "ENTER to continue" "^M"
  14. LOOKFOR "able protocols:" "Z^M"
  15.  
  16. LOCKLINE 20 30
  17. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  18. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  19. COMMENT "@DATE@ @TIME@  Logging in to system"
  20.  
  21. WAITFOR "name:"
  22. LOOKFOR "Esc" ""
  23. TRANSMIT "@USER@^M"
  24. WAITFOR "[Y,n]?"
  25. TRANSMIT "Y^M"
  26. WAITFOR "Password:"
  27. TRANSMIT "@PASSWORD@^M"
  28.  
  29. LOOKFOR "Escape" ""
  30. IF NOT SCR_CALL THEN GOTO MAIL
  31. TERMINAL
  32. EXIT
  33.  
  34. :MAIL
  35. LOOKFOR "[Y,n]?" "N^M"
  36. LOOKFOR "(Y,n)" "N^M"
  37.  
  38. WAITFOR "Select:"
  39.  
  40. COMMENT "@DATE@ @TIME@  Selecting offline mail system"
  41. TRANSMIT "O^M"
  42.  
  43. LOOKFOR "[Y,n]?" ""
  44. LOOKFOR "(Y,n)" ""
  45.  
  46. :REPLIES
  47. IF NOT REPLIES THEN GOTO DOWNLOAD
  48. COMMENT "@DATE@ @TIME@  Uploading replies"
  49. WAITFOR "Select:"
  50. TRANSMIT "U^M"
  51. WAITFOR "cancel." 10
  52. UPLOAD @REPDIR@@BBSID@.REP
  53. WAITFOR "Tossing|Error"
  54. IF FOUND=1 THEN GOTO GOODUPLD
  55. GOTO DOWNLOAD
  56.  
  57. :GOODUPLD
  58. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  59. KILL @REPDIR@@BBSID@.REP
  60. COUNT REP
  61.  
  62. :DOWNLOAD
  63. WAITFOR "Select:"
  64. IF SCR_REPLY THEN GOTO EXIT1
  65. TRANSMIT "D^M"
  66. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  67. WAITFOR "format [Y,n]?|Select:"
  68. IF FOUND=2 THEN GOTO EXIT1
  69.  
  70. TRANSMIT "Y^M"
  71. WAITFOR "to abort:"
  72. TRANSMIT "^M"
  73. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  74. COUNT QWK
  75.  
  76. :EXIT
  77. WAITFOR "Select:" 20
  78. :EXIT1
  79. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  80. TRANSMIT "G;Y;N^M"
  81. PAUSE 10
  82.  
  83. CAPTURE OFF
  84.