(( QUOTING = From: Lowell Adams To: All ))
LA> Would anyone have a script for TFW that would dial an entry in the
LA> phonebook with all of the phonebook properties still intact
LA> including running another script when you first bring up TFW?
Hello Lowell,
As far as I know this old thing also works for TFW.
==================== CUT TOP =====================================
// DIALLOOP.SLT v2.00 01/03/93
//
// By: Mark P. Harrison FIDO: 1:2250/23 BBS: (618)539-6254
// INTERNET: MPHsoft@aol.com
//
// This script will continue to try 3 different dialing directory
// entries until all of them have been contacted or tried MAX times.
// It WILL run each of their "linked scripts" after connecting.
// See notes below about making log entries and exiting Telix.
// I'm sure you can see how to add a few more "if sections" if you
// need more or less if you need less.
//
main()
{
int MAX = 25; // Set the maximum number of connect tries.
int COUNT; // Keep track of number of connect tries.
str A[] = "N", B[] = "N", C[] = "N";
_entry_enum = 0;
while (((A == "N") || (B == "N") || (C == "N")) && (COUNT < MAX))
{
if (A == "N")
{
dial("#", 1); // Replace # with entry number you want to call.
if (_entry_enum > 0) A = "Y";
_entry_enum = 0;
while (carrier())
terminal();
}
if (B == "N")
{
dial("#", 1); // Replace # with entry number you want to call.
if (_entry_enum > 0) B = "Y";
_entry_enum = 0;
while (carrier())
terminal();
}
if (C == "N")
{
dial("#", 1); // Replace # with entry number you want to call.
if (_entry_enum > 0) C = "Y";
_entry_enum = 0;
while (carrier())
terminal();
}
COUNT = COUNT + 1; // Working up to MAX tries
}
// If you wanted a log entry stating the BBS's that you did/did not
// connect to, You need to remove the "//" from the following
// IF/ELSE lines.
// if(A == "Y") ustamp("You connected with BBS - A", 0, 1);
// else ustamp("You did NOT connect with BBS - A", 0, 1);
// if(B == "Y") ustamp("You connected with BBS - B", 0, 1);
// else ustamp("You did NOT connect with BBS - B", 0, 1);
// if(C == "Y") ustamp("You connected with BBS - C", 0, 1);
// else ustamp("You did NOT connect with BBS - C", 0, 1);
// Remove the "//" before the EXITTELIX line if you want to exit
// Telix after ALL have been contacted or MAX number of tries.
// exittelix(0, 1);
}
============================== CUT BOTTOM =========================
Mark Harrison | MPHsoft@aol.com | http://kom.net/~mphsoft
MPH Software | BBS\FAX: 618-539-6254 | RECORD21 - PICKUP14 - RFW10
--- GoldED 3.00.Beta2+
---------------
* Origin: > Custom Communication Automation (1:2250/23)
|