DH*As you can guess, I would like to set up scripts for all the BBS's I
 *frequent, but have the SCRIPT detect mail packets that should be
 *uploaded so that it can execute an appropriate procedure.
DH*Any help would be appreciated!  Thank you!
;
;  QuickLearn Script generated at 08:57:am  09-07-95
;  May require editing before use.
;
TurnON   8_BIT
TurnOFF  LINEFEED
TurnOFF  XON/XOFF
TurnON   NOISE
TurnON   MUSIC
TurnON   SCROLL
TurnOFF  PRINT
TurnOFF  SPLIT
TurnON   STATUSLN
TurnOFF  DOORWAY
TurnOff  ECHO
;
;--------------------DEFINITIONS--------------------------
;
String MAILWAITING
Assign MAILWAITING N               ; Default is no mail waiting
;
;------------------END DEFINITIONS------------------------
TimeOut  45     ; Set Waitfor for 45 seconds
;Capture c:\qmpro\scripts\outlruns.txt
When "[PAUSE]" "^M"               ; In case of Pause to Continue
When "(PAUSE)" "^M"               ; In case of Pause to Continue
Waitfor  "^[[9;44H^[[44m"
Delay    100
Send     "$userid^M"
Waitfor  "^[[12;44H^[[44m"
Delay    100
Send     "$password^M"
Waitfor  "^[[15;45H^[[44m502-737-"
Delay    100
Send     "4368^M"
When "mail now?" MailIn           ;goto MailIn to set DeleteMail to Y
MainMenu:
Waitfor  "nagement^[[34m]^[[37m : ^[[33m^[[37m"
Delay    100
Send     "//womr-qwk^M"            ; QWK Mail Door
Waitfor  "^[[0m^[[35m[?=Menu] Command:"  ;upload/download menu
Delay    100
Exist $REPPATH$PACKET.REP  DoUpload  ; goto DoUpload routine
Goto DoDownload            ; Else no upload - goto DoDownload routine
; begin upload routine
DoUpload:
Send     "u"
Waitfor  "$PACKET.REP"
Pause    1000
Upload z $REPPATH$PACKET.REP      ; upload rep packet
IF       $Fail DoDownload
Deletef  $REPPATH$PACKET.REP  ; delete outl.rep once uploaded
; begin download routine
DoDownload:
Send     "^M"
Waitfor  "^[[0m^[[35m[?=Menu] Command:"  ;upload/download menu
Delay    100
Send     "d"
Waitfor  "packet? (Y/N)"
Delay    100
Send     "Y"
Waitfor  "$PACKET.QWK"           ; wait until it's reads
Download z $QWKPATH$PACKET.QWK   ; starts the download
if       $Success ExitQwkMenu    ;goto and exit Qwk Packet Door
Waitfor  "^[[0m^[[35m[?=Menu] Command:"   ; else exit Door and logoff
Delay    100
Send     "q"
goto     Bye:
;if download Successful, exit door and check to see if Mail was waiting
ExitQwkMenu:
Waitfor  "^[[0m^[[35m[?=Menu] Command:"
Delay    100
Send     "q"
; check to see if there was MailWainting
If "$MAILWAITING" = "Y" DeleteMail
;else log off
; Log Off Outlaw BBS
Bye:
Waitfor  "nagement^[[34m]^[[37m : ^[[33m^[[37m"
Delay    100
Send     "/o"
; clean up before exiting script
CleanUp:
Turnoff Capture
When                        ; Cancels all prior When commands
Exit
;------
MailIn:
Assign MAILWAITING "Y"      ; change variable to yes
Send   "^M"                 ; send return for script to go on
goto   MainMenu             ; goto and waitfor main menu
;------
DeleteMail:
Waitfor  "nagement^[[34m]^[[37m : ^[[33m^[[37m"      ;wait for main menu
(Continued to next message)
                      ---
* LAKOTA v1.4
--- Alexi/Mail 2.02b (#10000)
---------------