home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / RNEW100A.ZIP / VAMPYRE!.BBS / $$REPLY.SCR < prev    next >
Encoding:
Text File  |  1992-07-03  |  1.8 KB  |  74 lines
  1. '       ┌───────────────────────────────────────┐
  2. '       │ Qmail Door reply script for 1stReader │
  3. '       │ Written by Mark Herring               │
  4. '       │ July 1st, 1992                        │
  5. '       └───────────────────────────────────────┘
  6.  
  7. TIMEOUT 30
  8. LOOKFOR "correct? " "^M"
  9. LOOKFOR "elp, More? " "N^M"
  10. LOOKFOR "(Enter)=yes? " "N^M"
  11. LOOKFOR "Language #" "@LANGUAGE@^M"
  12. LOOKFOR ") to continue?" "^M"
  13. LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
  14.  
  15. LOCKLINE 20 30
  16. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  17. COMMENT "@DATE@ @TIME@  Logging in to system"
  18.  
  19. WAITFOR "graphics" 10
  20. TRANSMIT "@GRAPHICS@ Q NS^M"
  21. WAITFOR "first name" 50
  22. IF FOUND=0 EXIT
  23. TRANSMIT "@USER@^M"
  24. WAITFOR "password|new user?"
  25. LOOKFOR "correct? " ""
  26. IF FOUND=1 GOTO LOGIN
  27.  
  28. COMMENT "@DATE@ @TIME@  New user login"
  29. TRANSMIT "^M"
  30. IF NOT SWITCH 1 HELP 198
  31. TERMINAL
  32. GOTO DOOR
  33.  
  34. :LOGIN
  35. COMMENT "@DATE@ @TIME@  Transmitting password"
  36. TRANSMIT "@PASSWORD@^M"
  37. WAITFOR "Command @FIRST@?"
  38. TIMEOUT 60
  39.  
  40. :DOOR
  41. COMMENT "@DATE@ @TIME@  Opening Qmail Door"
  42. TRANSMIT "@QMAIL@ PROMPTS;U^M"
  43. LOOKFOR "<AUTOSTART>" "X'1B"
  44.  
  45. IF NOT KEYWORDS GOTO REPLIES
  46. COMMENT "@DATE@ @TIME@  Transmitting keywords"
  47. WAITFOR "<KEYUP>"
  48. UPLOAD @API$(14)KEYWORDS
  49.  
  50. :REPLIES
  51. IF NOT REPLIES GOTO DOWNLOAD
  52. COMMENT "@DATE@ @TIME@  Uploading replies"
  53. WAITFOR "<UPLOAD>"
  54. UPLOAD @REPDIR@@BBSID@.REP
  55. WAITFOR "<MESSAGES INSERTED>|<MESSAGES NOT INSERTED>|<BAD UPLD>"
  56. IF FOUND=1 GOTO GOODUPLD
  57. GOTO GOODBYE
  58.  
  59. :GOODUPLD
  60. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  61. KILL @REPDIR@@BBSID@.REP
  62. COUNT REP
  63.  
  64. :GOODBYE
  65. WAITFOR "<COMMAND>" 30
  66. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  67. TRANSMIT "G^M"
  68.  
  69. :EXIT
  70. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  71. LOOKFOR "<GOODBYE>" "^M"
  72. WAITFOR "<HANGUP>" 20
  73. PAUSE 2
  74.