home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 February / VPR9702A.ISO / FFILLY / TOKYOS / TOKYOE.TFY < prev    next >
Text File  |  1996-11-28  |  14KB  |  383 lines
  1.  
  2. //TOFFYシナリオのひな型
  3.  
  4. //作品情報(""内を書き換えて下さい)
  5. #info INAM "ｴｸｽﾊﾞﾝﾄﾞﾌﾞｯｸ　砂漠の果て2　のｴﾝﾃﾞｨﾝｸﾞﾞ部分"
  6. #info IART "【ﾄｯﾄの森】VFG02021＆円増亮介PXX12432＆T's studioKGG01664＆こあーる NIFTY:VZB04265　"
  7. #info ICMT "ﾏﾙﾁﾒﾃﾞｨｱ本の砂漠の果て2です。"
  8. #info ICOP "T's studio ;円増亮介;【ﾄｯﾄの森】;こあーる "
  9. #info INST "SC-88推奨、GM/GS"
  10. #info GENR "MIDI,CG(256色)､TXT"
  11. #info VIDO "どの解像度でもOKです。 256色,"
  12. #info MDFY "制作者４人にﾒｰﾙで確認して下さい。"
  13. #info TRNS "可,制作者４人にﾒｰﾙで確認して下さい。"
  14. #info GRPC "T's studio NIFTY:KGG01664,こあーる NIFTY:VZB04265"
  15. #info PROD "【ﾄｯﾄの森】VFG02021"
  16. #info CONT "T's studio NIFTY:KGG01664 ; 円増亮介 NIFTY:PXX12432;こあーる NIFTY:VZB04265"
  17. int run_pic,base_pic,car_pic; //CASTの絵たち
  18. //シナリオ本体
  19. main(){
  20. //ここからシナリオを書き始めて下さい
  21.  int Width,Height;
  22.  int picW,picH,winW,winH,winX,winY;
  23.  int P00,P01,P02,P03,P04,P05,P06,P07,Pt1,P08,P09,P10,P11,P12,P13,P14,P15,P16;
  24.  int WinMain;
  25. Width=WinInfo(0);                //画面の横幅を調べる。//
  26. Height=WinInfo(1);                //画面の高さを調べる。// 
  27.  
  28.     //;black640.bmpを読み込み、そのPicture番号をPictitleへ保存する。
  29.     Pt1=LoadPic("NEOTOKYO.bmp");
  30.     P00=LoadPic("STREET.bmp");
  31.                                 
  32.            BgColor(255,255,255);       
  33.            TextColor(255,255,255);     
  34.     P16=LoadPic("streetc.bmp");
  35.  
  36.     Debug(1);
  37.  
  38.     CapTitle("");
  39.  
  40.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  41.            picW= PicWidth(Pt1);    // 画像の幅(picは任意のPicture番号)
  42.         picH= PicHeight(Pt1);   // 画像の高さ(picは任意のPicture番号)
  43.         winW= WinInfo(0);       // 画面の幅
  44.         winH= WinInfo(1);       // 画面の高さ
  45.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  46.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標
  47.        SetPaintColor(0x000000);                    
  48.       DrawRect(Pt1, 0, 0, picW, picH, 0, 0);    
  49.  
  50.  
  51.  MovePic(P00,0,0,640,480,Pt1);
  52.  
  53.         base_pic=CreatePic(Pt1);    //背景と同じサイズのピクチャーを生成（中は汚いけどね(^^;）
  54.  
  55.        PutCast(Pt1,base_pic,0,0);//背景を設定（透明色は無しモード）
  56.       
  57.         WinMain=OpenWin(base_pic, 0, 0, winW, winH,winX, winY,0x000000); 
  58.                       // WinMainへ保存する。
  59.  
  60.   PlayMIDI("saba_n5.mid");        //5番目のMIDI
  61.  
  62.    mes(RBDOWN){  MCI("stop song");    
  63.         CloseWinAll();
  64.         del_all;
  65.         del_me;
  66.    
  67. }
  68.  
  69. mes(MIDI_END){     mes(TIME){step(5){
  70.       ,,,,,,,,,,,,,,,,
  71.         CloseWinAll();
  72.         del_all; end_step;
  73.         del_me;}}}
  74.  mes(MIDI_TIME){
  75.          
  76. step(5){ ,,,,MovePic(P16,0,0,150,150,base_pic,450,300,12,20);,, ,,,,
  77.  MovePic(P00,450,300,150,150,base_pic,450,300);
  78.   run();,,,,,,,,,     
  79.  MoveWin(WinMain , Pt1 ,0,0, winW, winH,winX, winY);
  80.  SetPaintColor(0x000000);                    
  81.  DrawRect(Pt1, 0, 0, picW, picH, 0, 0);    
  82.  
  83. MoveSPic(P00,0,0,640,480,Pt1,120, 140,170,120);,
  84. DelPic(P16);
  85. P01=LoadPic("OP6.bmp");
  86. MoveSPic(P01,0,0,640,346,Pt1,0, 300,170,80);,
  87. DelPic(P00);
  88. P02=LoadPic("PORT12.bmp");
  89. MoveSPic(P02,0,0,640,346,Pt1,510, 50,170,80);,
  90. DelPic(P01);
  91.  
  92. P03=LoadPic("NEOTOKYO.bmp");
  93. MoveSPic(P03,0,0,640,480,Pt1,510, 300,170,120);,
  94. DelPic(P02);
  95.  
  96. P04=LoadPic("NEO2.bmp");         
  97. MoveSPic(P04,0,0,640,346,Pt1,0, 50,170,80);,
  98. DelPic(P03);
  99.  
  100. P05=LoadPic("op4.bmp");         
  101. MoveSPic(P05,0,0,640,346,Pt1,300, 320,170,80);,
  102. DelPic(P04);
  103.  
  104. P06=LoadPic("port.bmp");         
  105. MoveSPic(P06,0,0,640,480,Pt1,400, 200,170,120);,
  106. DelPic(P05);
  107.  
  108. P07=LoadPic("LOGO.bmp");
  109.   MovePic(P07,0,0,639,346,Pt1,0,0,0,0xffffff);,
  110.  
  111. DelPic(P06);
  112. SetFont(20,"ＭＳ 明朝",128);
  113.  BackMode(1);                                        
  114.            BgColor(0,100,255);    
  115.   base_pic=CreatePic(Pt1);    //背景と同じサイズのピクチャーを生成（中は汚いけどね(^^;）
  116.   PutCast(Pt1,base_pic,0,0);//背景を設定（透明色は無しモード）
  117.  MoveWin(WinMain , base_pic ,0,0, winW, winH,winX, winY);
  118.  DelPic(07);
  119.  ,,,, run1();,,,,  run1();,,,run1();,,,,,,run1();,,,,,,
  120.  
  121.  TextWrite( "これは、今回の最後のFILLYです。",base_pic,50,410);,,
  122. TextWrite( "最後までおつきあいいただきありがとうございました。",base_pic,50,430);,,,,,
  123.  
  124. DrawRect(base_pic, 0, 410, picW, picH, 0, 0);
  125. TextWrite( "このFILLYをつくるにあたって、ﾃｷｽﾄﾋﾞｭｰﾜｰを",base_pic,50,410);,DelPic(run_pic);
  126. TextWrite( "綿１００号さんに、ﾃｽﾄ及びﾊﾞｸﾞ取りをあんちもんさんに、",base_pic,50,430);,
  127. TextWrite( "御協力いただきました。ありがとうございました。",base_pic,50,450);,,,,,,
  128. MoveWin(WinMain , Pt1 ,0,0, winW, winH,winX, winY);
  129.  DrawRect(Pt1, 0, 0, picW, picH, 0, 0);
  130.   P08=LoadPic("BIG.bmp");//背景 
  131.  
  132.  
  133.  
  134.   MovePic(P08,0,0,640,246,Pt1,0,100,3,40);,,,,,
  135. TextWrite( "Over　the　Rainbowsに、新しくこあーるさんをくわえ、",Pt1,50,410);,,
  136. TextWrite( "６月から少しづつ作ってきました。",Pt1,50,430);,,,
  137. DrawRect(Pt1, 0, 410, picW, picH, 0, 0);,
  138. TextWrite( "このクォーターが仕上がったのは、１１月です。",Pt1,50,410);,,,,
  139. TextWrite( "超スローペースで作っているわけですが、",Pt1,50,430);
  140. TextWrite( "感想やはげましの言葉を頂き、ありがとうございました。",Pt1,50,450);,,,,,,
  141. DrawRect(Pt1, 0, 410, picW, picH, 0, 0);,
  142.  
  143. TextWrite( "作り始めた頃、打ち合わせメールのT's studioさんが",Pt1,50,370);,,,
  144. TextWrite( "こあーるさんには、会議室での印象と違うらしく",Pt1,50,390);,,,
  145. TextWrite( "メールの相手は本物か。本物です。ホントに？",Pt1,50,410);,,
  146. TextWrite( "と言っていたことが、今は、なつかしく思えます。",Pt1,50,430);,,,,
  147.  
  148.  
  149. ,, 
  150.  
  151. DrawRect(Pt1, 0, 350, picW, picH, 0, 0);,
  152. TextWrite( "つづきは、またいつか。",Pt1,50,410);,,,,
  153. TextWrite( "このペースで行くと桜の花の咲くころでしょうか？",Pt1,50,430);,,
  154. TextWrite( "しばらくの間、お待ちください。",Pt1,50,450);,,,,
  155.  ,,,
  156.  DelPic(base_pic);
  157. DrawRect(Pt1, 0, 410, picW, picH, 0, 0); 
  158.  base_pic=CreatePic(Pt1);    //背景と同じサイズのピクチャーを生成（中は汚いけどね(^^;）
  159.   PutCast(Pt1,base_pic,0,0);//背景を設定（透明色は無しモード）
  160.  MoveWin(WinMain , base_pic ,0,0, winW, winH,winX, winY);,
  161.  
  162.  DrawRect(base_pic, 0, 346, picW, picH, 0, 0);
  163. car();,,,,,,,,,,
  164.  
  165.  
  166. DelPic(car_pic);
  167. MoveWin(WinMain , Pt1 ,0,0, winW, winH,winX, winY);
  168.     P09=LoadPic("isabel.bmp");
  169.  
  170.  
  171.  
  172.  TextWrite( "さて、地上に命がよみがえるのでしょうか？",Pt1,50,430);,,,,,,,,,,
  173.  
  174.    DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  175.   
  176.    MoveSPic(P09,0,0,640,480,Pt1,300, 0,320, 240);
  177. TextWrite( "覚醒したイザベルはTOKYO・CITYで",Pt1,50,410);,,,,
  178. TextWrite( "このまま、暮らしていくのでしょうか？",Pt1,50,430);,,,,,,,,
  179.  
  180.   
  181.    DrawRect(Pt1, 0, 346, picW, picH, 0, 0);,,,
  182.    
  183.     P10=LoadPic("TAKASI.bmp");
  184.  
  185.    MoveSPic(P10,0,0,640,346,Pt1,200, 80,320, 173);,
  186. TextWrite( "トチョウ遺跡に向かった、タカシは",Pt1,50,410);,,,,,,
  187. TextWrite( "ＨＩＲＯ２００１に帰ることができるのでしょうか？",Pt1,50,430);,,,,,,
  188.     P11=LoadPic("JUMP.bmp");
  189. DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  190.    P11=LoadPic("JUMP.bmp");
  191.    MoveSPic(P11,0,0,640,346,Pt1,100,160,320,173);,
  192. TextWrite( "幸せだった本当の自分の生活に戻るために",Pt1,50,410);,,,,
  193. TextWrite( "彼は飛び立ちました。そこで、何を見るのでしょうか？",Pt1,50,430);,,,,,,,,,,
  194.  
  195.  
  196.  
  197.   
  198.   
  199.  
  200.  
  201.   DelPic(P09);
  202.   DelPic(P10);
  203.  
  204.        
  205. DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  206.    MovePic(P11,0,0,640,346,Pt1,0,0,3,20);
  207.    
  208. TextWrite( "タカシの姿が小さくなっていきます。",Pt1,50,430);,,
  209. TextWrite( "彼に幸運がありますように...",Pt1,50,450);,,,,,,,
  210. DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  211.  
  212.  
  213.  
  214.     P12=LoadPic("ISEKI.bmp");
  215. DelPic(P11);
  216.  
  217. DelPic(P08);
  218.   
  219.     P13=LoadPic("TAKAJP.bmp");
  220.  
  221. MovePic(P12,0,0,640,346,Pt1,0,0);,
  222.    MoveSPic(P13,0,0,266,480,Pt1,100,0,266,480,0,0xffffff);,
  223.    MovePic(P12,0,0,640,346,Pt1,0,0);
  224.    DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  225.    MoveSPic(P13,0,0,266,480,Pt1,110,30,213,392,0,0xffffff);,
  226.    MovePic(P12,0,0,640,346,Pt1,0,0);
  227.    DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  228.    MoveSPic(P13,0,0,266,480,Pt1,120,60,160,288,0,0xffffff);,
  229.    MovePic(P12,0,0,640,346,Pt1,0,0);
  230.    DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  231.    MoveSPic(P13,0,0,266,480,Pt1,130,90,106,192,0,0xffffff);,
  232.    MovePic(P12,0,0,640,346,Pt1,0,0);
  233.    DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  234.    MoveSPic(P13,0,0,266,480,Pt1,140,120,53,96,0,0xffffff);,
  235.    MovePic(P12,0,0,640,346,Pt1,0,0);
  236.    DrawRect(Pt1, 0, 346, picW, picH, 0, 0);  
  237.   MoveSPic(P13,0,0,266,480,Pt1,150,140,33,60,0,0xffffff);,
  238.   MovePic(P12,0,0,640,346,Pt1,0,0);
  239.   DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  240.  
  241.  
  242.  
  243.    MoveSPic(P13,0,0,266,480,Pt1,160,160,33,60,0,0xffffff);,
  244.    MovePic(P12,0,0,640,346,Pt1,0,0);
  245.    MoveSPic(P13,0,0,266,480,Pt1,170,180,33,60,0,0xffffff);,,,
  246.  
  247.  
  248. TextWrite( "では、またお会いできる時まで、",Pt1,50,410);,,
  249. TextWrite( "バイバイ、　－Over the rainbow- ",Pt1,50,430);,,,,
  250.  
  251.  
  252.   DrawRect(Pt1, 0, 346, picW, picH, 0, 0);
  253. MovePic(P12,0,0,640,346,Pt1,0,0);
  254.    MoveSPic(P13,0,0,266,480,Pt1,180,180,33,60,0,0xffffff);,,
  255.  MovePic(P12,0,0,640,346,Pt1,0,0);
  256.    MoveSPic(P13,0,0,266,480,Pt1,190,180,33,60,0,0xffffff);,,  
  257. MovePic(P12,0,0,640,346,Pt1,0,0);
  258.    MoveSPic(P13,0,0,266,480,Pt1,200,180,33,60,0,0xffffff);,,
  259.  
  260.  SetFont(50,"ＭＳ 明朝",128);        
  261.            BackMode(1);                                        
  262.            BgColor(0,100,255);       
  263.            TextColor(255,255,255);  
  264. TextWrite( "To be continued......",Pt1,50,130);,,,,,,,,,,,,,,,
  265.  
  266. P14=LoadPic("OTR.bmp");
  267.   
  268. MovePic(P14,0,0,640,480,Pt1,0,0,12,20);,,,,,,,,,,,,,,,,,,
  269. DelPic(P12);
  270.   DelPic(P13);
  271. ,,,,,,,,,,,,,,,,,,,,,
  272.  
  273.         end_step;
  274. del_me;
  275. }}
  276. }
  277.  
  278. run(){
  279.  int run_cast;
  280.  
  281.       run_pic=LoadPic("RUN.bmp");//logo左下
  282.  
  283.       run_cast = PutCast( run_pic, base_pic, 220, 600, 0xffffff, 0, 3, 0,
  284.                                                              214, 338, 0, 0 );
  285.  
  286.  
  287.  mes(TIME){
  288.     step(4 ) {
  289.           MoveCast(run_cast, run_pic,100, 550, 0, 260,338, 214,0,0xffffff);,,
  290.           MoveCast(run_cast, run_pic,110, 520, 0, 214,338, 0,0,0xffffff);,,
  291.           MoveCast(run_cast, run_pic,120, 490, 0, 260,338, 214,0,0xffffff);,,
  292.           MoveCast(run_cast, run_pic,130, 460, 0, 214,338, 0,0,0xffffff);,,
  293.           MoveCast(run_cast, run_pic,140, 430, 0, 260,338, 214,0,0xffffff);,,
  294.           MoveCast(run_cast, run_pic,150, 400, 0, 214,338, 0,0,0xffffff);,,
  295.           MoveCast(run_cast, run_pic,160, 370, 0, 260,338, 214,0,0xffffff);,,
  296.           MoveCast(run_cast, run_pic,170, 340, 0, 214,338, 0,0,0xffffff);,,
  297.           MoveCast(run_cast, run_pic,180, 310, 0, 260,338, 214,0,0xffffff);,,
  298.           MoveCast(run_cast, run_pic,190, 280, 0, 214,338, 0,0,0xffffff);,,
  299.           MoveCast(run_cast, run_pic,200, 250, 0, 260,338, 214,0,0xffffff);,,
  300.           MoveCast(run_cast, run_pic,210, 220, 0, 214,338, 0,0,0xffffff);,,
  301.           MoveCast(run_cast, run_pic,220, 200, 0, 260,338, 214,0,0xffffff);,,
  302.           MoveCast(run_cast, run_pic,240, 170, 0, 214,338, 0,0,0xffffff);,,
  303.           MoveCast(run_cast, run_pic,260, 140, 0, 260,338, 214,0,0xffffff);,,
  304.           MoveCast(run_cast, run_pic,280, 140, 0, 214,338, 0,0,0xffffff);,,
  305.           MoveCast(run_cast, run_pic,300, -550, 0, 260,338, 214,0,0xffffff);,,
  306.           
  307.         
  308.           
  309.            DelCast(run_cast); end_step; 
  310.            del_us;
  311.     del_me;
  312. }}  }
  313. run1(){
  314.  int run1_cast;
  315.   int Xa,Xb;
  316.     int CastX;
  317.    
  318.  
  319.     Xa=0; Xb=450;
  320.     CastX= Xa + Random( Xb-Xa+1);        // Xa≦CastX≦Xb：任意のpicture上の領域
  321.  
  322.  
  323.       run1_cast = PutCast( run_pic, base_pic, CastX, 600, 0xffffff, 0, 1, 0,
  324.                                                              214, 338, 0, 0 );
  325.  
  326.  
  327.  mes(TIME){
  328.     step(4 ) {
  329.            MoveCast(run1_cast, run_pic, CastX,550, 0, 260,338, 214,0,0xffffff);,,
  330.           MoveCast(run1_cast, run_pic, CastX, 500, 0, 214,338, 0,0,0xffffff);,,
  331.           MoveCast(run1_cast, run_pic, CastX, 450, 0, 260,338, 214,0,0xffffff);,,
  332.           MoveCast(run1_cast, run_pic, CastX, 400, 0, 214,338, 0,0,0xffffff);,,
  333.           MoveCast(run1_cast, run_pic, CastX, 350, 0, 260,338, 214,0,0xffffff);,,
  334.           MoveCast(run1_cast, run_pic, CastX, 300, 0, 214,338, 0,0,0xffffff);,,
  335.           MoveCast(run1_cast, run_pic, CastX, 250, 0, 260,338, 214,0,0xffffff);,,
  336.           MoveCast(run1_cast, run_pic, CastX, 200, 0, 214,338, 0,0,0xffffff);,,
  337.           MoveCast(run1_cast, run_pic, CastX, 150, 0, 260,338, 214,0,0xffffff);,,
  338.           MoveCast(run1_cast, run_pic, CastX, 100, 0, 214,338, 0,0,0xffffff);,,
  339.         
  340.           MoveCast(run1_cast, run_pic, CastX, 50, 0, 260,338,214,0,0xffffff);,,
  341.          MoveCast(run1_cast, run_pic, CastX, 0, 0, 214,338, 0,0,0xffffff);,,
  342.         
  343.           MoveCast(run1_cast, run_pic, CastX, -50, 0, 260,338,214,0,0xffffff);,,
  344.          MoveCast(run1_cast, run_pic, CastX, -100, 0, 214,338,0,0,0xffffff);,,
  345.          MoveCast(run1_cast, run_pic, CastX, -150, 0, 260,338,214,0,0xffffff);,,
  346.          MoveCast(run1_cast, run_pic, CastX, -200, 0, 214,338,0,0,0xffffff);,,
  347.           MoveCast(run1_cast, run_pic, CastX, -250, 0, 260,338,214,0,0xffffff);,,
  348.          MoveCast(run1_cast, run_pic, CastX, -300, 0, 214,338,0,0,0xffffff);,,
  349.          MoveCast(run1_cast, run_pic, CastX, -550, 0, 260,338,214,0,0xffffff);,,
  350.         
  351.            DelCast(run1_cast); end_step; 
  352.            del_us;
  353.     del_me;
  354. }}  }
  355. car(){
  356.  int car_cast;
  357.  
  358.       car_pic=LoadPic("tubu.bmp");//ﾁｭｰﾌﾞｶｰ
  359.  
  360.       car_cast = PutCast( car_pic, base_pic, 600, 150, 0xffffff, 0, 2, 0,
  361.                                                              130, 100, 0, 0 );
  362.  
  363.  
  364.  mes(TIME){
  365.     step(4) {
  366.           MoveCast(car_cast, car_pic,600, 150, 0, 130,100, 0,0,0xffffff);,
  367.          
  368.           MoveCast(car_cast, car_pic,550, 150, 0, 130,100, 0,0,0xffffff);,
  369.           MoveCast(car_cast, car_pic,500, 150, 0, 130,100, 0,0,0xffffff);,
  370.           MoveCast(car_cast, car_pic,450, 150, 0, 130,100, 0,0,0xffffff);,
  371.           MoveCast(car_cast, car_pic,400, 150, 0, 100,100, 130,0,0xffffff);,
  372.           MoveCast(car_cast, car_pic,300, 150, 0, 100,100, 130,0,0xffffff);,
  373.           MoveCast(car_cast, car_pic,150, 130, 0, 70,100, 230,0,0xffffff);,
  374.           MoveCast(car_cast, car_pic,80, 130, 0, 70,100, 230,0,0xffffff);,
  375.           MoveCast(car_cast, car_pic,200, 130, 0, 50,100, 300,0,0xffffff);,
  376.           MoveCast(car_cast, car_pic,220, 130, 0, 50,100, 300,0,0xffffff);,,,,,,,,,,,,,,,
  377.           
  378.            end_step; 
  379.             DelCast(car_cast);
  380.            del_us;
  381.     del_me; }
  382.  
  383. } }