Hi Mark!
I'm including in this message a script that you send to me a few weeks ago.
It is a script that open up the dialing directory, mark the 3 entries in
it, and dials them...
I was using this script with Telix for DOS (3.51) and it was working very
well with my telix setup.
Now I'm running Telix for Windows version 1.10 and the script continue to
work well except for one thing.
the script does not unmark the entries that is previously connect.
so here is the script...
any help will be appreciate.
Thanks
// 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()
{
clear_scr();
int MAX = 2500; // 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", 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("2", 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("3", 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);
}'
Luc LeBrun
luc.lebrun%politique@qanet.org
... Not tonight, dear. I have a modem.
--- FMailX 1.40g
---------------
* Origin: [fido] cool.world Quebec City 418.843.0162 (1:240/99)
|