home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 February / VPR9702A.ISO / FFILLY / TOKYOS / MUSIC.TFY < prev    next >
Text File  |  1996-12-01  |  6KB  |  171 lines
  1.  
  2. //===========================================================================
  3. //カラオケ
  4.  main(){ 
  5.    int P00,P01,P02,P03,P04,P05,P06,P07,P08,menu; 
  6.    int Width,Height;
  7.     int picW,picH,winW,winH,winX,winY;
  8.      int WinMain,Winsub,WinMainm;
  9.    Width=WinInfo(0);                //画面の横幅を調べる。//
  10. Height=WinInfo(1);                //画面の高さを調べる。// 
  11.     Debug(1);
  12.            P00=LoadPic("OTR.bmp");
  13.   str MIDIFile[];
  14.   int MIDINum;
  15.  
  16.   MIDINum=0;
  17.   MIDIFile[1]="GONE.mid";
  18.  
  19.   MIDINum=1;                          // [追加]
  20.   PlayMIDI(MIDIFile[1]);        // [修正]PlayMIDI(MIDIFile[1]);
  21.   mes(MIDI_END){      MCI("stop song"); CloseWinAll();
  22.        Shell( GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  23.       "tokyoms.fil");   // 2つ目のfillyの起動            
  24.         del_all; ExitTitle();
  25.         del_me; 
  26.     
  27.  
  28.    }      
  29.    P01=LoadPic("DISPLAY.bmp");
  30.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  31.         picW= PicWidth(P00);    // 画像の幅(picは任意のPicture番号)
  32.         picH= PicHeight(P00);   // 画像の高さ(picは任意のPicture番号)
  33.         winW= WinInfo(0);       // 画面の幅
  34.         winH= WinInfo(1);       // 画面の高さ
  35.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  36.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標
  37.  CapTitle("");
  38.    DrawRect(P00, 0, 0, picW, picH, 0, 0);
  39.  
  40.     MovePic(P01,0,0,640,346,P00,0,0,0,0x000000); 
  41.    WinMain=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000);
  42.   
  43.  
  44.                  
  45.   SetFont(20,"ＭＳ 明朝",128,0,0,0,1);        
  46.            BackMode(1);                                        
  47.            BgColor(0,100,255);       
  48.            TextColor(255,255,255);     
  49.  mes(RBDOWN){ 
  50.        MCI("stop song"); CloseWinAll();
  51.        Shell( GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  52.       "tokyoms.fil");   // 2つ目のfillyの起動            
  53.  
  54.          del_all; ExitTitle();
  55.         del_me;
  56.     }         
  57. mes(MIDI_TIME){
  58.          
  59. step(5){
  60.  
  61.  TextWrite( "♪Now you've gone away♪",P00,150,400);
  62.  TextWrite( "♪作詞：作曲：円増亮介♪",P00,150,420);,,,
  63. ,,,,,,,,,,,,
  64. DrawRect(P00, 0, 346, picW, picH, 0, 0);
  65.  
  66. TextWrite( "We are waitin' for the time of your leavin' ",P00,100,350);,,,,
  67. TextWrite( "Tho' we don't wanna wait for",P00,100,370);,,,,,,,
  68. ,,
  69.  
  70. TextWrite( "Cannot say,say,Goodbye,to you",P00,100,390);,,,,
  71. TextWrite( "What a lonely!  Time passes quickly",P00,100,410);,,,,,,,
  72.  DelPic(P01 );
  73. DrawRect(P00, 0, 346, picW, picH, 0, 0);
  74.  
  75. TextWrite( "Please don't leave me alone at the station",P00,100,350);,,,,,,,,
  76. TextWrite( "Don't leave me alone",P00,100,370);,,,,,,
  77.  
  78. TextWrite( "Please don't leave me alone at the station",P00,100,390);,,,,,,
  79. TextWrite( "Now you've gone away",P00,100,410);,,,,,,
  80.  P02=LoadPic("NEO2.bmp");
  81.  
  82. MovePic(P02,0,0,640,346,P00,0,0,3,50);,,,,,,,,,,,,,
  83.  
  84.  SetFont(20,"ＭＳ 明朝",128);        
  85.            BackMode(0);                                        
  86.            BgColor(0,0,0);       
  87.            TextColor(255,255,255);     
  88.      
  89. DrawRect(P00, 0, 346, picW, picH, 0, 0);  
  90.  
  91. TextWrite( "From your eyes,Tear's fallin' down",P00,100,350);,,,,,
  92. TextWrite( "Still we're waitin' for,Being silent",P00,100,370);,,,,,,,
  93.  
  94.  
  95. ,,,
  96. TextWrite( "Cannot put,put into words",P00,100,390);,,,,,,
  97. TextWrite( "Make it stop if I could",P00,100,410);,,,,,,
  98.  
  99.  P03=LoadPic("PORT14.bmp");
  100.  
  101. MovePic(P03,0,0,640,432,P00,0,0,3,20);
  102. DrawRect(P00, 0, 346, picW, picH, 0, 0);
  103.  
  104.  
  105.  
  106.  
  107. TextWrite( "Please don't leave me alone at the station",P00,100,350);,,,,,,,,
  108. TextWrite( "Don't leave me alone",P00,100,370);,,,,,,
  109.  
  110. TextWrite( "Please don't leave me alone at the station",P00,100,390);,,,,,,
  111. TextWrite( "Now you've gone away",P00,100,410);,,,,,,
  112. ,,
  113. DrawRect(P00, 0, 346, picW, picH, 0, 0);
  114.  P07=LoadPic("PORT1_4.bmp");
  115. MovePic(P07,0,0,640,432,P00);,,
  116. MovePic(P03,0,0,640,432,P00,0,0,3,20);,,,,,
  117. MovePic(P07,0,0,640,432,P00);,,
  118. ,,
  119. MovePic(P03,0,0,640,432,P00,0,0,3,20);,,,
  120. MovePic(P07,0,0,640,432,P00,0,0,3,20);,,,
  121. P04=LoadPic("PORT13.bmp");,
  122. P05=LoadPic("PORT12.bmp");,
  123. MovePic(P04,0,0,640,346,P00);, 
  124.  DelPic(P02 ); ,,,,DelPic(P03 );,,,,
  125. ,,,,,DelPic(P07 );
  126.  
  127. TextWrite( "Please don't leave me alone at the station",P00,100,350);,,,,,,,
  128. TextWrite( "Don't leave me alone",P00,100,370);,,,,,,
  129.  
  130. TextWrite( "Please don't leave me alone at the station",P00,100,390);,,,,,,,,
  131. TextWrite( "Now you've gone away",P00,100,410);,,,,,,,,
  132. DrawRect(P00, 0, 346, picW, picH, 0, 0);
  133.  
  134. MovePic(P05,0,0,640,346,P00,0,0,11,50);
  135. TextWrite( "Please don't leave me alone at the station",P00,100,350);,,,,,,,
  136. TextWrite( "Don't leave me alone",P00,100,370);,,,,,,
  137. DelPic(P04 );
  138.  
  139. TextWrite( "Please don't leave me alone at the station",P00,100,390);,,,,,
  140. TextWrite( "Now you've gone away",P00,100,410);,,,,,,,,
  141.  
  142. DrawRect(P00, 0, 346, picW, picH, 0, 0);
  143.  
  144. TextWrite( "Please don't leave me alone at the station",P00,100,350);,,,,,,
  145. TextWrite( "Don't leave me alone",P00,100,370);,,,,,,
  146.  
  147. TextWrite( "Please don't leave me alone at the station",P00,100,390);,,,,,,
  148. TextWrite( "Now you've gone away",P00,100,410);,,
  149. DelPic(P05 );
  150. P06=LoadPic("PORT.bmp");,
  151. MovePic(P06,0,0,640,480,P00,0,0,0,0x000000);
  152.  
  153. TextWrite( "Now you've gone away",P00,100,370);,,
  154. P08=LoadPic("PORT11.bmp");,,
  155. TextWrite( "作詞：作曲：円増亮介　",P00,100,390);
  156. MovePic(P08,0,0,640,370,P00,0,0,3,10);,,,
  157. MovePic(P06,0,0,640,370,P00,0,0,3,10);,,,
  158. MovePic(P08,0,0,640,370,P00,0,0,3,10);,,,
  159. MovePic(P06,0,0,640,370,P00,0,0,3,10);,,,,
  160.  
  161.  
  162. DelPic(P06 );DelPic(P08 );
  163.  DelPic(P00 );
  164.  
  165.  MCI("stop song"); CloseWinAll();
  166.        Shell( GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  167.       "tokyoms.fil");   // 2つ目のfillyの起動            
  168.         del_all;
  169.         end_step;  ExitTitle();del_me;    
  170. }}
  171. }