home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708A.ISO / FFILLY / voice1 / VOICE1.TFY < prev   
Text File  |  1997-05-15  |  14KB  |  331 lines
  1. //TOFFYシナリオのひな型
  2. #info INAM "Voice of sky 1"
  3. #info IART "【ﾄｯﾄの森】VFG02021＆円増亮介PXX12432＆T's studioQWN11603＆こあーる NIFTY:VZB04265　"
  4. #info ICMT "ﾏﾙﾁﾒﾃﾞｨｱ本のVoice of skyの"1"です。"
  5. #info ICOP "T's studio ;円増亮介;【ﾄｯﾄの森】;こあーる "
  6. #info INST "SC-88推奨、GM/GS"
  7. #info GENR "MIDI,CG(256色)､TXT"
  8. #info VIDO "どの解像度でもOKです。 256色,"
  9. #info MDFY "可。【ﾄｯﾄの森】VFG02021にﾒｰﾙください。"
  10. #info TRNS "可。【ﾄｯﾄの森】VFG02021にﾒｰﾙください。"
  11. #info GRPC "T's studio NIFTY:QWN11603,こあーる NIFTY:VZB04265"
  12. #info PROD "【ﾄｯﾄの森】VFG02021"
  13. #info CONT "T's studio NIFTY:QWN11603 ; 円増亮介 NIFTY:PXX12432;こあーる NIFTY:VZB04265"
  14. int F_pic,F1_pic,base_pic,F2_pic; //CASTの絵たち
  15. //シナリオ本体
  16. main(){
  17. //ここからシナリオを書き始めて下さい
  18. int  PicOP01, PicOP02,PicOP03,PicOP04,PicOP05;
  19. int WinMain;
  20.  int Width,Height;
  21.  int picW,picH,winW,winH,winX,winY;
  22. CapTitle("");
  23.  
  24.  
  25.    PicOP01=LoadPic("otr.bmp");
  26.  
  27.            
  28.           
  29.  
  30.    
  31.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  32.            picW= PicWidth( PicOP01);    // 画像の幅(picは任意のPicture番号)
  33.         picH= PicHeight( PicOP01);   // 画像の高さ(picは任意のPicture番号)
  34.         winW= WinInfo(0);       // 画面の幅
  35.         winH= WinInfo(1);       // 画面の高さ
  36.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  37.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標  
  38.  
  39.  
  40.  
  41.            
  42.  WinMain=OpenWin( PicOP01, 0, 0, winW, winH,winX, winY,0x000000); 
  43.  mes(MIDI_END){
  44.    
  45.      
  46.         CloseWin(WinMain);del_us;  
  47.            del_me;
  48.  }      
  49.  PlayMIDI("FANCY_97.mid");
  50.         
  51.  
  52.  
  53.   
  54.   PicOP02=LoadPic("hp10.bmp");           
  55.  mes(MIDI_TIME){
  56.  
  57. step(5){,,
  58.       SetFont(30,"ＭＳ 明朝",128);        
  59.            BackMode(0);                                        
  60.            BgColor(255,0,0);       
  61.            TextColor(255,255,255); 
  62.            TextWrite( "－Voice of sky －#1 ",PicOP01,160,200);
  63.             ,,,,
  64.               SetPaintColor(0x000000);                    
  65.             DrawRect(PicOP01, 0, 400, picW, picH, 0, 0);, 
  66.            DrawRect(PicOP01, 0, 0, 100, picH, 0, 0);, 
  67.          
  68.             DrawRect(PicOP01, 0, 0, picW, 100, 0, 0);,  
  69.            DrawRect(PicOP01, 0, 300, picW, picH, 0, 0);, 
  70.             
  71.  
  72.            DrawRect(PicOP01, 500, 0, picW, picH, 0, 0);, 
  73.            DrawRect(PicOP01, 0, 0, picW, 200, 0, 0);,       
  74.   
  75.              DrawRect(PicOP01, 0, 0, picW, picH, 0, 0);,
  76.             
  77.  
  78.           
  79.            MovePic(PicOP02,0, 0,400, 400,  PicOP01 , 160, 160, 3, 40);,,,
  80.            MovePic(PicOP02,0, 0,400, 400,  PicOP01 , 120, 120, 3, 40);,,,
  81.            MovePic(PicOP02,0, 0,400, 400,  PicOP01 , 80, 80, 3, 40);,,,
  82.            MovePic(PicOP02,0, 0,400, 400,  PicOP01 , 40, 40, 3, 40);,,,
  83.            MovePic(PicOP02,0, 0,400, 400,  PicOP01 , 0, 0, 3, 40);,,,,
  84.           
  85.    
  86.            
  87.            
  88.            base_pic = CreatePic( PicOP01); //背景と同じサイズのピクチャーを生成
  89.            PutCast( PicOP01,base_pic,0,0);//背景を設定（透明色無しモードのCastを生成）
  90.            MoveWin(WinMain,base_pic, 0, 0, winW, winH,winX, winY);
  91.             SetFont(16,"ＭＳ 明朝",128);        
  92.            BackMode(0);                                        
  93.            BgColor(0,0,0);       
  94.            TextColor(255,255,255);
  95.  
  96.           
  97.            TextWrite( "月明かりに",base_pic,450,34);
  98.            TextWrite( "人影が",base_pic,450,50);
  99.            TextWrite( "見えました",base_pic,450,66);,,,,,,
  100.            
  101.            F();,,,,,,,,,,
  102.             SetFont(80,"ＭＳ 明朝",128);        
  103.            BackMode(0);                                        
  104.            BgColor(0,0,0);       
  105.            TextColor(255,255,255);    
  106.            TextWrite( "　",base_pic,450,34);
  107.           SetFont(16,"ＭＳ 明朝",128);        
  108.            BackMode(0);                                        
  109.            BgColor(0,0,0);       
  110.            TextColor(255,255,255);
  111.  
  112.            TextWrite( "時間は ",base_pic,0,34);
  113.            TextWrite( "止まりません ",base_pic,0,50);,,,,
  114.            TextWrite( "もちろん....",base_pic,0,82);
  115.            TextWrite( "後戻りも",base_pic,0,98);
  116.            TextWrite( "できません",base_pic,0,114);,,,,,,,,,
  117. TextWrite( "このまま",base_pic,0,150);
  118. TextWrite( "彷徨うのは",base_pic,0,166);
  119. TextWrite( "ゴメンでした",base_pic,0,182);,,,,,,,
  120.  
  121.            TextWrite( "私は彼の後を",base_pic,0,232);
  122.            TextWrite( "追いました",base_pic,0,248);,,,,,,,,
  123.             F1();,,,,,,
  124.           
  125.  
  126.            TextWrite( "ここがどこなのかと",base_pic,100,30);,,,,
  127.            TextWrite( "彼に聞きたかったのです。",base_pic,100,46);,,,,,,,
  128.            TextWrite( "家族は",base_pic,100,100);,
  129.            TextWrite( "私のことを",base_pic,100,116);
  130.            TextWrite( "心配してくれているのでしょうか",base_pic,100,132);,,,,,,,
  131.            TextWrite( "それとも....",base_pic,100,200);,
  132.            TextWrite( "もうとっくに、眠ってしまったのでしょうか",base_pic,100,216);,,,,,,,,,
  133.  
  134.            TextWrite( "時間は",base_pic,100,266);,,
  135.            TextWrite( "当たり前のように",base_pic,100,282);
  136.            TextWrite( "過ぎていきました",base_pic,100,298);,,,,,,,,,,,,,,,
  137.             MoveWin(WinMain, PicOP01, 0, 0, winW, winH,winX, winY);,
  138.             DelPic(PicOP02);
  139.  
  140.            PicOP03=LoadPic("nameless.bmp");
  141.            MovePic(PicOP03,0,0,640,480,PicOP01,0,0,1,50);,,,,,,,,,,,,,,,,,,,,,,,,,
  142.            TextWrite( "彼は魔法使いのようなフード付きのコートに",PicOP01,50,380);
  143.            TextWrite( "長くとがった剣をもっていました。",PicOP01,50,400);,,,,,,,,,
  144.            TextWrite( "兵士なのでしょうか",PicOP01,50,420);
  145.            TextWrite( "あたりを警戒しながら、歩いているようでした",PicOP01,50,440);,,,,,,,,,,,,
  146.             SetPaintColor(0x000000);                    
  147.             DrawRect(PicOP01, 0, 380, picW, picH, 0, 0);, 
  148.   
  149.   DelPic(PicOP03);
  150.          
  151. TextWrite( "しばらく、肩を並べて歩いてから",PicOP01,50,380);,,,,
  152. TextWrite( "私は遠くに見える街を指さして、彼に聞きました",PicOP01,50,400);
  153. TextWrite( "あの街は何という名前でしょう",PicOP01,50,420);
  154. TextWrite( "あそこに宿はあるでしょうか",PicOP01,50,440);,,,,,,,,,,,
  155. SetPaintColor(0x000000);
  156. DrawRect(PicOP01, 0, 380, picW, picH, 0, 0);,
  157. TextWrite( "名前などないさ",PicOP01,50,380);,,,
  158. TextWrite( "あれは、無名都市......",PicOP01,50,400);
  159. TextWrite( "名前を忘れたモノが巣くう街だ",PicOP01,50,420);,,,,,,,,,,,,
  160.  
  161. SetPaintColor(0x000000);
  162. DrawRect(PicOP01, 0, 0, picW, picH, 0, 0);, 
  163. PicOP04=LoadPic("nts.bmp");
  164.           MovePic(PicOP04,0,0,360,480,PicOP01,0,0,6,20);,,
  165. TextWrite( "古代の機械があそこで",PicOP01,400,80);
  166. TextWrite( "つぎつぎと亡霊を生み出している。",PicOP01,400,100);,,,,,,,,,,,
  167.  
  168.  
  169. TextWrite( "ここは、エレファイス...",PicOP01,400,180);,,,
  170. TextWrite( "君はここの住人ではない",PicOP01,400,300);
  171. TextWrite( "君の場所に戻るべきだ",PicOP01,400,320);,,,,,,,,,
  172. SetPaintColor(0x000000);
  173. DrawRect(PicOP01, 400, 0, picW, picH, 0, 0);, 
  174. TextWrite( "君は飛行機械 ",PicOP01,400,60);
  175. TextWrite( "「スラック・タグ・ロー」に",PicOP01,400,80);
  176. TextWrite( "守護されている",PicOP01,400,100);,,,
  177. TextWrite( "彼はトンボ達を指さした",PicOP01,400,150);,,,,,,,,,
  178. TextWrite( "この星のどこかにあるという",PicOP01,400,200);,
  179. TextWrite( "ルーデルバッファを捜しなさい",PicOP01,400,220);,,,,,,,,,,
  180.  
  181. TextWrite( "きっと、君の問題を",PicOP01,400,380);
  182. TextWrite( "片づけてくれるだろう....",PicOP01,400,400);
  183.  
  184. ,,,,,,,,,,,
  185. SetPaintColor(0x000000);
  186. DrawRect(PicOP01, 0, 0, picW, picH, 0, 0);, 
  187. PicOP05=LoadPic("moon.bmp");
  188.           MovePic(PicOP05,0,0,640,427,PicOP01,0,0,5,20);,,
  189. TextWrite( "そして、私は再び飛び立った....",PicOP01,80,430);,,,,,,
  190. DrawRect(PicOP01, 0, 430, picW, picH, 0, 0);, 
  191.  SetFont(30,"ＭＳ 明朝",128);        
  192.            BackMode(1);                                        
  193.            BgColor(255,0,255);       
  194.            TextColor(255,255,255); 
  195.  
  196.               TextWrite( "to be continued....",PicOP01,30,334);,,,,,,,,,
  197. PicOP06=LoadPic("otr.bmp");
  198. MovePic(PicOP06,0,0,640,480,PicOP01,0,0,1,20);,,,,,,,,,,,,,,,,,,,,,,,,
  199. end_step;del_us; CloseWinAll();     del_me;
  200.   }}} 
  201. F(){
  202.  int F_cast;
  203.  
  204.     int F_pic;
  205.  
  206.  
  207.       F_pic=LoadPic("magics.bmp");//歩く 
  208.  
  209.       F_cast = PutCast( F_pic, base_pic, 300, 50, 0xffffff, 0, 2, 0,
  210.                                                              78, 167, 0, 0 );
  211.  
  212.  
  213.  mes(TIME){
  214.     step(3 ) {
  215.  
  216.          MoveCast(F_cast, F_pic,  300, 50,0, 78,167, 0,0,0xffffff);,,,,
  217.           MoveCast(F_cast, F_pic,  300, 60,0, 98,167, 88,0,0xffffff);,,,
  218.           MoveCast(F_cast, F_pic,  300, 70,0, 110,167, 180,0,0xffffff);,,,,
  219.          MoveCast(F_cast, F_pic,  300, 80,0, 78,167, 0,0,0xffffff);,,,,
  220.           MoveCast(F_cast, F_pic,  300, 90,0, 98,167, 88,0,0xffffff);,,,
  221.           MoveCast(F_cast, F_pic,  300, 100,0, 110,167, 180,0,0xffffff);,,,,
  222.  
  223.           MoveCast(F_cast, F_pic,  300, 110,0, 78,167, 0,0,0xffffff);,,,,
  224.           MoveCast(F_cast, F_pic,  300, 120,0, 98,167, 88,0,0xffffff);,,,
  225.           MoveCast(F_cast, F_pic,  300, 130,0, 110,167, 180,0,0xffffff);,,,,
  226.            MoveCast(F_cast, F_pic,  300, 140,0, 78,167, 0,0,0xffffff);,,,,
  227.           MoveCast(F_cast, F_pic,  300, 150,0, 98,167, 88,0,0xffffff);,,,
  228.           MoveCast(F_cast, F_pic,  300, 160,0, 110,167, 180,0,0xffffff);,,,,
  229.            MoveCast(F_cast, F_pic,  300, 170,0, 78,167, 0,0,0xffffff);,,,,
  230.           MoveCast(F_cast, F_pic,  300, 180,0, 98,167, 88,0,0xffffff);,,,
  231.           MoveCast(F_cast, F_pic,  300, 190,0, 110,167, 180,0,0xffffff);,,,,
  232.            MoveCast(F_cast, F_pic,  300, 200,0, 78,167, 0,0,0xffffff);,,,,
  233.           MoveCast(F_cast, F_pic,  300, 210,0, 98,167, 88,0,0xffffff);,,,
  234.           MoveCast(F_cast, F_pic,  300, 220,0, 110,167, 180,0,0xffffff);,,,,
  235.            MoveCast(F_cast, F_pic,  300, 230,0, 78,167, 0,0,0xffffff);,,,,
  236.           MoveCast(F_cast, F_pic,  300, 240,0, 98,167, 88,0,0xffffff);,,,
  237.           MoveCast(F_cast, F_pic,  300, 250,0, 110,167, 180,0,0xffffff);,,,,
  238.          MoveCast(F_cast, F_pic,  300, 260,0, 78,167, 0,0,0xffffff);,,,,
  239.           MoveCast(F_cast, F_pic,  300, 270,0, 98,167, 88,0,0xffffff);,,,
  240.           MoveCast(F_cast, F_pic,  300, 280,0, 110,167, 180,0,0xffffff);,,,,
  241.           
  242.          
  243.             end_step;  del_us;
  244.            DelCast(F_cast,0);
  245.     del_me; }
  246.   }                  
  247. }
  248. F1(){
  249.  int F1_cast;
  250.  
  251.     int F_pic;
  252.  
  253.       F_pic=LoadPic("magics.bmp");//歩く 
  254.  
  255.       F1_cast = PutCast( F_pic, base_pic, 0, 0, 0xffffff, 0, 2, 0,
  256.                                                              78, 167, 0, 0 );
  257.  
  258.  
  259.  mes(TIME){
  260.     step(3 ) {
  261.           MoveCast(F1_cast, F_pic,  0, 20,0, 78,167, 0,0,0xffffff);,,,,
  262.           MoveCast(F1_cast, F_pic, 0, 30,0, 98,167, 88,0,0xffffff);,,,
  263.           MoveCast(F1_cast, F_pic, 0, 40,0, 110,167, 180,0,0xffffff);,,,,
  264.          MoveCast(F1_cast, F_pic,  0, 50,0, 78,167, 0,0,0xffffff);,,,,
  265.           MoveCast(F1_cast, F_pic, 0, 60,0, 98,167, 88,0,0xffffff);,,,
  266.           MoveCast(F1_cast, F_pic, 0, 70,0, 110,167, 180,0,0xffffff);,,,,
  267.          MoveCast(F1_cast, F_pic,  0, 80,0, 78,167, 0,0,0xffffff);,,,,
  268.           MoveCast(F1_cast, F_pic, 0, 90,0, 98,167, 88,0,0xffffff);,,,
  269.           MoveCast(F1_cast, F_pic, 0, 100,0, 110,167, 180,0,0xffffff);,,,,
  270.  
  271.           MoveCast(F1_cast, F_pic,  0, 110,0, 78,167, 0,0,0xffffff);,,,,
  272.           MoveCast(F1_cast, F_pic,  0, 120,0, 98,167, 88,0,0xffffff);,,,
  273.           MoveCast(F1_cast, F_pic,  0, 130,0, 110,167, 180,0,0xffffff);,,,,
  274.            MoveCast(F1_cast, F_pic,  0, 140,0, 78,167, 0,0,0xffffff);,,,,
  275.           MoveCast(F1_cast, F_pic,  0, 150,0, 98,167, 88,0,0xffffff);,,,
  276.           MoveCast(F1_cast, F_pic,  0, 160,0, 110,167, 180,0,0xffffff);,,,,
  277.            MoveCast(F1_cast, F_pic, 0, 170,0, 78,167, 0,0,0xffffff);,,,,
  278.           MoveCast(F1_cast, F_pic,  0, 180,0, 98,167, 88,0,0xffffff);,,,
  279.           MoveCast(F1_cast, F_pic,  0, 190,0, 110,167, 180,0,0xffffff);,,,,
  280.            MoveCast(F1_cast, F_pic, 0, 200,0, 78,167, 0,0,0xffffff);,,,,
  281.           MoveCast(F1_cast, F_pic,  0, 210,0, 98,167, 88,0,0xffffff);,,,
  282.           MoveCast(F1_cast, F_pic,  0, 220,0, 110,167, 180,0,0xffffff);,,,,
  283.            MoveCast(F1_cast, F_pic, 0, 230,0, 78,167, 0,0,0xffffff);,,,,
  284.           MoveCast(F1_cast, F_pic,  0, 240,0, 98,167, 88,0,0xffffff);,,,
  285.           MoveCast(F1_cast, F_pic,  0, 250,0, 110,167, 180,0,0xffffff);,,,,
  286.          
  287.             end_step;  del_us;
  288.            DelCast(F1_cast,0);
  289.     del_me; }
  290.   }                  
  291. }
  292. F2(){
  293.  int F2_cast;
  294.  
  295.     int F_pic;
  296.  
  297.  
  298.       F_pic=LoadPic("magics.bmp");//歩く 
  299.  
  300.       F2_cast = PutCast( F_pic, base_pic, 300, 50, 0xffffff, 0, 2, 0,
  301.                                                              78, 167, 0, 0 );
  302.  
  303.  
  304.  mes(TIME){
  305.     step(3 ) {
  306.  
  307.           MoveCast(F2_cast, F_pic,  300, 110,0, 78,167, 0,0,0xffffff);,,,,
  308.           MoveCast(F2_cast, F_pic,  300, 120,0, 98,167, 88,0,0xffffff);,,,
  309.           MoveCast(F2_cast, F_pic,  300, 130,0, 110,167, 180,0,0xffffff);,,,,
  310.            MoveCast(F2_cast, F_pic,  300, 140,0, 78,167, 0,0,0xffffff);,,,,
  311.           MoveCast(F2_cast, F_pic,  300, 150,0, 98,167, 88,0,0xffffff);,,,
  312.           MoveCast(F2_cast, F_pic,  300, 160,0, 110,167, 180,0,0xffffff);,,,,
  313.            MoveCast(F2_cast, F_pic,  300, 170,0, 78,167, 0,0,0xffffff);,,,,
  314.           MoveCast(F2_cast, F_pic,  300, 180,0, 98,167, 88,0,0xffffff);,,,
  315.           MoveCast(F2_cast, F_pic,  300, 190,0, 110,167, 180,0,0xffffff);,,,,
  316.            MoveCast(F2_cast, F_pic,  300, 200,0, 78,167, 0,0,0xffffff);,,,,
  317.           MoveCast(F2_cast, F_pic,  300, 210,0, 98,167, 88,0,0xffffff);,,,
  318.           MoveCast(F2_cast, F_pic,  300, 220,0, 110,167, 180,0,0xffffff);,,,,
  319.            MoveCast(F2_cast, F_pic,  300, 230,0, 78,167, 0,0,0xffffff);,,,,
  320.           MoveCast(F2_cast, F_pic,  300, 240,0, 98,167, 88,0,0xffffff);,,,
  321.           MoveCast(F2_cast, F_pic,  300, 250,0, 110,167, 180,0,0xffffff);,,,,
  322.            
  323.          
  324.             end_step;  del_us;
  325.            DelCast(F2_cast,0);
  326.     del_me; }
  327.   }                  
  328. }
  329. //ここまでに書いてください
  330.  
  331.