home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 February / VPR9602A.ISO / ffilly / filly130 / mmtext.tfy < prev    next >
Text File  |  1995-10-29  |  7KB  |  252 lines
  1. //TOFFYシナリオのひな型
  2.  
  3. //作品情報(""内を書き換えて下さい)
  4. #info INAM "まるちめでぃあ★てきすと"
  5. #info ISBJ "文芸を手軽にタイトルに、、、"
  6. #info VIDO "640x480,256色"
  7. #info WRIT "ともゆん"
  8. #info ICOP "ともゆん"
  9.  
  10. int Win_No, Back_Pic,FontSize,BaseX,BaseY, BlackPic,IsInPage,CPic, MaxPage, Page[], Sect[], MaxSect,base_pic_x, base_pic_y,PicLeft,PicTop;
  11. str BaseFont, IniName, Title[];
  12. //シナリオ本体
  13. main(){
  14. //ここからシナリオを書き始めて下さい
  15.     int i, j;
  16.     int BackPic;
  17.     str TmpStr;
  18.  
  19.     IniName="mmtext.ini";   //////////////////////////////////////読み込みファイル名指定
  20.  
  21.     BlackPic=LoadPic("black.bmp");//フェードイン用背景を読み込みまーす
  22.     CPic=CreatePic(BlackPic);
  23.     MovePic(BlackPic,0,0,640,480,CPic,0,0);
  24.  
  25.     base_pic_x=PicWidth(BlackPic);
  26.     base_pic_y=PicHeight(BlackPic);
  27.     PicLeft=(WinInfo(0)-base_pic_x)/2-1;
  28. //    PicRight=(WinInfo(0)+base_pic_x)/2-1;
  29.     PicTop=(WinInfo(1)-base_pic_y)/2-1;
  30. //    PicBottom=(WinInfo(1)+base_pic_y)/2-1;
  31.  
  32.     CapTitle("");    //ウィンドウの上のキャプションバーを消します。
  33.  
  34.     OpenWin(CPic,
  35.          -1,    //スクリーンの左上隅からちょっとだけ左
  36.         -1,    //スクリーンの左上隅からちょっとだけ上　（ウィンドウの枠を消したいので）
  37.         WinInfo(0),    //スクリーンの横幅と同じ大きさのサイズ
  38.         WinInfo(1),    //縦の高さのサイズ
  39.         -PicLeft+1,    //ピクチャーの表示を画面の中央に、、、
  40.         -PicTop+1,    //同じく
  41.         0);        //バックグラウンドを黒に
  42.  
  43.  
  44.     BaseFont    =GetIniStr("system","basefont","ＭＳ 明朝",IniName);
  45.     FontSize=GetIniInt("system","fontsize",16,IniName);
  46.     BaseX=GetIniInt("system","startx", 38,IniName);
  47.     BaseY=GetIniInt("system","starty", 84,IniName);
  48.     j=0; Title[0]=" "; Sect[0]=1;
  49.     for(i=1;GetIniStr(StrPrint("Page%ld",i),"Text1","/E",IniName)!="/E";i=i+1){
  50.         if((TmpStr=GetIniStr(StrPrint("Page%ld",i),"Title","/E",IniName))!="/E"){
  51.             j=j+1;
  52.             Sect[j]=i;
  53.             Title[j]=TmpStr;
  54.         }
  55.         Page[i]=j;
  56.     }
  57.     MaxPage=i-1;
  58.     MaxSect=j;
  59.     IsInPage=0;//背景がページモードなら１
  60.  
  61.     Opening();
  62. //ここまでに書いてください
  63. }
  64.  
  65. Opening()
  66. {
  67.     int Pic_No;
  68.     Pic_No=LoadPic(GetIniStr("system","startpic","open.bmp",IniName));
  69. //    MovePic(BlackPic,0,0,640,480,CPic,0,0);
  70. //    MoveWin(Win_No,CPic);
  71.     MovePic(Pic_No,0,0,640,480,CPic,0,0,2,20);
  72.     
  73.  
  74. mes(LBDOWN){
  75.     if(MesP3>(392+PicTop)&&MesP3<(427+PicTop)){
  76.         if(MesP2>497+PicLeft&&MesP2<532+PicLeft){
  77.                 PlayWAVE("kachi.wav");
  78.             WritePage(1);
  79.             DelPic(Pic_No);
  80.             del_me;
  81.         }else{
  82.             if(MesP2>451+PicLeft&&MesP2<485+PicLeft){
  83.                 PlayWAVE("kachi.wav");
  84.                 Prof();
  85.                 DelPic(Pic_No);
  86.                 del_me;
  87.             }else{
  88.                 if(MesP2>544+PicLeft&&MesP2<579+PicLeft){
  89.                      BackMode(1);
  90.                     TextColor(255,255,255);
  91.                     SetFont( 80, "Times New Roman", 0, 0, 0, 0, 800,1 ,0,0,0,0,0,2,1);
  92.                     TextWrite("Fin.",BlackPic,260,180);
  93.                     MovePic(BlackPic,0,0,640,480,CPic,0,0,3,20);
  94.                     mes(TIME){step(30){,
  95.                         DelPic(Pic_No);
  96.                         CloseWinAll();
  97.                         del_all;
  98.                         del_me;
  99.                     }}
  100.                     del_me;
  101.                 }
  102.             }
  103.         }
  104.     }
  105.  
  106.   PlayWAVE("shuu.wav");
  107.  
  108. } 
  109.  
  110. }
  111.  
  112. Prof()
  113. {
  114.     int Pic_No;
  115.     Pic_No=LoadPic(GetIniStr("system","profpic","prof.bmp",IniName));
  116.     MovePic(Pic_No,0,0,640,480,CPic,0,0,2,20);
  117.     
  118.  
  119. mes(LBDOWN){
  120.     if(MesP3>414+PicTop&&MesP3<446+PicTop&&MesP2>590+PicLeft&&MesP2<622+PicLeft){
  121.                 PlayWAVE("kachi.wav");
  122.         Opening();
  123.         DelPic(Pic_No);
  124.         del_me;
  125.     }
  126.  
  127.   PlayWAVE("shuu.wav");
  128.  
  129. }
  130. }
  131.  
  132. WritePage(int PageNo)
  133. {
  134.     str sect,text;
  135.     int x,y,i,Tmp,p;
  136.  
  137.     if(IsInPage!=1){
  138.         Back_Pic=LoadPic(GetIniStr("system","backpic","back.bmp",IniName));
  139.     }    
  140.     Tmp=CreatePic(Back_Pic);
  141.     MovePic(Back_Pic,0,0,640,480,Tmp,0,0);
  142.  
  143.     sect=StrPrint("Page%ld",PageNo);
  144.     x=GetIniInt(sect, "startx", BaseX,IniName);
  145.     y=GetIniInt(sect, "starty", BaseY,IniName);
  146.      BackMode(1);
  147.     SetFont( 24, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  148.     TextColor(0,0,0);
  149.     TextWrite(Title[Page[PageNo]],Tmp,61,21);
  150.     TextColor(0,0,255);
  151.     TextWrite(Title[Page[PageNo]],Tmp,60,20);
  152.     SetFont( 20, "ＭＳ 明朝", 128, 0, 0, 0, 400 );
  153.     TextColor(0,0,0);
  154.     TextWrite(StrPrint("P.%ld",PageNo),Tmp,511,24);
  155.     TextColor(255,0,0);
  156.     TextWrite(StrPrint("P.%ld",PageNo),Tmp,510,23);
  157.     TextColor(0,0,95);
  158.     SetFont(GetIniInt(sect,"fontsize",FontSize,IniName),GetIniInt(sect,"fontname",BaseFont,IniName),128, 0, 0, 0, 400);
  159.     if((text=GetIniStr(sect,"wave","/E",IniName))!="/E"){PlayWAVE(text);}
  160.     if((text=GetIniStr(sect,"midi","/E",IniName))!="/E"){PlayMIDI(text);}
  161.  
  162.     for(i=1;(text=GetIniStr(sect,StrPrint("Pic%ld",i),"/E",IniName))!="/E";i=i+1){
  163.         p=LoadPic(text);
  164.         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));
  165.         DelPic(p);
  166.     }
  167.     for(i=1;(text=GetIniStr(sect,StrPrint("Text%ld",i),"/E",IniName))!="/E";i=i+1){
  168.         if(StrFind(text,"/EM")==0){
  169.             TextColor(0,0,0);
  170.             SetFont( GetIniInt(sect,"fontsize",FontSize,IniName)+4, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  171.             TextWrite(SubStr(text,3,StrLen(text)-3),Tmp,x+1,y-1);
  172.             TextColor(0,50,200);
  173.             //SetFont( GetIniInt(sect,"fontsize",FontSize,IniName)+4, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  174.             TextWrite(SubStr(text,3,StrLen(text)-3),Tmp,x,y-2);
  175.             y=y+4;
  176.             TextColor(0,0,95);
  177.             SetFont(GetIniInt(sect,"fontsize",FontSize,IniName),GetIniInt(sect,"fontname",BaseFont,IniName),128, 0, 0, 0, 400);
  178.         }else{
  179.             TextWrite(text,Tmp,x,y);
  180.         }
  181.         y=y+FontSize+3;
  182.     }
  183.  
  184.  
  185.     if(IsInPage!=1){
  186.         MovePic(Tmp,0,0,640,480,CPic,0,0,2,20);
  187.         mes(TIME){step(200){,,,,,,DelPic(Tmp);del_me;}}
  188.         IsInPage=1;
  189.     }else{
  190.         MovePic(Tmp,0,0,640,480,CPic,0,0);
  191.         DelPic(Tmp);
  192.     }
  193.  
  194.  
  195.   mes(LBDOWN){
  196.     if(MesP2>590+PicLeft&&MesP2<622+PicLeft){
  197.         if(MesP3>84+PicTop&&MesP3<141+PicTop){
  198.             if(Page[PageNo]<=0){
  199.                 goto Endmes;
  200.             }
  201.             PlayWAVE("pachi.wav");
  202.             PageNo=Sect[Page[PageNo]-1];
  203.             WritePage(PageNo);
  204.             del_me;
  205.         }else{
  206.             if(MesP3>162+PicTop&&MesP3<218+PicTop){
  207.                 if(PageNo<=1){
  208.                     goto Endmes;
  209.                 }
  210.                 PlayWAVE("pachi.wav");
  211.                 PageNo=PageNo-1;
  212.                 WritePage(PageNo);
  213.                 del_me;
  214.             }else{
  215.                 if(MesP3>257+PicTop&&MesP3<312+PicTop){
  216.                     if(PageNo>=MaxPage){
  217.                         goto Endmes;
  218.                     }
  219.                     PlayWAVE("pachi.wav");
  220.                     PageNo=PageNo+1;
  221.                     WritePage(PageNo);
  222.                     del_me;
  223.                 }else{
  224.                     if(MesP3>335+PicTop&&MesP3<390+PicTop){
  225.                         if(Page[PageNo]>=MaxSect){
  226.                             goto Endmes;
  227.                         }
  228.                         PlayWAVE("pachi.wav");
  229.                         PageNo=Sect[Page[PageNo]+1];
  230.                         WritePage(PageNo);
  231.                         del_me;
  232.                     }else{
  233.                         if(MesP3>414+PicTop&&MesP3<446+PicTop){
  234.                             PlayWAVE("kachi.wav");
  235.                             Opening();
  236.                             DelPic(Back_Pic);
  237.                             IsInPage=0;
  238.                             del_me;
  239.                         }
  240.                     }
  241.                 }
  242.             }
  243.         }
  244.     }
  245.   Endmes:;
  246.   PlayWAVE("shuu.wav");
  247.   } 
  248.  
  249. }
  250.  
  251.  
  252.