/////////////////////////////////////////////////////////////////////////
//          SCHLIGHT.SLT  -  by Terry Robertson (October 1988)         //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
//                                                                     //
//    SCRIPT TO LOG-ON TO A SEARCHLIGHT SYSTEM.                        //
//                                                                     //
//    Please note that this script expects you to have assigned your   //
//    FULL NAME to function key F4. The easiest way to do this is by   //
//    using the FKEY script in this collection.                        //
//                                                                     //
//    In addition, the script is written so that it will abort if you  //
//    have not completed the relevant PASSWORD entry in the Dialling   //
//    Directory.                                                       //
//                                                                     //
//    I have assumed that you want to use the linked scripts CONNECT   //
//    and CAPTURE. If you do not have these or prefer not to use       //
//    them you should "comment out" the two lines starting "call"      //
//    by simply putting "//" before the word "call".                   //
//                                                                     //
//    TELIX supports ANSI graphics and I have assumed that you wish    //
//    to take advantage of this feature and that you have a colour     //
//    monitor. If this is not the case you should go to the area       //
//    below dealing with graphics and change the "C" to either "M" or  //
//    "N" as required.                                                 //
//                                                                     //
/////////////////////////////////////////////////////////////////////////


str s[30];

main()

{
 alarm(1);

 call("connect", 1);                    // Gives "connect" information by
                                        // calling Connect.slc script
 call("capture", 1);                    // Opens new capture file by calling
                                        // Capture.slc script

 if (not _entry_pass)                   // no pass, so didn't recog. board
  {
   prints ("Sorry, I don't know the password for this BBS!");
   return;
  }

 Waitfor("or [N]one ?");                  // identify Graphics prompt ...
 cputs("C");                              // send "C" for colour; alternatives
                                          // are "M" for mono or "N" for none
 cputs("^M");
 cputs("^C");                             // \
 cputs("^C");                             //  } kill next three screens
 cputs("^C");                             // /


 if (not waitfor("name", 20))             // if no prompt for name
  {
   prints("Log-on failed!");
   return;                                // ...abort
  }

 keyget(0x3e00, 0, s);
 delchrs(s, strlen(s) - 2, strlen(s));
 cputs(s);
 cputs("^M");

 if (not waitfor("Password?", 20))        // if no prompt for password
  {
   prints("Log-on failed!");
   return;                                // ...abort
  }

 cputs(_entry_pass);                      // send password
 cputs("^M");

 Waitfor("[RETURN]:");
 cputs("^M");

  }