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