home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 February / VPR9702A.ISO / FFILLY / TOKYOS / TOUR.TFY < prev    next >
Text File  |  1996-11-19  |  21KB  |  803 lines
  1.  
  2. int mDown, xoff, yoff;
  3.  
  4.  
  5. // マウスの位置が矩形の範囲内かどうか調べる関数
  6. isInRect(int x1, int y1, int x2, int y2)
  7. {
  8.   x1 = x1 + xoff;  y1 = y1 + yoff;
  9.   x2 = x2 + xoff;  y2 = y2 + yoff;
  10.   if(x1 <= MesP2 && MesP2 < x2 && y1 <= MesP3 && MesP3 < y2){
  11.     return (1);
  12.   }
  13.   return (0);
  14. }
  15.  
  16. int  aikon,aikon1,aikon2;
  17. // オープニング
  18. main()
  19. {
  20.  CapTitle("");  
  21.   int sw, sh, pw, ph;
  22.   LoadPic("otr.bmp");
  23. SetPaintColor(0x000000 );
  24.  
  25. Debug(1);
  26.  DrawRect(0 ,0 , 0, 640 , 480);
  27.   sw = WinInfo(0);  sh = WinInfo(1);
  28.   pw = PicWidth(0); ph = PicHeight(0);
  29.   xoff = (sw - pw) / 2;  yoff = (sh - ph) / 2;
  30.   OpenWin(0, 0, 0, sw, sh, -xoff, -yoff, 0x000000);
  31.   mDown = 0;
  32.  
  33.   aikon=LoadPic("aikon.BMP");
  34.   aikon1=LoadPic("aikon1.BMP");
  35.   aikon2=LoadPic("aikon2.BMP");
  36.   str MIDIFile[];
  37.   int MIDINum;
  38.  
  39.   MIDINum=0;
  40.   MIDIFile[1]="saba_n3.mid";
  41.   MIDIFile[2]="saba_n4.mid";
  42.   MIDIFile[3]="sabaku_2.mid";
  43.  
  44.   MIDINum=1;                          // [追加]
  45.   PlayMIDI(MIDIFile[3]);        // [修正]PlayMIDI(MIDIFile[1]);
  46.   mes(MIDI_END){
  47.     if(MIDINum==1){                   // [修正]if(MIDINum==0){
  48.       MIDINum=2;
  49.       PlayMIDI(MIDIFile[2]);    // [修正]PlayMIDI(MIDIFile[2]);
  50.     }
  51.  
  52.     else if(MIDINum==2){   MIDINum=2;
  53.       PlayMIDI(MIDIFile[1]);    // [修正]PlayMIDI(MIDIFile[1]);
  54.     }
  55.    else if(MIDINum==3){   MIDINum=3;
  56.       PlayMIDI(MIDIFile[1]);    // [修正]PlayMIDI(MIDIFile[1]);
  57.     }} 
  58.  CapTitle("");
  59.   TextColor(255,255,255);//テキストの色：白
  60.     BackMode(1);  
  61.     BgColor(0,0,0);//テキストのバックの色：黒
  62.    
  63.     SetFont(18, "ＭＳ 明朝", 128);     
  64.   scene1();
  65.  mes(RBDOWN){  MCI("stop song");    
  66.         CloseWin(0);DelPic(0);
  67.         Shell( GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  68.       "tokyoms.fil");   // 2つ目のfillyの起動       
  69.        
  70.         del_us; ExitTitle(); 
  71.         del_me;
  72.     }   
  73. }
  74.  
  75.  
  76. // エンディング
  77. scene0()
  78. {
  79. ;
  80. }
  81.  
  82.  
  83. // 都庁遺跡の朝焼け
  84. scene1()
  85. {
  86.   int p0,tubu;
  87.  
  88.   p0 = LoadPic("op7.bmp");
  89. // TextWrite( "s1 1",p0,0,0);
  90.    tubu=LoadPic("tubu.bmp");   
  91.      
  92.   mes(TIME){ step(2){
  93.     
  94.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  95.     DrawRect(0 ,0 , 390, 640 , 480); 
  96.     
  97.     TextWrite( "地上に人間が住むことがなくなって",0,150,390);
  98.    TextWrite( "どのくらいの月日が過ぎたろう",0,150,410);,,,
  99.   MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);
  100.   MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);,,,,,,, 
  101.     end_step;del_me;
  102.   }}
  103.   mes(LBDOWN){
  104.     mDown = 1;
  105.   }
  106.   mes(LBUP){  if(mDown == 1){
  107.  
  108.     if(isInRect(0, 64, 410, 474)) {
  109.   
  110.         PlayWAVE("kote.wav");
  111.       DelPic(p0); DelPic(tubu);   del_us; 
  112.       scene2();
  113.       
  114.      del_me;
  115.  
  116.     } else {
  117.    mes(TIME){ step(2){   
  118.  
  119.       
  120.       
  121.         
  122.        MovePic(tubu , 231 , 32, 77, 60, 0 , 550, 301, 0, 0xffffff);
  123.          MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0); 
  124.         MovePic(tubu , 231 , 32, 77, 60, 0 , 450, 281, 0, 0xffffff);
  125.         MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  126.        MovePic(tubu , 231 , 32, 77, 60, 0 , 350, 261, 0, 0xffffff);
  127.        MovePic(tubu , 231 , 32, 77, 60, 0 , 250, 241, 0, 0xffffff);
  128.        MovePic(tubu , 231 , 32, 77, 60, 0 , 150, 221, 0, 0xffffff);
  129.        MovePic(tubu , 231 , 32, 77, 60, 0 , 100, 201, 0, 0xffffff);
  130.        MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  131.        MovePic(tubu , 231 , 32, 77, 60, 0 , 50, 181, 0, 0xffffff);
  132.        MovePic(tubu , 231 , 32, 77, 60, 0 , 0, 161, 0, 0xffffff);
  133.        MovePic(tubu , 231 , 32, 77, 60, 0 , -50, 101, 0, 0xffffff);
  134.       MovePic(tubu , 231 , 32, 77, 60, 0 , -100, 81, 0, 0xffffff);
  135.        MovePic(tubu , 231 , 32, 77, 60, 0 , -150, 41, 0, 0xffffff);
  136.        MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  137.       PlayWAVE("imo.wav");
  138.       
  139.       MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  140.      end_step;del_me;}}
  141.       }
  142.     mDown = 0;
  143.   }}
  144. }
  145.  
  146.  
  147. //病院遠景 
  148. scene2()
  149. {
  150.   int p0 ,tubu;
  151.  
  152.   p0 = LoadPic("byouin1.bmp");
  153. // TextWrite( "s2 1",p0,0,0);
  154.    tubu=LoadPic("tubu.bmp");  
  155.   mes(TIME){ step(2){
  156.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);,,,,, 
  157.   DrawRect(0 ,0 , 390, 640 , 480); 
  158.     TextWrite( "わずかに残る地上の病院の建物。",0,150,430);
  159.     TextWrite( "強い紫外線の空が美しい。",0,150,450);,,
  160.  
  161.     MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);
  162.    MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,,,,,,,,, 
  163.     end_step;del_me;
  164.   }}
  165.   mes(LBDOWN){
  166.     mDown = 1;
  167.   }
  168.   mes(LBUP){  if(mDown == 1){
  169.     if(isInRect(0, 64, 410, 474)) {
  170.         PlayWAVE("kote.wav");
  171.  
  172.       DelPic(p0); DelPic(tubu);  del_us;  scene3();  del_me;
  173.     } else if(isInRect(570, 634, 410, 474)) {
  174.  
  175.     mes(TIME){ step(2){
  176.         PlayWAVE("imo.wav");
  177.       
  178.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 100, 250, 38, 20,0,0xffffff);,,,,,,,,,,, 
  179.        PlayWAVE("imo.wav");
  180.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 150, 260, 38, 20,0,0xffffff);,,,,,,,,,,,
  181.       PlayWAVE("imo.wav"); 
  182.        MoveSPic(tubu , 231 , 32, -77, 60, 0 , 200, 270, 38, 20,0,0xffffff);,,,,,,,,,,, 
  183.       PlayWAVE("imo.wav");
  184.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 250, 280, 38, 20,0,0xffffff);,,,,,,,,,,, 
  185.       PlayWAVE("imo.wav");
  186.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 300, 290, 38, 20,0,0xffffff);,,,,,,,,,,, 
  187.        PlayWAVE("imo.wav");
  188.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 350, 300, 38, 20,0,0xffffff);,,,,,,,,,,,
  189.       PlayWAVE("imo.wav"); 
  190.        MoveSPic(tubu , 231 , 32, -77, 60, 0 , 400, 310, 38, 20,0,0xffffff);,,,,,,,,,,, 
  191.       PlayWAVE("imo.wav");
  192.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 450, 320, 38, 20,0,0xffffff);,,,,,,,,,,, 
  193.        PlayWAVE("imo.wav");
  194.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 500, 330, 38, 20,0,0xffffff);,,,,,,,,,,,     
  195.    
  196.    
  197.       MovePic(p0, 100, 250, 450, 140, 0,100,250,1,20);,,,,,,,,,,,,,,,,,,,,,,,, 
  198.        end_step;del_me;
  199.       
  200.   }}
  201.     } else {
  202.     mes(TIME){ step(2){
  203.         PlayWAVE("imo.wav");
  204.        
  205.        MoveSPic(tubu , 231 , 32, -77, 60, 0 , 100, 250, 38, 20,0,0xffffff);,,,,,,,,,,, 
  206.        PlayWAVE("imo.wav");
  207.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 150, 260, 38, 20,0,0xffffff);,,,,,,,,,,,
  208.       PlayWAVE("imo.wav"); 
  209.        MoveSPic(tubu , 231 , 32, -77, 60, 0 , 200, 270, 38, 20,0,0xffffff);,,,,,,,,,,, 
  210.       PlayWAVE("imo.wav"); 
  211.         MoveSPic(tubu , 231 , 32, -77, 60, 0 , 250, 280, 38, 20,0,0xffffff);,,,,,,,,,,, 
  212.       PlayWAVE("imo.wav");
  213.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 300, 290, 38, 20,0,0xffffff);,,,,,,,,,,, 
  214.        PlayWAVE("imo.wav");
  215.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 350, 300, 38, 20,0,0xffffff);,,,,,,,,,,,
  216.       PlayWAVE("imo.wav"); 
  217.        MoveSPic(tubu , 231 , 32, -77, 60, 0 , 400, 310, 38, 20,0,0xffffff);,,,,,,,,,,, 
  218.       PlayWAVE("imo.wav");
  219.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 450, 320, 38, 20,0,0xffffff);,,,,,,,,,,, 
  220.        PlayWAVE("imo.wav");
  221.       MoveSPic(tubu , 231 , 32, -77, 60, 0 , 500, 330, 38, 20,0,0xffffff);,,,,,,,,,,,     
  222.   
  223.      MovePic(p0, 100, 250, 450, 140, 0,100,250,1,20);,,,,,,,,,,,,,,,,,,,,,,,, 
  224.       end_step;del_me;
  225.       
  226.       
  227.   }} 
  228.   
  229.      
  230.     }
  231.     mDown = 0;
  232.   }}
  233. }
  234.  
  235.  
  236. // neotokyo
  237. scene3()
  238. {
  239.   int p0,neoc;
  240.  
  241.   p0 = LoadPic("neotokyo.bmp");
  242.   DrawRect(0 ,0 , 0, 640 , 480);
  243. //  TextWrite( "s3 1",p0,0,0);
  244.    neoc = LoadPic("CITY2.bmp");
  245.   mes(TIME){ step(2){
  246.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);,,,,,, 
  247.    DrawRect(0 ,0 , 390, 640 , 480); 
  248.    TextWrite( "東京湾の下に作られた街では、",0,150,430);
  249.    TextWrite( "人々がひしめいてくらしている。",0,150,450);
  250.    MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);
  251.  
  252.    MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,,,,,, 
  253.  
  254.     end_step;del_me;
  255.   }}
  256.   mes(LBDOWN){
  257.     mDown = 1;
  258.   }
  259.   mes(LBUP){  if(mDown == 1){
  260.     if(isInRect(0, 64, 410, 474)) {
  261.  
  262.         PlayWAVE("kote.wav");
  263.        DelPic(p0);DelPic(neoc);  del_us;  scene4();  del_me; 
  264.       DrawRect(0 ,0 , 0, 640 , 480);
  265.        del_us;   del_me;
  266.     } else if(isInRect(570, 634, 410, 474)) {
  267.         mes(TIME){ step(2){
  268.         PlayWAVE("kote.wav");
  269.        neoc = LoadPic("ntc.bmp");
  270.       MovePic(neoc, 0, 0, 300, 250, 0,0, 0, 2,10);,,,,,,,,,,,,
  271.       MovePic(p0, 0, 0, 300, 250, 0);,,,,,,
  272.       MovePic(neoc, 0, 0, 300, 250, 0,0, 0, 2,10);,,,,,,,,,,,,,
  273.       MovePic(p0, 0, 0, 300, 250, 0);,,,,,,,
  274.  
  275.        end_step;del_me;
  276.    }}
  277.       
  278.     } else {
  279.        mes(TIME){ step(2){
  280.         PlayWAVE("kote.wav");
  281.        
  282.       MovePic(neoc, 0, 0, 300, 250, 0,0, 0, 2,10);,,,,,,,,,,,,,,
  283.       MovePic(p0, 0, 0, 300, 250, 0);,,,,,,,,,
  284.       MovePic(neoc, 0, 0, 300, 250, 0,0, 0, 2,10);,,,,,,,,,,,,,,
  285.       MovePic(p0, 0, 0, 300, 250, 0);,,,,,,,,,
  286.      
  287.        end_step;del_me;
  288.    }}
  289.    
  290.     }
  291.     mDown = 0;
  292.   }}
  293.   }
  294.  
  295.  
  296. // neo2
  297. scene4()
  298. {
  299.   int p0,neoc;
  300.  
  301.   p0 = LoadPic("neo2.bmp");
  302.   DrawRect(0 ,0 , 0, 640 , 480);
  303.   neoc = LoadPic("neo.bmp");
  304. // TextWrite( "s4 1",p0,0,0); 
  305.   mes(TIME){ step(2){
  306.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0); 
  307.    DrawRect(0 ,0 , 390, 640 , 480); 
  308.     TextWrite( "日光が遮断されているが、",0,150,430);
  309.     TextWrite( "人工の光がまぶしいほどだ。",0,150,450);,,,,
  310.    MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);,,,, 
  311.    MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,
  312.     end_step;del_me;
  313.   }}
  314.  mes(LBDOWN){
  315.     mDown = 1;
  316.   }
  317.   mes(LBUP){  if(mDown == 1){
  318.     if(isInRect(0, 64, 410, 474) ){
  319.    mes(TIME){ step(2){
  320.         PlayWAVE("kote.wav");
  321.        
  322.       
  323.        DelPic(p0); DelPic(neoc);  del_us;  scene5(); 
  324.        end_step;  del_me;
  325.   }}
  326.     } else if(isInRect(570, 634, 410, 474)) {
  327.       mes(TIME){ step(2){
  328.         PlayWAVE("kote.wav");
  329.  
  330.       MovePic(neoc, 0, 0, 640, 346, 0);,,,,,,,,,,,,,
  331.       MovePic(p0, 0, 0, 640, 346, 0);,,,,,,
  332.       MovePic(neoc, 0, 0, 640, 346, 0);,,,,,,,,,,,,,
  333.       MovePic(p0, 0, 0, 640, 346, 0);,,,,,,
  334.      
  335.        end_step;del_me;
  336.  
  337.    }}
  338.    
  339.      } else {
  340.     mes(TIME){ step(2){
  341.         PlayWAVE("kote.wav");
  342.  
  343.       MovePic(neoc, 0, 0, 640, 346,0);,,,,,,,,,,,,,,,,,
  344.       MovePic(p0, 0, 0, 640, 346, 0);,,,,,,,,,
  345.       MovePic(neoc, 0, 0, 640, 346, 0);,,,,,,,,,,,,,,,,,
  346.       MovePic(p0, 0, 0, 640, 346, 0);,
  347.    
  348.        end_step;del_me;
  349.  
  350.    }}
  351.     }
  352.    
  353.     mDown = 0;
  354.   }}
  355.  
  356.  }
  357.  
  358.  
  359. // 
  360. scene5()
  361. {
  362.   int p0,p1;
  363.    p1 = LoadPic("streetc.bmp");
  364.   p0 = LoadPic("street.bmp");
  365. // TextWrite( "s5 1",p0,0,0);
  366. DrawRect(0 ,0 , 0, 640 , 480);
  367.   mes(TIME){ step(2){
  368.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  369.     DrawRect(0 ,0 , 390, 640 , 480); 
  370.     TextWrite( "ダウンタウンの街は薄汚れていたが",0,150,430);
  371.      TextWrite( "熱い活気が満ちている",0,150,450);,,,, 
  372.     MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);,,,, 
  373.     MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,
  374.     end_step;del_me;
  375.   }}
  376.   mes(LBDOWN){
  377.     mDown = 1;
  378.   }
  379.   mes(LBUP){  if(mDown == 1){
  380.     if(isInRect(0, 64, 410, 474)) {
  381.         PlayWAVE("kote.wav");
  382.       
  383.       DelPic(p0);DelPic(p1);  scene6();  del_us;  del_me;
  384.     } else if(isInRect(570, 637, 410, 474)) {
  385.       mes(TIME){ step(2){
  386.         PlayWAVE("imo.wav");
  387.     
  388.          MovePic(p1, 0, 0, 150, 90, 0,450,300,12,20);,,,,,,,,,,,,,,,,,,,,
  389.          MovePic(p0, 450, 300, 150, 90, 0,450,300);,
  390.       end_step;  del_me; 
  391.     }}
  392.      } else {
  393.       mes(TIME){ step(2){
  394.         PlayWAVE("imo.wav");
  395.         
  396.          MovePic(p1, 0, 0, 150, 90, 0,450,300,12,20);,,,,,,,,,,,,,,,,,,,,,
  397.          MovePic(p0, 450, 300, 150, 90, 0,450,300);,
  398.          end_step; del_me; 
  399.     }}
  400.    }
  401.   
  402.     mDown = 0;
  403.   }}
  404. }
  405.  
  406.  
  407. // street
  408. scene6()
  409. {
  410.   int p0, fr;
  411.   p0 = LoadPic("DISPLAY.bmp");
  412.   fr = LoadPic("DISPLAY1.bmp");
  413.  DrawRect(0 ,0 , 0, 640 , 480);
  414. //  TextWrite( "s6 1",p0,0,0);
  415.   mes(TIME){ step(2){
  416.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);,,,,,   
  417.     TextWrite( "ダンの書斎...窓から街の光が見える",0,150,450);,,,
  418.     MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);,,,
  419.     MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,,,, 
  420.     end_step; del_me;
  421.   }}
  422.  mes(LBDOWN){
  423.     mDown = 1;
  424.   }
  425.   mes(LBUP){  if(mDown == 1){
  426.     if(isInRect(0, 64, 410, 474)) {
  427.         PlayWAVE("kote.wav");
  428.       DrawRect(p0 ,0 , 0, 640 , 480);
  429.       DelPic(p0);  DelPic(fr); del_us;  scene7();  del_me;
  430.     } else if(isInRect(570, 634, 410, 474)) {
  431.      mes(TIME){ step(2){PlayWAVE("imo.wav");  
  432.  
  433.        MovePic(fr, 0, 0, 269, 259, 0,247,20,12,20);,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  434.       MovePic(p0, 0, 0, 640, 346, 0);,
  435.         end_step;del_me;   }} 
  436.  
  437.  } else {
  438.      mes(TIME){ step(2){PlayWAVE("imo.wav");   
  439.       MovePic(fr, 0, 0, 269, 259, 0,247,20,12,20);,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  440.       MovePic(p0, 0, 0, 640, 346,0);,, 
  441.         end_step; del_me; }}
  442.     }
  443.     mDown = 0;
  444.   }} 
  445.  
  446. }
  447.  
  448. // 宇宙港
  449. scene7()
  450. {
  451.   int p0,p1;
  452. SetPaintColor(0x000000 );
  453.  p1 = LoadPic("port11.bmp");
  454.   p0 = LoadPic("port.bmp");
  455. //  TextWrite( "s7 1",p0,0,0);
  456.   DrawRect(0 ,0 , 0, 640 , 480);
  457.   mes(TIME){ step(2){
  458.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);,,,,,,
  459.  
  460.    TextWrite( "宇宙港には火星からの輸送船が",0,150,430);
  461.     TextWrite( "出港許可を待って待機している。",0,150,450);,,,, 
  462.     MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);,,,,,,, 
  463.     MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,
  464.     end_step;del_me;
  465.   }}
  466.  mes(LBDOWN){
  467.     mDown = 1;
  468.   }
  469.   mes(LBUP){  if(mDown == 1){
  470.     if(isInRect(0, 64, 410, 474)) {
  471.         PlayWAVE("kote.wav");
  472.        DrawRect(p0 ,0 , 0, 640 , 480);
  473.        DelPic(p0);DelPic(p1);  del_us;  scene8();  del_me;
  474.  
  475.     } else if(isInRect(570, 634, 410, 474)) {
  476.       mes(TIME){ step(2){
  477.         PlayWAVE("imo.wav");
  478.  
  479.          MovePic(p1, 0, 0, 640, 410, 0);,,,,,
  480.          MovePic(p0,0,0,640,410, 0);,,,,,,,
  481.           MovePic(p1, 0, 0, 640, 410, 0);,,,,,
  482.          MovePic(p0, 0, 0, 640, 410, 0);,,,,,,,    
  483.          end_step;del_me;
  484.     }} 
  485.      } else {
  486.       mes(TIME){
  487.      step(2){
  488.         PlayWAVE("imo.wav");
  489.        
  490.          MovePic(p1, 0, 0, 640, 410, 0);,,,,,,,,
  491.          MovePic(p0, 0, 0, 640, 410, 0);,,,,,,,
  492.          MovePic(p1, 0, 0, 640, 410, 0);,,,,,
  493.          MovePic(p0, 0, 0, 640, 410, 0);,,,,,,,
  494.         end_step;del_me;
  495. }}
  496.   
  497.   } 
  498.  
  499.     mDown = 0;
  500.   }}
  501.  }  
  502.  
  503.  
  504.  
  505. // 宇宙港１
  506. scene8()
  507. {
  508.   int p0,p1;
  509.  
  510.   p0 = LoadPic("port14.bmp");
  511.    p1 = LoadPic("port1_4.bmp");
  512. //   TextWrite( "s8 1",p0,0,0);
  513.    DrawRect(0 ,0 , 0, 640 , 480);
  514.   mes(TIME){ step(2){
  515.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);,,,,,,,,
  516.     
  517.      TextWrite( "着陸船が降りてきました。",0,150,450);,,,,,
  518.     MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);,,,,,,, 
  519.     MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,
  520.     end_step;del_me;
  521.   }}
  522.   mes(LBDOWN){
  523.     mDown = 1;
  524.   }
  525.   mes(LBUP){  if(mDown == 1){
  526.     if(isInRect(0, 64, 410, 474)) {
  527.         PlayWAVE("kote.wav");
  528.         DrawRect(0 ,0 , 0, 640 , 480);
  529.       DelPic(p0);  del_us;
  530.   scene9();del_me;
  531.    } else if(isInRect(570, 634, 410, 474)) {
  532.       mes(TIME){ step(2){
  533.         PlayWAVE("imo.wav");
  534.  
  535.          MovePic(p1, 0, 0, 640, 346, 0);,,,,,
  536.          MovePic(p0,0,0,640,346, 0);,,,,,,,
  537.           MovePic(p1, 0, 0, 640, 346, 0);,,,,,
  538.          MovePic(p0, 0, 0, 640, 346, 0);,,,,,,,    
  539.          end_step;del_me;
  540.     }} 
  541.      } else {
  542.       mes(TIME){
  543.      step(2){
  544.         PlayWAVE("imo.wav");
  545.        
  546.          MovePic(p1, 0, 0, 640, 346, 0);,,,,,,,,
  547.          MovePic(p0, 0, 0, 640, 346, 0);,,,,,,,
  548.          MovePic(p1, 0, 0, 640, 346, 0);,,,,,
  549.          MovePic(p0, 0, 0, 640, 346, 0);,,,,,,,
  550.         end_step;del_me;
  551. }}
  552.  
  553.     }
  554.     mDown = 0;
  555.   }}
  556. }
  557.  
  558.  
  559. // 宇宙港２
  560. scene9()
  561. {
  562.   int p0;
  563.  
  564.   p0 = LoadPic("port13.bmp");
  565. //  TextWrite( "s9 1",p0,0,0);
  566.  DrawRect(0 ,0 , 0, 640 , 480);
  567.   mes(TIME){ step(2){
  568.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);,,,,,,,, 
  569.     
  570.    
  571.     TextWrite( "ゆっくりと地上に近づいてきます。",0,150,450);,,,,
  572.     MovePic(aikon1, 0, 0, 64, 64, 0,570,410,3,10);,,
  573.     MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);,,
  574.     end_step;del_me;
  575.   }}
  576.   mes(LBDOWN){
  577.     mDown = 1;
  578.   }
  579.   mes(LBUP){  if(mDown == 1){
  580.     if(isInRect(0, 64, 410, 474)) {
  581.         PlayWAVE("kote.wav");
  582.      
  583.       DelPic(p0);  del_us;  scene10();  del_me;
  584.     } else if(isInRect(570, 634, 0, 64)) {
  585.         PlayWAVE("imo.wav");
  586.         DelPic(p0);  del_us;  scene14();  del_me;
  587.         
  588.    } else {
  589.       PlayWAVE("imo.wav");
  590.      DelPic(p0);  del_us;  scene14();  del_me;
  591.     }
  592.  
  593.     mDown = 0;
  594.   }}
  595.     }
  596.  
  597.  
  598. // 宇宙港３
  599. scene10()
  600. {
  601.   int p0;
  602.  
  603.   p0 = LoadPic("port12.bmp");
  604. // TextWrite( "s10 1",p0,0,0);
  605. DrawRect(0 ,0 , 0, 640 , 480);
  606.   mes(TIME){ step(2){
  607.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);,,
  608.  
  609.     TextWrite( "輸送船が運んできた貨物で、",0,150,430);
  610.     TextWrite( "人々は命をつないでいます。",0,150,450);,,,,
  611.  
  612.      MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);  
  613.      MovePic(aikon1, 0, 0, 64, 64, 0,570,410,3,10);,,,,,,  
  614.     end_step;
  615.   }}
  616.   mes(LBDOWN){
  617.     mDown = 1;
  618.   }
  619.   mes(LBUP){  if(mDown == 1){
  620.     if(isInRect(0, 64, 410, 474)) {
  621.      mes(TIME){ step(2){
  622.     
  623.        
  624.      
  625.       PlayWAVE("imo.wav");
  626.  
  627.       DelPic(p0);  
  628.    scene11(); end_step; del_us; del_me;
  629. }}
  630.     } else if(isInRect(0, 64, 570, 640)) {
  631.         PlayWAVE("imo.wav");
  632.       DelPic(p0);  del_us;  scene14();  del_me;
  633.    
  634.    
  635.  } else {
  636.       PlayWAVE("imo.wav");
  637.       DelPic(p0);  del_us;  scene14();  del_me;
  638.     }
  639.     mDown = 0;
  640.   }}
  641. }
  642.  
  643.  
  644. // 都庁遺跡　日中
  645. scene11()
  646. {
  647.   int p0,run;
  648.  run = LoadPic("run1.bmp");
  649.   p0 = LoadPic("op8.bmp");
  650. //  TextWrite( "s11 1",p0,0,0);
  651.  DrawRect(0 ,0 , 430, 640 , 480); 
  652.   mes(TIME){ step(2){
  653.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  654.     DrawRect(p0 ,0 , 346, 640 , 480);
  655.   TextWrite( "日中の都庁遺跡周辺の風景",0,150,450);,,,
  656.     MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10); 
  657.     MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,,,,,,, 
  658.     end_step;del_me;
  659.   }}
  660.   mes(LBDOWN){
  661.     mDown = 1;
  662.   }
  663.   mes(LBUP){  if(mDown == 1){
  664.     if(isInRect(0, 64, 410, 474)) {
  665.         PlayWAVE("kote.wav");
  666.  
  667.       DelPic(p0);  DelPic(run); del_us;  scene12();  del_me;
  668.     } else if(isInRect(570, 634, 410, 474)) {
  669.      mes(TIME){ step(4){
  670.         PlayWAVE("imo.wav");
  671.       MovePic(run, 0, 0, 54, 90, 0,244,263,0,0xffffff);,,,,,,,,,,,,
  672.        MovePic(p0, 264, 263, 54, 90, 0,244,263);
  673.       
  674.       end_step;  del_me;}}
  675.    } else {
  676.      mes(TIME){ step(4){
  677.       PlayWAVE("imo.wav");
  678.       MovePic(run, 0, 0, 54, 90, 0,244,263,0,0xffffff);,,,,,,,,,,,,,,
  679.        MovePic(p0, 264, 263, 54, 90, 0,244,263);
  680.      
  681.    
  682.        end_step;del_me;}}
  683.     }
  684.   
  685.     mDown = 0;
  686.   }}
  687.  
  688.   }
  689.  
  690. // 月
  691. scene12()
  692. {
  693.   int p0,rei;
  694.   rei = LoadPic("tubu.bmp");
  695.   p0 = LoadPic("back.bmp");
  696.  DrawRect(0 ,0 , 430, 640 , 480);
  697. // TextWrite( "s12 1",p0,0,0);
  698.  
  699.   mes(TIME){ step(2){
  700.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  701.  
  702.     TextWrite( "夜明け近くの地上の風景",0,150,450);,
  703.  
  704.    MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10); 
  705.    MovePic(aikon2, 0, 0, 64, 64, 0,570,410,3,10);,,,,,, 
  706.     end_step;del_me;
  707.   }}
  708.   mes(LBDOWN){
  709.     mDown = 1;
  710.   }
  711.   mes(LBUP){  if(mDown == 1){
  712.     if(isInRect(0, 64, 410, 474)) {
  713.         PlayWAVE("kote.wav");
  714.        DrawRect(p0 ,0 , 0, 640 , 480);
  715.       DelPic(p0); DelPic(rei); del_us;  scene13();  del_me;
  716.     } else if(isInRect(570, 634, 410, 474)) {
  717.      mes(TIME){ step(2){
  718.         PlayWAVE("imo.wav");
  719.        MovePic(rei , 231 , 32, 77, 60, 0 , 350, 251, 0, 0xffffff);,,,,,,,,,,,,,,,,,,
  720.       MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  721.        end_step;del_me;
  722.     }}
  723.     } else {
  724.      mes(TIME){ step(2){
  725.      PlayWAVE("imo.wav"); 
  726.     
  727.       MovePic(rei , 231 , 32, 77, 60, 0 , 350, 251, 0, 0xffffff);,,,,,,,,,,,,,,,,
  728.       MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  729.      end_step;del_me;
  730.   }}
  731.     }
  732.     mDown = 0;
  733.   }}
  734. }
  735.  
  736.  
  737. // 地上へのｹﾞｰﾄ近く
  738. scene13()
  739. {
  740.   int p0;
  741.  
  742.   p0 = LoadPic("op2.bmp");
  743.  DrawRect(0 ,0 , 0, 640 , 480);
  744. //  TextWrite( "s13 1",p0,0,0);
  745.   
  746.   
  747.   mes(TIME){ step(2){
  748.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  749.  
  750.      TextWrite( "地上へ通じるｹﾞｰﾄ近くの風景",0,150,450);,,,,
  751.     MovePic(aikon, 0, 0, 64, 64, 0,0,410,3,10);,,,,,  
  752.     end_step;del_me;
  753.   }}
  754.   mes(LBDOWN){
  755.     mDown = 1;
  756.   }
  757.   mes(LBUP){  if(mDown == 1){
  758.     if(isInRect(0, 64, 410, 474)) {
  759.         PlayWAVE("kote.wav");
  760.        DrawRect(p0 ,0 , 0, 640 , 480);
  761.       DelPic(p0);  del_us;  scene14();  del_me;
  762.      } else {
  763.       PlayWAVE("imo.wav");
  764.       DelPic(p0);  del_us;  scene14();  del_me;
  765.  
  766.     }
  767.  
  768.     mDown = 0;
  769.   }}
  770.    }
  771.  
  772.  
  773. // タカシとイザベル
  774. scene14()
  775. {
  776.   int p0;
  777.  
  778.  
  779.   p0 = LoadPic("takasi.bmp");
  780. // TextWrite( "s14 1",p0,0,0);
  781. mes(TIME){
  782.          
  783. step(2){   
  784.  
  785.  
  786.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0);
  787.     DrawRect(0 ,0 , 346, 640 , 480);
  788.     TextWrite( "タカシとイザベル。チューブカー内部で。",0,150,450);,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  789.   
  790.       MCI("stop song");DelPic(p0);  CloseWinAll();DelPic(0);DelPic(aikon);DelPic(aikon1);
  791.        Shell( GetIniStr("Directory", "system", "0", "inst.ini") + "\filly.exe",
  792.       "tokyoms.fil");   // 2つ目のfillyの起動            
  793.  
  794.         del_all;
  795.      end_step;   ExitTitle(); del_me;
  796.   
  797.     
  798.  
  799. }}
  800.  
  801.  
  802.  
  803. }