home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / FFILLY / Lumina / Lumina.tfy < prev    next >
Text File  |  1997-02-26  |  5KB  |  210 lines
  1. // Created By SPON96.06
  2. //
  3. // 神戸ルミナリエ
  4. //
  5. //  by 橋本　英治　　音楽：豪酒さん
  6. //
  7.  
  8. #info INAM "神戸ルミナリエ"
  9. #info IART "橋本　英治　　音楽：豪酒さん"
  10. #info ICMT "デジタルカメラＤＳ７で撮影"
  11. #info COMP "Sylvius Leopold Weiss（1686-1750)"
  12. #info GRPC "橋本　英治"
  13. #info EFCT "橋本　英治"
  14. #info IDIM 640x400 ,256
  15. #info JINT Hope
  16. #info TRNS Ask me
  17. #info MDFY No
  18.  
  19.  
  20. int mDown, xoff, yoff;
  21.  
  22.  
  23. // マウスの位置が矩形の範囲内かどうか調べる関数
  24. isInRect(int x1, int y1, int x2, int y2)
  25. {
  26.   x1 = x1 + xoff;  y1 = y1 + yoff;
  27.   x2 = x2 + xoff;  y2 = y2 + yoff;
  28.   if(x1 <= MesP2 && MesP2 < x2 && y1 <= MesP3 && MesP3 < y2){
  29.     return (1);
  30.   }
  31.   return (0);
  32. }
  33.  
  34.  
  35. // オープニング
  36. main()
  37. {
  38.   BackMode(1); 
  39.   SetFont(20,"ＭＳ ゴシック",128,0,0,0,400,0);
  40.   TextColor(255,255,255);
  41.  int sw, sh, pw, ph;
  42.   LoadPic("open.bmp");
  43.   
  44.   sw = WinInfo(0);  sh = WinInfo(1);
  45.   pw = PicWidth(0); ph = PicHeight(0);
  46.   xoff = (sw - pw) / 2;  yoff = (sh - ph) / 2;
  47.   OpenWin(0, 0, 0, sw, sh, -xoff, -yoff, 0x000000);
  48.   mDown = 0;
  49.   scene1();
  50. }
  51.  
  52.  
  53. // エンディング
  54. scene0()
  55. {
  56.   CloseWinAll();
  57. }
  58.  
  59.  
  60. // シーン1
  61. scene1()
  62. {
  63.   int p0;
  64.  
  65.   p0 = LoadPic("cover2.bmp");
  66.   
  67.   mes(TIME){ step(4){
  68.     PlayMIDI("gosyu001.mid"); 
  69.   TextColor(255,255,255);
  70.   TextWrite("撮影：橋本英治（DS-7で撮影） 音楽：豪酒さん(ﾌｧﾝﾀｼﾞｰ幻想曲)",0,0,491); 
  71.   MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0, 0, 0, 1, 50); ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  72.  
  73.     DelPic(p0);  del_us;  scene2();  del_me;
  74.   
  75.     end_step;
  76.   }}
  77. }
  78.  
  79.  
  80. // シーン2
  81. scene2()
  82. {
  83.   int p0;
  84.  
  85.   p0 = LoadPic("lum025.bmp");
  86.  
  87.   mes(TIME){ step(4){
  88.    TextColor(0,0,0);
  89.    TextWrite("撮影：橋本英治（DS-7で撮影） 音楽：豪酒さん(ﾌｧﾝﾀｼﾞｰ幻想曲)",0,0,491);  
  90.    TextColor(255,255,255);
  91.    TextWrite("      商店街の入り口付近。建物はルミナリエで装飾される。     ",0,0,491); 
  92.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0, 0, 0, 1, 50); ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  93.     DelPic(p0);  del_us;  scene3();  del_me;
  94.     end_step;
  95.   }}
  96. }
  97.  
  98.  
  99. // シーン3
  100. scene3()
  101. {
  102.   int p0;
  103.  
  104.   p0 = LoadPic("lum007.bmp");
  105.  
  106.   mes(TIME){ step(4){
  107.    TextColor(0,0,0);
  108.    TextWrite("      商店街の入り口付近。建物はルミナリエで装飾される。     ",0,0,491);  
  109.    TextColor(255,255,255);
  110.    TextWrite("  商店街のアーケード。はるか向こうまでルミナリエが続く。   ",0,0,491); 
  111.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0, 0, 0, 1, 50); ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  112.     DelPic(p0);  del_us;  scene4();  del_me;
  113.     end_step;
  114.   }}
  115. }
  116.  
  117.  
  118. // シーン4
  119. scene4()
  120. {
  121.   int p0;
  122.  
  123.   p0 = LoadPic("lum009.bmp");
  124.  
  125.   mes(TIME){ step(4){
  126.    TextColor(0,0,0);
  127.    TextWrite("  商店街のアーケード。はるか向こうまでルミナリエが続く。   ",0,0,491); 
  128.    TextColor(255,255,255);
  129.    TextWrite("   　　「まるでお伽の国みたいだね。」と妻が言った。　  　　",0,0,491); 
  130.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0, 0, 0, 1, 50); ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  131.     DelPic(p0);  del_us;  scene5();  del_me;
  132.     end_step;
  133.   }}
  134. }
  135.  
  136.  
  137. // シーン5
  138. scene5()
  139. {
  140.   int p0;
  141.  
  142.   p0 = LoadPic("lum015.bmp");
  143.  
  144.   mes(TIME){ step(4){
  145.    TextColor(0,0,0);
  146.    TextWrite("   　　「まるでお伽の国みたいだね。」と妻が言った。　  　　",0,0,491); 
  147.    TextColor(255,255,255);
  148.    TextWrite("東遊園地の入り口。市役所ビル屋上の神戸市のマークが見える。",0,0,491); 
  149.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0, 0, 0, 1, 50); ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  150.     DelPic(p0);  del_us;  scene6();  del_me;
  151.     end_step;
  152.   }}
  153. }
  154.  
  155.  
  156. // シーン6
  157. scene6()
  158. {
  159.   int p0;
  160.  
  161.   p0 = LoadPic("lum016.bmp");
  162.  
  163.   mes(TIME){ step(4){
  164.    TextColor(0,0,0);
  165.    TextWrite("東遊園地の入り口。市役所ビル屋上の神戸市のマークが見える。",0,0,491); 
  166.    TextColor(255,255,255);
  167.    TextWrite("　             まるで城壁が浮かんでいるようだ。               　",0,0,491); 
  168.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0, 0, 0, 1, 50); ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  169.     DelPic(p0);  del_us;  scene7();  del_me;
  170.     end_step;
  171.   }}
  172. }
  173.  
  174.  
  175. // シーン7
  176. scene7()
  177. {
  178.   int p0;
  179.  
  180.   p0 = LoadPic("lum017.bmp");
  181.  
  182.   mes(TIME){ step(4){
  183.  
  184.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0, 0, 0, 1, 50); ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  185.     DelPic(p0);  del_us;  scene8();  del_me;
  186.     end_step;
  187.   }}
  188. }
  189.  
  190.  
  191. // シーン8
  192. scene8()
  193. {
  194.   int p0;
  195.  
  196.   p0 = LoadPic("lum027.bmp");
  197.  
  198.   mes(TIME){ step(4){
  199.    TextColor(0,0,0);
  200.    TextWrite("　             まるで城壁が浮かんでいるようだ。               　",0,0,491); 
  201.    TextColor(255,255,255);
  202.    TextWrite("公園出口付近。「来年もあったらまた来ようね」と妻が言った。",0,0,491); 
  203.     MovePic(p0, 0, 0, PicWidth(0), PicHeight(0), 0, 0, 0, 1, 50); ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  204.     DelPic(p0);  del_us;  scene0();  del_me;
  205.     end_step;
  206.   }}
  207. }
  208.  
  209.  
  210.