TIP: Click on subject to list as thread! ANSI
echo: telemate
to: RANDG WOOD
from: JOHN MCLACHLAN
date: 1997-03-12 21:08:00
subject: Help With Script

 RW>         Could we have help writing a script, please? 
 RW> 
 RW> BACKGROUND:--  We write a semi-weekly mini-meditation on Scripture, 
 RW> called Fresh Manna.  Each one contains about 54 lines of text. 
 RW> This we distribute in three conferences on a BBS, and to a 
 RW> number of internet e-mail addresses, from the e-mail conference 
 RW> on the same BBS.  This, using Telemate 4.12. 
 
G'day Randg, 
 I think that an easier way might be to use an Offline Reader, 
( I use Offline 1.58 by Harvey Parisien ) to compile your 
messages at leisure, then send them all in one qwkmail .rep packet to your 
host BBS. 
I can imagine your current scripture treatise as a named file. 
In Offline, alt G gets a named file and pastes it to the current message. 
You would have to address each message individually. 
 
I use a Telemate script to automatically upload my mail and download mail 
from tagged conferences each day. You may be able to make some use (or sense) 
of this sample. 
 
;using Telemate 4.2 with BBS "hotkeys" turned on ( ie. no CR required ) 
;to logon on to Brisbug Madhouse BBS and download &/or upload QWKmail 
; 
Set AutoStop,On 
When "Press ENTER to continue","^M~~~~" ; whenever this string recd - always 
ent 
Set MultiLine,1 
#include "toolbox1.scr" 
True = 1                                ; set Boolean logic values 
False = 0 
EchoToLocal = true 
EchoToRemote = false 
Put "^[~",                              ; escape to quit alarm music (if on) 
Put "^[~",                              ; escape to enter BBS (& no CR) and 2 
se 
Waitfor "What is your name:",35         ; wait up to 35 seconds for string to 
be 
Put "John McLachlan~"                   ; and 2 sec pause 
Waitfor "John McLachlan [Y,n]?",5       ; wait up to 5 seconds for string to 
be 
Put "Y~~~"                              ; and 12 sec pause 
Waitfor "Password:",2                   ; wait up to 2 seconds for string to 
be 
Put "^&~~~"                             ; the password field in the phone 
direct 
; BBS greeting screen 
Delay 25                                ; 22 second wait 
;auto ENTER                             ; Enter to continue and 22 sec pause 
& n 
; User statistics screen 
Delay 35                                ; wait 32 seconds 
;auto ENTER                             ; Enter to continue and 22 sec pause 
& n 
; first bulletin screen 
Delay 25 
Waitfor "More [Y,n,=]?",10              ; wait up to 10 seconds for string to 
be 
  If found 
   Put "N~~~",                          ; No (to more bulletins) and 12 sec 
paus 
  EndIf 
Waitfor "Scan for new files? [Y,n]",15  ; wait up to 15 seconds for string to 
be 
  If found 
   Put "N~~~",                          ; No (to new files) and 2 sec pause & 
no 
  EndIf 
;scanning for personal mail 
;auto ENTER                             ; Enter to continue and 22 sec pause 
& n 
;personal message found 
Waitfor "More [Y,n,=]?",15              ; if message longer than one screen 
  If found 
   Put "N~~~", 
  EndIf 
EchoColor yellow 
EchoHilite 
Echo "  determining all options ...  please wait " 
Print 
EchoNormal 
Waitfor "Next Msg [Y)es, N)o, A)gain, R)eply, *)NextArea]:",10  ; wait up to 
10 
  If found 
   Delay 95                             ; 92 second wait to read screen 
   Put "N~~~~~",                        ; No and 22 sec pause & no CR 
  EndIf 
;no personal messages 
EchoColor green 
EchoBlink 
Echo "   still determining all options ... please wait" 
Print 
EchoNormal 
Delay 35                                ; wait for 32 seconds 
Put "O~~~",                             ; Offline mail reader selected and 12 
se 
 FileExist "c:\telemate\upload\madhouse.rep", Found 
  If Found = True                       ; if an upload file exists then 
upload i 
   Put "U~~~", 
   Send "z","c:\telemate\upload\madhouse.rep" 
    If Success = True                   ; if it transferred successfully then 
de 
     DOS "call madstore.bat"            ; zip and store the uploaded file 
     Delete "c:\telemate\upload\madhouse.rep" 
    EndIf 
   Waitfor "Select:",300 
  EndIf 
 If Found = False 
  EchoColor cyan 
   EchoHilite 
    echo "  nothing to upload this time" 
   Print 
  EchoNormal 
 EndIf 
Delay 25                                ; wait for 22 seconds 
Put "D~~~",                             ; Download and 12 sec pause & no CR 
Waitfor "Download these in QWK format [Y,n]?",55   ; wait up to 55 seconds 
for s 
  If found 
   Put "Y~~~",                          ; Yes download and 12 sec pause & no 
CR 
  EndIf 
Delay 25                                ; wait 22 seconds 
Waitfor "Select:",300                   ; wait up to 5 minutes for string to 
be 
Put "Q~~~",                             ; Quit and 12 sec pause & no CR 
Put "G~~~",                             ; Goodbye  and 12 sec pause & no CR 
Waitfor "Disconnect [Y,n,?=help]?",5    ; wait 5 seconds for string to be 
receiv 
  If found 
   Put "Y~~",                           ; Yes  and 1 sec pause & no CR 
  EndIf 
Waitfor "Leave a message to paul marwick [y,N,?=help]?",5     ; wait 5 
seconds f 
Put "N~",                               ; No  and 2 sec pause & no CR 
Delay 15                                ; wait 12 seconds 
ExitTelemate 
 
The script has to be tailored to suit your host BBS' comments/commands. 
The phrases in " " are what my host BBS sends to me. 
Good luck and happy telemating 
Good talking to you
 
          |\_/| 
          | c |  John McLachlan 
        +-+   +--    Brisbane, Qld, Australia 
___ 
 * OFFLINE 1.58 * ... Nothing is so smiple that it can't get screwed up. 
--- Maximus/2 3.01
---------------
* Origin: madHouse Inc (3:640/820)

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™.