home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / mopterm / fapx405b / fapxchat.plp < prev    next >
Text File  |  1992-08-19  |  4KB  |  174 lines
  1. /*    フォーラム毎にダウンロードファイルを作成する処理    */
  2. %LOGforum{
  3.     [fname,mode]
  4.     case    (mode,
  5.         {start},
  6.         {
  7.         display({\n}|@tail(fname,{\})|{のダウンロードを開始します\n});
  8.         case    (COMPRESS={Yes}&&@filechk(ARCHIVER)={Yes},
  9.             {Yes},
  10.             {
  11.             mkdir2(@body(TEMP2|fname,,{\}));
  12.             dispoff({Yes});
  13.             command({del }|TEMP2|fname|{.log});
  14.             dispoff({No});
  15.             receive(TEMP2|fname|{.log});
  16.             },
  17.             {No},
  18.             {receive(LOG2|fname|{\}|@crefile(LOG2|fname,{log}))},
  19.             );
  20.         },
  21.         {stop},
  22.         {
  23.         stoprec;
  24.         display({\n}|@tail(fname,{\})|{のダウンロードを終了しました\n});
  25.         case    (COMPRESS={Yes}&&@filechk(ARCHIVER)={Yes},
  26.             {Yes},
  27.             {
  28.             mkdir2(@body(LOG2|fname,,{\}));
  29.             dispoff({Yes});
  30.             setcdir(TEMP);
  31.             %file    @nowfile2(TEMP2|fname|{.log},TEMP);
  32.             dispoff({Yes});
  33.             command(ARCHIVER|{ a }|LOG2|fname|{.lzh }|TEMP2|file);
  34.             command({del }|TEMP2|file);
  35.             dispoff({No});
  36.             });
  37.         setcdir(CDIR);
  38.         });
  39.     };
  40.  
  41. /************************************************************************
  42. *    チャット等の自由行動の処理の定義の定義                *
  43. *************************************************************************/
  44. %retFAPX{
  45.     footnote({自由行動の終了処理中です});
  46.     chat({No});
  47.     case    (LOGmode={forum},
  48.         {Yes},{LOGforum({freelog},{stop})});
  49.     dispoff({Yes});
  50.     break;
  51.     wait(1);
  52.     type({/TT\n});
  53.     loop    ({
  54.         wait    (Wtime2,
  55.             {break;WAITABORT(Wtime2);
  56.                 type({TT\n});im({Yes})},
  57.             {\n：},
  58.             {type({\n});WAITABORT(Wtime2);
  59.                 type({TT\n});im({Yes})},
  60.             {more>\n},
  61.             {type({E\n});WAITABORT(Wtime2);
  62.                 type({TT\n});im({Yes})},
  63.             {◆番号又はコマンドを入力して下さい},
  64.             {WAITABORT(Wtime2);type({TT\n});im({Yes})},
  65.             {◆正しいコマンドを入力して下さい},
  66.             {WAITABORT(Wtime2);type({TT\n});im({Yes})},
  67.             {◆入力データエラー},
  68.             {WAITABORT(Wtime2);type({TT\n});im({Yes})},
  69.             {\n＞},
  70.             {type({TT\n});im({Yes})},
  71.             {NIFTY-Serve     TOP},
  72.             {WAITABORT(Wtime2);im({No})},
  73.             {CUG トップ},{GONIF;im({No})}    /* CUG */
  74.             );
  75.         });
  76.     type({SET MENU ON\n});    WAITABORT(Wtime2);
  77.     type({SET PAGE OFF\n});    WAITABORT(Wtime2);
  78.     type({SET FF OFF\n});    WAITABORT(Wtime2);
  79.     dispoff({No});
  80.     display({自由行動を終了しました\n});
  81.     };
  82.  
  83. %GOCHAT    {
  84.     case    (AM3,
  85.         {Yes},
  86.         {display({夜間自動実行のため、自由行動は省略します\n})},
  87.         {No},
  88.         {
  89.         dispoff({Yes});
  90.         type({SET PAGE ON\n});    WAITABORT(Wtime2);
  91.         dispoff({No});
  92.         display({自由行動を開始します\n});
  93.         footnote({終了GO  MAILHP  BILL}|
  94.              {ANN BUL MES LIB RTC }|
  95.              {UST PROF},{b});
  96.         case    (LOGmode={forum},
  97.             {Yes},{LOGforum({freelog},{start})});
  98.         chat({Yes});
  99.         loop    ({
  100.             waitx(300);
  101.             case    (@xtype,
  102.                 {-2},{SNDMSG({jikan_f.snd});im({Yes})},
  103.                 {101},
  104.                 {
  105.                 SNDMSG({erande_f.snd});
  106.                 select    ({処理を選択して下さい},
  107.                     Wtime4,{retFAPX;im({No})},
  108.                     {  復    帰  },{retFAPX;im({No})},
  109.                     {  継    続  },{im({Yes})}
  110.                     );
  111.                 },
  112.                 {201},
  113.                 {
  114.                 SNDMSG({kaknin_f.snd});
  115.                 select    ({確認して下さい},
  116.                     Wtime4,{retFAPX;im({No})},
  117.                     {  復    帰  },{retFAPX;im({No})},
  118.                     {  継    続  },{im({Yes})}
  119.                     );
  120.                 },
  121.                 {102},
  122.                 {
  123.                 SNDMSG({nyuryo_f.snd});
  124.                 %tmp @input({行き先を指定して下さい},,{/go });
  125.                 case(tmp<>{},{Yes},{type(tmp|{\n})});
  126.                 im({Yes});
  127.                 },
  128.                 {202},
  129.                 {
  130.                 SNDMSG({nyuryo_f.snd});
  131.                 %tmp @input({行き先を指定して下さい},,{go });
  132.                 case(tmp<>{},{Yes},{type(tmp|{\n})});
  133.                 im({Yes});
  134.                 },
  135.                 {103},{type({/go mail\n});im({Yes})},
  136.                 {203},{type({go mail\n});im({Yes})},
  137.                 {104},{type({/go hp\n});im({Yes})},
  138.                 {204},{type({go hp\n});im({Yes})},
  139.                 {105},{type({/go bill\n});im({Yes})},
  140.                 {205},{type({go bill\n});im({Yes})},
  141.                 {106},{type({/ann\n});im({Yes})},
  142.                 {206},{type({ann\n});im({Yes})},
  143.                 {107},{type({/bul\n});im({Yes})},
  144.                 {207},{type({bul\n});im({Yes})},
  145.                 {108},{type({/mes\n});im({Yes})},
  146.                 {208},{type({mes\n});im({Yes})},
  147.                 {109},{type({/lib\n});im({Yes})},
  148.                 {209},{type({lib\n});im({Yes})},
  149.                 {110},{type({/rtc\n});im({Yes})},
  150.                 {210},{type({rtc\n});im({Yes})},
  151.                 {111},{type({/ust\n});im({Yes})},
  152.                 {211},{type({ust\n});im({Yes})},
  153.                 {112},
  154.                 {
  155.                 SNDMSG({nyuryo_f.snd});
  156.                 %tmp @input({ＩＤを指定して下さい},,{/prof });
  157.                 case(tmp<>{},{Yes},{type(tmp|{\n})});
  158.                 im({Yes});
  159.                 },
  160.                 {212},
  161.                 {
  162.                 SNDMSG({nyuryo_f.snd});
  163.                 %tmp @input({ＩＤを指定して下さい},,{prof });
  164.                 case(tmp<>{},{Yes},{type(tmp|{\n})});
  165.                 im({Yes});
  166.                 }
  167.                 );
  168.             });
  169.         }
  170.         );
  171.     };
  172.  
  173. GOCHAT;
  174.