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