home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / HCSNET2C.ZIP / HCSNET.SLT < prev    next >
Encoding:
Text File  |  1992-10-20  |  2.6 KB  |  102 lines
  1. //  Automatic SALT mail transfer script for HCSNet(tm)
  2. //
  3. //  Updated on -- Sat Oct 19, 1992 at 17:49pm
  4. //
  5. //  Albert J. Hawker, HCS BBS - Cleveland, Ohio - (216)273-8224
  6. //
  7.  
  8. int       result;                       // Generic return code
  9. str       failed[] = "Logon failed.";   // Failed message
  10.  
  11.  
  12.                                         //  main routine
  13.                                         //
  14. main()
  15. {
  16.  
  17.   if (! waitfor("r] = Yes :", 60))      // Look for Color prompt
  18.   {
  19.     prints(failed);
  20.     return;
  21.   }
  22.   delay(2);
  23.   cputs("y q ns o^M");                  // Send Quick login with override
  24.  
  25.   if (! waitfor("st Name :", 60))       // Look for name prompt
  26.   {
  27.     prints(failed);
  28.     return;
  29.   }
  30.   delay(2);                                  // Send Name and password
  31.   cputs("FIRSTNAME LASTNAME PASSWORD^M");    // YOUR NAME & PASSWORD HERE!
  32.  
  33.   if (! waitfor("Command :", 60))        // Look for Main Menu Command line
  34.   {
  35.     prints(failed);
  36.     return;
  37.   }
  38.   delay(2);
  39.   cputs("qwk^M");                        // Open GAP QWKREP
  40.  
  41.   if (! waitfor(" [H]elp :", 60))        // Look for QWKREP command prompt
  42.   {
  43.     prints(failed);
  44.     return;
  45.   }
  46.   delay(2);
  47.   cputs("d^M");                            // Tell it we want to DL a QWK
  48.  
  49.   if (! waitfor("acket now.", 60))         // Wait for start transfer prompt
  50.   {
  51.     prints(failed);  
  52.     return;
  53.   }
  54.   delay(2);
  55.   receive('Z', "hcs_bbs.qwk");             // Start Zmodem DL of QWK packet
  56.  
  57.   if (! waitfor(" Continue", 60))          // Wait for "Press Any Key" prompt
  58.   {
  59.     prints(failed);
  60.     return;
  61.   }
  62.   delay(2);
  63.   cputs("^M");                             // and press the "ANY" key <grin>
  64.  
  65.   if (! waitfor(" [H]elp :", 60))          // Look for QWKREP command prompt
  66.   {
  67.     prints(failed);
  68.     return;
  69.   }
  70.   delay(5);
  71.   cputs("u^M");                            // Tell it we want to upload
  72.  
  73.   if (! waitfor("acket now.", 60))         // Wait for start transfer prompt
  74.   {
  75.     prints(failed);
  76.     return;
  77.   }
  78.   delay(5);
  79.   send('Z', "hcs_bbs.rep");                // START UPLOAD COMMAND HERE
  80.  
  81.   if (! waitfor(" [H]elp :", 60))          // Look for QWKREP Command line
  82.   {
  83.     prints(failed);
  84.     return;
  85.   }
  86.   delay(5);
  87.   cputs("q^M");                            // Tell it we want to Quit
  88.  
  89.   if (! waitfor("Command :", 68))          // Look for GAP main menu prompt
  90.   {
  91.     prints(failed);
  92.     return;
  93.   }
  94.   delay(5);
  95.   cputs("g q^M");                          // Say goodbye... Quickly
  96.  
  97.   delay_scr(111);                          // wait a few sec for hangup
  98.   Exittelix(0, 1);                         // Exit Telix
  99.  
  100.   return;
  101. }
  102.