home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2SC121.ZIP / Oberon.Scr < prev    next >
Text File  |  1992-07-21  |  2KB  |  70 lines
  1. ;; -------------------------------------------------------------------------
  2. ;;
  3. ;; OberonLogin.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 the Oberon Software
  7. ;;        User Support 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 = "Obern"          ;; <<== Change this for your setup
  25. string  MyName      = "Brady;Flowers"  ;; <<== Change this to your name
  26.  
  27. integer hWatch1
  28. integer hWatch2
  29. integer hWatch3
  30. integer hWatch4
  31.  
  32. program
  33.  
  34.   if !connected
  35.     dial(DialerEntry)
  36.   endif
  37.  
  38.   if connected
  39.     run("Bink2BBS")
  40.     if fGotBBS
  41.  
  42.       hWatch1 = watchfor("Press [ENTER] to continue:", "sendbyte(13)")
  43.       hWatch2 = watchfor("Press ENTER to continue...", "sendbyte(13)")
  44.       hWatch3 = watchfor("Notes for",                  "sendbyte('S')")
  45.       hWatch4 = watchfor("now (ENTER=Yes)?",           "sendbyte('N')")
  46.  
  47.       waitfor("Enter your FIRST and LAST name:", 30)
  48.       transmit("%s^M", MyName)
  49.       waitfor("Password:", 30)
  50.       transmit("%s^M", Password(""))
  51.  
  52.       waitfor("───", 30)
  53.       sendbyte('S')
  54.       waitfor("Bulletins:", 60)
  55.       sendbyte('S')
  56.       waitfor("Select:", 60)
  57.  
  58.       cancelwatch(hWatch1)
  59.       cancelwatch(hWatch2)
  60.       cancelwatch(hWatch3)
  61.       cancelwatch(hWatch4)
  62.  
  63.     else
  64.       ;; Couldn't get thru Binkley for some reason?
  65.       hangup(FALSE)
  66.     endif
  67.   endif
  68.   end
  69.  
  70.