home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1998 November / VPR9811A.BIN / FFILLY / SML2 / SML.tfy < prev    next >
Text File  |  1998-08-27  |  10KB  |  466 lines

  1. // Created By sPon 97.4
  2. //
  3. // サマーレディ2(改)
  4. //
  5. //  by 橋本 弘子
  6. //
  7.  
  8. #info INAM "サマーレディ2(改)"
  9. #info IART "橋本 弘子"
  10. #info GRPC "橋本 弘子"
  11. #info EFCT "橋本 弘子"
  12. #info IDIM 800x600 ,16M
  13. #info JINT No
  14. #info TRNS Ask me
  15. #info MDFY No
  16.  
  17.  
  18. int mDown;          // Mouse Down Flag
  19. int xoff, yoff;     // Background Offset
  20. int pw, ph;         // Background Size
  21. int pic[];          // Picture Array
  22. int jump[];         // Jump Counter
  23.  
  24.  
  25. // マウスの位置が矩形の範囲内かどうか調べる関数
  26. isInRect(int x1, int y1, int x2, int y2)
  27. {
  28.   x1 = x1 + xoff;  y1 = y1 + yoff;
  29.   x2 = x2 + xoff;  y2 = y2 + yoff;
  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("BLK2.bmp");  // Default Background
  40.   pic[0] = LoadPic("BLK2.bmp");
  41.   pic[1] = LoadPic("BL.bmp");
  42.   pic[2] = LoadPic("BLK1.bmp");
  43.   pic[3] = LoadPic("Lady08.bmp");
  44.   pic[4] = LoadPic("Lady09.bmp");
  45.   pic[5] = LoadPic("Lady10.bmp");
  46.   pic[6] = LoadPic("Lady11.bmp");
  47.   pic[7] = LoadPic("Lady12.bmp");
  48.   pic[8] = LoadPic("Lady13.bmp");
  49.   pic[9] = LoadPic("Lady14.bmp");
  50.   pic[10] = LoadPic("Lady15.bmp");
  51.   pic[11] = LoadPic("Lady16.bmp");
  52. }
  53.  
  54.  
  55. // オープニング
  56. main()
  57. {
  58.   SetFont(30,"MS ゴシック",128,0,0,0,400,0);
  59.   TextColor(255,255,255);
  60.   BgColor(0,0,0);
  61.   int sw, sh;
  62.  
  63.   LoadResource();
  64.   pw = PicWidth(0); ph = PicHeight(0);
  65.   sw = WinInfo(0);  sh = WinInfo(1);
  66.   xoff = (sw - pw) / 2 + 6;  yoff = (sh - ph) / 2 + 6;
  67.   CapTitle("サマーレディ2(改)");
  68.   OpenWin(0, -6, -6, sw + 6, sh + 6, -xoff, -yoff, 0x000000);
  69.   mDown = 0;
  70.   scene0();
  71. }
  72.  
  73.  
  74. // スタート
  75. scene0()
  76. {
  77.   MovePic(pic[0], 0, 0, PicWidth(pic[0]), PicHeight(pic[0]), 0); 
  78.  
  79.   mes(TIME) { step(2) {
  80.     PlayMIDI("a_087xgw.mid"); 
  81.    TextColor(0,255,255);
  82.    TextWrite("     サマーレディ2(改)     ",0,100,200);
  83.    TextWrite("     作:橋本 弘子     ",0,100,240);
  84.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  85.    TextColor(0,0,0);
  86.    TextWrite("     サマーレディ2(改)     ",0,100,200);
  87.    TextWrite("     作:橋本 弘子     ",0,100,240);
  88.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,
  89.    TextColor(0,255,255);
  90.    TextWrite(" 製作環境     ",0,20,100);
  91.    TextWrite(" sPon   ver 97.05(ポイゾーさん作)    ",0,30,140);
  92.    TextWrite(" FILLY  ver 2.34 (ともゆきさん作)    ",0,30,180); 
  93.    TextWrite(" Super Kid95     ",0,30,220); 
  94.    TextWrite(" Ultra Kid     ",0,30,260); 
  95.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,del_us;  scene1();  del_me;
  96.     end_step;
  97.   }}
  98. }
  99.  
  100.  
  101. // 選択画面
  102. scene1()
  103. {
  104.   MovePic(pic[0], 0, 0, PicWidth(pic[0]), PicHeight(pic[0]), 0, 0, 0, 3, 20); 
  105.  
  106.   mes(TIME) { step(2) {
  107.     MovePic(pic[1], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  108.     reset_step;
  109.     end_step;
  110.   }}
  111.  
  112.   mDown = 0;
  113.   mes(LBDOWN){
  114.     mDown = 1;
  115.   }
  116.  
  117.   mes(LBUP) {  if(mDown == 1){
  118.     if(isInRect(33, 1, 214, 137)){
  119.       del_us;  scene2();  del_me;
  120.     } else if(isInRect(231, 0, 412, 136)){
  121.       del_us;  scene3();  del_me;
  122.     } else if(isInRect(428, 0, 608, 136)){
  123.       del_us;  scene4();  del_me;
  124.     } else if(isInRect(33, 142, 214, 276)){
  125.       del_us;  scene5();  del_me;
  126.     } else if(isInRect(231, 141, 412, 278)){
  127.       del_us;  scene6();  del_me;
  128.     } else if(isInRect(428, 142, 608, 278)){
  129.       del_us;  scene7();  del_me;
  130.     } else if(isInRect(31, 283, 213, 419)){
  131.       del_us;  scene8();  del_me;
  132.     } else if(isInRect(233, 281, 413, 420)){
  133.       del_us;  scene9();  del_me;
  134.     } else if(isInRect(428, 283, 609, 419)){
  135.       del_us;  scene10();  del_me;
  136.     } else if(isInRect(23, 424, 175, 475)){
  137.       del_us;  scene11();  del_me;
  138.     } else if(isInRect(463, 423, 614, 477)){
  139.       del_us;  ending();  del_me;
  140.     } else {
  141.       ;
  142.     }
  143.   }}
  144.  
  145.   mes(MIDI_END){
  146.     PlayMIDI("a_087xgw.mid"); 
  147.   }
  148. }
  149.  
  150.  
  151. // №8_Bmp
  152. scene2()
  153. {
  154.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  155.  
  156.   mes(TIME) { step(2) {
  157.     MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  158.     reset_step;
  159.     end_step;
  160.   }}
  161.  
  162.   mDown = 0;
  163.   mes(LBDOWN){
  164.     mDown = 1;
  165.   }
  166.  
  167.   mes(LBUP) {  if(mDown == 1){
  168.     if(isInRect(486, 487, 638, 524)){
  169.       del_us;  scene1();  del_me;
  170.     } else {
  171.       ;
  172.     }
  173.   }}
  174.  
  175.   mes(MIDI_END){
  176.     PlayMIDI("a_087xgw.mid"); 
  177.   }
  178. }
  179.  
  180.  
  181. // №9_Bmp
  182. scene3()
  183. {
  184.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  185.  
  186.   mes(TIME) { step(2) {
  187.     MovePic(pic[4], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  188.     reset_step;
  189.     end_step;
  190.   }}
  191.  
  192.   mDown = 0;
  193.   mes(LBDOWN){
  194.     mDown = 1;
  195.   }
  196.  
  197.   mes(LBUP) {  if(mDown == 1){
  198.     if(isInRect(486, 487, 638, 524)){
  199.       del_us;  scene1();  del_me;
  200.     } else {
  201.       ;
  202.     }
  203.   }}
  204.  
  205.   mes(MIDI_END){
  206.     PlayMIDI("a_087xgw.mid"); 
  207.   }
  208. }
  209.  
  210.  
  211. // №10_Bmp
  212. scene4()
  213. {
  214.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  215.  
  216.   mes(TIME) { step(2) {
  217.     MovePic(pic[5], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  218.     reset_step;
  219.     end_step;
  220.   }}
  221.  
  222.   mDown = 0;
  223.   mes(LBDOWN){
  224.     mDown = 1;
  225.   }
  226.  
  227.   mes(LBUP) {  if(mDown == 1){
  228.     if(isInRect(486, 487, 638, 524)){
  229.       del_us;  scene1();  del_me;
  230.     } else {
  231.       ;
  232.     }
  233.   }}
  234.  
  235.   mes(MIDI_END){
  236.     PlayMIDI("a_087xgw.mid"); 
  237.   }
  238. }
  239.  
  240.  
  241. // №11_Bmp
  242. scene5()
  243. {
  244.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  245.  
  246.   mes(TIME) { step(2) {
  247.     MovePic(pic[6], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  248.     reset_step;
  249.     end_step;
  250.   }}
  251.  
  252.   mDown = 0;
  253.   mes(LBDOWN){
  254.     mDown = 1;
  255.   }
  256.  
  257.   mes(LBUP) {  if(mDown == 1){
  258.     if(isInRect(486, 487, 638, 524)){
  259.       del_us;  scene1();  del_me;
  260.     } else {
  261.       ;
  262.     }
  263.   }}
  264.  
  265.   mes(MIDI_END){
  266.     PlayMIDI("a_087xgw.mid"); 
  267.   }
  268. }
  269.  
  270.  
  271. // №12_Bmp
  272. scene6()
  273. {
  274.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  275.  
  276.   mes(TIME) { step(2) {
  277.     MovePic(pic[7], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  278.     reset_step;
  279.     end_step;
  280.   }}
  281.  
  282.   mDown = 0;
  283.   mes(LBDOWN){
  284.     mDown = 1;
  285.   }
  286.  
  287.   mes(LBUP) {  if(mDown == 1){
  288.     if(isInRect(486, 487, 638, 524)){
  289.       del_us;  scene1();  del_me;
  290.     } else {
  291.       ;
  292.     }
  293.   }}
  294.  
  295.   mes(MIDI_END){
  296.     PlayMIDI("a_087xgw.mid"); 
  297.   }
  298. }
  299.  
  300.  
  301. // №13_Bmp
  302. scene7()
  303. {
  304.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  305.  
  306.   mes(TIME) { step(2) {
  307.     MovePic(pic[8], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  308.     reset_step;
  309.     end_step;
  310.   }}
  311.  
  312.   mDown = 0;
  313.   mes(LBDOWN){
  314.     mDown = 1;
  315.   }
  316.  
  317.   mes(LBUP) {  if(mDown == 1){
  318.     if(isInRect(486, 487, 638, 524)){
  319.       del_us;  scene1();  del_me;
  320.     } else {
  321.       ;
  322.     }
  323.   }}
  324.  
  325.   mes(MIDI_END){
  326.     PlayMIDI("a_087xgw.mid"); 
  327.   }
  328. }
  329.  
  330.  
  331. // №14_Bmp
  332. scene8()
  333. {
  334.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  335.  
  336.   mes(TIME) { step(2) {
  337.     MovePic(pic[9], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  338.     reset_step;
  339.     end_step;
  340.   }}
  341.  
  342.   mDown = 0;
  343.   mes(LBDOWN){
  344.     mDown = 1;
  345.   }
  346.  
  347.   mes(LBUP) {  if(mDown == 1){
  348.     if(isInRect(486, 487, 638, 524)){
  349.       del_us;  scene1();  del_me;
  350.     } else {
  351.       ;
  352.     }
  353.   }}
  354.  
  355.   mes(MIDI_END){
  356.     PlayMIDI("a_087xgw.mid"); 
  357.   }
  358. }
  359.  
  360.  
  361. // №15_Bmp
  362. scene9()
  363. {
  364.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  365.  
  366.   mes(TIME) { step(2) {
  367.     MovePic(pic[10], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  368.     reset_step;
  369.     end_step;
  370.   }}
  371.  
  372.   mDown = 0;
  373.   mes(LBDOWN){
  374.     mDown = 1;
  375.   }
  376.  
  377.   mes(LBUP) {  if(mDown == 1){
  378.     if(isInRect(486, 487, 638, 524)){
  379.       del_us;  scene1();  del_me;
  380.     } else {
  381.       ;
  382.     }
  383.   }}
  384.  
  385.   mes(MIDI_END){
  386.     PlayMIDI("a_087xgw.mid"); 
  387.   }
  388. }
  389.  
  390.  
  391. // №16_Bmp
  392. scene10()
  393. {
  394.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0); 
  395.  
  396.   mes(TIME) { step(2) {
  397.     MovePic(pic[11], 0, 0, pw, ph, 0, 0, 0, 3, 20); 
  398.     reset_step;
  399.     end_step;
  400.   }}
  401.  
  402.   mDown = 0;
  403.   mes(LBDOWN){
  404.     mDown = 1;
  405.   }
  406.  
  407.   mes(LBUP) {  if(mDown == 1){
  408.     if(isInRect(486, 487, 638, 524)){
  409.       del_us;  scene1();  del_me;
  410.     } else {
  411.       ;
  412.     }
  413.   }}
  414.  
  415.   mes(MIDI_END){
  416.     PlayMIDI("a_087xgw.mid"); 
  417.   }
  418. }
  419.  
  420.  
  421. // スライド
  422. scene11()
  423. {
  424.   MovePic(pic[2], 0, 0, PicWidth(pic[2]), PicHeight(pic[2]), 0, 0, 0, 3, 40); 
  425.  
  426.   mes(TIME) { step(2) {
  427.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[3], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  428.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[4], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  429.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[5], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  430.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[6], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  431.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[7], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  432.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[8], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  433.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[9], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  434.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[10], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  435.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,MovePic(pic[11], 0, 0, pw, ph, 0, 0, 0, 3, 40); 
  436.     ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,del_us;  scene1();  del_me;
  437.     end_step;
  438.   }}
  439.  
  440.   mDown = 0;
  441.   mes(LBDOWN){
  442.     mDown = 1;
  443.   }
  444.  
  445.   mes(LBUP) {  if(mDown == 1){
  446.     if(isInRect(488, 488, 639, 520)){
  447.       del_us;  scene1();  del_me;
  448.     } else {
  449.       ;
  450.     }
  451.   }}
  452.  
  453.   mes(MIDI_END){
  454.     PlayMIDI("a_087xgw.mid"); 
  455.   }
  456. }
  457.  
  458.  
  459. // エンディング
  460. ending()
  461. {
  462.   ExitTitle();
  463. }
  464.  
  465.  
  466.