#include<graphics.h>
#include<conio.h>
#include<math.h>
#include<time.h>
 
#define PI        acos(-1.0)
#define SPEED     (PI/360)                // 針的旋轉速度
#define NEEDLE_L  180                  // 針的長度  
 
void HpSleep(int ms);                  // 精確延時
void drawframe(int number);
void Move(int number, int x, int y);
void Rotate(double *R,int num);
bool Pin(double *R, int num);
void eraser(int x, int y);
 
int main()
{
  initgraph(480, 640);
  while (true)
  {
    setbkcolor(RGB(189, 188, 187));
    cleardevice();
    drawframe(1);
    double radian[25] = { 0 };            // 儲存針的弧度
    int Needle_N = 0;                // 針的個數(shù)        
    MOUSEMSG msg;
    bool IS = false;
    while (true)
    {
      Move(Needle_N, 240, 560);          // 繪制針的位置
      Move(Needle_N + 1, 240, 600);
      Move(Needle_N + 2, 240, 640);
      Rotate(radian, Needle_N);
      while (MouseHit())              // 當有鼠標消息的時候執(zhí)行
      {
        msg = GetMouseMsg();          // 獲取鼠標消息
        switch (msg.uMsg)            // 根據不同的鼠標消息，執(zhí)行不同的代碼
        {
        case WM_LBUTTONDOWN:
          if (Pin(radian, Needle_N))
          {
            Needle_N++;
          }
          else
          {
            IS = true;
          }break;
        }
      }
      if (IS)
      {
        break;
      }
      HpSleep(10);                // 延時，降低 CPU 占用率
    }
    HWND wnd = GetHWnd();
    if (MessageBox(wnd, _T("游戲結束。\n重來一局嗎？"), _T("詢問"), MB_YESNO | MB_ICONQUESTION) == IDYES)
      continue;
    else
      break;
  }
  return 0;
}
 
void drawframe(int number)
{
  TCHAR str[25];
  _stprintf_s(str, _T("%d"), number);
  setfillcolor(RGB(70, 70, 69));
  solidcircle(240, 240, 50);
  setbkmode(TRANSPARENT);
  settextstyle(50, 0, _T("黑體"), 0, 0, FW_BLACK, false, false, false);
  settextcolor(WHITE);
  RECT r = { 190, 190, 290, 290 };
  drawtext(str, &r, DT_CENTER | DT_VCENTER | DT_SINGLELINE);
}
 
void Move(int number, int x, int y)
{
  setfillcolor(RGB(70, 70, 69));
  solidcircle(x, y, 20);
  setbkmode(TRANSPARENT);
  settextstyle(15, 0, _T("黑體"));
  settextcolor(WHITE);
  RECT r = { x - 20, y - 20, x + 20, y + 20 };
  TCHAR str[25];
  _stprintf_s(str, _T("%d"), number);
  drawtext(str, &r, DT_CENTER | DT_VCENTER | DT_SINGLELINE);
}
 
void Rotate(double *R, int num)
{
  int X_NEEDLE;
  int Y_NEEDLE;
  
  BeginBatchDraw();
  for (int i = 0; i < num; i++)
  {
    FlushBatchDraw();
    eraser(int(NEEDLE_L * cos(R[i]) + 240),int(NEEDLE_L * sin(R[i]) + 240));
    R[i] = R[i] + SPEED;
    if (R[i] > 2 * PI)
    {
      R[i] = R[i] - 2 * PI;
    }
    X_NEEDLE = int (NEEDLE_L * cos(R[i]) + 240); 
    Y_NEEDLE = int (NEEDLE_L * sin(R[i]) + 240);
    setlinestyle(PS_SOLID, 3);
    setlinecolor(RGB(70, 70, 69));
    line(X_NEEDLE, Y_NEEDLE, 240, 240);
    Move(i,X_NEEDLE,Y_NEEDLE);
    drawframe(1);
  }
  EndBatchDraw();
}
 
bool Pin(double *R, int num)
{
  int X_NEEDLE;
  int Y_NEEDLE;
  setlinestyle(PS_SOLID, 3);
  setlinecolor(RGB(70, 70, 69));
  bool T = true;
  R[num] = PI / 2;
  X_NEEDLE = int(NEEDLE_L * cos(R[num]) + 240);
  Y_NEEDLE = int(NEEDLE_L * sin(R[num]) + 240);
  line(X_NEEDLE, Y_NEEDLE, 240, 290);
  Move(num, X_NEEDLE, Y_NEEDLE);
  for (int i = 0; i < num; i++)
  {
    if (fabs(R[num] - R[i]) < (PI / 15))
    {
      T = false;
      break;                // 不需要再次進行比較了，循環(huán)跳出
    }
  }
  return T;                  // 如果失敗返回false;
}
 
void eraser(int x, int y)
{
  setfillcolor(RGB(189, 188, 187));
  solidcircle(x, y, 20);
  setlinestyle(PS_SOLID, 3);
  setlinecolor(RGB(189, 188, 187));
  line(x, y, 240, 240);
}
 
// 精確延時函數(shù)(可以精確到 1ms，精度 ±1ms)
// 記得加頭文件 time.h
// by yangw80<yw80@qq.com>, 2011-5-4
void HpSleep(int ms)
{
  static clock_t oldclock = clock();      // 靜態(tài)變量，記錄上一次 tick
  oldclock += ms * CLOCKS_PER_SEC / 1000;    // 更新 tick
  if (clock() > oldclock)            // 如果已經超時，無需延時
    oldclock = clock();
  else
  while (clock() < oldclock)          // 延時
    Sleep(1);                // 釋放 CPU 控制權，降低 CPU 占用率
}