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