home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Curio City 9
/
CURIO9.bin
/
pc
/
internet
/
win
/
joynt
/
term
/
ascii_a.ap
next >
Wrap
Text File
|
1997-01-15
|
2KB
|
114 lines
#AUTOLOGIN
Timeout = 180
Wait(3)
Send("\n")
Wait(3)
Ls
case "login User ID: "
Send(Hostid)
Send("\n")
LsStop
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
Ls
case "User Password:"
Send(Hostpass)
Send("\n")
LsStop
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
Ls
case "<リターンキーを押してください>"
Send("\n")
case "Level:1"
MsgDsp("自動処理が終了しました。Joynt-Clubへ接続ボタンを押して下さい")
LsStop
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
#JLOGIN
Send("joynt mclub\n")
Ls
case "(y/[n])?"
Send("y\n")
LsStop
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
ChkCode("JID");
ChkCode("JPASS");
ChkCode("JNAME");
Ls
case ")="
Send("3\n")
LsStop
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
Ls
case "CODE:"
Send(JID)
Send("\n")
LsStop
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
Ls
case "WORD:"
Send(JPASS)
Send("\n")
LsStop
case "ERROR"
MsgDsp("プレイヤーコードが間違っています。 確認してください。")
StopMacro
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
Ls
case "リターン"
LsStop
StopMacro
case "違います"
MsgDsp("パスワードが間違っています。 確認してください。")
StopMacro
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
#JENTRY
Send("joynt mclub\n")
Ls
case "(y/[n])?"
Send("y\n")
LsStop
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd
Ls
case ")="
LsStop
StopMacro
case LsTimeout
MsgDsp("エラーが発生したので処理を中断します")
StopMacro
LsEnd