home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
GHOST110.ZIP
/
GHOSTLOG.WAS
< prev
next >
Wrap
Text File
|
1992-12-14
|
1KB
|
42 lines
; GHOST BBS log on script - 12/14/92 05:32 PM
; nothing fancy, just logs a user on to GHOST BBS. If the "- More [S
; to stop] -" prompt appears, the user must respond, depending on
; whether he wants to read the NEWS file or not. When you get to the
; main menu of GHOST BBS, the script will stop.
; to use this script, create a dialing directory entry for the GHOST
; BBS you wish to call, and put your GHOST name and password in the
; appropriate fields of the dialing directory entry. This script will
; pick them up from there.
integer watchfor
string prompt_str
proc main
when target 0 "?" call handle_it
watchfor = 1
while watchfor
endwhile
exit
endproc
proc handle_it
termgets $ROW 0 prompt_str $COL
if strfind prompt_str "FIRST name"
transmit $USERID
transmit "^M"
elseif strfind prompt_str "Password (Dots"
transmit $PASSWORD
transmit "^M"
elseif strfind prompt_str "Command"
watchfor = 0
endif
endproc