home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
q
/
qscripts.zip
/
WILDCAT.SCR
< prev
Wrap
Text File
|
1992-04-16
|
2KB
|
88 lines
;
; Wildcat! BBS Script edited on 04/16/92
;
Graphics ANSI
TurnON 8_BIT
TurnOFF LINEFEED
TurnOFF XON/XOFF
TurnOFF NOISE
TurnOFF MUSIC
TurnON SCROLL
TurnOFF PRINT
TurnOFF ECHO
TurnOFF SPLIT
TurnOFF BS_DEL
TIMEOUT 60 OUT2
When
Waitfor "first name ?"
Delay 10
Send "*XXXXXX XXXXXX^M"
Waitfor "Password" ; Ensure your password is in the Dialing Directory
; entry for each BBS you dial.
FKey 12 ; You will need to ensure your F12 is defined as
; $PASSWORD^M
Timeout 5 NOVERIFY
WHEN "] to continue..." "^M"
When "BIRTH DATE" "xxxxxx^M^M"
Waitfor "VOICE phone number"
Send "xxxxxxxxxx^M^M"
NOVERIFY:
WHEN
WHEN "The Results" " "
WHEN "CALLERS" " "
WHEN "] to continue" "^M"
WHEN "]ontinue?" "C"
WHEN "onStop" "N"
WHEN "Would you like" "N"
WHEN "want to list it" "N"
WHEN "MAIN MENU" MONOC
WHEN "NO CARRIER" GONZO
Timeout 1200 FINISH
Waitfor "Your Command"
GOTO COLORS
COLORS:
Waitfor "? [ ]"
Delay 200
MONOC:
Send "M"
Delay 400
Send "D"
Waitfor "TOMCAT MENU"
Exist C:\QMODEM\upload\<BBSNAME>.REP NEXTP
GOTO CONTINUE
NEXTP:
Send "U^M"
Delay 2500
Upload Z C:\QMODEM\upload\<BBSNAME>.REP
Waitfor "TOMCAT MENU"
CONTINUE:
Send "D^M"
When
When "NO CARRIER" GONZO
When "No messages found" OUT
Waitfor "oodbye when done?"
Send "G"
Waitfor "Start your"
Download Z C:\QMODEM\Download\<BBSNAME>.QW*
Goto FINISH
OUT:
Waitfor "TOMCAT MENU"
Send "G^M"
FINISH:
Waitfor "NO CARRIER"
GONZO:
Return
OUT2:
HANGUP
WAITFOR "NO CARRIER"
RETURN