home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / QMAIL4.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  2.0 KB  |  92 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ Qmail mail script for 1stReader │
  3. '       │ May 15th, 1993                  │
  4. '       └─────────────────────────────────┘
  5.  
  6. IF SCR_CALL THEN GOTO SETUP
  7. CAPTURE ON
  8. KILL @API$(28)@API$(10).DL
  9. NEWFILES ON
  10.  
  11. :SETUP
  12. CALL $$PCB.SCR
  13.  
  14. IF NOT SCR_CALL THEN GOTO JOINCONF
  15. TERMINAL
  16. EXIT
  17.  
  18. :JOINCONF
  19. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  20. TRANSMIT "J @CONFERENCE@ Q - 1stReader #@API$(121)^M"
  21. WAITFOR "=yes?" 3
  22. IF FOUND=1 THEN TRANSMIT "N^M"
  23.  
  24. :DOOR
  25. COMMENT "@DATE@ @TIME@  Opening Qmail Door"
  26. TRANSMIT "@QMAIL@ PROMPTS^M"
  27. LOOKFOR "<AUTOSTART>" "X'1B"
  28.  
  29. WAITFOR "Qmail Command?|<KEYFILE>"
  30. LOOKFOR "<AUTOSTART>" ""
  31. IF FOUND=1 THEN GOTO KEYWORDS
  32. COMMAND "@DATE@ @TIME@  Downloading your keyfile"
  33. DOWNLOAD @API$(28)1ST.KEY
  34. WAITFOR "Qmail Command?" 20
  35.  
  36. :KEYWORDS
  37. IF NOT KEYWORDS THEN GOTO REPLIES
  38. TRANSMIT "K^M"
  39. COMMENT "@DATE@ @TIME@  Transmitting keywords"
  40. WAITFOR "<KEYUP>"
  41. UPLOAD @API$(14)KEYWORDS
  42. WAITFOR "Qmail Command?" 20
  43.  
  44. :REPLIES
  45. IF NOT REPLIES THEN GOTO DOWNLOAD
  46. TRANSMIT "U@API$(48)^M"
  47. COMMENT "@DATE@ @TIME@  Uploading replies"
  48. WAITFOR "<UPLOAD>"
  49. UPLOAD @REPDIR@@BBSID@.REP
  50. WAITFOR "DELETE PACKET>|DELETE NO>|BAD UPLD>|MESSAGES INSERTED>"
  51. IF FOUND=1 THEN GOTO GOODUPLD
  52. IF FOUND=4 THEN GOTO GOODUPLD
  53. GOTO DOWNLOAD
  54.  
  55. :GOODUPLD
  56. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  57. KILL @REPDIR@@BBSID@.REP
  58. COUNT REP
  59.  
  60. :DOWNLOAD
  61. WAITFOR "Qmail Command?" 20
  62. IF SCR_REPLY THEN GOTO GOODBYE
  63. TRANSMIT "D@API$(48);Y;G^M"
  64.  
  65. :REPEAT
  66. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  67. WAITFOR "<DOWNLOAD>|<NO TRANSFER>|<NO TIME>"
  68. IF FOUND=1 THEN GOTO GETMAIL
  69. GOTO GOODBYE
  70.  
  71. :GETMAIL
  72. DOWNLOAD @FILEDIR@@BBSID@.QWK
  73. WAITFOR "DL SUCCESS>|DL ERROR>"
  74. IF FOUND=2 THEN GOTO EXIT
  75. COUNT QWK
  76. WAITFOR "<REPEAT>|Command?" 20
  77. IF FOUND=1 THEN GOTO REPEAT
  78.  
  79. :GOODBYE
  80. PAUSE 2
  81. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  82. TRANSMIT "G^M"
  83.  
  84. :EXIT
  85. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  86. LOOKFOR "<GOODBYE>" "^M"
  87. WAITFOR "<HANGUP>" 20
  88. PAUSE 2
  89.  
  90. CAPTURE OFF
  91.  
  92.