home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / FFILLY / FILLY18F / mmt.tfy < prev    next >
Text File  |  1996-12-05  |  16KB  |  551 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, FontSize,BaseX,BaseY, BlackPic,IsInPage,CPic, MaxPage, Page[], Sect[], MaxSect,base_pic_x, base_pic_y,PicLeft,PicTop;
  11. int    CPico, CPic2, CCast,transparency_color, PageNo, mtext[], mtpage[], Pic[], Cast[], Xoff[], Yoff[];
  12. str BaseFont, IniName, Title[];
  13. //シナリオ本体
  14. main(){
  15. //ここからシナリオを書き始めて下さい
  16.     int i, j;
  17.     int BackPic;
  18.     str TmpStr;
  19.  
  20.     Debug(1);
  21.  
  22.     IniName="mmt.ini";   //////////////////////////////////////読み込みファイル名指定
  23.  
  24.     BlackPic=LoadPic("black.bmp");//フェードイン用背景を読み込みまーす
  25.     CPico=CreatePic(BlackPic);
  26.     CPic=CreatePic(BlackPic);
  27.     CPic2=CreatePic(BlackPic);
  28.     mtext[0]=CreatePic(BlackPic);
  29.     mtext[1]=CreatePic(BlackPic);
  30.     mtext[2]=CreatePic(BlackPic);
  31.     mtext[3]=CreatePic(BlackPic);
  32.     mtext[4]=CreatePic(BlackPic);
  33.     MovePic(BlackPic,0,0,640,480,CPico,0,0);
  34.  
  35.     base_pic_x=PicWidth(BlackPic);
  36.     base_pic_y=PicHeight(BlackPic);
  37.     PicLeft=(WinInfo(0)-base_pic_x)/2-1;
  38. //    PicRight=(WinInfo(0)+base_pic_x)/2-1;
  39.     PicTop=(WinInfo(1)-base_pic_y)/2-1;
  40. //    PicBottom=(WinInfo(1)+base_pic_y)/2-1;
  41.  
  42.     CapTitle("");    //ウィンドウの上のキャプションバーを消します。
  43.  
  44.     CCast = PutCast( CPico, CPic );
  45.  
  46.  
  47.     OpenWin(CPic,
  48.          -1,    //スクリーンの左上隅からちょっとだけ左
  49.         -1,    //スクリーンの左上隅からちょっとだけ上　（ウィンドウの枠を消したいので）
  50.         WinInfo(0),    //スクリーンの横幅と同じ大きさのサイズ
  51.         WinInfo(1),    //縦の高さのサイズ
  52.         -PicLeft+1,    //ピクチャーの表示を画面の中央に、、、
  53.         -PicTop+1,    //同じく
  54.         0);        //バックグラウンドを黒に
  55.  
  56. //    OpenWin( CPic );
  57.  
  58.     BaseFont    =GetIniStr("system","basefont","ＭＳ 明朝",IniName);
  59.     FontSize=GetIniInt("system","fontsize",16,IniName);
  60.     BaseX=GetIniInt("system","startx", 38,IniName);
  61.     BaseY=GetIniInt("system","starty", 84,IniName);
  62.     j=0; Title[0]=" "; Sect[0]=1;
  63.     for(i=1;GetIniStr(StrPrint("Page%ld",i),"Text1","/E",IniName)!="/E";i=i+1){
  64.         if((TmpStr=GetIniStr(StrPrint("Page%ld",i),"Title","/E",IniName))!="/E"){
  65.             j=j+1;
  66.             Sect[j]=i;
  67.             Title[j]=TmpStr;
  68.         }
  69.         Page[i]=j;
  70.     }
  71.     MaxPage=i-1;
  72.     MaxSect=j;
  73.     IsInPage=0;//背景がページモードなら１
  74.     transparency_color = GetIniInt( "system", "transparency_color",  0xffff, IniName );
  75.     PageNo = 1;
  76.     mtpage[0] = -1;
  77.     mtpage[1] = -1;
  78.     mtpage[2] = -1;
  79.     mtpage[3] = -1;
  80.     mtpage[4] = -1;
  81.  
  82.     Opening();
  83. //ここまでに書いてください
  84. }
  85.  
  86. Opening()
  87. {
  88.     int    i;
  89.  
  90.     Pic[0]=LoadPic(GetIniStr("system","startpic","open.bmp",IniName));
  91.     Pic[1]=LoadPic(GetIniStr("system","start_pb","open_p.bmp",IniName));
  92.     Xoff[1]=GetIniInt("system","start_pbx",450,IniName);
  93.     Yoff[1]=GetIniInt("system","start_pby",392,IniName);
  94.     Pic[2]=LoadPic(GetIniStr("system","start_sb","open_s.bmp",IniName));
  95.     Xoff[2]=GetIniInt("system","start_sbx",497,IniName);
  96.     Yoff[2]=GetIniInt("system","start_sby",393,IniName);
  97.     Pic[3]=LoadPic(GetIniStr("system","start_eb","open_e.bmp",IniName));
  98.     Xoff[3]=GetIniInt("system","start_ebx",544,IniName);
  99.     Yoff[3]=GetIniInt("system","start_eby",392,IniName);
  100.  
  101.     MovePic( Pic[0], 0, 0, 640, 480, CPic2 );
  102.     for( i = 1; i <= 3; i = i + 1 ) {
  103.         MovePic( Pic[i], 0, 0, PicWidth( Pic[i] ), PicHeight( Pic[i] ), CPic2, Xoff[i], Yoff[i], 0, transparency_color );
  104.     }
  105.     MovePic( CPic2, 0, 0, 640, 480, CPic, 0, 0, 2, 20 );
  106.  
  107.     mes( TIME ) {
  108.         step( 20 ) {
  109.             ,
  110.             for( i = 1; i <= 3; i = i + 1 ) {
  111.                 Cast[i] = PutCast( Pic[i], CPic, Xoff[i], Yoff[i], transparency_color, 0, 10, 1 );
  112.             }
  113.             Cast[i] = 0;
  114.             MovePic( Pic[0], 0, 0, 640, 480, CPico );
  115.             MoveCast( CCast, CPico );
  116.             butproc1( 0 );
  117.             del_me;
  118.         }
  119.     }
  120. }
  121.  
  122.  
  123. butproc1( int offset )
  124. {
  125.     int    i;
  126.     int    cast2;
  127.     int    x, y;
  128.  
  129.     mes( LBDOWN ){
  130.         x = MesP2 - PicLeft + 1;
  131.         y = MesP3 - PicTop + 1;
  132.         cast2 = HitCast( CPic, x, y );
  133.         for( i = 1; ; i = i + 1 ) {
  134.             if( Cast[i] == 0 ) {
  135.                 break;
  136.             }
  137.             if( cast2 == Cast[i] ) {
  138.                 del_us;
  139.                 if( offset == 10 ) {
  140.                     PlayWAVE("pachi.wav");
  141.                 } else {
  142.                     PlayWAVE("kachi.wav");
  143.                 }
  144.                 butproc2( offset, i );
  145.                 del_me;
  146.             }
  147.         }
  148.         PlayWAVE("shuu.wav");
  149.     }
  150. }
  151.  
  152.  
  153. butproc2( int offset, int i )
  154. {
  155.     int    cast2, hitflag;
  156.     int    j;
  157.     int    x, y;
  158.  
  159.     j = i + offset;
  160.     MoveCast( Cast[i], Pic[i], Xoff[i] + 2, Yoff[i] + 2 );
  161.     hitflag = 1;
  162.     mes( MOUSEMOVE ) {
  163.         x = MesP2 - PicLeft + 1;
  164.         y = MesP3 - PicTop + 1;
  165.  
  166. //TextWrite( StrPrint( "MesP2=%04ld MesP3=%04ld", x, y ), CPic, 0, 0 );
  167.  
  168.         cast2 = HitCast( CPic, x, y );
  169.         if( cast2 != Cast[i] && hitflag == 1 ) {
  170.             MoveCast( Cast[i], Pic[i], Xoff[i], Yoff[i] );
  171.             hitflag = 0;
  172.         } else if( cast2 == Cast[i] && hitflag == 0 ) {
  173.             MoveCast( Cast[i], Pic[i], Xoff[i] + 2, Yoff[i] + 2 );
  174.             hitflag = 1;
  175.         }
  176.     }
  177.     mes( LBUP ) {
  178.         del_us;
  179.         if( hitflag == 1 ) {
  180.             MoveCast( Cast[i], Pic[i], Xoff[i], Yoff[i] );
  181.             if( offset != 10 ) {
  182.                 for( i = 1; ; i = i + 1 ) {
  183.                     if( Cast[i] == 0 ) {
  184.                         break;
  185.                     }
  186.                     DelCast( Cast[i], 1 );
  187.                     DelPic( Pic[i] );
  188.                 }
  189.                 MovePic( CPic2, 0, 0, 640, 480, CPico );
  190.                 MoveCast( CCast, CPico );
  191.                 DelPic( Pic[0] );
  192.             }
  193.             i = PageNo;
  194. //TextWrite( StrPrint( "page[%ld]=%ld", PageNo, Page[PageNo] ), CPic, 0, 0 );
  195.             if( j == 1 ) {
  196.                 // profile
  197. //                PlayWAVE("kachi.wav");
  198.                 Prof();
  199.                 del_me;
  200.             } else if( j == 2 ) {
  201.                 // start
  202. //                PlayWAVE("kachi.wav");
  203.                 WritePage( i, 1 );
  204.                 del_me;
  205.             } else if( j == 3 ) {
  206.                 // end
  207. //                PlayWAVE("kachi.wav");
  208.                 BackMode(1);
  209.                 TextColor(255,255,255);
  210.                 SetFont( 80, "Times New Roman", 0, 0, 0, 0, 800,1 ,0,0,0,0,0,2,1);
  211.                 TextWrite("Fin.",BlackPic,260,180);
  212.                 MovePic(BlackPic,0,0,640,480,CPic,0,0,3,20);
  213.                 mes(TIME){step(30){,
  214.                     CloseWinAll();
  215.                     del_all;
  216.                     del_me;
  217.                 }}
  218.                 del_me;
  219.             } else if( j == 6 ) {
  220. //                PlayWAVE("kachi.wav");
  221.                 Opening();
  222.                 del_me;
  223.             } else if( j == 11 ) {
  224.                 if( Page[PageNo] > 0 && i != Sect[Page[PageNo] - 1] ) {
  225. //                    PlayWAVE("pachi.wav");
  226.                     WritePage( i, Sect[Page[PageNo] - 1] );
  227.                     del_me;
  228.                 }
  229.             } else if( j == 12 ) {
  230.                 if( PageNo > 1 && i != PageNo - 1 ) {
  231. //                    PlayWAVE("pachi.wav");
  232.                     WritePage( i, PageNo - 1 );
  233.                     del_me;
  234.                 }
  235.             } else if( j == 13 ) {
  236.                 if( PageNo < MaxPage && i != PageNo + 1 ) {
  237. //                    PlayWAVE("pachi.wav");
  238.                     WritePage( i, PageNo + 1 );
  239.                     del_me;
  240.                 }
  241.             } else if( j == 14 ) {
  242.                 if( Page[PageNo] < MaxSect && i != Sect[Page[PageNo] + 1] ) {
  243. //                    PlayWAVE("pachi.wav");
  244.                     WritePage( i, Sect[Page[PageNo] + 1] );
  245.                     del_me;
  246.                 }
  247.             } else if( j == 15 ) {
  248. //                PlayWAVE("kachi.wav");
  249.                 PageNo = 1;
  250.                 MovePic( mtext[0], 0, 0, 640, 480, CPic2 );
  251.                 for( i = 1; i <= 5; i = i + 1 ) {
  252.                     MovePic( Pic[i], 0, 0, PicWidth( Pic[i] ), PicHeight( Pic[i] ), CPic2, Xoff[i], Yoff[i], 0, transparency_color );
  253.                 }
  254.                 for( i = 1; ; i = i + 1 ) {
  255.                     if( Cast[i] == 0 ) {
  256.                         break;
  257.                     }
  258.                     DelCast( Cast[i], 1 );
  259.                     DelPic( Pic[i] );
  260.                 }
  261.                 MovePic( CPic2, 0, 0, 640, 480, CPico );
  262.                 MoveCast( CCast, CPico );
  263.                 DelPic( Pic[0] );
  264.                 Opening();
  265.                 IsInPage = 0;
  266.                 del_me;
  267.             }
  268.         }
  269.         PlayWAVE("shuu.wav");
  270.         butproc1( offset );
  271.         del_me;
  272.     }
  273. }
  274.  
  275. Prof()
  276. {
  277.     int    i;
  278.  
  279.     Pic[0]=LoadPic(GetIniStr("system","profpic","prof.bmp",IniName));
  280.     Pic[1]=LoadPic(GetIniStr("system","prof_eb","back_e.bmp",IniName));
  281.     Xoff[1]=GetIniInt("system","prof_ebx",590,IniName);
  282.     Yoff[1]=GetIniInt("system","prof_eby",414,IniName);
  283.  
  284.     MovePic( Pic[0], 0, 0, 640, 480, CPic2 );
  285.     MovePic( Pic[1], 0, 0, PicWidth( Pic[1] ), PicHeight( Pic[1] ), CPic2, Xoff[1], Yoff[1], 0, transparency_color );
  286.     MovePic( CPic2, 0, 0, 640, 480, CPic, 0, 0, 2, 20 );
  287.     MovePic( CPic2, 0, 0, 640, 480, CPic, 0, 0, 2, 20 );
  288.  
  289.     mes( TIME ) {
  290.         step( 20 ) {
  291.             ,
  292.             Cast[1] = PutCast( Pic[1], CPic, Xoff[1], Yoff[1], transparency_color, 0, 10, 1 );
  293.             Cast[2] = 0;
  294.             MovePic( Pic[0], 0, 0, 640, 480, CPico );
  295.             MoveCast( CCast, CPico );
  296.             butproc1( 5 );
  297.             del_me;
  298.         }
  299.     }
  300. }
  301.  
  302. WritePage( int old, int new )
  303. {
  304.     int    i, j;
  305.     str sect,text;
  306.  
  307. //TextWrite( StrPrint( "old=%ld, new=%ld", old, new ), CPic, 0, 20 );
  308.  
  309.  
  310.     if( IsInPage != 1 ) {
  311.         Pic[0]=LoadPic(GetIniStr("system","backpic","back.bmp",IniName));
  312.         Pic[1]=LoadPic(GetIniStr("system","back_u2b","back_u2.bmp",IniName));
  313.         Xoff[1]=GetIniInt("system","back_u2bx",594,IniName);
  314.         Yoff[1]=GetIniInt("system","back_u2by",87,IniName);
  315.         Pic[2]=LoadPic(GetIniStr("system","back_ub","back_u.bmp",IniName));
  316.         Xoff[2]=GetIniInt("system","back_ubx",594,IniName);
  317.         Yoff[2]=GetIniInt("system","back_uby",164,IniName);
  318.         Pic[3]=LoadPic(GetIniStr("system","back_db","back_d.bmp",IniName));
  319.         Xoff[3]=GetIniInt("system","back_dbx",594,IniName);
  320.         Yoff[3]=GetIniInt("system","back_dby",258,IniName);
  321.         Pic[4]=LoadPic(GetIniStr("system","back_d2b","back_d2.bmp",IniName));
  322.         Xoff[4]=GetIniInt("system","back_d2bx",594,IniName);
  323.         Yoff[4]=GetIniInt("system","back_d2by",336,IniName);
  324.         Pic[5]=LoadPic(GetIniStr("system","back_eb","back_e.bmp",IniName));
  325.         Xoff[5]=GetIniInt("system","back_ebx",590,IniName);
  326.         Yoff[5]=GetIniInt("system","back_eby",414,IniName);
  327.  
  328.         PageNo = new;
  329.         textcreate( mtext[0], PageNo );
  330.         mtpage[0] = PageNo;
  331.         MovePic( mtext[0], 0, 0, 640, 480, CPic2 );
  332.         for( i = 1; i <= 5; i = i + 1 ) {
  333.             MovePic( Pic[i], 0, 0, PicWidth( Pic[i] ), PicHeight( Pic[i] ), CPic2, Xoff[i], Yoff[i], 0, transparency_color );
  334.         }
  335.         MovePic( CPic2, 0, 0, 640, 480, CPic, 0, 0, 2, 20 );
  336.         IsInPage=1;
  337.  
  338.         mes( TIME ) {
  339.             step( 20 ) {
  340.                 ,
  341.                 for( i = 1; i <= 5; i = i + 1 ) {
  342.                     Cast[i] = PutCast( Pic[i], CPic, Xoff[i], Yoff[i], transparency_color, 0, 10, 1 );
  343.                 }
  344.                 Cast[i] = 0;
  345.                 MovePic( mtext[0], 0, 0, 640, 480, CPico );
  346.                 MoveCast( CCast, CPico );
  347.                 sect=StrPrint("Page%ld",PageNo);
  348.                 if((text=GetIniStr(sect,"wave","/E",IniName))!="/E"){PlayWAVE(text);}
  349.                 if((text=GetIniStr(sect,"midi","/E",IniName))!="/E"){PlayMIDI(text);}
  350.                 mes( USER ) {
  351.                     if( MesP1 == 1 ) {
  352.                         if(Page[PageNo]>0){
  353.                             textcreate( mtext[1], Sect[Page[PageNo]-1] );
  354.                             mtpage[1] = Sect[Page[PageNo]-1];
  355.                         } else {
  356.                             mtpage[1] = -1;
  357.                         }
  358.                         if(PageNo>1){
  359.                             textcreate( mtext[2], PageNo-1 );
  360.                             mtpage[2] = PageNo - 1;
  361.                         } else {
  362.                             mtpage[2] = -1;
  363.                         }
  364.                         if(PageNo<MaxPage){
  365.                             textcreate( mtext[3], PageNo+1 );
  366.                             mtpage[3] = PageNo + 1;
  367.                         } else {
  368.                             mtpage[3] = -1;
  369.                         }
  370.                         if(Page[PageNo]<MaxSect){
  371.                             textcreate( mtext[4], Sect[Page[PageNo]+1] );
  372.                             mtpage[4] = Sect[Page[PageNo]+1];
  373.                         } else {
  374.                             mtpage[4] = -1;
  375.                         }
  376.                         del_me;
  377.                     }
  378.                 }
  379.                 mes( TIME ) {
  380.                     step( 10 ) {
  381.                         ,
  382.                         PostMes( USER, 1 );
  383.                         del_me;
  384.                     }
  385.                 }
  386.                 butproc1( 10 );
  387.                 del_me;
  388.             }
  389.         }
  390.     } else {
  391. /*        if( old == new ) {
  392.             butproc1( 10 );
  393.             return;
  394.         }
  395. */        for( i = 1; i <= 5; i = i + 1 ) {
  396.             if( mtpage[i] == new ) {
  397.                 MovePic( mtext[i], 0, 0, 640, 480, mtext[0] );
  398.                 mtpage[0] = mtpage[i];
  399. /*                j = mtext[0];
  400.                 mtext[0] = mtext[i];
  401.                 mtext[i] = j;
  402.                 mtpage[0] = new;
  403.                 mtpage[i] = mtpage[0];
  404. */                break;
  405.             }
  406.         }
  407.         PageNo = new;
  408.         if( i == 6 ) {
  409.             textcreate( mtext[0], PageNo );
  410.             mtpage[0] = new;
  411.         }
  412.         MovePic( mtext[0], 0, 0, 640, 480, CPico );
  413.         MoveCast( CCast, CPico );
  414.         sect=StrPrint("Page%ld",PageNo);
  415.         if((text=GetIniStr(sect,"wave","/E",IniName))!="/E"){PlayWAVE(text);}
  416.         if((text=GetIniStr(sect,"midi","/E",IniName))!="/E"){PlayMIDI(text);}
  417.  
  418.         mes( USER ) {
  419.             if( MesP1 == 1 ) {
  420.                 if( Page[PageNo] > 0 ) {
  421.                     if( mtpage[1] != Sect[Page[PageNo] - 1] ) {
  422.                         for( i = 1; i <= 5; i = i + 1 ) {
  423.                             if( mtpage[i] == Sect[Page[PageNo] - 1] ) {
  424.                                 MovePic( mtext[i], 0, 0, 640, 480, mtext[1] );
  425.                                 mtpage[1] = mtpage[i];
  426.                                 break;
  427.                             }
  428.                         }
  429.                         if( i == 6 ) {
  430.                             textcreate( mtext[1], Sect[Page[PageNo] - 1] );
  431.                             mtpage[1] = Sect[Page[PageNo] - 1];
  432.                         }
  433.                     }
  434.                 } else {
  435.                     mtpage[1] = -1;
  436.                 }
  437.                 if( PageNo > 1 ){
  438.                     if( mtpage[2] != PageNo - 1 ) {
  439.                         for( i = 1; i <= 5; i = i + 1 ) {
  440.                             if( mtpage[i] == PageNo - 1 ) {
  441.                                 MovePic( mtext[i], 0, 0, 640, 480, mtext[2] );
  442.                                 mtpage[2] = mtpage[i];
  443.                                 break;
  444.                             }
  445.                         }
  446.                         if( i == 6 ) {
  447.                             textcreate( mtext[2], PageNo - 1 );
  448.                             mtpage[2] = PageNo - 1;
  449.                         }
  450.                     }
  451.                 } else {
  452.                     mtpage[2] = -1;
  453.                 }
  454.                 if( PageNo < MaxPage ) {
  455.                     if( mtpage[3] != PageNo + 1 ) {
  456.                         for( i = 1; i <= 5; i = i + 1 ) {
  457.                             if( mtpage[i] == PageNo + 1 ) {
  458.                                 MovePic( mtext[i], 0, 0, 640, 480, mtext[3] );
  459.                                 mtpage[3] = mtpage[i];
  460.                                 break;
  461.                             }
  462.                         }
  463.                         if( i == 6 ) {
  464.                             textcreate( mtext[3], PageNo + 1 );
  465.                             mtpage[3] = PageNo + 1;
  466.                         }
  467.                     }
  468.                 } else {
  469.                     mtpage[3] = -1;
  470.                 }
  471.                 if( Page[PageNo] < MaxSect ) {
  472.                     if( mtpage[4] != Sect[Page[PageNo] + 1] ) {
  473.                         for( i = 1; i <= 5; i = i + 1 ) {
  474.                             if( mtpage[i] == Sect[Page[PageNo] + 1] ) {
  475.                                 MovePic( mtext[i], 0, 0, 640, 480, mtext[4] );
  476.                                 mtpage[4] = mtpage[i];
  477.                                 break;
  478.                             }
  479.                         }
  480.                         if( i == 6 ) {
  481.                             textcreate( mtext[4], Sect[Page[PageNo] + 1] );
  482.                             mtpage[4] = Sect[Page[PageNo] + 1];
  483.                         }
  484.                     }
  485.                 } else {
  486.                     mtpage[4] = -1;
  487.                 }
  488.                 del_me;
  489.             }
  490.         }
  491.         mes( TIME ) {
  492.             step( 10 ) {
  493.                 ,
  494.                 PostMes( USER, 1 );
  495.                 del_me;
  496.             }
  497.         }
  498.         butproc1( 10 );
  499.     }
  500. }
  501.  
  502.  
  503. textcreate( int mp, int num )
  504. {
  505.     str sect,text;
  506.     int x,y,i,p;
  507.  
  508.     MovePic( Pic[0], 0, 0, 640, 480, mp, 0, 0 );
  509.  
  510.     sect=StrPrint("Page%ld",num);
  511.     x=GetIniInt(sect, "startx", BaseX,IniName);
  512.     y=GetIniInt(sect, "starty", BaseY,IniName);
  513.      BackMode(1);
  514.     SetFont( 24, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  515.     TextColor(0,0,0);
  516.     TextWrite(Title[Page[num]],mp,61,21);
  517.     TextColor(0,0,255);
  518.     TextWrite(Title[Page[num]],mp,60,20);
  519.     SetFont( 20, "ＭＳ 明朝", 128, 0, 0, 0, 400 );
  520.     TextColor(0,0,0);
  521.     TextWrite(StrPrint("P.%ld",num),mp,511,24);
  522.     TextColor(255,0,0);
  523.     TextWrite(StrPrint("P.%ld",num),mp,510,23);
  524.     TextColor(0,0,95);
  525.     SetFont(GetIniInt(sect,"fontsize",FontSize,IniName),GetIniInt(sect,"fontname",BaseFont,IniName),128, 0, 0, 0, 400);
  526. //    if((text=GetIniStr(sect,"wave","/E",IniName))!="/E"){PlayWAVE(text);}
  527. //    if((text=GetIniStr(sect,"midi","/E",IniName))!="/E"){PlayMIDI(text);}
  528.  
  529.     for(i=1;(text=GetIniStr(sect,StrPrint("Pic%ld",i),"/E",IniName))!="/E";i=i+1){
  530.         p=LoadPic(text);
  531.         MovePic(p,0,0,PicWidth(p),PicHeight(p),mp,GetIniInt(sect,StrPrint("Pic%ldx",i),27,IniName),GetIniInt(sect,StrPrint("Pic%ldy",i),73,IniName));
  532.         DelPic(p);
  533.     }
  534.     for(i=1;(text=GetIniStr(sect,StrPrint("Text%ld",i),"/E",IniName))!="/E";i=i+1){
  535.         if(StrFind(text,"/EM")==0){
  536.             TextColor(0,0,0);
  537.             SetFont( GetIniInt(sect,"fontsize",FontSize,IniName)+4, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  538.             TextWrite(SubStr(text,3,StrLen(text)-3),mp,x+1,y-1);
  539.             TextColor(0,50,200);
  540.             //SetFont( GetIniInt(sect,"fontsize",FontSize,IniName)+4, "ＭＳ ゴシック", 128, 0, 0, 0, 800 );
  541.             TextWrite(SubStr(text,3,StrLen(text)-3),mp,x,y-2);
  542.             y=y+4;
  543.             TextColor(0,0,95);
  544.             SetFont(GetIniInt(sect,"fontsize",FontSize,IniName),GetIniInt(sect,"fontname",BaseFont,IniName),128, 0, 0, 0, 400);
  545.         }else{
  546.             TextWrite(text,mp,x,y);
  547.         }
  548.         y=y+FontSize+3;
  549.     }
  550. }
  551.