home *** CD-ROM | disk | FTP | other *** search
/ Curio City 9 / CURIO9.bin / pc / internet / win / joynt / term / ascii_c.ap < prev    next >
Text File  |  1997-01-15  |  2KB  |  114 lines
  1. #AUTOLOGIN
  2. Timeout = 180
  3.  
  4. Wait(3)
  5. Send("ASCII\n")
  6. Wait(3)
  7. Ls
  8.     case "login User ID: "
  9.         Send(Hostid)
  10.         Send("\n")
  11.         LsStop
  12.     case LsTimeout
  13.         MsgDsp("エラーが発生したので処理を中断します")
  14.         StopMacro
  15. LsEnd
  16. Ls
  17.     case "User Password:"
  18.         Send(Hostpass)
  19.         Send("\n")
  20.         LsStop
  21.     case LsTimeout
  22.         MsgDsp("エラーが発生したので処理を中断します")
  23.         StopMacro
  24. LsEnd
  25. Ls
  26.     case "<リターンキーを押してください>"
  27.         Send("\n")
  28.     case "Level:1"
  29.         MsgDsp("自動処理が終了しました。Joynt-Clubへ接続ボタンを押して下さい")
  30.         LsStop
  31.     case LsTimeout
  32.         MsgDsp("エラーが発生したので処理を中断します")
  33.         StopMacro
  34. LsEnd
  35.  
  36. #JLOGIN
  37. Send("joynt mclub\n")
  38. Ls
  39.     case "(y/[n])?"
  40.         Send("y\n")
  41.         LsStop
  42.     case LsTimeout
  43.         MsgDsp("エラーが発生したので処理を中断します")
  44.         StopMacro
  45. LsEnd
  46.  
  47.  
  48. ChkCode("JID");
  49. ChkCode("JPASS");
  50. ChkCode("JNAME");
  51.  
  52. Ls
  53.     case ")="
  54.         Send("3\n")
  55.         LsStop
  56.     case LsTimeout
  57.         MsgDsp("エラーが発生したので処理を中断します")
  58.         StopMacro
  59. LsEnd
  60.  
  61. Ls
  62.     case "CODE:"
  63.         Send(JID)
  64.         Send("\n")
  65.         LsStop
  66.     case LsTimeout
  67.         MsgDsp("エラーが発生したので処理を中断します")
  68.         StopMacro
  69. LsEnd
  70. Ls
  71.     case "WORD:"
  72.         Send(JPASS)
  73.         Send("\n")
  74.         LsStop
  75.     case "ERROR"
  76.         MsgDsp("プレイヤーコードが間違っています｡ 確認してください｡")
  77.         StopMacro
  78.     case LsTimeout
  79.         MsgDsp("エラーが発生したので処理を中断します")
  80.         StopMacro
  81. LsEnd
  82.  
  83. Ls
  84.     case "リターン"
  85.         LsStop
  86.         StopMacro
  87.     case "違います"
  88.         MsgDsp("パスワードが間違っています｡ 確認してください｡")
  89.         StopMacro
  90.     case LsTimeout
  91.         MsgDsp("エラーが発生したので処理を中断します")
  92.         StopMacro
  93. LsEnd
  94.  
  95.  
  96. #JENTRY
  97. Send("joynt mclub\n")
  98. Ls
  99.     case "(y/[n])?"
  100.         Send("y\n")
  101.         LsStop
  102.     case LsTimeout
  103.         MsgDsp("エラーが発生したので処理を中断します")
  104.         StopMacro
  105. LsEnd
  106. Ls
  107.     case ")="
  108.         LsStop
  109.         StopMacro
  110.     case LsTimeout
  111.         MsgDsp("エラーが発生したので処理を中断します")
  112.         StopMacro
  113. LsEnd
  114.