home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / ffilly / fmc02 / fmc02.tfy < prev    next >
Text File  |  1995-11-20  |  4KB  |  152 lines
  1. //fmc02.tfy
  2.  
  3. //作品情報
  4. #info INAM "第２回 Filly Monthly Contest 入選作紹介Filly"
  5. #info IART "POCOPEN,GGB02243@niftyserve.or.jp"
  6. #info ICOP "POCOPEN; ナナミちゃん,NBF04330@niftyserve.or.jp"
  7.  
  8. int WinW,WinH,PicW,PicH,MenuWin;
  9. int flag,picm0,picm1,x0,y0;
  10.  
  11. //シナリオ本体
  12. main(){
  13.     WinW=WinInfo(0);
  14.     WinH=WinInfo(1);
  15.     picm0=LoadPic("fmc02_01.bmp");
  16.     PicW=PicWidth(picm0);
  17.     PicH=PicHeight(picm0);
  18.     x0=(WinW-PicW)/2;
  19.     y0=(WinH-PicH)/2;
  20.     MenuWin=OpenWin(picm0,0,0,WinW,WinH,-x0,-y0,0x000000);
  21.     flag=0;
  22.     menu();
  23.     }
  24.  
  25. //メニュー
  26. menu(){
  27.     if(flag==1){
  28.         OpenWin(picm0,0,0,WinW,WinH,-x0,-y0,0x000000);
  29.         flag==0;
  30.         }
  31.     del_all;
  32.     mes(LBDOWN){
  33.         PlayWAVE("kachi.wav");
  34.         if(MesP2>390+x0&&MesP2<607+x0&&MesP3>109+y0&&MesP3<260+y0){
  35.             mes(TIME){ShowTitle(1);del_us;del_me;}
  36.             }
  37.         if(MesP2>390+x0&&MesP2<607+x0&&MesP3>270+y0&&MesP3<422+y0){
  38.             mes(TIME){ShowTitle(2);del_us;del_me;}
  39.             }
  40.         if(MesP2>525+x0&&MesP2<619+x0&&MesP3>436+y0&&MesP3<471+y0){
  41.             mes(TIME){
  42.                 step(1){
  43.                     CloseWinAll();,,
  44.                     del_all;,,
  45.                     del_me;
  46.                     }
  47.                 }
  48.             }
  49.         }
  50.     }
  51.  
  52. //タイトル実行
  53. ShowTitle(int index){
  54.     int pict1,x1,y1;
  55.     if(index==1){
  56.         pict1=LoadPic("fmcnana4.256");
  57.         x1=(WinW-PicWidth(pict1))/2;
  58.         y1=(WinH-PicHeight(pict1))/2;
  59.         OpenWin(pict1,0,0,WinW,WinH,-x1,-y1,0x000000);
  60.         mes(LBDOWN){
  61.             PlayWAVE("kachi.wav");
  62.             DelPic(pict1);
  63.             mes(TIME){flag=1;menu();del_me;}
  64.             }
  65.         }
  66.     if(index==2){
  67.         mes(TIME){sinmei();del_me;}
  68.         }
  69.     }
  70.  
  71. /*
  72. #info INAM "夏の終わりの、～北海道・深名線廃線－1995年9月～"
  73. #info ISBJ "ローカル線の廃線を叙情的に描く．．．はずでした(^_^;"
  74. #info ICMT "第２回FFilly Monthly Contestコンポーネント部門応募作品(「電車、バス」)．『DOS/V POWER REPORT』1996年２月号CD-ROM収録にあたって、「黒バック、クリックによる(途中)終了」を追加．パレット合わせ．"
  75. #info IART "POCOPEN,GGB02243@niftyserve.or.jp"
  76. #info ICOP "POCOPEN,GGB02243@niftyserve.or.jp"
  77. #info IGNR "photograph"
  78. #info MDFY "OK"
  79. #info TRNS "OK"
  80. #info JINT "Hope"
  81. */
  82.  
  83. sinmei(){
  84.     int pic0,pic1,pic2,pic3,pic4,win;
  85.     int WinsW,WinsH,xs0,ys0,st;
  86.  
  87.     SetFont( 48, "ＭＳ ゴシック", 128 );
  88.     TextColor( 15, 26, 200 );
  89.     BackMode( 1 );
  90.     pic0 = LoadPic( "snm00.bmp" );
  91.     WinsW=WinInfo(0);
  92.     WinsH=WinInfo(1);
  93.     xs0=(WinsW-PicWidth(pic0))/2;
  94.     ys0=(WinsH-PicHeight(pic0))/2;
  95.     win = OpenWin(pic0,0,0,WinsW,WinsH,-xs0,-ys0,0x000000);
  96.     mes( LBDOWN){
  97.         PlayWAVE("kachi.wav");
  98.         DelPic(pic0);
  99.         if(st==1){DelPic(pic1);DelPic(pic2);}
  100.         if(st==2){DelPic(pic3);DelPic(pic4);}
  101.         CloseWin(win);
  102.         del_us;
  103.         menu();
  104.         del_me;
  105.         }
  106.     mes( TIME ){
  107.           step( 3 ){,,,,,,,
  108.             TextWrite( "Ｐ", pic0,  40, 240 );,
  109.             TextWrite( "Ｏ", pic0,  80, 240 );,
  110.             TextWrite( "Ｃ", pic0, 120, 240 );,
  111.                 TextWrite( "Ｏ", pic0, 160, 240 );,
  112.             TextWrite( "Ｐ", pic0, 200, 240 );,
  113.             TextWrite( "Ｅ", pic0, 240, 240 );,
  114.             TextWrite( "Ｎ", pic0, 280, 240 );,,,
  115.                 TextWrite( "ｐ", pic0, 350, 240 );,
  116.             TextWrite( "ｒ", pic0, 380, 240 );,
  117.                 TextWrite( "ｅ", pic0, 410, 240 );,
  118.             TextWrite( "ｓ", pic0, 440, 240 );,
  119.                 TextWrite( "ｅ", pic0, 470, 240 );,
  120.             TextWrite( "ｎ", pic0, 500, 240 );,
  121.             TextWrite( "ｔ", pic0, 530, 240 );,
  122.             TextWrite( "ｓ", pic0, 560, 240 );,,,,,,,
  123.  
  124.             pic1 = LoadPic( "snm01.bmp" );
  125.             pic2 = LoadPic( "poco_004.bmp" );
  126.             st=1;
  127.             ,,,,,,,,,,,,
  128.             MovePic( pic1, 0, 0, 640, 480, pic0, 0, 0, 10, 20 );
  129.             ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  130.             MovePic( pic2, 0, 0, 640, 480, pic0, 0, 0,  7, 20 );
  131.             ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  132.              DelPic(pic1);    DelPic(pic2);
  133.               pic3 = LoadPic( "poco_005.bmp" );
  134.             pic4 = LoadPic( "snm00.bmp" );
  135.             st=2;
  136.             ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  137.             MovePic( pic3, 0, 0, 640, 480, pic0, 0, 0,  2, 30 );
  138.             ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  139.             ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  140.             MovePic( pic4, 0, 0, 640, 480, pic0, 0, 0,  4, 15 );
  141.             ,,,,,,,,,,
  142.             TextWrite( "Ｅ", pic0, 240, 240 );,,,
  143.             TextWrite( "Ｎ", pic0, 300, 240 );,,,
  144.             TextWrite( "Ｄ", pic0, 360, 240 );,,,,,,,,
  145.               SetFont( 24, "ＭＳ ゴシック", 128 );
  146.               TextWrite( "クリックで終了します", pic0, 200, 320 );
  147. //            DelPic(pic0);
  148.             end_step;
  149.             }
  150.           }
  151.     }
  152.