HI ALAN,
SCRIPT #2 .....THIS IS FOR GAP BBS's when doing mailrun's
Rick
; This script is designed for use with a GAP BBS system using the MAINMAIL
; .QWK mail door.  It automates login, mail download and .REP upload.
; To operate properly you must enter your name and password in the
; QmodemPro phonebook entry.
;
TurnON   8_BIT
TurnOFF  LINEFEED
TurnOFF  XON/XOFF
TurnON   NOISE
TurnOFF  MUSIC
TurnON   SCROLL
TurnOFF  PRINT
TurnOFF  SPLIT
TurnON   STATUSLN
TurnOFF  DOORWAY
TimeOut  60                          ; Set Waitfor for 30 seconds
WHEN "?" "N^M"
WHEN "Continue" "^M"
Waitfor  "First Name"               ; Wait for prompt for your name
Delay    100
Send     "$USERID^M"                ; Send UserID from the Phone Book.
WaitFor  "Password"
Delay    100
Send     "$PASSWORD^M"
Waitfor "Board Command"             ; Wait for menu
Send "MAINMAIL^M"
IF $GETMAIL DOWNLOADMAIL            ; If flag to get mail set, get it.
DOWNFINISHED:
WHEN   ; Clear when's
Timeout 60
IF $SENDMAIL UPLOADMAIL
UPSUCCESS:                          ; If upload successful, delete packet
DELETEF $REPPATH$PACKET.REP
Exit                                ; Script is done.
UPLOADMAIL:                         ; Upload REP section
Waitfor "MainMail System Command"
Delay    100
Send     "U^M"
Delay 500
UPLOAD Z $REPPATH$PACKET.REP        ; Tell it to send REP packet
IF $SUCCESS UPSUCCESS               ; If success, goto success label
GOTO UPLOADMAIL                     ; If not success go back to uploadmail
DOWNLOADMAIL:                       ; Download label
WHEN
When     "No Messages"  DOWNFINISHED ; If no new mail.
Waitfor  "MainMail System Command"   ; Mail Door Main Menu
Delay    1000
Send     "D^M"                       ; Tell it to [D]ownload Mail
Delay    500
Waitfor  "When Done"                 ; Download new Mail if $GETMAIL Set
Delay    100
Send     "Y^M"
Delay    500
Timeout 999
Waitfor "Packet Name"
DOWNLOAD Z $QWKPATH                  ; Download the .QWK packet using Zmodem
IF $SUCCESS DOWNFINISHED
GOTO DOWNLOADMAIL
---
 * QMPro 1.53 * How much can I get away with and still go to heaven?
--- WILDMAIL!/WC v4.12 
---------------