MS| I have a BBS and call a hub with Cam-Mail Gold v 2.05. I
| use telix v 3.22. Have a script that works for most of it.
| But won't automatically send replies. Does anyone have a
| good script for this. You can post it here. I also have an
Here's one I used for some time. It is designed to work with any
standard PCBoard logon script that logs you on, gets to the main prompt,
then terminates. If you need such a script, let me know and I'll post
mine.
All you need to do to use the script is enter the BBS's entry number
from your dialing directory, and the base name of its QWK/REP packets.
// Telix script file to up/download mail on Wingit BBS via Cam-Mail
// via Cam Mail, using Zmodem
// by Jack Hudgions
//
// Change to your dialing directory entry number.
str EntryNumber[] = "0";
// ^
// Change to the mail packet name.
str PacketName[] = "BBSID";
//
// Change colors below as desired.
int BoxText = 30;
int BoxHiLite = 31;
main()
{
str ReplyPacket[64], DownFile[64], Junk[64], Option[1];
int Stat, Reply, MailPrompt, UpPrompt, Storage, Success;
ReplyPacket = _up_dir;
StrCat(ReplyPacket, PacketName);
StrCat(ReplyPacket, ".REP");
Reply = filefind(ReplyPacket, 0, Junk); // check for reply packet
if (Reply)
{
Stat = vsavearea(22, 9, 56, 16);
box(22, 9, 56, 16, 3, 0, BoxHiLite);
pstraxy("Options:", 27, 10, BoxHiLite);
pstraxy("1 - Complete mail run", 28, 12, BoxText);
pstraxy("2 - Upload only", 28, 13, BoxText);
pstraxy("Your choice?", 27, 15, BoxHiLite);
getsxy(Option, 1, 40, 15, BoxHiLite);
if (Stat != -1)
vrstrarea(Stat);
if ((Option "2"))
return;
}
else
Option = "1";
if (not carrier()) // log on if offline
{
if (not dial(EntryNumber, 0, 0))
{
status_wind("Log-on failed.", 30);
return;
}
}
// Messages to track
MailPrompt = track("Cam-Mail Command?", 0);
UpPrompt = track("Prepare To Upload", 0);
Storage = _zmod_rcrash; // store crash recovery status
_zmod_rcrash = 0; // turn crash recovery off
cputs("Mail^M"); // open Cam-Mail - this command
// might have to be changed.
if (Reply) // send reply if present
{
do
{
terminal();
Stat = track_hit(0);
if (Stat == MailPrompt)
cputs("u^M");
}
while (Stat != UpPrompt);
(Continued to next message)
---
* OLXWin 1.00b * Internet: jhudgions@sprynet.com
--- QScan/PCB v1.17b / 01-0035
---------------
* Origin: Agora Online -- Bayonne, NJ 201-437-4355 v.34 (1:2630/312)
|