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