home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1stbbs / sparky.bbs / SPARKY.SCR < prev   
Text File  |  1995-07-20  |  4KB  |  192 lines

  1. '       ┌─────────────────────────────────┐
  2. '       │ Qmail mail script for 1stReader │
  3. '       │ July 16, 1995                   │
  4. '       └─────────────────────────────────┘
  5.  
  6. IF SCR_CALL THEN GOTO SETUP
  7. KILL @API$(28)@API$(10).DL
  8. NEWFILES ON
  9.  
  10. :SETUP
  11.  
  12. TIMEOUT 30
  13. SET_API$(142)="PCBOARD"
  14.  
  15. LOOKFOR "Esc" "X'1BX'1B"
  16. LOOKFOR "correct? " "^M"
  17. LOOKFOR "elp, More? " "N^M"
  18. LOOKFOR ") to continue?" "^M"
  19. LOOKFOR "ll new mail? (" "N^M"
  20. LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
  21.  
  22. REQ_FILE @API$(14)@API$(10).REQ
  23.  
  24. LOCKLINE 20 30
  25. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  26. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  27. COMMENT "@DATE@ @TIME@  Logging in to system"
  28.  
  29. SET_API(83)=OFF
  30. WAITFOR "Language #|=no change?|color|colour|graphics (|TSX-BBS" 40
  31. SET_API(83)=ON
  32. LOOKFOR "Esc" ""
  33. IF FOUND=0 THEN GOTO FNAME
  34. IF FOUND=3 THEN GOTO GRAPHICS
  35. IF FOUND=4 THEN GOTO GRAPHICS
  36. IF FOUND=5 THEN GOTO GRAPHICS
  37. IF FOUND=6 THEN GOTO TSX
  38. TRANSMIT "@LANGUAGE@^M"
  39. WAITFOR "Do you want|color|colour" 20
  40. IF FOUND=0 THEN GOTO FNAME
  41.  
  42. :GRAPHICS
  43. TRANSMIT "@GRAPHICS@ Q NS^M"
  44.  
  45. :FNAME
  46. WAITFOR "first name" 50
  47. IF FOUND=0 THEN EXIT
  48. TRANSMIT "@USER@^M"
  49. LOOKFOR "(Enter)=yes? " "N^M"
  50. WAITFOR "last name|password|new user?" 30
  51. LOOKFOR "correct? " ""
  52. IF FOUND=1 THEN GOTO LOGIN
  53. IF FOUND=2 THEN GOTO LOGIN1
  54. IF FOUND=3 THEN GOTO NEWUSER
  55. GOTO COMMAND
  56.  
  57. :NEWUSER
  58. COMMENT "@DATE@ @TIME@  New user login"
  59. LOOKFOR "(Enter)=yes? " ""
  60. LOOKFOR ") to continue?" ""
  61. IF NOT SWITCH 1 THEN HELP 198
  62. TRANSMIT "^M"
  63. WAITFOR ")=yes?" 30
  64. TRANSMIT "Y^M"
  65. WAITFOR "please!)?" 30
  66. TRANSMIT "@PASSWORD@^M"
  67. WAITFOR "verify?" 30
  68. TRANSMIT "@PASSWORD@^M"
  69. TERMINAL
  70. LOOKFOR "(Enter)=yes? " "N^M"
  71. LOOKFOR ") to continue?" "^M"
  72. WAITFOR "Command?"
  73. GOTO COMMAND
  74.  
  75. :LOGIN
  76. TRANSMIT "^M"
  77. :LOGIN1
  78. COMMENT "@DATE@ @TIME@  Transmitting password"
  79. TRANSMIT "@PASSWORD@^M"
  80. IF SCR_CALL THEN GOTO SCR_CONT
  81.  
  82. WAITFOR "word has expired|Command?"
  83. IF FOUND=2 THEN GOTO COMMAND
  84. NEW_PASSWORD
  85. SET_PASSWORD
  86. PROMPT "Your password is now set to @PASSWORD@"
  87. TRANSMIT "@PASSWORD@^M"
  88. WAITFOR "to verify"
  89. TRANSMIT "@PASSWORD@^M"
  90. WAITFOR "Command?"
  91.  
  92. :COMMAND
  93. TIMEOUT 60
  94. IF SCR_SERVER THEN GOTO TELNET
  95. IF SCR_MAIL THEN CALL PCB-DL.SCR
  96.  
  97. :SCR_CONT
  98. IF NOT SCR_CALL THEN GOTO JOINCONF
  99. TERMINAL
  100. EXIT
  101.  
  102. :JOINCONF
  103. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  104. TRANSMIT "J @CONFERENCE@ Q - 1stReader #@API$(121)^M"
  105. WAITFOR "=yes?|Command" 3
  106. IF FOUND=1 THEN TRANSMIT "N^M"
  107.  
  108. :DOOR
  109. COMMENT "@DATE@ @TIME@  Opening Qmail Door"
  110. DOORNAME "QMAIL4"
  111. TRANSMIT "@QMAIL@ PROMPTS^M"
  112. LOOKFOR "<AUTOSTART>" "X'1B"
  113.  
  114. WAITFOR "Qmail Command?|<KEYFILE>"
  115. LOOKFOR "<AUTOSTART>" ""
  116. IF FOUND=1 THEN GOTO KEYWORDS
  117. COMMAND "@DATE@ @TIME@  Downloading your keyfile"
  118. DOWNLOAD @API$(28)1ST.KEY
  119. WAITFOR "Qmail Command?" 20
  120.  
  121. :KEYWORDS
  122. IF NOT KEYWORDS THEN GOTO REPLIES
  123. TRANSMIT "K^M"
  124. COMMENT "@DATE@ @TIME@  Transmitting keywords"
  125. WAITFOR "<KEYUP>"
  126. UPLOAD @API$(14)KEYWORDS
  127. WAITFOR "Qmail Command?" 20
  128.  
  129. :REPLIES
  130. IF NOT REPLIES THEN GOTO DOWNLOAD
  131. TRANSMIT "U@API$(48)^M"
  132. COMMENT "@DATE@ @TIME@  Uploading replies"
  133. WAITFOR "<UPLOAD>"
  134. UPLOAD @REPDIR@@BBSID@.REP
  135. WAITFOR "DELETE PACKET>|DELETE NO>|BAD UPLD>|MESSAGES INSERTED>|UP ERROR>" 180
  136. IF FOUND=1 THEN GOTO GOODUPLD
  137. IF FOUND=4 THEN GOTO GOODUPLD
  138. GOTO DOWNLOAD
  139.  
  140. :GOODUPLD
  141. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  142. KILL @REPDIR@@BBSID@.REP
  143. COUNT REP
  144.  
  145. :DOWNLOAD
  146. WAITFOR "Qmail Command?" 20
  147. IF SCR_REPLY THEN GOTO GOODBYE
  148. TRANSMIT "D@API$(48);Y;G^M"
  149.  
  150. :REPEAT
  151. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  152. WAITFOR "<DOWNLOAD>|<NO TRANSFER>|<NO TIME>"
  153. IF FOUND=1 THEN GOTO GETMAIL
  154. GOTO GOODBYE
  155.  
  156. :GETMAIL
  157. DOWNLOAD @FILEDIR@@BBSID@.QWK
  158. WAITFOR "DL SUCCESS>|DL ERROR>"
  159. IF FOUND=2 THEN GOTO EXIT
  160. COUNT QWK
  161. WAITFOR "<REPEAT>|Command?" 20
  162. IF FOUND=1 THEN GOTO REPEAT
  163.  
  164. :GOODBYE
  165. PAUSE 2
  166. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  167. TRANSMIT "G^M"
  168.  
  169. :EXIT
  170. IF SCR_TELNET THEN GOTO DONE
  171. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  172. LOOKFOR "<GOODBYE>" "^M"
  173. WAITFOR "<HANGUP>" 20
  174. PAUSE 2
  175.  
  176. :DONE
  177. CAPTURE OFF
  178. EXIT
  179.  
  180. :TSX
  181. SET_API$(142)="TSX"
  182. LOOKFOR "Esc" ""
  183. LOOKFOR "correct? " ""
  184. LOOKFOR "elp, More? " ""
  185. LOOKFOR ") to continue?" ""
  186. LOOKFOR "ll new mail? (" ""
  187. LOOKFOR "<CHAT>" ""
  188. RUN "TSX.SCR"
  189. EXIT
  190.  
  191.  
  192.