home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / ffilly / fpg05 / fpg05f.tfy < prev    next >
Text File  |  1995-11-20  |  5KB  |  217 lines
  1. //fpg05f.tfy
  2.  
  3. //作品情報
  4. #info INAM "Filly Photo Gallery Part-5 full color version"
  5. #info IART "ともゆき,SDI00678@niftyserve.or.jp; POCOPEN,GGB02243@niftyserve.or.jp"
  6. #info ICOP "ともゆき,SDI00678@niftyserve.or.jp; POCOPEN,GGB02243@niftyserve.or.jp
  7.  
  8. //グローバル変数
  9. int PicNo,MainPic,MenuAbtPic,MenuWinNo,CrePic,mFlag;
  10. int yun[],MenuPic[],MenuNo;
  11. int WinW,WinH,x0,y0;
  12.  
  13. //シナリオ本体
  14. main(){
  15.     //bmp読み込み
  16.     MainPic=LoadPic("fpg05mn0.bmp");
  17.     MenuPic[1]=LoadPic("fpg05mn1.bmp");
  18.     MenuPic[2]=LoadPic("fpg05mn2.bmp");
  19.     MenuAbtPic=LoadPic("fpg05mn3.bmp");
  20.     CrePic=CreatePic(MainPic);
  21.  
  22.     //画面サイズ    
  23.     WinW = WinInfo( 0 );
  24.     WinH = WinInfo( 1 );
  25.     x0 = (WinW-640)/2;
  26.     y0 = (WinH-480)/2;
  27.  
  28.     //写真指定
  29.     yun[1]=126;    yun[2]=127;    yun[3]=129;
  30.     yun[4]=136;                yun[5]=138;
  31.     yun[6]=140;    yun[7]=141;    yun[8]=142;
  32.     yun[9]=144;    yun[10]=145;    yun[11]=146;
  33.     yun[12]=147;                yun[13]=149;
  34.     yun[14]=150;    yun[15]=151;    yun[16]=152;
  35.  
  36.     mFlag=1;
  37.     MainMenu();
  38.     }
  39. //end of main();
  40.  
  41. MainMenu(){
  42.     if(mFlag==1){
  43.         OpenWin(MainPic,0,0,WinW,WinH,-x0,-y0,0x000000);
  44.         mFlag=0;
  45.         }
  46.     mes(LBDOWN){
  47.         PlayWAVE( "kachi.wav" );
  48.         if(MesP3>163+y0&&MesP3<211+y0&&MesP2>43+x0&&MesP2<192+x0){
  49.             MenuNo=1;
  50.             mes(TIME){ Menu(); del_me;}
  51.             del_me;    //menu 1
  52.                }
  53.           else{
  54.               if(MesP3>273+y0&&MesP3<321+y0&&MesP2>43+x0&&MesP2<192+x0){
  55.                 MenuNo=2;
  56.                 mes(TIME){ Menu(); del_me;}
  57.                 del_me;    //menu 2
  58.                     }
  59.             else{
  60.                 if(MesP3>163+y0&&MesP3<211+y0&&MesP2>444+x0&&MesP2<592+x0){
  61.                     mes(TIME){ Slide(); del_me;}
  62.                       del_me;    //slide show
  63.                       }
  64.                 else{
  65.                     if(MesP3>273+y0&&MesP3<321+y0&&MesP2>444+x0&&MesP2<592+x0){
  66.                           mes(TIME){ About(); del_me;}
  67.                           del_me;    //about
  68.                           }
  69.                     else{
  70.                           if(MesP3>379+y0&&MesP3<426+y0&&MesP2>477+x0&&MesP2<592+x0){
  71.                               mes(TIME){
  72.                                 step(10){
  73.                                     CloseWinAll();
  74.                                     del_all;
  75.                                     del_me;    //exit
  76.                                     }
  77.                                 }
  78.                             }
  79.                         }
  80.                     }
  81.                   }
  82.             }
  83.           }
  84.     }
  85. //end of MainMenu();
  86.  
  87. Menu(){
  88.       MenuWinNo=OpenWin(MenuPic[MenuNo]);
  89.       mes(LBDOWN){
  90.         del_all;
  91.         if(MesP3<165){
  92.               if(MesP2<213){
  93.                 mes(TIME){ Open(MenuNo*8-7); del_me;}
  94.                 del_me;
  95.                   }
  96.             else{
  97.                 if(MesP2<423){
  98.                       mes(TIME){ Open(MenuNo*8-6); del_me;}
  99.                       del_me;
  100.                     }
  101.                 else{
  102.                       mes(TIME){ Open(MenuNo*8-5); del_me;}
  103.                       del_me;
  104.                     }
  105.                   }
  106.             }
  107.         else{
  108.               if(MesP3<315){
  109.                 if(MesP2<213){
  110.                       mes(TIME){ Open(MenuNo*8-4); del_me;}
  111.                       del_me;
  112.                     }
  113.                 else{
  114.                       if(MesP2<423){
  115.                         PlayWAVE( "kachi.wav" );
  116.                         mFlag=1;
  117.                         mes(TIME){ MainMenu(); del_me;}
  118.                         del_me;
  119.                           }
  120.                     else{
  121.                         mes(TIME){ Open(MenuNo*8-3); del_me;}
  122.                         del_me;
  123.                           }
  124.                     }
  125.                  }
  126.             else{
  127.                 if(MesP2<213){
  128.                       mes(TIME){ Open(MenuNo*8-2); del_me;}
  129.                       del_me;
  130.                     }
  131.                 else{
  132.                       if(MesP2<423){
  133.                         mes(TIME){ Open(MenuNo*8-1); del_me;}
  134.                         del_me;
  135.                           }
  136.                     else{
  137.                         mes(TIME){ Open(MenuNo*8); del_me;}
  138.                         del_me;
  139.                           }
  140.                     }
  141.                   }
  142.             }
  143.           }
  144.     }
  145. //end of Menu();
  146.  
  147. Open( int pn ){
  148.     int OpenW;
  149.       OpenW=OpenWin(PicNo=LoadPic( StrPrint("yun_%ldf.bmp",yun[pn] )));
  150.     PlayWAVE("shut.wav");
  151.       mes(LBDOWN){
  152.         PlayWAVE( "kachi.wav" );
  153.         del_all;
  154.         DelPic(PicNo);
  155.         if( pn>8){
  156.             MenuNo=2;
  157.             }
  158.         else{
  159.             MenuNo=1;
  160.             }
  161.         mes(TIME){ Menu(); del_me;}
  162.         del_me;
  163.           }
  164.     }
  165. //end of Open();
  166.  
  167. About(){
  168.      MovePic( MainPic,100,100,439,259,CrePic );
  169.       MovePic( MenuAbtPic,0,0,439,259,MainPic,100,100 );
  170.       mes(LBDOWN){
  171.         PlayWAVE( "kachi.wav" );
  172.         del_all;
  173.           MovePic( CrePic,0,0,439,259,MainPic,100,100 );
  174.           mes(TIME){ MainMenu(); del_me;}
  175.            del_me;
  176.           }
  177.     }
  178. //end of About();
  179.  
  180. Slide(){
  181.     int BackPic,pic0;
  182.     int spn,maxpn;
  183.     int SlideWin;
  184.     OpenWin(BackPic = LoadPic( "black.bmp" ));
  185.     spn=1;
  186.     maxpn=16;
  187.  
  188.     mes(LBDOWN){
  189.         PlayWAVE( "kachi.wav" );
  190.         del_us;
  191.         CloseWin(SlideWin);
  192.         DelPic(BackPic);
  193.         mFlag=1;
  194.            mes(TIME){ MainMenu(); del_me;}
  195.            del_me;
  196.           }
  197.  
  198.     mes( TIME ){
  199.           step( 10 ){,,
  200.             pic0 = LoadPic( StrPrint("yun_%ldf.bmp", yun[spn] ));
  201.           SlideWin = OpenWin(pic0);
  202.             PlayWAVE("shut.wav");
  203.             ,,,,,,,,,,,,,,,
  204.             if(spn<maxpn){
  205.                 spn=spn+1;
  206.                 }
  207.             else{
  208.                 spn=1;
  209.                 }
  210.                MovePic(BackPic,0,0,640,480,pic0,0,0,Random(10)+2,30);
  211.              ,,,,,
  212.             DelPic( pic0 );
  213.             }
  214.           }
  215.     }
  216. //end of Slide();
  217.