home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 July / VPR9707A.ISO / OLS / Win32 / Htevo417 / htevo417.lzh / ANGNAV.HSC next >
Text File  |  1996-05-06  |  8KB  |  249 lines
  1. ; ＮＴＴ電話番号検索用スクリプト V 0.4
  2. ;
  3. ; （１）概要
  4. ;       エンジェルライン用スクリプトで端末種別、通話時間表示、料金表示
  5. ;       かな漢字変換（入力は、ひらがな、カナのみ）をサポートします。
  6. ;
  7. ; （２）秀TERMホスト設定。
  8. ;       秀TERMのホスト設定は、以下の設定をして下さい。
  9. ;         新JIS、ローカル編集。
  10. ;         モデム初期化コマンドは、ＭＮＰ接続を設定します。
  11. ;         電話番号は、0190104104を設定します。
  12. ;
  13. ; （３）かな漢字変換オン・オフの設定。
  14. ;       一番最初に接続した時に聞いてきます。
  15. ;       又は、秀TERMのスクリプトの実行で設定、変更できます。
  16. ;       設定した内容は、永久的変数に記憶されるので
  17. ;       ２回目以降は、聞いてきません。
  18. ;       書き換えたい場合は、「スクリプト・変数一覧」で、
  19. ;       %ANGELKANJIを削除してください。
  20. ;
  21. ; （４）ログオフ処理。
  22. ;       かな漢字制御がオンの場合、ログオフ処理は、必須です。
  23. ;       ログオフ処理が必要ない場合は、コメントにして下さい。
  24. ;       
  25. ;
  26. ; （５）ログ処理。
  27. ;       ログは、秀TERMのホストプロパティのログ設定で行います。
  28. ;
  29. ; （６）エラーメッセージ
  30. ;       ERR001：最初のメッセージが変更になったか、MNP接続になってない
  31. ;               等、考えられます。
  32. ;
  33. ; （７）通話時間
  34. ;       通話時間は、スクリプト内で計測した回線接続時間です。
  35. ;       そのため実際のログイン、ログアウト時間と1秒前後のずれが生じます。
  36. ;       
  37. ;
  38. ; （８）修正履歴
  39. ;       95/10/01 新規作成。
  40. ;       96/04/01 ＮＴＴメッセージ変更修正。
  41. ;       96/05/01 再作成。かな漢字制御追加。
  42. ;       96/05/06 title削除。ﾎｽﾄ設定修正。ﾛｸﾞ処理削除。
  43. ;                afterhangup処理削除。深夜時間割引対応。
  44. ;                強制回線切断追加。通話時間計算追加。
  45. ;                %anglogday、%anglogtimeのｸﾞﾛｰﾊﾞﾙ変数変更。
  46. ;
  47. ;
  48. ;      何かあればメールなりFWINCOM MES10で連絡して下さい。
  49. ;      竹島和夫    NIFTY：BYJ00102  e-mail：takeshima@jsn.justnet.or.jp
  50.  
  51.  
  52.         getdate @anglogday
  53.         gettime @anglogtime
  54.         gethostname #HostName
  55.         if( #HostName == "" )
  56.                 question "スクリプトのセットアップをしますか？"
  57.                 if( yes )
  58.                         goto ScriptSetup
  59.                 endif
  60.         endif
  61.         keyassign F1, "回線断", script,HangupLine
  62.  
  63. ;最初のメッセージチェック。
  64.  
  65.         timeout 30
  66.         wait "種別を入力してください（省略可）：" 
  67.         if(not timeout)
  68.                 send "^M"
  69.         else
  70.           writebuffer "^M^J  ANGEL>>ERR001 通信　障害　発生　" 
  71.           hangup
  72.         endif
  73.         timeout 0
  74.  
  75. ;ログイン処理。
  76. Login:
  77.          if( %ANGELKANJI == "" )
  78.              call kanjisetup
  79.          endif
  80.          if( %ANGELKANJI == "0" )
  81.              goto WaitLogoff
  82.          endif      
  83. ;--------------------------------------------------------------------------
  84. ;かな漢字制御処理。
  85.  
  86.         #flag = 0
  87.         loopswitch
  88.                 case "　＊＊＊　　サービスメニュー　　＊＊＊^M^J"
  89.                       if ( #flag == "1" )
  90.                            ime  off
  91.                            #flag = 0
  92.                       endif
  93.                      
  94.                 case "◎　"
  95.                       if( #flag != "1" )
  96.                           ime  on
  97.                           #flag = 1
  98.                       endif
  99.               
  100.                 case "●番号を選択してください＞"
  101.                       if( #flag == "1" )
  102.                           ime  off
  103.                           #flag = 0
  104.                       endif
  105.  
  106.                 case "^M^J○ご利用ありがとうございました"
  107.                       if( #flag == "1" )
  108.                           ime  off
  109.                           #flag = 0
  110.                       endif
  111.                       call Logoff
  112.                       hangup
  113.                       breakloop
  114.             
  115.         endloop
  116.  
  117. ;--------------------------------------------------------------------------
  118. ;ログオフ処理。かな漢字制御なしの場合。必要ない場合、コメントにする。
  119.  
  120. WaitLogoff:
  121.         timeout 0
  122.         wait "^M^J○ご利用ありがとうございました"
  123.         call Logoff
  124.         hangup
  125.  
  126. ;ここまで
  127. ;--------------------------------------------------------------------------
  128.         exit
  129.  
  130. ;強制回線切断
  131. HangupLine:
  132.        question "電話を切りますか？"
  133.        if( no ) goto Login
  134.        endif
  135.        call Logoff
  136.        hangup
  137. ;--------------------------------------------------------------------------
  138. ;ログオフ後処理。
  139. ;LOGIN/LOGOUT・通話時間・通話料金
  140.  
  141. Logoff:
  142.         getdate #date1
  143.         gettime #time1
  144.  
  145. ;ログイン・ログアウトの表示
  146.  
  147.         #meslogin = "^M^J^M^J  ANGEL>>ログイン    "\
  148.          + part(@anglogday, 0, 2) + "/" + part(@anglogday, 2, 2) + "/"\
  149.          + part(@anglogday, 4, 2) + "  " + part(@anglogtime, 0, 2) + ":"\
  150.          + part(@anglogtime, 2, 2) + ":" + part(@anglogtime, 4, 2)
  151.         writebuffer #meslogin
  152.         
  153.  
  154.         #meslogout = "^M^J  ANGEL>>ログアウト  "\
  155.          + part(#date1, 0, 2) + "/" + part(#date1, 2, 2) + "/"\
  156.          + part(#date1, 4, 2) + "  " + part(#time1, 0, 2) + ":"\
  157.          + part(#time1, 2, 2) + ":" + part(#time1, 4, 2)
  158.         writebuffer #meslogout
  159.  
  160. ;通話時間の表示
  161.         ##jikan1 = part(@anglogtime, 0, 2)
  162.         ##fun1 = part(@anglogtime, 2, 2)
  163.         ##byo1 = part(@anglogtime, 4, 2)
  164.         ##jikan2 = part(#time1, 0, 2)
  165.         ##fun2 = part(#time1, 2, 2)
  166.         ##byo2 = part(#time1, 4, 2)
  167.         if( ##jikan1 > ##jikan2 ) 
  168.         ##jikan2 = ##jikan2 + 24
  169.         endif
  170.         ##hour = ##jikan2 - ##jikan1
  171.         if( ##fun1 > ##fun2 )  
  172.         ##hour = ##hour - 1
  173.         ##fun2 = ##fun2 + 60
  174.         endif
  175.         ##min = ##fun2 - ##fun1
  176.         if( ##byo1 > ##byo2 )
  177.         ##min = ##min - 1
  178.         ##byo2 = ##byo2 + 60
  179.         endif
  180.         ##sec = ##byo2 - ##byo1
  181.         #hour = ##hour
  182.         #min = ##min
  183.         #sec = ##sec
  184.         #mestime = "^M^J  ANGEL>>通話時間は、"
  185.         if( ##hour != 0 )
  186.         #mestime = #mestime +#hour + "時間"
  187.         endif
  188.         #mestime = #mestime + #min + "分" + #sec + "秒でした。"
  189.         writebuffer #mestime
  190.  
  191. ;通話料金の表示
  192.  
  193.         if(( ##jikan1 > 22 ) or ( ##jikan1 < 8 ))
  194.            ##tanka = 4
  195.         else 
  196.            ##tanka = 3
  197.         endif
  198.         if(##hour != 0)
  199.           ##min = ##min + (##hour * 60) 
  200.         endif
  201.         if(##sec != 0)
  202.           ##min = ##min + 1
  203.         endif
  204.         ##cost = ##min % ##tanka
  205.         if(##cost != 0)  
  206.           ##min = ##min + ##tanka
  207.         endif
  208.         ##cost = (##min / ##tanka) * 10
  209.         #cost = ##cost
  210.  
  211.         #mescost = "^M^J  ANGEL>>通話料金は、" + #cost + "円です。"\
  212.                    + "^M^J^M^J"
  213.         writebuffer #mescost
  214.         savebuffer
  215.  
  216. Logoffend:
  217.         return
  218.  
  219. ;--------------------------------------------------------------------------
  220. ;スクリプトセットアップ。
  221.  
  222. ScriptSetup:
  223.         menu "ANGELNAV.SCRセットアップメニュー(Escで終了)"\
  224.              , 0, "かな漢字変換制御設定"
  225.         switch result
  226.                 case 0
  227.                         goto ScriptSetup
  228.                 case 1
  229.                         call kanjisetup
  230.                         goto ScriptSetup
  231.         endswitch
  232.         exit
  233. ;--------------------------------------------------------------------------
  234. ;かな漢字制御セットアップ
  235.  
  236. kanjisetup:
  237.                       numbermenu "かな漢字変換制御する。"\
  238.                                , "かな漢字変換制御しない。"
  239.                       switch result
  240.                              case 0
  241.                                 %ANGELKANJI = "1"
  242.                              case 1
  243.                                 %ANGELKANJI = "0"
  244.                              case -1
  245.                                 %ANGELKANJI = "0"
  246.                       endswitch
  247.                       return
  248. ;-----------------angelnav.scr  end---------------------------------------
  249.