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)
|