home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / DOOR / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / $$PCB.SCR < prev    next >
Text File  |  1993-05-23  |  2KB  |  86 lines
  1. '       ┌────────────────────────────────────┐
  2. '       │ PCBoard login script for 1stReader │
  3. '       │ Written by Mark Herring            │
  4. '       │ May 15th, 1993                     │
  5. '       └────────────────────────────────────┘
  6.  
  7.  
  8. TIMEOUT 30
  9. SET_API$(142)="PCBOARD"
  10.  
  11. LOOKFOR "Esc" "X'1BX'1B"
  12. LOOKFOR "correct? " "^M"
  13. LOOKFOR "elp, More? " "N^M"
  14. LOOKFOR ") to continue?" "^M"
  15. LOOKFOR "ll new mail? (" "N^M"
  16. LOOKFOR "<CHAT>" "Sorry, I'm on automatic using 1stReader^M"
  17.  
  18. REQ_FILE @API$(14)@API$(10).REQ
  19.  
  20. LOCKLINE 20 30
  21. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  22. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  23. COMMENT "@DATE@ @TIME@  Logging in to system"
  24.  
  25. WAITFOR "Language #|=no change?|color|graphics (" 20
  26. LOOKFOR "Esc" ""
  27. IF FOUND=0 THEN GOTO FNAME
  28. IF FOUND=3 THEN GOTO GRAPHICS
  29. IF FOUND=4 THEN GOTO GRAPHICS
  30. TRANSMIT "@LANGUAGE@^M"
  31. WAITFOR "Do you want|color" 20
  32. IF FOUND=0 THEN GOTO FNAME
  33.  
  34. :GRAPHICS
  35. TRANSMIT "@GRAPHICS@ Q NS^M"
  36.  
  37. :FNAME
  38. WAITFOR "first name" 50
  39. IF FOUND=0 THEN EXIT
  40. TRANSMIT "@USER@^M"
  41. LOOKFOR "(Enter)=yes? " "N^M"
  42. WAITFOR "password|new user?" 30
  43. LOOKFOR "correct? " ""
  44. IF FOUND=1 THEN GOTO LOGIN
  45. IF FOUND=2 THEN GOTO NEWUSER
  46. GOTO COMMAND
  47.  
  48. :NEWUSER
  49. COMMENT "@DATE@ @TIME@  New user login"
  50. LOOKFOR "(Enter)=yes? " ""
  51. LOOKFOR ") to continue?" ""
  52. IF NOT SWITCH 1 THEN HELP 198
  53. TRANSMIT "^M"
  54. WAITFOR ")=yes?" 30
  55. TRANSMIT "Y^M"
  56. WAITFOR "please!)?" 30
  57. TRANSMIT "@PASSWORD@^M"
  58. WAITFOR "verify?" 30
  59. TRANSMIT "@PASSWORD@^M"
  60. TERMINAL
  61. LOOKFOR "(Enter)=yes? " "N^M"
  62. LOOKFOR ") to continue?" "^M"
  63. WAITFOR "Command?"
  64. GOTO COMMAND
  65.  
  66. :LOGIN
  67. COMMENT "@DATE@ @TIME@  Transmitting password"
  68. TRANSMIT "@PASSWORD@^M"
  69. IF SCR_CALL THEN GOTO EXIT
  70.  
  71. WAITFOR "word has expired|Command?"
  72. IF FOUND=2 THEN GOTO COMMAND
  73. NEW_PASSWORD
  74. SET_PASSWORD
  75. PROMPT "Your password is now set to @PASSWORD@"
  76. TRANSMIT "@PASSWORD@^M"
  77. WAITFOR "to verify"
  78. TRANSMIT "@PASSWORD@^M"
  79. WAITFOR "Command?"
  80.  
  81. :COMMAND
  82. TIMEOUT 60
  83. IF SCR_MAIL THEN CALL PCB-DL.SCR
  84.  
  85. :EXIT
  86.