home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 March / VPR9603A.ISO / ffilly / fpg06f / fpg06f.tfy < prev    next >
Text File  |  1995-12-17  |  8KB  |  313 lines
  1. //fpg06f.tfy
  2.  
  3. //作品情報
  4. #info INAM "Free Photo Gallery Part 6 Full Color Version"
  5. #info ISBJ "フリーに利用できる写真集です．ＢＧＭ曲は「TEARS OF SYLPH」です．"
  6. #info IART "ともゆき,SDI00678@niftyserve.or.jp; ひろぶみ,NBF00716@niftyserve.or.jp; POCOPEN,GGB02243@niftyserve.or.jp"
  7. #info ICOP "ともゆき,SDI00678@niftyserve.or.jp; ひろぶみ,NBF00716@niftyserve.or.jp; POCOPEN,GGB02243@niftyserve.or.jp
  8. #info IGNR "photograph; music"
  9. #info IKEY "fpg06; photo; sylph"
  10. #info MDFY "Ask me"
  11. #info TRNS "Ask me"
  12. #info JINT "Ask me"
  13. #info INST "GS(SC-55mkII推奨)"
  14. #info VIDO "640x480; 65536"
  15. #info COMP "ひろぶみ,NBF00716@niftyserve.or.jp"
  16. #info SEQR "ひろぶみ,NBF00716@niftyserve.or.jp"
  17.  
  18. //グローバル変数
  19. int MainPic,MenuAbtPic,MenuAbtPic2,MenuWinNo,CrePic,CrePic2;
  20. int mFlag,sFlag,AbtMode,fpgWin;
  21. int yun[],MenuPic[],MenuNo,Button1,Button2,BasePic;
  22. int WinW,WinH,x0,y0;
  23.  
  24. //シナリオ本体
  25. main(){
  26.     //bmp読み込み
  27.     MainPic=LoadPic("fpg06m0z.bmp");
  28.     MenuPic[1]=LoadPic("fpg06m1z.bmp");
  29.     MenuPic[2]=LoadPic("fpg06m2z.bmp");
  30.     MenuAbtPic=LoadPic("fpg06m3z.bmp");
  31.     MenuAbtPic2=LoadPic("fpg06m3y.bmp");
  32.     BasePic=CreatePic(MainPic);
  33.     CrePic=CreatePic(MainPic);
  34.     CrePic2=CreatePic(MenuAbtPic);
  35.     Button1=LoadPic("fpg06m0y.bmp");
  36.     Button2=LoadPic("fpg06m1y.bmp");
  37.  
  38.     //画面サイズ    
  39.     WinW = WinInfo( 0 );
  40.     WinH = WinInfo( 1 );
  41.     x0 = (WinW-640)/2;
  42.     y0 = (WinH-480)/2;
  43.  
  44.     //写真指定
  45.     yun[1]=155;        yun[2]=156;        yun[3]=157;
  46.     yun[4]=159;                        yun[5]=162;
  47.     yun[6]=164;        yun[7]=165;        yun[8]=167;
  48.     yun[9]=168;        yun[10]=172;    yun[11]=176;
  49.     yun[12]=177;                    yun[13]=180;
  50.     yun[14]=181;    yun[15]=183;    yun[16]=184;
  51.  
  52.     //ＢＧＭ設定
  53.     str bgm;
  54.     bgm="sylph.mid";        //ＢＧＭ曲名
  55.     mes(MIDI_END){ PlayMIDI( bgm ); }
  56.     PlayMIDI( bgm );
  57.  
  58.     //メインメニュー呼出し
  59.     mFlag=1;
  60.     BgColor(0,0,0);
  61.     SetFont(481,"ＭＳ ゴシック",128,321);
  62.     TextWrite( "　",BasePic,0,0);
  63.     MainMenu();
  64.     }
  65. //end of main();
  66.  
  67. MainMenu(){
  68.     sFlag=0;
  69.     if(mFlag==1){
  70.         fpgWin=OpenWin(BasePic,0,0,WinW,WinH,-x0,-y0,0x000000);
  71.         MovePic(MainPic,0,0,640,480,BasePic,0,0,2,20);
  72.         mFlag=0;
  73.         }
  74.     if(mFlag==2){
  75.         MovePic(MainPic,0,0,640,480,BasePic,0,0,2,20);
  76.         mFlag=0;
  77.         }
  78.     mes(LBDOWN){
  79.         if(MesP3>89+y0&&MesP3<146+y0&&MesP2>59+x0&&MesP2<192+x0&&AbtMode==0){
  80.             PlayWAVE( "kachi.wav" );
  81.             MovePic(BasePic,60,90,132,56,CrePic);
  82.             MovePic(Button1,0,0,132,56,BasePic,60,90);
  83.             MenuNo=1;
  84.             mes(TIME){
  85.                 step(10){,
  86.                     MovePic(CrePic,0,0,132,56,BasePic,60,90);,
  87.                      Menu(); del_me;
  88.                     }
  89.                 }
  90.             del_me;    //menu 1
  91.                }
  92.            if(MesP3>174+y0&&MesP3<231+y0&&MesP2>59+x0&&MesP2<192+x0&&AbtMode==0){
  93.             PlayWAVE( "kachi.wav" );
  94.             MovePic(BasePic,60,175,132,56,CrePic);
  95.             MovePic(Button1,0,56,132,56,BasePic,60,175);
  96.             MenuNo=2;
  97.             mes(TIME){
  98.                 step(10){,
  99.                     MovePic(CrePic,0,0,132,56,BasePic,60,175);,
  100.                        Menu(); del_me;
  101.                     }
  102.                 }
  103.                del_me;    //menu 2
  104.                 }
  105.            if(MesP3>259+y0&&MesP3<316+y0&&MesP2>59+x0&&MesP2<192+x0&&AbtMode==0){
  106.             PlayWAVE( "kachi.wav" );
  107.             MovePic(BasePic,60,260,132,56,CrePic);
  108.             MovePic(Button1,0,112,132,56,BasePic,60,260);
  109.                mes(TIME){
  110.                 step(10){,
  111.                     MovePic(CrePic,0,0,132,56,BasePic,60,260);,
  112.                     Slide(); del_me;
  113.                     }
  114.                 }
  115.                del_me;    //slide show
  116.                }
  117.            if(MesP3>344+y0&&MesP3<401+y0&&MesP2>59+x0&&MesP2<192+x0){
  118.             PlayWAVE( "kachi.wav" );
  119.              MovePic(BasePic,60,345,132,56,CrePic);
  120.             MovePic(Button1,0,168,132,56,BasePic,60,345);
  121.             mes(TIME){
  122.                 step(10){,
  123.                     MovePic(CrePic,0,0,132,56,BasePic,60,345);,
  124.                     int AbtMode2;
  125.                     if(AbtMode==2){
  126.                         AbtMode2=0;
  127.                         }
  128.                     if(AbtMode==1){
  129.                         AbtMode2=2;
  130.                         }
  131.                     if(AbtMode==0){
  132.                         AbtMode2=1;
  133.                         }
  134.                     AbtMode=AbtMode2;
  135.                      About(); del_me;
  136.                     }
  137.                 }
  138.             del_me;    //about
  139.             }
  140.         if(MesP3>344+y0&&MesP3<401+y0&&MesP2>436+x0&&MesP2<569+x0&&AbtMode==0){
  141.             PlayWAVE( "kachi.wav" );
  142.             MovePic(BasePic,437,345,132,56,CrePic);
  143.             MovePic(Button1,0,224,132,56,BasePic,437,345);
  144.               mes(TIME){
  145.                 step(10){
  146.                     ,,MovePic(CrePic,0,0,132,56,BasePic,437,345);,
  147.                     BgColor(0,0,0);
  148.                     SetFont(481,"ＭＳ ゴシック",128,321);
  149.                     TextWrite( "　",CrePic,0,0);
  150.                     MovePic(CrePic,0,0,640,480,BasePic,0,0,2,20);,,,,,
  151.                     CloseWinAll();
  152.                     del_all;
  153.                     del_me;    //exit
  154.                     }
  155.                 }
  156.             }
  157.         else{
  158.             PlayWAVE( "shuu.wav" );
  159.             }
  160.           }
  161.     }
  162. //end of MainMenu();
  163.  
  164. Menu(){
  165.     if(sFlag==0){
  166.         MovePic(MenuPic[MenuNo],0,0,640,480,BasePic,0,0,2,20 );
  167.         }
  168.     else{
  169.         MovePic(MenuPic[MenuNo],0,0,640,480,BasePic );
  170.         fpgWin=OpenWin(BasePic,0,0,WinW,WinH,-x0,-y0,0x000000);
  171.         }
  172.       mes(LBDOWN){
  173.         if(MesP3>7+y0&&MesP3<157+y0&&MesP2>8+x0&&MesP2<209+x0){
  174.             mes(TIME){ Open(MenuNo*8-7); del_me;}
  175.             del_me;
  176.               }
  177.            if(MesP3>7+y0&&MesP3<157+y0&&MesP2>219+x0&&MesP2<420+x0){
  178.                mes(TIME){ Open(MenuNo*8-6); del_me;}
  179.                del_me;
  180.                }
  181.         if(MesP3>7+y0&&MesP3<157+y0&&MesP2>429+x0&&MesP2<630+x0){
  182.             mes(TIME){ Open(MenuNo*8-5); del_me;}
  183.             del_me;
  184.             }
  185.            if(MesP3>163+y0&&MesP3<314+y0&&MesP2>8+x0&&MesP2<209+x0){
  186.               mes(TIME){ Open(MenuNo*8-4); del_me;}
  187.               del_me;
  188.             }
  189.         if(MesP3>192+y0&&MesP3<287+y0&&MesP2>228+x0&&MesP2<410+x0){
  190.             MovePic(BasePic,223,188,192,105,CrePic);
  191.             mes(TIME){
  192.                 step(10){
  193.                     MovePic(Button2,0,0,192,105,BasePic,223,188);
  194.                     PlayWAVE( "kachi.wav" );,
  195.                     mFlag=2;
  196.                     MovePic(CrePic,0,0,192,105,BasePic,223,188);,
  197.                     MainMenu();
  198.                     del_me;
  199.                     }
  200.                 }
  201.             del_me;
  202.             }            //Return to Main Menu
  203.         if(MesP3>163+y0&&MesP3<314+y0&&MesP2>429+x0&&MesP2<630+x0){
  204.             mes(TIME){ Open(MenuNo*8-3); del_me;}
  205.             del_me;
  206.             }
  207.          if(MesP3>321+y0&&MesP3<471+y0&&MesP2>8+x0&&MesP2<209+x0){
  208.               mes(TIME){ Open(MenuNo*8-2); del_me;}
  209.               del_me;
  210.             }
  211.         if(MesP3>321+y0&&MesP3<471+y0&&MesP2>219+x0&&MesP2<420+x0){
  212.              mes(TIME){ Open(MenuNo*8-1); del_me;}
  213.              del_me;
  214.              }
  215.         if(MesP3>321+y0&&MesP3<471+y0&&MesP2>429+x0&&MesP2<630+x0){
  216.             mes(TIME){ Open(MenuNo*8); del_me;}
  217.             del_me;
  218.             }
  219.         PlayWAVE("shuu.wav");
  220.           }
  221.     }
  222. //end of Menu();
  223.  
  224. Open( int pn ){
  225.     int PicNo,PicWin;
  226.     PicNo=LoadPic( StrPrint("yun_%ldf.bmp",yun[pn] ));
  227.       PicWin=OpenWin(PicNo,0,0,WinW,WinH,-x0,-y0,0x000000);
  228.     PlayWAVE("shut.wav");
  229.       mes(LBDOWN){
  230.         PlayWAVE("kachi.wav");
  231.         DelPic(PicNo);
  232.         mFlag=2;
  233.         sFlag=1;
  234.         mes(TIME){ Menu(); del_me;}
  235.         del_me;
  236.           }
  237.     }
  238. //end of Open();
  239.  
  240. About(){
  241.     if(AbtMode==2){
  242.            MovePic( MenuAbtPic2,0,0,366,251,BasePic,215,85,1,20 );
  243.         }
  244.     if(AbtMode==1){
  245.          MovePic( Button1,132,0,132,56,BasePic,60,90);
  246.         MovePic( Button1,132,56,132,56,BasePic,60,175);
  247.         MovePic( Button1,132,112,132,56,BasePic,60,260);
  248.         MovePic( Button1,132,224,132,56,BasePic,437,345);
  249.         MovePic( BasePic,215,85,366,251,CrePic2,0,0 );
  250.           MovePic( MenuAbtPic,0,0,366,251,BasePic,215,85,1,20 );
  251.         }
  252.     if(AbtMode==0){
  253.         MovePic( MainPic,60,90,132,56,BasePic,60,90);
  254.         MovePic( MainPic,60,175,132,56,BasePic,60,175);
  255.         MovePic( MainPic,60,260,132,56,BasePic,60,260);
  256.         MovePic( MainPic,437,345,132,56,BasePic,437,345);
  257.           MovePic( CrePic2,0,0,366,251,BasePic,215,85,1,20 );
  258.         }
  259.     mFlag=0;
  260.     mes(TIME){ MainMenu(); del_me;}
  261.     del_me;
  262.     }
  263. //end of About();
  264.  
  265. Slide(){
  266.     int BackPic,SlidePic;
  267.     int spn,maxpn;
  268.     int SlideWin;
  269.     BackPic = CreatePic( MainPic );
  270.     BgColor(0,0,0);
  271.     SetFont(481,"ＭＳ ゴシック",128,321);
  272.     TextWrite( "　",BackPic,0,0);
  273.     MovePic(BasePic,0,0,640,480,CrePic);
  274.     MovePic(BackPic,0,0,640,480,BasePic,0,0,3,20);
  275.     spn=1;
  276.     maxpn=16;
  277.  
  278.     mes(LBDOWN){
  279.         PlayWAVE( "kachi.wav" );
  280.            del_us;
  281.         mes(TIME){
  282.             step(10){
  283.                 del_us;
  284.                 MovePic(BackPic,0,0,640,480,SlidePic,0,0,3,20);,,,
  285.                 DelPic(BackPic);
  286.                 mFlag=1;
  287.                 DelPic(SlidePic);
  288.                    mes(TIME){ MainMenu(); del_me;}
  289.                    del_me;
  290.                 }
  291.             }
  292.           }
  293.  
  294.     mes( TIME ){
  295.           step( 10 ){,,,
  296.             SlidePic = LoadPic( StrPrint("yun_%ldf.bmp", yun[spn] ));
  297.              SlideWin = OpenWin(SlidePic);
  298.             PlayWAVE("shut.wav");
  299.             ,,,,,,,,,,,,,,,,,
  300.             if(spn<maxpn){
  301.                 spn=spn+1;
  302.                 }
  303.             else{
  304.                 spn=1;
  305.                 }
  306.                MovePic(BackPic,0,0,640,480,SlidePic,0,0,Random(10)+2,30);
  307.              ,,,,,
  308.             DelPic( SlidePic );
  309.             }
  310.           }
  311.     }
  312. //end of Slide();
  313.