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