home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 February / VPR9702A.ISO / FFILLY / TOKYOS / TOKYOB1.TFY < prev    next >
Text File  |  1996-11-28  |  33KB  |  938 lines
  1. //===========================================================================
  2. //東京city第一章
  3.  
  4. //テキストファイル表示関数変更版
  5. #define STARTXPOS 30
  6. #define STARTYPOS 60
  7. #define MAXLINE 24
  8. #define YDIFFPIXEL 16
  9. int BackPic,cast_pic ,base_pic, F2_pic;
  10.  
  11.  int MaxPage;//そのファイルの最大ページ数
  12. int i,j,FileNo;
  13.  int ret;
  14.  
  15. tokyob1()
  16. { 
  17. int mesnum; 
  18. int  PageNo;//ページNo
  19.  
  20. str Fname;
  21. Fname="sb2new.txt";
  22. int P00,P01,P02,P03,cut1,kyara1,kyara2,kyara3,kyara4,kyara5,menu;
  23. int Width,Height;
  24.     int picW,picH,winW,winH,winX,winY;
  25.      int WinMain,Winsub;
  26.    Width=WinInfo(0);                //画面の横幅を調べる。//
  27. Height=WinInfo(1);                //画面の高さを調べる。// 
  28.     Debug(1);
  29.          P00=LoadPic("byouin1.BMP");
  30.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  31.         picW= PicWidth(P00);    // 画像の幅(picは任意のPicture番号)
  32.         picH= PicHeight(P00);   // 画像の高さ(picは任意のPicture番号)
  33.         winW= WinInfo(0);       // 画面の幅
  34.         winH= WinInfo(1);       // 画面の高さ
  35.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  36.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標
  37.  
  38.  
  39.     CapTitle("");
  40.     //マウスをクリックすると、次のページに行きます。
  41.  
  42.     i=0;
  43.  
  44.   str MIDIFile[];
  45.   int MIDINum;
  46.  
  47.   MIDINum=0;
  48.   MIDIFile[1]="saba_n3.mid";
  49.   MIDIFile[2]="saba_n4.mid";
  50.   MIDIFile[3]="en_2.mid";
  51.  
  52.   MIDINum=1;                          // [追加]
  53.  
  54.   mes(MIDI_END){
  55.     if(MIDINum==1){                   // [修正]if(MIDINum==0){
  56.       MIDINum=2;
  57.       PlayMIDI(MIDIFile[2]);    // [修正]PlayMIDI(MIDIFile[2]);
  58.     }
  59.  
  60.     else if(MIDINum==2){   MIDINum=2;
  61.       PlayMIDI(MIDIFile[3]);    // [修正]PlayMIDI(MIDIFile[1]);
  62.     }
  63.    else if(MIDINum==3){   MIDINum=3;
  64.       PlayMIDI(MIDIFile[1]);    // [修正]PlayMIDI(MIDIFile[1]);
  65.     }} 
  66. //♪♪♪♪♪♪♪調査用Msgbox♪♪♪♪♪♪♪♪♪♪♪♪♪♪
  67.    //MsgBox("TextViewの前",0x000);//追加する
  68.       //テキスト表示
  69.        //ret=TextView(BackPic,i,"sb2new.txt");
  70.    // MsgBox("TextViewの後",0x000);//追加する
  71. //♪♪♪♪♪♪♪調査用Msgbox♪♪♪♪♪♪♪♪♪♪♪♪♪♪     
  72.  
  73.     TextColor(0,0,0);//テキストの色：白
  74.     BackMode(1);  
  75.     BgColor(0,0,0);//テキストのバックの色：黒
  76.    
  77.    
  78.    SetFont(14, "ＭＳ 明朝", 128,0,0,0,1);
  79.     mes(LBDOWN){
  80.   mesnum=GetMesNo(1);    //←96/11/08 by あんちもん-(1)
  81.  if(       ((MesP2 >=  -winX+564)       && (MesP2 <= -winX+600))
  82.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+80)) ){     
  83.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  84.         mes(TIME){
  85.        step(1) { PlayWAVE("imo.wav");  
  86.         ,,, cast();,,, 
  87.         i=i+1;    //←96/11/08 by あんちもん-(2)
  88.         if(i<=0){i=1;}    //←96/11/08 by あんちもん-(2)
  89.        if(i>13)i=13;  //これを追加してください    
  90.        
  91.         ret=TextView(BackPic,i,  "sb2new.txt");
  92.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  93.        end_step; del_me;
  94.          } }}
  95.       else if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+563))
  96.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+80)) ){
  97.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  98.         mes(TIME){
  99.        step(1 ) {PlayWAVE("imo.wav");
  100.        ,,,cast();,,,
  101.         i=i-1;
  102.         if(i<=0){i=1;}    //←96/11/08 by あんちもん-(2)
  103.        if(i>13)i=13;  //これを追加してください
  104.         ret=TextView(BackPic,i,"sb2new.txt");
  105.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  106.        end_step;  del_me;
  107.          }} }
  108.       
  109.       else if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+624))
  110.               &&((MesP3 >=  -winY+374 ) && (MesP3 <= -winY+456)) ){
  111.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  112.           mes(TIME){
  113.         step(4 ) {PlayWAVE("imo.wav");
  114.           cut1=LoadPic("ISABEL.bmp");//BYOUIN 
  115.          Winsub=OpenWin( cut1, 0, 0, winW, winH,winX, winY,0x000000);  // Winsubへ保存する。
  116.          ,,,,,,,,,,,,,,,CloseWin(Winsub); DelPic(cut1 );
  117.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  118.       end_step; del_me; 
  119.      } }}
  120.       else if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+590))
  121.               &&((MesP3 >=  -winY+248 ) && (MesP3 <= -winY+330)) ){
  122.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  123.           mes(TIME){
  124.         step(4 ) {PlayWAVE("imo.wav");
  125.           DrawRect(P00 ,0 , 0, 640 , 480); 
  126.          Winsub=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000);  // Winsubへ保存する。
  127.        
  128.         kyara1=LoadPic("Iza.bmp");//IZABEL
  129.         MoveSPic(kyara1,0,0,300,480,P00,120, 140,100,160);, 
  130.         MoveSPic(kyara1,0,0,300,480,P00,120, 70,200,320);,
  131.         MovePic(kyara1,0,0,300,480,P00,120, 0);,,,,,,,,,
  132.         DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara1 );
  133.         kyara2=LoadPic("takashi.bmp");//IZABEL
  134.         MoveSPic(kyara2,0,0,300,480,P00,120, 140,100,160);, 
  135.         MoveSPic(kyara2,0,0,300,480,P00,120, 70,200,320);,
  136.         MovePic(kyara2,0,0,300,480,P00,120, 0);,,,,,,,,,
  137.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara2 );
  138.         kyara3=LoadPic("dan.bmp");//IZABEL
  139.         MoveSPic(kyara3,0,0,300,480,P00,120, 140,100,160);, 
  140.         MoveSPic(kyara3,0,0,300,480,P00,120, 70,200,320);,
  141.         MovePic(kyara3,0,0,300,480,P00,120, 0);,,,,,,,,,,
  142.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara3 );
  143.         kyara4=LoadPic("reiko.bmp");//IZABEL
  144.         MoveSPic(kyara4,0,0,300,480,P00,120, 140,100,160);, 
  145.         MoveSPic(kyara4,0,0,300,480,P00,120, 70,200,320);,
  146.         MovePic(kyara4,0,0,300,480,P00,120, 0);,,,,,,,,,,
  147.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara4 );
  148.         kyara5=LoadPic("desi.bmp");//IZABEL
  149.         MoveSPic(kyara5,0,0,300,480,P00,120, 140,100,160);, 
  150.         MoveSPic(kyara5,0,0,300,480,P00,120, 70,200,320);,
  151.         MovePic(kyara5,0,0,300,480,P00,120, 0);,,,,,,,,,,
  152.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara5 );
  153.          ,,,,,,,,CloseWin(Winsub);
  154.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  155.       end_step;  del_me; 
  156.      } }}
  157.       else  if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+590))
  158.               &&((MesP3 >=  -winY+170 ) && (MesP3 <= -winY+248)) ){
  159.           PlayWAVE("imo.wav");
  160.           CloseWin(WinMain);DelPic(P03 );DelPic(P00 );DelPic( BackPic );          
  161.            del_all; maint();
  162.         del_me;
  163.       } 
  164.  }                     
  165.   mes(RBDOWN){ 
  166.             MCI("stop song");    
  167.            PlayWAVE("imo.wav");
  168.           CloseWin(WinMain); DelPic(P03 );DelPic(P00 );DelPic( BackPic );          
  169.            del_all; maint();
  170.         del_me;       
  171.     } 
  172.  
  173. mes(RBDBLCLK){};
  174.  
  175.  WinMain=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000); 
  176.                       // WinMainへ保存する。
  177. mes(MIDI_TIME){
  178.          
  179. step(5){
  180.   
  181.  P01=LoadPic("ISABEL.BMP");
  182.  
  183.   MovePic(P01,0,0,640,480,P00,0,0,3,20);,,,,,
  184.    
  185.  
  186.   P02=LoadPic("TEXTJP.BMP");
  187.       BackPic = CreatePic(P02); //背景と同じサイズのピクチャーを生成
  188.       PutCast(P02, BackPic,0,0);//背景を設定（透明色無しモードのCastを生成）
  189.  
  190.    MoveWin(WinMain , BackPic , 0, 0,  winW, winH,winX, winY);
  191. TextColor(0,0,255);//テキストの色：白
  192.  
  193. SetFont(16, "ＭＳ 明朝", 128,0,0,0,1);
  194.  
  195.   TextWrite( "砂漠の果て　ＴＯＫＹＯ．ＣＩＴＹ　前半です。",BackPic,70,130);
  196.   
  197. TextColor(0,0,0);//テキストの色：白
  198. SetFont(14, "ＭＳ 明朝", 128,0,0,0,1);
  199.   TextWrite( "右上のｱｲｺﾝ→でﾍﾟｰｼﾞをおくります。",BackPic,100,170); 
  200.   TextWrite( "右上のｱｲｺﾝ←でﾍﾟｰｼﾞをもどします。",BackPic,100,190); 
  201.   TextWrite( "青い○のｱｲｺﾝはﾒﾆｭｰ画面に戻る",BackPic,100,210); 
  202.   TextWrite( "赤の○のｱｲｺﾝは登場人部一覧です。",BackPic,100,230);
  203.   TextWrite( "下の□のｱｲｺﾝは挿し絵表示です。",BackPic,100,250);
  204.   TextWrite( "強制終了は右クリック二回です。",BackPic,100,270); 
  205.   TextWrite( "何回でもﾒﾆｭｰ画面から、もどってこれます。",BackPic,100,290); 
  206.    DelPic(P01 );
  207. end_step; del_me;}}}
  208.  
  209.  
  210.  
  211. int TextView(int  Pic,int PageNo,str Fname)
  212. {
  213.     //テキスト表示関数
  214.     //暫定仕様なので変更する可能性があります。
  215.  
  216.     //（引数）
  217.     //Pic:ピクチャNo
  218.     //PageNo:ページNo
  219.     //Fname:ファイル名
  220.  
  221.     //（戻り値）
  222.     // エラー判定
  223.     // -1の時、エラー
  224.     // 0の時、正常終了
  225.  
  226.     //（外部定義する定数）
  227.     //STARTXPOS:テキスト表示する左端座標
  228.     //STARTYPOS:テキスト表示する右端座標
  229.     //MAXLINE:  テキスト表示する最大行数
  230.     //YDIFFPIXEL:(文字の高さ+α)のピクセル数（改行ピッチ）
  231.  
  232.     int LineNo;//ページNoより算出した行数
  233.     int ErrFlag;//パラメータが正常でない場合立てるフラグ
  234.     int i,j;
  235.     int FileNo;
  236.     str buf,buf2;//文字列バッファ
  237.  
  238.  
  239.     //ページ数より、テキストファイルの先頭から何行目かを計算
  240.     LineNo=(PageNo-1)*MAXLINE;//１行目は、LineNo=0とする
  241.     
  242.     //ファイルをオープン
  243.    
  244.     FileNo=OpenF(Fname);
  245.     //ファイルの先頭にシーク
  246.     SeekF(FileNo,0,0);
  247.     
  248.     for(i=0;i<LineNo;i=i+1){
  249.         //目的の行まで、空読み込み
  250.         buf=StrReadF(FileNo);
  251.         if(buf==""){
  252.             goto END;//あまりよくありませんが・・
  253.         }
  254.     }
  255.    // ret=SeekF(FileNo,0,1);
  256.    //MsgBox(StrPrint("%ld",ret),0x000);
  257.     for(i=0;i<MAXLINE;i=i+1){
  258.         //テキスト表示用文字列作成
  259.         buf=StrReadF(FileNo);
  260.         if(buf==""){
  261.             goto END;//あまりよくありませんが・・
  262.         }
  263.         //この部分にTextWriteで、テキスト表示ルーチンを入れる
  264.         buf2=SubStr(buf,0,StrLen(buf)-1);//LFを消す
  265.         TextWrite(buf2, BackPic, STARTXPOS, STARTYPOS+YDIFFPIXEL*i);
  266.    
  267.         buf2=buf2+buf;
  268.         MaxPage=j-1;
  269.       TextWrite(StrPrint("Page: %ld ",PageNo,MaxPage),BackPic,130,450);
  270.    //MsgBox(StrPrint("%ld",j),0x000);
  271.     }
  272.   //MsgBox(buf2,0x000);//テスト用
  273.      buf2="";
  274. END:;
  275.     CloseF(FileNo);
  276. }
  277.  
  278.  
  279. cast(){
  280.  int cast_cast;
  281.  
  282.       cast_pic=LoadPic("textjp.bmp");//ﾃﾞｨｽﾌﾟﾚｰ 
  283.  
  284.       cast_cast = PutCast( cast_pic, BackPic, 0, 0, 0xffffff, 0, 3, 0,
  285.                                                              640, 480, 0, 0 );
  286.  
  287.  
  288.  mes(TIME){
  289.     step(1) {
  290.           MoveCast(cast_cast, BackPic,0, 0, 0, 640,480, 0,0,0xffffff);
  291.   
  292.            DelCast(cast_cast);DelPic(cast_pic);
  293.             del_us; end_step; 
  294.            del_me;
  295.     }
  296.  
  297. }
  298. }
  299.  
  300. //===========================================================================
  301. //東京city第二章
  302.  
  303. //テキストファイル表示関数変更版
  304. #define STARTXPOS 30
  305. #define STARTYPOS 60
  306. #define MAXLINE 24
  307. #define YDIFFPIXEL 16
  308.  
  309.   
  310. tokyob2()
  311. { 
  312.   int mesnum; 
  313.   str Fname;
  314.  Fname="sb2_1n.txt";  
  315.      
  316.    int P00,P01,P02,P03,cut1,kyara1,kyara2,kyara3,kyara4,kyara5,menu; 
  317.    int Width,Height;
  318.     int picW,picH,winW,winH,winX,winY;
  319.      int WinMain,Winsub;
  320.    Width=WinInfo(0);                //画面の横幅を調べる。//
  321. Height=WinInfo(1);                //画面の高さを調べる。// 
  322.     Debug(1);
  323.          P00=LoadPic("street.BMP");
  324.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  325.         picW= PicWidth(P00);    // 画像の幅(picは任意のPicture番号)
  326.         picH= PicHeight(P00);   // 画像の高さ(picは任意のPicture番号)
  327.         winW= WinInfo(0);       // 画面の幅
  328.         winH= WinInfo(1);       // 画面の高さ
  329.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  330.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標
  331.         
  332.  
  333.   
  334.  
  335.     CapTitle("");
  336.     //マウスをクリックすると、次のページに行きます。
  337.  
  338.     i=0;
  339.   str MIDIFile[];
  340.   int MIDINum;
  341.  
  342.   MIDINum=0;
  343.   MIDIFile[1]="saba_n3.mid";
  344.   MIDIFile[2]="saba_n4.mid";
  345.   MIDIFile[3]="en_2.mid";
  346.  
  347.   MIDINum=1;                          // [追加]
  348.  
  349.   mes(MIDI_END){
  350.     if(MIDINum==1){                   // [修正]if(MIDINum==0){
  351.       MIDINum=2;
  352.       PlayMIDI(MIDIFile[2]);    // [修正]PlayMIDI(MIDIFile[2]);
  353.     }
  354.  
  355.     else if(MIDINum==2){   MIDINum=2;
  356.       PlayMIDI(MIDIFile[3]);    // [修正]PlayMIDI(MIDIFile[1]);
  357.     }
  358.    else if(MIDINum==3){   MIDINum=3;
  359.       PlayMIDI(MIDIFile[1]);    // [修正]PlayMIDI(MIDIFile[1]);
  360.     }} 
  361. //♪♪♪♪♪♪♪調査用Msgbox♪♪♪♪♪♪♪♪♪♪♪♪♪♪
  362. //MsgBox("TextViewの前",0x000);//追加する
  363.       //テキスト表示
  364.        //ret2=TextView(BackPic,i,"sb2_1n.txt");
  365.      //MsgBox("TextViewの後",0x000);//追加する
  366. //♪♪♪♪♪♪♪調査用Msgbox♪♪♪♪♪♪♪♪♪♪♪♪♪♪     
  367.  
  368.     TextColor(0,0,0);//テキストの色：黒
  369.     BackMode(1);  
  370.     BgColor(0,0,0);//テキストのバックの色：黒
  371.   
  372.     SetFont(14, "ＭＳ 明朝", 128,0,0,0,1); 
  373.    
  374.     mes(LBDOWN){
  375.   mesnum=GetMesNo(1);    //←96/11/08 by あんちもん-(1)
  376.  if(       ((MesP2 >=  -winX+564)       && (MesP2 <= -winX+600))
  377.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+80)) ){     
  378.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  379.         mes(TIME){
  380.        step( ) {PlayWAVE("imo.wav");,,,
  381.     
  382.            
  383.          cast();,,,
  384.         i=i+1;    //←96/11/08 by あんちもん-(2)
  385.        if(i<=0){i=1;}    //←96/11/08 by あんちもん-(2)
  386.        if(i>14)i=14;
  387.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  388.         ret=TextView(BackPic,i,  "sb2_1n.txt");
  389.        end_step; del_me;
  390.          } }}
  391.      else  if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+563))
  392.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+80)) ){
  393.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  394.         mes(TIME){
  395.        step(1 ) {PlayWAVE("imo.wav");,,
  396.         ,cast();,,,
  397.         i=i-1;
  398.         if(i<=0){i=1;}    //←96/11/08 by あんちもん-(2)
  399.         if(i>14)i=14;
  400.         ret=TextView(BackPic,i,  "sb2_1n.txt");
  401.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  402.        end_step;  del_me;
  403.          }} }
  404.       
  405.      else  if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+624))
  406.               &&((MesP3 >=  -winY+374 ) && (MesP3 <= -winY+456)) ){
  407.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  408.           mes(TIME){
  409.         step(4 ) {PlayWAVE("imo.wav");
  410.           cut1=LoadPic("street.bmp");//tokyo.city 
  411.          Winsub=OpenWin( cut1, 0, 0, winW, winH,winX, winY,0x000000);  // Winsubへ保存する。
  412.          ,,,,,,,,,,,,,,,,CloseWin(Winsub); DelPic(cut1 );
  413.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  414.       end_step;  del_me; 
  415.      } }}
  416.      else if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+590))
  417.               &&((MesP3 >=  -winY+248 ) && (MesP3 <= -winY+330)) ){
  418.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  419.           mes(TIME){
  420.         step(4 ) {PlayWAVE("imo.wav");
  421.           DrawRect(P00 ,0 , 0, 640 , 480); 
  422.          Winsub=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000);  // Winsubへ保存する。
  423.        
  424.         kyara1=LoadPic("Iza.bmp");//IZABEL
  425.         MoveSPic(kyara1,0,0,300,480,P00,120, 140,100,160);, 
  426.         MoveSPic(kyara1,0,0,300,480,P00,120, 70,200,320);,
  427.         MovePic(kyara1,0,0,300,480,P00,120, 0);,,,,,,,,,
  428.         DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara1 );
  429.         kyara2=LoadPic("takashi.bmp");//IZABEL
  430.         MoveSPic(kyara2,0,0,300,480,P00,120, 140,100,160);, 
  431.         MoveSPic(kyara2,0,0,300,480,P00,120, 70,200,320);,
  432.         MovePic(kyara2,0,0,300,480,P00,120, 0);,,,,,,,,,
  433.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara2 );
  434.         kyara3=LoadPic("dan.bmp");//IZABEL
  435.         MoveSPic(kyara3,0,0,300,480,P00,120, 140,100,160);, 
  436.         MoveSPic(kyara3,0,0,300,480,P00,120, 70,200,320);,
  437.         MovePic(kyara3,0,0,300,480,P00,120, 0);,,,,,,,,,,
  438.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara3 );
  439.         kyara4=LoadPic("reiko.bmp");//IZABEL
  440.         MoveSPic(kyara4,0,0,300,480,P00,120, 140,100,160);, 
  441.         MoveSPic(kyara4,0,0,300,480,P00,120, 70,200,320);,
  442.         MovePic(kyara4,0,0,300,480,P00,120, 0);,,,,,,,,,,
  443.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara4 );
  444.         kyara5=LoadPic("desi.bmp");//IZABEL
  445.         MoveSPic(kyara5,0,0,300,480,P00,120, 140,100,160);, 
  446.         MoveSPic(kyara5,0,0,300,480,P00,120, 70,200,320);,
  447.         MovePic(kyara5,0,0,300,480,P00,120, 0);,,,,,,,,,,
  448.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara5 );
  449.          ,,,,,,,,CloseWin(Winsub);
  450.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  451.       end_step;  del_me; 
  452.      } }}
  453.       else  if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+590))
  454.               &&((MesP3 >=  -winY+170 ) && (MesP3 <= -winY+248)) ){
  455.           PlayWAVE("imo.wav");
  456.           CloseWin(WinMain);
  457.           DelPic( BackPic );DelPic( P02 );DelPic(P00 );  
  458.       del_all;
  459.       maint(); 
  460.         del_me; 
  461.      } 
  462.  } 
  463.  mes(RBDOWN){  MCI("stop song"); PlayWAVE("imo.wav");    
  464.         CloseWin(WinMain);
  465.           DelPic(P00 );DelPic( BackPic );DelPic( P02 );
  466.           del_all;      maint(); 
  467.           
  468.         del_me;
  469.     }    
  470.   
  471.  WinMain=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000); 
  472.                       // WinMainへ保存する。
  473. mes(MIDI_TIME){
  474.          
  475. step(5){,,,
  476.  
  477.   P01=LoadPic("TEXTJP.BMP");
  478.  
  479.       BackPic = CreatePic(P01); //背景と同じサイズのピクチャーを生成
  480.       PutCast(P01, BackPic,0,0);//背景を設定（透明色無しモードのCastを生成）
  481.  
  482.    MoveWin(WinMain , BackPic , 0, 0,  winW, winH,winX, winY);
  483.   TextColor(0,0,255);//テキストの色：白
  484.  
  485. SetFont(16, "ＭＳ 明朝", 128,0,0,0,1);
  486.  
  487.   TextWrite( "砂漠の果て　ＴＯＫＹＯ．ＣＩＴＹ　後半です。",BackPic,70,130);
  488. TextColor(0,0,0);//テキストの色：白
  489. SetFont(14, "ＭＳ 明朝", 128,0,0,0,1);
  490.   TextWrite( "右上のｱｲｺﾝ→でﾍﾟｰｼﾞをおくります。",BackPic,100,170); 
  491.   TextWrite( "右上のｱｲｺﾝ←でﾍﾟｰｼﾞをもどします。",BackPic,100,190); 
  492.   TextWrite( "青い○のｱｲｺﾝはﾒﾆｭｰ画面に戻る",BackPic,100,210); 
  493.   TextWrite( "赤の○のｱｲｺﾝは登場人部一覧です。",BackPic,100,230);
  494.   TextWrite( "下の□のｱｲｺﾝは挿し絵表示です。",BackPic,100,250);
  495.   TextWrite( "強制終了は右クリック二回です。",BackPic,100,270); 
  496.   TextWrite( "何回でもﾒﾆｭｰ画面から、もどってこれます。",BackPic,100,290);    
  497. end_step; }}}
  498. //===========================================================================
  499. //GATEWAY　１
  500.  
  501. //テキストファイル表示関数変更版
  502. #define STARTXPOS 30
  503. #define STARTYPOS 60
  504. #define MAXLINE 24
  505. #define YDIFFPIXEL 16
  506.  
  507.   
  508. gateway1()
  509. { 
  510.  
  511.   
  512.     
  513.   str Fname;
  514.  Fname="sb3new.txt";
  515.       
  516.      
  517.  
  518.   int mesnum; 
  519.    int P00,P01,P02,P03,cut1,kyara1,kyara2,kyara3,kyara4,kyara5,menu; 
  520.    int Width,Height;
  521.     int picW,picH,winW,winH,winX,winY;
  522.      int WinMain,Winsub;
  523.    Width=WinInfo(0);                //画面の横幅を調べる。//
  524. Height=WinInfo(1);                //画面の高さを調べる。// 
  525.     Debug(1);
  526.          P00=LoadPic("otr.BMP");
  527.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  528.         picW= PicWidth(P00);    // 画像の幅(picは任意のPicture番号)
  529.         picH= PicHeight(P00);   // 画像の高さ(picは任意のPicture番号)
  530.         winW= WinInfo(0);       // 画面の幅
  531.         winH= WinInfo(1);       // 画面の高さ
  532.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  533.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標
  534.        P01=LoadPic("neo2.BMP");
  535.      DrawRect(P00, 0, 0, picW, picH, 0, 0);
  536.  
  537.      MovePic(P01,0,0,640,346,P00);
  538.  
  539.  
  540.     CapTitle("");
  541.     //マウスをクリックすると、次のページに行きます。
  542.  
  543.     i=0;
  544.   str MIDIFile[];
  545.   int MIDINum;
  546.  
  547.   MIDINum=0;
  548.   MIDIFile[1]="saba_n3.mid";
  549.   MIDIFile[2]="saba_n4.mid";
  550.   MIDIFile[3]="en_2.mid";
  551.  
  552.   MIDINum=1;                          // [追加]
  553.  
  554.   mes(MIDI_END){
  555.     if(MIDINum==1){                   // [修正]if(MIDINum==0){
  556.       MIDINum=2;
  557.       PlayMIDI(MIDIFile[2]);    // [修正]PlayMIDI(MIDIFile[2]);
  558.     }
  559.  
  560.     else if(MIDINum==2){   MIDINum=2;
  561.       PlayMIDI(MIDIFile[3]);    // [修正]PlayMIDI(MIDIFile[1]);
  562.     }
  563.    else if(MIDINum==3){   MIDINum=3;
  564.       PlayMIDI(MIDIFile[1]);    // [修正]PlayMIDI(MIDIFile[1]);
  565.     }} 
  566. //♪♪♪♪♪♪♪調査用Msgbox♪♪♪♪♪♪♪♪♪♪♪♪♪♪
  567. //MsgBox("TextViewの前",0x000);//追加する
  568.       //テキスト表示
  569.        //ret3=TextView(BackPic,i,"sb3new.txt");
  570.      //MsgBox("TextViewの後",0x000);//追加する
  571. //♪♪♪♪♪♪♪調査用Msgbox♪♪♪♪♪♪♪♪♪♪♪♪♪♪     
  572.  
  573.     TextColor(0,0,0);//テキストの色：白
  574.     BackMode(1);  
  575.     BgColor(0,0,0);//テキストのバックの色：黒
  576.  
  577.      SetFont(14, "ＭＳ 明朝", 128,0,0,0,1);
  578.     mes(LBDOWN){
  579.   mesnum=GetMesNo(1);    //←96/11/08 by あんちもん-(1)
  580.  if(       ((MesP2 >=  -winX+564)       && (MesP2 <= -winX+600))
  581.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+80)) ){
  582.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  583.         mes(TIME){
  584.        step(1 ) {,,,
  585.     
  586.            
  587.          cast();,,,
  588.         i=i+1;    //←96/11/08 by あんちもん-(2)
  589.       if(i<=0){i=1;}    //←96/11/08 by あんちもん-(2)
  590.        if(i>13)i=13;  //これを追加してください
  591.       
  592.         ret=TextView(BackPic,i,  "sb3new.txt");
  593.     ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  594.      end_step; del_me;
  595.          } }}
  596.     else   if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+563))
  597.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+80)) ){
  598.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  599.         mes(TIME){
  600.        step(1 ) {
  601.  
  602.     ,,,
  603.  
  604.         cast();,,,
  605.         i=i-1;
  606.         if(i<=0){i=1;}    //←96/11/08 by あんちもん-(2)
  607.         if(i>13)i=13;  //これを追加してください
  608.         ret=TextView(BackPic,i,  "sb3new.txt");
  609.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  610.        end_step;  del_me;
  611.          }} }
  612.       
  613.       else if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+624))
  614.               &&((MesP3 >=  -winY+374 ) && (MesP3 <= -winY+456)) ){
  615.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  616.           mes(TIME){
  617.         step(4 ) {
  618.           cut1=LoadPic("neo2.bmp");//tokyo.city 
  619.          Winsub=OpenWin( cut1, 0, 0, winW, winH,winX, winY,0x000000);  // Winsubへ保存する。
  620.          ,,,,,,,,,,,,,,CloseWin(Winsub); DelPic(cut1 );
  621.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  622.       end_step;  del_me;; 
  623.      } }}
  624.      else if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+590))
  625.               &&((MesP3 >=  -winY+248 ) && (MesP3 <= -winY+330)) ){
  626.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  627.           mes(TIME){
  628.         step(4 ) {PlayWAVE("imo.wav");
  629.           DrawRect(P00 ,0 , 0, 640 , 480); 
  630.          Winsub=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000);  // Winsubへ保存する。
  631.        
  632.         kyara1=LoadPic("Iza.bmp");//IZABEL
  633.         MoveSPic(kyara1,0,0,300,480,P00,120, 140,100,160);, 
  634.         MoveSPic(kyara1,0,0,300,480,P00,120, 70,200,320);,
  635.         MovePic(kyara1,0,0,300,480,P00,120, 0);,,,,,,,,,
  636.         DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara1 );
  637.         kyara2=LoadPic("takashi.bmp");//IZABEL
  638.         MoveSPic(kyara2,0,0,300,480,P00,120, 140,100,160);, 
  639.         MoveSPic(kyara2,0,0,300,480,P00,120, 70,200,320);,
  640.         MovePic(kyara2,0,0,300,480,P00,120, 0);,,,,,,,,,
  641.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara2 );
  642.         kyara3=LoadPic("dan.bmp");//IZABEL
  643.         MoveSPic(kyara3,0,0,300,480,P00,120, 140,100,160);, 
  644.         MoveSPic(kyara3,0,0,300,480,P00,120, 70,200,320);,
  645.         MovePic(kyara3,0,0,300,480,P00,120, 0);,,,,,,,,,,
  646.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara3 );
  647.         kyara4=LoadPic("reiko.bmp");//IZABEL
  648.         MoveSPic(kyara4,0,0,300,480,P00,120, 140,100,160);, 
  649.         MoveSPic(kyara4,0,0,300,480,P00,120, 70,200,320);,
  650.         MovePic(kyara4,0,0,300,480,P00,120, 0);,,,,,,,,,,
  651.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara4 );
  652.         kyara5=LoadPic("desi.bmp");//IZABEL
  653.         MoveSPic(kyara5,0,0,300,480,P00,120, 140,100,160);, 
  654.         MoveSPic(kyara5,0,0,300,480,P00,120, 70,200,320);,
  655.         MovePic(kyara5,0,0,300,480,P00,120, 0);,,,,,,,,,,
  656.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara5 );
  657.          ,,,,,,,,CloseWin(Winsub);
  658.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  659.       end_step;  del_me; 
  660.      } }} 
  661.       else  if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+590))
  662.               &&((MesP3 >=  -winY+170 ) && (MesP3 <= -winY+248)) ){
  663.        
  664.           CloseWin(WinMain);
  665.           DelPic( BackPic );DelPic( P02 );DelPic(P00 );
  666.         del_all; maint();  del_me;
  667.           
  668.    } 
  669.  }
  670.                      
  671.   mes(RBDOWN){  MCI("stop song"); PlayWAVE("imo.wav");    
  672.         CloseWin(WinMain);
  673.          DelPic( BackPic );DelPic( P02 );DelPic(P00 ); 
  674.           del_all;  maint(); 
  675.        
  676.        
  677.         del_me;
  678.     }   
  679.    
  680.  
  681.  
  682.  WinMain=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000); 
  683.                       // WinMainへ保存する。
  684. mes(MIDI_TIME){
  685.          
  686. step(5){,,,,,,,
  687.   
  688.   P02=LoadPic("TEXTJP.BMP");
  689.       BackPic = CreatePic(P02); //背景と同じサイズのピクチャーを生成
  690.       PutCast(P02, BackPic,0,0);//背景を設定（透明色無しモードのCastを生成）
  691.  
  692.    MoveWin(WinMain , BackPic , 0, 0,  winW, winH,winX, winY);
  693.  
  694.    TextColor(0,0,255);//テキストの色：白
  695.    
  696.   SetFont(16, "ＭＳ 明朝", 128,0,0,0,1);
  697.  
  698.   TextWrite( "砂漠の果て 　ゲートウェイ　前半です。",BackPic,70,130);
  699. TextColor(0,0,0);//テキストの色：白
  700. SetFont(14, "ＭＳ 明朝", 128,0,0,0,1);
  701.   TextWrite( "右上のｱｲｺﾝ→でﾍﾟｰｼﾞをおくります。",BackPic,100,170); 
  702.   TextWrite( "右上のｱｲｺﾝ←でﾍﾟｰｼﾞをもどします。",BackPic,100,190); 
  703.   TextWrite( "青い○のｱｲｺﾝはﾒﾆｭｰ画面に戻る",BackPic,100,210); 
  704.   TextWrite( "赤の○のｱｲｺﾝは登場人部一覧です。",BackPic,100,230);
  705.   TextWrite( "下の□のｱｲｺﾝは挿し絵表示です。",BackPic,100,250);
  706.   TextWrite( "強制終了は右クリック二回です。",BackPic,100,270); 
  707.   TextWrite( "何回でもﾒﾆｭｰ画面から、もどってこれます。",BackPic,100,290); 
  708.     DelPic(P01 );
  709. end_step;del_me; }}}
  710. //===========================================================================
  711. //GATEWAY　2
  712.  
  713. //テキストファイル表示関数変更版
  714. #define STARTXPOS 30
  715. #define STARTYPOS 60
  716. #define MAXLINE 24
  717. #define YDIFFPIXEL 16
  718.  
  719.   
  720. gateway2()
  721. { 
  722.  
  723.  int mesnum; 
  724.  
  725.   str Fname;
  726.  Fname="sb3_1n.txt";
  727.       
  728.      
  729.  
  730.  
  731.    int P00,P01,P02,P03,cut1,kyara1,kyara2,kyara3,kyara4,kyara5,menu; 
  732.    int Width,Height;
  733.     int picW,picH,winW,winH,winX,winY;
  734.      int WinMain,Winsub;
  735.    Width=WinInfo(0);                //画面の横幅を調べる。//
  736. Height=WinInfo(1);                //画面の高さを調べる。// 
  737.     Debug(1);
  738.          P00=LoadPic("port.BMP");
  739.    //picture番号Picblackの画像を表示するwindowを開き、そのwindow番号を
  740.         picW= PicWidth(P00);    // 画像の幅(picは任意のPicture番号)
  741.         picH= PicHeight(P00);   // 画像の高さ(picは任意のPicture番号)
  742.         winW= WinInfo(0);       // 画面の幅
  743.         winH= WinInfo(1);       // 画面の高さ
  744.         winX= 0-(winW-picW)/2;  // Window内の画像の位置:X座標
  745.         winY= 0-(winH-picH)/2;  // Window内の画像の位置:Y座標
  746.        
  747.  
  748.   
  749.  
  750.     CapTitle("");
  751.     //マウスをクリックすると、次のページに行きます。
  752.   str MIDIFile[];
  753.   int MIDINum;
  754.  
  755.   MIDINum=0;
  756.   MIDIFile[1]="saba_n3.mid";
  757.   MIDIFile[2]="saba_n4.mid";
  758.   MIDIFile[3]="en_2.mid";
  759.  
  760.   MIDINum=1;                          // [追加]
  761.  
  762.   mes(MIDI_END){
  763.     if(MIDINum==1){                   // [修正]if(MIDINum==0){
  764.       MIDINum=2;
  765.       PlayMIDI(MIDIFile[2]);    // [修正]PlayMIDI(MIDIFile[2]);
  766.     }
  767.  
  768.     else if(MIDINum==2){   MIDINum=2;
  769.       PlayMIDI(MIDIFile[3]);    // [修正]PlayMIDI(MIDIFile[1]);
  770.     }
  771.    else if(MIDINum==3){   MIDINum=3;
  772.       PlayMIDI(MIDIFile[1]);    // [修正]PlayMIDI(MIDIFile[1]);
  773.     }} 
  774.     i=0;
  775. //♪♪♪♪♪♪♪調査用Msgbox♪♪♪♪♪♪♪♪♪♪♪♪♪♪
  776. //MsgBox("TextViewの前",0x000);//追加する
  777.       //テキスト表示
  778.        //ret4=TextView(BackPic,i,"sb3_1n.txt");
  779.      //MsgBox("TextViewの後",0x000);//追加する
  780. //♪♪♪♪♪♪♪調査用Msgbox♪♪♪♪♪♪♪♪♪♪♪♪♪♪     
  781.  
  782.     TextColor(0,0,0);//テキストの色：白
  783.     BackMode(1);  
  784.     BgColor(0,0,0);//テキストのバックの色：黒
  785.     //フォントの設定、外部で１回だけ行う。
  786.  
  787.    SetFont(14, "ＭＳ 明朝", 128,0,0,0,1);
  788.     mes(LBDOWN){
  789.   mesnum=GetMesNo(1);    //←96/11/08 by あんちもん-(1)
  790.  if(       ((MesP2 >=  -winX+564)       && (MesP2 <= -winX+600))
  791.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+80)) ){
  792.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  793.         mes(TIME){
  794.        step(1 ) {PlayWAVE("imo.wav");,,,
  795.     
  796.            
  797.          cast();,,,
  798.         i=i+1;    //←96/11/08 by あんちもん-(2)
  799.        if(i<=0){i=1;}    //←96/11/08 by あんちもん-(2)
  800.         if(i>13)i=13;  //これを追加してください
  801.         ret=TextView(BackPic,i,  "sb3_1n.txt");
  802.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  803.        end_step; del_me;
  804.          } }}
  805.      else  if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+563))
  806.               &&((MesP3 >=  -winY+20 ) && (MesP3 <= -winY+80)) ){
  807.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  808.         mes(TIME){
  809.        step(1 ) {PlayWAVE("imo.wav");
  810.  
  811.     ,,,
  812.  
  813.         cast();,,,
  814.         i=i-1;
  815.         if(i<=0){i=1;}    //←96/11/08 by あんちもん-(2)
  816.         if(i>13)i=13;  //これを追加してください
  817.         ret=TextView(BackPic,i,  "sb3_1n.txt");
  818.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  819.        end_step;  del_me;
  820.          }} }
  821.       
  822.      else  if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+624))
  823.               &&((MesP3 >=  -winY+374 ) && (MesP3 <= -winY+456)) ){
  824.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  825.           mes(TIME){
  826.         step(4 ) {PlayWAVE("imo.wav");
  827.           
  828.         P01=LoadPic("PORT.BMP");
  829.         cut1=LoadPic("TAKASI.bmp");//tokyo.city 
  830.  
  831.          MovePic(cut1,0,0,640,346,P01,0,0,3,20);,,,,
  832.          DrawRect(P01, 0, 346, picW, picH, 0, 0);
  833.          Winsub=OpenWin( P01, 0, 0, winW, winH,winX, winY,0x000000);  // Winsubへ保存する。
  834.         ,,,,,,,,,,,,,,,CloseWin(Winsub);DelPic(cut1 );DelPic(P01 ); 
  835.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  836.       end_step;  del_me;
  837.       } }}
  838.      else if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+590))
  839.               &&((MesP3 >=  -winY+248 ) && (MesP3 <= -winY+330)) ){
  840.   FreezeMes(mesnum);    //←96/11/08 by あんちもん-(1)
  841.           mes(TIME){
  842.         step(4 ) {PlayWAVE("imo.wav");
  843.           DrawRect(P00 ,0 , 0, 640 , 480); 
  844.          Winsub=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000);  // Winsubへ保存する。
  845.        
  846.         kyara1=LoadPic("Iza.bmp");//IZABEL
  847.         MoveSPic(kyara1,0,0,300,480,P00,120, 140,100,160);, 
  848.         MoveSPic(kyara1,0,0,300,480,P00,120, 70,200,320);,
  849.         MovePic(kyara1,0,0,300,480,P00,120, 0);,,,,,,,,,
  850.         DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara1 );
  851.         kyara2=LoadPic("takashi.bmp");//IZABEL
  852.         MoveSPic(kyara2,0,0,300,480,P00,120, 140,100,160);, 
  853.         MoveSPic(kyara2,0,0,300,480,P00,120, 70,200,320);,
  854.         MovePic(kyara2,0,0,300,480,P00,120, 0);,,,,,,,,,
  855.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara2 );
  856.         kyara3=LoadPic("dan.bmp");//IZABEL
  857.         MoveSPic(kyara3,0,0,300,480,P00,120, 140,100,160);, 
  858.         MoveSPic(kyara3,0,0,300,480,P00,120, 70,200,320);,
  859.         MovePic(kyara3,0,0,300,480,P00,120, 0);,,,,,,,,,,
  860.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara3 );
  861.         kyara4=LoadPic("reiko.bmp");//IZABEL
  862.         MoveSPic(kyara4,0,0,300,480,P00,120, 140,100,160);, 
  863.         MoveSPic(kyara4,0,0,300,480,P00,120, 70,200,320);,
  864.         MovePic(kyara4,0,0,300,480,P00,120, 0);,,,,,,,,,,
  865.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara4 );
  866.         kyara5=LoadPic("desi.bmp");//IZABEL
  867.         MoveSPic(kyara5,0,0,300,480,P00,120, 140,100,160);, 
  868.         MoveSPic(kyara5,0,0,300,480,P00,120, 70,200,320);,
  869.         MovePic(kyara5,0,0,300,480,P00,120, 0);,,,,,,,,,,
  870.        DrawRect(P00 ,0 , 0, 640 , 480); ,DelPic(kyara5 );
  871.          ,,,,,,,,CloseWin(Winsub);
  872.   ActivateMes(mesnum);    //←96/11/08 by あんちもん-(1)
  873.       end_step;  del_me; 
  874.      } }} 
  875.    
  876.       else  if(       ((MesP2 >=  -winX+500)       && (MesP2 <= -winX+590))
  877.               &&((MesP3 >=  -winY+170 ) && (MesP3 <= -winY+248)) ){
  878.           mes(TIME){
  879.         step(4 ) {PlayWAVE("imo.wav");
  880.           CloseWin(WinMain);DelPic( BackPic );DelPic( P02 ); DelPic(P00 );
  881.  
  882.         del_all;
  883.        maint();
  884.           end_step; del_me;
  885.      } }} 
  886.  }
  887.                      
  888.  mes(RBDOWN){  MCI("stop song"); PlayWAVE("imo.wav");    
  889.         CloseWin(WinMain);DelPic( BackPic );DelPic( P02 ); DelPic(P00 );
  890.  
  891.             del_all;
  892.            maint(); 
  893.      
  894.        
  895.         del_me;
  896.     }    
  897.  P01=LoadPic("takasi.BMP");
  898.  DrawRect(P00, 0, 346, picW, picH, 0, 0);
  899.   MovePic(P01,0,0,640,346,P00);
  900.  
  901.  
  902.  WinMain=OpenWin( P00, 0, 0, winW, winH,winX, winY,0x000000); 
  903.                       // WinMainへ保存する。
  904. mes(MIDI_TIME){
  905.          
  906. step(5){,,,,,,,,,
  907.  
  908.  
  909.  
  910.   P02=LoadPic("TEXTJP.BMP");
  911.  
  912.       BackPic = CreatePic(P02); //背景と同じサイズのピクチャーを生成
  913.       PutCast(P02, BackPic,0,0);//背景を設定（透明色無しモードのCastを生成）
  914.  
  915.    MoveWin(WinMain , BackPic , 0, 0,  winW, winH,winX, winY);
  916.  
  917. TextColor(0,0,255);//テキストの色：白
  918. SetFont(16, "ＭＳ 明朝", 128,0,0,0,1);
  919.  
  920.   TextWrite( "砂漠の果て 　ゲートウェイ　後半です。",BackPic,70,130);
  921. TextColor(0,0,0);//テキストの色：白
  922. SetFont(14, "ＭＳ 明朝", 128,0,0,0,1);
  923.   TextWrite( "右上のｱｲｺﾝ→でﾍﾟｰｼﾞをおくります。",BackPic,100,170); 
  924.   TextWrite( "右上のｱｲｺﾝ←でﾍﾟｰｼﾞをもどします。",BackPic,100,190); 
  925.   TextWrite( "青い○のｱｲｺﾝはﾒﾆｭｰ画面に戻る",BackPic,100,210); 
  926.   TextWrite( "赤の○のｱｲｺﾝは登場人部一覧です。",BackPic,100,230);
  927.   TextWrite( "下の□のｱｲｺﾝは挿し絵表示です。",BackPic,100,250);
  928.   TextWrite( "強制終了は右クリック二回です。",BackPic,100,270); 
  929.   TextWrite( "何回でもﾒﾆｭｰ画面から、もどってこれます。",BackPic,100,290); 
  930.     DelPic(P01 );  
  931.  
  932.  
  933.  
  934. end_step;del_me; }}}
  935. //===========================================================================
  936.  
  937.  
  938.