home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / wcmail.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  109 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ Wildcat! script for 1stReader │
  3. '       │ July 20, 1995                 │
  4. '       └───────────────────────────────┘
  5.  
  6. IF SCR_CALL THEN GOTO SETUP
  7. TIMEOUT 30
  8.  
  9. :SETUP
  10. LOCKLINE 20 30
  11. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  12. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  13. COMMENT "@DATE@ @TIME@  Logging in to system"
  14.  
  15. LOOKFOR "Esc" "X'1BX'1B"
  16. LOOKFOR "Y/n]" "Y^M"
  17. LOOKFOR "OCOL MENU" "Z^M"
  18. LOOKFOR "[S]top?" "S^M"
  19. LOOKFOR "ontinue" "C^M"
  20.  
  21. WAITFOR "first name"
  22. LOOKFOR "Escape" ""
  23. IF NOT SCR_CALL THEN TRANSMIT "!"
  24. PAUSE 1
  25. TRANSMIT "@USER@^M"
  26. WAITFOR "Are you @USER@|password|was not found"
  27. IF FOUND=3 THEN GOTO NEWUSER
  28. IF FOUND=1 THEN TRANSMIT "Y^M"
  29. TRANSMIT "@PASSWORD@^M"
  30. LOOKFOR "y/N]" ""
  31. GOTO wcMAIL
  32.  
  33. :NEWUSER
  34. IF NOT SCR_CALL THEN GOTO BYE
  35. COMMENT "@DATE@ @TIME@  New user login"
  36. WAITFOR "? [" 20
  37. TRANSMIT "Y^M"
  38. WAITFOR "password? [" 20
  39. TRANSMIT "@PASSWORD@^M"
  40. WAITFOR "verify? [" 20
  41. TRANSMIT "@PASSWORD@^M"
  42. IF NOT SWITCH 1 THEN HELP 198
  43. TERMINAL
  44. EXIT
  45.  
  46. :wcMAIL
  47. IF NOT SCR_CALL THEN GOTO REPLIES
  48. TERMINAL
  49. EXIT
  50.  
  51. :REPLIES
  52. IF NOT REPLIES THEN GOTO DOWNLOAD
  53. COMMENT "@DATE@ @TIME@  Uploading replies"
  54. WAITFOR "wcMAIL|QWK/REP"
  55. PAUSE 1
  56. TRANSMIT "U^M"
  57. UPLOAD @REPDIR@@BBSID@.REP
  58.  
  59. WAITFOR "uploaded|UNSUCCESSFUL|NOT|rejected"
  60. IF FOUND=1 THEN GOTO GOODUPLD
  61. GOTO DOWNLOAD
  62.  
  63. :GOODUPLD
  64. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  65. KILL @REPDIR@@BBSID@.REP
  66. COUNT REP
  67.  
  68. :DOWNLOAD
  69. WAITFOR "wcMAIL|QWK/REP"
  70. IF SCR_REPLY THEN GOTO GOODBYE
  71. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  72. PAUSE 1
  73. TRANSMIT "D^M"
  74. WAITFOR "found: 0|oodbye when done?"
  75. IF FOUND=1 THEN GOTO NOMAIL
  76. TRANSMIT "Y^M"
  77.  
  78. WAITFOR "@BBSID@.QWK|insufficient"
  79. IF FOUND=2 THEN GOTO EXIT
  80. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  81. WAITFOR "successful|UNSUCCESSFUL|wcMAIL"
  82. IF FOUND=2 THEN GOTO EXIT
  83. COUNT QWK
  84.  
  85. :EXIT
  86. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  87. WAITFOR "wcMAIL|QWK/REP" 5
  88. TRANSMIT "G^M"
  89. LOOKFOR "logoff" "Y^M"
  90. GOTO END
  91.  
  92. :NOMAIL
  93. TRANSMIT "N^M"
  94. GOTO GOODBYE
  95.  
  96. :GOODBYE
  97. WAITFOR "wcMAIL|QWK/REP" 5
  98. TRANSMIT "G^M"
  99. LOOKFOR "logoff" "Y^M"
  100.  
  101. :END
  102. WAITFOR "Thanks" 20
  103. PAUSE 2
  104.  
  105. :BYE
  106. CAPTURE OFF
  107. IF SCR_TELNET THEN EXIT
  108. HANGUP
  109.