// NifTerm ログインスクリプト for Tymnet AP
// ブラジルは除く
// by mju:  PXE00507@niftyserve.or.jp

timeout 60

:login
:login_send00

    wait right == "ifier:"
       or elapsed 5000

:send_O
    wait elapsed 2000
    send "O"

    wait right== "log in: "
       or elapsed 5000
    goto send_nifty

:login_send01
    wait right == "nter Connection-ID  --->"
      or right == "ifier:" goto send_O
      or right == "log in: " goto send_nifty
      or elapsed 10000 goto login_error

    end

:send_nifty
    send "NIFTY\r"
    wait right == "\r"
    goto login_send01

:login_error
    disconnect
    abort "ログインできません"


:logout
    wait right == "log in: "
      or right == "ifier:"
      or elapsed 10000 goto logout_error
    disconnect
    end

:logout_error
    disconnect
    abort ""