home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / wildcat.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  103 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.  
  20. WAITFOR "first name"
  21. LOOKFOR "Escape" ""
  22. PAUSE 1
  23. RESET
  24. TRANSMIT "X'08X'08X'08X'08X'08X'08X'08X'08
  25. IF NOT SCR_CALL THEN TRANSMIT "!"
  26. TRANSMIT "@USER@ @PASSWORD@^M"
  27. WAITFOR "Are you|password|was not found"
  28. IF FOUND=3 THEN GOTO NEWUSER
  29. IF FOUND=1 THEN TRANSMIT "Y^M"
  30. LOOKFOR "y/N]" ""
  31. GOTO TOMCAT
  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. :TOMCAT
  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 " Q]:"
  55. TRANSMIT "U^M"
  56. UPLOAD @REPDIR@@BBSID@.REP
  57.  
  58. WAITFOR "uploaded|UNSUCCESSFUL|NOT|rejected"
  59. IF FOUND=1 THEN GOTO GOODUPLD
  60. GOTO DOWNLOAD
  61.  
  62. :GOODUPLD
  63. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  64. KILL @REPDIR@@BBSID@.REP
  65. COUNT REP
  66.  
  67. :DOWNLOAD
  68. WAITFOR " Q]:"
  69. IF SCR_REPLY THEN GOTO GOODBYE
  70. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  71. TRANSMIT "D^M"
  72. WAITFOR "found: 0|oodbye when done?"
  73. IF FOUND=1 THEN GOTO GOODBYE
  74. TRANSMIT "Y^M"
  75.  
  76. WAITFOR "@BBSID@.QWK|insufficient"
  77. IF FOUND=2 THEN GOTO EXIT
  78. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  79. WAITFOR "successful|UNSUCCESSFUL| Q]:"
  80. IF FOUND=2 THEN GOTO EXIT
  81. COUNT QWK
  82.  
  83. :EXIT
  84. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  85. WAITFOR " Q]:" 10
  86. TRANSMIT "G^M"
  87. GOTO END
  88.  
  89. :GOODBYE
  90. PAUSE 3
  91. TRANSMIT "N^M"
  92. WAITFOR " Q]:"
  93. TRANSMIT "G^M"
  94.  
  95. :END
  96. WAITFOR "Thanks" 20
  97. PAUSE 2
  98.  
  99. :BYE
  100. CAPTURE OFF
  101. IF SCR_TELNET THEN EXIT
  102. HANGUP
  103.