home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2SC121.ZIP / MaxLogin.Scr < prev    next >
Text File  |  1992-07-21  |  2KB  |  56 lines
  1. ;; -------------------------------------------------------------------------
  2. ;;
  3. ;; MaxLogin.Scr -- Copyright (c) 1992, Oberon Software, Mankato Mn
  4. ;;                 Author: Brady Flowers, 07/19/92
  5. ;;
  6. ;; Usage: This is setup specifically for logging onto Pete Norloff's
  7. ;;        OS/2 Shareware BBS.  You may run this either attached to the
  8. ;;        directory entry for the BBS or from the Alt-/ Command Prompt.
  9. ;;        If you run it from the Command Prompt, make sure that you
  10. ;;        change the value of the string "DialerEntry" to match the tag
  11. ;;        for the BBS as it appears in your dialing directory.  (Also,
  12. ;;        you should change the string "MyName" appropriately!)
  13. ;;
  14. ;; Note:  The script expects to find your password for the BBS stored
  15. ;;        with the directory entry.
  16. ;;
  17. ;; Note:  This script requires that "Bink2BBS.Scr" be present somewhere
  18. ;;        on your ScriptPath also.
  19. ;;
  20. ;; -------------------------------------------------------------------------
  21.  
  22. global integer fGotBBS                 ;; Return value from Bink2BBS.Scr
  23.  
  24. string  DialerEntry = "PN2"            ;; <<== Change this for your setup
  25. string  MyName      = "Brady;Flowers"  ;; <<== Change this to your name
  26. integer hWatch1
  27. integer hWatch2
  28.  
  29. program
  30.  
  31.   if !connected
  32.     dial(DialerEntry)
  33.   endif
  34.  
  35.   if connected
  36.     run("Bink2BBS")
  37.     if fGotBBS
  38.  
  39.       hWatch1 = watchfor("Press ENTER to continue", "sendbyte(13)")
  40.       hWatch2 = watchfor("[Y,n]", "transmit(""n^M"")")
  41.  
  42.       waitfor("What is your name:", 30)
  43.       transmit("%s;y;%s^M", myName, Password(""))
  44.       waitfor("Select:", 120)
  45.  
  46.       cancelwatch(hWatch1)
  47.       cancelwatch(hWatch2)
  48.  
  49.     else
  50.       ;; Couldn't get thru Binkley for some reason?
  51.       hangup(FALSE)
  52.     endif
  53.   endif
  54.   end
  55.  
  56.