home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
comm
/
first110.zip
/
1ST_110B.ZIP
/
SCRIPTS.ZIP
/
WILDCAT.SCR
< prev
Wrap
Text File
|
1993-05-15
|
2KB
|
101 lines
' ┌───────────────────────────────┐
' │ Wildcat! script for 1stReader │
' │ May 15th, 1993 │
' └───────────────────────────────┘
IF SCR_CALL THEN GOTO SETUP
CAPTURE ON
TIMEOUT 30
:SETUP
LOCKLINE 20 30
COMMENT "@DATE@ @TIME@ Connected with @BBSNAME@"
COMMENT "@DATE@ @TIME@ Opened capture file @BBSID@.CAP"
COMMENT "@DATE@ @TIME@ Logging in to system"
LOOKFOR "Esc" "X'1BX'1B"
LOOKFOR "Y/n]" "Y^M"
LOOKFOR "OCOL MENU" "Z^M"
LOOKFOR "[S]top?" "S^M"
WAITFOR "first name"
LOOKFOR "Escape" ""
IF NOT SCR_CALL THEN TRANSMIT "!"
TRANSMIT "@USER@^M"
WAITFOR "Are you @USER@|password|was not found"
IF FOUND=3 THEN GOTO NEWUSER
IF FOUND=1 THEN TRANSMIT "Y^M"
TRANSMIT "@PASSWORD@^M"
LOOKFOR "y/N]" ""
GOTO TOMCAT
:NEWUSER
IF NOT SCR_CALL THEN GOTO BYE
COMMENT "@DATE@ @TIME@ New user login"
WAITFOR "? [" 20
TRANSMIT "Y^M"
WAITFOR "password? [" 20
TRANSMIT "@PASSWORD@^M"
WAITFOR "verify? [" 20
TRANSMIT "@PASSWORD@^M"
IF NOT SWITCH 1 THEN HELP 198
TERMINAL
EXIT
:TOMCAT
IF NOT SCR_CALL THEN GOTO REPLIES
TERMINAL
EXIT
:REPLIES
IF NOT REPLIES THEN GOTO DOWNLOAD
COMMENT "@DATE@ @TIME@ Uploading replies"
WAITFOR " Q]:"
TRANSMIT "U^M"
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "uploaded|UNSUCCESSFUL|NOT|rejected"
IF FOUND=1 THEN GOTO GOODUPLD
GOTO DOWNLOAD
:GOODUPLD
COMMENT "@DATE@ @TIME@ Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
COUNT REP
:DOWNLOAD
WAITFOR " Q]:"
IF SCR_REPLY THEN GOTO GOODBYE
COMMENT "@DATE@ @TIME@ Scanning for new messages"
TRANSMIT "D^M"
WAITFOR "found: 0|oodbye when done?"
IF FOUND=1 THEN GOTO GOODBYE
TRANSMIT "Y^M"
WAITFOR "@BBSID@.QWK|insufficient"
IF FOUND=2 THEN GOTO EXIT
DOWNLOAD @PACKETDIR@@BBSID@.QWK
WAITFOR "successful|UNSUCCESSFUL| Q]:"
IF FOUND=2 THEN GOTO EXIT
COUNT QWK
:EXIT
COMMENT "@DATE@ @TIME@ Waiting for disconnect"
WAITFOR " Q]:" 10
TRANSMIT "G^M"
GOTO END
:GOODBYE
PAUSE 3
TRANSMIT "N^M"
WAITFOR " Q]:"
TRANSMIT "G^M"
:END
WAITFOR "Thanks" 20
PAUSE 2
:BYE
CAPTURE OFF
HANGUP