home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 March / VPR9603A.ISO / ffilly / fmc03 / fmc03.tfy < prev    next >
Text File  |  1995-12-20  |  8KB  |  325 lines
  1. //fmc03.tfy
  2.  
  3. //作品情報
  4. #info INAM "第３回 Filly Monthly Contest 入賞作品紹介Filly"
  5. #info IART "ナナミちゃん,NBF04330@niftyserve.or.jp; WATERLOO,   niftyserve.or.jp; @POCOPEN,GGB02243@niftyserve.or.jp"
  6. #info ICOP "ナナミちゃん,NBF04330@niftyserve.or.jp; WATERLOO,   niftyserve.or.jp; @POCOPEN,GGB02243@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("fmc03.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("wfn_001.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){hitoha();del_me;}
  68.         }
  69.     }
  70.  
  71. //TOFFYシナリオのひな型
  72.  
  73. //作品情報(""内を書き換えて下さい)
  74. /*#info INAM "まるちめでぃあ★てきすと"
  75. #info ISBJ "文芸を手軽にタイトルに、、、"
  76. #info VIDO "640x480,256色"
  77. #info WRIT "ともゆん"
  78. #info ICOP "ともゆん"
  79. */
  80. int Win_No, Back_Pic,FontSize,BaseX,BaseY, BlackPic,IsInPage,CPic, MaxPage, Page[], Sect[], MaxSect,base_pic_x, base_pic_y,PicLeft,PicTop;
  81. str BaseFont, IniName, Title[];
  82.  
  83. //シナリオ本体
  84. hitoha(){
  85. //ここからシナリオを書き始めて下さい
  86.     int i, j;
  87.     int BackPic;
  88.     str TmpStr;
  89.  
  90.     IniName="hitoha_m.ini";   //////////////////////////////////////読み込みファイル名指定
  91.  
  92.     BlackPic=LoadPic("black.bmp");//フェードイン用背景を読み込みまーす
  93.     CPic=CreatePic(BlackPic);
  94.     MovePic(BlackPic,0,0,640,480,CPic,0,0);
  95.  
  96.     base_pic_x=PicWidth(BlackPic);
  97.     base_pic_y=PicHeight(BlackPic);
  98.     PicLeft=(WinInfo(0)-base_pic_x)/2-1;
  99. //    PicRight=(WinInfo(0)+base_pic_x)/2-1;
  100.     PicTop=(WinInfo(1)-base_pic_y)/2-1;
  101. //    PicBottom=(WinInfo(1)+base_pic_y)/2-1;
  102.  
  103.     CapTitle("");    //ウィンドウの上のキャプションバーを消します。
  104.  
  105.     OpenWin(CPic,
  106.          -1,    //スクリーンの左上隅からちょっとだけ左
  107.         -1,    //スクリーンの左上隅からちょっとだけ上　（ウィンドウの枠を消したいので）
  108.         WinInfo(0),    //スクリーンの横幅と同じ大きさのサイズ
  109.         WinInfo(1),    //縦の高さのサイズ
  110.         -PicLeft+1,    //ピクチャーの表示を画面の中央に、、、
  111.         -PicTop+1,    //同じく
  112.         0);        //バックグラウンドを黒に
  113.  
  114.  
  115.     BaseFont    =GetIniStr("system","basefont","ＭＳ 明朝",IniName);
  116.     FontSize=GetIniInt("system","fontsize",16,IniName);
  117.     BaseX=GetIniInt("system","startx", 38,IniName);
  118.     BaseY=GetIniInt("system","starty", 84,IniName);
  119.     j=0; Title[0]=" "; Sect[0]=1;
  120.     for(i=1;GetIniStr(StrPrint("Page%ld",i),"Text1","/E",IniName)!="/E";i=i+1){
  121.         if((TmpStr=GetIniStr(StrPrint("Page%ld",i),"Title","/E",IniName))!="/E"){
  122.             j=j+1;
  123.             Sect[j]=i;
  124.             Title[j]=TmpStr;
  125.         }
  126.         Page[i]=j;
  127.     }
  128.     MaxPage=i-1;
  129.     MaxSect=j;
  130.     IsInPage=0;//背景がページモードなら１
  131.  
  132.     Opening();
  133. //ここまでに書いてください
  134. }
  135.  
  136. Opening()
  137. {
  138.     int Pic_No;
  139.     Pic_No=LoadPic(GetIniStr("system","startpic","open.bmp",IniName));
  140. //    MovePic(BlackPic,0,0,640,480,CPic,0,0);
  141. //    MoveWin(Win_No,CPic);
  142.     MovePic(Pic_No,0,0,640,480,CPic,0,0,2,20);
  143.     
  144.  
  145. mes(LBDOWN){
  146.     if(MesP3>(392+PicTop)&&MesP3<(427+PicTop)){
  147.         if(MesP2>497+PicLeft&&MesP2<532+PicLeft){
  148.                 PlayWAVE("kachi.wav");
  149.             WritePage(1);
  150.             DelPic(Pic_No);
  151.             del_me;
  152. /*        }else{
  153.             if(MesP2>451+PicLeft&&MesP2<485+PicLeft){
  154.                 PlayWAVE("kachi.wav");
  155.                 Prof();
  156.                 DelPic(Pic_No);
  157.                 del_me;*/
  158.             }else{
  159.                 if(MesP2>544+PicLeft&&MesP2<579+PicLeft){
  160.                      BackMode(1);
  161.                     TextColor(255,255,255);
  162.                     SetFont( 80, "Times New Roman", 0, 0, 0, 0, 800,1 ,0,0,0,0,0,2,1);
  163.                     TextWrite("Fin.",BlackPic,260,180);
  164.                     MovePic(BlackPic,0,0,640,480,CPic,0,0,3,20);
  165.                     mes(TIME){step(30){,
  166.                         DelPic(Pic_No);
  167. //                        CloseWinAll();
  168.                         del_all;
  169.                         flag=1;
  170.                         menu();
  171.                         del_me;
  172.                     }}
  173.                     del_me;
  174.                 }
  175. //            }
  176.         }
  177.     }
  178.  
  179.   PlayWAVE("shuu.wav");
  180.  
  181. } 
  182.  
  183. }
  184. /*
  185. Prof()
  186. {
  187.     int Pic_No;
  188.     Pic_No=LoadPic(GetIniStr("system","profpic","prof.bmp",IniName));
  189.     MovePic(Pic_No,0,0,640,480,CPic,0,0,2,20);
  190.     
  191.  
  192. mes(LBDOWN){
  193.     if(MesP3>414+PicTop&&MesP3<446+PicTop&&MesP2>590+PicLeft&&MesP2<622+PicLeft){
  194.                 PlayWAVE("kachi.wav");
  195.         Opening();
  196.         DelPic(Pic_No);
  197.         del_me;
  198.     }
  199.  
  200.   PlayWAVE("shuu.wav");
  201.  
  202. }
  203. }
  204. */
  205. WritePage(int PageNo)
  206. {
  207.     str sect,text;
  208.     int x,y,i,Tmp,p;
  209.  
  210.     if(IsInPage!=1){
  211.         Back_Pic=LoadPic(GetIniStr("system","backpic","back.bmp",IniName));
  212.     }    
  213.     Tmp=CreatePic(Back_Pic);
  214.     MovePic(Back_Pic,0,0,640,480,Tmp,0,0);
  215.  
  216.     sect=StrPrint("Page%ld",PageNo);
  217.     x=GetIniInt(sect, "startx", BaseX,IniName);
  218.     y=GetIniInt(sect, "starty", BaseY,IniName);
  219.      BackMode(1);
  220.     SetFont( 24, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  221.     TextColor(0,0,0);
  222.     TextWrite(Title[Page[PageNo]],Tmp,61,21);
  223.     TextColor(0,0,255);
  224.     TextWrite(Title[Page[PageNo]],Tmp,60,20);
  225.     SetFont( 20, "ＭＳ 明朝", 128, 0, 0, 0, 400 );
  226.     TextColor(0,0,0);
  227.     TextWrite(StrPrint("P.%ld",PageNo),Tmp,511,24);
  228.     TextColor(255,0,0);
  229.     TextWrite(StrPrint("P.%ld",PageNo),Tmp,510,23);
  230.     TextColor(0,0,95);
  231.     SetFont(GetIniInt(sect,"fontsize",FontSize,IniName),GetIniInt(sect,"fontname",BaseFont,IniName),128, 0, 0, 0, 400);
  232.     if((text=GetIniStr(sect,"wave","/E",IniName))!="/E"){PlayWAVE(text);}
  233.     if((text=GetIniStr(sect,"midi","/E",IniName))!="/E"){PlayMIDI(text);}
  234.  
  235.     for(i=1;(text=GetIniStr(sect,StrPrint("Pic%ld",i),"/E",IniName))!="/E";i=i+1){
  236.         p=LoadPic(text);
  237.         MovePic(p,0,0,PicWidth(p),PicHeight(p),Tmp,GetIniInt(sect,StrPrint("Pic%ldx",i),27,IniName),GetIniInt(sect,StrPrint("Pic%ldy",i),73,IniName));
  238.         DelPic(p);
  239.     }
  240.     for(i=1;(text=GetIniStr(sect,StrPrint("Text%ld",i),"/E",IniName))!="/E";i=i+1){
  241.         if(StrFind(text,"/EM")==0){
  242.             TextColor(0,0,0);
  243.             SetFont( GetIniInt(sect,"fontsize",FontSize,IniName)+4, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  244.             TextWrite(SubStr(text,3,StrLen(text)-3),Tmp,x+1,y-1);
  245.             TextColor(0,50,200);
  246.             //SetFont( GetIniInt(sect,"fontsize",FontSize,IniName)+4, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  247.             TextWrite(SubStr(text,3,StrLen(text)-3),Tmp,x,y-2);
  248.             y=y+4;
  249.             TextColor(0,0,95);
  250.             SetFont(GetIniInt(sect,"fontsize",FontSize,IniName),GetIniInt(sect,"fontname",BaseFont,IniName),128, 0, 0, 0, 400);
  251.         }else{
  252.             TextWrite(text,Tmp,x,y);
  253.         }
  254.         y=y+FontSize+3;
  255.     }
  256.  
  257.  
  258.     if(IsInPage!=1){
  259.         MovePic(Tmp,0,0,640,480,CPic,0,0,2,20);
  260.         mes(TIME){step(200){,,,,,,DelPic(Tmp);del_me;}}
  261.         IsInPage=1;
  262.     }else{
  263.         MovePic(Tmp,0,0,640,480,CPic,0,0);
  264.         DelPic(Tmp);
  265.     }
  266.  
  267.  
  268.   mes(LBDOWN){
  269.     if(MesP2>590+PicLeft&&MesP2<622+PicLeft){
  270.         if(MesP3>84+PicTop&&MesP3<141+PicTop){
  271.             if(Page[PageNo]<=0){
  272.                 goto Endmes;
  273.             }
  274.             PlayWAVE("pachi.wav");
  275.             PageNo=Sect[Page[PageNo]-1];
  276.             WritePage(PageNo);
  277.             del_me;
  278.         }else{
  279.             if(MesP3>162+PicTop&&MesP3<218+PicTop){
  280.                 if(PageNo<=1){
  281.                     goto Endmes;
  282.                 }
  283.                 PlayWAVE("pachi.wav");
  284.                 PageNo=PageNo-1;
  285.                 WritePage(PageNo);
  286.                 del_me;
  287.             }else{
  288.                 if(MesP3>257+PicTop&&MesP3<312+PicTop){
  289.                     if(PageNo>=MaxPage){
  290.                         goto Endmes;
  291.                     }
  292.                     PlayWAVE("pachi.wav");
  293.                     PageNo=PageNo+1;
  294.                     WritePage(PageNo);
  295.                     del_me;
  296.                 }else{
  297.                     if(MesP3>335+PicTop&&MesP3<390+PicTop){
  298.                         if(Page[PageNo]>=MaxSect){
  299.                             goto Endmes;
  300.                         }
  301.                         PlayWAVE("pachi.wav");
  302.                         PageNo=Sect[Page[PageNo]+1];
  303.                         WritePage(PageNo);
  304.                         del_me;
  305.                     }else{
  306.                         if(MesP3>414+PicTop&&MesP3<446+PicTop){
  307.                             PlayWAVE("kachi.wav");
  308.                             Opening();
  309.                             DelPic(Back_Pic);
  310.                             IsInPage=0;
  311.                             del_me;
  312.                         }
  313.                     }
  314.                 }
  315.             }
  316.         }
  317.     }
  318.   Endmes:;
  319.   PlayWAVE("shuu.wav");
  320.   } 
  321.  
  322. }
  323.  
  324.  
  325.