home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / mop_data / nac / plt / nifty.plt < prev    next >
Text File  |  1980-01-02  |  9KB  |  340 lines
  1. /***  ＮＡＣ v1.20  SETUP PiLot Module  ***/
  2.  
  3.  /*****  ↓↓↓ 短縮文 設定 ↓↓↓  *****/
  4.  
  5. %TEL1  /*川崎ROAD2*/
  6.  {ATX4%C0&E1\V2\J0\Q2\N2DT 044-755-4466};
  7. %TEL2  /*川崎2400ROAD1*/
  8.  {ATX4%C0&E1\V2\J0\Q2\N2DT 044-752-4421};
  9. %TEL3  /*川崎1200ROAD1*/
  10.  {ATX4%C0&E1\V2\J0\Q2\N2DT 044-755-4911};
  11. %TEL4  /*東京ROAD2*/
  12.  {ATX4%C0&E1\V2\J0\Q2\N2DT 03-5703-0222};
  13. %TEL5  /*東京2400ROAD1*/
  14.  {ATX4%C0&E1\V2\J0\Q2\N2DT 03-3739-9120};
  15. %TEL6  /*東京1200ROAD1*/
  16.  {ATX4%C0&E1\V2\J0\Q2\N2DT 03-3739-9241};
  17. %ID1  /*第一ＩＤ*/
  18.  {PEE01022};
  19. %PS1  /*第一パスワード*/
  20.  {PASSWORD};
  21.  
  22.  /*****  ↑↑↑ 短縮文 設定 ↑↑↑  *****/
  23.  
  24.  /*****  ↓↓↓ MOPTERM 設定 ↓↓↓  *****/
  25.  
  26. /***  各設定の意味はMOPTERM.SYNを読んでね  ***/
  27.  
  28.   baud({9600});
  29.   xon({No});
  30.   click({No});
  31.   stopbit({1});
  32.   parity({None});
  33.   lineend({CR});
  34.   flyingx({Yes});
  35.   dataleng({8bit});
  36.   logprint({No});
  37.   nattou({Yes});
  38.   sendtype({Line});
  39.   doschar({%});
  40.   rscs({Yes});
  41.   flyline({3});
  42.   ctrl({No});
  43.   esc({Yes});
  44.   setoak({J});
  45.   dispecho({Yes});
  46.   compath({C:\COMMAND.COM});
  47.   crmode({No});
  48.  
  49.  /*****  ↑↑↑ MOPTERM 設定 ↑↑↑  *****/
  50.  
  51. /***  Nifty Autopilot Commands v1.20  for MOPTERM･v0.97j  ***/
  52.  
  53.  /*****  ↓↓↓ ＬＯＧＩＮコマンド ↓↓↓  *****/
  54.  
  55. %LOGIN  /***  Calling "LOGOUT"  ***/
  56.  {[Telno,Idno,Pswd]
  57.   %Login1
  58.    {
  59.     %Login2
  60.      {
  61.       %Login3
  62.        {
  63.         wait({10},{discon;stop},
  64.              {User-ID Error},{Login2},
  65.              {Password --->},
  66.              {type(Pswd);type({\n});
  67.               wait({20},{LOGOUT},{Password ERROR},{Login3},
  68.                    {ようこそＮＩＦＴＹ－Ｓｅｒｖｅへ},
  69.                   );
  70.              }
  71.             );
  72.        };
  73.       wait({10},{discon;stop},
  74.            {INPUT Error},{Login1},
  75.            {User-ID  --->},{type(Idno);type({\n})}
  76.           );
  77.       Login3;
  78.      };
  79.     wait({10},{discon;stop},{Connection-ID  --->},,);
  80.     type({SVC/99\n});
  81.     Login2;
  82.    };
  83.   %TypeCN
  84.    {
  85.     type({C NIF\n});
  86.     wait({4},{discon;stop},{COM},{Login1},
  87.          {NP},{discon;stop},{DER},{discon;stop},
  88.          {NA},{TypeCN},{DTE},{TypeCN},{OCC},{TypeCN},
  89.          {NC},{TypeCN},{RPE},{TypeCN}
  90.         );
  91.    };
  92.   %Type00
  93.    {
  94.     type({.00+\n});
  95.     wait({4},{discon;stop},{COM},{Login1},
  96.          {41+},{discon;stop},{46+},{discon;stop},
  97.          {ERR INC},{Type00},{00+},{Type00},{21+},{Type00},{22+},{Type00},
  98.          {24+},{Type00},{25+},{Type00},{43+},{Type00},{71+},{Type00}
  99.         );
  100.    };
  101.   dial(Telno);
  102.   wait({4},{type({.00+\n})});
  103.   wait({1},{type({@P\n})});
  104.   wait({10},{Type00},{COM},{Login1},
  105.        {ERR INC},{Type00},{HOST NAME?\n*},{TypeCN}
  106.       );
  107.  };
  108.  
  109.  /*****  ↑↑↑ ＬＯＧＩＮコマンド ↑↑↑  *****/
  110.  
  111.  /*****  ↓↓↓ ＬＯＧＯＵＴコマンド ↓↓↓  *****/
  112.  
  113. %LOGOUT  /***  Not calling  ***/
  114.  {
  115.   %Logout1
  116.    {
  117.     type({OFF\n});
  118.     wait({20},{discon},
  119.          {HOST NAME?\n*},{type({OFF\n});discon},{01+},{discon}
  120.         );
  121.    };
  122.   type({OFF\n});
  123.   wait({20},{Logout1},
  124.        {HOST NAME?\n*},{type({OFF\n});discon},{01+},{discon}
  125.       );
  126.  };
  127.  
  128.  /*****  ↑↑↑ ＬＯＧＯＵＴコマンド ↑↑↑  *****/
  129.  
  130.  /*****  ↓↓↓ ＧＯコマンド ↓↓↓  *****/
  131.  
  132. %GO  /***  Not calling  ***/
  133.  {[Place]
  134.   type({GO });type(Place);type({\n});
  135.   type({SET MENU OFF\n});
  136.   type({SET PAGE OFF\n});
  137.   type({SET FF OFF\n});
  138.  };
  139.  
  140.  /*****  ↑↑↑ ＧＯコマンド ↑↑↑  *****/
  141.  
  142.  /*****  ↓↓↓ ＤＯＷＮＬＯＧコマンド ↓↓↓  *****/
  143.  
  144. %DOWNLOG  /***  Calling "GO","LOGOUT"  ***/
  145.  {[Forum,Path]
  146.   %BPdown
  147.    {
  148.     type({DOWN NEW PROT:BPL\n});
  149.     wait({60},{LOGOUT},
  150.          {◆現在未読の発言はありません◆},{type({\n})},
  151.          {只今作業中です},
  152.          {type(Path);type(Num);type({.L\n});
  153.           wait({3600},{LOGOUT},
  154.                {－ダウンロード終了－},
  155.                {command({FOR %L IN (*.L) DO COPY %LOG /B + %L});
  156.                 command({COPY TEMPLOG.LOG /B + *.L});
  157.                 command({REN *.L *.LOG});
  158.                 command({DEL *.L});
  159.                }
  160.               );
  161.           BPdown;
  162.          }
  163.         );
  164.    };
  165.   %Down3
  166.    {[Num]
  167.     BPdown;
  168.     Down2;
  169.    };
  170.   %Down2
  171.    {
  172.     wait({60},{LOGOUT},{－これ以上の発言はありません－},,
  173.                                      {－会議室 2 },{Down3({02})},
  174.          {－会議室 3 },{Down3({03})},{－会議室 4 },{Down3({04})},
  175.          {－会議室 5 },{Down3({05})},{－会議室 6 },{Down3({06})},
  176.          {－会議室 7 },{Down3({07})},{－会議室 8 },{Down3({08})},
  177.          {－会議室 9 },{Down3({09})},{－会議室10 },{Down3({10})},
  178.          {－会議室11 },{Down3({11})},{－会議室12 },{Down3({12})},
  179.          {－会議室13 },{Down3({13})},{－会議室14 },{Down3({14})},
  180.          {－会議室15 },{Down3({15})},{－会議室16 },{Down3({16})},
  181.          {－会議室17 },{Down3({17})},{－会議室18 },{Down3({18})},
  182.          {－会議室19 },{Down3({19})},{－会議室20 },{Down3({20})}
  183.         );   
  184.   };
  185.   %Down1
  186.    {[Num]
  187.     type({MES });type(Num);type({\n});
  188.     BPdown;
  189.     Down2;
  190.    };
  191.   GO(Forum);
  192.   command({ECHO ---TEMPLOG--- >> TEMPLOG.LOG});
  193.   type({SEND OFF\n});
  194.   wait({30},{LOGOUT},{FORUM>},{type({MES\n})});
  195.   wait({60},{LOGOUT},
  196.        {\n 1    },{Down1({01})},{\n 2    },{Down1({02})},
  197.        {\n 3    },{Down1({03})},{\n 4    },{Down1({04})},
  198.        {\n 5    },{Down1({05})},{\n 6    },{Down1({06})},
  199.        {\n 7    },{Down1({07})},{\n 8    },{Down1({08})},
  200.        {\n 9    },{Down1({09})},{\n10    },{Down1({10})},
  201.        {\n11    },{Down1({11})},{\n12    },{Down1({12})},
  202.        {\n13    },{Down1({13})},{\n14    },{Down1({14})},
  203.        {\n15    },{Down1({15})},{\n16    },{Down1({16})},
  204.        {\n17    },{Down1({17})},{\n18    },{Down1({18})},
  205.        {\n19    },{Down1({19})},{\n20    },{Down1({20})}
  206.       );
  207.   type({SEND ON\n});
  208.  };
  209.  
  210.  /*****  ↑↑↑ ＤＯＷＮＬＯＧコマンド ↑↑↑  *****/
  211.  
  212.  /*****  ↓↓↓ ＤＯＷＮＭＡＩＬコマンド ↓↓↓  *****/
  213.  
  214. %DOWNMAIL  /***  Calling "GO","LOGOUT" ***/
  215.  {[Path,Delnum]
  216.   %Delmail1
  217.    {
  218.     %Delmail2
  219.      {
  220.       wait({30},{LOGOUT},{MAIL>},,
  221.            {削除 (1:削除する　2:しない)\n：},{type({1\n});Delmail2}
  222.           );
  223.      };
  224.     type({DELETE });type(Delnum);type({-\n});
  225.     Delmail2;
  226.    };
  227.   %Mail3
  228.    {[Num]
  229.     type({M\n});
  230.     wait({30},{LOGOUT},{MAIL>},);
  231.     type({DOWN });type(Num);type({ PROT:BPL\n});
  232.     wait({60},{LOGOUT},
  233.          {ファイル名 (改行のみで終了)\n：},
  234.          {type(Path);type(Num);type({.MAL\n})}
  235.         );
  236.     wait({3600},{LOGOUT},{削除 (1:削除する　2:しない)\n：},);
  237.     type({2\n});
  238.     Mail2;
  239.    };
  240.   %Mail2
  241.    {
  242.     type({DOWN\n});
  243.     wait({60},{LOGOUT},
  244.          {\n  1},{Mail3({01})},{\n  2},{Mail3({02})},{\n  3},{Mail3({03})},
  245.          {\n  4},{Mail3({04})},{\n  5},{Mail3({05})},{\n  6},{Mail3({06})},
  246.          {\n  7},{Mail3({07})},{\n  8},{Mail3({08})},{\n  9},{Mail3({09})},
  247.          {\n 10},{Mail3({10})},{\n 11},{Mail3({11})},{\n 12},{Mail3({12})},
  248.          {\n 13},{Mail3({13})},{\n 14},{Mail3({14})},{\n 15},{Mail3({15})},
  249.          {\n 16},{Mail3({16})},{\n 17},{Mail3({17})},{\n 18},{Mail3({18})},
  250.          {\n 19},{Mail3({19})},{\n 20},{Mail3({20})},{\n 21},{Mail3({21})},
  251.          {\n 22},{Mail3({22})},{\n 23},{Mail3({23})},{\n 24},{Mail3({24})},
  252.          {\n＞},{type({M\n});wait({30},{LOGOUT},{MAIL>},)}
  253.         );
  254.    };
  255.   %Mail1
  256.    {
  257.     receive(Path);
  258.     wait({60},{stoprec;LOGOUT},{\n＞},);
  259.     stoprec;
  260.     type({M\n});
  261.     wait({30},{LOGOUT},{MAIL>},);
  262.     Mail2;
  263.     Delmail1;
  264.     type({DOWN\n});
  265.     wait({30},{LOGOUT},{受信数},);
  266.     receive(Path);
  267.     wait({60},{stoprec;LOGOUT},{\n＞},);
  268.     stoprec;
  269.     type({M\n});
  270.     wait({30},{LOGOUT},{MAIL>},);
  271.    };
  272.   GO({MAIL});
  273.   wait({30},{LOGOUT},{MAIL>},);
  274.   type({DOWN\n});
  275.   wait({30},{LOGOUT},{受信数},{Mail1},
  276.          {－あなた宛のメールはありません－},
  277.         );
  278.  };
  279.  
  280.  /*****  ↑↑↑ ＤＯＷＮＭＡＩＬコマンド ↑↑↑  *****/
  281.  
  282.  /*****  ↓↓↓ ＲＴＣコマンド ↓↓↓  *****/
  283.  
  284. %RTCIN  /***  Not calling  ***/
  285.  {[Channel,Message]
  286.   type({RTC\n});
  287.   wait({30},,{チャンネル  (1から2 まで)\n：},);
  288.   type(Channel);type({\n});
  289.   wait({20},,{－リアルタイム会議開始 (終了:/E)－},);
  290.   type({/ECHO OFF\n});
  291.   type({/U\n});
  292.   wait({15},{type(Message);type({\n})});
  293.  };
  294.  
  295. %RTCOUT  /***  Not calling  ***/
  296.  {
  297.   type({/E\n});
  298.  };
  299.  
  300.  /*****  ↑↑↑ ＲＴＣコマンド ↑↑↑  *****/
  301.  
  302.  /*****  ↓↓↓ ＵＰＭＥＳコマンド ↓↓↓  *****/
  303.  
  304. %UPMES1  /***  Calling "LOGOUT"  ***/
  305.  {[Forum,Num]
  306.   GO(Forum);
  307.   type({SEND OFF\n});
  308.   type({MES });type(Num);type({\n});
  309.   type({COMP\n});
  310.   wait({100},{LOGOUT},{本文（300 行まで　終了は行頭で/E）},);
  311.  };
  312.  
  313. %UPMES2  /*** Calling "LOGOUT"  ***/
  314.  {
  315.   %TypeE
  316.    {
  317.     type({\n/E\n});
  318.     wait({20},{TypeE},{修正 (1:修正する　2:しない)},);
  319.    };
  320.   TypeE;
  321.   type({2\n});
  322.   type({1\n});
  323.   wait({20},{LOGOUT},{－登録完了－},{type({SEND ON\n})});
  324.  };
  325.  
  326.  /*****  ↑↑↑ ＵＰＭＥＳコマンド ↑↑↑  *****/
  327.  
  328. /***  ＮＡＣ , written by Ｄａｎｔｅ 90.01/10 , public domain  ***/
  329.  
  330. /***  ＮＡＣファイル  ***/
  331.  
  332. LOGIN(TEL1,ID1,PS1);
  333. command({DEL B:\MAIL\MAIL});
  334. DOWNMAIL({B:\MAIL\MAIL},{15});
  335. command({B:});
  336. command({CD \LOG\FTOWNS1}); DOWNLOG({FTOWNS1}, {FTW1});
  337. command({CD \LOG\FCGAME});  DOWNLOG({FCGAME},  {FCGM});
  338. command({CD \LOG\FFMHOB});  DOWNLOG({FFMHOB},  {FFMH});
  339. LOGOUT;
  340.