home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 5 / FREESOFT.BIN / taropyon / heat101 / heplay.cfg < prev    next >
Text File  |  1992-08-19  |  5KB  |  216 lines
  1. /*********************************************************************
  2. /*
  3. /*    [Active] High-EUP Player 用
  4. /*    
  5. /*
  6. HEPLAY_no_music {
  7.     wind_init()
  8.     echo("\n\n")
  9.     echo("\n\t演奏する曲が設定されてないよン。\n")
  10.     echo("\n\t曲は<BGM メニュー>で設定してね。\n")
  11.     wait(10)
  12.     wind_close()
  13. }
  14.  
  15. FMB_error {
  16.     wind_init()
  17.     echo("\n\n");
  18.     if ( FMB = FMB_S )
  19.     {    echo("\n\tFM音源用の音色データがないって\n")
  20.         echo("\n\tいってんだろ！\n");
  21.         echo("\n\t\(FMB).fmb をちゃんと用意しろ。\n")
  22.     } else
  23.     {    echo("\n\tFM音源用の音色データがロードできないよ。\n")
  24.         echo("\n\t\(FMB).fmb はちゃんとあるかい？\n")
  25.         FMB_S = FMB;
  26.     }
  27.     wait(10)
  28.     wind_close()
  29. }
  30.  
  31. PMB_error {
  32.     wind_init()
  33.     echo("\n\n");
  34.     if ( PMB = PMB_S )
  35.     {    echo("\n\tPCM音源用の音色データがないって\n")
  36.         echo("\n\tいってんだろ！\n")
  37.         echo("\n\t\(PMB).pmb をちゃんと用意しろ。\n")
  38.     } else
  39.     {    echo("\n\tPCM音源用の音色データがロードできないよ。\n")
  40.         echo("\n\t\(PMB).pmb はちゃんとあるかい？\n")
  41.         PMB_S = PMB;
  42.     }
  43.     wait(10)
  44.     wind_close()
  45. }
  46.  
  47.  
  48. /*********************************************************************
  49. /*    入力    ERR        エラー要因
  50. /*            EUP        ファイル名
  51. /*
  52. HEPLAY_error {
  53.     if ( ERR = 1 )
  54.     {    MSG = "演奏できないよ。\n\tファイルはちゃんとある？？"
  55.     } else if ( ERR = 2 )
  56.     {    MSG = "ファイルのオープンに失敗した！"
  57.     } else if ( ERR = 3 )
  58.     {    MSG = "ファイルが大きすぎて演奏できないよ。"
  59.     }
  60.     wind_close()
  61.     wind_init()
  62.     echo("\n\(EUP) :\n")
  63.     echo("\n\t\(MSG)\n")
  64.     wait(5)
  65.     wind_close()
  66. }
  67.  
  68. /*********************************************************************
  69. /*
  70. /*    HEPLAY用 各パーツの表示位置を決める
  71. /*
  72. /*    入力    EUP        ファイル名
  73. /*
  74. /*    パーツ一覧        番号    種別                ｻｲｽﾞ(x,y)
  75. /*                    1～32    トラックパーツ        ( 40, 176)
  76. /*                    80        タイトルライン        (640,  16)
  77. /*                    81        キーボード            (464,  64)
  78. /*                    82        ｲﾝﾌｫﾒｰｼｮﾝ･ﾊﾟﾈﾙ        (152,  64)
  79. /*                    83        ﾏｼﾞｶﾙ･ｻｳﾝﾄﾞ･ﾌﾟﾚｲﾔ    (640, 220)
  80. /*                    84        カラオケ・ライン    (640,  32)
  81. /*
  82. /*
  83. HEPLAY_display {
  84.     /*********************************************************/
  85.     /*            お好みのタイプを選んでちょ♪               */
  86.     /*********************************************************/
  87.     if ( _HEPLAY_TYPE = 0 )
  88.     {    return    /* デフォルト    */
  89.     }
  90.     switch( _HEPLAY_TYPE,
  91.         1,"HEPLAY_display_1",
  92.         2,"HEPLAY_display_2",
  93.         3,"HEPLAY_display_3",
  94.         4,"HEPLAY_display_4"
  95.         )
  96. }
  97.  
  98. /*--------------------------------------------------------------------
  99. /*    32 track 構成
  100. /*
  101. HEPLAY_display_1 {    /* normal    */
  102.     he_parts(81,  8,28)        /* キーボード    */
  103.     he_parts(82,480,28)        /* パネル    */
  104.     trk = 0;
  105.     while ( trk < 32 )
  106.     {    expr("x","(\(trk)&15)*40")
  107.         expr("y","96+176*(\(trk)>>4)")
  108.         i = trk;
  109.         add("i",1)
  110.         he_parts(i,x,y)
  111.         add("trk",1)
  112.     }
  113.     he_parts(80,  0,456)    /* タイトルライン    */
  114.     he_parts(83,-1,-1)        /* マジカル･サウンド･プレイヤ    */
  115.     he_parts(84,-1,-1)        /* カラオケ    */
  116. }
  117.  
  118. HEPLAY_display_2 {
  119.     trk = 0;    /* ﾄﾗｯｸ 1～16 表示    */
  120.     while ( trk < 16 )
  121.     {    expr("x","(\(trk)&15)*40")
  122.         y = 24;
  123.         i = trk;
  124.         add("i",1)
  125.         he_parts(i,x,y)
  126.         add("trk",1)
  127.     }
  128.     trk = 16;    /* ﾄﾗｯｸ 17～32 off    */
  129.     while ( trk < 32 )
  130.     {    i = trk;
  131.         add("i",1)
  132.         he_parts(i,-1,-1)
  133.         add("trk",1)
  134.     }
  135.     he_parts(83,0,200)        /* マジカル･サウンド･プレイヤ･タイプ    */
  136.     he_parts(80,0,344)        /* タイトルライン                        */
  137.     he_parts(81,8,364)        /* キーボード                            */
  138.     he_parts(82,480,364)    /* パネル                                */
  139.     he_parts(84,0,432)        /* カラオケ                                */
  140. }
  141.  
  142.  
  143. /*-------------------------------------------------------------------=
  144. /*    ver.1.05ライク HEPLAY
  145. /*
  146. HEPLAY_display_3 {
  147.  
  148.     he_parts(80,0,24)        /* タイトルライン                        */
  149.     he_parts(83,0,40)        /* マジカル･サウンド･プレイヤ･タイプ    */
  150.     trk = 0;
  151.     while ( trk < 16 )
  152.     {    expr("x","(\(trk)&15)*40")
  153.         y = 184;
  154.         i = trk;
  155.         add("i",1)
  156.         he_parts(i,x,y)
  157.         add("trk",1)
  158.     }
  159.     trk = 16;    /* 16～32 トラック OFF    */
  160.     while ( trk < 32 )
  161.     {    i = trk;
  162.         add("i",1)
  163.         he_parts(i,-1,-1)
  164.         add("trk",1)
  165.     }
  166.  
  167.     he_parts(81,8,364)        /* キーボード                            */
  168.     he_parts(82,480,364)    /* パネル                                */
  169.     he_parts(84,0,432)        /* カラオケ                                */
  170. }
  171.  
  172. /*--------------------------------------------------------------------
  173. /*    カラオケ用HEPLAY
  174. /*
  175. HEPLAY_display_4 {
  176.  
  177.     he_parts(83,-1,-1)        /* マジカル･サウンド･プレイヤ･タイプ    */
  178.  
  179.     trk = 0;
  180.     while ( trk < 32 )
  181.     {    i = trk;
  182.         add("i",1)
  183.         he_parts(i,-1,-1)
  184.         add("trk",1)
  185.     }
  186.  
  187.     he_parts(80,0,344)        /* タイトルライン                        */
  188.     he_parts(81,8,364)        /* キーボード                            */
  189.     he_parts(82,480,364)    /* パネル                                */
  190.     he_parts(84,0,432)        /* カラオケ                                */
  191. }
  192.  
  193.  
  194. /*--------------------------------------------------------------------
  195. /*    入力    EUP
  196. /*            TITLE
  197. /*            FMB
  198. /*            FMB
  199. /*
  200. HEPLAY_start {
  201.     set_blackout(-1,"")    /* ブラックアウトを解除    */
  202. #    strupr("STR",EUP)
  203. #    if ( STR = "FARA_MID.EUP" )
  204. #    {    tone_load(32,1,"m:\\eup\\v50.drm")    /* V50用 ﾘｽﾞﾑ音色 名定義ﾌｧｲﾙ･ﾛｰﾄﾞ    */
  205. #    }
  206. #    tone_load(17,0,"m:\\eup\\d110.ton")    /* D-110用 音色名定義    */
  207. }
  208.  
  209. HEPLAY_stop {
  210.     if ( _BO_TIME > 0 )
  211.     {    /* ブラックアウト復活    */
  212.         set_blackout(_BO_TIME,"")
  213.     }
  214. }
  215.  
  216.