c语言对对碰游戏源码

//画素材的x和y都是反的，因为x表示行,但是画出来x表示列，y同
// 来自公众号：c语言与cpp编程
#include <graphics.h>
#include <fstream>
#include <strstream>
#include <iomanip>
#include <cstdlib>
#include <ctime>
#pragma comment(lib, "Winmm.lib")
using namespace std;
/*******************************定义枚举类型*****************************/
enum color{blank, red, yellow, blue, green, white, orange, purple, shizijia, zhadan, qicai, alarm};
/*******************************定义全局变量*****************************/
const int MaxT = 12;  // 时间上限
const int T = 10 * MaxT;// 时间速度
const int V = 300;    // 停留时间
clock_t start, now;   // 控制时间
color gem[9][8];    // 地图
            // IMAGE对象
IMAGE img[12], music_img[2], exit_img, jindutiao;
int Score, Time;    // 成绩 时间
bool Flag, Music = true;// 是否加载 音乐
/**********************************函数声明*****************************/
void load(void);  // 加载IMAGE对象
void Blank(void); // 清空
bool soso(void);  // 搜索空格
bool baidu(void); // 搜索解法
void New(void);   // 更新
void print(void); // 输出
bool judge(void); // 判断是否可以消除
void fall(void);  // 下落
void draw(void);  // 消除
bool quit(void);  // 是否重新开始
void play(void);  // 游戏过程
/**********************************定义函数*****************************/
void load(void)
{
  char c[20];
  int i;
  // 加载IMAGE对象
  for (i = 0; i < 12; i++)
  {
    ostrstream strout(c, 50);
    strout <<"图片\\" <<i <<".jpg" <<ends;
    loadimage(&img[i], c);
  }
  loadimage(&music_img[0], "图片\\音乐关.jpg");
  loadimage(&music_img[1], "图片\\音乐开.jpg");
  loadimage(&exit_img, "图片\\退出.jpg");
  loadimage(&jindutiao, "图片\\进度条.jpg");
  // 加载音乐
  mciSendString("open 背景音乐.mp3 alias mymusic", NULL, 0, NULL);
  // 随机种子
  srand(unsigned(time(NULL)));
  // 打开文件
  ifstream fin("存档.dat");
  if (!fin)
    throw -1; // 如果打开失败则抛出异常
  // 读存档
  fin >>Flag >>Music;
  if (Flag)
  {
    HWND wnd = GetHWnd();
    SetWindowText(wnd, "对对碰");
    if (MessageBox(wnd, "是否继续上次游戏？", "游戏开始", MB_YESNO | MB_ICONQUESTION) == IDYES)
    {
      fin >>Score >>Time;
      for (i = 0; i < 9; i++)
        for (int j = 0; j < 8; j++)
        {
          int t;
          fin >>t;
          gem[i][j] = color(t);
        }
    }
    else
      Flag = false;
  }
  fin.close();
}
void Blank(void)
{
  for (int i = 1; i < 9; i++)
    for (int j = 0; j < 8; j++)
      gem[i][j] = blank;
  print();
  fall();
}
bool soso(void)
{
  for (int i = 1; i < 9; i++)
    for (int j = 0; j < 8; j++)
      if (gem[i][j] == blank)
        return true;
  return false;
}
bool baidu(void)
{
  int i, j;
  color t;
  bool flag = false;
  // 如果有一个道具则返回真
  for (i = 1; i < 9; i++)
    for (j = 0; j < 8; j++)
      if (gem[i][j] >= shizijia)
        return true;
  // 搜索解法
  for (i = 1; i < 9; i++)
    for (j = 0; j < 7; j++)
    {
      t = gem[i][j];
      gem[i][j] = gem[i][j + 1];
      gem[i][j + 1] = t;
      if (judge())
        flag = true;
      t = gem[i][j];
      gem[i][j] = gem[i][j + 1];
      gem[i][j + 1] = t;
      if (flag)
        return true;
    }
  for (i = 1; i < 7; i++)
    for (j = 0; j < 8; j++)
    {
      t = gem[i][j];
      gem[i][j] = gem[i + 1][j];
      gem[i + 1][j] = t;
      if (judge())
        flag = true;
      t = gem[i][j];
      gem[i][j] = gem[i + 1][j];
      gem[i + 1][j] = t;
      if (flag)
        return true;
    }
  return false;
}
void New(void)
{
  static int old_score = -1, old_time = T;
  bool flag = false;
  if (Score != old_score) // 更新分数
  {
    if (Score > 999999999)
    {
      if (MessageBox(GetHWnd(), "恭喜你达到了最高分！\n是否重新开始？", "游戏结束", MB_YESNO | MB_ICONQUESTION) == IDYES)
        Score = 0;
      else
        exit(0);
    }
    char s[15];
    ostrstream strout(s, 15);
    strout <<'$' <<setiosflags(ios::right) <<setw(9) <<Score <<ends;
    setfont(30, 0, "微软雅黑");
    setcolor(RGB(255, 128, 0));
    outtextxy(480, 60, s);
    old_score = Score;
    flag = true;
  }
  if (Time != old_time) // 更新时间
  {
    if (Time > old_time)
      putimage(540, 140, &jindutiao);
    setcolor(BLACK);
    for (int i = 0; i < T - Time; i++)
    {
      line(540, 140 + 2 * i, 580, 140 + 2 * i);
      line(540, 140 + 2 * i + 1, 580, 140 + 2 * i + 1);
    }
    old_time = Time;
    flag = true;
  }
  if (flag)       // 写存档
  {
    ofstream fout("存档.dat");
    fout <<Flag   <<'\t'
       <<Music  <<'\t'
       <<Score  <<'\t'
       <<Time   <<endl;
    for (int i = 0; i < 9; i++)
    {
      for (int j = 0; j < 8; j++)
        fout <<int(gem[i][j]) <<'\t';
      fout <<endl;
    }
    fout.close();
  }
}
void print(void)
{
  int i, j;
  for (i = 1; i < 9; i++)
    for (j = 0; j < 8; j++)
      putimage(60 * j, 60 * (i - 1), &img[int(gem[i][j])]);
  New();
}
bool judge(void)
{
  int i, j;
  for (i = 1; i < 9; i++)
    for (j = 0; j < 6; j++)
      if (gem[i][j] == gem[i][j + 1] && gem[i][j] == gem[i][j + 2])
        return true;
  for (i = 1; i < 7; i++)
    for (j = 0; j < 8; j++)
      if (gem[i][j] == gem[i + 1][j] && gem[i][j] == gem[i + 2][j])
        return true;
  return false;
}
void fall(void)
{
  {
    int i, j, a[8] = {0};
    bool sign = false;
    for (j = 0; j < 8; j++)
      for (i = 8; i >= 1; i--)
        if (gem[i][j] == blank)
        {
          a[j] = i;
          sign = true;
          break;
        }
    if (sign == false)
      return;
    IMAGE im[8];
    for (j = 0; j < 8; j++)
      if (a[j] > 1)
        getimage(&im[j], 60 * j, 0, 60, 60 * (a[j] - 1));
    for (i = 0; i < 60 ; i += 2)
      for (j = 0; j < 8; j++)
        if (a[j] > 0)
        {
          if (a[j] > 1)
            putimage(60 * j, i + 2, &im[j]);
          putimage(60 * j, i + 2 - 60, &img[int(gem[0][j])]);
          Sleep(1);
        }
    for (j = 0; j < 8; j++)
      if (a[j] > 0)
      {
        for (i = a[j]; i > 0; i--)
          gem[i][j] = gem[i - 1][j];
        if (rand() % 50 == 0)
          gem[0][j] = color(rand() % 4 + 8);
        else
          gem[0][j] = color(rand() % 7 + 1);
      }
  } // 加对大括号使递归时撤销内存空间
  if (soso())
    fall();
  if (judge())
    draw();
}
void draw(void)
{
  {
    int i, j;
    bool a[9][8] = {false};
    for (i = 1; i < 9; i++)
      for (j = 0; j < 6; j++)
        if (gem[i][j] == gem[i][j + 1] && gem[i][j] == gem[i][j + 2])
          a[i][j] = a[i][j + 1] = a[i][j + 2] = true;
    for (i = 1; i < 7; i++)
      for (j = 0; j < 8; j++)
        if (gem[i][j] == gem[i + 1][j] && gem[i][j] == gem[i + 2][j])
          a[i][j] = a[i + 1][j] = a[i + 2][j] = true;
    for (i = 1; i < 9; i++)
      for (j = 0; j < 8; j++)
        if (a[i][j])
        {
          gem[i][j] = blank;
          Score += 10;
        }
    Sleep(V);
    Time += T / MaxT;
    if (Time > T)
      Time = T;
    print();
  } // 加对大括号使递归时撤销内存空间
  fall();
}
bool quit(void)
{
  char str[50];
  ostrstream strout(str, 50);
  strout <<"得分：" <<Score <<"\n重新开始吗？" <<ends;
  if (MessageBox(GetHWnd(), str, "游戏结束", MB_YESNO | MB_ICONQUESTION) == IDYES)
    return true;
  return false;
}
void play(void)
{
  MOUSEMSG m;
  int i, j, x, y, x1, y1;
  char fx;
  color t;
  bool sign;
  if (Flag == false)
  {
    do
    {
      for (i = 0; i < 9; i++)
        for (j = 0; j < 8; j++)
          gem[i][j] = color(rand() % 7 + 1);
    }while (judge() || !baidu());
    Score = 0;
    Time = T;
  }
  setbkcolor(BLACK);
  cleardevice();
  setfont(30, 0, "微软雅黑");
  setcolor(RGB(255, 128, 0));
  outtextxy(480, 60, "$       0");
  putimage(480, 400, &music_img[int(Music)]);
  putimage(560, 400, &exit_img);
  putimage(540, 140, &jindutiao);
  print();
  now = start = clock();
  Flag = true;
  do
  {
    if (soso())
      fall();
    fx = 0;
    sign = true;
    while (true)
    {
      if (MouseHit())
      {
        m = GetMouseMsg();
        x1 = m.x;
        y1 = m.y;
        if (m.uMsg == WM_LBUTTONDOWN)
        {
          if (x1 < 480)
          {
            x = y1 / 60 + 1;
            y = x1 / 60;
            switch (gem[x][y])
            {
            case shizijia:
              for (i = 1; i < 9; i++)
              {
                gem[i][y] = blank;
                Score += 10;
              }
              for (j = 0; j < 8; j++)
              {
                gem[x][j] = blank;
                Score += 10;
              }
              Score -= 20;
              Time += T / MaxT;
              if (Time > T)
                Time = T;
              print();
              Sleep(V);
              fall();
              if (!baidu())
                Blank();
              break;
            case zhadan:
              if (x > 1)
              {
                gem[x - 1][y] = blank;
                Score += 10;
                if (y > 0)
                {
                  gem[x - 1][y - 1] =blank;
                  Score += 10;
                }
              }
              if (y > 0)
              {
                gem[x][y - 1] = blank;
                if (x < 8)
                {
                  gem[x + 1][y - 1] =blank;
                  Score += 10;
                }
              }
              if (x < 8)
              {
                gem[x + 1][y] = blank;
                if (y < 7)
                {
                  gem[x + 1][y + 1] =blank;
                  Score += 10;
                }
              }
              if (y < 7)
              {
                gem[x][y + 1] = blank;
                if (x > 1)
                {
                  gem[x - 1][y + 1] =blank;
                  Score += 10;
                }             
              }
              gem[x][y] = blank;
              Time += T / MaxT;
              if (Time > T)
                Time = T;
              print();
              Sleep(V);
              fall();
              if (!baidu())
                Blank();
              break;
            case qicai:
              t = color(rand() % 7 + 1);
              putimage(60 * y, 60 * (x - 1), &img[int(t)]);
              Sleep(V);
              for (i = 1; i < 9; i++)
                for (j = 0; j < 8; j++)
                  if (gem[i][j] == t)
                  {
                    gem[i][j] = blank;
                    putimage(60 * j, 60 * (i - 1), &img[0]);
                    Score += 10;
                  }
              gem[x][y] = blank;
              Time += T / MaxT;
              if (Time > T)
                Time = T;
              print();
              fall();
              if (!baidu())
                Blank();
              break;
            case alarm:
              Time = T;
              gem[x][y] = blank;
              print();
              fall();
              if (!baidu())
                Blank();
              break;
            }
            break;
          }
          else if (x1 > 480 && x1 < 560 && y1 > 400 && y1 < 480)
          {
            if (Music)
              mciSendString("stop mymusic", NULL, 0, NULL);
            else
              mciSendString("play mymusic from 0 repeat", NULL, 0, NULL);
            Music = !Music;
            putimage(480, 400, &music_img[int(Music)]);
          }
          else if (x1 > 560 && x1 < 640 && y1 > 400 && y1 < 480)
            exit(0);
        }
      }
      now = clock();
      if (now - start >= CLOCKS_PER_SEC * MaxT / T)
      {
        start = now;
        Time--;
        New();
        if (Time <= 0)
          return;
      }
    }
    while (m.mkLButton && m.y < 480)
    {
      m = GetMouseMsg();
      x = m.x;
      y = m.y;
      if (x - x1 > 30 || x1 - x > 30 || y - y1 > 30 || y1 - y > 30)
      {
        sign = false;
        break;
      }
      now = clock();
      if (now - start >= CLOCKS_PER_SEC * MaxT / T)
      {
        start = now;
        Time--;
        New();
        if (Time <= 0)
          return;
      }
    }
    if(sign)
    {
      putimage(x1 - x1 % 60, y1 - y1 % 60, &img[int(gem[y1 / 60 + 1][x1 / 60])], SRCPAINT);
      continue;
    }
    if (y1 - y > 30 && y1 / 60 > 0)
      fx = 'u';
    if (y - y1 > 30 && y1 / 60 < 7)
      fx = 'd';
    if (x1 - x > 30 && x1 / 60 > 0)
      fx = 'l';
    if (x - x1 > 30 && x1 / 60 < 7)
      fx = 'r';
    x = y1 / 60 + 1;
    y = x1 / 60;
    x1 = y1 = 0;
    switch (fx)
    {
      case 'u':x1 = -1; break;
      case 'd':x1 = 1;  break;
      case 'l':y1 = -1; break;
      case 'r':y1 = 1;  break;
      case '\0':continue;
    }
    for (i = 0; i < 60;)
    {
      putimage(60 * y, 60 * (x - 1), &img[0]);
      putimage(60 * y, 60 * (x - 1), &img[0]);
      i += 1;
      putimage(60 * (y + y1) - i * y1, 60 * (x - 1 + x1) - i * x1, &img[int(gem[x + x1][y + y1])]);
      putimage(60 * y + i * y1, 60 * (x - 1) + i * x1, &img[int(gem[x][y])]);
      Sleep(2);
    }
    t = gem[x][y];
    gem[x][y] = gem[x + x1][y + y1];
    gem[x + x1][y + y1] = t;
    if (judge())
    {
      draw();
      if (!baidu())
        Blank();
    }
    else
    {
      for (i = 0; i < 60;)
      {
        putimage(60 * y, 60 * (x - 1), &img[0]);
        putimage(60 * y, 60 * (x - 1), &img[0]);
        i += 1;
        putimage(60 * (y + y1) - i * y1, 60 * (x - 1 + x1) - i * x1, &img[int(gem[x + x1][y + y1])]);
        putimage(60 * y + i * y1, 60 * (x - 1) + i * x1, &img[int(gem[x][y])]);
        Sleep(2);
      }
      t = gem[x][y];
      gem[x][y] = gem[x + x1][y + y1];
      gem[x + x1][y + y1] = t;
    }
    now = clock();
    if (now - start >= CLOCKS_PER_SEC * MaxT / T)
    {
      start = now;
      Time--;
      New();
      if (Time <= 0)
        return;
    }
  }while (true);
}
/***********************************主函数******************************/
int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
  try
  {
    // 加载素材
    load();
  }
  catch (int)
  {
    ofstream fout("存档.dat");
    fout <<false <<'\t' <<true <<endl;
  }
  // 打开界面
  initgraph(640, 480);
  // 游戏过程
  do
  {
    if (Music)
      mciSendString("play mymusic from 0 repeat", NULL, 0, NULL);
    play();
    if (Music)
      mciSendString("stop mymusic", NULL, 0, NULL);
    Flag = false;
  }while (quit());
  // 关闭游戏
  ofstream fout("存档.dat");
  fout <<false <<'\t' <<Music <<endl;
  fout.close();
  mciSendString("close mymusic", NULL, 0, NULL);
  closegraph();
  return 0;
}
/***********************************THE END************************************/