TIP: Click on subject to list as thread! ANSI
echo: telix
to: MIKE SCHOENBERGER
from: JACK HUDGIONS
date: 1997-06-01 23:07:00
subject: Cam-mail 01/02

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)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.