Subversion Repositories Kolibri OS

#ifndef _HEADER_BOARD_H

#define _HEADER_BOARD_H

#include 

#include 

#include 

#include 

#include 

#include 

#include "position.h"

#include "history.h"

#include "gr-draw.h"

int ssf = 0;

struct TIntPoint

{

  TIntPoint() {}

  TIntPoint(int x, int y) : x(x), y(y) {}

  TIntPoint(const TIntPoint &p) : x(p.x), y(p.y) {}

  TIntPoint &operator=(const TIntPoint &p) {x = p.x; y = p.y; return *this;}

  int x, y;

};

struct TRealPoint

{

  TRealPoint() {}

  TRealPoint(double x, double y) : x(x), y(y) {}

  TRealPoint(const TRealPoint &p) : x(p.x), y(p.y) {}

  TRealPoint(const TIntPoint &p) : x(p.x), y(p.y) {}

  TRealPoint &operator=(const TRealPoint &p) {x = p.x; y = p.y; return *this;}

  TRealPoint &operator=(const TIntPoint &p) {x = p.x; y = p.y; return *this;}

  TIntPoint Round() {return TIntPoint((int)floor(x+0.5), (int)floor(y+0.5));}

  double x, y;

};

struct TProjectivePoint

{

  TProjectivePoint() {}

  TProjectivePoint(const TProjectivePoint &p) : x(p.x), y(p.y), z(p.z) {}

  TProjectivePoint(double x, double y, double z = 1) : x(x), y(y), z(z) {}

  TProjectivePoint(const TIntPoint &p, double z = 1) : x(p.x), y(p.y), z(z) {}

  TProjectivePoint(const TRealPoint &p, double z = 1) : x(p.x), y(p.y), z(z) {}

  int IsCorrect() const {return fabs(x) > Eps || fabs(y) > Eps || fabs(z) > Eps;}

  int IsFinite() const;

  TRealPoint rpnt() const;

  int rpnt(TRealPoint &p) const;

  TIntPoint pnt() const;

  int pnt(TIntPoint &p) const;

  TProjectivePoint &operator=(const TProjectivePoint &p);

  TProjectivePoint &operator=(const TIntPoint &p) {x = p.x; y = p.y; z = 1; return *this;}

  TProjectivePoint &operator=(const TRealPoint &p) {x = p.x; y = p.y; z = 1; return *this;}

  TProjectivePoint &operator*=(int n) {x *= n; y *= n; z *= n; return *this;}

  friend TProjectivePoint operator*(const TProjectivePoint &p, int n)

                {return TProjectivePoint(p.x * n, p.y * n, p.z * n);}

  friend TProjectivePoint operator*(int n, const TProjectivePoint &p)

                {return TProjectivePoint(n * p.x, n * p.y, n * p.z);}

  TProjectivePoint &operator*=(double n) {x *= n; y *= n; z *= n; return *this;}

  friend TProjectivePoint operator*(const TProjectivePoint &p, double n)

                {return TProjectivePoint(p.x * n, p.y * n, p.z * n);}

  friend TProjectivePoint operator*(double n, const TProjectivePoint &p)

                {return TProjectivePoint(n * p.x, n * p.y, n * p.z);}

  double px() const {return x/z;}

  double py() const {return y/z;}

  double x, y, z;

  static const double Eps, FR;

};

const double TProjectivePoint::Eps = 1e-12;

const double TProjectivePoint::FR = 1e+4;

inline int TProjectivePoint::IsFinite() const

{

  double fz = fabs(z);

  return fz > Eps && fabs(x) < fz * FR && fabs(y) < fz * FR;

}

TRealPoint TProjectivePoint::rpnt() const

{

  if (!IsFinite()) return TRealPoint(0, 0);

  else return TRealPoint(x/z, y/z);

}

inline int TProjectivePoint::rpnt(TRealPoint &p) const

{

  if (!IsFinite()) {p.x = 0; p.y = 0; return 0;}

  else {p.x = x/z; p.y = y/z; return 1;}

}

inline TIntPoint TProjectivePoint::pnt() const

{

  if (!IsFinite()) return TIntPoint(INT_MIN, INT_MIN);

  else return TIntPoint((int)floor(x/z + 0.5), (int)floor(y/z + 0.5));

}

inline int TProjectivePoint::pnt(TIntPoint &p) const

{

  if (!IsFinite()) {p.x = INT_MIN; p.y = INT_MIN; return 0;}

  else

  {

    p.x = (int)floor(x/z + 0.5);

    p.y = (int)floor(y/z + 0.5);

    return 1;

  }

}

TProjectivePoint &TProjectivePoint::operator=(const TProjectivePoint &p)

{

  x = p.x; y = p.y; z = p.z;

  return *this;

}

class TProjectiveMap

{

public:

  TProjectiveMap() {}

  TProjectiveMap(int n) {p[0].x = p[1].y = p[2].z = n;

                p[0].y = p[0].z = p[1].x = p[1].z = p[2].x = p[2].y = 0;}

  TProjectiveMap(const TProjectiveMap &map)

                {p[0] = map.p[0]; p[1] = map.p[1]; p[2] = map.p[2];}

  TProjectiveMap(const TProjectivePoint pnt[])

                {p[0] = pnt[0]; p[1] = pnt[1]; p[2] = pnt[2];}

  TProjectiveMap(const TProjectivePoint &p0, const TProjectivePoint &p1,

                 const TProjectivePoint &p2) {p[0] = p0; p[1] = p1; p[2] = p2;}

  TProjectiveMap &operator=(const TProjectiveMap &map)

                {p[0] = map.p[0]; p[1] = map.p[1]; p[2] = map.p[2]; return *this;}

  TProjectiveMap &operator=(const TProjectivePoint pnt[])

                {p[0] = pnt[0]; p[1] = pnt[1]; p[2] = pnt[2]; return *this;}

  TProjectiveMap &operator=(int n) {p[0].x = p[1].y = p[2].z = n;

                p[0].y = p[0].z = p[1].x = p[1].z = p[2].x = p[2].y = 0; return *this;}

  TProjectivePoint operator()(const TProjectivePoint &point) const;

  friend TProjectiveMap operator*(const TProjectiveMap &a, const TProjectiveMap &b);

  TProjectiveMap &operator*=(const TProjectiveMap &b);

  TProjectiveMap &operator*=(int n) {p[0] *= n; p[1] *= n; p[2] *= n; return *this;}

  friend TProjectiveMap operator*(const TProjectiveMap &a, int n)

                       {return TProjectiveMap(a.p[0] * n, a.p[1] * n, a.p[2] * n);}

  friend TProjectiveMap operator*(int n, const TProjectiveMap &b)

                       {return TProjectiveMap(n * b.p[0], n * b.p[1], n * b.p[2]);}

  TProjectiveMap Reversed() const;

  TProjectiveMap &Reverse() {return (*this) = Reversed();}

  friend TProjectiveMap operator/(const TProjectiveMap &a, const TProjectiveMap &b)

                                 {return a * b.Reversed();}

  TProjectiveMap &operator/=(const TProjectiveMap &b) {return (*this) *= b.Reversed();}

  TProjectiveMap &operator/=(int n) {if (!n) (*this) = 0; return *this;}

  TProjectivePoint Reversed(const TProjectivePoint &point) const;

  TProjectivePoint operator()(double x, double y, double z = 1) const

                           {return (*this)(TProjectivePoint(x, y, z));}

  TProjectivePoint Reversed(double x, double y, double z = 1) const

                           {return Reversed(TProjectivePoint(x, y, z));}

  TProjectiveMap &Set4(const TProjectivePoint &a0, const TProjectivePoint &a1,

                       const TProjectivePoint &a2, const TProjectivePoint &a3);

  TProjectiveMap &Set4(const TProjectivePoint a[]) {return Set4(a[0], a[1], a[2], a[3]);}

  TProjectiveMap &Set4to4(const TProjectivePoint a[], const TProjectivePoint b[])

              {return Set4(b) /= TProjectiveMap().Set4(a);}

  TProjectiveMap &Set4to4(const TProjectivePoint &a0, const TProjectivePoint &a1,

                          const TProjectivePoint &a2, const TProjectivePoint &a3,

                          const TProjectivePoint b[])

              {return Set4(b) /= TProjectiveMap().Set4(a0, a1, a2, a3);}

  TProjectiveMap &Set4to4(const TProjectivePoint a[],

                          const TProjectivePoint &b0, const TProjectivePoint &b1,

                          const TProjectivePoint &b2, const TProjectivePoint &b3)

              {return Set4(b0, b1, b2, b2) /= TProjectiveMap().Set4(a);}

  TProjectiveMap &Set4to4(const TProjectivePoint &a0, const TProjectivePoint &a1,

                          const TProjectivePoint &a2, const TProjectivePoint &a3,

                          const TProjectivePoint &b0, const TProjectivePoint &b1,

                          const TProjectivePoint &b2, const TProjectivePoint &b3)

              {return Set4(b0, b1, b2, b2) /= TProjectiveMap().Set4(a0, a1, a2, a3);}

public:

  TProjectivePoint p[3];

};

TProjectivePoint TProjectiveMap::operator()(const TProjectivePoint &point) const

{

  return TProjectivePoint(p[0].x * point.x + p[1].x * point.y + p[2].x * point.z,

                          p[0].y * point.x + p[1].y * point.y + p[2].y * point.z,

                          p[0].z * point.x + p[1].z * point.y + p[2].z * point.z);

}

TProjectiveMap operator*(const TProjectiveMap &a, const TProjectiveMap &b)

{

  return TProjectiveMap(a(b.p[0]), a(b.p[1]), a(b.p[2]));

}

TProjectiveMap &TProjectiveMap::operator*=(const TProjectiveMap &b)

{

  TProjectivePoint p0 = (*this)(b.p[0]), p1 = (*this)(b.p[1]), p2 = (*this)(b.p[2]);

  p[0] = p0; p[1] = p1; p[2] = p2;

  return *this;

}

TProjectiveMap TProjectiveMap::Reversed() const

{

  return TProjectiveMap(TProjectivePoint(p[1].y * p[2].z - p[2].y * p[1].z,

           p[2].y * p[0].z - p[0].y * p[2].z, p[0].y * p[1].z - p[1].y * p[0].z),

                        TProjectivePoint(p[1].z * p[2].x - p[2].z * p[1].x,

           p[2].z * p[0].x - p[0].z * p[2].x, p[0].z * p[1].x - p[1].z * p[0].x),

                        TProjectivePoint(p[1].x * p[2].y - p[2].x * p[1].y,

           p[2].x * p[0].y - p[0].x * p[2].y, p[0].x * p[1].y - p[1].x * p[0].y));

}

TProjectivePoint TProjectiveMap::Reversed(const TProjectivePoint &point) const

{

  return TProjectivePoint((p[1].y * p[2].z - p[2].y * p[1].z) * point.x +

                          (p[1].z * p[2].x - p[2].z * p[1].x) * point.y +

                          (p[1].x * p[2].y - p[2].x * p[1].y) * point.z,

                 (p[2].y * p[0].z - p[0].y * p[2].z) * point.x +

                 (p[2].z * p[0].x - p[0].z * p[2].x) * point.y +

                 (p[2].x * p[0].y - p[0].x * p[2].y) * point.z,

        (p[0].y * p[1].z - p[1].y * p[0].z) * point.x +

        (p[0].z * p[1].x - p[1].z * p[0].x) * point.y +

        (p[0].x * p[1].y - p[1].x * p[0].y) * point.z);

}

TProjectiveMap &TProjectiveMap::Set4(const TProjectivePoint &a0,

   const TProjectivePoint &a1, const TProjectivePoint &a2, const TProjectivePoint &a3)

{

  p[0] = a0; p[1] = a1; p[2] = a2;

  TProjectivePoint K = Reversed(a3);

  p[0] *= K.x; p[1] *= K.y; p[2] *= K.z;

  return *this;

}

TRealPoint r_circle_pnt[13];

TRealPoint r_star_pnt[13];

const double r_star_large = 1.2, r_star_small = 0.8;

const double r_ch_lines[] = {0.8, 0.7, 0.6, 0.5};

void InitBoardData()

{

  int i, len;

  double a, r;

  len = NELEM(r_circle_pnt) - 1;

  for (i = 0; i < len; i++)

  {

    a = 2 * i * M_PI / len;

    r_circle_pnt[i].x = cos(a);

    r_circle_pnt[i].y = sin(a);

  }

  r_circle_pnt[len] = r_circle_pnt[0];

  len = sizeof(r_star_pnt) / sizeof(r_star_pnt[0]) - 1;

  for (i = 0; i < len; i++)

  {

    a = 2 * i * M_PI / len;

    r = (i % 2) ? r_star_small : r_star_large;

    r_star_pnt[i].x = cos(a) * r;

    r_star_pnt[i].y = sin(a) * r;

  }

  r_star_pnt[len] = r_star_pnt[0];

}

class TChBoard;

class TSomeDraw

{

public:

  TSomeDraw() {}

  virtual void Draw(TGraphDraw *drw, int w, int h) = 0;

  virtual void DrawB(TGraphDraw *drw, TChBoard &brd);

  virtual TIntPoint GetDSize(int w, int h) {return TIntPoint(INT_MIN, INT_MIN);}

};

class TChBoard

{

public:

  TChBoard(int id = 0);

  TProjectiveMap Get4PMap() const;

  int GetW() const {return width;}

  int GetH() const {return height;}

  void ClearWH() {width = -1; height = -1;}

  void Resize(int w, int h);

  void Resize(TIntPoint size) {Resize(size.x, size.y);}

  TIntPoint PlToWin(double x, double y) const;

  TIntPoint PlToWin(TRealPoint rp) const {return PlToWin(rp.x, rp.y);}

  TRealPoint WinToPl(int x, int y) const;

  TRealPoint WinToPl(TIntPoint p) const {return WinToPl(p.x, p.y);}

  void NewGame();

  int CanPlayerMove() const {return !IsPlayView && !game_end && !player[MainPos.wmove];}

  void Draw(TGraphDraw *drw);

  int ResizeDraw(TGraphDraw *drw, int w, int h);

  int CheckResize(TGraphDraw *drw);

  int HaveCheckResize() const {return check_resize;}

  void SetCheckResize(int cr) {check_resize = cr;}

  int MouseClick(TGraphDraw *drw, int x, int y);

  void UnMove(TGraphDraw *drw);

  int CMove(TGraphDraw *drw, int x, int y);

  int AutoMove(TGraphDraw *drw, int nmove = 0, int draw_check = 1);

  enum PKey {PNull, PEnter, PLeft, PRight, PUp, PDown};

  PKey GetKeySide(PKey key);

  int PKeyEvent(TGraphDraw *drw, PKey key = PEnter);

protected:

  enum TextLineType {TLT_Main, TLT_Move, TLT_Wait, TLT_GameEnd, TLT_WrongMove,

                     TLT_PlDidntMove, TLT_PlWrongMove, TLT_WrongColor,

                     TLT_WfCell, TLT_WnfCell, TLT_WMustEat, TLT_WMustEatMore,

                     TLT_WNoMove, TLT_WChBack, TLT_WNotDm, TLT_WOnlyDiag,

                     TLT_WEatYour, TLT_WMoreOne, TLT_WNotDmE, TLT_WMustEatMoreD,

                     TLT_WTurnBack};

  void GetTextLine(char str[]) const;

  void DrawTextLine(TGraphDraw *drw) const;

  void LineB(TGraphDraw *drw, double x1, double y1, double x2, double y2) const;

  void DrawCh(TGraphDraw *drw, double x0, double y0, const TRealPoint pnt[], int npnt,

              int L = NELEM(r_ch_lines)) const;

  void DrawIL(TGraphDraw *drw, double x0, double y0, int L) const;

  void MoveErase();

  void CurPointClear(TGraphDraw *drw) const;

  void RenewMPos() {if (MainPlay.GetPos(MainPos, CurMoveN) < 0) MainPos.Init();}

  void PrintLMove();

  void SetNoMove(TGraphDraw *drw = 0, int force = 1);

  TextLineType GetTLTfromA(int s) const;

  void ChangeTLT(TGraphDraw *drw, TextLineType t);

  TextLineType GetSimpleTLT() const;

public:

  void ResetTextLine(TGraphDraw *drw);

  TChPlayer *GetPlayer(int k) const {return player[k];}

  void SetPlayer(int k, TChPlayer *pl) {player[k] = pl;}

  int GetBottomColor() const {return BottomColor;}

  void SetBottomColor(int c) {BottomColor = c & 1;}

public:

  enum {textlineh = 14, min_brd = 120, max_delt = 20, min_brdsize = 70};

  int GetTextLineY() const;

  TSomeDraw *GetSomeDraw() const {return some_draw;}

  void SetSomeDraw(TSomeDraw *drw) {some_draw = drw;}

  TIntPoint GetMinWSize() const {return min_wsize;}

  void SetMinWSize(TIntPoint mws) {min_wsize = mws; Resize(width, height);}

  void SetMinWSize(int w, int h) {SetMinWSize(TIntPoint(w, h));}

  void DrawTimer(TGraphDraw *drw, double t, int wh = 0) const;

  int GetNumMove() const {return MainPlay.GetN() - 1;}

  int GetCurMoveN() const {return CurMoveN;}

  int SetCurMoveN(int n, TGraphDraw *drw = 0);

  int SetPlay(const PlayWrite &play);

  PlayWrite GetPlay() const {return MainPlay;}

  int GetPViewStatus() const {return IsPlayView;}

  void SetPViewStatus(int pv) {IsPlayView = pv;}

  void GoToCurMove();

  int GetGameEnd() const {return game_end;}

  void EraseHistory() {hist_inited = 0;}

  int ReinitHistory();

protected:

  double dw_delt, dw_cell;

  int width, height;

  TProjectiveMap PoleMap;

  Position MainPos;

  int BottomColor;

  unsigned char TheMove[NUM_CELL];

  unsigned char Eaten[NUM_CELL];

  unsigned char BecameD;

  TIntPoint CurPoint;

  int game_end;

  int check_resize;

  TIntPoint delta_size;

  TextLineType text_line_type;

  PlayWrite MainPlay;

  TChPlayer *player[2];

  TSomeDraw *some_draw;

  TIntPoint min_wsize;

  int CurMoveN, IsPlayView;

  THistory history;

  int hist_inited;

};

inline void TSomeDraw::DrawB(TGraphDraw *drw, TChBoard &brd)

{

  Draw(drw, brd.GetW(), brd.GetH());

}

void TChBoard::MoveErase()

{

  TheMove[0] = 0;

  Eaten[0] = 0;

  BecameD = 0;

}

TChBoard::TChBoard(int id) : history(id)

{

  InitBoardData();

  player[0] = player[1] = 0;

  dw_delt = 0.3;

  dw_cell = 1;

  BottomColor = 0;

  check_resize = 0;

  delta_size.x = 0; delta_size.y = 0;

  some_draw = 0;

  min_wsize.x = 80; min_wsize.y = 80;

  ClearWH();

  Resize(400, 400);

  NewGame();

}

TProjectiveMap TChBoard::Get4PMap() const

{

  return TProjectiveMap().Set4(TRealPoint(-dw_delt, -dw_delt),

                  TRealPoint(NW_CELL*dw_cell + dw_delt, -dw_delt),

                  TRealPoint(NW_CELL*dw_cell + dw_delt, NW_CELL*dw_cell + dw_delt),

                  TRealPoint(-dw_delt, NW_CELL*dw_cell + dw_delt));

}

void TChBoard::Resize(int w, int h)

{

  width = w; height = h;

  if (width < min_wsize.x) width = min_wsize.x;

  if (height < min_wsize.y) height = min_wsize.y;

  for (;;)

  {

    if (some_draw)

    {

      TIntPoint dsz = some_draw->GetDSize(width, height);

      if (dsz.x >= 0 && dsz.y >= 0) delta_size = dsz;

    }

    int change = 0;

    if (width < delta_size.x + min_brdsize)

    {

      width = delta_size.x + min_brdsize;

      change++;

    }

    if (height < delta_size.y + min_brdsize + textlineh)

    {

      height = delta_size.y + min_brdsize + textlineh;

      change++;

    }

    if (!some_draw || !change) break;

  }

  double sx = max_delt, dx = width - 2*sx - delta_size.x;

  double sy = max_delt, dy = height - 2*sy - delta_size.y - textlineh;

  if (dy < min_brd)

  {

    double d = (min_brd - dy) / 2;

    if (d > sy) d = sy;

    sy -= d; dy += 2*d;

  }

  if (dx < min_brd)

  {

    double d = (min_brd - dx) / 2;

    if (d > sx) d = sx;

    sx -= d; dx += 2*d;

  }

  if (dy > dx) {sy += (dy - dx) / 2; dy = dx;}

  double tx = (dx - dy * dy / dx) / 3;

  PoleMap.Set4(TRealPoint(sx, sy + dy - 70*ssf), TRealPoint(sx + dx, sy + dy),

               TRealPoint(sx + dx - tx, sy), TRealPoint(sx + tx, sy + 40*ssf));

  PoleMap /= Get4PMap();

}

TIntPoint TChBoard::PlToWin(double x, double y) const

{

  if (BottomColor == 1) y = NW_CELL*dw_cell - y;

  else x = NW_CELL*dw_cell - x;

  /**/if (ssf) y += 0.6 * sin(x);/**/

  return PoleMap(x, y).pnt();

}

TRealPoint TChBoard::WinToPl(int x, int y) const

{

  TRealPoint rpnt;

  if (PoleMap.Reversed(x, y).rpnt(rpnt))

  {

    /**/if (ssf) rpnt.y -= 0.6 * sin(rpnt.x);/**/

    if (BottomColor == 1) rpnt.y = NW_CELL*dw_cell - rpnt.y;

    else rpnt.x = NW_CELL*dw_cell - rpnt.x;

    return rpnt;

  }

  else return TRealPoint(-dw_cell - dw_delt, -dw_cell - dw_delt);

}

void TChBoard::NewGame()

{

  int k;

  MoveErase();

  MainPos.Init();

  MainPlay.Clear();

  for (k = 0; k < NW_CELL * 3 / 2; k++) MainPos.SH[k] = 1;

  for (k = 0; k < NW_CELL * 3 / 2; k++) MainPos.SH[NUM_CELL - k - 1] = 2;

  MainPlay.Add(0, MainPos);

  CurMoveN = 0;

  text_line_type = TLT_Main;

  game_end = 0;

  CurPoint.x = -1; CurPoint.y = -1;

  IsPlayView = 0;

  printf("\nCheckers: New game.\n");

  EraseHistory();

}

int TChBoard::GetTextLineY() const

{

  int y = height - (max_delt + textlineh + delta_size.y);

  int i, j;

  for (i = 0; i <= 1; i++) for (j = 0; j <= 1; j++)

  {

    TRealPoint corner;

    corner.x = (2*i - 1) * dw_delt + i * NW_CELL * dw_cell;

    corner.y = (2*j - 1) * dw_delt + j * NW_CELL * dw_cell;

    TIntPoint wcr = PlToWin(corner);

    if (wcr.x != INT_MIN && wcr.y != INT_MIN)

    {

      if (y < wcr.y) y = wcr.y;

    }

  }

  y -= textlineh;

  if (y > height - delta_size.y - 2*textlineh)

  {

    y = height - delta_size.y - 2*textlineh;

  }

  return (y + height - delta_size.y) / 2;

}

#ifdef LANG_RUS

#define aCheckersGame   "��� � �誨."

#define aRedMoves       "���� 室��."

#define aBlueMoves      "����� 室��."

#define aWait           "��������."

#define aRedWins        "���� �먣ࠫ�."

#define aBlueWins       "����� �먣ࠫ�."

#define aDraw           "�����."

#define aRed            "���� "

#define aBlue           "����� "

#define aMadeWrongMove  "ᤥ���� ���ࠢ���� 室."

#define aNoMove         "�� ᬮ��� ᤥ���� 室."

#define aEndGame        "����� ����."

#define aYouWin         " (�� �먣ࠫ�)"

#define aYouLose        " (�� �ந�ࠫ�)"

#define aRedWin         " (���� �먣ࠫ�)"

#define aBlueWin        " (����� �먣ࠫ�)"

#define aWrongMove      "������ 室."

#define aNotYourChecker "�� �� ��� �誠."

#define aFreeCell       "�� ���⪠ �����."

#define aNotFreeCell    "��誨 ����� 室��� ⮫쪮 �� ᢮����� ���⪨."

#define aMustEat        "�� ������ ����� ���."

#define aMustEatMore    "�� ������ ����� ��� ���."

#define aCheckerNoMove  "� �⮩ �誨 ��� 室��."

#define aNoBack         "��誨 �� 室�� �����."

#define aNotDamka       "�� �� �����."

#define aOnlyDiag       "��誨 室�� ⮫쪮 �� ���������."

#define aEatYour        "��誨 �� ����� ���� ᢮��."

#define aMoreOne        "�� �� ����� ����� ����� ����� �誨 �� ࠧ."

#define aNoTurnBack     "��誨 �� ����� ࠧ���稢����� ����� �� ���⨨."

#else

#define aCheckersGame   "The checkers game."

#define aRedMoves       "Red moves."

#define aBlueMoves      "Blue moves."

#define aWait           "Please wait."

#define aRedWins        "Red wins."

#define aBlueWins       "Blue wins."

#define aDraw           "Draw."

#define aRed            "Red "

#define aBlue           "Blue "

#define aMadeWrongMove  "make a wrong move."

#define aNoMove         "could not make a move."

#define aEndGame        "End of the game."

#define aYouWin         " (You win)"

#define aYouLose        " (You lose)"

#define aRedWin         " (Red win)"

#define aBlueWin        " (Blue win)"

#define aWrongMove      "Wrong move."

#define aNotYourChecker "It isn't your checker."

#define aFreeCell       "The cell is free."

#define aNotFreeCell    "Checkers may be moved only on a free cell."

#define aMustEat        "You must eat a checker."

#define aMustEatMore    "You must eat more checkers."

#define aCheckerNoMove  "The checker have no moves."

#define aNoBack         "Checkers may not be moved back."

#define aNotDamka       "It is not a damka."

#define aOnlyDiag       "Checkers may be moved only along diagonal."

#define aEatYour        "You may not eat your checkers."

#define aMoreOne        "You may not eat more than one checker at a time."

#define aNoTurnBack     "Checkers may not turn back when eating."

#endif

void TChBoard::GetTextLine(char str[]) const

{

  str[0] = 0;

  int g = (game_end - 1) % 2, h = 0;

  switch(text_line_type)

  {

  case TLT_Main:

    strcpy(str, aCheckersGame);

    break;

  case TLT_Move:

    if (MainPos.wmove == 0)

    {

      strcpy(str, aRedMoves);

    }

    else strcpy(str, aBlueMoves);

    break;

  case TLT_Wait:

    strcpy(str, aWait);

    break;

  case TLT_GameEnd:

  case TLT_PlDidntMove:

  case TLT_PlWrongMove:

    if (!game_end) break;

    if (text_line_type == TLT_GameEnd)

    {

      if (game_end == 1) strcpy(str, aRedWins);

      else if (game_end == 2) strcpy(str, aBlueWins);

      else if (game_end == 5) strcpy(str, aDraw);

    }

    if (!str[0])

    {

      if (game_end >= 1 && game_end <= 4)

      {

        if (g == 0) strcpy(str, aRed);

        else strcpy(str, aBlue);

        if (text_line_type == TLT_PlWrongMove)

        {

          strcat(str, aMadeWrongMove);

        }

        else strcat(str, aNoMove);

        h = 1;

      }

      else strcpy(str, aEndGame);

    }

    if (game_end >= 1 && game_end <= 4)

    {

      if (!IsPlayView && player[1-g] && !player[g])

      {

        strcat(str, aYouWin);

      }

      else if (!IsPlayView && player[g] && !player[1-g])

      {

        strcat(str, aYouLose);

      }

      else if (h && g == 0) strcat(str, aRedWin);

      else if (h && g == 1) strcat(str, aBlueWin);

    }

    break;

  case TLT_WrongMove:

    strcpy(str, aWrongMove);

    break;

  case TLT_WrongColor:

    strcpy(str, aNotYourChecker);

    break;

  case TLT_WfCell:

    strcpy(str, aFreeCell);

    break;

  case TLT_WnfCell:

    strcpy(str, aNotFreeCell);

    break;

  case TLT_WMustEat:

    strcpy(str, aMustEat);

    break;

  case TLT_WMustEatMore:

  case TLT_WMustEatMoreD:

    strcpy(str, aMustEatMore);

    break;

  case TLT_WNoMove:

    strcpy(str, aCheckerNoMove);

    break;

  case TLT_WChBack:

    strcpy(str, aNoBack);

    break;

  case TLT_WNotDm:

  case TLT_WNotDmE:

    strcpy(str, aNotDamka);

    break;

  case TLT_WOnlyDiag:

    strcpy(str, aOnlyDiag);

    break;

  case TLT_WEatYour:

    strcpy(str, aEatYour);

    break;

  case TLT_WMoreOne:

    strcpy(str, aMoreOne);

    break;

  case TLT_WTurnBack:

    strcpy(str, aNoTurnBack);

    break;

  }

}

void TChBoard::DrawTextLine(TGraphDraw *drw) const

{

  if (!drw || !drw->IsDraw()) return;

  char str[100];

  GetTextLine(str);

  if (str[0]) drw->DrawText(10, GetTextLineY(), str);

}

void TChBoard::ResetTextLine(TGraphDraw *drw)

{

  if (!game_end && text_line_type != TLT_Move) ChangeTLT(drw, TLT_Move);

}

void TChBoard::LineB(TGraphDraw *drw, double x1, double y1, double x2, double y2) const

{

  if (!drw || !drw->IsDraw()) return;

  TIntPoint p1 = PlToWin(x1, y1), p2 = PlToWin(x2, y2);

  if (p1.x != INT_MIN && p1.y != INT_MIN && p2.x != INT_MIN && p2.y != INT_MIN)

  {

    drw->DrawLine(p1.x, p1.y, p2.x, p2.y);

  }

}

void TChBoard::DrawCh(TGraphDraw *drw, double x0, double y0, const TRealPoint pnt[], int npnt, int L) const

{

  if (!drw || !drw->IsDraw()) return;

  int i, j;

  for (j = 0; j < L; j++)

  {

    for (i = 0; i < npnt - 1; i++)

    {

      LineB(drw, x0 + pnt[i].x * dw_cell * r_ch_lines[j] / 2,

                 y0 + pnt[i].y * dw_cell * r_ch_lines[j] / 2,

                 x0 + pnt[i+1].x * dw_cell * r_ch_lines[j] / 2,

                 y0 + pnt[i+1].y * dw_cell * r_ch_lines[j] / 2);

    }

  }

}

void TChBoard::DrawIL(TGraphDraw *drw, double x0, double y0, int L) const

{

  if (!drw || !drw->IsDraw()) return;

  int i, j;

  if (L == 0 || L == 1)

  {

    const int numDST[2] = {2, 4};

    const double DST[2][4] = {{0.96, 0.88}, {0.8, 0.76, 0.72, 0.68}};

    const int MULT[4][4] = {{-1, -1, -1, 1}, {-1, 1, 1, 1},

                            {-1, -1, 1, -1}, {1, -1, 1, 1}};

    for (i = 0; i < numDST[L]; i++) for (j = 0; j < 4; j++)

    {

      LineB(drw, x0 + dw_cell * DST[L][i] * MULT[j][0] / 2,

                 y0 + dw_cell * DST[L][i] * MULT[j][1] / 2,

                 x0 + dw_cell * DST[L][i] * MULT[j][2] / 2,

                 y0 + dw_cell * DST[L][i] * MULT[j][3] / 2);

    }

  }

  else if (L == 2)

  {

    const double DP[] = {0.85, 0.90, 0.95};

    const int numDP = NELEM(DP);

    for (i = 0; i < numDP; i++) for (j = -1; j <= 1; j += 2)

    {

      LineB(drw, x0 - j * dw_cell * DP[i] / 2,

                 y0 - dw_cell * DP[numDP - i - 1] / 2,

                 x0 + j * dw_cell * DP[numDP - i - 1] / 2,

                 y0 + dw_cell * DP[i] / 2);

    }

  }

}

void TChBoard::Draw(TGraphDraw *drw)

{

  if (!drw || !drw->IsDraw()) return;

  if (CheckResize(drw)) drw->DrawClear();

  int i, j, k, kn;

  unsigned long black = drw->GetBlackColor();

  unsigned long red = drw->CreateColor(65535u, 0, 0);

  unsigned long green = drw->CreateColor(0, 49151u, 0);

  unsigned long blue = drw->CreateColor(0, 0, 65535u);

  drw->SetColor(black);

  for (i = -1; i <= NW_CELL + 1; i++) for (j = -1; j <= NW_CELL; j++)

  {

    if (i < 0 || i > NW_CELL || j >= 0 && j < NW_CELL)

    {

      double mval = dw_cell * NW_CELL + dw_delt;

      double x, y0, y1;

      if (i < 0) x = -dw_delt;

      else if (i > NW_CELL) x = mval;

      else x = i * dw_cell;

      if (j < 0) y0 = -dw_delt;

      else if (j > NW_CELL) y0 = mval;

      else y0 = j * dw_cell;

      if ((j+1) < 0) y1 = -dw_delt;

      else if ((j+1) > NW_CELL) y1 = mval;

      else y1 = (j+1) * dw_cell;

      LineB(drw, x, y0, x, y1);

    }

  }

  for (i = -1; i <= NW_CELL; i++) for (j = -1; j <= NW_CELL + 1; j++)

  {

    if (j < 0 || j > NW_CELL || i >= 0 && i < NW_CELL)

    {

      double mval = dw_cell * NW_CELL + dw_delt;

      double x0, x1, y;

      if (i < 0) x0 = -dw_delt;

      else if (i > NW_CELL) x0 = mval;

      else x0 = i * dw_cell;

      if ((i+1) < 0) x1 = -dw_delt;

      else if ((i+1) > NW_CELL) x1 = mval;

      else x1 = (i+1) * dw_cell;

      if (j < 0) y = -dw_delt;

      else if (j > NW_CELL) y = mval;

      else y = j * dw_cell;

      LineB(drw, x0, y, x1, y);

    }

  }

  for (i = -1; i <= 1; i += 2)

  {

    drw->SetColor((i < 0) ? red : blue);

    for (j = -1; j <= 1; j += 2)

    {

      double c = dw_cell * NW_CELL / 2;

      double d = (dw_cell/2 > dw_delt) ? dw_delt : dw_cell/2;

      LineB(drw, c + j * (c + 0.5*d), c + i * (c - 0.5*d),

                  c + j * (c + 0.5*d), c + i * (c - 3.5*d));

      LineB(drw, c + j * (c + 0.5*d), c + i * (c - 3.5*d),

                  c + j * (c + 0.2*d), c + i * (c - 2.5*d));

      LineB(drw, c + j * (c + 0.5*d), c + i * (c - 3.5*d),

                  c + j * (c + 0.8*d), c + i * (c - 2.5*d));

      LineB(drw, c + j * (c + 0.2*d), c + i * (c - 2.5*d),

                  c + j * (c + 0.8*d), c + i * (c - 2.5*d));

    }

  }

  for (i = 0; i < NW_CELL; i++) for (j = 0; j < NW_CELL; j++)

  {

    if (!PoleCpos(i, j))

    {

      drw->SetColor(black);

      LineB(drw, (i+0.33) * dw_cell, j * dw_cell, (i+0.33) * dw_cell, (j+1) * dw_cell);

      LineB(drw, (i+0.67) * dw_cell, j * dw_cell, (i+0.67) * dw_cell, (j+1) * dw_cell);

      LineB(drw, i * dw_cell, (j+0.33) * dw_cell, (i+1) * dw_cell, (j+0.33) * dw_cell);

      LineB(drw, i * dw_cell, (j+0.67) * dw_cell, (i+1) * dw_cell, (j+0.67) * dw_cell);

      LineB(drw, i * dw_cell, j * dw_cell, (i+1) * dw_cell, (j+1) * dw_cell);

      LineB(drw, (i+1) * dw_cell, j * dw_cell, i * dw_cell, (j+1) * dw_cell);

    }

    else

    {

      k = PoleToNum(i, j);

      kn = MainPos.SH[k];

      if (TheMove[0] > 0 && k == TheMove[1])

      {

        if (kn == 1 || kn == 2) kn = 5;

        else if (kn == 3 || kn == 4) kn = 6;

      }

      if (TheMove[0] > 0 && k == TheMove[TheMove[0]])

      {

        kn = MainPos.SH[TheMove[1]];

        if (kn <= 2 && BecameD) kn += 2;

      }

      if (kn == 1)

      {

        drw->SetColor(red);

        DrawCh(drw, (i+0.5)*dw_cell, (j+0.5)*dw_cell,

                     r_circle_pnt, NELEM(r_circle_pnt));

      }

      else if (kn == 2)

      {

        drw->SetColor(blue);

        DrawCh(drw, (i+0.5)*dw_cell, (j+0.5)*dw_cell,

                     r_circle_pnt, NELEM(r_circle_pnt));

      }

      else if (kn == 3)

      {

        drw->SetColor(red);

        DrawCh(drw, (i+0.5)*dw_cell, (j+0.5)*dw_cell,

                     r_star_pnt, NELEM(r_star_pnt));

      }

      else if (kn == 4)

      {

        drw->SetColor(blue);

        DrawCh(drw, (i+0.5)*dw_cell, (j+0.5)*dw_cell,

                     r_star_pnt, NELEM(r_star_pnt));

      }

      else if (kn == 5)

      {

        drw->SetColor(green);

        DrawCh(drw, (i+0.5)*dw_cell, (j+0.5)*dw_cell,

                  r_circle_pnt, NELEM(r_circle_pnt), 2);

      }

      else if (kn == 6)

      {

        drw->SetColor(green);

        DrawCh(drw, (i+0.5)*dw_cell, (j+0.5)*dw_cell,

                  r_circle_pnt, NELEM(r_circle_pnt), 2);

      }

    }

  }

  for (k = 1; k <= Eaten[0]; k++)

  {

    if (TheMove[0] <= 0 || Eaten[k] != TheMove[TheMove[0]])

    {

      NumToPole(Eaten[k], i, j);

      kn = MainPos.SH[Eaten[k]];

      if (kn)

      {

        if (kn == 1 || kn == 3) drw->SetColor(blue);

        else if (kn == 2 || kn == 4) drw->SetColor(red);

        DrawIL(drw, (i+0.5)*dw_cell, (j+0.5)*dw_cell, 2);

      }

    }

  }

  if (TheMove[0] > 0)

  {

    NumToPole(TheMove[TheMove[0]], i, j);

    drw->SetColor(green);

    DrawIL(drw, (i+0.5)*dw_cell, (j+0.5)*dw_cell, 1);

  }

  if (CurPoint.x >= 0 && CurPoint.y >= 0)

  {

    drw->SetColor(green);

    DrawIL(drw, (CurPoint.x+0.5)*dw_cell, (CurPoint.y+0.5)*dw_cell, 0);

  }

  drw->SetColor(black);

  DrawTextLine(drw);

  if (some_draw) some_draw->DrawB(drw, *this);

  drw->FreeColor(red);

  drw->FreeColor(green);

  drw->FreeColor(blue);

}

int TChBoard::ResizeDraw(TGraphDraw *drw, int w, int h)

{

  int w0 = width, h0 = height;

  Resize(w, h);

  if (drw && drw->IsDraw() && (width != w0 || height != h0))

  {

    drw->DrawClear();

    Draw(drw);

    return 1;

  }

  else return 0;

}

int TChBoard::CheckResize(TGraphDraw *drw)

{

  if (!drw || !check_resize) return 0;

  int w, h;

  drw->GetSize(w, h);

  if (w < 0 || h < 0) return 0;

  int w0 = width, h0 = height;

  Resize(w, h);

  return width != w0 || height != h0;

}

void TChBoard::CurPointClear(TGraphDraw *drw) const

{

  if (!drw || !drw->IsDraw()) return;

  drw->SetColor(drw->GetWhiteColor());

  DrawIL(drw, (CurPoint.x+0.5)*dw_cell, (CurPoint.y+0.5)*dw_cell, 0);

}

int TChBoard::MouseClick(TGraphDraw *drw, int x, int y)

{

  TRealPoint rpnt = WinToPl(x, y);

  if (rpnt.x < -dw_delt || rpnt.y < -dw_delt ||

      rpnt.x > NW_CELL*dw_cell + dw_delt ||

      rpnt.y > NW_CELL*dw_cell + dw_delt) return -1;

  if (CurPoint.x >= 0 && CurPoint.y >= 0)

  {

    CurPointClear(drw);

    CurPoint.x = -1; CurPoint.y = -1;

    Draw(drw);

  }

  ResetTextLine(drw);

  if (AutoMove(drw)) return 3;

  if (!CanPlayerMove()) return 0;

  int i = (int)floor(rpnt.x / dw_cell), j = (int)floor(rpnt.y / dw_cell);

  if (i < 0 || j < 0 || i >= NW_CELL || j >= NW_CELL) return 0;

  if (!PoleCpos(i, j)) return 1;

  return 2 + CMove(drw, i, j);

}

TChBoard::PKey TChBoard::GetKeySide(PKey key)

{

  if (key != PLeft && key != PRight && key != PUp && key != PDown) return key;

  TIntPoint a0 = PlToWin(4*dw_cell, 0);

  TIntPoint a1 = PlToWin(4*dw_cell, 8*dw_cell);

  TIntPoint b0 = PlToWin(0, 4*dw_cell);

  TIntPoint b1 = PlToWin(8*dw_cell, 4*dw_cell);

  double ax = a0.x - a1.x, ay = a0.y - a1.y;

  double bx = b0.x - b1.x, by = b0.y - b1.y;

  double t;

  if (a0.x == INT_MIN || a0.y == INT_MIN || a1.x == INT_MIN ||

      a1.y == INT_MIN || fabs(ax) < 0.5 && fabs(ay) < 0.5)

  {

    ax = 0, ay = 1;

  }

  if (b0.x == INT_MIN || b0.y == INT_MIN || b1.x == INT_MIN ||

      b1.y == INT_MIN || fabs(bx) < 0.5 && fabs(by) < 0.5)

  {

    bx = 1, by = 0;

  }

  t = fabs(ax) + fabs(ay); ax /= t; ay /= t;

  t = fabs(bx) + fabs(by); bx /= t; by /= t;

  if (fabs(ax) <= fabs(bx))

  {

    if (key == PLeft) return (bx > 0) ? PRight : PLeft;

    if (key == PRight) return (bx > 0) ? PLeft : PRight;

    if (key == PUp) return (ay > 0) ? PDown : PUp;

    if (key == PDown) return (ay > 0) ? PUp : PDown;

  }

  else

  {

    if (key == PLeft) return (ax > 0) ? PDown : PUp;

    if (key == PRight) return (ax > 0) ? PUp : PDown;

    if (key == PUp) return (by > 0) ? PRight : PLeft;

    if (key == PDown) return (by > 0) ? PLeft : PRight;

  }

  return PNull;

}

int TChBoard::PKeyEvent(TGraphDraw *drw, PKey key)

{

  ResetTextLine(drw);

  if (AutoMove(drw)) return 3;

  if (!CanPlayerMove()) return 0;

  key = GetKeySide(key);

  if (CurPoint.x < 0 || CurPoint.y < 0 ||

      CurPoint.x >= NW_CELL || CurPoint.y >= NW_CELL)

  {

    CurPoint.x = NW_CELL / 2;

    CurPoint.y = NW_CELL / 2;

    Draw(drw);

    return 1;

  }

  if (key == PEnter) return 2 + CMove(drw, CurPoint.x, CurPoint.y);

  if (drw && drw->IsDraw() && CheckResize(drw))

  {

    drw->DrawClear();

    Draw(drw);

  }

  if (key == PLeft)

  {

    if (CurPoint.x == 0) return 0;

    CurPointClear(drw);

    CurPoint.x--;

    Draw(drw);

    return 1;

  }

  else if (key == PRight)

  {

    if (CurPoint.x == NW_CELL - 1) return 0;

    CurPointClear(drw);

    CurPoint.x++;

    Draw(drw);

    return 1;

  }

  else if (key == PUp)

  {

    if (CurPoint.y == 0) return 0;

    CurPointClear(drw);

    CurPoint.y--;

    Draw(drw);

    return 1;

  }

  else if (key == PDown)

  {

    if (CurPoint.y == NW_CELL - 1) return 0;

    CurPointClear(drw);

    CurPoint.y++;

    Draw(drw);

    return 1;

  }

  else return 0;

}

void TChBoard::UnMove(TGraphDraw *drw)

{

  MoveErase();

  if (drw && drw->IsDraw())

  {

    drw->DrawClear();

    Draw(drw);

  }

}

TChBoard::TextLineType TChBoard::GetTLTfromA(int s) const

{

  if (s >= 0) return TLT_Main;

  switch(s)

  {

    case Position::AWColor: return TLT_WrongColor;

    case Position::AfCell: return TLT_WfCell;

    case Position::AnfCell: return TLT_WnfCell;

    case Position::AMustEat: return TLT_WMustEat;

    case Position::AMustEatMore: return TLT_WMustEatMore;

    case Position::AMustEatMoreD: return TLT_WMustEatMoreD;

    case Position::ANoMove: return TLT_WNoMove;

    case Position::AChBack: return TLT_WChBack;

    case Position::ANotDm: return TLT_WNotDm;

    case Position::ANotDmE: return TLT_WNotDmE;

    case Position::AOnlyDiag: return TLT_WOnlyDiag;

    case Position::AEatYour: return TLT_WEatYour;

    case Position::AMoreOne: return TLT_WMoreOne;

    case Position::ATurnBack: return TLT_WTurnBack;

    default: return TLT_WrongMove;

  }

}

void TChBoard::ChangeTLT(TGraphDraw *drw, TextLineType t)

{

  if (text_line_type == t) return;

  if (drw && drw->IsDraw())

  {

    drw->SetColor(drw->GetWhiteColor());

    DrawTextLine(drw);

  }

  text_line_type = t;

  if (drw && drw->IsDraw())

  {

    drw->SetColor(drw->GetBlackColor());

    DrawTextLine(drw);

  }

}

TChBoard::TextLineType TChBoard::GetSimpleTLT() const

{

  if (game_end && CurMoveN >= MainPlay.GetN() - 1) return TLT_GameEnd;

  else return TLT_Move;

}

inline int TChBoard::ReinitHistory()

{

  if (history.Play(MainPlay)) {hist_inited = 1; return 1;}

  else {hist_inited = 0; return 0;}

}