home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 September / VPR9809A.ISO / FFILLY / Face_Fil / Face_fil.lzh / FACE.tfy < prev    next >
Text File  |  1998-05-04  |  11KB  |  349 lines
  1. // Created By sPon 97.4
  2. //
  3. // Ｆａｃｅ
  4. //
  5. //  by Harpy's Planet
  6. //
  7.  
  8. #info INAM "Ｆａｃｅ"
  9. #info IART "Harpy's Planet"
  10. #info ICMT "Toffyに追加コード有り。(シーン１）"
  11. #info COMP "ＨｓＰ(http://CQW05622@niftyserve.or.jp)"
  12. #info GRPC "ＨｓＰ(http://CQW05622@niftyserve.or.jp)"
  13. #info EFCT "ＨｓＰ"
  14. #info IDIM 800x600 ,16M
  15. #info JINT Ask me
  16. #info TRNS Ask me
  17. #info MDFY Ask me
  18.  
  19.  
  20. int mDown;          // Mouse Down Flag
  21. int xoff, yoff;     // Background Offset
  22. int pw, ph;         // Background Size
  23. int pic[];          // Picture Array
  24. int jump[];         // Jump Counter
  25.  
  26.  
  27. // マウスの位置が矩形の範囲内かどうか調べる関数
  28. isInRect(int x1, int y1, int x2, int y2)
  29. {
  30.   if(x1 <= MesP2 && MesP2 < x2 && y1 <= MesP3 && MesP3 < y2){
  31.     return (1);
  32.   }
  33.   return (0);
  34. }
  35.  
  36.  
  37. LoadResource()
  38. {
  39.   LoadPic("E06.bmp");  // Default Background
  40.   pic[0] = LoadPic("E06.bmp");
  41.   pic[1] = LoadPic("TRAD03.bmp");
  42.   pic[2] = LoadPic("click.bmp");
  43.   pic[3] = LoadPic("E05.bmp");
  44.   pic[4] = LoadPic("E04.bmp");
  45.   pic[5] = LoadPic("B01.bmp");
  46.   pic[6] = LoadPic("B02.bmp");
  47.   pic[7] = LoadPic("B03.bmp");
  48.   pic[8] = LoadPic("B04A.bmp");
  49.   pic[9] = LoadPic("B04.bmp");
  50.   pic[10] = LoadPic("B04B.bmp");
  51.   pic[11] = LoadPic("E03.bmp");
  52.   pic[12] = LoadPic("E02.bmp");
  53.   pic[13] = LoadPic("E01.bmp");
  54.   pic[14] = LoadPic("B05.bmp");
  55.   pic[15] = LoadPic("B06.bmp");
  56.   pic[16] = LoadPic("C03.bmp");
  57.   pic[17] = LoadPic("C04.bmp");
  58.   pic[18] = LoadPic("C05.bmp");
  59.   pic[19] = LoadPic("C06.bmp");
  60.   pic[20] = LoadPic("C07.bmp");
  61.   pic[21] = LoadPic("C08.bmp");
  62.   pic[22] = LoadPic("C09.bmp");
  63.   pic[23] = LoadPic("C10.bmp");
  64.   pic[24] = LoadPic("C11.bmp");
  65.   pic[25] = LoadPic("C15.bmp");
  66.   pic[26] = LoadPic("C16.bmp");
  67.   pic[27] = LoadPic("D02.bmp");
  68.   pic[28] = LoadPic("D03.bmp");
  69.   pic[29] = LoadPic("D04.bmp");
  70.   pic[30] = LoadPic("D05.bmp");
  71.   pic[31] = LoadPic("D07.bmp");
  72.   pic[32] = LoadPic("D09.bmp");
  73. }
  74.  
  75.  
  76. // オープニング
  77. main()
  78. {
  79.   int sw, sh;
  80.  
  81.   jump[0] = 0;
  82.   jump[1] = 0;
  83.   jump[2] = 0;
  84.   jump[3] = 0;
  85.   jump[4] = 0;
  86.   jump[5] = 0;
  87.   jump[6] = 0;
  88.   jump[7] = 0;
  89.   LoadResource();
  90.   pw = PicWidth(0); ph = PicHeight(0);
  91.   OpenWin(0);
  92.   mDown = 0;
  93.   scene0();
  94. }
  95.  
  96.  
  97. // シーン 1
  98. scene0()
  99. {
  100.   MovePic(pic[0], 0, 0, PicWidth(pic[0]), PicHeight(pic[0]), 0, 0, 0, 2, 60); 
  101.  
  102.  
  103.  
  104.   jump[0] = 0;//-------ここから追加コード
  105.   jump[1] = 0;
  106.   jump[2] = 0;
  107.   jump[3] = 0;
  108.   jump[4] = 0;
  109.   jump[5] = 0;
  110.   jump[6] = 0;
  111.   jump[7] = 0;//-------ここまで追加コード
  112.  
  113.  
  114.   mes(TIME) { step(2) {
  115.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,; 
  116.     MovePic(pic[1], 0, 0, pw, ph, 0, 0, 150, 3, 40); 
  117.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[2], 0, 0, pw, ph, 0, 170, 220); 
  118.     ,,,,,,,,,,MovePic(pic[1], 0, 0, pw, ph, 0, 0, 150); 
  119.     ,,,,,,,,,,MovePic(pic[2], 0, 0, pw, ph, 0, 170, 220); 
  120.     ,,,,,,,,,,MovePic(pic[1], 0, 0, pw, ph, 0, 0, 150); 
  121.     ,,,,,,,,,,MovePic(pic[2], 0, 0, pw, ph, 0, 170, 220); 
  122.     ,,,,,,,,,,MovePic(pic[1], 0, 0, pw, ph, 0, 0, 150); 
  123.     ,,,,,,,,,,MovePic(pic[2], 0, 0, pw, ph, 0, 170, 220); 
  124.     ,,,,,,,,,,MovePic(pic[1], 0, 0, pw, ph, 0, 0, 150); 
  125.     ,,,,,,,,,,MovePic(pic[2], 0, 0, pw, ph, 0, 170, 220); 
  126.     ,,,,,,,,,,MovePic(pic[1], 0, 0, pw, ph, 0, 0, 150); 
  127.     ,,,,,,,,,,MovePic(pic[2], 0, 0, pw, ph, 0, 170, 220); 
  128.     ,,,,,,,,,,MovePic(pic[1], 0, 0, pw, ph, 0, 0, 150); 
  129.     ,,,,,,,,,,MovePic(pic[2], 0, 0, pw, ph, 0, 170, 220); 
  130.     ,,,,,,,,,,; 
  131.     del_us;  scene0();  del_me;
  132.     end_step;
  133.   }}
  134.  
  135.   mDown = 0;
  136.   mes(LBDOWN){
  137.     mDown = 1;
  138.   }
  139.  
  140.   mes(LBUP) {  if(mDown == 1){
  141.     if(isInRect(0, 150, 400, 350)){
  142.       del_us;  scene1();  del_me;
  143.     } else {
  144.       ;
  145.     }
  146.   }}
  147. }
  148.  
  149.  
  150. // シーン 11
  151. scene1()
  152. {
  153.   MovePic(pic[0], 0, 0, PicWidth(pic[0]), PicHeight(pic[0]), 0); 
  154.  
  155.   mes(TIME) { step(2) {
  156.     PlayMIDI("無題13.MID"); 
  157.     ; 
  158.     end_step;
  159.   }}
  160.  
  161.   mes(MIDI_START){
  162.     del_us;  scene2();  del_me;
  163.   }
  164. }
  165.  
  166.  
  167. // シーン 2
  168. scene2()
  169. {
  170.   MovePic(pic[0], 0, 0, PicWidth(pic[0]), PicHeight(pic[0]), 0); 
  171.  
  172.   mes(TIME) { step(2) {
  173.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,; 
  174.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,; 
  175.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0); 
  176.     ,,,,,,,,,,,,,,,MovePic(pic[4], 0, 0, pw, ph, 0, 0, 0); 
  177.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0); 
  178.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0); 
  179.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[0], 0, 0, pw, ph, 0, 0, 0); 
  180.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,del_us;  scene3();  del_me;
  181.     end_step;
  182.   }}
  183. }
  184.  
  185.  
  186. // シーン 3
  187. scene3()
  188. {
  189.   MovePic(pic[0], 0, 0, PicWidth(pic[0]), PicHeight(pic[0]), 0); 
  190.  
  191.   mes(TIME) { step(2) {
  192.     ,,,,,,,,,,,,,,,,,,,,MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0); 
  193.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[4], 0, 0, pw, ph, 0, 0, 0); 
  194.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0); 
  195.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[0], 0, 0, pw, ph, 0, 0, 0); 
  196.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[5], 0, 0, pw, ph, 0, 0, 0); 
  197.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[6], 0, 0, pw, ph, 0, 0, 0); 
  198.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[7], 0, 0, pw, ph, 0, 0, 0); 
  199.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[8], 0, 0, pw, ph, 0, 0, 0); 
  200.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[9], 0, 0, pw, ph, 0, 0, 0); 
  201.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[10], 0, 0, pw, ph, 0, 0, 0); 
  202.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[9], 0, 0, pw, ph, 0, 0, 0); 
  203.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[8], 0, 0, pw, ph, 0, 0, 0); 
  204.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,del_us;  scene5();  del_me;
  205.     end_step;
  206.   }}
  207. }
  208.  
  209.  
  210. // シーン 4
  211. scene4()
  212. {
  213.   MovePic(pic[11], 0, 0, PicWidth(pic[11]), PicHeight(pic[11]), 0); 
  214.  
  215.   mes(TIME) { step(2) {
  216.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[12], 0, 0, pw, ph, 0, 0, 0); 
  217.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[13], 0, 0, pw, ph, 0, 0, 0); 
  218.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[12], 0, 0, pw, ph, 0, 0, 0); 
  219.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[11], 0, 0, pw, ph, 0, 0, 0); 
  220.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[8], 0, 0, pw, ph, 0, 0, 0); 
  221.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[9], 0, 0, pw, ph, 0, 0, 0); 
  222.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[10], 0, 0, pw, ph, 0, 0, 0); 
  223.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[9], 0, 0, pw, ph, 0, 0, 0); 
  224.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[8], 0, 0, pw, ph, 0, 0, 0); 
  225.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[10], 0, 0, pw, ph, 0, 0, 0); 
  226.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,del_us;  scene5();  del_me;
  227.     end_step;
  228.   }}
  229. }
  230.  
  231.  
  232. // シーン 5
  233. scene5()
  234. {
  235.   MovePic(pic[14], 0, 0, PicWidth(pic[14]), PicHeight(pic[14]), 0); 
  236.  
  237.   mes(TIME) { step(2) {
  238.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[15], 0, 0, pw, ph, 0, 0, 0); 
  239.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[16], 0, 0, pw, ph, 0, 0, 0); 
  240.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[17], 0, 0, pw, ph, 0, 0, 0); 
  241.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[18], 0, 0, pw, ph, 0, 0, 0); 
  242.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[19], 0, 0, pw, ph, 0, 0, 0); 
  243.     ,,,,,,,,,,,,,,,,,,,,,,,,,jump[0]=jump[0]+1;if(jump[0]==3){jump[0]=0;del_us;  scene8();  del_me;},
  244.     jump[1]=jump[1]+1;if(jump[1]==4){jump[1]=0;del_us;  scene8();  del_me;},
  245.     MovePic(pic[20], 0, 0, pw, ph, 0, 0, 0); 
  246.     ,,,,,,,,,,,,,,,,,,,,,,,,,; 
  247.     jump[2]=jump[2]+1;if(jump[2]==3){jump[2]=0;del_us;  scene10();  del_me;},
  248.     jump[3]=jump[3]+1;if(jump[3]==2){jump[3]=0;del_us;  scene7();  del_me;},
  249.     del_us;  scene6();  del_me;
  250.     end_step;
  251.   }}
  252. }
  253.  
  254.  
  255. // シーン 7
  256. scene6()
  257. {
  258.   MovePic(pic[4], 0, 0, PicWidth(pic[4]), PicHeight(pic[4]), 0); 
  259.  
  260.   mes(TIME) { step(2) {
  261.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0); 
  262.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[0], 0, 0, pw, ph, 0, 0, 0); 
  263.     ,,,,,,,,,,,,,,,,,,,,,,,,,del_us;  scene8();  del_me;
  264.     end_step;
  265.   }}
  266. }
  267.  
  268.  
  269. // シーン 8
  270. scene7()
  271. {
  272.   MovePic(pic[13], 0, 0, PicWidth(pic[13]), PicHeight(pic[13]), 0); 
  273.  
  274.   mes(TIME) { step(2) {
  275.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[12], 0, 0, pw, ph, 0, 0, 0); 
  276.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[11], 0, 0, pw, ph, 0, 0, 0); 
  277.     ,,,,,,,,,,,,,,,,,,,,,,,,,del_us;  scene8();  del_me;
  278.     end_step;
  279.   }}
  280. }
  281.  
  282.  
  283. // シーン 6
  284. scene8()
  285. {
  286.   MovePic(pic[20], 0, 0, PicWidth(pic[20]), PicHeight(pic[20]), 0); 
  287.  
  288.   mes(TIME) { step(2) {
  289.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[21], 0, 0, pw, ph, 0, 0, 0); 
  290.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[22], 0, 0, pw, ph, 0, 0, 0); 
  291.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[23], 0, 0, pw, ph, 0, 0, 0); 
  292.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[24], 0, 0, pw, ph, 0, 0, 0); 
  293.     ,,,,,,,,,,,,,,,,,,,,,,,,,; 
  294.     jump[4]=jump[4]+1;if(jump[4]==4){jump[4]=0;del_us;  scene9();  del_me;},
  295.     jump[5]=jump[5]+1;if(jump[5]==3){jump[5]=0;del_us;  scene9();  del_me;},
  296.     jump[6]=jump[6]+1;if(jump[6]==2){jump[6]=0;del_us;  scene4();  del_me;},
  297.     del_us;  scene3();  del_me;
  298.     end_step;
  299.   }}
  300. }
  301.  
  302.  
  303. // シーン 9
  304. scene9()
  305. {
  306.   MovePic(pic[25], 0, 0, PicWidth(pic[25]), PicHeight(pic[25]), 0); 
  307.  
  308.   mes(TIME) { step(2) {
  309.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[26], 0, 0, pw, ph, 0, 0, 0); 
  310.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[27], 0, 0, pw, ph, 0, 0, 0); 
  311.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[28], 0, 0, pw, ph, 0, 0, 0); 
  312.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[29], 0, 0, pw, ph, 0, 0, 0); 
  313.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[30], 0, 0, pw, ph, 0, 0, 0); 
  314.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[31], 0, 0, pw, ph, 0, 0, 0); 
  315.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[32], 0, 0, pw, ph, 0, 0, 0); 
  316.     ,,,,,,,,,,,,,,,,,,,,,,,,,; 
  317.     jump[7]=jump[7]+1;if(jump[7]==2){jump[7]=0;del_us;  scene4();  del_me;},
  318.     del_us;  scene4();  del_me;
  319.     end_step;
  320.   }}
  321. }
  322.  
  323.  
  324. // シーン 10
  325. scene10()
  326. {
  327.   MovePic(pic[13], 0, 0, PicWidth(pic[13]), PicHeight(pic[13]), 0); 
  328.  
  329.   mes(TIME) { step(2) {
  330.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[12], 0, 0, pw, ph, 0, 0, 0); 
  331.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[11], 0, 0, pw, ph, 0, 0, 0); 
  332.     ,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[0], 0, 0, pw, ph, 0, 0, 0); 
  333.     end_step;
  334.   }}
  335.  
  336.   mes(MIDI_END){
  337.     del_us;  scene0();  del_me;
  338.   }
  339. }
  340.  
  341.  
  342. // エンディング
  343. ending()
  344. {
  345.   mes(TIME){}
  346. }
  347.  
  348.  
  349.