home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 February
/
VPR9602A.ISO
/
ffilly
/
fpg05
/
fpg05f.tfy
< prev
next >
Wrap
Text File
|
1995-11-20
|
5KB
|
217 lines
//fpg05f.tfy
//作品情報
#info INAM "Filly Photo Gallery Part-5 full color version"
#info IART "ともゆき,SDI00678@niftyserve.or.jp; POCOPEN,GGB02243@niftyserve.or.jp"
#info ICOP "ともゆき,SDI00678@niftyserve.or.jp; POCOPEN,GGB02243@niftyserve.or.jp
//グローバル変数
int PicNo,MainPic,MenuAbtPic,MenuWinNo,CrePic,mFlag;
int yun[],MenuPic[],MenuNo;
int WinW,WinH,x0,y0;
//シナリオ本体
main(){
//bmp読み込み
MainPic=LoadPic("fpg05mn0.bmp");
MenuPic[1]=LoadPic("fpg05mn1.bmp");
MenuPic[2]=LoadPic("fpg05mn2.bmp");
MenuAbtPic=LoadPic("fpg05mn3.bmp");
CrePic=CreatePic(MainPic);
//画面サイズ
WinW = WinInfo( 0 );
WinH = WinInfo( 1 );
x0 = (WinW-640)/2;
y0 = (WinH-480)/2;
//写真指定
yun[1]=126; yun[2]=127; yun[3]=129;
yun[4]=136; yun[5]=138;
yun[6]=140; yun[7]=141; yun[8]=142;
yun[9]=144; yun[10]=145; yun[11]=146;
yun[12]=147; yun[13]=149;
yun[14]=150; yun[15]=151; yun[16]=152;
mFlag=1;
MainMenu();
}
//end of main();
MainMenu(){
if(mFlag==1){
OpenWin(MainPic,0,0,WinW,WinH,-x0,-y0,0x000000);
mFlag=0;
}
mes(LBDOWN){
PlayWAVE( "kachi.wav" );
if(MesP3>163+y0&&MesP3<211+y0&&MesP2>43+x0&&MesP2<192+x0){
MenuNo=1;
mes(TIME){ Menu(); del_me;}
del_me; //menu 1
}
else{
if(MesP3>273+y0&&MesP3<321+y0&&MesP2>43+x0&&MesP2<192+x0){
MenuNo=2;
mes(TIME){ Menu(); del_me;}
del_me; //menu 2
}
else{
if(MesP3>163+y0&&MesP3<211+y0&&MesP2>444+x0&&MesP2<592+x0){
mes(TIME){ Slide(); del_me;}
del_me; //slide show
}
else{
if(MesP3>273+y0&&MesP3<321+y0&&MesP2>444+x0&&MesP2<592+x0){
mes(TIME){ About(); del_me;}
del_me; //about
}
else{
if(MesP3>379+y0&&MesP3<426+y0&&MesP2>477+x0&&MesP2<592+x0){
mes(TIME){
step(10){
CloseWinAll();
del_all;
del_me; //exit
}
}
}
}
}
}
}
}
}
//end of MainMenu();
Menu(){
MenuWinNo=OpenWin(MenuPic[MenuNo]);
mes(LBDOWN){
del_all;
if(MesP3<165){
if(MesP2<213){
mes(TIME){ Open(MenuNo*8-7); del_me;}
del_me;
}
else{
if(MesP2<423){
mes(TIME){ Open(MenuNo*8-6); del_me;}
del_me;
}
else{
mes(TIME){ Open(MenuNo*8-5); del_me;}
del_me;
}
}
}
else{
if(MesP3<315){
if(MesP2<213){
mes(TIME){ Open(MenuNo*8-4); del_me;}
del_me;
}
else{
if(MesP2<423){
PlayWAVE( "kachi.wav" );
mFlag=1;
mes(TIME){ MainMenu(); del_me;}
del_me;
}
else{
mes(TIME){ Open(MenuNo*8-3); del_me;}
del_me;
}
}
}
else{
if(MesP2<213){
mes(TIME){ Open(MenuNo*8-2); del_me;}
del_me;
}
else{
if(MesP2<423){
mes(TIME){ Open(MenuNo*8-1); del_me;}
del_me;
}
else{
mes(TIME){ Open(MenuNo*8); del_me;}
del_me;
}
}
}
}
}
}
//end of Menu();
Open( int pn ){
int OpenW;
OpenW=OpenWin(PicNo=LoadPic( StrPrint("yun_%ldf.bmp",yun[pn] )));
PlayWAVE("shut.wav");
mes(LBDOWN){
PlayWAVE( "kachi.wav" );
del_all;
DelPic(PicNo);
if( pn>8){
MenuNo=2;
}
else{
MenuNo=1;
}
mes(TIME){ Menu(); del_me;}
del_me;
}
}
//end of Open();
About(){
MovePic( MainPic,100,100,439,259,CrePic );
MovePic( MenuAbtPic,0,0,439,259,MainPic,100,100 );
mes(LBDOWN){
PlayWAVE( "kachi.wav" );
del_all;
MovePic( CrePic,0,0,439,259,MainPic,100,100 );
mes(TIME){ MainMenu(); del_me;}
del_me;
}
}
//end of About();
Slide(){
int BackPic,pic0;
int spn,maxpn;
int SlideWin;
OpenWin(BackPic = LoadPic( "black.bmp" ));
spn=1;
maxpn=16;
mes(LBDOWN){
PlayWAVE( "kachi.wav" );
del_us;
CloseWin(SlideWin);
DelPic(BackPic);
mFlag=1;
mes(TIME){ MainMenu(); del_me;}
del_me;
}
mes( TIME ){
step( 10 ){,,
pic0 = LoadPic( StrPrint("yun_%ldf.bmp", yun[spn] ));
SlideWin = OpenWin(pic0);
PlayWAVE("shut.wav");
,,,,,,,,,,,,,,,
if(spn<maxpn){
spn=spn+1;
}
else{
spn=1;
}
MovePic(BackPic,0,0,640,480,pic0,0,0,Random(10)+2,30);
,,,,,
DelPic( pic0 );
}
}
}
//end of Slide();